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

Important followup to last commit: Makes EnsureActiveDatabase accessible in other units.

Browse Source
This commit is contained in:
Ansgar Becker
2007-07-04 20:19:36 +00:00
parent efcc58f7bb
commit 01c66955f6
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/childwin.pas
View File

@ -481,7 +481,6 @@ type
procedure WaitForQueryCompletion(WaitForm: TForm); procedure WaitForQueryCompletion(WaitForm: TForm);
function RunThreadedQuery(AQuery : String) : TMysqlQuery; function RunThreadedQuery(AQuery : String) : TMysqlQuery;
procedure DisplayRowCountStats(ds: TDataSet); procedure DisplayRowCountStats(ds: TDataSet);
procedure EnsureActiveDatabase;
public public
ActualDatabase : String; ActualDatabase : String;
@ -511,6 +510,7 @@ type
function RefreshActiveDbTableList: TDataSet; function RefreshActiveDbTableList: TDataSet;
procedure ClearAllTableLists; procedure ClearAllTableLists;
procedure UpdateTreeTableList; procedure UpdateTreeTableList;
procedure EnsureActiveDatabase;
end; end;