1 files changed, 12 insertions, 2 deletions
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas
index 3eae947a..f3e8f6db 100644
--- a/src/corelib/fpg_base.pas
+++ b/src/corelib/fpg_base.pas
@@ -22,6 +22,9 @@ unit fpg_base;
 // To enable the AggPas powered Canvas
 {.$define AGGCanvas}
 
+// For debug use only
+{.$define GDEBUG}
+
 interface
 
 uses
@@ -778,6 +781,9 @@ uses
   fpg_form,  // needed for fpgApplication.CreateForms()
   typinfo,
   process,
+  {$IFDEF GDEBUG}
+  dbugintf,
+  {$ENDIF}
   dateutils;
 
 
@@ -2553,7 +2559,9 @@ begin
         p.CommandLine := GetHelpViewer + ' ' + HelpFile
       else
         p.CommandLine := GetHelpViewer + ' ' + HelpFile + ' -n ' + IntToStr(AHelpContext);
-//writeln('DEBUG:  TfpgApplicationBase.ContextHelp > ', p.CommandLine);
+        {$ifdef GDEBUG}
+        senddebug(p.CommandLine);
+        {$endif}
     end
     else
       p.CommandLine := GetHelpViewer;
@@ -2576,7 +2584,9 @@ begin
     if fpgFileExists(HelpFile) then
     begin
       p.CommandLine := GetHelpViewer + ' ' + HelpFile + ' -s ' + AHelpKeyword;
-//writeln('DEBUG:  TfpgApplicationBase.ContextHelp > ', p.CommandLine);
+      {$ifdef GDEBUG}
+      senddebug(p.CommandLine);
+      {$endif}
     end
     else
       p.CommandLine := GetHelpViewer;