Changeset 214 for oup/current/FileClasses
- Timestamp:
- Jun 12, 2007, 7:35:56 PM (18 years ago)
- Location:
- oup/current/FileClasses
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/FileClasses/TXAN.pas
r213 r214 10 10 protected 11 11 procedure InitDatLinks; override; 12 procedure InitRawList; override; 13 public 12 14 procedure InitDataFields; override; 13 procedure InitRawList; override;14 15 end; 15 16 … … 22 23 var 23 24 tempi: Integer; 24 temps: String;25 templist: TStringList;26 25 begin 27 26 inherited; 28 27 FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); 29 templist := TStringList.Create;30 28 with FDataFields do 31 29 begin … … 49 47 AddField(TUnused, $1A, 'Unused', '', @tempi); 50 48 49 tempi := 2; 51 50 with AddField(TArray, $1C, 'AnimTextures array', '', @tempi) do 52 51 begin … … 54 53 end; 55 54 end; 56 templist.Free;57 55 end; 58 56 -
oup/current/FileClasses/TXMP.pas
r213 r214 10 10 protected 11 11 procedure InitDatLinks; override; 12 procedure InitRawList; override; 13 public 12 14 procedure InitDataFields; override; 13 procedure InitRawList; override;14 15 end; 15 16 -
oup/current/FileClasses/_EmptyFile.pas
r212 r214 10 10 protected 11 11 procedure InitDatLinks; override; 12 procedure InitRawList; override; 13 public 12 14 procedure InitDataFields; override; 13 procedure InitRawList; override;14 15 end; 15 16 … … 21 22 procedure TFile_Empty.InitDataFields; 22 23 begin 24 inherited; 23 25 FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil); 24 26 end; -
oup/current/FileClasses/_FileTypes.pas
r213 r214 4 4 5 5 uses 6 TypeDefs, _DataTypes, Classes ;6 TypeDefs, _DataTypes, Classes, Forms; 7 7 8 8 … … 23 23 FDataFields: TBlock; 24 24 FRawParts: TRawDataList; 25 26 FEditor: TFrame; 27 FOpened: Boolean; 25 28 26 29 procedure InitDatLinks; virtual; abstract; … … 39 42 40 43 procedure InitDataFields; virtual; 44 procedure InitEditor; virtual; 41 45 42 46 property FileStream: TMemoryStream read FFileStream; … … 50 54 property Changed: Boolean read FChanged write FChanged; 51 55 56 property Editor: TFrame read FEditor; 57 property Opened: Boolean read FOpened write FOpened; 58 52 59 property ChildCount: Integer read GetChildCount; 53 60 property LinkByOffset[Offset: Integer]: TDatLink read GetDatLinkByOffset; … … 78 85 constructor TFile.Create(ConnectionID, FileID: Integer); 79 86 var 80 i: Integer;81 87 fileinfo: TFileInfo; 82 88 begin … … 100 106 InitRawList(); 101 107 FDataFields := nil; 108 FEditor := nil; 102 109 103 110 if not (Self is TFile_Empty) then … … 164 171 165 172 function TFile.GetFieldByOffset(Offset: Integer): TDataField; 166 var167 i: Integer;168 173 begin 169 174 Result := FDataFields.FieldByOffset[Offset]; … … 229 234 end; 230 235 236 procedure TFile.InitEditor; 237 begin 238 Exit; 239 end; 240 231 241 function GetDatLinkValue(stream: TStream; offset: Integer): Integer; 232 242 begin -
oup/current/FileClasses/_MetaManager.pas
r213 r214 2 2 interface 3 3 4 uses _FileTypes, TXAN, TXMP, _EmptyFile;4 uses _FileTypes, SUBT, TXAN, TXMP, _EmptyFile; 5 5 6 6 type … … 12 12 13 13 const 14 FileDescs: array[0..1] of TFileDesc = ( 14 FileDescs: array[0..2] of TFileDesc = ( 15 (ext: 'SUBT'; ftype: TFile_SUBT), 15 16 (ext: 'TXAN'; ftype: TFile_TXAN), 16 17 (ext: 'TXMP'; ftype: TFile_TXMP) … … 34 35 property FileById[Id: Integer]: TFile read GetFileById; 35 36 end; 37 38 var 39 Meta: TMetaManager; 36 40 37 41 implementation
Note:
See TracChangeset
for help on using the changeset viewer.