DBGRID - как поместить графическое изображение в колонку

← →
VALUA (2006-07-24 17:21) [0]

Здравствуйте ! Проблема такая . Создала в DBGrid1 пустую колонку , хотела поместить в нее значок , чтобы кликать на него в определенной строке и раскрывался другой набор данных (DBGrid2) . Сделала такой код по советам пользователям из Интернета :

var IM1:TBitmap;
begin
IM1 := TBitmap.Create;
if (DBGrid1.Columns[0].FieldName = "") then begin
with DBGrid1.Canvas do begin
Brush.Color := clWhite;
Canvas.FillRect(Rect);
DataModule1.ImageList1.GetBitmap(27,IM1);
Draw(round((Rect.Left+Rect.Right-Im1.Width)/2),Rect.Top,Im1);
end;
end;

Графическое изображение появляется во всех колонках , а мне надо только в первой , во всех строках DBGrid1 . Что не так ?
Всем спасибо .

← →
stone © (2006-07-24 17:24) [1]

Ты перед тем как рисовать делай проверку колонки

← →
KilkennyCat © (2006-07-24 17:31) [2]

и строки.
в onDrawCell это соответственно aCol и aRow

← →
Johnmen © (2006-07-24 17:32) [3]

http://delphikingdom.ru/asp/itemq.asp?mode=1&componentID=169

← →
VALUA (2006-07-24 17:56) [4]

var IM1:TBitmap;
//добавила -> nom:Integer;
begin
with DBGrid1.Canvas do begin
IM1 := TBitmap.Create;
//добавила ->
nom:= DataCol;
if nom = 0 then begin
//
Brush.Color := clWhite;
Canvas.FillRect(Rect);
DataModule1.ImageList1.GetBitmap(27,IM1);
Draw(round((Rect.Left+Rect.Right-Im1.Width)/2),Rect.Top,Im1);
end;
end;

все получилось . Надо проверять nom:= DataCol;

DBGRID - как поместить графическое изображение в колонку Найти похожие ветки