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

Add a help button to the quite non-intuitive controls on the export dialog.

Browse Source
This commit is contained in:
Ansgar Becker
2015-02-23 19:59:19 +00:00
parent f79030e699
commit 6d34e1de35
2 changed files with 23 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
source/tabletools.pas
View File

@ -33,7 +33,7 @@ type
chkChanged: TCheckBox;
chkUseFrm: TCheckBox;
lblOptions: TLabel;
btnHelp: TButton;
btnHelpMaintenance: TButton;
tabFind: TTabSheet;
lblFindText: TLabel;
memoFindText: TMemo;
@ -76,10 +76,11 @@ type
editInsertSize: TEdit;
updownInsertSize: TUpDown;
lblInsertSizeUnit: TLabel;
btnHelpSQLExport: TButton;
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnHelpClick(Sender: TObject);
procedure btnHelpMaintenanceClick(Sender: TObject);
procedure TreeObjectsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType; var CellText: String);
procedure TreeObjectsInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
@ -120,6 +121,7 @@ type
var ContentRect: TRect);
procedure CheckAllClick(Sender: TObject);
procedure TreeObjectsExpanded(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure btnHelpSQLExportClick(Sender: TObject);
private
{ Private declarations }
FResults: TObjectList<TStringList>;
@ -538,12 +540,18 @@ begin
end;
procedure TfrmTableTools.btnHelpClick(Sender: TObject);
procedure TfrmTableTools.btnHelpMaintenanceClick(Sender: TObject);
begin
Mainform.CallSQLHelpWithKeyword(UpperCase(comboOperation.Text) + ' TABLE');
end;
procedure TfrmTableTools.btnHelpSQLExportClick(Sender: TObject);
begin
Help(Sender, 'sqlexport');
end;
procedure TfrmTableTools.Execute(Sender: TObject);
var
SessionNode, DBNode: PVirtualNode;