Рамка вокруг региона????

← →
tytus © (2007-09-20 12:51) [0]

Доброго дня Всем!
Что-то не получается сия рамка. Вот что делаю:
private
{ Private declarations }
Region:HRGN;
RgnArray:array[0..3]of TPoint;
procedure WMNCHitTest(var Message:TWMNCHitTest);message WM_NCHITTEST;

procedure TMainFm.WMNCHitTest(var Message:TWMNCHitTest);
begin
Message.Result:=HTCAPTION;
end;

procedure TMainFm.FormCreate(Sender: TObject);
var
r:TRect;
begin
Windows.GetClientRect(Handle,r);
RgnArray[0]:=Point(0,0);
RgnArray[1]:=Point(200,0);
RgnArray[2]:=Point(200,200);
RgnArray[3]:=Point(0,200);
Region:=CreatePolygonRgn(RgnArray,4,ALTERNATE);
SetWindowRgn(Handle,Region,true);
end;

procedure TMainFm.FormPaint(Sender: TObject);
begin
Canvas.Brush.Color:=clRed;
FrameRgn(Canvas.Handle,Region,Canvas.Brush.Handle,2,2);
end;

И как нарисовать рамку - ну никак не получается!!!!
??

← →
DiamondShark © (2007-09-20 13:15) [1]

> И как нарисовать рамку - ну никак не получается!!!!

А если нарисовать рамку на один пиксел с каждой стороны меньше, чем регион?

← →
tytus © (2007-09-20 13:22) [2]

>DiamondShark © (20.09.07 13:15) [1]
да вааще не рисует НИКАК!!!
ктому-же можно задать шир. и выс. побольше в FrameRgn...

← →
DiamondShark © (2007-09-20 13:25) [3]

А, блин. Торможу.

RTFM, конечно.

After a successful call to SetWindowRgn, the system owns the region specified by the region handle hRgn. The system does not make a copy of the region. Thus, you should not make any further function calls with this region handle. In particular, do not delete this region handle. The system deletes the region handle when it no longer needed.

← →
Lacmus © (2007-09-20 13:31) [4]

procedure TForm66.FormPaint(Sender: TObject); var Region: HRgn; begin Region := CreateRectRgn(0, 0, 0, 0); if GetWindowRgn(Handle, Region) <> ERROR then try Canvas.Brush.Color:=clRed; FrameRgn(Canvas.Handle,Region,Canvas.Brush.Handle,2,2); finally DeleteObject(Region) end end;

> procedure TForm66.FormPaint(Sender: TObject);
> var
> Region: HRgn;
> begin
> Region := CreateRectRgn(0, 0, 0, 0);
> if GetWindowRgn(Handle, Region) <> ERROR then try
> Canvas.Brush.Color:=clRed;
> FrameRgn(Canvas.Handle,Region,Canvas.Brush.Handle,2,2);
> finally
> DeleteObject(Region)
> end
> end;

procedure TForm66.FormPaint(Sender: TObject); var Region: HRgn; begin Region := CreateRectRgn(0, 0, 0, 0); try if GetWindowRgn(Handle, Region) <> ERROR then begin Canvas.Brush.Color:=clRed; FrameRgn(Canvas.Handle,Region,Canvas.Brush.Handle,5,5); end; finally DeleteObject(Region); end end;

Рамка вокруг региона???? Найти похожие ветки