DrawGrid

← →
Stdnet (2003-02-20 16:32) [0]

Здравствуйте мастра! Подскаже как в DrawGrid при нажатии на пустую ячейку в ней появлялся какойто битмап

← →
Song © (2003-02-20 20:57) [1]

TDrawGrid.onDrawCell

← →
Stdnet (2003-02-20 23:52) [2]

А картинку как вставлять?

← →
IceMan_T (2003-03-09 12:24) [3]

>А картинку как вставлять?

Обрабатываешь сообщение onDrawCell:

var
Bmp:TBitMap;
BMPRect:TRect;
Offset:integer;
begin
with Canvas do
begin
FillRect(Rect);
Bmp:=TBitMap.Create;
BMP.Assign(LoadFromLib(BmpName));
if Bmp <> nil then
begin
BMP.Transparent:=true;
BMPRect:=Bounds(Rect.Left + 2, Rect.Top,
Rect.Bottom-Rect.Top, Rect.Bottom-Rect.Top);
StretchDraw(BMPRect, Bmp);
Offset := Rect.Bottom-Rect.Top + 6;
end;
TextOut(Rect.Left+Offset,Rect.Top,Text);
Bmp.Free;
end;
end;

DrawGrid Найти похожие ветки