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

ide: output some strings to the console using console code page

Browse Source 
git-svn-id: trunk@18533 -
This commit is contained in:
paul 2009-02-02 14:25:45 +00:00
parent a237ac08d0
commit e8466521ad
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/codetoolsoptions.pas
View File

@ -493,7 +493,7 @@ begin
GetPrimaryConfigPath+'/'+DefaultCodeToolsOptsFile);
CopySecondaryConfigFile(DefaultCodeToolsOptsFile);
if (not FileExistsUTF8(ConfFileName)) then begin
debugln(lisCompilerNOTECodetoolsConfigFileNotFoundUsingDefaults);
debugln(UTF8ToConsole(lisCompilerNOTECodetoolsConfigFileNotFoundUsingDefaults));
end;
FFilename:=ConfFilename;
end;

8
ide/main.pp
View File

@ -11772,10 +11772,12 @@ procedure TMainIDE.InitCodeToolBoss;
procedure AddTemplate(ADefTempl: TDefineTemplate; AddToPool: boolean;
const ErrorMsg: string);
begin
if ADefTempl=nil then begin
if ADefTempl = nil then
begin
DebugLn('');
DebugLn(ErrorMsg);
end else begin;
DebugLn(UTF8ToConsole(ErrorMsg));
end else
begin
if AddToPool then
CodeToolBoss.DefinePool.Add(ADefTempl.CreateCopy(false,true,true));
CodeToolBoss.DefineTree.Add(ADefTempl);