paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 11:39:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge r46338,r46340 from trunk

Browse Source 
Revision: 46338
  Author: hajny
  Date: 2020-08-09 14:31:36
  Message:
  * fix bug causing misinterpretation of cursor keys in case of tab without shurtcuts

  Revision: 46340
  Author: hajny
  Date: 2020-08-09 15:25:37
  Message:
  + added possibility to navigate among tabs using Ctrl-PgUp/Ctrl-PgDn

git-svn-id: branches/fixes_3_2@46341 -
This commit is contained in:
Tomas Hajny 2020-08-09 14:40:09 +00:00
parent e17cadbaa7
commit d61ea1f11d
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fv/src/tabs.pas
View File

@ -399,10 +399,27 @@ begin
ClearEvent(Event);
end;
end;
kbCtrlPgUp:
begin
if ActiveDef > 0 then
Index := Pred (ActiveDef)
else
Index := Pred (DefCount);
ClearEvent(Event);
end;
kbCtrlPgDn:
begin
if ActiveDef < Pred (DefCount) then
Index := Succ (ActiveDef)
else
Index := 0;
ClearEvent(Event);
end;
else
for I:=0 to DefCount-1 do
begin
if Upcase(GetAltChar(Event.KeyCode))=AtTab(I)^.ShortCut
if (AtTab(I)^.ShortCut <> #0) and
(Upcase(GetAltChar(Event.KeyCode))=AtTab(I)^.ShortCut)
then begin
Index:=I;
ClearEvent(Event);