GUI & Clipping-Rects or Region

[Stefan Kramer]

Hallo,<br>
<br>
wer kennt sich mit dem Umgang von Clipping-Rects bzw. Region aus? <br>
<br>
Wie ein ClipingRect angelegt wird bekomme ich noch hin. <br>
Aber wie sicher ich ein bestehendes Rect, tausche es gegen ein anderes <br>
temporär aus, und stelle das Alte wieder her?<br>
<br>
Gruss Stefan

[Hagen Reddmann]

Hi

<pre>

var
SaveRgn, NewRgn: hRgn;
begin
SaveRgn := 0;
NewRgn := 0;
try
SaveRgn := CreateRectRgn(0, 0, 0, 0); // leere Region
GetClipRgn(Canvas.Handle, SaveRgn);
NewRgn := CreateRectRgn(10, 10, 100, 100);
if ExtSelectClipRgn(Canvas.Handle, NewRgn, RGN_COPY) <> NULLREGION then
begin
paint....
end;
SelectClipRgn(Canvas.Handle, SaveRgn);
finally
if SaveRgn <> 0 then DeleteObject(SaveRgn);
if NewRgn <> 0 then DeleteObject(NewRgn);
end;
end;

</pre>

Gruß Hage