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

Gtk2: drawtext with rotated font. Issue #0027547

Browse Source 
git-svn-id: branches/fixes_1_4@48371 -
This commit is contained in:
mattias 2015-03-15 11:18:38 +00:00
parent 1ba345f660
commit 26ffa6be8e
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -2561,13 +2561,18 @@ var
end;
function NeedOffsetCalc: Boolean;
var
AClipRect: TRect;
begin
{see issue #27547}
AClipRect := RectFromGdkRect(TGtkDeviceContext(DC).ClipRect);
OffsetRect(AClipRect, -AClipRect.Left, -AClipRect.Top);
Result := (TGtkDeviceContext(DC).CurrentFont^.LogFont.lfOrientation <> 0) and
(Flags and DT_SINGLELINE <> 0) and
(Flags and DT_VCENTER = 0) and (Flags and DT_CENTER = 0) and
(Flags and DT_RIGHT = 0) and (Flags and DT_BOTTOM = 0) and
(Flags and DT_CALCRECT = 0) and not IsRectEmpty(SavedRect);
(Flags and DT_CALCRECT = 0) and not IsRectEmpty(SavedRect) and
EqualRect(AClipRect, Rect);
end;