From b7569c64da5ce8736c9ab10f887638a39d915e58 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 20 Apr 2008 20:42:14 +0000
Subject: [PATCH] IDE: added VerboseIDEEncoding flag for debug output

git-svn-id: trunk@14912 -
---
 ide/main.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index ff2249d414..648c740620 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -11474,7 +11474,9 @@ begin
   DiskEncoding:=GuessEncoding(Source);
   MemEncoding:=EncodingUTF8;
   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);
     //DebugLn(['TMainIDE.OnCodeBufferDecodeLoaded ',Source]);
   end;
@@ -11485,7 +11487,9 @@ procedure TMainIDE.OnCodeBufferEncodeSaving(Code: TCodeBuffer;
 begin
   if (Code.DiskEncoding<>'') and (Code.MemEncoding<>'')
   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);
   end;
 end;