mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 10:39:30 +02:00
Qt: formatting
git-svn-id: trunk@31213 -
This commit is contained in:
parent
9e55bbb266
commit
74bcb1d11f
@ -631,8 +631,8 @@ begin
|
|||||||
|
|
||||||
if (TQtDeviceContext(CanvasHandle).vImage <> nil) then
|
if (TQtDeviceContext(CanvasHandle).vImage <> nil) then
|
||||||
begin
|
begin
|
||||||
// This code results in ARGB values, but TColor uses ABGR
|
// This code results in ARGB values, but TColor uses ABGR
|
||||||
// Result := TColor(QImage_pixel(TQtDeviceContext(CanvasHandle).vImage.Handle, X, Y));
|
// Result := TColor(QImage_pixel(TQtDeviceContext(CanvasHandle).vImage.Handle, X, Y));
|
||||||
|
|
||||||
Color := QColor_create(QImage_pixel(TQtDeviceContext(CanvasHandle).vImage.Handle, X, Y));
|
Color := QColor_create(QImage_pixel(TQtDeviceContext(CanvasHandle).vImage.Handle, X, Y));
|
||||||
|
|
||||||
@ -720,7 +720,7 @@ begin
|
|||||||
(aObject is TQtBrush) or
|
(aObject is TQtBrush) or
|
||||||
(aObject is TQtImage) or
|
(aObject is TQtImage) or
|
||||||
(aObject is TQtPen) or
|
(aObject is TQtPen) or
|
||||||
(aObject is TQTRegion);
|
(aObject is TQtRegion);
|
||||||
end;
|
end;
|
||||||
except
|
except
|
||||||
DebugLn(['Gdi object: ', GDIObject, ' is not an object!']);
|
DebugLn(['Gdi object: ', GDIObject, ' is not an object!']);
|
||||||
|
Loading…
Reference in New Issue
Block a user