mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
Issue #1482: create all TMenuItem's in main menu with references to their TAction
This commit is contained in:
Ansgar Becker
345
source/main.lfm
345
source/main.lfm
@ -849,10 +849,10 @@ object MainForm: TMainForm
|
|||||||
Height = 316
|
Height = 316
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 780
|
Width = 780
|
||||||
ActivePage = tabData
|
ActivePage = tabHost
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Images = ImageListIcons8
|
Images = ImageListIcons8
|
||||||
TabIndex = 3
|
TabIndex = 0
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object tabHost: TTabSheet
|
object tabHost: TTabSheet
|
||||||
Caption = 'Host'
|
Caption = 'Host'
|
||||||
@ -873,6 +873,7 @@ object MainForm: TMainForm
|
|||||||
Caption = 'Databases'
|
Caption = 'Databases'
|
||||||
ClientHeight = 250
|
ClientHeight = 250
|
||||||
ClientWidth = 764
|
ClientWidth = 764
|
||||||
|
ImageIndex = 5
|
||||||
object ListDatabases: TLazVirtualStringTree
|
object ListDatabases: TLazVirtualStringTree
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 250
|
Height = 250
|
||||||
@ -944,28 +945,35 @@ object MainForm: TMainForm
|
|||||||
end
|
end
|
||||||
object tabVariables: TTabSheet
|
object tabVariables: TTabSheet
|
||||||
Caption = 'Variables'
|
Caption = 'Variables'
|
||||||
|
ImageIndex = 137
|
||||||
end
|
end
|
||||||
object tabStatus: TTabSheet
|
object tabStatus: TTabSheet
|
||||||
Caption = 'Status'
|
Caption = 'Status'
|
||||||
|
ImageIndex = 13
|
||||||
end
|
end
|
||||||
object tabProcesslist: TTabSheet
|
object tabProcesslist: TTabSheet
|
||||||
Caption = 'Processes'
|
Caption = 'Processes'
|
||||||
|
ImageIndex = 57
|
||||||
end
|
end
|
||||||
object tabCommandStats: TTabSheet
|
object tabCommandStats: TTabSheet
|
||||||
Caption = 'Command-Statistics'
|
Caption = 'Command-Statistics'
|
||||||
|
ImageIndex = 145
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object tabDatabase: TTabSheet
|
object tabDatabase: TTabSheet
|
||||||
Caption = 'Database'
|
Caption = 'Database'
|
||||||
|
ImageIndex = 5
|
||||||
end
|
end
|
||||||
object tabEditor: TTabSheet
|
object tabEditor: TTabSheet
|
||||||
Caption = 'Table'
|
Caption = 'Table'
|
||||||
|
ImageIndex = 14
|
||||||
end
|
end
|
||||||
object tabData: TTabSheet
|
object tabData: TTabSheet
|
||||||
Caption = 'Data'
|
Caption = 'Data'
|
||||||
ClientHeight = 283
|
ClientHeight = 283
|
||||||
ClientWidth = 772
|
ClientWidth = 772
|
||||||
|
ImageIndex = 41
|
||||||
object DataGrid: TLazVirtualStringTree
|
object DataGrid: TLazVirtualStringTree
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 283
|
Height = 283
|
||||||
@ -983,6 +991,7 @@ object MainForm: TMainForm
|
|||||||
Caption = 'Query'
|
Caption = 'Query'
|
||||||
ClientHeight = 283
|
ClientHeight = 283
|
||||||
ClientWidth = 772
|
ClientWidth = 772
|
||||||
|
ImageIndex = 57
|
||||||
object pnlQueryMemo: TPanel
|
object pnlQueryMemo: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 130
|
Height = 130
|
||||||
@ -1579,29 +1588,345 @@ object MainForm: TMainForm
|
|||||||
Images = ImageListIcons8
|
Images = ImageListIcons8
|
||||||
Left = 48
|
Left = 48
|
||||||
Top = 33
|
Top = 33
|
||||||
object MenuItem1: TMenuItem
|
object MainMenuFile: TMenuItem
|
||||||
Caption = 'File'
|
Caption = 'File'
|
||||||
object MenuItem8: TMenuItem
|
Hint = 'File related commands'
|
||||||
|
OnClick = MainMenuFileClick
|
||||||
|
object Sessionmanager1: TMenuItem
|
||||||
|
Action = actSessionManager
|
||||||
|
end
|
||||||
|
object menuConnectTo: TMenuItem
|
||||||
|
Caption = 'Connect to'
|
||||||
|
end
|
||||||
|
object FileNewItem: TMenuItem
|
||||||
|
Action = actNewWindow
|
||||||
|
end
|
||||||
|
object Newquerytab1: TMenuItem
|
||||||
|
Action = actNewQueryTab
|
||||||
|
end
|
||||||
|
object Closetab1: TMenuItem
|
||||||
|
Action = actCloseQueryTab
|
||||||
|
end
|
||||||
|
object Closeallquerytabs1: TMenuItem
|
||||||
|
Action = actCloseAllQueryTabs
|
||||||
|
end
|
||||||
|
object N2: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object LoadSQLfile2: TMenuItem
|
||||||
|
Action = actLoadSQL
|
||||||
|
end
|
||||||
|
object RunSQLfiles1: TMenuItem
|
||||||
|
Action = actRunSQL
|
||||||
|
end
|
||||||
|
object Save1: TMenuItem
|
||||||
|
Action = actSaveSQL
|
||||||
|
end
|
||||||
|
object Saveassnippet1: TMenuItem
|
||||||
|
Action = actSaveSQLSnippet
|
||||||
|
end
|
||||||
|
object N1: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object ExportSettings1: TMenuItem
|
||||||
|
Action = actExportSettings
|
||||||
|
end
|
||||||
|
object Importsettings1: TMenuItem
|
||||||
|
Action = actImportSettings
|
||||||
|
end
|
||||||
|
object N5: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object FileExitItem: TMenuItem
|
||||||
Action = actExitApplication
|
Action = actExitApplication
|
||||||
|
ShortCut = 32883
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object MenuItem2: TMenuItem
|
object MainMenuEdit: TMenuItem
|
||||||
Caption = 'Edit'
|
Caption = 'Edit'
|
||||||
|
Hint = 'Edit commands'
|
||||||
|
object Undo1: TMenuItem
|
||||||
|
Action = actUndo
|
||||||
end
|
end
|
||||||
object MenuItem3: TMenuItem
|
object CopyItem: TMenuItem
|
||||||
|
Action = actCopy
|
||||||
|
end
|
||||||
|
object Copywithtabstospaces1: TMenuItem
|
||||||
|
Action = actCopyTabsToSpaces
|
||||||
|
end
|
||||||
|
object actCopyGridNodes1: TMenuItem
|
||||||
|
Action = actCopyGridNodes
|
||||||
|
end
|
||||||
|
object PasteItem: TMenuItem
|
||||||
|
Action = actPaste
|
||||||
|
end
|
||||||
|
object Cut1: TMenuItem
|
||||||
|
Action = actCut
|
||||||
|
end
|
||||||
|
object Movelinedown1: TMenuItem
|
||||||
|
Action = actSynMoveDown
|
||||||
|
end
|
||||||
|
object Movelineup1: TMenuItem
|
||||||
|
Action = actSynMoveUp
|
||||||
|
end
|
||||||
|
object N13: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object actSelectAll1: TMenuItem
|
||||||
|
Action = actSelectAll
|
||||||
|
end
|
||||||
|
object Inverseselection1: TMenuItem
|
||||||
|
Action = actSelectInverse
|
||||||
|
end
|
||||||
|
object actFindInVT1: TMenuItem
|
||||||
|
Action = actFilterPanel
|
||||||
|
AutoCheck = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MainMenuSearch: TMenuItem
|
||||||
Caption = 'Search'
|
Caption = 'Search'
|
||||||
|
object Findtext1: TMenuItem
|
||||||
|
Action = actQueryFind
|
||||||
end
|
end
|
||||||
object MenuItem4: TMenuItem
|
object actQueryFindAgain1: TMenuItem
|
||||||
|
Action = actQueryFindAgain
|
||||||
|
end
|
||||||
|
object Replacetext1: TMenuItem
|
||||||
|
Action = actQueryReplace
|
||||||
|
end
|
||||||
|
object actFindTextOnServer1: TMenuItem
|
||||||
|
Action = actFindTextOnServer
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MainMenuQuery: TMenuItem
|
||||||
Caption = 'Query'
|
Caption = 'Query'
|
||||||
|
object Newquerytab2: TMenuItem
|
||||||
|
Action = actNewQueryTab
|
||||||
end
|
end
|
||||||
object MenuItem5: TMenuItem
|
object Closequerytab1: TMenuItem
|
||||||
|
Action = actCloseQueryTab
|
||||||
|
end
|
||||||
|
object Renametab1: TMenuItem
|
||||||
|
Action = actRenameQueryTab
|
||||||
|
end
|
||||||
|
object Clear1: TMenuItem
|
||||||
|
Action = actClearQueryEditor
|
||||||
|
end
|
||||||
|
object N19: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object RunSQLfile1: TMenuItem
|
||||||
|
Action = actExecuteQuery
|
||||||
|
end
|
||||||
|
object RunSelection2: TMenuItem
|
||||||
|
Action = actExecuteSelection
|
||||||
|
end
|
||||||
|
object Runcurrentquery2: TMenuItem
|
||||||
|
Action = actExecuteCurrentQuery
|
||||||
|
end
|
||||||
|
object Sendbatchinonego1: TMenuItem
|
||||||
|
Action = actBatchInOneGo
|
||||||
|
AutoCheck = True
|
||||||
|
end
|
||||||
|
object Sendqueriesonebyone2: TMenuItem
|
||||||
|
Action = actSingleQueries
|
||||||
|
AutoCheck = True
|
||||||
|
end
|
||||||
|
object N18: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Nextresulttab2: TMenuItem
|
||||||
|
Action = actNextResult
|
||||||
|
end
|
||||||
|
object Previousresulttab2: TMenuItem
|
||||||
|
Action = actPreviousResult
|
||||||
|
end
|
||||||
|
object N24: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object SetdelimiterusedinSQLexecution1: TMenuItem
|
||||||
|
Action = actSetDelimiter
|
||||||
|
end
|
||||||
|
object ReformatSQL3: TMenuItem
|
||||||
|
Action = actReformatSQL
|
||||||
|
end
|
||||||
|
object Wraplonglines1: TMenuItem
|
||||||
|
Action = actQueryWordWrap
|
||||||
|
AutoCheck = True
|
||||||
|
end
|
||||||
|
object Uncomment2: TMenuItem
|
||||||
|
Action = actToggleComment
|
||||||
|
end
|
||||||
|
object menuEditorCommands: TMenuItem
|
||||||
|
Caption = 'Editor commands'
|
||||||
|
end
|
||||||
|
object Folding1: TMenuItem
|
||||||
|
Caption = 'Code folding'
|
||||||
|
object Codefolding1: TMenuItem
|
||||||
|
Action = actCodeFolding
|
||||||
|
AutoCheck = True
|
||||||
|
end
|
||||||
|
object Insertregionstartmarker1: TMenuItem
|
||||||
|
Action = actCodeFoldingStartRegion
|
||||||
|
end
|
||||||
|
object Insertregionendmarker1: TMenuItem
|
||||||
|
Action = actCodeFoldingEndRegion
|
||||||
|
end
|
||||||
|
object Foldselection1: TMenuItem
|
||||||
|
Action = actCodeFoldingFoldSelection
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object N20: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Explaincurrentquery2: TMenuItem
|
||||||
|
Action = actExplainCurrentQuery
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MainMenuTools: TMenuItem
|
||||||
Caption = 'Tools'
|
Caption = 'Tools'
|
||||||
|
object Flush1: TMenuItem
|
||||||
|
Caption = 'Flush'
|
||||||
|
object MenuFlushHosts: TMenuItem
|
||||||
|
Action = actFlushHosts
|
||||||
end
|
end
|
||||||
object MenuItem6: TMenuItem
|
object MenuFlushLogs: TMenuItem
|
||||||
|
Action = actFlushLogs
|
||||||
|
end
|
||||||
|
object FlushUserPrivileges1: TMenuItem
|
||||||
|
Action = actFlushPrivileges
|
||||||
|
end
|
||||||
|
object MenuFlushTables: TMenuItem
|
||||||
|
Action = actFlushTables
|
||||||
|
end
|
||||||
|
object MenuFlushTableswithreadlock: TMenuItem
|
||||||
|
Action = actFlushTableswithreadlock
|
||||||
|
end
|
||||||
|
object MenuFlushStatus: TMenuItem
|
||||||
|
Action = actFlushStatus
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object N6: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object MenuUserManager: TMenuItem
|
||||||
|
Action = actUserManager
|
||||||
|
end
|
||||||
|
object menuMaintenance: TMenuItem
|
||||||
|
Action = actMaintenance
|
||||||
|
end
|
||||||
|
object Bulktableeditor1: TMenuItem
|
||||||
|
Action = actBulkTableEdit
|
||||||
|
end
|
||||||
|
object Generatedata1: TMenuItem
|
||||||
|
Action = actGenerateData
|
||||||
|
end
|
||||||
|
object Launchcommandline1: TMenuItem
|
||||||
|
Action = actLaunchCommandline
|
||||||
|
end
|
||||||
|
object SequalSuggest1: TMenuItem
|
||||||
|
Action = actSequalSuggest
|
||||||
|
end
|
||||||
|
object N7: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object ExportdatabaseasSQL1: TMenuItem
|
||||||
|
Action = actExportTables
|
||||||
|
end
|
||||||
|
object Exportgridrows1: TMenuItem
|
||||||
|
Action = actExportData
|
||||||
|
end
|
||||||
|
object N9: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object ImportCSVfile1: TMenuItem
|
||||||
|
Action = actImportCSV
|
||||||
|
end
|
||||||
|
object InsertfilesintoTEXTBLOBfields1: TMenuItem
|
||||||
|
Action = actInsertFiles
|
||||||
|
end
|
||||||
|
object N4: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Resetpaneldimensions1: TMenuItem
|
||||||
|
Action = actResetPanelDimensions
|
||||||
|
end
|
||||||
|
object MenuPreferences: TMenuItem
|
||||||
|
Action = actPreferences
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MainMenuGoto: TMenuItem
|
||||||
Caption = 'Go to'
|
Caption = 'Go to'
|
||||||
|
object Previoustab1: TMenuItem
|
||||||
|
Action = actPreviousTab
|
||||||
end
|
end
|
||||||
object MenuItem7: TMenuItem
|
object Nexttab1: TMenuItem
|
||||||
|
Action = actNextTab
|
||||||
|
end
|
||||||
|
object Previousresulttab1: TMenuItem
|
||||||
|
Action = actPreviousResult
|
||||||
|
end
|
||||||
|
object Nextresulttab1: TMenuItem
|
||||||
|
Action = actNextResult
|
||||||
|
end
|
||||||
|
object N16: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object actGotoFilter1: TMenuItem
|
||||||
|
Action = actGotoFilter
|
||||||
|
end
|
||||||
|
object actGotoDbTree1: TMenuItem
|
||||||
|
Action = actGotoDbTree
|
||||||
|
end
|
||||||
|
object Switchtoqueryresults1: TMenuItem
|
||||||
|
Action = actGoToQueryResults
|
||||||
|
end
|
||||||
|
object Datatabfilter1: TMenuItem
|
||||||
|
Action = actGoToDataMultiFilter
|
||||||
|
end
|
||||||
|
object actGotoTab11: TMenuItem
|
||||||
|
Action = actGotoTab1
|
||||||
|
end
|
||||||
|
object actGotoTab12: TMenuItem
|
||||||
|
Action = actGotoTab2
|
||||||
|
end
|
||||||
|
object actGotoTab31: TMenuItem
|
||||||
|
Action = actGotoTab3
|
||||||
|
end
|
||||||
|
object actGotoTab41: TMenuItem
|
||||||
|
Action = actGotoTab4
|
||||||
|
end
|
||||||
|
object actGotoTab51: TMenuItem
|
||||||
|
Action = actGotoTab5
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MainMenuHelp: TMenuItem
|
||||||
Caption = 'Help'
|
Caption = 'Help'
|
||||||
|
Hint = 'Help topics'
|
||||||
|
object menuSQLHelp1: TMenuItem
|
||||||
|
Action = actSQLhelp
|
||||||
|
end
|
||||||
|
object menuReadme: TMenuItem
|
||||||
|
Action = actHelp
|
||||||
|
end
|
||||||
|
object N8: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object menuUpdateCheck: TMenuItem
|
||||||
|
Action = actUpdateCheck
|
||||||
|
end
|
||||||
|
object menuDownload: TMenuItem
|
||||||
|
Action = actWebDownloadpage
|
||||||
|
end
|
||||||
|
object menuSupportForum: TMenuItem
|
||||||
|
Action = actWebForum
|
||||||
|
end
|
||||||
|
object menuFeaturetracker: TMenuItem
|
||||||
|
Action = actWebChangelog
|
||||||
|
end
|
||||||
|
object menuAbout: TMenuItem
|
||||||
|
Action = actAboutBox
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object ActionList1: TActionList
|
object ActionList1: TActionList
|
||||||
|
|||||||
@ -188,16 +188,40 @@ type
|
|||||||
{ TMainForm }
|
{ TMainForm }
|
||||||
|
|
||||||
TMainForm = class(TForm)
|
TMainForm = class(TForm)
|
||||||
|
MainMenuFile: TMenuItem;
|
||||||
|
FileNewItem: TMenuItem;
|
||||||
|
MainMenuHelp: TMenuItem;
|
||||||
|
FollowForeignKey: TMenuItem;
|
||||||
|
N1: TMenuItem;
|
||||||
|
FileExitItem: TMenuItem;
|
||||||
|
menuAbout: TMenuItem;
|
||||||
|
MainMenuEdit: TMenuItem;
|
||||||
|
CopyItem: TMenuItem;
|
||||||
|
PasteItem: TMenuItem;
|
||||||
ActionList1: TActionList;
|
ActionList1: TActionList;
|
||||||
actFollowForeignKey: TAction;
|
actFollowForeignKey: TAction;
|
||||||
actCopy: TAction;
|
actCopy: TAction;
|
||||||
actPaste: TAction;
|
actPaste: TAction;
|
||||||
actNewWindow: TAction;
|
actNewWindow: TAction;
|
||||||
actExitApplication: TAction;
|
actExitApplication: TAction;
|
||||||
|
MainMenuTools: TMenuItem;
|
||||||
|
FlushUserPrivileges1: TMenuItem;
|
||||||
|
N5: TMenuItem;
|
||||||
|
Flush1: TMenuItem;
|
||||||
|
MenuFlushLogs: TMenuItem;
|
||||||
|
MenuFlushHosts: TMenuItem;
|
||||||
|
MenuFlushTables: TMenuItem;
|
||||||
|
MenuFlushTableswithreadlock: TMenuItem;
|
||||||
|
MenuFlushStatus: TMenuItem;
|
||||||
|
N6: TMenuItem;
|
||||||
|
MenuUserManager: TMenuItem;
|
||||||
|
MenuPreferences: TMenuItem;
|
||||||
|
N7a: TMenuItem;
|
||||||
|
menuReadme: TMenuItem;
|
||||||
actUserManager: TAction;
|
actUserManager: TAction;
|
||||||
|
|
||||||
actAboutBox: TAction;
|
actAboutBox: TAction;
|
||||||
actMaintenance: TAction;
|
actMaintenance: TAction;
|
||||||
|
menuMaintenance: TMenuItem;
|
||||||
actPrintList: TAction;
|
actPrintList: TAction;
|
||||||
actCopyTable: TAction;
|
actCopyTable: TAction;
|
||||||
btnSQLHelp: TToolButton;
|
btnSQLHelp: TToolButton;
|
||||||
@ -220,6 +244,9 @@ type
|
|||||||
ToolButton14: TToolButton;
|
ToolButton14: TToolButton;
|
||||||
actExecuteQuery: TAction;
|
actExecuteQuery: TAction;
|
||||||
actExecuteSelection: TAction;
|
actExecuteSelection: TAction;
|
||||||
|
ExportSettings1: TMenuItem;
|
||||||
|
Importsettings1: TMenuItem;
|
||||||
|
menuSupportForum: TMenuItem;
|
||||||
actExportData: TAction;
|
actExportData: TAction;
|
||||||
actExecuteCurrentQuery: TAction;
|
actExecuteCurrentQuery: TAction;
|
||||||
actDataPreview: TAction;
|
actDataPreview: TAction;
|
||||||
@ -227,7 +254,12 @@ type
|
|||||||
actExportTables: TAction;
|
actExportTables: TAction;
|
||||||
actDropObjects: TAction;
|
actDropObjects: TAction;
|
||||||
actLoadSQL: TAction;
|
actLoadSQL: TAction;
|
||||||
|
menuFeaturetracker: TMenuItem;
|
||||||
|
menuDownload: TMenuItem;
|
||||||
|
menuSQLHelp1: TMenuItem;
|
||||||
|
N8a: TMenuItem;
|
||||||
tlbSep6: TToolButton;
|
tlbSep6: TToolButton;
|
||||||
|
menuUpdateCheck: TMenuItem;
|
||||||
actCreateView: TAction;
|
actCreateView: TAction;
|
||||||
ToolButton3: TToolButton;
|
ToolButton3: TToolButton;
|
||||||
actDataFirst: TAction;
|
actDataFirst: TAction;
|
||||||
@ -246,6 +278,7 @@ type
|
|||||||
actRefresh: TAction;
|
actRefresh: TAction;
|
||||||
actImportCSV: TAction;
|
actImportCSV: TAction;
|
||||||
actCut: TAction;
|
actCut: TAction;
|
||||||
|
Cut1: TMenuItem;
|
||||||
actExportSettings: TAction;
|
actExportSettings: TAction;
|
||||||
actImportSettings: TAction;
|
actImportSettings: TAction;
|
||||||
actPreferences: TAction;
|
actPreferences: TAction;
|
||||||
@ -285,8 +318,12 @@ type
|
|||||||
actDataCancelChanges: TAction;
|
actDataCancelChanges: TAction;
|
||||||
ToolButton1: TToolButton;
|
ToolButton1: TToolButton;
|
||||||
actRemoveFilter: TAction;
|
actRemoveFilter: TAction;
|
||||||
|
menuRefreshDB: TMenuItem;
|
||||||
actPreviousTab: TAction;
|
actPreviousTab: TAction;
|
||||||
actNextTab: TAction;
|
actNextTab: TAction;
|
||||||
|
Nexttab1: TMenuItem;
|
||||||
|
Previoustab1: TMenuItem;
|
||||||
|
menuConnectTo: TMenuItem;
|
||||||
actSelectAll: TAction;
|
actSelectAll: TAction;
|
||||||
actSessionManager: TAction;
|
actSessionManager: TAction;
|
||||||
actCreateProcedure: TAction;
|
actCreateProcedure: TAction;
|
||||||
@ -408,14 +445,6 @@ type
|
|||||||
treeQueryHelpers: TLazVirtualStringTree;
|
treeQueryHelpers: TLazVirtualStringTree;
|
||||||
ListDatabases: TLazVirtualStringTree;
|
ListDatabases: TLazVirtualStringTree;
|
||||||
MainMenu1: TMainMenu;
|
MainMenu1: TMainMenu;
|
||||||
MenuItem1: TMenuItem;
|
|
||||||
MenuItem2: TMenuItem;
|
|
||||||
MenuItem3: TMenuItem;
|
|
||||||
MenuItem4: TMenuItem;
|
|
||||||
MenuItem5: TMenuItem;
|
|
||||||
MenuItem6: TMenuItem;
|
|
||||||
MenuItem7: TMenuItem;
|
|
||||||
MenuItem8: TMenuItem;
|
|
||||||
PageControlHost: TPageControl;
|
PageControlHost: TPageControl;
|
||||||
PageControlMain: TPageControl;
|
PageControlMain: TPageControl;
|
||||||
Panel1: TPanel;
|
Panel1: TPanel;
|
||||||
@ -607,7 +636,7 @@ type
|
|||||||
// CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
|
// CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
|
||||||
//procedure AnyGridMouseUp(Sender: TObject; Button: TMouseButton;
|
//procedure AnyGridMouseUp(Sender: TObject; Button: TMouseButton;
|
||||||
// Shift: TShiftState; X, Y: Integer);
|
// Shift: TShiftState; X, Y: Integer);
|
||||||
//procedure MainMenuFileClick(Sender: TObject);
|
procedure MainMenuFileClick(Sender: TObject);
|
||||||
//procedure HostListGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
|
//procedure HostListGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
|
||||||
// Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
|
// Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
|
||||||
//procedure HostListGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
|
//procedure HostListGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
|
||||||
@ -2770,7 +2799,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
{procedure TMainForm.MainMenuFileClick(Sender: TObject);
|
procedure TMainForm.MainMenuFileClick(Sender: TObject);
|
||||||
var
|
var
|
||||||
Item: TMenuItem;
|
Item: TMenuItem;
|
||||||
i: Integer;
|
i: Integer;
|
||||||
@ -2784,7 +2813,7 @@ begin
|
|||||||
for i:=0 to SessionPaths.Count-1 do begin
|
for i:=0 to SessionPaths.Count-1 do begin
|
||||||
Item := TMenuItem.Create(menuConnectTo);
|
Item := TMenuItem.Create(menuConnectTo);
|
||||||
Item.Caption := EscapeHotkeyPrefix(SessionPaths[i]);
|
Item.Caption := EscapeHotkeyPrefix(SessionPaths[i]);
|
||||||
Item.OnClick := SessionConnect;
|
//Item.OnClick := SessionConnect;
|
||||||
for Connection in Connections do begin
|
for Connection in Connections do begin
|
||||||
if SessionPaths[i] = Connection.Parameters.SessionPath then begin
|
if SessionPaths[i] = Connection.Parameters.SessionPath then begin
|
||||||
Item.Checked := True;
|
Item.Checked := True;
|
||||||
@ -2793,13 +2822,13 @@ begin
|
|||||||
end;
|
end;
|
||||||
menuConnectTo.Add(Item);
|
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)
|
||||||
ShellExec( TAction(Sender).Hint );
|
OpenURL(TAction(Sender).Hint);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user