Правильно вывести изображение в ячейке RxDbGrid

[Lemboy]

Есть несколько устаревший опыт в Delphi, Lazarus только начинаю изучать.

Не могу сообразить, как в RxDbGrid в определенном столбце по условию вывести иконку.
Такой код желаемого результата не дает:

Код: Выделить всё

 
procedure TRxDBGridMainForm.RxDBGrid1DrawColumnCell(Sender: TObject;
    const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    if Column.ID = 0 then
      ImageList1.Draw(TRxDBGrid(Sender).Canvas,Rect.Left,Rect.Top, 0 );
end;

Если правильно понял alexs, нужно использовать OnGetCellProps, но как именно в данном случае, сообразить не могу.

(WinXP, Lazarus 0.9.28.2, RXLib последний отсюда: http://lazarus-ccr.svn.sourceforge.net/ ... z?view=tar)

[alexs]

Можно вобще всё визуально сделать. Это если у тебя картинка однозначно соответсвет значению поля.
Посмотри у колонки свойсово ImageList
а также KeyList
в ImageList устанавливаеш изображения, которые будеш отображать.
а в KeyList вносиш чо-то типа такого:
1=0
2=1
3=2

где то что до = - значание поля, а после равно - соответсвеющий индекс из ImageList-а.

Код: Выделить всё

    RxColumn:=TRxColumn(ColumnFromGridColumn(aCol));
    if Assigned(RxColumn) and Assigned(RxColumn.Field) and Assigned(RxColumn.ImageList) then
    begin
      AImageIndex:=StrToIntDef(RxColumn.KeyList.Values[RxColumn.Field.AsString], RxColumn.FNotInKeyListIndex);
      if (AImageIndex > -1) and (AImageIndex < RxColumn.ImageList.Count) then
        DrawCellBitmap(RxColumn, aRect, aState, AImageIndex);
    end

Видиш - вот код, оторый отображает картинку в методе TRxDBGrid.DrawCell

[Lemboy]

Работает!
Очень удобная связка ImageList - KeyList.

Самое забавное, что я этого ImageList property не то что не заметил - не нашел, хотя искал.

Спасибо!

[Lemboy]

Однако, есть вопрос.

Похоже, конструкция "ImageList - KeyList" перестает работать если в RxDBGrid.Options
параметры dgIndicator=False либо dgTitles=False
В этих случаях в соответствующей колонке вместо иконки отображается значение поля.

[mkazakov]

глупый вопрос а где взять компоненту KeyList?

[ZeUsM]

mkazakov

Посмотри у колонки свойсово ImageList
а также KeyList

Это не компоненты.

[mkazakov]

mkazakov

Посмотри у колонки свойсово ImageList
а также KeyList

Это не компоненты.

все равно в RxDbGrid я этого не обнаружил.

[ZeUsM]

Плохо смотрел.

[mkazakov]

Плохо смотрел.

Хорошо смотрел

[ZeUsM]

Не очень хорошо все таки смотрел, это свойство не грида, а колонки. Чтобы до него добраться нужно создать колонку, я вроде на скрине это показал, не?

[mkazakov]

Ок