opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Uncheck unwanted databases on databases drop down menu when text was manually edited. Fixes checked items which should be unchecked.

Browse Source
This commit is contained in:
Ansgar Becker
2014-03-15 05:13:33 +00:00
parent 6c7a158ab7
commit 350dc0fcbe
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/connections.pas
View File

@@ -930,7 +930,6 @@ begin
Connection.OnLog := Mainform.LogSQL;
FPopupDatabases := TPopupMenu.Create(Self);
FPopupDatabases.AutoHotkeys := maManual;
Databases := Explode(';', editDatabases.Text);
Screen.Cursor := crHourglass;
try
Connection.Active := True;
@@ -938,7 +937,6 @@ begin
Item := TMenuItem.Create(FPopupDatabases);
Item.Caption := DB;
Item.OnClick := MenuDatabasesClick;
Item.Checked := Databases.IndexOf(DB) > -1;
Item.AutoCheck := True;
FPopupDatabases.Items.Add(Item);
end;
@@ -947,6 +945,14 @@ begin
end;
FreeAndNil(Connection);
end;
// Check/uncheck items, based on semicolon list
Databases := Explode(';', editDatabases.Text);
for Item in FPopupDatabases.Items do begin
Item.Checked := Databases.IndexOf(Item.Caption) > -1;
end;
Databases.Free;
p := editDatabases.ClientToScreen(editDatabases.ClientRect.BottomRight);
FPopupDatabases.Popup(p.X-editDatabases.Images.Width, p.Y);
Screen.Cursor := crDefault;