Changeset 26 for trunk/IDE/Forms

Timestamp:

Dec 8, 2010, 10:00:30 AM (14 years ago)

Author:

george

Message:

• Removed: Generic template usage form project code. Replaced by TListObject descendants.

File:

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

trunk/IDE/Forms/UMainForm.pas

@@ -11 +11 @@
   UProject, FileUtil, Menus, ActnList, UCoolDocking,
   UCompiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo,
-  UDebugLog;
+  UDebugLog, UAnalyzer, UProducer;
 
 const
@@ -97 +97 @@
   if (ComboBoxAnalyzer.Items.Count > 0) and (ComboBoxAnalyzer.ItemIndex <> -1) and
     (ComboBoxProducer.Items.Count > 0) and (ComboBoxProducer.ItemIndex <> -1) then begin
-    Compiler.Producer := Compiler.Producers[ComboBoxProducer.ItemIndex];
-    Compiler.Analyzer := Compiler.Analyzers[ComboBoxAnalyzer.ItemIndex];
+    Compiler.Producer := TProducer(Compiler.Producers[ComboBoxProducer.ItemIndex]);
+    Compiler.Analyzer := TAnalyzer(Compiler.Analyzers[ComboBoxAnalyzer.ItemIndex]);
     Compiler.Analyzer.OnGetSource := GetSource;
     Compiler.Init;
@@ -237 +237 @@
   ComboBoxProducer.Clear;
   for I := 0 to Compiler.Producers.Count - 1 do
-    ComboBoxProducer.AddItem(Compiler.Producers[I].Name, nil);
+    ComboBoxProducer.AddItem(TProducer(Compiler.Producers[I]).Name, nil);
 
   ComboBoxAnalyzer.Clear;
   for I := 0 to Compiler.Analyzers.Count - 1 do
-    ComboBoxAnalyzer.AddItem(Compiler.Analyzers[I].Name, nil);
+    ComboBoxAnalyzer.AddItem(TAnalyzer(Compiler.Analyzers[I]).Name, nil);
 end;