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

Comparing oup/current/FileClasses/AKEV.pas (file contents):
Revision 247 by alloc, Sat Aug 18 16:42:09 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_AKEV = class(TFile)
9 >  TFile_AKEV = 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(TLinkByID, 'PNTA-link', 'Link to the 3D Point Array', ['PNTA']);

Diff Legend

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