Changeset 115 for trunk/Forms/UFormSourceCode.lfm

Timestamp:

Oct 13, 2020, 8:05:14 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Build with Lazarus 2.0.10.
• Modified: CoolTranslator package replaced by Translator in Common package.
• Modified: About dialog moved to Common package.

File:

• trunk/Forms/UFormSourceCode.lfm (modified) (9 diffs)

trunk/Forms/UFormSourceCode.lfm

@@ -1 +1 @@
 object FormSourceCode: TFormSourceCode
   Left = 459
-  Height = 491
+  Height = 589
   Top = 278
-  Width = 560
+  Width = 672
   Caption = 'Source code'
-  ClientHeight = 491
-  ClientWidth = 560
-  DesignTimePPI = 120
+  ClientHeight = 589
+  ClientWidth = 672
+  DesignTimePPI = 144
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -17 +17 @@
     Width = 560
     Align = alClient
-    Font.Height = -13
+    Font.Height = -16
     Font.Name = 'Courier New'
     Font.Pitch = fpFixed
@@ -29 +29 @@
     OnKeyUp = MemoSourceKeyUp
     OnMouseDown = MemoSourceMouseDown
-    Gutter.Width = 67
+    Gutter.Width = 80
     Gutter.MouseActions = <>
     RightGutter.Width = 0
@@ -479 +479 @@
     inline SynLeftGutterPartList1: TSynGutterPartList
       object SynGutterMarks1: TSynGutterMarks
-        Width = 30
+        Width = 36
         MouseActions = <>
       end
       object SynGutterLineNumber1: TSynGutterLineNumber
-        Width = 17
+        Width = 21
         MouseActions = <>
         MarkupInfo.Background = clBtnFace
@@ -493 +493 @@
       end
       object SynGutterChanges1: TSynGutterChanges
-        Width = 5
+        Width = 6
         MouseActions = <>
         ModifiedColor = 59900
@@ -506 +506 @@
       object SynGutterCodeFolding1: TSynGutterCodeFolding
         AutoSize = False
-        Width = 12
+        Width = 14
         MouseActions = <>
         MarkupInfo.Background = clNone
@@ -517 +517 @@
   object PopupMenuSource: TPopupMenu
     Images = Core.ImageListMain
-    left = 128
-    top = 128
+    left = 154
+    top = 154
     object MenuItem23: TMenuItem
       Action = FormMain.ABreakpointToggle
@@ -591 +591 @@
   object ActionList1: TActionList
     Images = Core.ImageListMain
-    left = 128
-    top = 56
+    left = 154
+    top = 67
     object AGenerateNumber: TAction
       Caption = 'Generate number'
@@ -645 +645 @@
     DefaultFilter = 'Soubory Java (*.java)|*.java'
     Enabled = False
-    left = 405
-    top = 263
+    left = 486
+    top = 316
   end
 end