opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Issue #1482: fix next + previous tab actions

Browse Source
This commit is contained in:
Ansgar Becker
2025-03-20 20:25:45 +01:00
parent 3de5774f91
commit d4bc6feec8
2 changed files with 23 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/main.lfm
View File

@ -4340,6 +4340,7 @@ object MainForm: TMainForm
Caption = '&Previous tab'
Hint = 'Previous tab|Go back to the previous tab'
ImageIndex = 117
OnExecute = actPreviousTabExecute
ShortCut = 24585
end
object actNextTab: TAction
@ -4347,6 +4348,7 @@ object MainForm: TMainForm
Caption = '&Next tab'
Hint = 'Next tab|Go to the next tab'
ImageIndex = 116
OnExecute = actNextTabExecute
ShortCut = 16393
end
object actSelectAll: TAction
@ -20038,7 +20040,7 @@ object MainForm: TMainForm
end
object SynCompletionProposal: TSynCompletion
OnExecute = SynCompletionProposalExecute
Position = 0
Position = -1
LinesInWindow = 6
OnPositionChanged = SynCompletionProposalChange
SelectedColor = clHighlight

24
source/main.pas
View File

@ -786,6 +786,8 @@ type
actCopyGridNodes: TAction;
actCopyGridNodes1: TMenuItem;
procedure actCreateDBObjectExecute(Sender: TObject);
procedure actNextTabExecute(Sender: TObject);
procedure actPreviousTabExecute(Sender: TObject);
procedure menuConnectionsPopup(Sender: TObject);
procedure actExitApplicationExecute(Sender: TObject);
//procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;
@ -4516,6 +4518,16 @@ begin
PlaceObjectEditor(Obj);
end;
procedure TMainForm.actNextTabExecute(Sender: TObject);
begin
PageControlMain.SelectNextPage(True);
end;
procedure TMainForm.actPreviousTabExecute(Sender: TObject);
begin
PageControlMain.SelectNextPage(False);
end;
procedure TMainForm.actEmptyTablesExecute(Sender: TObject);
var
@ -14891,8 +14903,10 @@ begin
// Go back to the result tab left to the active one
Tab := QueryTabs.ActiveTab;
if Tab <> nil then begin
if Tab.tabsetQuery.TabIndex > 0 then
//Tab.tabsetQuery.SelectNext(False)
if Tab.tabsetQuery.TabIndex > 0 then begin
Tab.tabsetQuery.TabIndex := Tab.tabsetQuery.TabIndex -1;
Tab.tabsetQuery.OnChange(Tab.tabsetQuery);
end
else
Beep;
end;
@ -14906,8 +14920,10 @@ begin
// Advance to the next result tab
Tab := QueryTabs.ActiveTab;
if Tab <> nil then begin
if Tab.tabsetQuery.TabIndex < Tab.tabsetQuery.Tabs.Count-1 then
//Tab.tabsetQuery.SelectNext(True)
if Tab.tabsetQuery.TabIndex < Tab.tabsetQuery.Tabs.Count-1 then begin
Tab.tabsetQuery.TabIndex := Tab.tabsetQuery.TabIndex +1;
Tab.tabsetQuery.OnChange(Tab.tabsetQuery);
end
else
Beep;
end;