summaryrefslogtreecommitdiff
path: root/src/corelib
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2010-09-14 22:58:33 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2010-09-21 14:52:21 +0200
commit63c84c9ee4ed66b2839ac89e1476fc3224f98300 (patch)
tree650e63dcc79e0991ee8980172b369b7fc08d349e /src/corelib
parent8ef6fde2723bbb6120ef2b914027971593635030 (diff)
downloadfpGUI-63c84c9ee4ed66b2839ac89e1476fc3224f98300.tar.xz
Removed compiler warnings.
Diffstat (limited to 'src/corelib')
-rw-r--r--src/corelib/fpg_base.pas4
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;