Fix bug #891: Wrong view loaded into view editor

This commit is contained in:
Ansgar Becker
2008-12-02 22:57:18 +00:00
parent 04cb62571e
commit 9deb5391cd
3 changed files with 4 additions and 4 deletions

View File

@@ -1282,7 +1282,7 @@ object MDIChild: TMDIChild
object menuAlterTable: TMenuItem
Action = MainForm.actEditTableProperties
end
object actView1: TMenuItem
object menuEditView: TMenuItem
Action = MainForm.actEditView
end
object InsertfilesintoBLOBfields1: TMenuItem

View File

@@ -230,7 +230,7 @@ type
lblFilterProcesses: TLabel;
editFilterProcesses: TEdit;
menuEditVariable: TMenuItem;
actView1: TMenuItem;
menuEditView: TMenuItem;
Createview1: TMenuItem;
menuTreeCreateView: TMenuItem;
menuTreeEditView: TMenuItem;

View File

@@ -967,11 +967,11 @@ begin
ViewForm.EditViewName := '';
if (Sender as TAction) = actEditView then begin
// Edit mode
if Assigned(Childwin.ListTables.FocusedNode) then begin
if actEditView.ActionComponent = Childwin.menuEditView then begin
// "Edit view" was clicked in ListTables' context menu
NodeData := Childwin.ListTables.GetNodeData(Childwin.ListTables.FocusedNode);
ViewForm.EditViewName := NodeData.Captions[0];
end else if Childwin.DBtree.GetFirstSelected <> nil then begin
end else if actEditView.ActionComponent = Childwin.menuTreeEditView then begin
// "Edit view" was clicked in DBTree's context menu
ds := Childwin.FetchDbTableList(Childwin.ActiveDatabase);
ds.RecNo := Childwin.DBtree.GetFirstSelected.Index+1;