ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/FileClasses/TXAN.pas

Comparing oup/current/FileClasses/TXAN.pas (file contents):
Revision 215 by alloc, Tue Jun 12 20:31:54 2007 UTC vs.
Revision 233 by alloc, Fri Jun 29 12:38:24 2007 UTC

#	Line 19 | Line 19 | uses
19		procedure TFile_TXAN.InitDataFields;
20		var
21		tempi: Integer;
22	+	arrargs: TArrayArgs;
23		begin
24		inherited;
25		FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
#	Line 43 | Line 44 | begin
44		tempi := 2;
45		AddField(TUnused, $1A, 'Unused', '', @tempi);
46
47	<	tempi := 2;
48	<	with AddField(TArray, $1C, 'AnimTextures array', '', @tempi) do
47	>	arrargs.CounterSize := 2;
48	>	arrargs.BlockLength := 4;
49	>	with AddField(TArray, $1C, 'AnimTextures array', '', @arrargs) do
50		begin
51		AddField(TLinkByID, $00, 'Texture', '', nil);
52		end;
53		end;
54	+	FFileStream.Free;
55	+	FFileStream := nil;
56		end;
57
58
59		end.
56	–

Diff Legend

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