Changeset 53 for branches/DelphiToC/Forms/UMainForm.pas

Timestamp:

Aug 10, 2010, 10:14:57 AM (14 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.

File:

• branches/DelphiToC/Forms/UMainForm.pas (modified) (7 diffs)

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;