paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 11:48:34 +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

18
packages/ide/weditor.pas
View File

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