Display number of selected nodes from ListTables in status bar. Fixes issue #3127.

This commit is contained in:
Ansgar Becker
2013-03-03 09:29:33 +00:00
parent c037dce946
commit e60fb7a925

View File

@ -4696,8 +4696,15 @@ end;
}
procedure TMainForm.ListTablesChange(Sender: TBaseVirtualTree; Node:
PVirtualNode);
var
Msg: String;
begin
ValidateControls(Sender);
if ListTables.SelectedCount > 1 then
Msg := _('Selected') + ': ' + FormatNumber(ListTables.SelectedCount)
else
Msg := '';
ShowStatusMsg(Msg, 1)
end;