Changeset 14 for trunk/IDE/Forms/UMainForm.pas

Timestamp:

Nov 8, 2010, 12:58:47 PM (14 years ago)

Author:

george

Message:

• Added: SINGLE_PRODUCER keyword for exclude other producers form compilation.

File:

• trunk/IDE/Forms/UMainForm.pas (modified) (2 diffs)

trunk/IDE/Forms/UMainForm.pas

@@ -7 +7 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, UCompiler, UProducerAsm8051, Registry,
-  UProducerDynamicC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
-  UProducerPascal, UProject, FileUtil, Menus, ActnList, UCoolDocking,
+  Dialogs, StdCtrls, UCompiler, Registry,
+  ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
+  UProject, FileUtil, Menus, ActnList, UCoolDocking,
   UCompiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo,
   UDebugLog;
@@ -167 +167 @@
       OpenKey(RegistryKey, True);
       ReopenLastOpenedFile := ReadBoolWithDefault('ReopenLastOpenedFile', True);
-      ComboBoxProducer.ItemIndex :=
-        ReadIntegerWithDefault('ProducerType', 0);
-      ComboBoxAnalyzer.ItemIndex :=
-        ReadIntegerWithDefault('AnalyzerType', 0);
+      ComboBoxProducer.ItemIndex := ReadIntegerWithDefault('ProducerType', 0);
+      with ComboBoxProducer do
+        if (ItemIndex = -1) and (Items.Count > 0) then ItemIndex := 0;
+      ComboBoxAnalyzer.ItemIndex := ReadIntegerWithDefault('AnalyzerType', 0);
+      with ComboBoxAnalyzer do
+        if (ItemIndex = -1) and (Items.Count > 0) then ItemIndex := 0;
       CheckBoxLogParsing.Checked := ReadBoolWithDefault('LogParsing', False);
     finally