Changeset 148 for trunk/Forms/UFormSource.lfm

Timestamp:

Jun 5, 2023, 7:40:45 PM (18 months ago)

Author:

chronos

Message:

• Modified: Update Common and VCard package. Remove U prefix from unit names.

File:

• trunk/Forms/UFormSource.lfm (modified) (8 diffs)

trunk/Forms/UFormSource.lfm

@@ -1 +1 @@
 object FormSource: TFormSource
   Left = 754
-  Height = 713
+  Height = 684
   Top = 496
-  Width = 951
+  Width = 913
   Caption = 'Source'
-  ClientHeight = 713
-  ClientWidth = 951
-  DesignTimePPI = 150
+  ClientHeight = 684
+  ClientWidth = 913
+  DesignTimePPI = 144
   OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '2.2.0.4'
+  LCLVersion = '2.2.6.0'
   inline SynEditSource: TSynEdit
     Left = 8
-    Height = 649
+    Height = 620
     Top = 8
-    Width = 935
+    Width = 897
     Align = alCustom
     BorderSpacing.Around = 8
     Anchors = [akTop, akLeft, akRight, akBottom]
     Color = clBtnFace
-    Font.Height = 13
+    Font.Height = 12
     Font.Name = 'DejaVu Sans Mono'
     Font.Pitch = fpFixed
@@ -30 +30 @@
     PopupMenu = PopupMenu1
     TabOrder = 0
-    Gutter.Width = 80
+    Gutter.Width = 75
     Gutter.MouseActions = <>
     RightGutter.Width = 0
@@ -479 +479 @@
     inline SynLeftGutterPartList1: TSynGutterPartList
       object SynGutterMarks1: TSynGutterMarks
-        Width = 38
+        Width = 36
         MouseActions = <>
       end
       object SynGutterLineNumber1: TSynGutterLineNumber
-        Width = 17
+        Width = 15
         MouseActions = <>
         MarkupInfo.Background = clBtnFace
@@ -505 +505 @@
       end
       object SynGutterCodeFolding1: TSynGutterCodeFolding
-        Width = 16
+        Width = 15
         MouseActions = <>
         MarkupInfo.Background = clNone
@@ -515 +515 @@
   end
   object ButtonOk: TButton
-    Left = 824
-    Height = 39
-    Top = 664
-    Width = 117
+    Left = 791
+    Height = 37
+    Top = 637
+    Width = 112
     Anchors = [akRight, akBottom]
     Caption = 'Save'
@@ -525 +525 @@
   end
   object ButtonCancel: TButton
-    Left = 688
-    Height = 39
-    Top = 664
-    Width = 117
+    Left = 661
+    Height = 37
+    Top = 637
+    Width = 112
     Anchors = [akRight, akBottom]
     Caption = 'Cancel'
@@ -536 +536 @@
   object ActionList1: TActionList
     Images = Core.ImageList1
-    Left = 361
-    Top = 152
+    Left = 347
+    Top = 146
     object APaste: TAction
       Caption = 'Paste'
@@ -563 +563 @@
   end
   object PopupMenu1: TPopupMenu
-    Left = 388
-    Top = 411
+    Left = 372
+    Top = 395
     object MenuItem1: TMenuItem
       Action = ACut