Changeset 105 for trunk/Forms

Timestamp:

May 6, 2019, 10:32:47 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Resolved compiler warnings and notes.
• Modified: Update packages.

Location:

trunk/Forms

Files:

• UFormSourceCode.lfm (modified) (9 diffs)
• UFormSourceCode.pas (modified) (1 diff)

trunk/Forms/UFormSourceCode.lfm

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

trunk/Forms/UFormSourceCode.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, SynEdit, SynHighlighterIni, Forms, Controls,
-  Graphics, Dialogs, StdCtrls, Menus, ActnList, strutils, SynEditTypes,
+  Graphics, Dialogs, StdCtrls, Menus, ActnList, strutils,
   SynEditHighlighter, SynHighlighterAny, SynHighlighterJava, UBFHighlighter;