| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

DrawGrid [D7, Win95/98, WinME, NT4, Win2k, WinXP]

Stdnet ©   (2003-02-20 16:32:00) 

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

---

IceMan_T   (2003-03-09 12:24:00) [1]

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

Обрабатываешь сообщение 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;

---

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

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

---

Song   (2003-02-20 20:57:00) [3]

TDrawGrid.onDrawCell

---

Наверх