Changeset 26 for trunk/IDE/Forms


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/IDE/Forms/UMainForm.pas

    r25 r26  
    1111  UProject, FileUtil, Menus, ActnList, UCoolDocking,
    1212  UCompiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo,
    13   UDebugLog;
     13  UDebugLog, UAnalyzer, UProducer;
    1414
    1515const
     
    9797  if (ComboBoxAnalyzer.Items.Count > 0) and (ComboBoxAnalyzer.ItemIndex <> -1) and
    9898    (ComboBoxProducer.Items.Count > 0) and (ComboBoxProducer.ItemIndex <> -1) then begin
    99     Compiler.Producer := Compiler.Producers[ComboBoxProducer.ItemIndex];
    100     Compiler.Analyzer := Compiler.Analyzers[ComboBoxAnalyzer.ItemIndex];
     99    Compiler.Producer := TProducer(Compiler.Producers[ComboBoxProducer.ItemIndex]);
     100    Compiler.Analyzer := TAnalyzer(Compiler.Analyzers[ComboBoxAnalyzer.ItemIndex]);
    101101    Compiler.Analyzer.OnGetSource := GetSource;
    102102    Compiler.Init;
     
    237237  ComboBoxProducer.Clear;
    238238  for I := 0 to Compiler.Producers.Count - 1 do
    239     ComboBoxProducer.AddItem(Compiler.Producers[I].Name, nil);
     239    ComboBoxProducer.AddItem(TProducer(Compiler.Producers[I]).Name, nil);
    240240
    241241  ComboBoxAnalyzer.Clear;
    242242  for I := 0 to Compiler.Analyzers.Count - 1 do
    243     ComboBoxAnalyzer.AddItem(Compiler.Analyzers[I].Name, nil);
     243    ComboBoxAnalyzer.AddItem(TAnalyzer(Compiler.Analyzers[I]).Name, nil);
    244244end;
    245245
Note: See TracChangeset for help on using the changeset viewer.