anchor.diff:          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;
  
positive.code: 
  // To enable the AggPas powered Canvas
  {.$define AGGCanvas}
  
  interface
  
  
negative.code:     if fpgFileExists(HelpFile) then
      begin
        p.CommandLine := GetHelpViewer + ' ' + HelpFile + ' -s ' + AHelpKeyword;
        {$ifdef GDEBUG}
        senddebug(p.CommandLine);
        {$endif}
      end
      else
        p.CommandLine := GetHelpViewer;
  