From c1cf10c36fb4119aaa96b8dc58980c64a3182e6e Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Wed, 31 Aug 2011 18:51:19 +0200 Subject: textedit: correctly scroll the found text into view. --- examples/apps/ide/src/fpg_textedit.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'examples') diff --git a/examples/apps/ide/src/fpg_textedit.pas b/examples/apps/ide/src/fpg_textedit.pas index 1bb24a62..13ef0272 100644 --- a/examples/apps/ide/src/fpg_textedit.pas +++ b/examples/apps/ide/src/fpg_textedit.pas @@ -1376,8 +1376,8 @@ begin 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-10) * FChrH; // move selection more into the centre + if (I < FTopLine) or (I > (FTopLine + FVisLines - 2)) then + ScrollY := (I-10) * FChrH; // move selection into view ScrollTo(ScrollX, ScrollY); end; Result := True; @@ -1458,8 +1458,8 @@ begin ScrollY := FTopLine * FChrH; if ((FindPos.x + Length(SrcWord)) * FChrW) - FChrW > GetClientRect.Width then ScrollX := (FindPos.x * FChrW) - (2 * FChrW); - if I < (FTopLine -2 ) then - ScrollY := (I-10) * FChrH; // move selection more into the centre + if (I < FTopLine) or (I > (FTopLine + FVisLines - 2)) then + ScrollY := (I-10) * FChrH; // move selection into view ScrollTo(ScrollX, ScrollY); end; Result := True; -- cgit v1.2.3-70-g09d2