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

select to beginning of the file (ctrl+shift+home)

Browse Source
This commit is contained in:
Margers 2024-09-01 19:48:44 +00:00 committed by Michael Van Canneyt
parent e4d7867e0e
commit 975ee9d9f0
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/ide/weditor.pas
View File

@ -4363,12 +4363,18 @@ end;
procedure TCustomCodeEditor.WindowStart; procedure TCustomCodeEditor.WindowStart;
begin begin
SetCurPtr(CurPos.X,Delta.Y); if not NoSelect and ShouldExtend then
end; TextStart {select to start}
else
SetCurPtr(CurPos.X,Delta.Y);
end;
procedure TCustomCodeEditor.WindowEnd; procedure TCustomCodeEditor.WindowEnd;
begin begin
SetCurPtr(CurPos.X,Delta.Y+Size.Y-1); if not NoSelect and ShouldExtend then
TextEnd {select to end}
else
SetCurPtr(CurPos.X,Delta.Y+Size.Y-1);
end; end;
procedure TCustomCodeEditor.JumpSelStart; procedure TCustomCodeEditor.JumpSelStart;