paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 16:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5: simplified code

Browse Source 
git-svn-id: trunk@62898 -
This commit is contained in:
zeljko 2020-04-06 12:30:21 +00:00
parent fee54a4bf2
commit 6ae0f6b158
1 changed files with 1 additions and 4 deletions

5
lcl/interfaces/qt5/qtobjects.pas
View File

@ -3285,11 +3285,8 @@ begin
end;
function TQtDeviceContext.getDepth: integer;
var
device: QPaintDeviceH;
begin
device := QPainter_device(Widget);
Result := QPaintDevice_depth(Device);
Result := QPaintDevice_depth(QPainter_device(Widget));
end;
function TQtDeviceContext.getDeviceSize: TPoint;