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

* CHM: demos: cosmetic/code layout

Browse Source 
git-svn-id: trunk@46576 -
This commit is contained in:
reiniero 2014-10-17 09:06:39 +00:00
parent 4ebb1c0ec1
commit 9e8122ea01
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/chmhelp/democontrol/ctxchmhelpunit1.pas
View File

@ -7,7 +7,7 @@ Abstract:
TLHelpConnector starts "lhelp" a chm viewer written in pure pascal.
How to run this program
How to run this program:
Make sure the example.chm file is created
You can create the example.chm with
../../../tools/chmaker/chmmaker.lpi

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

@ -55,7 +55,7 @@ begin
try
if Help.ServerRunning = false then
Help.StartHelpServer(IPCFile, GetLHelpFilename);
Res :=Help.OpenFile(OpenDialog1.FileName);
Res := Help.OpenFile(OpenDialog1.FileName);
finally
Screen.Cursor := crDefault;
end;
@ -69,7 +69,7 @@ begin
{$IFDEF Unix}
DeleteFile('/tmp/'+IPCFile);
{$ENDIF}
LHelp:=GetLHelpFilename;
LHelp := GetLHelpFilename;
if not FileExistsUTF8(LHelp) then
MessageDlg('Missing lhelp','Can not find the lhelp application "'+LHelp+'"',
mtError,[mbOk],0);
@ -84,11 +84,11 @@ end;
function TForm1.GetLHelpFilename: string;
begin
Result:='../lhelp/lhelp';
Result := '../lhelp/lhelp';
{$IFDEF Windows}
Result:='..\lhelp\lhelp.exe';
Result := '..\lhelp\lhelp.exe';
{$ENDIF}
{$IFDEF darwin}
{$IFDEF darwin} //OS X
Result:=Result+'.app/Contents/MacOS/'+ExtractFilename(Result);
{$ENDIF}
end;