Consistently update SQL viewer for selected process node, in "Processes" tab. Also, make it more clear if no process is selected. Fixes issue #1693.

This commit is contained in:
Ansgar Becker
2010-02-14 16:58:56 +00:00
parent b5e46ba212
commit f44d19cb56

View File

@ -5883,9 +5883,14 @@ begin
pnlProcessView.Enabled := enableSQLView; pnlProcessView.Enabled := enableSQLView;
if enableSQLView then begin if enableSQLView then begin
NodeData := ListProcesses.GetNodeData(Node); NodeData := ListProcesses.GetNodeData(Node);
SynMemoProcessView.Highlighter := SynSQLSyn1;
SynMemoProcessView.Text := NodeData.Captions[7]; SynMemoProcessView.Text := NodeData.Captions[7];
end SynMemoProcessView.Color := clWindow;
else SynMemoProcessView.Clear; end else begin
SynMemoProcessView.Highlighter := nil;
SynMemoProcessView.Text := 'Please select a process in the above list.';
SynMemoProcessView.Color := clBtnFace;
end;
end; end;
@ -7931,6 +7936,9 @@ begin
FreeAndNil(Results); FreeAndNil(Results);
vt.RootNodeCount := Length(VTRowDataListProcesses); vt.RootNodeCount := Length(VTRowDataListProcesses);
vt.SortTree(vt.Header.SortColumn, vt.Header.SortDirection); vt.SortTree(vt.Header.SortColumn, vt.Header.SortDirection);
// Reset focused node and column, so OnFocusChange will fire, and update the SQL viewer
vt.FocusedNode := nil;
vt.FocusedColumn := NoColumn;
SetVTSelection(vt, Sel); SetVTSelection(vt, Sel);
// Apply or reset filter // Apply or reset filter
editFilterVTChange(Sender); editFilterVTChange(Sender);