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

Add object names of selected database to SynMemo highlighter. Broken in r2879. Fixes issue #1557

Browse Source
This commit is contained in:
Ansgar Becker
2009-12-23 13:42:46 +00:00
parent 09c76314c6
commit c3d771eb5e
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/main.pas
View File

@ -4806,16 +4806,24 @@ end;
procedure TMainForm.SetSelectedDatabase(db: WideString);
var
n, f: PVirtualNode;
i: Integer;
DBObjects: TDBObjectList;
Tables: WideString;
begin
if db = '' then
n := DBtree.GetFirst
else
n := FindDBNode(db);
if Assigned(n) then begin
// Set focus to db node, if current focus is outside
// Set focus to db node, if current focus is outside
f := DBtree.FocusedNode;
if (not Assigned(f)) or (f.Parent <> n) then
SelectNode(DBtree, n);
// Add object names to highlighter
DBObjects := Connection.GetDBObjects(db);
for i:=0 to DBObjects.Count-1 do
Tables := Tables + DBObjects[i].Name + CRLF;
SynSQLSyn1.TableNames.Text := Trim(Tables);
end else
raise Exception.Create('Database node ' + db + ' not found in tree.');
end;