IDE: compiler options: verbosity: one column

git-svn-id: trunk@47960 -
This commit is contained in:
mattias 2015-02-23 16:41:50 +00:00
parent a57530c071
commit d48124eb65
2 changed files with 27 additions and 26 deletions

View File

@ -10,7 +10,7 @@ object CompilerVerbosityOptionsFrame: TCompilerVerbosityOptionsFrame
DesignTop = 187 DesignTop = 187
object grpVerbosity: TCheckGroup object grpVerbosity: TCheckGroup
Left = 0 Left = 0
Height = 476 Height = 478
Top = 0 Top = 0
Width = 697 Width = 697
Align = alClient Align = alClient
@ -23,14 +23,13 @@ object CompilerVerbosityOptionsFrame: TCompilerVerbosityOptionsFrame
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 1
Columns = 2
TabOrder = 0 TabOrder = 0
end end
object grpErrorCnt: TGroupBox object grpErrorCnt: TGroupBox
Left = 0 Left = 0
Height = 56 Height = 54
Top = 482 Top = 484
Width = 697 Width = 697
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True

View File

@ -43,22 +43,22 @@ begin
AutoSize := True; AutoSize := True;
Items.Add(dlgCOShowErr + ' (-ve)'); Items.Add(dlgCOShowErr + ' (-ve)');
Items.Add(dlgHintsParameterSenderNotUsed + ' ' + dlgPOIconDescNone);
Items.Add(dlgShowWarnings + ' (-vw)'); Items.Add(dlgShowWarnings + ' (-vw)');
Items.Add(dlgShowDebugInfo + ' (-vd)');
Items.Add(dlgShowNotes + ' (-vn)'); Items.Add(dlgShowNotes + ' (-vn)');
Items.Add(dlgShowUsedFiles + ' (-vu)');
Items.Add(dlgShowHint + ' (-vh)'); Items.Add(dlgShowHint + ' (-vh)');
Items.Add(dlgShowTriedFiles + ' (-vt)');
//Items.Add(dlgShowGeneralInfo + ' (-vi)'); always passed, see compileroptions.pp //Items.Add(dlgShowGeneralInfo + ' (-vi)'); always passed, see compileroptions.pp
Items.Add(dlgShowCompilingLineNumbers + ' (-vl)'); Items.Add(dlgShowCompilingLineNumbers + ' (-vl)');
Items.Add(dlgShowCompiledProcedures + ' (-vp)');
Items.Add(dlgShowConditionals + ' (-vc)'); Items.Add(dlgShowConditionals + ' (-vc)');
Items.Add(dlgShowEverything + ' (-va)');
Items.Add(dlgShowExecutableInfo + ' (-vx)'); Items.Add(dlgShowExecutableInfo + ' (-vx)');
Items.Add(dlgShowDebugInfo + ' (-vd)');
Items.Add(dlgShowUsedFiles + ' (-vu)');
Items.Add(dlgShowTriedFiles + ' (-vt)');
Items.Add(dlgShowCompiledProcedures + ' (-vp)');
Items.Add(dlgShowEverything + ' (-va)');
Items.Add(dlgWriteFPCLogo + ' (-l)');
Items.Add(dlgShowSummary + ' ' + dlgPOIconDescNone); Items.Add(dlgShowSummary + ' ' + dlgPOIconDescNone);
Items.Add(dlgHintsUnused + ' ' + dlgPOIconDescNone); Items.Add(dlgHintsUnused + ' ' + dlgPOIconDescNone);
Items.Add(dlgWriteFPCLogo + ' (-l)'); Items.Add(dlgHintsParameterSenderNotUsed + ' ' + dlgPOIconDescNone);
end; end;
grpErrorCnt.Caption := dlgStopAfterNrErr + ' (-Se)'; grpErrorCnt.Caption := dlgStopAfterNrErr + ' (-Se)';
@ -73,21 +73,21 @@ begin
with AOptions as TBaseCompilerOptions, grpVerbosity do with AOptions as TBaseCompilerOptions, grpVerbosity do
begin begin
Checked[i] := ShowErrors; i+=1; Checked[i] := ShowErrors; i+=1;
Checked[i] := ShowHintsForSenderNotUsed; i+=1;
Checked[i] := ShowWarn; i+=1; Checked[i] := ShowWarn; i+=1;
Checked[i] := ShowDebugInfo; i+=1;
Checked[i] := ShowNotes; i+=1; Checked[i] := ShowNotes; i+=1;
Checked[i] := ShowUsedFiles; i+=1;
Checked[i] := ShowHints; i+=1; Checked[i] := ShowHints; i+=1;
Checked[i] := ShowTriedFiles; i+=1;
Checked[i] := ShowLineNum; i+=1; Checked[i] := ShowLineNum; i+=1;
Checked[i] := ShowCompProc; i+=1;
Checked[i] := ShowCond; i+=1; Checked[i] := ShowCond; i+=1;
Checked[i] := ShowAll; i+=1;
Checked[i] := ShowExecInfo; i+=1; Checked[i] := ShowExecInfo; i+=1;
Checked[i] := ShowDebugInfo; i+=1;
Checked[i] := ShowUsedFiles; i+=1;
Checked[i] := ShowTriedFiles; i+=1;
Checked[i] := ShowCompProc; i+=1;
Checked[i] := ShowAll; i+=1;
Checked[i] := WriteFPCLogo; i+=1;
Checked[i] := ShowSummary; i+=1; Checked[i] := ShowSummary; i+=1;
Checked[i] := ShowHintsForUnusedUnitsInMainSrc; i+=1; Checked[i] := ShowHintsForUnusedUnitsInMainSrc; i+=1;
Checked[i] := WriteFPCLogo; i+=1; Checked[i] := ShowHintsForSenderNotUsed; i+=1;
edtErrorCnt.Text := IntToStr(StopAfterErrCount); edtErrorCnt.Text := IntToStr(StopAfterErrCount);
end; end;
@ -101,20 +101,22 @@ begin
with AOptions as TBaseCompilerOptions, grpVerbosity do with AOptions as TBaseCompilerOptions, grpVerbosity do
begin begin
ShowErrors := Checked[i]; i+=1; ShowErrors := Checked[i]; i+=1;
ShowHintsForSenderNotUsed := Checked[i]; i+=1;
ShowWarn := Checked[i]; i+=1; ShowWarn := Checked[i]; i+=1;
ShowDebugInfo := Checked[i]; i+=1;
ShowNotes := Checked[i]; i+=1; ShowNotes := Checked[i]; i+=1;
ShowUsedFiles := Checked[i]; i+=1;
ShowHints := Checked[i]; i+=1; ShowHints := Checked[i]; i+=1;
ShowLineNum := Checked[i]; i+=1;
ShowCond := Checked[i]; i+=1;
ShowExecInfo := Checked[i]; i+=1;
ShowDebugInfo := Checked[i]; i+=1;
ShowUsedFiles := Checked[i]; i+=1;
ShowTriedFiles := Checked[i]; i+=1; ShowTriedFiles := Checked[i]; i+=1;
ShowCompProc := Checked[i]; i+=1; ShowCompProc := Checked[i]; i+=1;
ShowCond := Checked[i]; i+=1;
ShowAll := Checked[i]; i+=1; ShowAll := Checked[i]; i+=1;
ShowExecInfo := Checked[i]; i+=1;
ShowSummary := Checked[i]; i+=1;
ShowHintsForUnusedUnitsInMainSrc := Checked[i]; i+=1;
WriteFPCLogo := Checked[i]; i+=1; WriteFPCLogo := Checked[i]; i+=1;
ShowHintsForSenderNotUsed := Checked[i]; i+=1;
ShowHintsForUnusedUnitsInMainSrc := Checked[i]; i+=1;
ShowSummary := Checked[i]; i+=1;
StopAfterErrCount := StrToIntDef(edtErrorCnt.Text, 1); StopAfterErrCount := StrToIntDef(edtErrorCnt.Text, 1);
end; end;
end; end;