diff --git a/components/synedit/lazsynimm.pas b/components/synedit/lazsynimm.pas index d66b1d6847..42e625b4cb 100644 --- a/components/synedit/lazsynimm.pas +++ b/components/synedit/lazsynimm.pas @@ -643,13 +643,13 @@ begin ImmGetCompositionStringW(imc, GCS_COMPATTR, p, ImeCount + 2); //DebugLn(dbgMemRange(PByte( p), ImeCount)); i := 0; - while {%H-}i < ImeCount do begin + while longword(i) < ImeCount do begin if ord(p[i]) = ATTR_TARGET_CONVERTED then begin x := FImeBlockSelection.StartBytePos; xy.x := x + CharToByte(x, i); FImeBlockSelection2.StartLineBytePos := xy; inc(i); - while {%H-}i < ImeCount do begin + while longword(i) < ImeCount do begin if (ord(p[i]) <> ATTR_TARGET_CONVERTED) or (i = ImeCount-1) then begin if (ord(p[i]) = ATTR_TARGET_CONVERTED) then inc(i); diff --git a/components/synedit/syngutterlineoverview.pp b/components/synedit/syngutterlineoverview.pp index 6ba198761a..6ee09f54fb 100644 --- a/components/synedit/syngutterlineoverview.pp +++ b/components/synedit/syngutterlineoverview.pp @@ -542,7 +542,7 @@ function TSynGutterLOvLineMarksList.TextLineToPixLine(ATxtLine: Integer): Intege begin if PixelHeight < 1 then exit(0); - Result := Int64({%H-}ATxtLine - 1) * Int64(PixelHeight) div TextLineCount; + Result := (Int64(ATxtLine) - 1) * Int64(PixelHeight) div TextLineCount; If FPixelPerLine * 2 < ItemHeight then dec(Result)