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 207 by alloc, Tue May 29 19:39:15 2007 UTC vs.
Revision 214 by alloc, Tue Jun 12 17:35:56 2007 UTC

#	Line 3 | Line 3 | unit TXMP;
3		interface
4
5		uses
6	<	TypeDefs, _FileTypes, _DataTypes;
6	>	_FileTypes;
7
8		type
9		TFile_TXMP = class(TFile)
10		protected
11		procedure InitDatLinks; override;
12	–	procedure InitDataFields; override;
12		procedure InitRawList; override;
13	+	public
14	+	procedure InitDataFields; override;
15		end;
16
17		implementation
18
19		uses
20	<	ConnectionManager, Math, Classes;
20	<
21	<	{ TFile_SNDD }
22	<
23	<	procedure TFile_TXMP.InitDatLinks;
24	<	begin
25	<	SetLength(FDatLinks, 2);
26	<	FDatLinks[0].SrcOffset := $94;
27	<	FDatLinks[0].DestID := -1;
28	<	FDatLinks[0].PosDestExts := '*';
29	<	FDatLinks[1].SrcOffset := $98;
30	<	FDatLinks[1].DestID := -1;
31	<	FDatLinks[1].PosDestExts := 'TXMP';
32	<	end;
20	>	ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
21
22	+	{ TFile_TXMP }
23
24		procedure TFile_TXMP.InitDataFields;
25		var
#	Line 38 | Line 27 | var
27		temps: String;
28		templist: TStringList;
29		begin
30	<	FDataFields := TBlock.Create(Self, 0, 'Base', '', nil);
30	>	inherited;
31	>	FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
32		templist := TStringList.Create;
33		with FDataFields do
34		begin
#	Line 118 | Line 108 | begin
108		end;
109
110
111	+	procedure TFile_TXMP.InitDatLinks;
112	+	begin
113	+	SetLength(FDatLinks, 2);
114	+	FDatLinks[0].SrcOffset := $94;
115	+	FDatLinks[0].DestID := GetDatLinkValue(FFileStream, $94);
116	+	FDatLinks[0].PosDestExts := '*';
117	+	FDatLinks[1].SrcOffset := $98;
118	+	FDatLinks[1].DestID := GetDatLinkValue(FFileStream, $98);
119	+	FDatLinks[1].PosDestExts := 'TXMP';
120	+	end;
121	+
122	+
123		procedure TFile_TXMP.InitRawList;
124		var
125		link_pc:   Integer;

Diff Legend

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