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

IDE: resourcestring

Browse Source 
git-svn-id: trunk@48277 -
This commit is contained in:
mattias 2015-03-11 23:53:07 +00:00
parent 9d6d80a58d
commit 7ab4a1c526
2 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/initialsetupproc.pas
View File

@ -308,6 +308,18 @@ function CheckCompilerQuality(AFilename: string; out Note: string;
TestSrcFilename: string): TSDFilenameQuality; TestSrcFilename: string): TSDFilenameQuality;
var var
CfgCache: TFPCTargetConfigCache; CfgCache: TFPCTargetConfigCache;
function CheckPPU(const AnUnitName: string): boolean;
begin
if CompareFileExt(CfgCache.Units[AnUnitName],'ppu',false)<>0 then
begin
Note:=Format(lisPpuNotFoundCheckYourFpcCfg, [AnUnitName]);
Result:=false;
end else
Result:=true;
end;
var
i: LongInt; i: LongInt;
ShortFilename: String; ShortFilename: String;
begin begin
@ -357,17 +369,9 @@ begin
end; end;
if (CfgCache.RealTargetCPU='jvm') then if (CfgCache.RealTargetCPU='jvm') then
begin begin
if (CompareFileExt(CfgCache.Units['uuchar'],'ppu',false)<>0) then if not CheckPPU('uuchar') then exit;
begin
Note:= 'uuchar.ppu not found. Check your fpc.cfg.';
exit;
end;
end else begin end else begin
if (CompareFileExt(CfgCache.Units['classes'],'ppu',false)<>0) then if not CheckPPU('classes') then exit;
begin
Note:=lisClassesPpuNotFoundCheckYourFpcCfg;
exit;
end;
end; end;
end; end;

2
ide/lazarusidestrconsts.pas
View File

@ -5658,13 +5658,13 @@ resourcestring
+'file name. Usually it starts with fpc, ppc or ppcross.'; +'file name. Usually it starts with fpc, ppc or ppcross.';
lisFpcCfgIsMissing = 'fpc.cfg is missing.'; lisFpcCfgIsMissing = 'fpc.cfg is missing.';
lisSystemPpuNotFoundCheckYourFpcCfg = 'system.ppu not found. Check your fpc.cfg.'; lisSystemPpuNotFoundCheckYourFpcCfg = 'system.ppu not found. Check your fpc.cfg.';
lisClassesPpuNotFoundCheckYourFpcCfg = 'classes.ppu not found. Check your fpc.cfg.';
lisWelcomeToLazarusIDE = 'Welcome to Lazarus IDE %s'; lisWelcomeToLazarusIDE = 'Welcome to Lazarus IDE %s';
lisStartIDE = 'Start IDE'; lisStartIDE = 'Start IDE';
lisUnableToLoadFile2 = 'unable to load file %s: %s'; lisUnableToLoadFile2 = 'unable to load file %s: %s';
lisDirectoryNotFound2 = 'directory %s not found'; lisDirectoryNotFound2 = 'directory %s not found';
lisFileNotFound3 = 'file %s not found'; lisFileNotFound3 = 'file %s not found';
lisFileNotFound4 = 'file not found'; lisFileNotFound4 = 'file not found';
lisPpuNotFoundCheckYourFpcCfg = '%s.ppu not found. Check your fpc.cfg.';
lisISDDirectoryNotFound = 'directory not found'; lisISDDirectoryNotFound = 'directory not found';
lisDebuggerFeedbackInformation = 'Debugger Information'; lisDebuggerFeedbackInformation = 'Debugger Information';
lisDebuggerFeedbackWarning = 'Debugger Warning'; lisDebuggerFeedbackWarning = 'Debugger Warning';