Changeset 243 for trunk/Forms/UFormServer.pas

Timestamp:

Sep 21, 2018, 2:09:10 PM (6 years ago)

Author:

chronos

Message:

• Added: Support for color themes.
• Added: Remember dimensions for more forms.

File:

• trunk/Forms/UFormServer.pas (modified) (2 diffs)

trunk/Forms/UFormServer.pas

@@ -22 +22 @@
     Label3: TLabel;
     SpinEdit1: TSpinEdit;
+    procedure FormShow(Sender: TObject);
   private
 
@@ -36 +37 @@
 {$R *.lfm}
 
+uses
+  UCore;
+
 { TFormServer }
+
+procedure TFormServer.FormShow(Sender: TObject);
+begin
+  Core.ThemeManager1.UseTheme(Self);
+end;
 
 procedure TFormServer.Load(Server: TServerInfo);