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

IDE: added VerboseIDEEncoding flag for debug output

Browse Source 
git-svn-id: trunk@14912 -
This commit is contained in:
mattias 2008-04-20 20:42:14 +00:00
parent 6b56243440
commit b7569c64da
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -11474,7 +11474,9 @@ begin
DiskEncoding:=GuessEncoding(Source); DiskEncoding:=GuessEncoding(Source);
MemEncoding:=EncodingUTF8; MemEncoding:=EncodingUTF8;
if (DiskEncoding<>MemEncoding) then begin if (DiskEncoding<>MemEncoding) then begin
//DebugLn(['TMainIDE.OnCodeBufferDecodeLoaded Filename=',Filename,' Disk=',DiskEncoding,' to Mem=',MemEncoding]); {$IFDEF VerboseIDEEncoding}
DebugLn(['TMainIDE.OnCodeBufferDecodeLoaded Filename=',Filename,' Disk=',DiskEncoding,' to Mem=',MemEncoding]);
{$ENDIF}
Source:=ConvertEncoding(Source,DiskEncoding,MemEncoding); Source:=ConvertEncoding(Source,DiskEncoding,MemEncoding);
//DebugLn(['TMainIDE.OnCodeBufferDecodeLoaded ',Source]); //DebugLn(['TMainIDE.OnCodeBufferDecodeLoaded ',Source]);
end; end;
@ -11485,7 +11487,9 @@ procedure TMainIDE.OnCodeBufferEncodeSaving(Code: TCodeBuffer;
begin begin
if (Code.DiskEncoding<>'') and (Code.MemEncoding<>'') if (Code.DiskEncoding<>'') and (Code.MemEncoding<>'')
and (Code.DiskEncoding<>Code.MemEncoding) then begin and (Code.DiskEncoding<>Code.MemEncoding) then begin
//DebugLn(['TMainIDE.OnCodeBufferEncodeSaving Filename=',Code.Filename,' Mem=',Code.MemEncoding,' to Disk=',Code.DiskEncoding]); {$IFDEF VerboseIDEEncoding}
DebugLn(['TMainIDE.OnCodeBufferEncodeSaving Filename=',Code.Filename,' Mem=',Code.MemEncoding,' to Disk=',Code.DiskEncoding]);
{$ENDIF}
Source:=ConvertEncoding(Source,Code.MemEncoding,Code.DiskEncoding); Source:=ConvertEncoding(Source,Code.MemEncoding,Code.DiskEncoding);
end; end;
end; end;