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

MG: codetools can now work with localized fpc output

Browse Source 
git-svn-id: trunk@2840 -
This commit is contained in:
lazarus 2002-08-18 08:54:46 +00:00
parent 912cd36bca
commit 6ad6ae336f
2 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/codetools/fpc.errore.msg Normal file
View File

@ -0,0 +1,30 @@
# This files overrides all localized compiler messages that are parsed by the
# codetools
parser_m_macro_defined=03101_M_Macro defined: $1
% When \var{-vm} is used, the compiler tells you when it defines macros.
parser_m_macro_undefined=03102_M_Macro undefined: $1
% When \var{-vm} is used, the compiler tells you when it undefines macros.
parser_m_macro_set_to=03103_M_Macro $1 set to $2
% When \var{-vm} is used, the compiler tells you what values macros get.
general_t_exepath=01003_T_Using executable path: $1
% When the \var{-vt} switch is used, this line tells you where the compiler
% looks for it's binaries.
general_t_unitpath=01004_T_Using unit path: $1
% When the \var{-vt} switch is used, this line tells you where the compiler
% looks for compiled units. You can set this path with the \var{-Fu}
general_t_includepath=01005_T_Using include path: $1
% When the \var{-vt} switch is used, this line tells you where the compiler
% looks for it's include files (files used in \var{\{\$I xxx\}} statements).
% You can set this path with the \var{-I} option.
general_t_librarypath=01006_T_Using library path: $1
% When the \var{-vt} switch is used, this line tells you where the compiler
% looks for the libraries. You can set this path with the \var{-Fl} option.
general_t_objectpath=01007_T_Using object path: $1
% When the \var{-vt} switch is used, this line tells you where the compiler
% looks for object files you link in (files used in \var{\{\$L xxx\}} statements).
% You can set this path with the \var{-Fo} option.
# end.

14
ide/main.pp
View File

@ -473,6 +473,7 @@ type
// methods for codetools
procedure InitCodeToolBoss;
procedure UpdateEnglishErrorMsgFilename;
procedure ActivateCodeToolAbortableMode;
function BeginCodeTool(var ActiveSrcEdit: TSourceEditor;
var ActiveUnitInfo: TUnitInfo; Flags: TCodeToolsFlags): boolean;
@ -2415,6 +2416,7 @@ Begin
EnvironmentOptionsDialog.WriteSettings(EnvironmentOptions);
UpdateDefaultPascalFileExtensions;
// set global variables
UpdateEnglishErrorMsgFilename;
MacroValueChanged:=false;
FPCSrcDirChanged:=false;
FPCCompilerChanged:=
@ -6191,6 +6193,7 @@ begin
end;
// build DefinePool and Define Tree
UpdateEnglishErrorMsgFilename;
with CodeToolBoss.DefinePool do begin
// start the compiler and ask for his settings
ADefTempl:=CreateFPCTemplate(EnvironmentOptions.CompilerFilename,
@ -6248,6 +6251,14 @@ begin
end;
end;
procedure TMainIDE.UpdateEnglishErrorMsgFilename;
begin
if EnvironmentOptions.LazarusDirectory<>'' then
CodeToolBoss.DefinePool.EnglishErrorMsgFilename:=
AppendPathDelim(EnvironmentOptions.LazarusDirectory)+
'components'+PathDelim+'codetools'+PathDelim+'fpc.errore.msg';
end;
procedure TMainIDE.ActivateCodeToolAbortableMode;
begin
if ToolStatus=itNone then
@ -7493,6 +7504,9 @@ end.
{ =============================================================================
$Log$
Revision 1.431 2002/11/13 13:40:12 lazarus
MG: codetools can now work with localized fpc output
Revision 1.430 2002/11/12 14:55:33 lazarus
Show Object Inspector when not visible if toggling OI/form/code view.