ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/FileClasses/TXMP.pas

Comparing oup/current/FileClasses/TXMP.pas (file contents):
Revision 231 by alloc, Tue Jun 12 20:31:54 2007 UTC vs.
Revision 232 by alloc, Thu Jun 28 09:24:08 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 105 | Line 107 | begin
107		end;
108
109
110	+	procedure TFile_TXMP.InitEditor;
111	+	var
112	+	group: TGroupBox;
113	+	splitter: TSplitter;
114	+	begin
115	+	inherited;
116	+	FEditor := TFrame.Create(nil);
117	+	group := TGroupBox.Create(FEditor);
118	+	group.Align := alTop;
119	+	group.Height := 150;
120	+	group.Caption := '1. ';
121	+	group.Parent := FEditor;
122	+
123	+	splitter := TSplitter.Create(FEditor);
124	+	splitter.Align := alTop;
125	+	splitter.Top := group.Height + 10;
126	+	splitter.AutoSnap := False;
127	+	splitter.MinSize := 100;
128	+	splitter.Beveled := True;
129	+	splitter.Height := 8;
130	+	splitter.Parent := FEditor;
131	+
132	+	group := TGroupBox.Create(FEditor);
133	+	group.Align := alClient;
134	+	group.Caption := '2. ';
135	+	group.Parent := FEditor;
136	+	end;
137	+
138		end.
139

Diff Legend

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