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

lcl: less with-blocks for FPC 3.1.1

Browse Source 
git-svn-id: trunk@50302 -
This commit is contained in:
mattias 2015-11-11 13:40:23 +00:00
parent e926976aa9
commit 84975022d6
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1476,8 +1476,7 @@ begin
WideStr := QtDC.Metrics.elidedText(WideStr, QtElideRight, Right - Left, 0);
end;
with ARect do
QtDC.DrawText(Left + Pt.X, Top + Pt.Y, Right-Left, Bottom-Top, F, @WideStr);
QtDC.DrawText(ARect.Left + Pt.X, ARect.Top + Pt.Y, ARect.Right-ARect.Left, ARect.Bottom-ARect.Top, F, @WideStr);
end;
{------------------------------------------------------------------------------