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

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;

---

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

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



Память: 0.45 MB
Время: -0.989 c