From 9e8122ea01a783269c903eeae76f305446f99dea Mon Sep 17 00:00:00 2001 From: reiniero Date: Fri, 17 Oct 2014 09:06:39 +0000 Subject: [PATCH] * CHM: demos: cosmetic/code layout git-svn-id: trunk@46576 - --- components/chmhelp/democontrol/ctxchmhelpunit1.pas | 2 +- components/chmhelp/democontrol/helpconnectionunit1.pas | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/components/chmhelp/democontrol/ctxchmhelpunit1.pas b/components/chmhelp/democontrol/ctxchmhelpunit1.pas index 300d7969ec..9cf8fd23eb 100644 --- a/components/chmhelp/democontrol/ctxchmhelpunit1.pas +++ b/components/chmhelp/democontrol/ctxchmhelpunit1.pas @@ -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 diff --git a/components/chmhelp/democontrol/helpconnectionunit1.pas b/components/chmhelp/democontrol/helpconnectionunit1.pas index bc73d55f65..4ea20a661f 100644 --- a/components/chmhelp/democontrol/helpconnectionunit1.pas +++ b/components/chmhelp/democontrol/helpconnectionunit1.pas @@ -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;