Changeset 219 for trunk/Forms/FormImportFormat.pas

Timestamp:

Jan 17, 2025, 9:05:54 PM (4 days ago)

Author:

chronos

Message:

• Modified: Updated Common package.
• Modified: Remove U prefix from unit names.
• Modified: Use Gneeric.Collections instead of fgl.
• Modified: Do not use global form variables.

File:

• trunk/Forms/FormImportFormat.pas (moved) (moved from trunk/Forms/UFormImportFormat.pas ) (8 diffs)

trunk/Forms/FormImportFormat.pas

@@ -1 @@
-unit UFormImportFormat;
-
-{$mode delphi}
+unit FormImportFormat;
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, Menus, ActnList, UAcronym;
+  ComCtrls, Menus, ActnList, Acronym;
 
 type
@@ -43 +41 @@
     procedure AMoveUpExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListViewItemRulesData(Sender: TObject; Item: TListItem);
-  private
-    { private declarations }
   public
     ImportFormat: TImportFormat;
@@ -64 +59 @@
 
 uses
-  UCore, UFormImportPattern;
+  Core, FormImportPattern;
 
 {$R *.lfm}
@@ -80 +75 @@
 var
   NewImportPattern: TImportPattern;
+  FormImportPattern: TFormImportPattern;
 begin
   FormImportPattern := TFormImportPattern.Create(Self);
@@ -100 +96 @@
 var
   NewImportPattern: TImportPattern;
+  FormImportPattern: TFormImportPattern;
 begin
   FormImportPattern := TFormImportPattern.Create(Self);
@@ -152 +149 @@
 end;
 
-procedure TFormImportFormat.FormClose(Sender: TObject;
-  var CloseAction: TCloseAction);
-begin
-  Core.PersistentForm1.Save(Self);
-end;
-
 procedure TFormImportFormat.FormCreate(Sender: TObject);
 begin
-  Core.Translator.TranslateComponentRecursive(Self);
-  Core.ThemeManager.UseTheme(Self);
   YesNoString[False] := SNo;
   YesNoString[True] := SYes;
@@ -168 +157 @@
 procedure TFormImportFormat.FormShow(Sender: TObject);
 begin
-  Core.PersistentForm1.Load(Self);
   ReloadList;
 end;