diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-09-14 22:58:33 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-21 14:52:21 +0200 |
commit | 63c84c9ee4ed66b2839ac89e1476fc3224f98300 (patch) | |
tree | 650e63dcc79e0991ee8980172b369b7fc08d349e /src/corelib | |
parent | 8ef6fde2723bbb6120ef2b914027971593635030 (diff) | |
download | fpGUI-63c84c9ee4ed66b2839ac89e1476fc3224f98300.tar.xz |
Removed compiler warnings.
Diffstat (limited to 'src/corelib')
-rw-r--r-- | src/corelib/fpg_base.pas | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas index 63c3ea15..3bdfde47 100644 --- a/src/corelib/fpg_base.pas +++ b/src/corelib/fpg_base.pas @@ -2266,6 +2266,7 @@ function TfpgApplicationBase.ContextHelp(const AHelpContext: THelpContext): Bool var p: TProcess; begin + Result := False; p := TProcess.Create(nil); try if fpgFileExists(HelpFile) then @@ -2278,6 +2279,7 @@ begin end else p.CommandLine := GetHelpViewer; + Result := True; p.Execute; finally p.Free; @@ -2288,6 +2290,7 @@ function TfpgApplicationBase.KeywordHelp(const AHelpKeyword: string): Boolean; var p: TProcess; begin + Result := False; p := TProcess.Create(nil); try if fpgFileExists(HelpFile) then @@ -2297,6 +2300,7 @@ begin end else p.CommandLine := GetHelpViewer; + Result := True; p.Execute; finally p.Free; |