paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 05:56:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed bug where a new lhelp process could be started each time F1 was pressed

Browse Source 
git-svn-id: trunk@37826 -
This commit is contained in:
andrew 2012-06-30 16:43:14 +00:00
parent 140a228eb0
commit 7cc9b49f82
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/chmhelp/lhelp/lhelp.lpi
View File

@ -153,10 +153,6 @@
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
<DebugInfoType Value="dsStabs"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

2
components/chmhelp/packages/help/lhelpcontrol.pas
View File

@ -147,7 +147,7 @@ function TLHelpConnection.ServerRunning: Boolean;
{$IFDEF STALE_PIPE_WORKAROUND}
{$ENDIF}
begin
Result := (fServerOut<>nil) and (fServerOut.Active);
Result := (fServerOut<>nil) and (fServerOut.ServerRunning);
{$IFDEF STALE_PIPE_WORKAROUND}
if not Result then
Exit; // ==>