Changeset 290 for trunk/LocalPlayer/MessgEx.lfm

Timestamp:

Feb 26, 2021, 11:56:48 PM (4 years ago)

Author:

chronos

Message:

• Modified: Use FreeAndNil instead of Free as defensive measure.
• Modified: Use ihnerited without same method name specification.

File:

• trunk/LocalPlayer/MessgEx.lfm (modified) (5 diffs)

trunk/LocalPlayer/MessgEx.lfm

@@ -1 +1 @@
 object MessgExDlg: TMessgExDlg
   Left = 463
+  Height = 134
   Top = 164
+  Width = 418
   BorderIcons = []
   BorderStyle = bsNone
@@ -8 +10 @@
   ClientWidth = 418
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
+  DesignTimePPI = 144
   Font.Color = clWindowText
   Font.Height = -13
   Font.Name = 'MS Sans Serif'
-  Font.Style = []
   FormStyle = fsStayOnTop
   OnClose = FormClose
@@ -19 +20 @@
   OnPaint = FormPaint
   OnShow = FormShow
-  PixelsPerInch = 96
+  LCLVersion = '2.0.12.0'
   Scaled = False
   object Button1: TButtonA
     Left = 43
+    Height = 25
     Top = 104
     Width = 100
-    Height = 25
     Down = False
     Permanent = False
     OnClick = Button1Click
-    Caption = ''
   end
   object Button2: TButtonA
     Left = 159
+    Height = 25
     Top = 104
     Width = 100
-    Height = 25
     Down = False
     Permanent = False
     OnClick = Button2Click
-    Caption = ''
   end
   object Button3: TButtonA
     Left = 275
+    Height = 25
     Top = 104
     Width = 100
-    Height = 25
     Down = False
     Permanent = False
     OnClick = Button3Click
-    Caption = ''
   end
   object RemoveBtn: TButtonB
     Left = 384
+    Height = 25
     Top = 104
     Width = 25
-    Height = 25
     Down = False
     Permanent = False
@@ -63 +61 @@
   object EInput: TEdit
     Left = 125
+    Height = 26
     Top = 64
     Width = 168
-    Height = 19
-    TabStop = False
     BorderStyle = bsNone
     Color = clBlack
-    Font.Charset = DEFAULT_CHARSET
     Font.Color = 4176863
     Font.Height = -15
@@ -75 +71 @@
     Font.Style = [fsBold]
     ParentFont = False
+    TabStop = False
     TabOrder = 0
   end