Fix faulty IF construct in previous commit: menuEditVariable always displayed the STR_NOTSUPPORTED hint.

This commit is contained in:
Ansgar Becker
2008-03-02 17:59:57 +00:00
parent 3804655749
commit 46a17e6d14

View File

@@ -4427,10 +4427,10 @@ end;
procedure TMDIChild.popupHostPopup(Sender: TObject);
begin
Kill1.Enabled := (PageControlHost.ActivePage = tabProcessList) and Assigned(ListProcesses.FocusedNode);
menuEditVariable.Enabled := (mysql_version >= 40003)
and (PageControlHost.ActivePage = tabVariables)
and Assigned(ListVariables.FocusedNode);
if not menuEditVariable.Enabled then
menuEditVariable.Enabled := False;
if mysql_version >= 40003 then
menuEditVariable.Enabled := (PageControlHost.ActivePage = tabVariables) and Assigned(ListVariables.FocusedNode)
else
menuEditVariable.Hint := STR_NOTSUPPORTED;
end;