52
52
Items.Add(dlgShowHint + ' (-vh)');
53
53
Items.Add(dlgShowTriedFiles + ' (-vt)');
54
54
Items.Add(dlgShowGeneralInfo + ' (-vi)');
55
Items.Add(dlgShowDefinedMacros + ' (-vm)');
56
55
Items.Add(dlgShowCompilingLineNumbers + ' (-vl)');
57
56
Items.Add(dlgShowCompiledProcedures + ' (-vp)');
58
57
Items.Add(dlgShowProcsError + ' (-vb)');
59
58
Items.Add(dlgShowConditionals + ' (-vc)');
60
59
Items.Add(dlgShowEverything + ' (-va)');
61
60
Items.Add(dlgShowExecutableInfo + ' (-vx)');
62
Items.Add(dlgShowSummary + ' (none)');
61
Items.Add(dlgShowSummary + ' ' + dlgPOIconDescNone);
63
62
Items.Add(dlgShowNothing + ' (-v0)');
64
Items.Add(dlgHintsUnused + ' (none)');
63
Items.Add(dlgHintsUnused + ' ' + dlgPOIconDescNone);
65
64
Items.Add(dlgWriteFPCLogo + ' (-l)');
72
71
procedure TCompilerVerbosityOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
74
76
with AOptions as TBaseCompilerOptions, grpVerbosity do
76
Checked[0] := ShowErrors;
77
Checked[1] := ShowHintsForSenderNotUsed;
78
Checked[2] := ShowWarn;
79
Checked[3] := ShowDebugInfo;
80
Checked[4] := ShowNotes;
81
Checked[5] := ShowUsedFiles;
82
Checked[6] := ShowHints;
83
Checked[7] := ShowTriedFiles;
84
Checked[8] := ShowGenInfo;
85
Checked[9] := ShowDefMacros;
86
Checked[10] := ShowLineNum;
87
Checked[11] := ShowCompProc;
88
Checked[12] := ShowAllProcsOnError;
89
Checked[13] := ShowCond;
90
Checked[14] := ShowAll;
91
Checked[15] := ShowExecInfo;
92
Checked[16] := ShowSummary;
93
Checked[17] := ShowNothing;
94
Checked[18] := ShowHintsForUnusedUnitsInMainSrc;
95
Checked[19] := WriteFPCLogo;
78
Checked[i] := ShowErrors; i+=1;
79
Checked[i] := ShowHintsForSenderNotUsed; i+=1;
80
Checked[i] := ShowWarn; i+=1;
81
Checked[i] := ShowDebugInfo; i+=1;
82
Checked[i] := ShowNotes; i+=1;
83
Checked[i] := ShowUsedFiles; i+=1;
84
Checked[i] := ShowHints; i+=1;
85
Checked[i] := ShowTriedFiles; i+=1;
86
Checked[i] := ShowGenInfo; i+=1;
87
Checked[i] := ShowLineNum; i+=1;
88
Checked[i] := ShowCompProc; i+=1;
89
Checked[i] := ShowAllProcsOnError; i+=1;
90
Checked[i] := ShowCond; i+=1;
91
Checked[i] := ShowAll; i+=1;
92
Checked[i] := ShowExecInfo; i+=1;
93
Checked[i] := ShowSummary; i+=1;
94
Checked[i] := ShowNothing; i+=1;
95
Checked[i] := ShowHintsForUnusedUnitsInMainSrc; i+=1;
96
Checked[i] := WriteFPCLogo; i+=1;
97
98
edtErrorCnt.Text := IntToStr(StopAfterErrCount);
101
102
procedure TCompilerVerbosityOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
103
107
with AOptions as TBaseCompilerOptions, grpVerbosity do
105
ShowErrors := Checked[0];
106
ShowHintsForSenderNotUsed := Checked[1];
107
ShowWarn := Checked[2];
108
ShowDebugInfo := Checked[3];
109
ShowNotes := Checked[4];
110
ShowUsedFiles := Checked[5];
111
ShowHints := Checked[6];
112
ShowTriedFiles := Checked[7];
113
ShowGenInfo := Checked[8];
114
ShowDefMacros := Checked[9];
115
ShowLineNum := Checked[10];
116
ShowCompProc := Checked[11];
117
ShowAllProcsOnError := Checked[12];
118
ShowCond := Checked[13];
119
ShowAll := Checked[14];
120
ShowExecInfo := Checked[15];
121
ShowSummary := Checked[16];
122
ShowNothing := Checked[17];
123
ShowHintsForUnusedUnitsInMainSrc := Checked[18];
124
WriteFPCLogo := Checked[19];
109
ShowErrors := Checked[i]; i+=1;
110
ShowHintsForSenderNotUsed := Checked[i]; i+=1;
111
ShowWarn := Checked[i]; i+=1;
112
ShowDebugInfo := Checked[i]; i+=1;
113
ShowNotes := Checked[i]; i+=1;
114
ShowUsedFiles := Checked[i]; i+=1;
115
ShowHints := Checked[i]; i+=1;
116
ShowTriedFiles := Checked[i]; i+=1;
117
ShowGenInfo := Checked[i]; i+=1;
118
ShowLineNum := Checked[i]; i+=1;
119
ShowCompProc := Checked[i]; i+=1;
120
ShowAllProcsOnError := Checked[i]; i+=1;
121
ShowCond := Checked[i]; i+=1;
122
ShowAll := Checked[i]; i+=1;
123
ShowExecInfo := Checked[i]; i+=1;
124
ShowSummary := Checked[i]; i+=1;
125
ShowNothing := Checked[i]; i+=1;
126
ShowHintsForUnusedUnitsInMainSrc := Checked[i]; i+=1;
127
WriteFPCLogo := Checked[i]; i+=1;
125
128
StopAfterErrCount := StrToIntDef(edtErrorCnt.Text, 1);