[GExperts-Checkins] SF.net SVN: gexperts:[4290] trunk/Source/Editor/GX_eAlign.pas

[<tw...@us...>]

Revision: 4290
          http://sourceforge.net/p/gexperts/code/4290
Author:   twm
Date:     2024-08-10 15:18:36 +0000 (Sat, 10 Aug 2024)
Log Message:
-----------
Moved the code from FormCreate to InitializeForm and calle that at the end of the constructor

Modified Paths:
--------------
    trunk/Source/Editor/GX_eAlign.pas

Modified: trunk/Source/Editor/GX_eAlign.pas
===================================================================
--- trunk/Source/Editor/GX_eAlign.pas	2024-08-10 14:03:32 UTC (rev 4289)
+++ trunk/Source/Editor/GX_eAlign.pas	2024-08-10 15:18:36 UTC (rev 4290)
@@ -19,7 +19,8 @@
     cbxMode: TComboBox;
     procedure lstTokensDblClick(Sender: TObject);
     procedure btnConfigClick(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
+  private
+    procedure InitializeForm;
   public
     constructor Create(_Owner: TComponent); override;
   end;
@@ -268,11 +269,12 @@
   TControl_SetMinConstraints(Self);
 
   InitDpiScaler;
+
+  InitializeForm;
 end;
 
-procedure TfmAlign.FormCreate(Sender: TObject);
+procedure TfmAlign.InitializeForm;
 begin
-  inherited;
   SetDefaultFont(Self);
 end;
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.