ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/FileClasses/TXAN.pas
(Generate patch)

Comparing oup/current/FileClasses/TXAN.pas (file contents):
Revision 213 by alloc, Tue Jun 12 17:00:48 2007 UTC vs.
Revision 214 by alloc, Tue Jun 12 17:35:56 2007 UTC

# Line 9 | Line 9 | type
9    TFile_TXAN = 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 21 | Line 22 | uses
22   procedure TFile_TXAN.InitDataFields;
23   var
24    tempi: Integer;
24 –  temps: String;
25 –  templist: TStringList;
25   begin
26    inherited;
27    FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
29 –  templist := TStringList.Create;
28    with FDataFields do
29    begin
30      AddField(TFileID, $00, 'FileID', '', nil);
# Line 48 | Line 46 | begin
46      tempi := 2;
47      AddField(TUnused, $1A, 'Unused', '', @tempi);
48  
49 +    tempi := 2;
50      with AddField(TArray, $1C, 'AnimTextures array', '', @tempi) do
51      begin
52        AddField(TLinkByID, $00, 'Texture', '', nil);
53      end;
54    end;
56 –  templist.Free;
55   end;
56  
57  

Diff Legend

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