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

IDE: resource strings

Browse Source 
git-svn-id: trunk@29199 -
This commit is contained in:
mattias 2011-01-25 18:13:08 +00:00
parent d9cc4dbb7f
commit d33b3cd8f7
3 changed files with 40 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/compileroptions.pp
View File

@ -72,7 +72,7 @@ uses
// IDEIntf
ProjectIntf, MacroIntf, IDEExternToolIntf, SrcEditorIntf, IDEOptionsIntf,
// IDE
IDEProcs, IDEMsgIntf, LazConf, TransferMacros, CompOptsModes;
LazarusIDEStrConsts, IDEProcs, IDEMsgIntf, LazConf, TransferMacros, CompOptsModes;
type
@ -3489,7 +3489,7 @@ begin
if ParsedStamp[Option]<>CompilerParseStamp then begin
if Parsing[Option] then begin
DebugLn('TParsedCompilerOptions.GetParsedValue Circle in Options: ',ParsedCompilerOptStringNames[Option],' Unparsed="',UnparsedValues[Option],'"');
ParsedError(Option,'Circle in macros');
ParsedError(Option, lisCircleInMacros);
exit('');
end;
Parsing[Option]:=true;

29
ide/frames/compiler_path_options.pas
View File

@ -162,33 +162,34 @@ begin
o:=FCompilerOpts.ParsedOpts.ParsedErrorOption;
case o of
pcosBaseDir:
Msg:='I wonder how you did that: Error in the base directory:';
Msg:=lisIWonderHowYouDidThatErrorInTheBaseDirectory;
pcosUnitPath:
Msg:='Error in the search path for "Other unit files":';
Msg:=lisErrorInTheSearchPathForOtherUnitFiles;
pcosIncludePath:
Msg:='Error in the search path for "Include files":';
Msg:=lisErrorInTheSearchPathForIncludeFiles;
pcosObjectPath:
Msg:='Error in the search path for "Object files":';
Msg:=lisErrorInTheSearchPathForObjectFiles;
pcosLibraryPath:
Msg:='Error in the search path for "Libraries":';
Msg:=lisErrorInTheSearchPathForLibraries;
pcosSrcPath:
Msg:='Error in the search path for "Other sources":';
Msg:=lisErrorInTheSearchPathForOtherSources;
pcosLinkerOptions:
Msg:='Error in the custom linker options (Linking / Pass options to linker):';
Msg:=lisErrorInTheCustomLinkerOptionsLinkingPassOptionsToL;
pcosCustomOptions:
Msg:='Error in the custom compiler options (Other):';
Msg:=lisErrorInTheCustomCompilerOptionsOther;
pcosOutputDir:
Msg:='Error in the "unit output directory":';
Msg:=lisErrorInTheUnitOutputDirectory;
pcosCompilerPath:
Msg:='Error in the compiler file name:';
Msg:=lisErrorInTheCompilerFileName;
pcosDebugPath:
Msg:='Error in the "Debugger path addition":';
Msg:=lisErrorInTheDebuggerPathAddition;
else
Msg:='I wonder how you did that. Error in the '+ParsedCompilerOptStringNames[o]+':';
Msg:=Format(lisIWonderHowYouDidThatErrorInThe, [
ParsedCompilerOptStringNames[o]]);
end;
Msg:=Msg+#13+FCompilerOpts.ParsedOpts.ParsedErrorMsg+#13
+'Value: '+dbgstr(FCompilerOpts.ParsedOpts.UnparsedValues[o]);
IDEMessageDialog('Error',Msg,mtError,[mbCancel]);
+lisValue3+dbgstr(FCompilerOpts.ParsedOpts.UnparsedValues[o]);
IDEMessageDialog(lisCCOErrorCaption, Msg, mtError, [mbCancel]);
exit;
end;

23
ide/lazarusidestrconsts.pas
View File

@ -1748,6 +1748,28 @@ resourcestring
+'on the items tree to get the popupmenu with all available package '
+'functions.';
dlgSearchPaths = 'Paths';
lisIWonderHowYouDidThatErrorInTheBaseDirectory = 'I wonder how you did '
+'that: Error in the base directory:';
lisErrorInTheSearchPathForOtherUnitFiles = 'Error in the search path for "'
+'Other unit files":';
lisErrorInTheSearchPathForIncludeFiles = 'Error in the search path for "'
+'Include files":';
lisErrorInTheSearchPathForObjectFiles = 'Error in the search path for "'
+'Object files":';
lisErrorInTheSearchPathForLibraries = 'Error in the search path for "'
+'Libraries":';
lisErrorInTheSearchPathForOtherSources = 'Error in the search path for "'
+'Other sources":';
lisErrorInTheCustomLinkerOptionsLinkingPassOptionsToL = 'Error in the '
+'custom linker options (Linking / Pass options to linker):';
lisErrorInTheCustomCompilerOptionsOther = 'Error in the custom compiler '
+'options (Other):';
lisErrorInTheUnitOutputDirectory = 'Error in the "unit output directory":';
lisErrorInTheCompilerFileName = 'Error in the compiler file name:';
lisErrorInTheDebuggerPathAddition = 'Error in the "Debugger path addition":';
lisIWonderHowYouDidThatErrorInThe = 'I wonder how you did that. Error in '
+'the %s:';
lisValue3 = 'Value: ';
dlgCOParsing = 'Parsing';
dlgCodeGeneration = 'Code generation';
dlgCOLinking = 'Linking';
@ -5145,6 +5167,7 @@ resourcestring
lisPEDirectories = 'Directories';
lisSelectAnotherLCLWidgetSetMacroLCLWidgetType = 'Select another LCL widget '
+'set (macro LCLWidgetType)';
lisCircleInMacros = 'Circle in macros';
implementation