VPF::DBGridEh.OnDrawColumnCell - Форум программистов

Delphist

Дата 17.11.2006, 14:38 (ссылка)

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

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

В ячейках первой таблицы у меня отображается маленькая пиктограмма и текст.

Код


procedure
  DBGridDrawCellPicture(Sender: TObject; img: TImageList; AText: string;
    State: TGridDrawState; AFontColor: TColor; IconNum: integer;
    ARect: TRect; AFontStyle: TFontStyles);
var
  bm: TBitmap;
begin

  with TDBGrid(Sender).Canvas do
  begin
    bm := TBitmap.Create;
    bm.Transparent := true;
    try
      if img.GetBitmap(IconNum, bm) then
      begin
        if State = [gdSelected, gdFocused] then
          Font.Color := clWhite
        else
          Font.Color := AFontColor;
        Font.Style := TFontStyles(AFontStyle);
        FillRect(ARect);
        TextOut(ARect.Left + 17, ARect.Top + 1, AText);
        Draw(ARect.Left, ARect.Top, bm);
      end;
    finally
      bm.Free;
    end;
  end;
end;

procedure
  TfmExmplForm.dgrDDBDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin

   DBGridDrawCellPicture(Sender, ImageList.ilSmall,
      fdsDct.FieldByName(GetNamingField).AsString, state, clBlack,  25, Rect, [fsBold])
end;

При потере гридом фокуса картинка не отображается. Как этого избежать?

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

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Delphist

Дата 17.11.2006, 17:46 (ссылка)

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

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Объясню подробнее свою задачу. У меня два грида связаны между собой по принципу мастер-деталь. В главном гриде в первой колонке отображается картиночка с текстом. Если в Options главного грида отключить опцию dgAlwaysShowSelection, то при потере гридом фокусом все прорисовывается кроме первой колонки (продает и текст и картинка) в связи с этим пришлось включить опцию dgAlwaysShowSelection. Но даже эта опция не помагает если я устанавливаю курсор на подчиненную таблицу, в первой колонке главной таблицы текст отображается, а вот картинка нет. Как этот гридовский баг исправить?

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

Delphist

Дата 21.11.2006, 11:02 (ссылка)

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

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Нашел ошибку в коде. Темы закрыта.

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

Akella

Дата 21.11.2006, 11:28 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Delphist, и где она закралсь?

Delphist

Дата 21.11.2006, 12:23 (ссылка)

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

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(Akella @ 21.11.2006, 12:28

)

Delphist, и где она закралсь?

Ошибка скрывалась в !!! см.код.

Код


procedure
  TfmExmplForm.dgrDDBDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin

   if !!! then
   DBGridDrawCellPicture(Sender, ImageList.ilSmall,
      fdsDct.FieldByName(GetNamingField).AsString, state, clBlack,  25, Rect, [fsBold])
end;

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

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