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

(Qt): handle null region in SelectClipRgn

Browse Source 
git-svn-id: trunk@11715 -
This commit is contained in:
paul 2007-08-02 16:08:11 +00:00
parent a1a71f0c90
commit e29b652d4d
1 changed files with 12 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3724,41 +3724,35 @@ var
ARegion: QRegionH;
Painter: QPainterH;
R: TRect;
R1: PRect;
begin
result := ERROR;
Result := ERROR;
if IsValidDC(DC) then
begin
Painter := TQtDeviceContext(DC).Widget;
QPainter_setClipRegion(Painter, TQtRegion(Rgn).Widget);
if RGN <> 0 then
QPainter_setClipRegion(Painter, TQtRegion(Rgn).Widget)
else
QPainter_setClipRegion(Painter, nil, QtNoClip);
if QPainter_hasClipping(Painter) then
begin
ARegion := QRegion_Create;
try
QPainter_ClipRegion(Painter, ARegion);
if QRegion_isEmpty(ARegion) then
result := NULLREGION
Result := NULLREGION
else
begin
QRegion_boundingRect(ARegion, @R);
New(R1);
try
R1^ := R;
if QRegion_contains(ARegion, R1)
then
result := SIMPLEREGION
if QRegion_contains(ARegion, PRect(@R)) then
Result := SIMPLEREGION
else
Result := COMPLEXREGION;
finally
Dispose(R1);
end;
end;
finally
QRegion_Destroy(ARegion);
end;
end else begin
result := NULLREGION;
end;
end else
Result := NULLREGION;
end;
end;