VPF::вывод текста в DB - Форум программистов

Тьма

Дата 8.3.2007, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 339
Регистрация: 22.1.2005
Где: Украина, Винница

Репутация: нет
Всего: 4

Доброго времени суток.
помогите с одной проблемой, кому не сложно
пытаюсь вывести в DBGrid текст в поля типа MEMO с помощью Canvas
использую многочисленные примеры с DBGridDrawCell и DefaultDraw := false, но при изменении последнего параметра на компоненте не рисуется вообще ничего, в том числе и то,что я пытаюсь нарисовать любым способом
в чем проблема?
код выложить не могу, т.к. уже удалил с исходника, но примеры я брал и з DRKB или DelphiWorld.

ЗЫ EhLib дорого, а халявы не наблюдаю smile

нашел халяву, но правда на 9 делфи, а не на 10, как надо

Это сообщение отредактировал(а) Тьма - 8.3.2007, 16:47

--------------------

Vir magni ingenii

Rodman

Дата 8.3.2007, 23:25 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122

вот кое что нашел, глянь - мож подойдет...

------------------------------------------------------------------
DBGrid и Memo-поля
В обработчик события GetText TMemoField поместите следующую строку:

Код


Text := GrabMemoAsString(TMemoField(Sender));

и поместите следующую функцию так, чтобы к ней можно было свободно обратиться:

Код


function GrabMemoAsString(TheField: TMemoField): string;
begin
  if TheField.IsNull then
    Result := ''
  else
    with TBlobStream.Create(TheField, bmRead) do
    begin
      if Size > = 255 then
      begin
        Read(Result[1], 255);
        Result[0] := #255;
      end
      else
      begin
        Read(Result[1], Size);
        Result[0] := Chr(Size);
      end;
      Free;
      while Pos(#10, Result) >  0 do
        Result[Pos(#10, Result)] := ' ';
      while Pos(#13, Result) >  0 do
        Result[Pos(#13, Result)] := ' ';
    end;
end;

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Тьма

Дата 16.3.2007, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 339
Регистрация: 22.1.2005
Где: Украина, Винница

Репутация: нет
Всего: 4

решил проблему через этот же обработчик, но с другой процедурой
спасибо

--------------------

Vir magni ingenii

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »