Changeset 214 for oup/current/FileClasses

Timestamp:

Jun 12, 2007, 7:35:56 PM (17 years ago)

Author:

alloc

Message:

 

Location:

oup/current/FileClasses

Files:

• TXAN.pas (modified) (4 diffs)
• TXMP.pas (modified) (1 diff)
• _EmptyFile.pas (modified) (2 diffs)
• _FileTypes.pas (modified) (8 diffs)
• _MetaManager.pas (modified) (3 diffs)

oup/current/FileClasses/TXAN.pas

@@ -10 +10 @@
     protected
       procedure InitDatLinks; override;
+      procedure InitRawList; override;
+    public
       procedure InitDataFields; override;
-      procedure InitRawList; override;
   end;
 
@@ -22 +23 @@
 var
   tempi: Integer;
-  temps: String;
-  templist: TStringList;
 begin
   inherited;
   FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
-  templist := TStringList.Create;
   with FDataFields do
   begin
@@ -49 +47 @@
     AddField(TUnused, $1A, 'Unused', '', @tempi);
 
+    tempi := 2;
     with AddField(TArray, $1C, 'AnimTextures array', '', @tempi) do
     begin
@@ -54 +53 @@
     end;
   end;
-  templist.Free;
 end;
 

oup/current/FileClasses/TXMP.pas

@@ -10 +10 @@
     protected
       procedure InitDatLinks; override;
+      procedure InitRawList; override;
+    public
       procedure InitDataFields; override;
-      procedure InitRawList; override;
   end;
 

oup/current/FileClasses/_EmptyFile.pas

@@ -10 +10 @@
     protected
       procedure InitDatLinks; override;
+      procedure InitRawList; override;
+    public
       procedure InitDataFields; override;
-      procedure InitRawList; override;
   end;
 
@@ -21 +22 @@
 procedure TFile_Empty.InitDataFields;
 begin
+  inherited;
   FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
 end;

oup/current/FileClasses/_FileTypes.pas

@@ -4 +4 @@
 
 uses
-  TypeDefs, _DataTypes, Classes;
+  TypeDefs, _DataTypes, Classes, Forms;
 
 
@@ -23 +23 @@
       FDataFields: TBlock;
       FRawParts: TRawDataList;
+
+      FEditor: TFrame;
+      FOpened: Boolean;
 
       procedure InitDatLinks; virtual; abstract;
@@ -39 +42 @@
 
       procedure InitDataFields; virtual;
+      procedure InitEditor; virtual;
 
       property FileStream: TMemoryStream read FFileStream;
@@ -50 +54 @@
       property Changed: Boolean read FChanged write FChanged;
 
+      property Editor: TFrame read FEditor;
+      property Opened: Boolean read FOpened write FOpened;
+
       property ChildCount: Integer read GetChildCount;
       property LinkByOffset[Offset: Integer]: TDatLink read GetDatLinkByOffset;
@@ -78 +85 @@
 constructor TFile.Create(ConnectionID, FileID: Integer);
 var
-  i: Integer;
   fileinfo: TFileInfo;
 begin
@@ -100 +106 @@
   InitRawList();
   FDataFields := nil;
+  FEditor := nil;
 
   if not (Self is TFile_Empty) then
@@ -164 +171 @@
 
 function TFile.GetFieldByOffset(Offset: Integer): TDataField;
-var
-  i: Integer;
 begin
   Result := FDataFields.FieldByOffset[Offset];
@@ -229 +234 @@
 end;
 
+procedure TFile.InitEditor;
+begin
+  Exit;
+end;
+
 function GetDatLinkValue(stream: TStream; offset: Integer): Integer;
 begin

oup/current/FileClasses/_MetaManager.pas

@@ -2 +2 @@
 interface
 
-uses _FileTypes, TXAN, TXMP, _EmptyFile;
+uses _FileTypes, SUBT, TXAN, TXMP, _EmptyFile;
 
 type
@@ -12 +12 @@
 
 const
-  FileDescs: array[0..1] of TFileDesc = (
+  FileDescs: array[0..2] of TFileDesc = (
+    (ext: 'SUBT'; ftype: TFile_SUBT),
     (ext: 'TXAN'; ftype: TFile_TXAN),
     (ext: 'TXMP'; ftype: TFile_TXMP)
@@ -34 +35 @@
       property FileById[Id: Integer]: TFile read GetFileById;
   end;
+
+var
+  Meta: TMetaManager;
 
 implementation