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

Scroll one line up/down

Browse Source
This commit is contained in:
Margers 2024-09-01 19:39:41 +00:00 committed by Michael Van Canneyt
parent 3d25e52b61
commit 74405ab2e5
1 changed files with 37 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
packages/ide/weditor.pas
View File

@ -63,6 +63,8 @@ const
cmExpandFold = 51267; cmExpandFold = 51267;
cmDelToEndOfWord = 51268; cmDelToEndOfWord = 51268;
cmInputLineLen = 51269; cmInputLineLen = 51269;
cmScrollOneUp = 51270;
cmScrollOneDown = 51271;
EditorTextBufSize = 32768; EditorTextBufSize = 32768;
MaxLineLength = 255; MaxLineLength = 255;
@ -647,6 +649,8 @@ type
procedure LineDown; virtual; procedure LineDown; virtual;
procedure PageUp; virtual; procedure PageUp; virtual;
procedure PageDown; virtual; procedure PageDown; virtual;
procedure ScrollOneUp; virtual;
procedure ScrollOneDown; virtual;
procedure TextStart; virtual; procedure TextStart; virtual;
procedure TextEnd; virtual; procedure TextEnd; virtual;
procedure WindowStart; virtual; procedure WindowStart; virtual;
@ -816,7 +820,7 @@ const
kbShift = kbLeftShift+kbRightShift; kbShift = kbLeftShift+kbRightShift;
const const
FirstKeyCount = 46; FirstKeyCount = 48;
FirstKeys: array[0..FirstKeyCount * 2] of Word = (FirstKeyCount, FirstKeys: array[0..FirstKeyCount * 2] of Word = (FirstKeyCount,
Ord(^A), cmWordLeft, Ord(^B), cmJumpLine, Ord(^C), cmPageDown, Ord(^A), cmWordLeft, Ord(^B), cmJumpLine, Ord(^C), cmPageDown,
Ord(^D), cmCharRight, Ord(^E), cmLineUp, Ord(^D), cmCharRight, Ord(^E), cmLineUp,
@ -829,7 +833,8 @@ const
Ord(^R), cmPageUp, Ord(^S), cmCharLeft, Ord(^R), cmPageUp, Ord(^S), cmCharLeft,
Ord(^T), cmDelToEndOfWord, Ord(^U), cmUndo, Ord(^T), cmDelToEndOfWord, Ord(^U), cmUndo,
Ord(^V), cmInsMode, Ord(^X), cmLineDown, Ord(^V), cmInsMode, Ord(^X), cmLineDown,
Ord(^Y), cmDelLine, kbLeft, cmCharLeft, Ord(^Y), cmDelLine, Ord(^W), cmScrollOneUp,
Ord(^Z), cmScrollOneDown, kbLeft, cmCharLeft,
kbRight, cmCharRight, kbCtrlLeft, cmWordLeft, kbRight, cmCharRight, kbCtrlLeft, cmWordLeft,
kbCtrlRight, cmWordRight, kbHome, cmLineStart, kbCtrlRight, cmWordRight, kbHome, cmLineStart,
kbCtrlHome, cmWindowStart, kbCtrlEnd, cmWindowEnd, kbCtrlHome, cmWindowStart, kbCtrlEnd, cmWindowEnd,
@ -3546,6 +3551,8 @@ begin
cmLineDown : LineDown; cmLineDown : LineDown;
cmPageUp : PageUp; cmPageUp : PageUp;
cmPageDown : PageDown; cmPageDown : PageDown;
cmScrollOneUp : ScrollOneUp;
cmScrollOneDown:ScrollOneDown;
cmTextStart : TextStart; cmTextStart : TextStart;
cmTextEnd : TextEnd; cmTextEnd : TextEnd;
cmWindowStart : WindowStart; cmWindowStart : WindowStart;
@ -4310,6 +4317,34 @@ begin
SetCurPtr(CurPos.X,Min(GetLineCount-1,NL)); SetCurPtr(CurPos.X,Min(GetLineCount-1,NL));
end; end;
procedure TCustomCodeEditor.ScrollOneUp;
var NL: sw_integer;
LinesScroll : sw_integer;
cursorInVisibleArea : boolean;
begin
LinesScroll:=-1;
cursorInVisibleArea:= (CurPos.Y>=Delta.Y) and (CurPos.Y<(Delta.Y+Size.Y)); {ignore folds here}
NL:=NextVisibleLine(CurPos.Y-1,false);
ScrollTo(Delta.X, Delta.Y + LinesScroll);
if cursorInVisibleArea and (CurPos.Y>=(Delta.Y+Size.Y)) then {do not allow corsor leave visible area}
if NL<>-1 then
SetCurPtr(CurPos.X,NL); {cursor stick to window bottom line}
end;
procedure TCustomCodeEditor.ScrollOneDown;
var NL: sw_integer;
LinesScroll : sw_integer;
cursorInVisibleArea : boolean;
begin
LinesScroll:=1;
cursorInVisibleArea:= (CurPos.Y>=Delta.Y) and (CurPos.Y<(Delta.Y+Size.Y)); {ignore folds here}
NL:=NextVisibleLine(CurPos.Y+1,true);
ScrollTo(Delta.X, Delta.Y + LinesScroll);
if cursorInVisibleArea and (CurPos.Y<Delta.Y) then {do not allow corsor leave visible area}
if NL>=0 then
SetCurPtr(CurPos.X,Min(GetLineCount-1,NL)); {cursor stick to window top line}
end;
procedure TCustomCodeEditor.TextStart; procedure TCustomCodeEditor.TextStart;
begin begin
SetCurPtr(0,0); SetCurPtr(0,0);