paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 14:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: compiler options: verbosity: one column

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/frames/compiler_verbosity_options.lfm
View File

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

44
ide/frames/compiler_verbosity_options.pas
View File

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