From 31e52f4df17fb1c7fc50b669c97f15f943eba4d4 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Tue, 15 Sep 2009 18:20:55 +0000 Subject: [PATCH] When a db node in the table tools tree has "mixed" state and it contains unaddressable stored routines, it is impossible to change the db node's check state. Fix that by removing checkboxes for stored routines. --- source/tabletools.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/source/tabletools.pas b/source/tabletools.pas index 7ce96c7c..2e3fb1f0 100644 --- a/source/tabletools.pas +++ b/source/tabletools.pas @@ -184,7 +184,7 @@ begin ds := Mainform.FetchDbTableList(Mainform.Databases[ParentNode.Index]); ds.RecNo := Node.Index+1; if not (GetDBObjectType(ds.Fields) in [lntTable, lntCrashedTable, lntView]) then - Include(InitialStates, ivsDisabled); + Node.CheckType := ctNone; end; end; end; @@ -234,7 +234,7 @@ var begin // Prepare SQL for one table node if (csCheckedNormal in [Node.CheckState, Node.Parent.CheckState]) and - (not TreeObjects.IsDisabled[Node]) then begin + (Node.CheckType <> ctNone) then begin SQL := UpperCase(comboOperation.Text) + ' TABLE ' + Mainform.mask(TreeObjects.Text[Node.Parent, 0])+'.'+Mainform.mask(TreeObjects.Text[Node, 0]); if chkQuick.Enabled and chkQuick.Checked then SQL := SQL + ' QUICK';