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

Place some reasonable messages on status bar while deleting (many) grid rows. Fixes issue #2576.

Browse Source
This commit is contained in:
Ansgar Becker
2011-10-15 06:09:57 +00:00
parent 01f3d30362
commit 6a87bfed9b
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/main.pas
View File

@ -2951,6 +2951,7 @@ begin
Node := GetNextNode(Grid, nil, True); Node := GetNextNode(Grid, nil, True);
while Assigned(Node) do begin while Assigned(Node) do begin
RowNum := Grid.GetNodeData(Node); RowNum := Grid.GetNodeData(Node);
ShowStatusMsg('Deleting row #'+FormatNumber(ProgressBarStatus.Position+1)+' of '+FormatNumber(ProgressBarStatus.Max)+' ...');
Results.RecNo := RowNum^; Results.RecNo := RowNum^;
if Results.DeleteRow then begin if Results.DeleteRow then begin
ProgressBarStatus.StepIt; ProgressBarStatus.StepIt;
@ -2961,6 +2962,7 @@ begin
end; end;
Node := GetNextNode(Grid, Node, True); Node := GetNextNode(Grid, Node, True);
end; end;
ShowStatusMsg('Clean up ...');
if Assigned(FocusAfterDelete) then if Assigned(FocusAfterDelete) then
FocusAfterDelete := Grid.GetNext(FocusAfterDelete); FocusAfterDelete := Grid.GetNext(FocusAfterDelete);
// Remove nodes and select some nearby node // Remove nodes and select some nearby node
@ -2981,6 +2983,7 @@ begin
end; end;
end; end;
Mainform.ProgressBarStatus.Visible := False; Mainform.ProgressBarStatus.Visible := False;
ShowStatusMsg();
end; end;