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

Support changing active result tab per shortcut, Alt+Left and Alt+Right. See http://www.heidisql.com/forum.php?t=7609

Browse Source
This commit is contained in:
Ansgar Becker
2014-03-19 10:27:56 +00:00
parent 7c3a0f4248
commit 6a3a91ad0a
3 changed files with 69 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
out/locale/en/LC_MESSAGES/default.po
View File

@ -7,7 +7,7 @@ msgid ""
msgstr ""
"Project-Id-Version: HeidiSQL\n"
"POT-Creation-Date: 2012-11-05 21:40\n"
"PO-Revision-Date: 2014-03-13 05:56+0100\n"
"PO-Revision-Date: 2014-03-19 11:25+0100\n"
"Last-Translator: Ansgar Becker <anse@heidisql.com>\n"
"Language-Team: English (http://www.transifex.com/projects/p/heidisql/"
"language/en/)\n"
@ -2134,6 +2134,14 @@ msgstr "&Next tab"
msgid "Next tab|Go to the next tab"
msgstr "Next tab|Go to the next tab"
#. Main menu: Tools
msgid "Previous result tab"
msgstr "Previous result tab"
#. Main menu: Tools
msgid "Next result tab"
msgstr "Next result tab"
#. MainForm..ActionList1..actSelectAll..Caption
#: main.dfm:2393
msgid "Select all"

24
source/main.dfm
View File

@ -1893,11 +1893,17 @@ object MainForm: TMainForm
end
object MainMenuTools: TMenuItem
Caption = 'Tools'
object Previoustab1: TMenuItem
Action = actPreviousTab
end
object Nexttab1: TMenuItem
Action = actNextTab
end
object Previoustab1: TMenuItem
Action = actPreviousTab
object Previousresulttab1: TMenuItem
Action = actPreviousResult
end
object Nextresulttab1: TMenuItem
Action = actNextResult
end
object Flush1: TMenuItem
Caption = 'Flush'
@ -2753,6 +2759,20 @@ object MainForm: TMainForm
ImageIndex = 112
OnExecute = actFavoriteObjectsOnlyExecute
end
object actPreviousResult: TAction
Category = 'Data'
Caption = 'Previous result tab'
ImageIndex = 117
ShortCut = 32805
OnExecute = actPreviousResultExecute
end
object actNextResult: TAction
Category = 'Data'
Caption = 'Next result tab'
ImageIndex = 116
ShortCut = 32807
OnExecute = actNextResultExecute
end
end
object menuConnections: TPopupMenu
AutoHotkeys = maManual

38
source/main.pas
View File

@ -601,6 +601,10 @@ type
btnDonate: TToolButton;
btnUpdateAvailable: TToolButton;
TimerBindParams: TTimer;
actPreviousResult: TAction;
actNextResult: TAction;
Previousresulttab1: TMenuItem;
Nextresulttab1: TMenuItem;
procedure actCreateDBObjectExecute(Sender: TObject);
procedure menuConnectionsPopup(Sender: TObject);
procedure actExitApplicationExecute(Sender: TObject);
@ -954,6 +958,8 @@ type
procedure treeQueryHelpersNewText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; NewText: string);
procedure SynMemoQueryChange(Sender: TObject);
procedure actPreviousResultExecute(Sender: TObject);
procedure actNextResultExecute(Sender: TObject);
private
// Executable file details
FAppVerMajor: Integer;
@ -5166,6 +5172,8 @@ begin
actDataPreview.Enabled := inDataOrQueryTabNotEmpty and Assigned(Grid.FocusedNode);
actUnixTimestampColumn.Enabled := inDataTab and EnableTimestamp;
actUnixTimestampColumn.Checked := inDataTab and HandleUnixTimestampColumn(Grid, Grid.FocusedColumn);
actPreviousResult.Enabled := inDataOrQueryTabNotEmpty;
actNextResult.Enabled := inDataOrQueryTabNotEmpty;
// Activate export-options if we're on Data- or Query-tab
actExportData.Enabled := inDataOrQueryTabNotEmpty;
@ -11701,6 +11709,36 @@ begin
end;
procedure TMainForm.actPreviousResultExecute(Sender: TObject);
var
Tab: TQueryTab;
begin
// Go back to the result tab left to the active one
Tab := ActiveQueryTab;
if Tab <> nil then begin
if Tab.tabsetQuery.TabIndex > 0 then
Tab.tabsetQuery.SelectNext(False)
else
MessageBeep(MB_ICONEXCLAMATION);
end;
end;
procedure TMainForm.actNextResultExecute(Sender: TObject);
var
Tab: TQueryTab;
begin
// Advance to the next result tab
Tab := ActiveQueryTab;
if Tab <> nil then begin
if Tab.tabsetQuery.TabIndex < Tab.tabsetQuery.Tabs.Count-1 then
Tab.tabsetQuery.SelectNext(True)
else
MessageBeep(MB_ICONEXCLAMATION);
end;
end;
{ TQueryTab }