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

synedit: less hints

Browse Source 
git-svn-id: trunk@47825 -
This commit is contained in:
mattias 2015-02-16 11:54:34 +00:00
parent 2b3e6ffe55
commit 7c2f9cfff1
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/lazsynimm.pas
View File

@ -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);

2
components/synedit/syngutterlineoverview.pp
View File

@ -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)