Changeset 474 for trunk/Inp.lfm

Timestamp:

Dec 4, 2023, 7:18:18 PM (5 months ago)

Author:

chronos

Message:

• Fixed: More high dpi related fixes.

File:

• trunk/Inp.lfm (modified) (2 diffs)

trunk/Inp.lfm

@@ -1 +1 @@
 object InputDlg: TInputDlg
   Left = 514
+  Height = 99
   Top = 236
+  Width = 232
   BorderStyle = bsNone
   ClientHeight = 99
   ClientWidth = 232
   Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
+  DesignTimePPI = 144
   Font.Color = clWindowText
-  Font.Height = -13
+  Font.Height = -20
   Font.Name = 'MS Sans Serif'
-  Font.Style = []
   FormStyle = fsStayOnTop
   OnClose = FormClose
@@ -16 +17 @@
   OnPaint = FormPaint
   OnShow = FormShow
-  PixelsPerInch = 96
+  LCLVersion = '2.2.6.0'
   Scaled = False
-  object OKBtn: TButtonA
+  object ButtonOk: TButtonA
     Left = 66
+    Height = 25
     Top = 67
     Width = 100
-    Height = 25
     Down = False
     Permanent = False
-    OnClick = OKBtnClick
-    Caption = ''
+    OnClick = ButtonOkClick
   end
-  object EInput: TEdit
+  object EditInput: TEdit
     Left = 16
+    Height = 27
     Top = 40
     Width = 200
-    Height = 19
     BorderStyle = bsNone
     Color = clBlack
-    Font.Charset = DEFAULT_CHARSET
     Font.Color = 4176863
     Font.Height = -15
     Font.Name = 'Times New Roman'
     Font.Style = [fsBold]
+    OnKeyPress = EInputKeyPress
     ParentFont = False
     TabOrder = 0
-    OnKeyPress = EInputKeyPress
   end
 end