diff options
| author | David Laurence Emerson <dle3ab@angelbase.com> | 2013-05-27 23:04:56 -0700 |
|---|---|---|
| committer | David Laurence Emerson <dle3ab@angelbase.com> | 2013-05-27 23:04:56 -0700 |
| commit | ec68e3ec7ea545a2165644a3ec08ca9e36be2402 (patch) | |
| tree | 131fe96875f9c26e6b444b6add4ad712ec6f4a18 /src/corelib/fpg_base.pas | |
| parent | 486f4f48ff250ce64ab532a302b6bbd6c05c4050 (diff) | |
| parent | c45010b6370b50f8e6192ddb7dc3d7762c8c29f7 (diff) | |
| download | fpGUI-ec68e3ec7ea545a2165644a3ec08ca9e36be2402.tar.xz | |
Merge branch 'master' into scroll-frame
Conflicts:
src/corelib/x11/fpgui_toolkit.lpk
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 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; |