Рисунок в DBGrid

[Aleksandr]

Мне необходимо вставить рисунок в столбец Num если значение в столбце Tip=1. Вот мой код. Почему он не выводит?

procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
  Var CheckIt : Boolean;
    Style   : Integer;

   //                Рисунок в таблице
  Im1: TBitmap;


 begin

  Im1 := TBitmap.Create;
  if Column.FieldName = 'Num' then
  with DBGrid1.Canvas do
    begin
      Brush.Color := clInfoBk;
      FillRect(Rect);
      if ADOTable1.FieldByName('Tip').Value = 1 then
        ImageList8.GetBitmap(0, Im1)
      else
        ImageList8.GetBitmap(2, Im1);
    Draw(round((Rect.Left + Rect.Right - Im1.Width) / 2), Rect.Top, Im1);
    end;
     //****************************************


end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Аватар]

Попробуйте так

procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var Bitmap: TBitmap;
    i: Integer;
begin
  if БлаБла1 then i:=1
  else if БлаБла2 then i:=2
  ...
  else Exit;
  Bitmap:=TBitmap.Create;
  Bitmap.Transparent:=True;
  ImageList.GetBitmap(i,Bitmap);
  DrawCellBitmap(TDBGrid(Sender),0,0,Bitmap,Rect);  //DrawCellBitmap в VCLUtils
  Bitmap.Free;
end;

[Aleksandr]

Мой код работает со стандартным DBGrid, а с RzDBGrid нет. Может нужно, что нибудь в опциях выставить?

[Аватар]

RzDBGrid это случайно не RxDBGrid? То что я выше привел работает и для RxDBGrid и для EhDBGrid с небольшой вариацией при обращении к DrawCellBitmap

[Aleksandr]

В RxDBGrid работает. Нет это другой компанент Raize Components 4.0.
А что там за вариациия при обращении к DrawCellBitmap. Может это подойдет и мне?

[Аватар]

Первый параметр у меня TDBGrid(Sender). Я не помню что там у DrawCellBitmap. Скорее всего TWinControl. Посмотрите и пляшите от этого