paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 11:59:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: fixed MoveCaretToVisibleArea to move in one step and treating codefolding correctly, bug #8479

Browse Source 
git-svn-id: trunk@14319 -
This commit is contained in:
mattias 2008-02-29 17:03:20 +00:00
parent 095cf0e3c4
commit 2f6693b16f
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/synedit/synedit.pp
View File

@ -395,7 +395,7 @@ type
fHighlighterNeedsUpdateEndLine: integer; // 1 based, 0 means invalid
{$ENDIF}
fLines: TStrings;
fLinesInWindow: Integer;
fLinesInWindow: Integer;// MG: fully visible lines in window
fLeftChar: Integer; // first visible screen column
fMaxLeftChar: Integer; // 1024
fPaintLock: Integer;
@ -5652,13 +5652,25 @@ end;
{$IFDEF SYN_LAZARUS}
procedure TCustomSynEdit.MoveCaretToVisibleArea;
// scroll to make the caret visible
var
NewCaretXY: TPoint;
MaxY: LongInt;
begin
if caretX < fLeftChar then caretX := fLeftChar
else if caretX >= fLeftChar + fCharsInWindow then
caretX := fLeftChar + fCharsInWindow - 1;
if caretY < fTopLine then caretY := fTopLine
else if caretY >= fTopLine + fLinesInWindow then
caretY := fTopLine + fLinesInWindow - 1;
NewCaretXY:=CaretXY;
if NewCaretXY.X < fLeftChar then
NewCaretXY.X := fLeftChar
else if NewCaretXY.X >= fLeftChar + fCharsInWindow then
NewCaretXY.X := fLeftChar + fCharsInWindow - 1;
if NewCaretXY.Y < fTopLine then
NewCaretXY.Y := fTopLine
else begin
MaxY:=ScreenRowToRow(fTopLine + Max(0,fLinesInWindow-1));
if NewCaretXY.Y > MaxY then
NewCaretXY.Y := MaxY;
end;
if CompareCarets(CaretXY,NewCaretXY)<>0 then
CaretXY:=NewCaretXY;
end;
procedure TCustomSynEdit.MoveCaretIgnoreEOL(const NewCaret: TPoint);