Вставить *ico в ячейку DBGridEh

[new player]

Всем доброго дня,

Надо украсить DBGridEh иконками. Кое с чем разобрался. Например, иконку в Title

DBGridEh1.Columns[4].ImageList := ImageList1;
DBGridEh1.Columns[4].Title.ImageIndex := 2;

Надо показать иконку в ячейке вместе с текстом. То есть слева в ячейке иконка, а за ней текст. По-идеи как-то так

DBGridEh1.Columns[2].ShowImageAndText:= True;
DBGridEh1.Columns[2].ImageList := ImageList1;

Но тогда Columns[2] должен быть заполнен числами, соответствующими индексам ImageList1. А у меня в столбце текст. Надо как-то ручками указать индекс (по аналогии с Title).

[_SERGEYX_]

Первое, что приходит на ум:

procedure TfrmMain.GridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var cc: TCanvas;
  Bitmap: TBitmap;
begin
  {Делаем только для столбца 2}
  if (DataCol = 2) then
  begin
    Bitmap := TBitmap.Create;
    {KlientNUMBER.Value - значение того самого числового поля ...}
    case  KlientNUMBER.Value of
     0: Bitmap.LoadFromFile('Test.bmp');
     1: Bitmap.LoadFromFile('Test2.bmp');
    end;
    cc := Grid.Canvas;
    cc.FillRect(rect);
    cc.Draw(Rect.Left, Rect.Top, Bitmap);
    {KlientZAKAZCHIK.Text - значение тестового поля, в который пихаем иконку
    Ширина иконки 16, поэтому отступ текста сделаем 20 px}
    cc.TextOut(Rect.Left + 20, Rect.Top, KlientZAKAZCHIK.Text);
    Bitmap.Free;
  end;
end;

Только иконки грузить из файла как-то некрасиво. Затолкай их в ресурсы что-ли...

[new player]

И снова спасибо, _SERGEYX_

Немного перебил код

var cc: TCanvas;
begin
  if (DataCol = 0) then
  begin
    Icon := TIcon.Create;
    Icon.LoadFromFile('user1_16.ico');
    cc := DBGridEh1.Canvas;
    cc.FillRect(rect);
    cc.Draw(Rect.Left, Rect.Top, Icon);
    cc.TextOut(Rect.Left + 20, Rect.Top, DBGridEh1.DataSource.DataSet.Fields[0].AsString);
    Icon.Free;
  end;

Отображается все прекрасн. Лишь, когда закрываешь программу вылетает. Invalid pointer operation. Вроде бы это ошибка о неверной операции с указателем. Буду разбираться.

[_SERGEYX_]

Icon.LoadFromFile('user1_16.ico'); смотрится как-то некрасиво.
ImageList1.GetBitmap(0,Bitmap); симпатичнее :=))

[new player]

Сообщение от _SERGEYX_

Icon.LoadFromFile('user1_16.ico'); смотрится как-то некрасиво.
ImageList1.GetBitmap(0,Bitmap); симпатичнее :=))

Согласен. Выглядит намного симпатичнее