Changeset 317 for trunk/Forms/FormServer.pas

Timestamp:

Jun 21, 2024, 12:44:53 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.
• Modified: Use TFormEx for all forms for code simplification.

File:

• trunk/Forms/FormServer.pas (moved) (moved from trunk/Forms/UFormServer.pas ) (6 diffs)

trunk/Forms/FormServer.pas

@@ -1 @@
-unit UFormServer;
+unit FormServer;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Spin, UServerList;
+  Spin, ServerList, FormEx;
 
 type
@@ -11 +11 @@
   { TFormServer }
 
-  TFormServer = class(TForm)
+  TFormServer = class(TFormEx)
     ButtonCancel: TButton;
     ButtonOk: TButton;
@@ -21 +21 @@
     SpinEdit1: TSpinEdit;
     procedure ButtonOkClick(Sender: TObject);
-    procedure FormShow(Sender: TObject);
   private
     FServerInfo: TServerInfo;
@@ -31 +30 @@
   end;
 
-var
-  FormServer: TFormServer;
-
 
 implementation
@@ -39 +35 @@
 {$R *.lfm}
 
-uses
-  UCore;
-
 { TFormServer }
-
-procedure TFormServer.FormShow(Sender: TObject);
-begin
-  Core.ThemeManager1.UseTheme(Self);
-end;
 
 procedure TFormServer.ButtonOkClick(Sender: TObject);