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 213 by alloc, Tue Jun 12 17:00:48 2007 UTC

#	Line 26 | Line 26 | var
26		temps: String;
27		templist: TStringList;
28		begin
29	<	FDataFields := TBlock.Create(Self, 0, 'Base', '', nil);
29	>	inherited;
30	>	FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
31		templist := TStringList.Create;
32		with FDataFields do
33		begin
#	Line 110 | Line 111 | procedure TFile_TXMP.InitDatLinks;
111		begin
112		SetLength(FDatLinks, 2);
113		FDatLinks[0].SrcOffset := $94;
114	<	FDatLinks[0].DestID := GetDatLinkValue(FFile, $94);
114	>	FDatLinks[0].DestID := GetDatLinkValue(FFileStream, $94);
115		FDatLinks[0].PosDestExts := '*';
116		FDatLinks[1].SrcOffset := $98;
117	<	FDatLinks[1].DestID := GetDatLinkValue(FFile, $98);
117	>	FDatLinks[1].DestID := GetDatLinkValue(FFileStream, $98);
118		FDatLinks[1].PosDestExts := 'TXMP';
119		end;
120

Diff Legend

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