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

SynEdit: Win-IME, ifdef debugln

Browse Source 
git-svn-id: trunk@65177 -
This commit is contained in:
martin 2021-06-05 22:33:57 +00:00
parent 67dbe4986f
commit f57d444718
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/lazsynimm.pas
View File

@ -709,7 +709,9 @@ begin
GetMem(p, ImeCount + 2); GetMem(p, ImeCount + 2);
try try
ImmGetCompositionStringW(imc, GCS_COMPATTR, p, ImeCount + 2); ImmGetCompositionStringW(imc, GCS_COMPATTR, p, ImeCount + 2);
{$IFDEF WinIMEDebug}
DebugLn(dbgMemRange(PByte( p), ImeCount)); DebugLn(dbgMemRange(PByte( p), ImeCount));
{$ENDIF}
i := 0; i := 0;
while longword(i) < ImeCount do begin while longword(i) < ImeCount do begin
if ord(p[i]) = ATTR_TARGET_CONVERTED then begin if ord(p[i]) = ATTR_TARGET_CONVERTED then begin