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

Timestamp:

Oct 22, 2010, 11:34:06 AM (14 years ago)

Author:

george

Message:

• Modified: Parsing type restructured.
• Added: Partial subrange typ parsing.

File:

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

branches/Transpascal/Forms/UMainForm.pas

@@ -29 +29 @@
     ActionList1: TActionList;
     Button1: TButton;
+    CheckBoxLogParsing: TCheckBox;
     ComboBoxTargetSelection: TComboBox;
     CoolDockClient1: TCoolDockClient;
@@ -47 +48 @@
     Splitter3: TSplitter;
     ToolBar1: TToolBar;
+    procedure AProjectCloseExecute(Sender: TObject);
     procedure AProjectOpenExecute(Sender: TObject);
     procedure AProjectSaveAsExecute(Sender: TObject);
@@ -53 +55 @@
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
-    procedure ButtonCompileClick(Sender: TObject);
+    procedure ABuildExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -83 +85 @@
 { TMainForm }
 
-procedure TMainForm.ButtonCompileClick(Sender: TObject);
+procedure TMainForm.ABuildExecute(Sender: TObject);
 begin
   // Compile project file
+  if CheckBoxLogParsing.Checked then
+     Compiler.Parser.OnDebugLog := CompilerDebugLog
+     else Compiler.Parser.OnDebugLog := nil;
   Compiler.ProducerType := TProducerType(ComboBoxTargetSelection.ItemIndex);
   Compiler.Init;
@@ -157 +162 @@
       ComboBoxTargetSelection.ItemIndex :=
         ReadIntegerWithDefault('ProducerType', 0);
+      CheckBoxLogParsing.Checked := ReadBoolWithDefault('LogParsing', False);
     finally
       Free;
@@ -171 +177 @@
       WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile);
       WriteInteger('ProducerType', ComboBoxTargetSelection.ItemIndex);
+      WriteBool('LogParsing', CheckBoxLogParsing.Checked);
     finally
       Free;
@@ -200 +207 @@
   DeleteFile(DebugLog.FileName);
   Compiler := TCompiler.Create;
-  Compiler.Parser.OnDebugLog := CompilerDebugLog;
   Project := TProject.Create;
   LastOpenedFiles := TLastOpenedList.Create;
@@ -245 +251 @@
 procedure TMainForm.ComboBox1Change(Sender: TObject);
 begin
-  ButtonCompileClick(Self);
+  ABuildExecute(Self);
 end;
 
@@ -255 +261 @@
 end;
 
+procedure TMainForm.AProjectCloseExecute(Sender: TObject);
+begin
+  Close;
+end;
+
 procedure TMainForm.AProjectSaveAsExecute(Sender: TObject);
 begin
@@ -264 +275 @@
 procedure TMainForm.ComboBoxTargetSelectionChange(Sender: TObject);
 begin
-  ButtonCompileClick(Self);
+  ABuildExecute(Self);
 end;