Changeset 81 for branches/Transpascal/Forms
- Timestamp:
- Oct 22, 2010, 4:16:35 PM (15 years ago)
- Location:
- branches/Transpascal/Forms
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/Transpascal/Forms/UMainForm.lfm
r78 r81 1 1 object MainForm: TMainForm 2 Left = 1422 Left = 362 3 3 Height = 501 4 4 Top = 113 … … 42 42 TabOrder = 2 43 43 object ComboBoxTargetSelection: TComboBox 44 Left = 1 44 Left = 192 45 45 Height = 21 46 46 Top = 2 47 47 Width = 135 48 Align = alLeft 48 49 ItemHeight = 13 49 50 ItemIndex = 1 … … 60 61 end 61 62 object Button1: TButton 62 Left = 13663 Height = 2 263 Left = 327 64 Height = 24 64 65 Top = 2 65 66 Width = 59 66 67 Action = ABuild 68 Align = alLeft 67 69 TabOrder = 1 68 70 end 69 71 object CheckBoxLogParsing: TCheckBox 70 Left = 19571 Height = 1772 Left = 386 73 Height = 24 72 74 Top = 2 73 75 Width = 105 76 Align = alLeft 74 77 Caption = 'Log parsing to file' 75 78 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 76 114 end 77 115 end … … 141 179 Caption = 'Build' 142 180 OnExecute = ABuildExecute 181 ShortCut = 120 143 182 end 144 183 end -
branches/Transpascal/Forms/UMainForm.pas
r78 r81 30 30 Button1: TButton; 31 31 CheckBoxLogParsing: TCheckBox; 32 ComboBoxAnalyzerType: TComboBox; 32 33 ComboBoxTargetSelection: TComboBox; 33 34 CoolDockClient1: TCoolDockClient; 34 35 CoolDockMaster1: TCoolDockMaster; 36 Label1: TLabel; 37 Label2: TLabel; 35 38 MainMenu1: TMainMenu; 36 39 MenuItem1: TMenuItem; … … 162 165 ComboBoxTargetSelection.ItemIndex := 163 166 ReadIntegerWithDefault('ProducerType', 0); 167 ComboBoxAnalyzerType.ItemIndex := 168 ReadIntegerWithDefault('AnalyzerType', 0); 164 169 CheckBoxLogParsing.Checked := ReadBoolWithDefault('LogParsing', False); 165 170 finally … … 177 182 WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile); 178 183 WriteInteger('ProducerType', ComboBoxTargetSelection.ItemIndex); 184 WriteInteger('AnalyzerType', ComboBoxAnalyzerType.ItemIndex); 179 185 WriteBool('LogParsing', CheckBoxLogParsing.Checked); 180 186 finally … … 203 209 var 204 210 ProducerType: TProducerType; 211 AnalyzerType: TAnalyzerType; 205 212 begin 206 213 DebugLog.FileName := 'DebugLog.txt'; … … 215 222 for ProducerType := Low(ProducerType) to High(ProducerType) do 216 223 ComboBoxTargetSelection.AddItem(ProducerTypeName[ProducerType], nil); 224 ComboBoxAnalyzerType.Clear; 225 for AnalyzerType := Low(AnalyzerType) to High(AnalyzerType) do 226 ComboBoxAnalyzerType.AddItem(AnalyzerTypeName[AnalyzerType], nil); 217 227 end; 218 228
Note:
See TracChangeset
for help on using the changeset viewer.