Скачать: 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 вся ветка

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



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