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

Qt: improved clipping in TQtWidgetSet.ExtTextOut

Browse Source 
git-svn-id: trunk@38628 -
This commit is contained in:
zeljko 2012-09-13 06:18:38 +00:00
parent a494c8a157
commit 9b1a4002bc
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2246,18 +2246,16 @@ begin
if (Options and ETO_CLIPPED <> 0) then if (Options and ETO_CLIPPED <> 0) then
begin begin
B := QtDC.getClipping; QtDC.save;
if not B then try
begin
QtDC.save;
QtDC.setClipRect(Rect^); QtDC.setClipRect(Rect^);
if Dx <> nil then
DoDrawCharByChar(True)
else
QtDC.drawText(X, Y, Rect^.Right - Rect^.Left, Rect^.Bottom - Rect^.Top, 0, @WideStr);
finally
QtDC.Restore;
end; end;
if Dx <> nil then
DoDrawCharByChar(True)
else
QtDC.drawText(X, Y, Rect^.Right - Rect^.Left, Rect^.Bottom - Rect^.Top, 0, @WideStr);
if not B then
QtDC.restore;
end else end else
begin begin
if Dx <> nil then if Dx <> nil then