Changeset 317 for trunk/Forms/FormChat.lfm

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.lfm (moved) (moved from trunk/Forms/UFormChat.lfm ) (2 diffs)

trunk/Forms/FormChat.lfm

@@ -1 +1 @@
 object FormChat: TFormChat
-  Left = 496
-  Height = 368
-  Top = 328
-  Width = 439
+  Left = 1060
+  Height = 442
+  Top = 536
+  Width = 527
   Caption = 'Chat'
-  ClientHeight = 368
-  ClientWidth = 439
-  DesignTimePPI = 120
-  OnCreate = FormCreate
-  OnShow = FormShow
-  LCLVersion = '2.0.0.4'
+  ClientHeight = 442
+  ClientWidth = 527
+  DesignTimePPI = 144
+  LCLVersion = '3.4.0.0'
   object MemoChat: TMemo
-    Left = 7
-    Height = 302
-    Top = 27
-    Width = 424
+    Left = 8
+    Height = 363
+    Top = 32
+    Width = 509
     Anchors = [akTop, akLeft, akRight, akBottom]
     ParentFont = False
@@ -23 +21 @@
   end
   object EditMessage: TEdit
-    Left = 7
-    Height = 28
-    Top = 334
-    Width = 342
+    Left = 8
+    Height = 43
+    Top = 392
+    Width = 411
     Anchors = [akLeft, akRight, akBottom]
-    OnKeyPress = EditMessageKeyPress
     ParentFont = False
     TabOrder = 1
+    OnKeyPress = EditMessageKeyPress
   end
   object ButtonMessageSend: TButton
-    Left = 353
-    Height = 26
-    Top = 335
-    Width = 78
+    Left = 423
+    Height = 31
+    Top = 403
+    Width = 94
     Anchors = [akRight, akBottom]
     Caption = 'Send'
-    OnClick = ButtonMessageSendClick
     ParentFont = False
     TabOrder = 2
+    OnClick = ButtonMessageSendClick
   end
   object Label1: TLabel
-    Left = 8
-    Height = 20
-    Top = 3
-    Width = 33
+    Left = 10
+    Height = 26
+    Top = 4
+    Width = 43
     Caption = 'Chat:'
     ParentColor = False