Changeset 219 for trunk/Forms/FormImportFormats.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/FormImportFormats.pas (moved) (moved from trunk/Forms/UFormImportFormats.pas ) (13 diffs)

trunk/Forms/FormImportFormats.pas

@@ -1 @@
-unit UFormImportFormats;
-
-{$mode delphi}
+unit FormImportFormats;
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ActnList, Menus, UAcronym;
+  ActnList, Menus, Acronym, FormEx;
 
 type
@@ -13 +11 @@
   { TFormImportFormats }
 
-  TFormImportFormats = class(TForm)
+  TFormImportFormats = class(TFormEx)
     AAdd: TAction;
     ActionList1: TActionList;
@@ -30 +28 @@
     procedure AModifyExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -38 +35 @@
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
-  private
-    { private declarations }
   public
     ImportFormats: TImportFormats;
@@ -46 +41 @@
   end;
 
-var
-  FormImportFormats: TFormImportFormats;
 
 implementation
@@ -54 +47 @@
 
 uses
-  UCore, UFormImportFormat;
+  Core, FormImportFormat;
 
 resourcestring
@@ -104 +97 @@
 procedure TFormImportFormats.FormShow(Sender: TObject);
 begin
-  Core.PersistentForm1.Load(Self);
   UpdateList;
-  Core.ScaleDPI1.ScaleControl(ToolBar1, Core.ScaleDPI1.DesignDPI);
+  Core.Core.ScaleDPI1.ScaleControl(ToolBar1, Core.Core.ScaleDPI1.DesignDPI);
 end;
 
@@ -112 +104 @@
 var
   NewImportFormat: TImportFormat;
+  FormImportFormat: TFormImportFormat;
 begin
   NewImportFormat := TImportFormat.Create;
@@ -123 +116 @@
         ImportFormats.Add(NewImportFormat);
         NewImportFormat := nil;
-        Core.AcronymDb.Modified := True;
+        Core.Core.AcronymDb.Modified := True;
         UpdateList;
       end else ShowMessage(Format(SImportFormatAlreadyExists, [NewImportFormat.Name]));
@@ -136 +129 @@
 var
   NewImportFormat: TImportFormat;
+  FormImportFormat: TFormImportFormat;
 begin
   if Assigned(ListView1.Selected) then begin
@@ -148 +142 @@
           if not Assigned(ImportFormats.SearchByName(NewImportFormat.Name)) then begin;
             TImportFormat(ListView1.Selected.Data).Assign(NewImportFormat);
-            Core.AcronymDb.Modified := True;
+            Core.Core.AcronymDb.Modified := True;
             UpdateList;
           end else ShowMessage(Format(SImportFormatAlreadyExists, [NewImportFormat.Name]));
         end else begin
           TImportFormat(ListView1.Selected.Data).Assign(NewImportFormat);
-          Core.AcronymDb.Modified := True;
+          Core.Core.AcronymDb.Modified := True;
           UpdateList;
         end;
@@ -179 +173 @@
 end;
 
-procedure TFormImportFormats.FormClose(Sender: TObject;
-  var CloseAction: TCloseAction);
-begin
-  Core.PersistentForm1.Save(Self);
-end;
-
 procedure TFormImportFormats.FormCreate(Sender: TObject);
 var
   I: Integer;
 begin
-  Core.Translator.TranslateComponentRecursive(Self);
-  Core.ThemeManager.UseTheme(Self);
   for I := 0 to ToolBar1.ButtonCount - 1 do
     ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;