Форум: "Система";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Система";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c