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

SynEdit (IFDEF Windows) Make RTL text always drawn at fixed pos

Browse Source 
git-svn-id: trunk@39526 -
This commit is contained in:
martin 2012-12-13 01:41:08 +00:00
parent 4b0b5075e7
commit 1a6221fb76
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/lazsyntextarea.pp
View File

@ -1486,7 +1486,9 @@ var
end;
NeedExpansion := (ATokenInfo.ExpandedExtraBytes > 0) or (ATokenInfo.HasTabs);
NeedTransform := FTextDrawer.NeedsEto or ATokenInfo.HasDoubleWidth or NeedExpansion;
NeedTransform := FTextDrawer.NeedsEto or ATokenInfo.HasDoubleWidth or NeedExpansion
{$IFDEF Windows} or ATokenInfo.RtlInfo.IsRtl {$ENDIF}
;
Len := ATokenInfo.Tk.TokenLength;
if (not ATokenInfo.RtlInfo.IsRtl) or (LineBufferRtlLogPos <> ATokenInfo.RtlInfo.LogFirst) then
FEtoBuf := nil;
@ -1513,7 +1515,9 @@ var
end;
// Prepare FETOBuf
if FTextDrawer.NeedsEto or ATokenInfo.HasDoubleWidth then begin
if FTextDrawer.NeedsEto or ATokenInfo.HasDoubleWidth
{$IFDEF Windows} or ATokenInfo.RtlInfo.IsRtl {$ENDIF} // RTL may have script with ligature
then begin
FEtoBuf := FTextDrawer.Eto;
FEtoBuf.SetMinLength(Len + ATokenInfo.ExpandedExtraBytes + 1);
c := FTextDrawer.GetCharWidth;