Add "EXPLAIN query" to context menu of process list. Fixes issue #1717.

This commit is contained in:
Ansgar Becker
2010-02-24 18:56:29 +00:00
parent c9950e1c51
commit b730230b09
2 changed files with 14 additions and 5 deletions

View File

@ -459,6 +459,7 @@ type
actQueryFindAgain1: TMenuItem;
Replacetext1: TMenuItem;
lblExplainProcess: TLabel;
menuExplainProcess: TMenuItem;
procedure refreshMonitorConfig;
procedure loadWindowConfig;
procedure saveWindowConfig;
@ -5916,6 +5917,7 @@ begin
lblExplainProcess.Enabled := enableSQLView
and (UpperCase(GetFirstWord(SynMemoProcessView.Text)) <> 'SHOW')
and (SynMemoProcessView.GetTextLen > 0);
menuExplainProcess.Enabled := lblExplainProcess.Enabled;
end;