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

synedit: fix scroll direction

Browse Source 
git-svn-id: trunk@14325 -
This commit is contained in:
paul 2008-02-29 18:30:09 +00:00
parent 975886c991
commit 4a8708a5ad
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -5618,7 +5618,7 @@ begin
OldTopLine:=TopLine;
fTopLine := Value;
UpdateScrollBars;
Delta := TopLine - OldTopLine;
Delta := OldTopLine - TopLine;
if Abs(Delta) < fLinesInWindow then
begin
// TODO: SW_SMOOTHSCROLL --> can't get it work
@ -5680,7 +5680,9 @@ begin
NewCaretXY.Y := MaxY;
end;
if CompareCarets(CaretXY,NewCaretXY)<>0 then
begin
CaretXY:=NewCaretXY;
end;
end;
procedure TCustomSynEdit.MoveCaretIgnoreEOL(const NewCaret: TPoint);