Текущий архив: 2003.04.24;
Скачать: CL | DM;
Вниз
Как рисовать на заголовке формы? Найти похожие ветки
← →
Мыш © (2003-04-13 04:19) [0]subj
← →
default © (2003-04-13 04:32) [1]GetWindowDC и вперёд!
← →
Мыш © (2003-04-13 05:15) [2]Спасибо!
← →
Мыш © (2003-04-14 08:24) [3]
Ок, делаю так:
[code]
procedure TForm1.WM_NCPAINT(var m: tWMNCPAINT);
var
rgn1:hrgn;
PaintHandle:hdc;
canv:tcanvas;
begin
canv:=tcanvas.Create;
inherited;
PaintHandle:=GetWindowDC(m.RGN);
Canvas.Handle:= PaintHandle;
canv.Rectangle(0,0,11,11);
ReleaseDC (m.RGN,PaintedHandle);
canv.Free;
end;
[/code]
Пишет, что canvas does not allow drawing
← →
Skier © (2003-04-14 09:22) [4]
inherited;
canv:=tcanvas.Create;
PaintHandle:=GetWindowDC(m.RGN);
try
canv.Handle:= PaintHandle;
canv.Rectangle(0,0,11,11);
finally
ReleaseDC (m.RGN,PaintedHandle);
canv.Free;
end;
Страницы: 1 вся ветка
Текущий архив: 2003.04.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.021 c
