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

Add a second column to the checkbox tree to display sizes of tables, like it is in Mainform.DBtree

Browse Source
This commit is contained in:
Ansgar Becker
2009-11-21 07:45:25 +00:00
parent f9c1913d07
commit c15b1e4b43
3 changed files with 26 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
source/main.pas
View File

@ -831,7 +831,7 @@ type
procedure DeactivateFileLogging;
procedure TrimSQLLog;
procedure TableEnginesCombo(var Combobox: TCombobox);
function GetTreeNodeType(Node: PVirtualNode): TListNodeType;
function GetTreeNodeType(Tree: TBaseVirtualTree; Node: PVirtualNode): TListNodeType;
function GetFocusedTreeNodeType: TListNodeType;
procedure RefreshTree(DoResetTableCache: Boolean; SelectDatabase: WideString = '');
procedure RefreshTreeDB(db: WideString);
@ -4885,15 +4885,15 @@ begin
end;
function TMainForm.GetTreeNodeType(Node: PVirtualNode): TListNodeType;
function TMainForm.GetTreeNodeType(Tree: TBaseVirtualTree; Node: PVirtualNode): TListNodeType;
var
Results: TMySQLQuery;
begin
Result := lntNone;
if Assigned(Node) then case DBtree.GetNodeLevel(Node) of
if Assigned(Node) then case Tree.GetNodeLevel(Node) of
1: Result := lntDb;
2: begin
Results := FetchDbTableList(DBTree.Text[Node.Parent, 0]);
Results := FetchDbTableList((Tree as TVirtualStringTree).Text[Node.Parent, 0]);
Results.RecNo := Node.Index;
Result := GetDBObjectType(Results);
end;
@ -4902,7 +4902,7 @@ end;
function TMainForm.GetFocusedTreeNodeType: TListNodeType;
begin
Result := GetTreeNodeType(DBtree.FocusedNode);
Result := GetTreeNodeType(DBTree, DBtree.FocusedNode);
end;
@ -4923,7 +4923,7 @@ begin
tnode := DBtree.GetFirstChild(dbnode);
for i := 0 to dbnode.ChildCount - 1 do begin
// Select table node if it has the wanted caption
if (DBtree.Text[tnode, 0] = Text) and (GetTreeNodeType(tnode) = NodeType) then begin
if (DBtree.Text[tnode, 0] = Text) and (GetTreeNodeType(DBTree, tnode) = NodeType) then begin
snode := tnode;
break;
end;
@ -4934,7 +4934,7 @@ begin
tnode := DBtree.GetFirstChild(dbnode);
for i := 0 to dbnode.ChildCount - 1 do begin
// Select table node if it has the wanted caption
if (AnsiCompareText(DBtree.Text[tnode, 0], Text) = 0) and (GetTreeNodeType(tnode) = NodeType) then begin
if (AnsiCompareText(DBtree.Text[tnode, 0], Text) = 0) and (GetTreeNodeType(DBtree, tnode) = NodeType) then begin
snode := tnode;
break;
end;
@ -6006,7 +6006,7 @@ begin
CellText := Results.Col(DBO_NAME);
end;
end;
1: case GetTreeNodeType(Node) of
1: case GetTreeNodeType(Sender, Node) of
// Calculate and display the sum of all table sizes in ALL dbs if all table lists are cached
lntNone: begin
AllListsCached := true;
@ -6033,7 +6033,7 @@ begin
end;
// Calculate and display the sum of all table sizes in ONE db, if the list is already cached.
lntDb: begin
db := DBtree.Text[Node, 0];
db := (Sender as TVirtualStringTree).Text[Node, 0];
if not DbTableListCachedAndValid(db) then
CellText := ''
else begin
@ -6051,7 +6051,7 @@ begin
end;
end;
lntTable: begin
db := DBtree.Text[Node.Parent, 0];
db := (Sender as TVirtualStringTree).Text[Node.Parent, 0];
Results := FetchDbTableList(db);
Results.RecNo := Node.Index;
Bytes := GetTableSize(Results);
@ -6293,7 +6293,7 @@ begin
// Grey out rather unimportant "Size" column
if Column <> 1 then
Exit;
case DBtree.GetNodeLevel(Node) of
case Sender.GetNodeLevel(Node) of
0: TargetCanvas.Font.Color := clWindowText;
1: TargetCanvas.Font.Color := $008f8f8f;
2: TargetCanvas.Font.Color := $00cfcfcf;

7
source/tabletools.dfm
View File

@ -92,14 +92,19 @@ object frmTableTools: TfrmTableTools
TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]
OnChecked = TreeObjectsChecked
OnGetText = TreeObjectsGetText
OnPaintText = TreeObjectsPaintText
OnGetImageIndex = TreeObjectsGetImageIndex
OnInitChildren = TreeObjectsInitChildren
OnInitNode = TreeObjectsInitNode
Columns = <
item
Position = 0
Width = 140
Width = 90
WideText = 'Dummy, keeps compatibility to mainform.dbtree'
end
item
Position = 1
WideText = 'Size'
end>
end
object pnlRight: TPanel

9
source/tabletools.pas
View File

@ -87,6 +87,8 @@ type
procedure comboExportOutputTargetExit(Sender: TObject);
procedure comboExportOutputTypeChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TreeObjectsPaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType);
private
{ Private declarations }
FResults: TObjectList;
@ -341,6 +343,13 @@ begin
end;
procedure TfrmTableTools.TreeObjectsPaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType);
begin
Mainform.DBtreePaintText(Sender, TargetCanvas, Node, Column, TextType);
end;
procedure TfrmTableTools.btnHelpClick(Sender: TObject);
begin
Mainform.CallSQLHelpWithKeyword(UpperCase(comboOperation.Text) + ' TABLE');