paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 03:57:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

(Qt): Fixed bug #9368 - we must pass empty region instead of nil.

Browse Source 
git-svn-id: trunk@11747 -
This commit is contained in:
zeljko 2007-08-06 12:03:18 +00:00
parent 46f8083546
commit 9aca341e7e
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt/qtwinapi.inc
View File

@ -3774,6 +3774,7 @@ end;
function TQtWidgetSet.SelectClipRGN(DC: hDC; RGN: HRGN): Longint; function TQtWidgetSet.SelectClipRGN(DC: hDC; RGN: HRGN): Longint;
var var
ARegion: QRegionH; ARegion: QRegionH;
EmptyRegion: QRegionH;
Painter: QPainterH; Painter: QPainterH;
R: TRect; R: TRect;
begin begin
@ -3784,7 +3785,14 @@ begin
if RGN <> 0 then if RGN <> 0 then
QPainter_setClipRegion(Painter, TQtRegion(Rgn).Widget) QPainter_setClipRegion(Painter, TQtRegion(Rgn).Widget)
else else
QPainter_setClipRegion(Painter, nil, QtNoClip); begin
EmptyRegion := QRegion_create;
try
QPainter_setClipRegion(Painter, EmptyRegion, QtNoClip);
finally
QRegion_destroy(EmptyRegion);
end;
end;
if QPainter_hasClipping(Painter) then if QPainter_hasClipping(Painter) then
begin begin
ARegion := QRegion_Create; ARegion := QRegion_Create;