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

Table tools: auto-fit column widths with each result grid update, and show execution time in main status bar

Browse Source
This commit is contained in:
Ansgar Becker
2021-05-20 22:34:16 +02:00
parent 499a6c3064
commit b5449c055d
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/tabletools.pas
View File

@ -134,6 +134,8 @@ type
procedure CheckAllClick(Sender: TObject);
procedure TreeObjectsExpanded(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure btnExportOptionsClick(Sender: TObject);
const
StatusMsg = '%s %s ...';
private
{ Private declarations }
FResults: TObjectList<TStringList>;
@ -151,6 +153,7 @@ type
FFindSeeResultSQL: TStringList;
ToFile, ToDir, ToClipboard, ToDb, ToServer: Boolean;
FObjectSizes, FObjectSizesDone, FObjectSizesDoneExact: Int64;
FStartTimeAll: Cardinal;
procedure WMNCLBUTTONDOWN(var Msg: TWMNCLButtonDown) ; message WM_NCLBUTTONDOWN;
procedure WMNCLBUTTONUP(var Msg: TWMNCLButtonUp) ; message WM_NCLBUTTONUP;
procedure SetToolMode(Value: TToolMode);
@ -738,9 +741,12 @@ begin
Views := TDBObjectList.Create(False);
FHeaderCreated := False;
FCancelled := False;
FObjectSizesDone := 0;
FObjectSizesDoneExact := 0;
MainForm.EnableProgress(100);
FStartTimeAll := GetTickCount;
SessionNode := TreeObjects.GetFirstChild(nil);
while Assigned(SessionNode) do begin
DBNode := TreeObjects.GetFirstChild(SessionNode);
@ -835,6 +841,7 @@ begin
btnCloseOrCancel.Caption := _('Close');
btnCloseOrCancel.ModalResult := mrCancel;
MainForm.ShowStatusMsg;
MainForm.DisableProgress;
tabsTools.Enabled := True;
treeObjects.Enabled := True;
@ -1153,6 +1160,8 @@ begin
lblCheckedSize.Caption := f_('Selected objects size: %s', [FormatByteNumber(FObjectSizes)]) + '. ' +
f_('%s%% done', [FormatNumber(Percent, 1)]) + '.';
MainForm.SetProgressPosition(Round(Percent));
MainForm.ShowStatusMsg(Format(StatusMsg, [tabsTools.ActivePage.Caption, FormatTimeNumber((GetTickCount-FStartTimeAll)/1000, True)]));
ResultGrid.Header.AutoFitColumns(False);
Application.ProcessMessages;
end;