Почему не получаются регионы?

← →
Dy1 © (2007-08-09 20:33) [0]

панель "panc" всегда квадратная
procedure ClkAdd; var p: PClock; r: hRGN; begin New(p); p^.pan := NewPanel( Form1.SB, esRaised).PlaceDown; p^.pan.Width := 120; p^.pan.Height := 138; p^.pan.Transparent := True; p^.panc := NewPanel( p^.pan, esRaised).SetPosition(20,1).SetSize(68,68); r := CreateRoundRectRgn(0,0, 68,68, 15,5); SetWindowRgn(p^.panc.Handle, r, True);

← →
Vladimir Kladov (2007-08-09 21:13) [1]

.Handle -> .GetWindowHandle

← →
Dy1 © (2007-08-11 11:51) [2]

Спасибо, GetWindowHandle помогло.

Панель в форме круга. Как закрасить углы этой панели? (при движении появляются полосы) FillRect и т.п. не помогают.

← →
Vladimir Kladov (2007-08-11 18:01) [3]

Углы же не от этого окна, раз вы их обрзали. За углы теперь другой контрол отвечает, который под ним лежит (скорее всего, родительский).

и над ним издевался

Почему не получаются регионы? Найти похожие ветки