Ignore:
Timestamp:
Oct 22, 2010, 4:16:35 PM (15 years ago)
Author:
george
Message:
  • Added: Partial support for multiple analyzers.
Location:
branches/Transpascal/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/Transpascal/Forms/UMainForm.lfm

    r78 r81  
    11object MainForm: TMainForm
    2   Left = 142
     2  Left = 362
    33  Height = 501
    44  Top = 113
     
    4242    TabOrder = 2
    4343    object ComboBoxTargetSelection: TComboBox
    44       Left = 1
     44      Left = 192
    4545      Height = 21
    4646      Top = 2
    4747      Width = 135
     48      Align = alLeft
    4849      ItemHeight = 13
    4950      ItemIndex = 1
     
    6061    end
    6162    object Button1: TButton
    62       Left = 136
    63       Height = 22
     63      Left = 327
     64      Height = 24
    6465      Top = 2
    6566      Width = 59
    6667      Action = ABuild
     68      Align = alLeft
    6769      TabOrder = 1
    6870    end
    6971    object CheckBoxLogParsing: TCheckBox
    70       Left = 195
    71       Height = 17
     72      Left = 386
     73      Height = 24
    7274      Top = 2
    7375      Width = 105
     76      Align = alLeft
    7477      Caption = 'Log parsing to file'
    7578      TabOrder = 2
     79    end
     80    object ComboBoxAnalyzerType: TComboBox
     81      Left = 40
     82      Height = 21
     83      Top = 2
     84      Width = 124
     85      Align = alLeft
     86      ItemHeight = 13
     87      Style = csDropDownList
     88      TabOrder = 3
     89    end
     90    object Label1: TLabel
     91      Left = 1
     92      Height = 24
     93      Top = 2
     94      Width = 39
     95      Align = alLeft
     96      Alignment = taCenter
     97      AutoSize = False
     98      BorderSpacing.CellAlignVertical = ccaCenter
     99      Caption = 'From:'
     100      Layout = tlCenter
     101      ParentColor = False
     102    end
     103    object Label2: TLabel
     104      Left = 164
     105      Height = 24
     106      Top = 2
     107      Width = 28
     108      Align = alLeft
     109      Alignment = taCenter
     110      AutoSize = False
     111      Caption = 'To:'
     112      Layout = tlCenter
     113      ParentColor = False
    76114    end
    77115  end
     
    141179      Caption = 'Build'
    142180      OnExecute = ABuildExecute
     181      ShortCut = 120
    143182    end
    144183  end
  • branches/Transpascal/Forms/UMainForm.pas

    r78 r81  
    3030    Button1: TButton;
    3131    CheckBoxLogParsing: TCheckBox;
     32    ComboBoxAnalyzerType: TComboBox;
    3233    ComboBoxTargetSelection: TComboBox;
    3334    CoolDockClient1: TCoolDockClient;
    3435    CoolDockMaster1: TCoolDockMaster;
     36    Label1: TLabel;
     37    Label2: TLabel;
    3538    MainMenu1: TMainMenu;
    3639    MenuItem1: TMenuItem;
     
    162165      ComboBoxTargetSelection.ItemIndex :=
    163166        ReadIntegerWithDefault('ProducerType', 0);
     167      ComboBoxAnalyzerType.ItemIndex :=
     168        ReadIntegerWithDefault('AnalyzerType', 0);
    164169      CheckBoxLogParsing.Checked := ReadBoolWithDefault('LogParsing', False);
    165170    finally
     
    177182      WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile);
    178183      WriteInteger('ProducerType', ComboBoxTargetSelection.ItemIndex);
     184      WriteInteger('AnalyzerType', ComboBoxAnalyzerType.ItemIndex);
    179185      WriteBool('LogParsing', CheckBoxLogParsing.Checked);
    180186    finally
     
    203209var
    204210  ProducerType: TProducerType;
     211  AnalyzerType: TAnalyzerType;
    205212begin
    206213  DebugLog.FileName := 'DebugLog.txt';
     
    215222  for ProducerType := Low(ProducerType) to High(ProducerType) do
    216223    ComboBoxTargetSelection.AddItem(ProducerTypeName[ProducerType], nil);
     224  ComboBoxAnalyzerType.Clear;
     225  for AnalyzerType := Low(AnalyzerType) to High(AnalyzerType) do
     226    ComboBoxAnalyzerType.AddItem(AnalyzerTypeName[AnalyzerType], nil);
    217227end;
    218228
Note: See TracChangeset for help on using the changeset viewer.