Changeset 106 for trunk/Forms/UFormMain.lfm

Timestamp:

May 6, 2019, 11:03:00 AM (5 years ago)

Author:

chronos

Message:

• Added: TargetCode form use SynEdit for syntax highlighting.
• Fixed: Do not show error if specific target doesn't have assigned compiler. Not all targets use compiler. Some of them are just interpreted.

File:

• trunk/Forms/UFormMain.lfm (modified) (20 diffs)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 860
   Caption = 'LazFuck'
-  ClientHeight = 556
+  ClientHeight = 561
   ClientWidth = 860
-  DesignTimePPI = 144
+  DesignTimePPI = 120
   Menu = MainMenu1
   OnClose = FormClose
@@ -14 +14 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '2.0.0.4'
+  LCLVersion = '2.0.2.0'
   WindowState = wsMaximized
   object StatusBarMain: TStatusBar
     Left = 0
-    Height = 36
-    Top = 520
+    Height = 28
+    Top = 533
     Width = 860
     Panels = <    
       item
-        Width = 84
+        Width = 70
       end    
       item
-        Width = 84
+        Width = 70
       end    
       item
-        Width = 96
+        Width = 80
       end>
     ParentFont = False
@@ -36 +36 @@
   object ToolBarMain: TToolBar
     Left = 0
-    Height = 31
+    Height = 26
     Top = 0
     Width = 860
@@ -50 +50 @@
     end
     object ToolButton2: TToolButton
-      Left = 36
+      Left = 30
       Top = 2
       Action = AProjectOpen
@@ -57 +57 @@
     end
     object ToolButton3: TToolButton
-      Left = 89
+      Left = 74
       Top = 2
       Action = AProjectSave
     end
     object ToolButton4: TToolButton
-      Left = 124
+      Left = 103
       Top = 2
       Action = AProjectClose
     end
     object ToolButton5: TToolButton
-      Left = 194
-      Height = 33
+      Left = 161
+      Height = 28
       Top = 2
       Style = tbsSeparator
     end
     object ToolButton6: TToolButton
-      Left = 239
+      Left = 197
       Top = 2
       Action = AProgramRun
     end
     object ToolButton7: TToolButton
-      Left = 204
+      Left = 168
       Top = 2
       Action = AProgramCompile
     end
     object ToolButton8: TToolButton
-      Left = 159
+      Left = 132
       Top = 2
       Action = AOptions
     end
     object ToolButton9: TToolButton
-      Left = 344
+      Left = 284
       Top = 2
       Action = ABreakpointToggle
     end
     object ToolButton10: TToolButton
-      Left = 274
+      Left = 226
       Top = 2
       Action = AProgramPause
     end
     object ToolButton11: TToolButton
-      Left = 309
+      Left = 255
       Top = 2
       Action = AProgramStop
     end
     object ToolButton12: TToolButton
-      Left = 379
+      Left = 313
       Top = 2
       Action = AProgramStepOver
     end
     object ToolButton13: TToolButton
-      Left = 414
+      Left = 342
       Top = 2
       Action = AProgramStepInto
     end
     object ToolButton14: TToolButton
-      Left = 449
+      Left = 371
       Top = 2
       Action = AProgramStepOut
     end
     object ToolButton15: TToolButton
-      Left = 484
+      Left = 400
       Top = 2
       Action = AProgramRunToCursor
     end
     object ToolButtonTarget: TToolButton
-      Left = 519
+      Left = 429
       Hint = 'Target select'
       Top = 2
@@ -132 +132 @@
   end
   object PageControlRight: TPageControl
-    Left = 388
-    Height = 489
-    Top = 31
-    Width = 472
+    Left = 467
+    Height = 507
+    Top = 26
+    Width = 393
     ActivePage = TabSheetDebug
     Align = alRight
@@ -144 +144 @@
     object TabSheetDebug: TTabSheet
       Caption = 'Debug'
-      ClientHeight = 481
-      ClientWidth = 434
+      ClientHeight = 499
+      ClientWidth = 359
       ParentFont = False
       object PanelInput: TPanel
         Left = 0
-        Height = 77
+        Height = 64
         Top = 0
-        Width = 434
+        Width = 359
         Align = alTop
         BevelOuter = bvNone
@@ -160 +160 @@
         Cursor = crVSplit
         Left = 0
-        Height = 6
-        Top = 77
-        Width = 434
+        Height = 5
+        Top = 64
+        Width = 359
         Align = alTop
         ResizeAnchor = akTop
@@ -168 +168 @@
       object PanelOutput: TPanel
         Left = 0
-        Height = 311
-        Top = 83
-        Width = 434
+        Height = 259
+        Top = 69
+        Width = 359
         Align = alTop
         BevelOuter = bvNone
@@ -179 +179 @@
         Cursor = crVSplit
         Left = 0
-        Height = 6
-        Top = 394
-        Width = 434
+        Height = 5
+        Top = 328
+        Width = 359
         Align = alTop
         ResizeAnchor = akTop
@@ -187 +187 @@
       object PanelCPU: TPanel
         Left = 0
-        Height = 103
-        Top = 400
-        Width = 434
+        Height = 86
+        Top = 333
+        Width = 359
         Align = alTop
         BevelOuter = bvNone
@@ -198 +198 @@
         Cursor = crVSplit
         Left = 0
-        Height = 6
-        Top = 481
-        Width = 434
+        Height = 5
+        Top = 419
+        Width = 359
         Align = alTop
         ResizeAnchor = akTop
@@ -206 +206 @@
       object PanelMemory: TPanel
         Left = 0
-        Height = 0
-        Top = 481
-        Width = 434
+        Height = 75
+        Top = 424
+        Width = 359
         Align = alClient
         BevelOuter = bvNone
@@ -217 +217 @@
   end
   object Splitter1: TSplitter
-    Left = 382
-    Height = 489
-    Top = 31
-    Width = 6
+    Left = 462
+    Height = 507
+    Top = 26
+    Width = 5
     Align = alRight
     ResizeAnchor = akRight
@@ -226 +226 @@
   object PanelLeft: TPanel
     Left = 0
-    Height = 489
-    Top = 31
-    Width = 382
+    Height = 507
+    Top = 26
+    Width = 462
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 489
-    ClientWidth = 382
+    ClientHeight = 507
+    ClientWidth = 462
     ParentFont = False
     TabOrder = 4
     object PageControlMain: TPageControl
       Left = 0
-      Height = 341
+      Height = 384
       Top = 0
-      Width = 382
+      Width = 462
       ActivePage = TabSheetSource
       Align = alClient
@@ -256 +256 @@
     object PageControlBottom: TPageControl
       Left = 0
-      Height = 142
-      Top = 347
-      Width = 382
+      Height = 118
+      Top = 389
+      Width = 462
       ActivePage = TabSheetMessages
       Align = alBottom
@@ -273 +273 @@
       Cursor = crVSplit
       Left = 0
-      Height = 6
-      Top = 341
-      Width = 382
+      Height = 5
+      Top = 384
+      Width = 462
       Align = alBottom
       ResizeAnchor = akBottom
@@ -282 +282 @@
   object MainMenu1: TMainMenu
     Images = Core.ImageListMain
-    left = 259
-    top = 163
+    left = 216
+    top = 136
     object MenuItem1: TMenuItem
       Caption = 'Project'
@@ -383 +383 @@
   object ActionList1: TActionList
     Images = Core.ImageListMain
-    left = 259
-    top = 230
+    left = 216
+    top = 192
     object AProjectOpen: TAction
       Category = 'Project'
@@ -529 +529 @@
     DefaultExt = '.b'
     Filter = 'BrainFuck (*.b)|*.b|Any file (*.*)|*.*'
-    left = 67
-    top = 221
+    left = 56
+    top = 184
   end
   object SaveDialog1: TSaveDialog
     DefaultExt = '.b'
     Filter = 'BrainFuck (*.b)|*.b|Any file (*.*)|*.*'
-    left = 67
-    top = 288
+    left = 56
+    top = 240
   end
   object TimerRefresh: TTimer
     OnTimer = TimerRefreshTimer
-    left = 67
-    top = 355
+    left = 56
+    top = 296
   end
   object PopupMenuRecentFiles: TPopupMenu
-    left = 67
-    top = 77
+    left = 56
+    top = 64
   end
   object PopupMenuTargets: TPopupMenu
     Images = Core.ImageListMain
-    left = 67
-    top = 143
+    left = 56
+    top = 119
   end
 end