--- oup/current/FileClasses/TXMP.pas	2007/06/12 20:31:54	215
+++ oup/current/FileClasses/TXMP.pas	2007/06/28 09:24:08	232
@@ -9,12 +9,14 @@ type
   TFile_TXMP = class(TFile)
     public
       procedure InitDataFields; override;
+      procedure InitEditor; override;
   end;
 
 implementation
 
 uses
-  ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
+  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, ExtCtrls, StdCtrls, 
+  Controls, Forms;
 
 { TFile_TXMP }
 
@@ -105,5 +107,33 @@ begin
 end;
 
 
+procedure TFile_TXMP.InitEditor;
+var
+  group: TGroupBox;
+  splitter: TSplitter;
+begin
+  inherited;
+  FEditor := TFrame.Create(nil);
+  group := TGroupBox.Create(FEditor);
+  group.Align := alTop;
+  group.Height := 150;
+  group.Caption := '1. ';
+  group.Parent := FEditor;
+
+  splitter := TSplitter.Create(FEditor);
+  splitter.Align := alTop;
+  splitter.Top := group.Height + 10;
+  splitter.AutoSnap := False;
+  splitter.MinSize := 100;
+  splitter.Beveled := True;
+  splitter.Height := 8;
+  splitter.Parent := FEditor;
+
+  group := TGroupBox.Create(FEditor);
+  group.Align := alClient;
+  group.Caption := '2. ';
+  group.Parent := FEditor;
+end;
+
 end.