From 7ad7c7836732530d6d86cadf017dfbc59b86ba10 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Wed, 31 Aug 2011 12:29:29 +0200 Subject: textedit: searched matches are now scrolled more into the center of visible text Before the searched results scrolled into view as the first visible line. This doesn't give the developer much context to work with. --- examples/apps/ide/src/fpg_textedit.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'examples/apps') 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; -- cgit v1.2.3-70-g09d2