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 247 by alloc, Tue Jul 17 22:27:16 2007 UTC vs.
Revision 248 by alloc, Mon Nov 26 11:02:28 2007 UTC

#	Line 6 | Line 6 | uses
6		_FileTypes;
7
8		type
9	<	TFile_TXMP = class(TFile)
9	>	TFile_TXMP = class(TResource)
10		public
11		procedure InitDataFields; override;
12		procedure InitEditor; override;
#	Line 26 | Line 26 | begin
26		FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
27		with FDataFields do
28		begin
29	<	AddField(TFileID, 'FileID', '', []);
29	>	AddField(TResourceID, 'FileID', '', []);
30		AddField(TLevelID, 'LevelID', '', []);
31
32		AddField(TString, 'FileName', '', [128]);

Diff Legend

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