Changeset 33 for tools/Grammer/UMainForm.lfm

Timestamp:

Apr 25, 2011, 10:41:52 PM (13 years ago)

Author:

george

Message:

• Added: Pl0 pascal grammer definition.
• Added: Generation of source code for structure.

File:

• tools/Grammer/UMainForm.lfm (modified) (7 diffs)

tools/Grammer/UMainForm.lfm

@@ -1 +1 @@
 object Form1: TForm1
-  Left = 356
-  Height = 421
-  Top = 127
-  Width = 471
+  Left = 209
+  Height = 552
+  Top = 43
+  Width = 673
   Caption = 'Grammer transformator'
-  ClientHeight = 421
-  ClientWidth = 471
+  ClientHeight = 552
+  ClientWidth = 673
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -14 +14 @@
     Height = 21
     Top = 25
-    Width = 375
+    Width = 577
     Anchors = [akTop, akLeft, akRight]
     TabOrder = 0
@@ -28 +28 @@
   end
   object Button1: TButton
-    Left = 391
+    Left = 593
     Height = 25
     Top = 25
@@ -49 +49 @@
     Height = 21
     Top = 72
-    Width = 374
+    Width = 576
     Anchors = [akTop, akLeft, akRight]
     TabOrder = 2
@@ -55 +55 @@
   end
   object Button2: TButton
-    Left = 391
+    Left = 593
     Height = 25
     Top = 72
@@ -64 +64 @@
     TabOrder = 3
   end
-  object Button3: TButton
+  object ButtonGenerate: TButton
     Left = 11
     Height = 25
@@ -70 +70 @@
     Width = 75
     Caption = 'Generate'
-    OnClick = Button3Click
+    OnClick = ButtonGenerateClick
     TabOrder = 4
   end
   object Memo1: TMemo
     Left = 8
-    Height = 276
+    Height = 407
     Top = 140
-    Width = 458
+    Width = 660
     Anchors = [akTop, akLeft, akRight, akBottom]
+    Font.Name = 'freemono'
+    ParentFont = False
     ScrollBars = ssAutoBoth
     TabOrder = 5