ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/FileClasses/TXMP.pas
(Generate patch)

Comparing oup/current/FileClasses/TXMP.pas (file contents):
Revision 215 by alloc, Tue Jun 12 20:31:54 2007 UTC vs.
Revision 233 by alloc, Fri Jun 29 12:38:24 2007 UTC

# Line 9 | Line 9 | type
9    TFile_TXMP = class(TFile)
10      public
11        procedure InitDataFields; override;
12 +      procedure InitEditor; override;
13    end;
14  
15   implementation
16  
17   uses
18 <  ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
18 >  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, ExtCtrls, StdCtrls,
19 >  Controls, Forms;
20  
21   { TFile_TXMP }
22  
# Line 102 | Line 104 | begin
104      AddField(TUnused, $A4, 'Unused', '', @tempi);
105    end;
106    templist.Free;
107 +  FFileStream.Free;
108 +  FFileStream := nil;
109   end;
110  
111  
112 < end.
112 > procedure TFile_TXMP.InitEditor;
113 > var
114 >  group: TGroupBox;
115 >  splitter: TSplitter;
116 > begin
117 >  inherited;
118 >  FEditor := TFrame.Create(nil);
119 >  group := TGroupBox.Create(FEditor);
120 >  group.Align := alTop;
121 >  group.Height := 150;
122 >  group.Caption := '1. ';
123 >  group.Parent := FEditor;
124 >
125 >  splitter := TSplitter.Create(FEditor);
126 >  splitter.Align := alTop;
127 >  splitter.Top := group.Height + 10;
128 >  splitter.AutoSnap := False;
129 >  splitter.MinSize := 100;
130 >  splitter.Beveled := True;
131 >  splitter.Height := 8;
132 >  splitter.Parent := FEditor;
133 >
134 >  group := TGroupBox.Create(FEditor);
135 >  group.Align := alClient;
136 >  group.Caption := '2. ';
137 >  group.Parent := FEditor;
138 > end;
139  
140 + end.

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)