Fix bug #945: HTML view and Access violation

This commit is contained in:
Ansgar Becker
2009-01-18 09:19:58 +00:00
parent a5cf99deb1
commit a519afb36c

View File

@ -4250,7 +4250,7 @@ begin
inTableTab := FrmIsFocussed and (PageControlMain.ActivePage = tabTable); inTableTab := FrmIsFocussed and (PageControlMain.ActivePage = tabTable);
inDataTab := FrmIsFocussed and (PageControlMain.ActivePage = tabData); inDataTab := FrmIsFocussed and (PageControlMain.ActivePage = tabData);
inDataOrQueryTab := FrmIsFocussed and ((PageControlMain.ActivePage = tabData) or (PageControlMain.ActivePage = tabQuery)); inDataOrQueryTab := FrmIsFocussed and ((PageControlMain.ActivePage = tabData) or (PageControlMain.ActivePage = tabQuery));
inDataOrQueryTabNotEmpty := inDataOrQueryTab and (hoVisible in ActiveGrid.Header.Options); inDataOrQueryTabNotEmpty := inDataOrQueryTab and (ActiveGrid.RootNodeCount > 0);
inQueryTab := FrmIsFocussed and (PageControlMain.ActivePage = tabQuery); inQueryTab := FrmIsFocussed and (PageControlMain.ActivePage = tabQuery);
SelectedNodes := ListTables.GetSortedSelection(False); SelectedNodes := ListTables.GetSortedSelection(False);
@ -4327,7 +4327,7 @@ begin
actCopyAsXML.Enabled := inDataOrQueryTabNotEmpty; actCopyAsXML.Enabled := inDataOrQueryTabNotEmpty;
actCopyAsSQL.Enabled := inDataOrQueryTabNotEmpty; actCopyAsSQL.Enabled := inDataOrQueryTabNotEmpty;
actExportData.Enabled := inDataOrQueryTabNotEmpty; actExportData.Enabled := inDataOrQueryTabNotEmpty;
actHTMLView.Enabled := inDataOrQueryTabNotEmpty; actHTMLView.Enabled := inDataOrQueryTabNotEmpty and Assigned(ActiveGrid.FocusedNode);
setNull1.Enabled := inDataTab and Assigned(DataGrid.FocusedNode); setNull1.Enabled := inDataTab and Assigned(DataGrid.FocusedNode);
// Query tab // Query tab
@ -8456,6 +8456,7 @@ procedure TMainForm.QueryGridFocusChanging(Sender: TBaseVirtualTree; OldNode,
begin begin
if OldColumn <> NewColumn then if OldColumn <> NewColumn then
FocusGridCol(Sender, NewColumn); FocusGridCol(Sender, NewColumn);
ValidateControls;
end; end;