Changeset 77 for branches/Transpascal/Forms/UMainForm.pas

Timestamp:

Oct 22, 2010, 9:22:55 AM (14 years ago)

Author:

george

Message:

• Compiler producer for C language separated to GCC and Dynamic C dialect.
• Enhanced: Parse record functions body.

File:

• branches/Transpascal/Forms/UMainForm.pas (modified) (6 diffs)

branches/Transpascal/Forms/UMainForm.pas

@@ -8 +8 @@
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, UCompiler, UProducerAsm8051, Registry,
-  UProducerC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
+  UProducerDynamicC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
   UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList, UCoolDocking,
   UCompiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo,
@@ -84 +84 @@
 
 procedure TMainForm.ButtonCompileClick(Sender: TObject);
-var
-  I: Integer;
-begin
-  if ComboBoxTargetSelection.ItemIndex = 0 then begin
-    Compiler.Producer.Free;
-    Compiler.Producer := TProducerPascal.Create;
-  end else
-  if ComboBoxTargetSelection.ItemIndex = 1 then begin
-    Compiler.Producer.Free;
-    Compiler.Producer := TProducerC.Create;
-  end else
-  if ComboBoxTargetSelection.ItemIndex = 2 then begin
-    Compiler.Producer.Free;
-    Compiler.Producer := TProducerAsm8051.Create;
-  end else
-  if ComboBoxTargetSelection.ItemIndex = 3 then begin
-    Compiler.Producer.Free;
-    Compiler.Producer := TProducerTreeView.Create;
-  end;
-
+begin
   // Compile project file
+  Compiler.ProducerType := TProducerType(ComboBoxTargetSelection.ItemIndex);
   Compiler.Init;
   Compiler.Parser.OnGetSource := GetSource;
@@ -173 +155 @@
       OpenKey(RegistryKey, True);
       ReopenLastOpenedFile := ReadBoolWithDefault('ReopenLastOpenedFile', True);
+      ComboBoxTargetSelection.ItemIndex :=
+        ReadIntegerWithDefault('ProducerType', 0);
     finally
       Free;
@@ -186 +170 @@
       OpenKey(RegistryKey, True);
       WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile);
+      WriteInteger('ProducerType', ComboBoxTargetSelection.ItemIndex);
     finally
       Free;
@@ -209 +194 @@
 
 procedure TMainForm.FormCreate(Sender: TObject);
+var
+  ProducerType: TProducerType;
 begin
   DebugLog.FileName := 'DebugLog.txt';
@@ -218 +205 @@
   LastOpenedFiles.MenuItem := MenuItemOpenRecent;
   LastOpenedFiles.ClickAction := OpenRecentClick;
+
+  ComboBoxTargetSelection.Clear;
+  for ProducerType := Low(ProducerType) to High(ProducerType) do
+    ComboBoxTargetSelection.AddItem(ProducerTypeName[ProducerType], nil);
 end;