Changeset 53 for branches/DelphiToC/Forms

Timestamp:

Aug 10, 2010, 10:14:57 AM (15 years ago)

Author:

george

Message:

Project renamed to Transpascal.
Added support for generatin cycle For-to-do.
Added support for parsing and generating structured types as record and array.
Emit procedure in TProducerPascal and TProducerC reworked.

Location:

branches/DelphiToC/Forms

Files:

• UMainForm.lfm (modified) (3 diffs)
• UMainForm.pas (modified) (7 diffs)

branches/DelphiToC/Forms/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 176
+  Left = 141
   Height = 498
-  Top = 77
+  Top = 105
   Width = 881
-  Caption = 'Pascal Compiler AVR'
+  Caption = 'Transpascal '
   ClientHeight = 498
   ClientWidth = 881
@@ -15 +15 @@
   Position = poDesktopCenter
   LCLVersion = '0.9.29'
-  object Button1: TButton
-    Left = 800
+  object ButtonCompile: TButton
+    Left = 801
     Height = 22
     Top = 401
@@ -22 +22 @@
     Anchors = [akRight, akBottom]
     Caption = 'Kompilovat'
-    OnClick = Button1Click
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    OnClick = ButtonCompileClick
+    ParentFont = False
     TabOrder = 0
   end

branches/DelphiToC/Forms/UMainForm.pas

@@ -18 +18 @@
 
   TMainForm = class(TForm)
-    Button1: TButton;
+    ButtonCompile: TButton;
     ComboBox1: TComboBox;
     ListBox1: TListBox;
@@ -27 +27 @@
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure Button1Click(Sender: TObject);
+    procedure ButtonCompileClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -48 +48 @@
 { TMainForm }
 
-procedure TMainForm.Button1Click(Sender: TObject);
+procedure TMainForm.ButtonCompileClick(Sender: TObject);
 var
   I: Integer;
@@ -64 +64 @@
     ProducerControl.Parent := Panel1;
     ProducerControl.Align := alClient;
+    ProducerControl.Font.Name := 'Courier New';
+    TMemo(ProducerControl).ScrollBars := ssAutoBoth;
     with TProducerPascal(Compiler.Producer) do
       TMemo(ProducerControl).Lines.Assign(TextSource);
@@ -75 +77 @@
     ProducerControl.Parent := Panel1;
     ProducerControl.Align := alClient;
+    ProducerControl.Font.Name := 'Courier New';
+    TMemo(ProducerControl).ScrollBars := ssAutoBoth;
     with TProducerC(Compiler.Producer) do
       TMemo(ProducerControl).Lines.Assign(TextSource);
@@ -86 +90 @@
     ProducerControl.Parent := Panel1;
     ProducerControl.Align := alClient;
+    ProducerControl.Font.Name := 'Courier New';
+    TMemo(ProducerControl).ScrollBars := ssAutoBoth;
     with TProducerAsm8051(Compiler.Producer) do
     for I := 0 to AssemblyCode.Count - 1 do
@@ -143 +149 @@
   WindowState := wsMaximized;
   SynEdit1.Lines.LoadFromFile(ExampleFileName);
-  Button1Click(Self);
+  ButtonCompileClick(Self);
 end;
 
 procedure TMainForm.ComboBox1Change(Sender: TObject);
 begin
-  Button1Click(Self);
+  ButtonCompileClick(Self);
 end;