Changeset 317 for trunk/Forms/FormChat.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/FormChat.pas (moved) (moved from trunk/Forms/UFormChat.pas ) (6 diffs)

trunk/Forms/FormChat.pas

@@ -1 @@
-unit UFormChat;
+unit FormChat;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  UGame, UGameClient;
+  Game, GameClient, FormEx;
 
 type
@@ -11 +11 @@
   { TFormChat }
 
-  TFormChat = class(TForm)
+  TFormChat = class(TFormEx)
     ButtonMessageSend: TButton;
     EditMessage: TEdit;
@@ -18 +18 @@
     procedure ButtonMessageSendClick(Sender: TObject);
     procedure EditMessageKeyPress(Sender: TObject; var Key: char);
-    procedure FormCreate(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-  private
-
   public
     Client: TClient;
   end;
-
-var
-  FormChat: TFormChat;
 
 
@@ -34 +27 @@
 {$R *.lfm}
 
-uses
-  UCore;
-
 { TFormChat }
 
@@ -42 +32 @@
 begin
   if Key = #13 then ButtonMessageSend.Click;
-end;
-
-procedure TFormChat.FormCreate(Sender: TObject);
-begin
-  Core.CoolTranslator1.TranslateComponentRecursive(Self);
-end;
-
-procedure TFormChat.FormShow(Sender: TObject);
-begin
-  Core.ThemeManager1.UseTheme(Self);
 end;