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

SynEdit: Prepare displaying ligatures (experimental, window only)

Browse Source 
git-svn-id: trunk@39543 -
This commit is contained in:
martin 2012-12-14 18:58:30 +00:00
parent 5abfc81665
commit c76c2bdb6f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedittextsystemcharwidth.pas
View File

@ -110,8 +110,10 @@ begin
i := GetCharacterPlacementW(FHandleOwner.Handle, pwidechar(s), length(s), 0,
@cpRes, GCP_DIACRITIC + GCP_KASHIDA + GCP_LIGATE);
if i = 0 then
if i = 0 then begin
debugln(LOG_SynSystemWidthChars, ['TSynEditStringSystemWidthChars FAILED for line ', Index]);
exit;
end;
k := 0; // index for order