Changeset 212 for trunk/Forms/UFormChat.pas

Timestamp:

May 24, 2018, 8:01:20 PM (6 years ago)

Author:

chronos

Message:

• Modified: Show docked chat window on right side in new player window.

File:

• trunk/Forms/UFormChat.pas (modified) (3 diffs)

trunk/Forms/UFormChat.pas

@@ -20 +20 @@
     procedure ButtonMessageSendClick(Sender: TObject);
     procedure EditMessageKeyPress(Sender: TObject; var Key: char);
+    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
 
@@ -29 +31 @@
   FormChat: TFormChat;
 
+
 implementation
 
 {$R *.lfm}
+
+uses
+  UCore;
 
 { TFormChat }
@@ -38 +44 @@
 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
+
 end;