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

Move the dedicated help button on the SQL export tab to the window title bar. See #228.

Browse Source
This commit is contained in:
Ansgar Becker
2018-11-26 16:39:37 +01:00
parent 78788641d1
commit 201f8da8e3
3 changed files with 31 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
source/tabletools.dfm
View File

@ -1,6 +1,7 @@
object frmTableTools: TfrmTableTools
Left = 734
Top = 126
BorderIcons = [biSystemMenu, biHelp]
Caption = 'Table tools'
ClientHeight = 383
ClientWidth = 764
@ -506,16 +507,6 @@ object frmTableTools: TfrmTableTools
TabOrder = 6
Wrap = True
end
object btnHelpSQLExport: TButton
Left = 514
Top = 3
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = 'Help'
TabOrder = 10
OnClick = btnHelpSQLExportClick
end
object btnExportOptions: TButton
Left = 464
Top = 72
@ -525,7 +516,7 @@ object frmTableTools: TfrmTableTools
Caption = 'Options'
DropDownMenu = popupExportOptions
Style = bsSplitButton
TabOrder = 11
TabOrder = 10
OnClick = btnExportOptionsClick
end
end

34
source/tabletools.pas
View File

@ -11,7 +11,7 @@ interface
uses
Windows, SysUtils, Classes, Controls, Forms, StdCtrls, ComCtrls, Buttons, Dialogs, StdActns,
VirtualTrees, ExtCtrls, Graphics, SynRegExpr, Math, Generics.Collections, extra_controls,
dbconnection, apphelpers, Menus, gnugettext, DateUtils, System.Zip, System.UITypes, StrUtils;
dbconnection, apphelpers, Menus, gnugettext, DateUtils, System.Zip, System.UITypes, StrUtils, Messages;
type
TToolMode = (tmMaintenance, tmFind, tmSQLExport, tmBulkTableEdit);
@ -76,7 +76,6 @@ type
editInsertSize: TEdit;
updownInsertSize: TUpDown;
lblInsertSizeUnit: TLabel;
btnHelpSQLExport: TButton;
btnExportOptions: TButton;
popupExportOptions: TPopupMenu;
menuExportAddComments: TMenuItem;
@ -131,7 +130,6 @@ type
var ContentRect: TRect);
procedure CheckAllClick(Sender: TObject);
procedure TreeObjectsExpanded(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure btnHelpSQLExportClick(Sender: TObject);
procedure btnExportOptionsClick(Sender: TObject);
private
{ Private declarations }
@ -150,6 +148,8 @@ type
FFindSeeResultSQL: TStringList;
ToFile, ToDir, ToClipboard, ToDb, ToServer: Boolean;
FObjectSizes, FObjectSizesDone, FObjectSizesDoneExact: Int64;
procedure WMNCLBUTTONDOWN(var Msg: TWMNCLButtonDown) ; message WM_NCLBUTTONDOWN;
procedure WMNCLBUTTONUP(var Msg: TWMNCLButtonUp) ; message WM_NCLBUTTONUP;
procedure SetToolMode(Value: TToolMode);
procedure Output(SQL: String; IsEndOfQuery, ForFile, ForDir, ForDb, ForServer: Boolean);
procedure AddResults(SQL: String; Connection: TDBConnection);
@ -194,6 +194,28 @@ var
{$R *.DFM}
procedure TfrmTableTools.WMNCLBUTTONDOWN(var Msg: TWMNCLButtonDown) ;
begin
if Msg.HitTest = HTHELP then
Msg.Result := 0 // "eat" the message
else
inherited;
end;
procedure TfrmTableTools.WMNCLBUTTONUP(var Msg: TWMNCLButtonUp) ;
begin
if Msg.HitTest = HTHELP then begin
Msg.Result := 0;
if tabsTools.ActivePage = tabSQLexport then
Help(Self, 'sqlexport')
else
ErrorDialog(_('No help available for this tab.'));
end else
inherited;
end;
procedure TfrmTableTools.FormCreate(Sender: TObject);
var
i: Integer;
@ -577,12 +599,6 @@ begin
end;
procedure TfrmTableTools.btnHelpSQLExportClick(Sender: TObject);
begin
Help(Sender, 'sqlexport');
end;
procedure TfrmTableTools.Execute(Sender: TObject);
var
SessionNode, DBNode: PVirtualNode;