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 209 by alloc, Mon Jun 4 22:07:29 2007 UTC vs.
Revision 214 by alloc, Tue Jun 12 17:35:56 2007 UTC

#	Line 9 | Line 9 | 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
#	Line 26 | 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 110 | Line 112 | procedure TFile_TXMP.InitDatLinks;
112		begin
113		SetLength(FDatLinks, 2);
114		FDatLinks[0].SrcOffset := $94;
115	<	FDatLinks[0].DestID := GetDatLinkValue(FFile, $94);
115	>	FDatLinks[0].DestID := GetDatLinkValue(FFileStream, $94);
116		FDatLinks[0].PosDestExts := '*';
117		FDatLinks[1].SrcOffset := $98;
118	<	FDatLinks[1].DestID := GetDatLinkValue(FFile, $98);
118	>	FDatLinks[1].DestID := GetDatLinkValue(FFileStream, $98);
119		FDatLinks[1].PosDestExts := 'TXMP';
120		end;
121

Diff Legend

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