Вниз
Скачать: CL | DM;

Картинка в столбце DbGridEh по определенному условию.   Найти похожие ветки 

 
denik   (2005-01-13 01:48) [0]

Как мне поместить в определенный столбец картинку из TImageList при выполнении определенного условия.

В DbGridEh картинка почему то не выводится.

procedure ...DrawColumnCell(...

if DataSource.DataSet.FieldByName("org_email").AsString <> "" then
begin
    imgList.Draw(TDBGridEh(Sender).Canvas,Rect.Left,Rect.Top, 2);
end;

...
end;


 
Johnmen ©   (2005-01-13 09:09) [1]

Сначала
TDBGridEh(Sender).Canvas.FillRect(Rect);
потом
imgList.Draw(TDBGridEh(Sender).Canvas,Rect.Left,Rect.Top, 2);


 
HSolo ©   (2005-01-13 09:14) [2]

Есть YourImageList, в нем есть картинки, у картинок есть индексы.
В Вашем DataSet должно быть поле, содержащее индексы нужных картинок. Выводите это поле в том самом "определенном столбце" и укажите его свойства:
1) DbGridEh.Columns[i].ImageList := YourImageList;
2) DbGridEh.Columns[i].KeyList - перечислите индексы из Вашего ImageList


 
Johnmen ©   (2005-01-13 09:16) [3]

>HSolo ©   (13.01.05 09:14) [2]
>В Вашем DataSet должно быть поле, содержащее индексы нужных картинок

Это ты про свою программу...:)


 
ЮЮ ©   (2005-01-13 09:35) [4]

>Johnmen ©   (13.01.05 09:09) [1]
Типа на "неочищенном" прямоугольнике не рисуются? :)

Может DefaultDrawing не отключил?


 
denik   (2005-01-13 10:06) [5]

>> Johnmen ©   (13.01.05 09:09) [1]

Спасибо огромное, помогло. :))


 
Erik1 ©   (2005-01-13 10:48) [6]

В [2] более стандартное решение.


 
HSolo ©   (2005-01-13 10:49) [7]

>Johnmen ©   (13.01.05 09:16) [3]
>Это ты про свою программу...:)
Ага :) А также про ту демку, которая идет с EHlib.
Я просто предлагаю другой вариант решения задачи - с учетом того, что используется DbGridEh. Какой вариант выбрать - решать автору вопроса :)



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c
6-1101471915
Vikky
2004-11-26 15:25
2005.02.13
Компонент для работы с SMTP и POP


6-1101679609
dms_main
2004-11-29 01:06
2005.02.13
Delphi&amp;IE


14-1106311908
мазербо)
2005-01-21 15:51
2005.02.13
есть у кого Hellsing?


1-1107264281
Zloy
2005-02-01 16:24
2005.02.13
Фокус кнопки


1-1106912574
Толян
2005-01-28 14:42
2005.02.13
Возможности Delphi




   Наверх