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 236 by alloc, Fri Jul 13 23:15:47 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]);
#	Line 52 | Line 52 | begin
52		AddField(TInt, 'Width', '', [2]);
53		AddField(TInt, 'Height', '', [2]);
54		AddField(TInt, 'StoreType', '', [4]);
55	<	AddField(TLinkByID, 'TXAN', '', ['*']);
55	>	AddField(TLinkByID, 'TXAN', '', ['TXAN']);
56		AddField(TLinkByID, 'TXMP', '', ['TXMP']);
57	<	AddField(TRawLink, 'RawLink', '', []);
58	<	AddField(TRawLink, 'SepLink', '', []);
57	>	AddField(TRawLink, 'RawLink', '', ['TXMP']);
58	>	AddField(TRawLink, 'SepLink', '', ['TXMP']);
59		AddField(TUnused, 'Unused', '', [$1C]);
60		end;
61		FDataFields.Update(0, -1);

Diff Legend

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