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

SynEdit: ScrollTimerHandler, use ViewedPos

Browse Source 
git-svn-id: trunk@63284 -
This commit is contained in:
martin 2020-06-03 23:28:17 +00:00
parent 80b71e85fb
commit 1e0f270b8f
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/synedit/synedit.pp
View File

@ -4032,7 +4032,7 @@ end;
procedure TCustomSynEdit.ScrollTimerHandler(Sender: TObject);
var
C: TPoint;
ViewedCaret: TPoint;
CurMousePos: TPoint;
X, Y: Integer;
begin
@ -4044,7 +4044,9 @@ begin
CurMousePos:=Point(0,0);
GetCursorPos(CurMousePos);
CurMousePos:=ScreenToClient(CurMousePos);
C := PixelsToLogicalPos(CurMousePos);
// PixelsToViewedXY
ViewedCaret := YToPos(FTextArea.PixelsToRowColumn(CurMousePos, []));
ViewedCaret.y := ViewedCaret.y + ToIdx(TopView);
// recalculate scroll deltas
if CurMousePos.X < FTextArea.Bounds.Left then
@ -4068,7 +4070,7 @@ begin
X := LeftChar;
if fScrollDeltaX > 0 then // scrolling right?
Inc(X, CharsInWindow);
FCaret.LineCharPos := Point(X, C.Y);
FCaret.ViewedLineCharPos := Point(X, ViewedCaret.Y);
if (not(sfIsDragging in fStateFlags)) then
SetBlockEnd(LogicalCaretXY);
end;
@ -4078,11 +4080,11 @@ begin
else
TopView := TopView + fScrollDeltaY;
if fScrollDeltaY > 0
then Y := ToPos(FTheLinesView.ViewToTextIndex(TopView + LinesInWindow))
else Y := TopLine; // scrolling up
then Y := TopView + LinesInWindow
else Y := TopView; // scrolling up
if Y < 1 // past end of file
then y := FCaret.LinePos;
FCaret.LineCharPos := Point(C.X, Y);
then y := FCaret.ViewedLinePos;
FCaret.ViewedLineCharPos := Point(ViewedCaret.X, Y);
if (not(sfIsDragging in fStateFlags)) then
SetBlockEnd(LogicalCaretXY);
end;