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

Timestamp:

Oct 22, 2010, 4:16:35 PM (14 years ago)

Author:

george

Message:

• Added: Partial support for multiple analyzers.

File:

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

branches/Transpascal/Forms/UMainForm.pas

@@ -30 +30 @@
     Button1: TButton;
     CheckBoxLogParsing: TCheckBox;
+    ComboBoxAnalyzerType: TComboBox;
     ComboBoxTargetSelection: TComboBox;
     CoolDockClient1: TCoolDockClient;
     CoolDockMaster1: TCoolDockMaster;
+    Label1: TLabel;
+    Label2: TLabel;
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
@@ -162 +165 @@
       ComboBoxTargetSelection.ItemIndex :=
         ReadIntegerWithDefault('ProducerType', 0);
+      ComboBoxAnalyzerType.ItemIndex :=
+        ReadIntegerWithDefault('AnalyzerType', 0);
       CheckBoxLogParsing.Checked := ReadBoolWithDefault('LogParsing', False);
     finally
@@ -177 +182 @@
       WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile);
       WriteInteger('ProducerType', ComboBoxTargetSelection.ItemIndex);
+      WriteInteger('AnalyzerType', ComboBoxAnalyzerType.ItemIndex);
       WriteBool('LogParsing', CheckBoxLogParsing.Checked);
     finally
@@ -203 +209 @@
 var
   ProducerType: TProducerType;
+  AnalyzerType: TAnalyzerType;
 begin
   DebugLog.FileName := 'DebugLog.txt';
@@ -215 +222 @@
   for ProducerType := Low(ProducerType) to High(ProducerType) do
     ComboBoxTargetSelection.AddItem(ProducerTypeName[ProducerType], nil);
+  ComboBoxAnalyzerType.Clear;
+  for AnalyzerType := Low(AnalyzerType) to High(AnalyzerType) do
+    ComboBoxAnalyzerType.AddItem(AnalyzerTypeName[AnalyzerType], nil);
 end;