From 7c2f9cfff16dd3f67c5ead5f6be3ff01e892b59e Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 16 Feb 2015 11:54:34 +0000 Subject: [PATCH] synedit: less hints git-svn-id: trunk@47825 - --- components/synedit/lazsynimm.pas | 4 ++-- components/synedit/syngutterlineoverview.pp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) 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)