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

Comparing oup/current/FileClasses/AKVA.pas (file contents):
Revision 247 by alloc, Tue Jul 17 22:27:16 2007 UTC vs.
Revision 248 by alloc, Mon Nov 26 11:02:28 2007 UTC

# Line 6 | Line 6 | uses
6    _FileTypes;
7  
8   type
9 <  TFile_AKVA = class(TFile)
9 >  TFile_AKVA = class(TResource)
10      public
11        procedure InitDataFields; override;
12    end;
# Line 22 | Line 22 | begin
22    FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
23    with FDataFields do
24    begin
25 <    AddField(TFileID, 'FileID', '', []);
25 >    AddField(TResourceID, 'FileID', '', []);
26      AddField(TLevelID, 'LevelID', '', []);
27  
28      AddField(TUnused, 'Unused data', '', [20]);

Diff Legend

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