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

Fix issue #1234: "Empty table(s)..." / Shift+Del doesn't work in the database tree

Browse Source
This commit is contained in:
Ansgar Becker
2009-06-21 12:32:49 +00:00
parent ce155c1a98
commit 923330d557
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/main.pas
View File

@ -2618,10 +2618,16 @@ var
i: Integer;
sql_pattern: String;
begin
if ListTables.SelectedCount = 0 then
exit;
// Add selected items/tables to helper list
t := GetVTCaptions(ListTables, True);
if ListTables.Focused then
t := GetVTCaptions(ListTables, True)
else begin
t := TWideStringList.Create;
t.Add(SelectedTable.Text);
end;
if t.Count = 0 then
Exit;
if MessageDlg('Empty ' + IntToStr(t.count) + ' table(s) ?' + CRLF + '(' + implodestr(', ', t) + ')',
mtConfirmation, [mbOk, mbCancel], 0) <> mrOk then
exit;