Changeset 239 for oup/current/Tools

Timestamp:

Jul 14, 2007, 10:22:05 PM (17 years ago)

Author:

alloc

Message:

 

Location:

oup/current/Tools

Files:

• MetaEditor.dfm (modified) (1 diff)
• MetaEditor.pas (modified) (3 diffs)

oup/current/Tools/MetaEditor.dfm

@@ -316 +316 @@
     object vst_newRoot: TMenuItem
       Caption = 'Set as root element in new window'
+      OnClick = vst_newRootClick
     end
     object vst_setRoot: TMenuItem

oup/current/Tools/MetaEditor.pas

@@ -52 +52 @@
       var PopupMenu: TPopupMenu);
     procedure vst_setRootClick(Sender: TObject);
+    procedure vst_newRootClick(Sender: TObject);
   private
     root: TTreeElement;
@@ -62 +63 @@
 implementation
 {$R *.dfm}
-uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes;
+uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes, Main;
 
 type
@@ -272 +273 @@
 end;
 
+procedure TForm_Meta.vst_newRootClick(Sender: TObject);
+var
+  data: PNodeData;
+  form: TForm_BaseTemplate;
+begin
+  inherited;
+  data := VST.GetNodeData(VST.FocusedNode);
+  form := nil;
+  form := Form_Main.open_child('meta');
+  if form is TForm_Meta then
+    TForm_Meta(form).SetRoot(data.Field);
+end;
+
 procedure TForm_Meta.vst_setRootClick(Sender: TObject);
 var