paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 00:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

added compiler flags to compiler options dialog

Browse Source 
git-svn-id: trunk@5815 -
This commit is contained in:
mattias 2004-08-18 10:33:03 +00:00
parent 8fb1867a6b
commit 387847f395
2 changed files with 143 additions and 137 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

258
ide/compileroptions.pp
View File

@ -1692,6 +1692,7 @@ var
CurObjectPath: String; CurObjectPath: String;
CurMainSrcFile: String; CurMainSrcFile: String;
CurCustomOptions: String; CurCustomOptions: String;
OptimizeSwitches: String;
begin begin
CurMainSrcFile:=MainSourceFileName; CurMainSrcFile:=MainSourceFileName;
if CurMainSrcFile='' then if CurMainSrcFile='' then
@ -1903,9 +1904,6 @@ Processor specific options:
switches := switches + ' ' + tempsw; switches := switches + ' ' + tempsw;
end; end;
if (StopAfterErrCount>1) then
tempsw := tempsw + ' -Se'+IntToStr(StopAfterErrCount);
{ TODO: Implement the following switches. They need to be added { TODO: Implement the following switches. They need to be added
to the dialog. } to the dialog. }
{ {
@ -1954,35 +1952,38 @@ Processor specific options:
sxxx = Set stack size to xxx sxxx = Set stack size to xxx
} }
switches := switches + ' -O'; OptimizeSwitches:='';
{ Generate G = faster g = smaller } { Generate G = faster g = smaller }
case (Generate) of case (Generate) of
cgcNormalCode: ; cgcNormalCode: ;
cgcFasterCode: switches := switches + 'G'; cgcFasterCode: OptimizeSwitches := OptimizeSwitches + 'G';
cgcSmallerCode: switches := switches + 'g'; cgcSmallerCode: OptimizeSwitches := OptimizeSwitches + 'g';
end; end;
{ OptimizationLevel 1 = Level 1 2 = Level 2 3 = Level 3 } { OptimizationLevel 1 = Level 1 2 = Level 2 3 = Level 3 }
case (OptimizationLevel) of case (OptimizationLevel) of
1: switches := switches + '1'; 1: OptimizeSwitches := OptimizeSwitches + '1';
2: switches := switches + '2'; 2: OptimizeSwitches := OptimizeSwitches + '2';
3: switches := switches + '3'; 3: OptimizeSwitches := OptimizeSwitches + '3';
end; end;
if (VariablesInRegisters) then if (VariablesInRegisters) then
switches := switches + 'r'; OptimizeSwitches := OptimizeSwitches + 'r';
if (UncertainOptimizations) then if (UncertainOptimizations) then
switches := switches + 'u'; OptimizeSwitches := OptimizeSwitches + 'u';
{ TargetProcessor } { TargetProcessor }
case (TargetProcessor) of case (TargetProcessor) of
0: ; // use default 0: ; // use default
1: switches := switches + 'p1'; // 386/486 1: OptimizeSwitches := OptimizeSwitches + 'p1'; // 386/486
2: switches := switches + 'p2'; // Pentium/Pentium MMX 2: OptimizeSwitches := OptimizeSwitches + 'p2'; // Pentium/Pentium MMX
3: switches := switches + 'p3'; // PentiumPro/PII/K6 3: OptimizeSwitches := OptimizeSwitches + 'p3'; // PentiumPro/PII/K6
end; end;
if OptimizeSwitches<>'' then
switches := switches + ' -O'+OptimizeSwitches;
{ Target OS { Target OS
GO32V1 = DOS and version 1 of the DJ DELORIE extender (no longer maintained). GO32V1 = DOS and version 1 of the DJ DELORIE extender (no longer maintained).
GO32V2 = DOS and version 2 of the DJ DELORIE extender. GO32V2 = DOS and version 2 of the DJ DELORIE extender.
@ -2033,9 +2034,9 @@ Processor specific options:
} }
if (not (ccloNoLinkerOpts in Flags)) then if (not (ccloNoLinkerOpts in Flags)) then
case (LinkStyle) of case (LinkStyle) of
1: switches := switches + ' -XD'; 1: switches := switches + ' -XD'; // dynamic
2: switches := switches + ' -XS'; 2: switches := switches + ' -XS'; // static
3: switches := switches + ' -XX -CX'; 3: switches := switches + ' -XX -CX'; // smart
end; end;
// additional Linker options // additional Linker options
@ -2102,6 +2103,9 @@ Processor specific options:
switches := switches + ' ' + tempsw; switches := switches + ' ' + tempsw;
end; end;
if (StopAfterErrCount>1) then
tempsw := tempsw + ' -Se'+IntToStr(StopAfterErrCount);
{ Write an FPC logo } { Write an FPC logo }
if (WriteFPCLogo) then if (WriteFPCLogo) then
@ -3284,7 +3288,7 @@ begin
Left := 5; Left := 5;
Height := 42; Height := 42;
Width := 400; Width := 400;
Caption := dlgCOStyle; Caption := dlgCOStyle+' (-r)';
with Items do begin with Items do begin
BeginUpdate; BeginUpdate;
Items.Add('Default'); Items.Add('Default');
@ -3306,7 +3310,7 @@ begin
Left := grpStyle.Left; Left := grpStyle.Left;
Height := 25+12*yDiff; Height := 25+12*yDiff;
Width := Self.ClientWidth-28; Width := Self.ClientWidth-28;
Caption := dlgSymantecChecking ; Caption := dlgSymantecChecking;
end; end;
y:=2; y:=2;
@ -3315,7 +3319,7 @@ begin
with chkSymD2Ext do with chkSymD2Ext do
begin begin
Parent := grpSymantecChk; Parent := grpSymantecChk;
Caption := dlgDelphi2Ext ; Caption := dlgDelphi2Ext+' (-S2)';
Top := y; Top := y;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3327,7 +3331,7 @@ begin
with chkSymCOper do with chkSymCOper do
begin begin
Parent := grpSymantecChk; Parent := grpSymantecChk;
Caption := dlgCOCOps; Caption := dlgCOCOps+' (-Sc)';
Top := y; Top := y;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3339,7 +3343,7 @@ begin
with chkSymIncludeAssertions do with chkSymIncludeAssertions do
begin begin
Parent := grpSymantecChk; Parent := grpSymantecChk;
Caption := dlgAssertCode ; Caption := dlgAssertCode+' (-Sa)';
Top := y; Top := y;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3351,7 +3355,7 @@ begin
with chkSymAllowLab do with chkSymAllowLab do
begin begin
Parent := grpSymantecChk; Parent := grpSymantecChk;
Caption := dlgLabelGoto ; Caption := dlgLabelGoto+' (-Sg)';
Top := y; Top := y;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3363,7 +3367,7 @@ begin
with chkSymCPPInline do with chkSymCPPInline do
begin begin
Parent := grpSymantecChk; Parent := grpSymantecChk;
Caption := dlgCppInline ; Caption := dlgCppInline+' (-Si)';
Top := y; Top := y;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3375,7 +3379,7 @@ begin
with chkSymCMacros do with chkSymCMacros do
begin begin
Parent := grpSymantecChk; Parent := grpSymantecChk;
Caption := dlgCMacro; Caption := dlgCMacro+' (-Sm)';
Top := y; Top := y;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3387,7 +3391,7 @@ begin
with chkSymTP7Compat do with chkSymTP7Compat do
begin begin
Parent := grpSymantecChk; Parent := grpSymantecChk;
Caption := dlgBP7Cptb ; Caption := dlgBP7Cptb+' (-So)';
Top := y; Top := y;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3399,7 +3403,7 @@ begin
with chkSymConstInit do with chkSymConstInit do
begin begin
Parent := grpSymantecChk; Parent := grpSymantecChk;
Caption := dlgInitDoneOnly ; Caption := dlgInitDoneOnly+' (-Ss)';
Top := y; Top := y;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3411,7 +3415,7 @@ begin
with chkSymStaticKwd do with chkSymStaticKwd do
begin begin
Parent := grpSymantecChk; Parent := grpSymantecChk;
Caption := dlgStaticKeyword ; Caption := dlgStaticKeyword+' (-St)';
Top := y; Top := y;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3423,7 +3427,7 @@ begin
with chkSymDelphiCompat do with chkSymDelphiCompat do
begin begin
Parent := grpSymantecChk; Parent := grpSymantecChk;
Caption := dlgDeplhiComp; Caption := dlgDeplhiComp+' (-Sd)';
Top := y; Top := y;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3435,7 +3439,7 @@ begin
with chkSymUseAnsiStrings do with chkSymUseAnsiStrings do
begin begin
Parent := grpSymantecChk; Parent := grpSymantecChk;
Caption := dlgCOAnsiStr ; Caption := dlgCOAnsiStr+' (-Sh)';
Top := y; Top := y;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3447,7 +3451,7 @@ begin
with chkSymGPCCompat do with chkSymGPCCompat do
begin begin
Parent := grpSymantecChk; Parent := grpSymantecChk;
Caption := dlgGPCComp ; Caption := dlgGPCComp+' (-Sp)';
Top := y; Top := y;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3472,13 +3476,13 @@ begin
Parent := CodeGenPage; Parent := CodeGenPage;
Top := 5; Top := 5;
Left := 5; Left := 5;
Height := 70; Height := 80;
Width := 120; Width := 150;
Caption := dlgCOUnitStyle ; Caption := dlgCOUnitStyle;
with Items do begin with Items do begin
Add(dlgStatic ); Add(dlgStatic+' (none)');
Add(dlgDynamic ); Add(dlgDynamic+' (-CD)');
Add(dlgCOSmart ); Add(dlgCOSmart+' (-CS)');
end; end;
end; end;
@ -3489,53 +3493,53 @@ begin
Parent := CodeGenPage; Parent := CodeGenPage;
Top := 5; Top := 5;
Left := grpUnitStyle.Left + grpUnitStyle.Width + 10; Left := grpUnitStyle.Left + grpUnitStyle.Width + 10;
Height := 70; Height := 80;
Width := 175; Width := 210;
Caption := dlgCOChecks ; Caption := dlgCOChecks;
end; end;
chkChecksIO := TCheckBox.Create(Self); chkChecksIO := TCheckBox.Create(Self);
with chkChecksIO do with chkChecksIO do
begin begin
Parent := grpChecks; Parent := grpChecks;
Caption := 'I/O'; Caption := 'I/O (-Ci)';
Top := 2; Top := 2;
Left := 5; Left := 2;
Height := 16; Height := 16;
Width := 70; Width := 100;
end; end;
chkChecksRange := TCheckBox.Create(Self); chkChecksRange := TCheckBox.Create(Self);
with chkChecksRange do with chkChecksRange do
begin begin
Parent := grpChecks; Parent := grpChecks;
Caption := dlgCORange ; Caption := dlgCORange+' (-Cr)';
Top := 2; Top := 2;
Left := 85; Left := 102;
Height := 16; Height := 16;
Width := 90; Width := 100;
end; end;
chkChecksOverflow := TCheckBox.Create(Self); chkChecksOverflow := TCheckBox.Create(Self);
with chkChecksOverflow do with chkChecksOverflow do
begin begin
Parent := grpChecks; Parent := grpChecks;
Caption := dlgCOOverflow ; Caption := dlgCOOverflow+' (-Co)';
Top := 27; Top := 27;
Left := 5; Left := 2;
Height := 16; Height := 16;
Width := 80; Width := 100;
end; end;
chkChecksStack := TCheckBox.Create(Self); chkChecksStack := TCheckBox.Create(Self);
with chkChecksStack do with chkChecksStack do
begin begin
Parent := grpChecks; Parent := grpChecks;
Caption := dlgCOStack ; Caption := dlgCOStack+' (-Cs)';
Top := 27; Top := 27;
Left := 85; Left := 102;
Height := 16; Height := 16;
Width := 70; Width := 100;
end; end;
{------------------------------------------------------------} {------------------------------------------------------------}
@ -3547,15 +3551,15 @@ begin
Top := 10; Top := 10;
Left := grpChecks.Left + grpChecks.Width + 10; Left := grpChecks.Left + grpChecks.Width + 10;
Height := 55; Height := 55;
Width := 80; Width := 100;
Caption := dlgHeapSize +':'; Caption := dlgHeapSize +' (-Ch):';
end; end;
edtHeapSize := TEdit.Create(grpHeapSize); edtHeapSize := TEdit.Create(grpHeapSize);
with edtHeapSize do with edtHeapSize do
begin begin
Parent := grpHeapSize; Parent := grpHeapSize;
Caption := dlgHeapSize ; Caption := dlgHeapSize;
Top := 8; Top := 8;
Left := 5; Left := 5;
Height := 23; Height := 23;
@ -3572,8 +3576,8 @@ begin
Top := grpUnitStyle.Top + grpUnitStyle.Height + 6; Top := grpUnitStyle.Top + grpUnitStyle.Height + 6;
Left := 10; Left := 10;
Height := 90; Height := 90;
Width := 115; Width := 150;
Caption := dlgCOGenerate ; Caption := dlgCOGenerate;
end; end;
radGenNormal := TRadioButton.Create(grpGenerate); radGenNormal := TRadioButton.Create(grpGenerate);
@ -3583,8 +3587,8 @@ begin
Top := 5; Top := 5;
Left := 5; Left := 5;
Height := 16; Height := 16;
Width := 100; Width := 140;
Caption := dlgCONormal; Caption := dlgCONormal+' (none)';
end; end;
radGenFaster := TRadioButton.Create(grpGenerate); radGenFaster := TRadioButton.Create(grpGenerate);
@ -3594,8 +3598,8 @@ begin
Top := 28; Top := 28;
Left := 5; Left := 5;
Height := 16; Height := 16;
Width := 100; Width := 140;
Caption := dlgCOFast; Caption := dlgCOFast+' (-OG)';
end; end;
radGenSmaller := TRadioButton.Create(grpGenerate); radGenSmaller := TRadioButton.Create(grpGenerate);
@ -3605,8 +3609,8 @@ begin
Top := 51; Top := 51;
Left := 5; Left := 5;
Height := 16; Height := 16;
Width := 100; Width := 140;
Caption := dlgCOSmaller; Caption := dlgCOSmaller+' (-Og)';
end; end;
@ -3619,13 +3623,13 @@ begin
Top := grpGenerate.Top; Top := grpGenerate.Top;
Left := grpGenerate.Left + grpGenerate.Width + 10; Left := grpGenerate.Left + grpGenerate.Width + 10;
Height := 90; Height := 90;
Width := 270; Width := 300;
Caption := dlgTargetProc; Caption := dlgTargetProc;
with Items do begin with Items do begin
Add('default'); Add('default (none)');
Add('386/486'); Add('386/486 (-Op1)');
Add('Pentium/Pentium MMX'); Add('Pentium/Pentium MMX (-Op2)');
Add('Pentium Pro/Pentium II/C6x86/K6'); Add('Pentium Pro/Pentium II/C6x86/K6 (-Op3)');
end; end;
end; end;
@ -3637,17 +3641,17 @@ begin
Parent := CodeGenPage; Parent := CodeGenPage;
Top := grpTargetProc.Top + grpTargetProc.Height + 6; Top := grpTargetProc.Top + grpTargetProc.Height + 6;
Left := 10; Left := 10;
Height := 112; Height := 150;
Width := 535; Width := 360;
Caption := dlgOptimiz; Caption := dlgOptimiz;
end; end;
w:=(grpOptimizations.Width-10) div 2; w:=(grpOptimizations.Width-10);
radOptLevelNone := TRadioButton.Create(grpOptimizations); radOptLevelNone := TRadioButton.Create(grpOptimizations);
with radOptLevelNone do with radOptLevelNone do
begin begin
Parent := grpOptimizations; Parent := grpOptimizations;
Caption := dlgLevelNoneOpt; Caption := dlgLevelNoneOpt+' (none)';
Top := 5; Top := 5;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3658,7 +3662,7 @@ begin
with radOptLevel1 do with radOptLevel1 do
begin begin
Parent := grpOptimizations; Parent := grpOptimizations;
Caption := dlgLevel1Opt ; Caption := dlgLevel1Opt+' (-O1)';
Top := 26; Top := 26;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3669,7 +3673,7 @@ begin
with radOptLevel2 do with radOptLevel2 do
begin begin
Parent := grpOptimizations; Parent := grpOptimizations;
Caption := dlgLevel2Opt; Caption := dlgLevel2Opt+' (-O2)';
Top := 47; Top := 47;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3680,7 +3684,7 @@ begin
with radOptLevel3 do with radOptLevel3 do
begin begin
Parent := grpOptimizations; Parent := grpOptimizations;
Caption := dlgLevel3Opt ; Caption := dlgLevel3Opt+' (-O3)';
Top := 68; Top := 68;
Left := 5; Left := 5;
Height := 16; Height := 16;
@ -3691,9 +3695,9 @@ begin
with chkOptVarsInReg do with chkOptVarsInReg do
begin begin
Parent := grpOptimizations; Parent := grpOptimizations;
Caption := dlgCOKeepVarsReg ; Caption := dlgCOKeepVarsReg+' (-Or)';
Top := 5; Top := 89;
Left := Left+w; Left := 5;
Height := 16; Height := 16;
Width := w; Width := w;
end; end;
@ -3702,22 +3706,24 @@ begin
with chkOptUncertain do with chkOptUncertain do
begin begin
Parent := grpOptimizations; Parent := grpOptimizations;
Caption := dlgUncertOpt ; Caption := dlgUncertOpt+' (-Ou)';
Top := 26; Top := 110;
Left := Left+w; Left := 5;
Height := 16; Height := 16;
Width := w; Width := w;
end; end;
{-----------------------------------------------------}
TargetOSGroupBox:=TGroupBox.Create(Self); TargetOSGroupBox:=TGroupBox.Create(Self);
with TargetOSGroupBox do begin with TargetOSGroupBox do begin
Name:='TargetOSGroupBox'; Name:='TargetOSGroupBox';
Parent := CodeGenPage; Parent := CodeGenPage;
Left := grpOtherUnits.Left; Left := grpOptimizations.Left+grpOptimizations.Width+5;
Top:=grpOptimizations.Top+grpOptimizations.Height+5; Top:=grpOptimizations.Top;
Width:=150; Width:=150;
Height:=45; Height:=45;
Caption:=dlgTargetOS; Caption:=dlgTargetOS+' (-T)';
end; end;
TargetOSComboBox:=TComboBox.Create(Self); TargetOSComboBox:=TComboBox.Create(Self);
@ -3754,14 +3760,14 @@ begin
Left := 10; Left := 10;
Height := 172; Height := 172;
Width := Self.ClientWidth-28; Width := Self.ClientWidth-28;
Caption := dlgCODebugging ; Caption := dlgCODebugging;
end; end;
chkDebugGDB := TCheckBox.Create(Self); chkDebugGDB := TCheckBox.Create(Self);
with chkDebugGDB do with chkDebugGDB do
begin begin
Parent := grpDebugging; Parent := grpDebugging;
Caption := dlgCOGDB ; Caption := dlgCOGDB+' (-g)';
Top := 6; Top := 6;
Left := 8; Left := 8;
Height := 16; Height := 16;
@ -3772,7 +3778,7 @@ begin
with chkDebugDBX do with chkDebugDBX do
begin begin
Parent := grpDebugging; Parent := grpDebugging;
Caption := dlgCODBX; Caption := dlgCODBX+' (-gd)';
Top := 27; Top := 27;
Left := 8; Left := 8;
Height := 16; Height := 16;
@ -3783,7 +3789,7 @@ begin
with chkUseLineInfoUnit do with chkUseLineInfoUnit do
begin begin
Parent := grpDebugging; Parent := grpDebugging;
Caption := dlgLNumsBct; Caption := dlgLNumsBct+' (-gl)';
Top := 48; Top := 48;
Left := 8; Left := 8;
Height := 16; Height := 16;
@ -3794,7 +3800,7 @@ begin
with chkUseHeaptrc do with chkUseHeaptrc do
begin begin
Parent := grpDebugging; Parent := grpDebugging;
Caption := dlgCOHeaptrc ; Caption := dlgCOHeaptrc+' (-gh)';
Top := 69; Top := 69;
Left := 8; Left := 8;
Height := 16; Height := 16;
@ -3805,7 +3811,7 @@ begin
with chkUseValgrind do with chkUseValgrind do
begin begin
Parent := grpDebugging; Parent := grpDebugging;
Caption := dlgCOValgrind ; Caption := dlgCOValgrind+' (-gv)';
Top := 90; Top := 90;
Left := 8; Left := 8;
Height := 16; Height := 16;
@ -3816,7 +3822,7 @@ begin
with chkGenGProfCode do with chkGenGProfCode do
begin begin
Parent := grpDebugging; Parent := grpDebugging;
Caption := dlgGPROF ; Caption := dlgGPROF+' (-pg)';
Top := 111; Top := 111;
Left := 8; Left := 8;
Height := 16; Height := 16;
@ -3827,7 +3833,7 @@ begin
with chkSymbolsStrip do with chkSymbolsStrip do
begin begin
Parent := grpDebugging; Parent := grpDebugging;
Caption := dlgCOStrip; Caption := dlgCOStrip+' (-Xs)';
Top := 132; Top := 132;
Left := 8; Left := 8;
Height := 16; Height := 16;
@ -3844,14 +3850,14 @@ begin
Left := 10; Left := 10;
Height := 91; Height := 91;
Width := (Self.ClientWidth-30) div 2; Width := (Self.ClientWidth-30) div 2;
Caption := dlgLinkLibraries ; Caption := dlgLinkLibraries;
end; end;
radLibsLinkDynamic := TRadioButton.Create(Self); radLibsLinkDynamic := TRadioButton.Create(Self);
with radLibsLinkDynamic do with radLibsLinkDynamic do
begin begin
Parent := grpLinkLibraries; Parent := grpLinkLibraries;
Caption := dlgLinkDinLibs; Caption := dlgLinkDinLibs+' (-XD)';
Top := 6; Top := 6;
Left := 8; Left := 8;
Height := 22; Height := 22;
@ -3862,7 +3868,7 @@ begin
with radLibsLinkStatic do with radLibsLinkStatic do
begin begin
Parent := grpLinkLibraries; Parent := grpLinkLibraries;
Caption := dlgLinkStatLibs ; Caption := dlgLinkStatLibs+' (-XS)';
Top := 27; Top := 27;
Left := 8; Left := 8;
Height := 22; Height := 22;
@ -3873,7 +3879,7 @@ begin
with radLibsLinkSmart do with radLibsLinkSmart do
begin begin
Parent := grpLinkLibraries; Parent := grpLinkLibraries;
Caption := dlgLinkSmart ; Caption := dlgLinkSmart+' (-XX -CX)';
Top := 48; Top := 48;
Left := 8; Left := 8;
Height := 22; Height := 22;
@ -3913,14 +3919,14 @@ begin
Left := 10; Left := 10;
Height := 75; Height := 75;
Width := (Self.ClientWidth-20); Width := (Self.ClientWidth-20);
Caption := dlgCOOpts; Caption := dlgCOOpts+' (-k)';
end; end;
chkOptionsLinkOpt := TCheckBox.Create(Self); chkOptionsLinkOpt := TCheckBox.Create(Self);
with chkOptionsLinkOpt do with chkOptionsLinkOpt do
begin begin
Parent := grpOptions; Parent := grpOptions;
Caption := dlgPassOptsLinker ; Caption := dlgPassOptsLinker;
Top := 6; Top := 6;
Left := 8; Left := 8;
Height := 16; Height := 16;
@ -3962,7 +3968,7 @@ begin
with chkErrors do with chkErrors do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgCOShowErr ; Caption := dlgCOShowErr+' (-ve)';
Top := 6; Top := 6;
Left := 8; Left := 8;
Height := 16; Height := 16;
@ -3973,7 +3979,7 @@ begin
with chkWarnings do with chkWarnings do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowWarnings ; Caption := dlgShowWarnings+' (-vw)';
Top := 27; Top := 27;
Left := chkErrors.Left; Left := chkErrors.Left;
Height := chkErrors.Height; Height := chkErrors.Height;
@ -3984,7 +3990,7 @@ begin
with chkNotes do with chkNotes do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowNotes ; Caption := dlgShowNotes+' (-vn)';
Top := 48; Top := 48;
Left := chkErrors.Left; Left := chkErrors.Left;
Height := chkErrors.Height; Height := chkErrors.Height;
@ -3995,7 +4001,7 @@ begin
with chkHints do with chkHints do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowHint ; Caption := dlgShowHint+' (-vh)';
Top := 69; Top := 69;
Left := chkErrors.Left; Left := chkErrors.Left;
Height := chkErrors.Height; Height := chkErrors.Height;
@ -4006,7 +4012,7 @@ begin
with chkGeneralInfo do with chkGeneralInfo do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowGeneralInfo ; Caption := dlgShowGeneralInfo+' (-vi)';
Top := 90; Top := 90;
Left := chkErrors.Left; Left := chkErrors.Left;
Height := chkErrors.Height; Height := chkErrors.Height;
@ -4017,7 +4023,7 @@ begin
with chkLineNumbers do with chkLineNumbers do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowLineNumbers ; Caption := dlgShowLineNumbers+' (-vl)';
Top := 111; Top := 111;
Left := chkErrors.Left; Left := chkErrors.Left;
Height := chkErrors.Height; Height := chkErrors.Height;
@ -4028,7 +4034,7 @@ begin
with chkAllProcsOnError do with chkAllProcsOnError do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowProcsError ; Caption := dlgShowProcsError+' (-vb)';
Top := 132; Top := 132;
Left := chkErrors.Left; Left := chkErrors.Left;
Height := chkErrors.Height; Height := chkErrors.Height;
@ -4039,7 +4045,7 @@ begin
with chkEverything do with chkEverything do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowEverything ; Caption := dlgShowEverything+' (-va)';
Top := 153; Top := 153;
Left := chkErrors.Left; Left := chkErrors.Left;
Height := chkErrors.Height; Height := chkErrors.Height;
@ -4050,7 +4056,7 @@ begin
with chkDebugInfo do with chkDebugInfo do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowDebugInfo ; Caption := dlgShowDebugInfo+' (-vd)';
Top := 6; Top := 6;
Left := (grpVerbosity.ClientWidth div 2)+4; Left := (grpVerbosity.ClientWidth div 2)+4;
Height := 16; Height := 16;
@ -4061,7 +4067,7 @@ begin
with chkUsedFiles do with chkUsedFiles do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowUsedFiles ; Caption := dlgShowUsedFiles+' (-vu)';
Top := 27; Top := 27;
Left := chkDebugInfo.Left; Left := chkDebugInfo.Left;
Height := chkDebugInfo.Height; Height := chkDebugInfo.Height;
@ -4072,7 +4078,7 @@ begin
with chkTriedFiles do with chkTriedFiles do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowTriedFiles ; Caption := dlgShowTriedFiles+' (-vt)';
Top := 48; Top := 48;
Left := chkDebugInfo.Left; Left := chkDebugInfo.Left;
Height := chkDebugInfo.Height; Height := chkDebugInfo.Height;
@ -4083,7 +4089,7 @@ begin
with chkDefinedMacros do with chkDefinedMacros do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowDefinedMacros ; Caption := dlgShowDefinedMacros+' (-vm)';
Top := 69; Top := 69;
Left := chkDebugInfo.Left; Left := chkDebugInfo.Left;
Height := chkDebugInfo.Height; Height := chkDebugInfo.Height;
@ -4094,7 +4100,7 @@ begin
with chkCompiledProc do with chkCompiledProc do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowCompiledProcedures ; Caption := dlgShowCompiledProcedures+' (-vp)';
Top := 90; Top := 90;
Left := chkDebugInfo.Left; Left := chkDebugInfo.Left;
Height := chkDebugInfo.Height; Height := chkDebugInfo.Height;
@ -4105,7 +4111,7 @@ begin
with chkConditionals do with chkConditionals do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowConditionals ; Caption := dlgShowConditionals+' (-vc)';
Top := 111; Top := 111;
Left := chkDebugInfo.Left; Left := chkDebugInfo.Left;
Height := chkDebugInfo.Height; Height := chkDebugInfo.Height;
@ -4116,7 +4122,7 @@ begin
with chkNothing do with chkNothing do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgShowNothing ; Caption := dlgShowNothing+' (-v0)';
Top := 132; Top := 132;
Left := chkDebugInfo.Left; Left := chkDebugInfo.Left;
Height := chkDebugInfo.Height; Height := chkDebugInfo.Height;
@ -4127,7 +4133,7 @@ begin
with chkFPCLogo do with chkFPCLogo do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgWriteFPCLogo ; Caption := dlgWriteFPCLogo+' (-l)';
Top := 153; Top := 153;
Left := chkDebugInfo.Left; Left := chkDebugInfo.Left;
Height := chkDebugInfo.Height; Height := chkDebugInfo.Height;
@ -4138,7 +4144,7 @@ begin
with chkHintsForUnusedUnitsInMainSrc do with chkHintsForUnusedUnitsInMainSrc do
begin begin
Parent := grpVerbosity; Parent := grpVerbosity;
Caption := dlgHintsUnused; Caption := dlgHintsUnused+' (none)';
Top := 174; Top := 174;
Left := ChkErrors.Left; Left := ChkErrors.Left;
Height := ChkErrors.Height; Height := ChkErrors.Height;
@ -4154,7 +4160,7 @@ begin
Left := 10; Left := 10;
Height := 50; Height := 50;
Width := 200; Width := 200;
Caption := dlgStopAfterNrErr ; Caption := dlgStopAfterNrErr+' (-Se)';
end; end;
edtErrorCnt := TEdit.Create(grpErrorCnt); edtErrorCnt := TEdit.Create(grpErrorCnt);
@ -4182,14 +4188,14 @@ begin
Left := 10; Left := 10;
Height := 95; Height := 95;
Width := Self.ClientWidth-28; Width := Self.ClientWidth-28;
Caption := dlgConfigFiles ; Caption := dlgConfigFiles;
end; end;
chkConfigFile := TCheckBox.Create(Self); chkConfigFile := TCheckBox.Create(Self);
with chkConfigFile do with chkConfigFile do
begin begin
Parent := grpConfigFile; Parent := grpConfigFile;
Caption := dlgUseFpcCfg ; Caption := dlgUseFpcCfg+' (none, not is -n)';
Top := 6; Top := 6;
Left := 8; Left := 8;
Height := 16; Height := 16;
@ -4200,7 +4206,7 @@ begin
with chkAdditionalConfigFile do with chkAdditionalConfigFile do
begin begin
Parent := grpConfigFile; Parent := grpConfigFile;
Caption := dlgUseAdditionalConfig ; Caption := dlgUseAdditionalConfig+' (@)';
Top := 27; Top := 27;
Left := 8; Left := 8;
Height := 16; Height := 16;
@ -4447,7 +4453,7 @@ begin
Top := y; Top := y;
Width := Self.ClientWidth-28; Width := Self.ClientWidth-28;
Height := 45; Height := 45;
Caption := dlgOtherUnitFiles ; Caption := dlgOtherUnitFiles;
inc(y,Height+5); inc(y,Height+5);
end; end;
@ -4485,7 +4491,7 @@ begin
Top := y; Top := y;
Width := grpOtherUnits.Width; Width := grpOtherUnits.Width;
Height := grpOtherUnits.Height; Height := grpOtherUnits.Height;
Caption := dlgCOIncFiles ; Caption := dlgCOIncFiles;
inc(y,Height+5); inc(y,Height+5);
end; end;
@ -4522,7 +4528,7 @@ begin
Left := grpOtherUnits.Left; Left := grpOtherUnits.Left;
Width := grpOtherUnits.Width; Width := grpOtherUnits.Width;
Height := grpOtherUnits.Height; Height := grpOtherUnits.Height;
Caption := dlgCOSources ; Caption := dlgCOSources;
inc(y,Height+5); inc(y,Height+5);
end; end;
@ -4559,7 +4565,7 @@ begin
Left := grpOtherUnits.Left; Left := grpOtherUnits.Left;
Width := grpOtherUnits.Width; Width := grpOtherUnits.Width;
Height := grpOtherUnits.Height; Height := grpOtherUnits.Height;
Caption := dlgCOLibraries ; Caption := dlgCOLibraries;
inc(y,Height+5); inc(y,Height+5);
end; end;
@ -4596,7 +4602,7 @@ begin
Left := grpOtherUnits.Left; Left := grpOtherUnits.Left;
Width := grpOtherUnits.Width; Width := grpOtherUnits.Width;
Height := grpOtherUnits.Height; Height := grpOtherUnits.Height;
Caption := dlgUnitOutp ; Caption := dlgUnitOutp;
inc(y,Height+5); inc(y,Height+5);
end; end;
@ -4670,7 +4676,7 @@ begin
Top:= y; Top:= y;
Width:=Self.ClientWidth-28; Width:=Self.ClientWidth-28;
Height:=45; Height:=45;
Caption:=lisLCLWidgetType; Caption:=lisLCLWidgetType+' (various)';
with Items do begin with Items do begin
Add(Format(lisCOdefault, [GetDefaultLCLWidgetType])); Add(Format(lisCOdefault, [GetDefaultLCLWidgetType]));
Add('gnome'); Add('gnome');
@ -4701,7 +4707,7 @@ begin
with btnCancel do with btnCancel do
begin begin
Parent := Self; Parent := Self;
Caption := dlgCancel ; Caption := dlgCancel;
OnClick := @ButtonCancelClicked; OnClick := @ButtonCancelClicked;
end; end;

16
ide/lazarusidestrconsts.pas
View File

@ -739,7 +739,7 @@ resourcestring
dlgMarginGutter = 'Margin and gutter';//What is gutter? dlgMarginGutter = 'Margin and gutter';//What is gutter?
dlgVisibleRightMargin = 'Visible right margin'; dlgVisibleRightMargin = 'Visible right margin';
dlgVisibleGutter = 'Visible gutter';//I know only about fish guts... :( :) dlgVisibleGutter = 'Visible gutter';//I know only about fish guts... :( :)
dlgShowLineNumbers = 'Show line numbers'; dlgShowLineNumbers = 'Show compiling line numbers';
dlgRightMargin = 'Right margin'; dlgRightMargin = 'Right margin';
dlgRightMarginColor = 'Right margin color'; dlgRightMarginColor = 'Right margin color';
dlgGutterWidth = 'Gutter width';// as I am food technology bachelor dlgGutterWidth = 'Gutter width';// as I am food technology bachelor
@ -903,7 +903,7 @@ resourcestring
dlgLinkSmart = 'Link Smart'; dlgLinkSmart = 'Link Smart';
dlgPassOptsLinker = 'Pass Options To The Linker (Delimiter is space)'; dlgPassOptsLinker = 'Pass Options To The Linker (Delimiter is space)';
lisCOTargetOSSpecificOptions = 'Target OS specific options'; lisCOTargetOSSpecificOptions = 'Target OS specific options';
dlgVerbosity = 'Verbosity:'; dlgVerbosity = 'Verbosity during compilation:';
dlgCOShowErr = 'Show Errors'; dlgCOShowErr = 'Show Errors';
dlgShowWarnings = 'Show Warnings'; dlgShowWarnings = 'Show Warnings';
dlgShowNotes = 'Show Notes'; dlgShowNotes = 'Show Notes';
@ -925,11 +925,11 @@ resourcestring
dlgUseAdditionalConfig = 'Use Additional Compiler Config File'; dlgUseAdditionalConfig = 'Use Additional Compiler Config File';
lisCustomOptions2 = 'Custom options'; lisCustomOptions2 = 'Custom options';
dlgStopAfterNrErr = 'Stop after number of errors:'; dlgStopAfterNrErr = 'Stop after number of errors:';
dlgOtherUnitFiles = 'Other Unit Files (Delimiter is semicolon):'; dlgOtherUnitFiles = 'Other Unit Files (-Fu) (Delimiter is semicolon):';
dlgCOIncFiles = 'Include Files:'; dlgCOIncFiles = 'Include Files (-Fi):';
dlgCOSources = 'Other Sources: (.pp/.pas files)'; dlgCOSources = 'Other Sources (.pp/.pas files, used only by IDE not by compiler)';
dlgCOLibraries = 'Libraries:'; dlgCOLibraries = 'Libraries (-Fl):';
dlgCODebugPath = 'Debugger path addition:'; dlgCODebugPath = 'Debugger path addition (none):';
dlgToFPCPath = 'Path To Compiler:'; dlgToFPCPath = 'Path To Compiler:';
lisCOSkipCallingCompiler = 'Skip calling Compiler'; lisCOSkipCallingCompiler = 'Skip calling Compiler';
lisCOExecuteAfter = 'Execute after'; lisCOExecuteAfter = 'Execute after';
@ -940,7 +940,7 @@ resourcestring
lisCOScanForFPCMessages = 'Scan for FPC messages'; lisCOScanForFPCMessages = 'Scan for FPC messages';
lisCOScanForMakeMessages = 'Scan for Make messages'; lisCOScanForMakeMessages = 'Scan for Make messages';
lisCOShowAllMessages = 'Show all messages'; lisCOShowAllMessages = 'Show all messages';
dlgUnitOutp = 'Unit output directory:'; dlgUnitOutp = 'Unit output directory (-FE):';
lisCOdefault = 'default (%s)'; lisCOdefault = 'default (%s)';
dlgButApply = 'Apply'; dlgButApply = 'Apply';
dlgCOShowOptions = 'Show Options'; dlgCOShowOptions = 'Show Options';