diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-04-03 12:26:27 +0100 |
|---|---|---|
| committer | David Laurence Emerson <dle3ab@angelbase.com> | 2013-05-28 00:42:51 -0700 |
| commit | 769c2fb098517607ff54314ea160895263b9a125 (patch) | |
| tree | 4c4af92a40c3e081ee45c203eb12698ac42ae61a /src/corelib/fpg_base.pas | |
| parent | 593b5a5e0c8582c9dac00881672c0a18ac4187cd (diff) | |
| download | fpGUI-769c2fb098517607ff54314ea160895263b9a125.tar.xz | |
debug support
Diffstat (limited to 'src/corelib/fpg_base.pas')
| -rw-r--r-- | src/corelib/fpg_base.pas | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas index 5158540e..07d44191 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 @@ -780,6 +783,9 @@ uses fpg_form, // needed for fpgApplication.CreateForms() typinfo, process, + {$IFDEF GDEBUG} + dbugintf, + {$ENDIF} dateutils; @@ -2617,7 +2623,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; @@ -2640,7 +2648,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; |