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

LCL: Implemented ETO_RTLREADING for TCanvas.TextOut(). issue #30514

Browse Source 
git-svn-id: trunk@53825 -
This commit is contained in:
zeljko 2017-01-01 12:04:11 +00:00
parent 29e4421f5a
commit dc36528c42
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/canvas.inc
View File

@ -1357,6 +1357,8 @@ begin
Flags := 0; Flags := 0;
if TextStyle.Opaque then if TextStyle.Opaque then
Flags := ETO_Opaque; Flags := ETO_Opaque;
if TextStyle.RightToLeft then
Flags := Flags or ETO_RTLREADING;
ExtUTF8Out(FHandle, X, Y, Flags, nil, PChar(Text), Length(Text), nil); ExtUTF8Out(FHandle, X, Y, Flags, nil, PChar(Text), Length(Text), nil);
MoveTo(X + TextWidth(Text), Y); MoveTo(X + TextWidth(Text), Y);
Changed; Changed;

1
lcl/lcltype.pp
View File

@ -224,6 +224,7 @@ type
const const
ETO_OPAQUE = 2; ETO_OPAQUE = 2;
ETO_CLIPPED = 4; ETO_CLIPPED = 4;
ETO_RTLREADING = 128;
CS_VREDRAW = dword(1); CS_VREDRAW = dword(1);
CS_HREDRAW = dword(2); CS_HREDRAW = dword(2);