paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 02:58:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: GTK2: Using nboKeyboardTabSwitch in TabControl options and <Ctrl> + <Tab> now working.

Browse Source 
git-svn-id: trunk@56130 -
This commit is contained in:
michl 2017-10-18 19:37:47 +00:00
parent 11aad71dab
commit 9abb167fde
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customnotebook.inc
View File

@ -788,11 +788,13 @@ begin
begin begin
if Shift = [ssCtrl] then if Shift = [ssCtrl] then
begin begin
Key := 0;
PageIndex := (PageIndex + 1) mod PageCount; PageIndex := (PageIndex + 1) mod PageCount;
Exit; Exit;
end end
else if Shift = [ssCtrl, ssShift] then else if Shift = [ssCtrl, ssShift] then
begin begin
Key := 0;
PageIndex := (PageIndex + PageCount - 1) mod PageCount; PageIndex := (PageIndex + PageCount - 1) mod PageCount;
Exit; Exit;
end; end;