opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 01:56:36 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add session menu items to main menu, submenu of "File" : "Connect to"

Browse Source
This commit is contained in:
Ansgar Becker
2009-01-04 15:54:07 +00:00
parent 7ce39e4e58
commit 58c034ded8
2 changed files with 40 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/main.dfm
View File

@ -1547,6 +1547,7 @@ object MainForm: TMainForm
end end
end end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
AutoHotkeys = maManual
Images = PngImageListMain Images = PngImageListMain
Left = 40 Left = 40
Top = 64 Top = 64
@ -1554,10 +1555,15 @@ object MainForm: TMainForm
Tag = 17 Tag = 17
Caption = '&File' Caption = '&File'
Hint = 'File related commands' Hint = 'File related commands'
OnClick = File1Click
object FileNewItem: TMenuItem object FileNewItem: TMenuItem
Tag = 23 Tag = 23
Action = actOpenSession Action = actOpenSession
end end
object menuConnectTo: TMenuItem
Caption = 'Connect to'
Enabled = False
end
object N1: TMenuItem object N1: TMenuItem
Caption = '-' Caption = '-'
end end

34
source/main.pas
View File

@ -458,6 +458,7 @@ type
actNextTab: TNextTab; actNextTab: TNextTab;
Nexttab1: TMenuItem; Nexttab1: TMenuItem;
Previoustab1: TMenuItem; Previoustab1: TMenuItem;
menuConnectTo: TMenuItem;
procedure refreshMonitorConfig; procedure refreshMonitorConfig;
procedure loadWindowConfig; procedure loadWindowConfig;
procedure saveWindowConfig; procedure saveWindowConfig;
@ -731,6 +732,7 @@ type
NewHeight: Integer; var Resize: Boolean); NewHeight: Integer; var Resize: Boolean);
procedure DataGridMouseUp(Sender: TObject; Button: TMouseButton; procedure DataGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure File1Click(Sender: TObject);
private private
FDelimiter: String; FDelimiter: String;
uptime : Integer; uptime : Integer;
@ -1966,6 +1968,38 @@ begin
end; end;
procedure TMainForm.File1Click(Sender: TObject);
var
Item: TMenuItem;
i: Integer;
Connections: TStringList;
begin
// Decide if "Connect to" menu should be enabled
menuConnectTo.Enabled := False;
if MainReg.OpenKey(REGPATH + REGKEY_SESSIONS, False) then begin
menuConnectTo.Enabled := MainReg.HasSubKeys;
if menuConnectTo.Enabled then begin
// Add all sessions to submenu
for i := menuConnectTo.Count - 1 downto 0 do
menuConnectTo.Delete(i);
Connections := TStringList.Create;
MainReg.GetKeyNames(Connections);
for i := 0 to Connections.Count - 1 do begin
Item := TMenuItem.Create(menuConnectTo);
Item.Caption := Connections[i];
Item.OnClick := SessionConnect;
Item.ImageIndex := 37;
if Connections[i] = SessionName then begin
Item.Checked := True;
Item.ImageIndex := -1;
end;
menuConnectTo.Add(Item);
end;
end;
end;
end;
procedure TMainForm.actWebbrowse(Sender: TObject); procedure TMainForm.actWebbrowse(Sender: TObject);
begin begin
// Browse to URL (hint) // Browse to URL (hint)