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

Comparing oup/current/FileClasses/SUBT.pas (file contents):
Revision 245 by alloc, Sat Aug 18 15:51:42 2007 UTC vs.
Revision 248 by alloc, Mon Nov 26 11:02:28 2007 UTC

# Line 6 | Line 6 | uses
6    _FileTypes, Grids, StdCtrls, ExtCtrls;
7  
8   type
9 <  TFile_SUBT = class(TFile)
9 >  TFile_SUBT = class(TResource)
10        procedure SetOpened(Opened: Boolean); override;
11      private
12        grid: TStringGrid;
# Line 30 | Line 30 | begin
30    FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
31    with FDataFields do
32    begin
33 <    AddField(TFileID, 'FileID', '', []);
33 >    AddField(TResourceID, 'FileID', '', []);
34      AddField(TLevelID, 'LevelID', '', []);
35      AddField(TUnused, 'Unused data', '', [16]);
36  

Diff Legend

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