Bugfix: Only disable WHERE memo on first level "Data" node, not on second level nodes.

This commit is contained in:
Ansgar Becker
2010-06-14 17:19:40 +00:00
parent 3f60d711e7
commit 44e21a0fbd

View File

@@ -137,7 +137,7 @@ end;
procedure TCopyTableForm.TreeElementsChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);
begin
// Disable WHERE memo if "Data" was unselected
if (Node.Index = nData) then begin
if (Sender.GetNodeLevel(Node) = 0) and (Node.Index = nData) then begin
MemoWhereClause.Enabled := Node.CheckState = csCheckedNormal;
if MemoWhereClause.Enabled then begin
MemoWhereClause.Highlighter := MainForm.SynSQLSyn1;