Changeset 78 for branches/Transpascal/Forms

Timestamp:

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

Author:

george

Message:

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

Location:

branches/Transpascal/Forms

Files:

• UMainForm.lfm (modified) (4 diffs)
• UMainForm.pas (modified) (10 diffs)

branches/Transpascal/Forms/UMainForm.lfm

@@ -45 +45 @@
       Height = 21
       Top = 2
-      Width = 100
+      Width = 135
       ItemHeight = 13
       ItemIndex = 1
@@ -60 +60 @@
     end
     object Button1: TButton
-      Left = 101
+      Left = 136
       Height = 22
       Top = 2
@@ -66 +66 @@
       Action = ABuild
       TabOrder = 1
+    end
+    object CheckBoxLogParsing: TCheckBox
+      Left = 195
+      Height = 17
+      Top = 2
+      Width = 105
+      Caption = 'Log parsing to file'
+      TabOrder = 2
     end
   end
@@ -127 +135 @@
       Category = 'Project'
       Caption = 'Close'
+      OnExecute = AProjectCloseExecute
     end
     object ABuild: TAction
       Category = 'Build'
       Caption = 'Build'
-      OnExecute = ButtonCompileClick
+      OnExecute = ABuildExecute
     end
   end

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;