рисовать на канве то, что находится под ней (под формой)

← →
Ландграф Павел © (2005-09-04 21:13) [0]

Нужно сделать форму буквой "Г", т.е. одну прямоугольную область сделать прозрачной, думаю кинуть канву, и нарисовать на ней то, что должны мы видеть=) подскажите как реализовать...

← →
Zacho © (2005-09-04 21:32) [1]

Лучше почитай про регионы.

← →
Турист (2005-09-04 21:36) [2]

>Ландграф Павел © (04.09.05 21:13)

вариант Zacho © (04.09.05 21:32) [1]

procedure TForm1.FormCreate(Sender: TObject); var Rgn1, Rgn2, Rgn3: HRGN; begin Width := Height div 2; Rgn1 := CreateRectRgn(0, 0, Width, Height); try Rgn2 := CreateRectRgn(60, 60, Width, Height); try Rgn3 := CreateRectRgn(0, 0, 0, 0); CombineRgn(Rgn3, Rgn1, Rgn2, RGN_DIFF); SetWindowRgn(Handle, Rgn3, False) finally DeleteObject(Rgn2) end finally DeleteObject(Rgn1) end end;

← →
LiqSir (2005-09-04 21:43) [3]

используй TransparentColor в свойствах формы.

Если не получится, вот код, делает снимок экрана:

var Form1: TForm1; BackgroundCanvas: TCanvas; BGbitmap: TBitmap; BGbitmap := TBitmap.Create; BGbitmap.Width := Screen.Width; BGbitmap.Height := Screen.Height; BackgroundCanvas := TCanvas.Create; BackgroundCanvas.Handle := GetDC(0); BGbitmap.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),BackgroundCanvas ,Rect(0,0,Screen.Width,Screen.Height));

Турист>> Спасибо, быстро и работает!
LiqSir>> Компы на которых w98 "такие"... что этот код будет тормозить всю систему=)

рисовать на канве то, что находится под ней (под формой) Найти похожие ветки