diff options
Diffstat (limited to 'examples/apps')
-rw-r--r-- | examples/apps/ide/src/fpg_textedit.pas | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/examples/apps/ide/src/fpg_textedit.pas b/examples/apps/ide/src/fpg_textedit.pas index dac81657..1bb24a62 100644 --- a/examples/apps/ide/src/fpg_textedit.pas +++ b/examples/apps/ide/src/fpg_textedit.pas @@ -1373,11 +1373,11 @@ begin if AllowScroll then begin ScrollX := 0; - ScrollY := (FTopLine * FChrH); + ScrollY := FTopLine * FChrH; if ((FindPos.x + Length(SrcWord)) * FChrW) - FChrW > GetClientRect.Width then ScrollX := (FindPos.x * FChrW) - 2 * FChrW; if I > (FTopLine + FVisLines - 2) then - ScrollY := I * FChrH; + ScrollY := (I-10) * FChrH; // move selection more into the centre ScrollTo(ScrollX, ScrollY); end; Result := True; @@ -1455,11 +1455,11 @@ begin if AllowScroll then begin ScrollX := 0; - ScrollY := (FTopLine * FChrH); + ScrollY := FTopLine * FChrH; if ((FindPos.x + Length(SrcWord)) * FChrW) - FChrW > GetClientRect.Width then - ScrollX := (FindPos.x * FChrW) - 2 * FChrW; - if I > FTopLine + FVisLines - 2 then - ScrollY := I * FChrH; + ScrollX := (FindPos.x * FChrW) - (2 * FChrW); + if I < (FTopLine -2 ) then + ScrollY := (I-10) * FChrH; // move selection more into the centre ScrollTo(ScrollX, ScrollY); end; Result := True; |