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

IDE: Support PageUp/PageDown in Procedure List. Issue #39476, patch by Alexey Torgashin.

Browse Source
This commit is contained in:
Juha 2021-11-18 16:41:42 +02:00
parent c8d8fde9a8
commit 54fee37541
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/procedurelist.pas
View File

@ -38,7 +38,7 @@ unit ProcedureList;
interface
uses
Classes, SysUtils,
Classes, SysUtils, Math,
// LCL
LCLType, Forms, Controls, Dialogs, ComCtrls, ExtCtrls, StdCtrls, Clipbrd,
Graphics, Grids,
@ -665,23 +665,36 @@ begin
begin
if SG.Row < (SG.RowCount - 1) then
SG.Row := SG.Row + 1;
Key := 0;
end
else if Key = VK_Up then
begin
if SG.Row > SG.FixedRows then
SG.Row := SG.Row - 1;
Key := 0;
end
else if Key = VK_Home then
begin
if SG.RowCount > SG.FixedRows then
SG.Row := SG.FixedRows;
Key := 0;
end
else if Key = VK_End then
begin
if SG.RowCount > SG.FixedRows then
SG.Row := SG.RowCount - 1;
Key := 0;
end
else if Key = VK_PRIOR then
begin
SG.Row := Max(SG.FixedRows, SG.Row - (SG.VisibleRowCount - 1));
Key := 0;
end
else if Key = VK_NEXT then
begin
SG.Row := Min(SG.RowCount - 1, SG.Row + (SG.VisibleRowCount - 1));
Key := 0;
end;
end;
procedure TProcedureListForm.SomethingChange(Sender: TObject);