IDE: add hints to compiler path options and compilation options.

git-svn-id: trunk@46717 -
This commit is contained in:
juha 2014-10-30 19:48:56 +00:00
parent 6551c9ca73
commit b3f6a86aec
5 changed files with 58 additions and 28 deletions

View File

@ -16,6 +16,8 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
Top = 0
Width = 136
Caption = 'chkCreateMakefile'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object ExecuteAfterGroupBox: TGroupBox

View File

@ -142,6 +142,7 @@ end;
procedure TCompilerCompilationOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
chkCreateMakefile.Caption := dlgCOCreateMakefile;
chkCreateMakefile.Hint := lisEnabledOnlyForPackages;
ExecuteBeforeGroupBox.Caption := lisCOExecuteBefore;
chkExecBeforeBuild.Caption := lisBuildStage;

View File

@ -106,11 +106,13 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 25
Top = 15
Height = 28
Top = 20
Width = 509
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
ParentShowHint = False
ShowHint = True
TabOrder = 0
Text = 'OtherUnitsEdit'
end
@ -121,11 +123,13 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 25
Top = 61
Height = 28
Top = 74
Width = 509
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
ParentShowHint = False
ShowHint = True
TabOrder = 1
Text = 'IncludeFilesEdit'
end
@ -136,11 +140,13 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 25
Top = 266
Height = 28
Top = 314
Width = 509
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
ParentShowHint = False
ShowHint = True
TabOrder = 6
Text = 'OtherSourcesEdit'
end
@ -151,11 +157,13 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 25
Top = 107
Height = 28
Top = 128
Width = 509
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
ParentShowHint = False
ShowHint = True
TabOrder = 2
Text = 'LibrariesEdit'
end
@ -166,11 +174,13 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 25
Top = 153
Height = 28
Top = 182
Width = 509
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
ParentShowHint = False
ShowHint = True
TabOrder = 3
Text = 'UnitOutputDirEdit'
end
@ -181,11 +191,13 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 25
Top = 312
Height = 28
Top = 368
Width = 509
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
ParentShowHint = False
ShowHint = True
TabOrder = 7
Text = 'DebugPathEdit'
end
@ -207,11 +219,13 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 25
Top = 199
Height = 28
Top = 236
Width = 509
Anchors = [akTop, akLeft, akRight]
OnChange = ProjTargetFileEditChange
ParentShowHint = False
ShowHint = True
TabOrder = 4
Text = 'ProjTargetFileEdit'
end
@ -221,11 +235,13 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 0
Height = 21
Top = 224
Width = 257
Height = 24
Top = 264
Width = 277
BorderSpacing.Bottom = 6
Caption = 'ProjTargetApplyConventionsCheckBox'
ParentShowHint = False
ShowHint = True
TabOrder = 5
end
end

View File

@ -606,6 +606,7 @@ begin
FDialog:=ADialog;
ProjTargetFileEdit.Text:='';
ProjTargetApplyConventionsCheckBox.Caption:=lisApplyConventions;
ProjTargetApplyConventionsCheckBox.Hint:=lisApplyConventionsHint;
OtherUnitsLabel.Caption := dlgOtherUnitFiles;
OtherUnitsPathEditBtn := TPathEditorButton.Create(Self);
@ -624,6 +625,7 @@ begin
TabOrder:=1;
end;
OtherUnitsEdit.AnchorToNeighbour(akRight, 0, OtherUnitsPathEditBtn);
OtherUnitsEdit.Hint := lisDelimiterIsSemicolon;
{------------------------------------------------------------}
@ -644,6 +646,7 @@ begin
TabOrder:=3;
end;
IncludeFilesEdit.AnchorToNeighbour(akRight, 0, IncludeFilesPathEditBtn);
IncludeFilesEdit.Hint := lisDelimiterIsSemicolon;
{------------------------------------------------------------}
@ -664,6 +667,7 @@ begin
TabOrder:=9;
end;
OtherSourcesEdit.AnchorToNeighbour(akRight, 0, OtherSourcesPathEditBtn);
OtherSourcesEdit.Hint := lisDelimiterIsSemicolon;
{------------------------------------------------------------}
@ -684,6 +688,7 @@ begin
TabOrder:=5;
end;
LibrariesEdit.AnchorToNeighbour(akRight, 0, LibrariesPathEditBtn);
LibrariesEdit.Hint := lisDelimiterIsSemicolon;
{------------------------------------------------------------}
@ -703,6 +708,9 @@ begin
TabOrder:=7;
end;
UnitOutputDirEdit.AnchorToNeighbour(akRight, 0, btnUnitOutputDir);
UnitOutputDirEdit.Hint := lisDelimiterIsSemicolon;
ProjTargetFileEdit.Hint := lisDelimiterIsSemicolon;
{------------------------------------------------------------}
@ -723,6 +731,7 @@ begin
TabOrder:=13;
end;
DebugPathEdit.AnchorToNeighbour(akRight, 0, DebugPathEditBtn);
DebugPathEdit.Hint := lisDelimiterIsSemicolon;
{------------------------------------------------------------}

View File

@ -2102,32 +2102,38 @@ resourcestring
lisCustomOptHint = 'These options are passed to the compiler after'
+' comments are deleted and macros are replaced.';
dlgStopAfterNrErr = 'Stop after number of errors:';
dlgOtherUnitFiles = 'Other unit files (-Fu) (delimiter is semicolon):';
lisApplyConventions = 'Apply conventions';
lisApplyConventionsHint = 'Adjust name extension and character case for platform and file type.';
dlgOtherUnitFiles = 'Other unit files (-Fu):';
dlgCOIncFiles = 'Include files (-Fi):';
dlgCOSources = 'Other sources (.pp/.pas files, used only by IDE not by compiler)';
dlgCOLibraries = 'Libraries (-Fl):';
dlgUnitOutp = 'Unit output directory (-FU):';
lisTargetFileNameEmptyUseUnitOutputDirectory = 'Target file name: (-o, empty = '
+'use unit output directory)';
lisTargetFileNameO = 'Target file name (-o):';
dlgCOSources = 'Other sources (.pp/.pas files, used only by IDE not by compiler)';
dlgCODebugPath = 'Debugger path addition (none):';
lisDelimiterIsSemicolon = 'Delimiter is semicolon.';
lisCompiler = 'Compiler';
lisDebugger = 'Debugger';
lisToFPCPath = 'Path:';
lisCOSkipCallingCompiler = 'Skip calling compiler';
lisCOAmbiguousAdditionalCompilerConfigFile = 'Ambiguous additional compiler '
+'config file';
lisCOAmbiguousAdditionalCompilerConfigFile = 'Ambiguous additional compiler config file';
lisCOWarningTheAdditionalCompilerConfigFileHasTheSameNa = 'Warning: The '
+'additional compiler config file has the same name, as one of the '
+'standard config filenames the Free Pascal compiler is looking for. This '
+'can result in ONLY parsing the additional config and skipping the '
+'standard config.';
+'can result in ONLY parsing the additional config and skipping the standard config.';
lisCOClickOKIfAreSureToDoThat = '%s%sClick OK if you definitely want to do that.';
lisCOCallOn = 'Call on:';
dlgCOCreateMakefile = 'Create Makefile';
lisEnabledOnlyForPackages = 'Enabled only for packages.';
lisCOExecuteAfter = 'Execute after';
lisCOExecuteBefore = 'Execute before';
lisCOCommand = 'Command:';
lisCOScanForMessages = 'Scan for messages:';
lisCOScanForFPCMessages = 'Scan for FPC messages';
lisCOScanForMakeMessages = 'Scan for Make messages';
dlgUnitOutp = 'Unit output directory (-FU):';
dlgCOShowOptions = '&Show Options';
lisCompTest = '&Test';
dlgCOLoadSaveHint = 'Compiler options can be saved to an XML file.';
@ -2310,8 +2316,6 @@ resourcestring
dlgPOSaveSession = 'Session';
dlgApplicationSettings = 'Application settings';
dlgPOTitle = 'Title:';
lisTargetFileNameEmptyUseUnitOutputDirectory = 'Target file name: (-o, empty = '
+'use unit output directory)';
lisHint = 'Hint';
lisNote = 'Note';
lisTheContainsAStarCharacterLazarusUsesThisAsNormalCh = 'The %s contains a '
@ -2321,7 +2325,6 @@ resourcestring
lisTheOtherSourcesContainsADirectoryWhichIsAlreadyInT = 'The "Other sources" '
+'contains a directory which is already in the "Other unit files".%s%s';
lisRemoveThePathsFromOtherSources = 'Remove the paths from "Other sources"';
lisTargetFileNameO = 'Target file name (-o):';
dlgPOUseAppBundle = 'Use Application Bundle for running and debugging (Darwin only)';
dlgPOCreateAppBundle = 'Create Application Bundle';
dlgPOUseManifest = 'Use manifest file to enable themes (Windows only)';
@ -5443,7 +5446,6 @@ resourcestring
//Disassembler dialog
lisDisAssAssembler = 'Assembler';
lisApplyConventions = 'Apply conventions';
lisKeepRelativeIndentationOfMultiLineTemplate = 'Keep relative indentation '
+'of multi line template';
lisTheCurrentFPCHasNoConfigFileItWillProbablyMissSome = 'The current FPC '