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

Minor optimization in TMainForm.LoadDatabaseProperties

Browse Source
This commit is contained in:
Ansgar Becker
2009-06-14 20:03:09 +00:00
parent d26d93aefa
commit 88eb5e8b57
1 changed files with 8 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
source/main.pas
View File

@@ -3888,7 +3888,7 @@ end;
procedure TMainForm.LoadDatabaseProperties(db: WideString);
var
i : Integer;
i, img : Integer;
bytes : Int64;
ds : TDataSet;
Cap,
@@ -3953,23 +3953,14 @@ begin
VTRowDataListTables[i-1].NodeType := GetDBObjectType( ds.Fields);
// Find icon
case VTRowDataListTables[i-1].NodeType of
lntTable, lntCrashedTable: // A normal table
begin
if GetDBObjectType(ds.Fields) = lntCrashedTable then
VTRowDataListTables[i-1].ImageIndex := ICONINDEX_CRASHED_TABLE
else
VTRowDataListTables[i-1].ImageIndex := ICONINDEX_TABLE;
end;
lntView:
VTRowDataListTables[i-1].ImageIndex := ICONINDEX_VIEW;
lntProcedure:
VTRowDataListTables[i-1].ImageIndex := ICONINDEX_STOREDPROCEDURE;
lntFunction:
VTRowDataListTables[i-1].ImageIndex := ICONINDEX_STOREDFUNCTION;
lntTable: img := ICONINDEX_TABLE;
lntCrashedTable: img := ICONINDEX_CRASHED_TABLE;
lntView: img := ICONINDEX_VIEW;
lntProcedure: img := ICONINDEX_STOREDPROCEDURE;
lntFunction: img := ICONINDEX_STOREDFUNCTION;
else img := -1;
end;
VTRowDataListTables[i-1].ImageIndex := img;
ds.Next;
end;