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

ChmHelp & Democontrol: add right lhelp path for Windows. Cleanup.

Browse Source 
git-svn-id: trunk@43181 -
This commit is contained in:
juha 2013-10-08 18:58:43 +00:00
parent d29e9fa0b6
commit 87094af7dc
5 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/chmhelp/democontrol/helpconnectionunit1.lfm
View File

@ -9,10 +9,10 @@ object Form1: TForm1
ClientWidth = 400
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '0.9.27'
LCLVersion = '1.3'
object Label1: TLabel
Left = 93
Height = 18
Height = 20
Top = 73
Width = 110
Caption = 'Response is here'

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

@ -37,11 +37,11 @@ implementation
function ResponseToString(Ares: TLHelpResponse): String;
begin
case Ares of
srNoAnswer: Result := 'NoAnswer';
srNoAnswer: Result := 'NoAnswer';
srSuccess: Result := 'Success';
srInvalidFile:Result := 'InvalidFileName';
srInvalidURL:Result := 'InvalidURL';
srInvalidContext:Result := 'InvalidContext';
srInvalidFile: Result := 'InvalidFileName';
srInvalidURL: Result := 'InvalidURL';
srInvalidContext: Result := 'InvalidContext';
end;
end;
@ -80,6 +80,9 @@ end;
function TForm1.GetLHelpFilename: string;
begin
Result:='../lhelp/lhelp';
{$IFDEF Windows}
Result:='..\lhelp\lhelp.exe';
{$ENDIF}
{$IFDEF darwin}
Result:=Result+'.app/Contents/MacOS/'+ExtractFilename(Result);
{$ENDIF}

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

@ -1,4 +1,4 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
@ -46,6 +46,7 @@
<Filename Value="helpconnectionunit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="HelpConnectionUnit1"/>
</Unit1>

6
components/chmhelp/lhelp/lhelpcore.lfm
View File

@ -5,7 +5,7 @@ object HelpForm: THelpForm
Width = 758
ActiveControl = Panel1
Caption = 'LHelp'
ClientHeight = 516
ClientHeight = 510
ClientWidth = 758
Icon.Data = {
7E04000000000100010010100000010020006804000016000000280000001000
@ -52,7 +52,7 @@ object HelpForm: THelpForm
OnKeyUp = FormKeyUp
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.1'
LCLVersion = '1.3'
Visible = True
object Panel1: TPanel
Left = 0
@ -238,7 +238,7 @@ object HelpForm: THelpForm
end
object PageControl: TPageControl
Left = 0
Height = 484
Height = 478
Top = 32
Width = 758
Align = alClient

3
components/chmhelp/lhelp/lhelpcore.pas
View File

@ -427,15 +427,12 @@ begin
if FileMenuOpenRecentItem.Count > MaxHistory then
FileMenuOpenRecentItem.Items[MaxHistory-1].Free;
end;
procedure THelpForm.ContentTitleChange(sender: TObject);
begin
if ActivePage = nil then
Exit;
Caption := 'LHelp - ' + ActivePage.fContentProvider.Title;
end;