paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 10:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: TQtWidgetSet.PtInRegion(), allow TQtImage as RGN param. issue #27080

Browse Source 
git-svn-id: trunk@47054 -
This commit is contained in:
zeljko 2014-12-02 08:08:05 +00:00
parent e1568172ef
commit d574f382b8
1 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5131,13 +5131,38 @@ begin
end;
function TQtWidgetSet.PtInRegion(RGN: HRGN; X, Y: Integer): Boolean;
var
ARegion: TQtRegion;
AClipRegion: QRegionH;
AOrigin: TQtPoint;
APainter: QPainterH;
begin
Result := False;
if not IsValidGDIObject(RGN) then
exit;
Result := TQtRegion(RGN).containsPoint(X, Y);
if TObject(RGN) is TQtImage then
begin
ARegion := TQtRegion.Create(True, 0, 0, TQtImage(RGN).width, TQtImage(RGN).height);
try
if QPaintEngine_isActive(QImage_paintEngine(TQtImage(RGN).Handle)) then
begin
APainter := QPaintEngine_painter(QImage_paintEngine(TQtImage(RGN).Handle));
if APainter = nil then
exit;
AClipRegion := QRegion_create();
QPainter_clipRegion(APainter, AClipRegion);
AOrigin.x := X;
AOrigin.y := Y;
Result := QRegion_contains(AClipRegion, PQtPoint(@AOrigin));
QRegion_destroy(AClipRegion);
end else
Result := ARegion.containsPoint(X, Y);
finally
ARegion.Free;
end;
end else
Result := TQtRegion(RGN).containsPoint(X, Y);
end;
{------------------------------------------------------------------------------