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

* LHelp demo: cosmetic (hourglass cursor)

Browse Source 
git-svn-id: trunk@46284 -
This commit is contained in:
reiniero 2014-09-22 09:12:46 +00:00
parent 4a8c7b8e7c
commit fe92b2272b
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/chmhelp/democontrol/helpconnectionunit1.pas
View File

@ -51,9 +51,14 @@ var
begin
OpenDialog1.InitialDir:=GetCurrentDirUTF8;
if not OpenDialog1.Execute then exit;
if Help.ServerRunning = false then
Help.StartHelpServer(IPCFile, GetLHelpFilename);
Res :=Help.OpenFile(OpenDialog1.FileName);
Screen.Cursor := crHourGlass;
try
if Help.ServerRunning = false then
Help.StartHelpServer(IPCFile, GetLHelpFilename);
Res :=Help.OpenFile(OpenDialog1.FileName);
finally
Screen.Cursor := crDefault;
end;
Label1.Caption := ResponseToString(Res);
end;

4
components/chmhelp/democontrol/lhelpconnectiondemo1.lpi
View File

@ -40,7 +40,6 @@
<Unit0>
<Filename Value="lhelpconnectiondemo1.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lhelpconnectiondemo1"/>
</Unit0>
<Unit1>
<Filename Value="helpconnectionunit1.pas"/>
@ -74,8 +73,5 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>