Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

VALUA © (2006-07-24 17:21:00)
Здравствуйте ! Проблема такая . Создала в 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 . Что не так ?
Всем спасибо .

VALUA (2006-07-24 17:56:00) [1]
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;

Johnmen (2006-07-24 17:32:00) [2]
http://delphikingdom.ru/asp/itemq.asp?mode=1&componentID=169

KilkennyCat (2006-07-24 17:31:00) [3]
и строки.
в onDrawCell это соответственно aCol и aRow

stone (2006-07-24 17:24:00) [4]
Ты перед тем как рисовать делай проверку колонки

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »