Changeset 16 for trunk/StudioPackage/UDataModule.pas

Timestamp:

Aug 6, 2012, 3:16:26 PM (12 years ago)

Author:

chronos

Message:

• Modified: Definition of text source file moved to new package Basic.

File:

• trunk/StudioPackage/UDataModule.pas (modified) (8 diffs)

trunk/StudioPackage/UDataModule.pas

@@ -11 +11 @@
 
 type
-
-  { TTextTemplate }
-
-  TTextTemplate = class(TFileTemplate)
-    constructor Create; override;
-  end;
-
-  { TTextFileType }
-
-  TTextFileType = class(TSourceType)
-    constructor Create; override;
-  end;
-
   { TOpenedFiles }
 
@@ -35 +22 @@
     procedure OpenFileName(FileName: string);
     procedure OpenFile(Source: TSource);
-    procedure NewFile;
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
   end;
@@ -65 +51 @@
     procedure DataModuleDestroy(Sender: TObject);
   private
-    TextFileType: TSourceType;
-    TextFileTemplate: TTextTemplate;
     procedure AutoOpen;
     procedure DockToPageControl(PageControl: TPageControl; Form: TForm);
@@ -88 +72 @@
 
 uses
-  UFormSourceCode, UFormMain, UFormSettings, UFormModuleList, UFormNewFile;
+  UFormMain, UFormSettings, UFormModuleList, UFormNewFile, ULDModuleBasic;
 
 resourcestring
   SNewFile = 'New file';
-  STextFile = 'Text file';
-
-{ TTextFileType }
-
-constructor TTextFileType.Create;
-begin
-  inherited Create;
-  Extension := '.txt';
-  Title := 'Text file';;
-end;
-
-{ TTextTemplate }
-
-constructor TTextTemplate.Create;
-begin
-  inherited Create;
-  Name := STextFile;
-end;
-
 
 { TOpenedFiles }
@@ -133 +98 @@
 procedure TOpenedFiles.OpenFileName(FileName: string);
 var
-  NewFile: TSourceText;
-begin
-  NewFile := TSourceText.Create;
-  NewFile.Name := FileName;
-  OpenFile(NewFile);
+  NewFile: TSource;
+  FileType: TSourceType;
+begin
+  FileType := DataModule1.FileTypes.FindByExt(ExtractFileExt(FileName));
+  if Assigned(FileType) then begin
+    NewFile := FileType.SourceClass.Create;
+    NewFile.Name := FileName;
+    OpenFile(NewFile);
+  end;
 end;
 
@@ -143 +112 @@
 begin
   AddNew(Source);
-  Source.Form := TFormSourceCode.Create(nil);
+  Source.Form := Source.FileType.Form.Create(nil);
   Source.Form.Caption := ExtractFileName(Source.Name);
   Source.Form.Visible := True;
   Selected := Source;
-  if Assigned(FOnChange) then FOnChange(Self);
-end;
-
-procedure TOpenedFiles.NewFile;
-var
-  NewFile: TSource;
-begin
-  NewFile := TSourceText(AddNew(TSource.Create));
-  NewFile.Name := SNewFile;
-  NewFile.Form := TFormSourceCode.Create(nil);
-  NewFile.Form.Caption := ExtractFileName(NewFile.Name);
-  NewFile.Form.Visible := True;
-  Selected := NewFile;
   if Assigned(FOnChange) then FOnChange(Self);
 end;
@@ -175 +131 @@
   ModuleManager.API := API;
 
-  TextFileType := TTextFileType.Create;
-  API.RegisterFileType(TextFileType);
-  TextFileTemplate := TTextTemplate.Create;
-  API.RegisterFileTemplate(TextFileTemplate);
-
   FormMain := TFormMain.Create(nil);
   Application.UpdateMainForm(FormMain);
   OpenedFiles.OnChange := FormMain.OpenedFileChange;
-  FormSourceCode := TFormSourceCode.Create(nil);
   FormSettings := TFormSettings.Create(nil);
   FormModuleList := TFormModuleList.Create(nil);
@@ -301 +251 @@
 procedure TDataModule1.DataModuleDestroy(Sender: TObject);
 begin
-  API.UnregisterFileType(TextFileType);
-  FreeAndNil(TextFileType);
-  API.UnregisterFileTemplate(TextFileTemplate);
-  FreeAndNil(TextFileTemplate);
-
   SaveToRegistry(RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey));
   FreeAndNil(ModuleManager);
   FreeAndNil(FormNewFile);
   FreeAndNil(FormMain);
-  FreeAndNil(FormSourceCode);
   FreeAndNil(FormSettings);
   FreeAndNil(FormModuleList);