Changeset 15 for trunk/StudioCommon/USource.pas

Timestamp:

Aug 6, 2012, 2:35:22 PM (12 years ago)

Author:

chronos

Message:

• Added: Registration of new file templates for modules.
• Added: Program stores last opened file list in registry.

File:

• trunk/StudioCommon/USource.pas (modified) (6 diffs)

trunk/StudioCommon/USource.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, SpecializedList;
+  Classes, SysUtils, SpecializedList, Forms;
 
 type
+
+  { TSourceType }
+
   TSourceType = class
     Extension: string;
     Title: string;
+    Form: TForm;
+    constructor Create; virtual;
   end;
+
+  TFileTypeClass = class of TSourceType;
 
   { TFileTypes }
@@ -20 +27 @@
   end;
 
+  { TSource }
+
   TSource = class
-    Name: string;
+  private
+    FName: string;
+    procedure SetName(AValue: string);
+  public
+    Modified: Boolean;
+    Form: TForm;
+    property Name: string read FName write SetName;
   end;
 
@@ -29 +44 @@
     Items: TListObject; // TListObject<TSource>
     Main: TSource;
+  end;
+
+  { TFileTemplate }
+
+  TFileTemplate = class
+  public
+    Name: string;
+    Description: TStringList;
+    FileTypeClass: TSourceType;
+    constructor Create; virtual;
+    destructor Destroy; override;
+    function Execute: TSource; virtual;
+  end;
+
+  TFileTemplates = class(TListObject)
   end;
 
@@ -54 +84 @@
   TConvertorClass = class of TConvertor;
 
+  { TSourceText }
+
   TSourceText = class(TSource)
-    Content: string;
-    InMemory: Boolean;
+  private
+  public
+    Loaded: Boolean;
+    Content: TStringList;
+    constructor Create;
+    destructor Destroy; override;
   end;
+
 
 
@@ -64 +101 @@
 resourcestring
   SAllFiles = 'All files';
+
+{ TSourceType }
+
+constructor TSourceType.Create;
+begin
+  inherited;
+end;
+
+procedure TSource.SetName(AValue: string);
+begin
+  if FName = AValue then Exit;
+  FName := AValue;
+  if Assigned(Form) then
+    Form.Caption := ExtractFileName(FName);
+end;
+
+
+{ TFileTemplate }
+
+constructor TFileTemplate.Create;
+begin
+  Description := TStringList.Create;
+end;
+
+destructor TFileTemplate.Destroy;
+begin
+  Description.Free;
+  inherited Destroy;
+end;
+
+function TFileTemplate.Execute: TSource;
+begin
+
+end;
+
 
 { TFileTypes }
@@ -97 +169 @@
 end;
 
+{ TSourceText }
+
+constructor TSourceText.Create;
+begin
+  Content := TStringList.Create;
+end;
+
+destructor TSourceText.Destroy;
+begin
+  Content.Free;
+  inherited Destroy;
+end;
+
 end.