paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-07 04:10:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix StringGrid DrawCell RTL (Bidi). Issue #28867, patch from Zaher Dirkey.

Browse Source 
git-svn-id: trunk@50187 -
This commit is contained in:
juha 2015-10-27 22:16:21 +00:00
parent 030f238cbd
commit 8b83841913
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/grids.pas
View File

@ -3599,7 +3599,10 @@ begin
CurrentTextStyle.SingleLine := (gc = nil) or (not gc.Title.MultiLine);
Canvas.TextStyle := CurrentTextStyle;
end else begin
Canvas.TextStyle := DefaultTextStyle;
CurrentTextStyle := DefaultTextStyle;
CurrentTextStyle.Alignment := BidiFlipAlignment(CurrentTextStyle.Alignment, UseRightToLeftAlignment);
CurrentTextStyle.RightToLeft := UseRightToLeftAlignment;
Canvas.TextStyle := CurrentTextStyle;
Canvas.Brush.Color := clWindow;
Canvas.Font.Color := clWindowText;
end;