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

19
source/copytable.pas
View File

@ -105,7 +105,6 @@ end;
procedure TCopyTableForm.FormShow(Sender: TObject);
var
i : Integer;
tn : TTreeNode;
struc_data : Byte;
ds: TDataSet;
NodeData: PVTreeData;
@ -118,25 +117,11 @@ begin
// Select TargetDatabase
ComboSelectDatabase.Items.Clear;
for i:=0 to Mainform.ChildWin.DBTree.Items.Count-1 do
begin
tn := Mainform.ChildWin.DBTree.Items[i];
if tn.Level = 1 then
comboSelectDatabase.Items.Add(tn.Text);
end;
for i:=0 to comboSelectDatabase.Items.Count-1 do
begin
if (comboSelectDatabase.Items[i] = Mainform.ChildWin.ActiveDatabase) then
begin
comboSelectDatabase.ItemIndex := i;
break;
end;
end;
ComboSelectDatabase.Items.Assign(Mainform.ChildWin.Databases);
ComboSelectDatabase.ItemIndex := ComboSelectDatabase.Items.IndexOf( Mainform.ChildWin.ActiveDatabase );
if comboSelectDatabase.ItemIndex = -1 then
comboSelectDatabase.ItemIndex := 0;
// fill columns:
CheckListBoxFields.Items.Clear;
ds := Mainform.ChildWin.GetResults( 'SHOW FIELDS FROM ' + mainform.mask(oldTableName) );