Changeset 208 for branches/interpreter2/UFormMain.lfm

Timestamp:

Apr 22, 2020, 12:02:17 AM (4 years ago)

Author:

chronos

Message:

• Modified: Implemented generic access to fields in source tree.
• Added: Generator to XML.

File:

• branches/interpreter2/UFormMain.lfm (modified) (5 diffs)

branches/interpreter2/UFormMain.lfm

@@ -14 +14 @@
   OnShow = FormShow
   LCLVersion = '2.0.2.0'
-  object MemoOutput: TMemo
-    Left = 712
-    Height = 672
-    Top = 64
-    Width = 671
-    Font.Name = 'Liberation Mono'
-    ParentFont = False
-    ScrollBars = ssAutoBoth
-    TabOrder = 0
-  end
-  object Label2: TLabel
-    Left = 714
-    Height = 26
-    Top = 34
-    Width = 66
-    Caption = 'Output:'
-    ParentColor = False
-  end
   object PanelMessages: TPanel
     Left = 0
@@ -39 +21 @@
     Align = alBottom
     BevelOuter = bvNone
-    TabOrder = 1
+    TabOrder = 0
   end
   object PanelSource: TPanel
@@ -47 +29 @@
     Width = 704
     Align = alCustom
+    BevelOuter = bvNone
+    TabOrder = 1
+  end
+  object PanelOutput: TPanel
+    Left = 751
+    Height = 843
+    Top = 16
+    Width = 655
     BevelOuter = bvNone
     TabOrder = 2
@@ -69 +59 @@
       object MenuItem3: TMenuItem
         Action = AGenerateCSharp
+      end
+      object MenuItem7: TMenuItem
+        Action = AGenerateXml
       end
     end
@@ -112 +105 @@
       OnExecute = AOptimizeExecute
     end
+    object AGenerateXml: TAction
+      Caption = 'Generate XML'
+      OnExecute = AGenerateXmlExecute
+    end
   end
 end