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

Convert database tree from TTreeView to TVirtualStringTree.

Browse Source 
- Fixes bug #271 "F5 shortcut in database tree not working"
- Fullfills rfe #519 "Highlight selected item in tree view when focus is elsewhere"
- Fixes inconsistent expansion state of nodes after refreshing
- Fixes plus sign staying when a db node with 0 tables was selected
- Slightly enhances painting speed within the dbtree
- Removes temporary storage of a rightclicked node (DBRightClickSelectItem). VirtualTree handles its right clicked selection exactly like the left clicked one, which makes makes coding a bit cleaner as we can always use the selected item instead of hacking with the right and left clicked node. On the other side it removes a quite user friendly feature. Well, we can reimplement this feature later, though it's not user UNfriendly currently.
- Reasonably rename the StringList "OnlyDBs" to "DatabasesWanted" and "OnlyDBs2" to "Databases"
This commit is contained in:
Ansgar Becker
2008-06-13 23:05:51 +00:00
parent c265dd2f94
commit 41074d211e
13 changed files with 597 additions and 807 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
source/selectdbobject.pas
View File

@ -39,7 +39,6 @@ type
PVirtualNode; var InitialStates: TVirtualNodeInitStates);
private
{ Private declarations }
FDatabases: TStringList;
FColumns: Array of Array of TStringList;
function GetSelectedObject: TStringList;
public
@ -111,19 +110,11 @@ begin
end;
procedure TfrmSelectDBObject.FormShow(Sender: TObject);
var
i: Integer;
begin
CWin := Mainform.Childwin;
TreeDBO.Clear;
FDatabases := TStringList.Create;
for i := 0 to CWin.DBtree.Items.Count - 1 do begin
if CWin.DBtree.Items[i].Level <> 1 then
continue;
FDatabases.Add(CWin.DBtree.Items[i].Text);
end;
TreeDBO.RootNodeCount := FDatabases.Count;
SetLength(FColumns, FDatabases.Count);
TreeDBO.RootNodeCount := CWin.Databases.Count;
SetLength(FColumns, CWin.Databases.Count);
// TreeDBO.OnFocusChanged(TreeDBO, TreeDBO.FocusedNode, 0);
editDB.Clear;
editTable.Clear;
@ -186,7 +177,7 @@ begin
case Sender.GetNodeLevel(Node) of
0: ImageIndex := ICONINDEX_DB;
1: begin
ds := CWin.FetchDbTableList(FDatabases[Node.Parent.Index]);
ds := CWin.FetchDbTableList(CWin.Databases[Node.Parent.Index]);
ds.RecNo := Node.Index+1;
case GetDBObjectType(ds.Fields) of
NODETYPE_BASETABLE: ImageIndex := ICONINDEX_TABLE;
@ -214,15 +205,15 @@ begin
// Fetch sub nodes
case Sender.GetNodeLevel(Node) of
0: begin // DB expanding
ds := CWin.FetchDbTableList(FDatabases[Node.Index]);
ds := CWin.FetchDbTableList(CWin.Databases[Node.Index]);
ChildCount := ds.RecordCount;
SetLength(FColumns[Node.Index], ds.RecordCount);
end;
1: begin // Table expanding
ds := CWin.FetchDbTableList(FDatabases[Node.Parent.Index]);
ds := CWin.FetchDbTableList(CWin.Databases[Node.Parent.Index]);
ds.RecNo := Node.Index+1;
cols := CWin.GetCol('SHOW COLUMNS FROM '
+ Mainform.mask(FDatabases[Node.Parent.Index])+'.'
+ Mainform.mask(CWin.Databases[Node.Parent.Index])+'.'
+ Mainform.Mask(ds.Fields[0].AsString));
FColumns[Node.Parent.Index][Node.Index] := cols;
ChildCount := cols.Count;
@ -239,9 +230,9 @@ var
ds: TDataset;
begin
case Sender.GetNodeLevel(Node) of
0: CellText := FDatabases[Node.Index];
0: CellText := CWin.Databases[Node.Index];
1: begin
ds := CWin.FetchDbTableList(FDatabases[Node.Parent.Index]);
ds := CWin.FetchDbTableList(CWin.Databases[Node.Parent.Index]);
ds.RecNo := Node.Index+1;
CellText := ds.Fields[0].AsString;
end;