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

* fixed lhelp home back and forward buttons being disabled when first opening file

Browse Source 
git-svn-id: trunk@21951 -
This commit is contained in:
andrew 2009-10-01 15:22:27 +00:00
parent c97887101c
commit f0bc788ad4
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/chmhelp/lhelp/lhelpcore.lrs
View File

@ -1,3 +1,5 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('THelpForm','FORMDATA',[ LazarusResources.Add('THelpForm','FORMDATA',[
'TPF0'#9'THelpForm'#8'HelpForm'#4'Left'#3'B'#1#6'Height'#3#23#2#3'Top'#3#239#0 'TPF0'#9'THelpForm'#8'HelpForm'#4'Left'#3'B'#1#6'Height'#3#23#2#3'Top'#3#239#0
+#5'Width'#3#246#2#13'ActiveControl'#7#6'Panel1'#7'Caption'#6#5'LHelp'#12'Cli' +#5'Width'#3#246#2#13'ActiveControl'#7#6'Panel1'#7'Caption'#6#5'LHelp'#12'Cli'

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

@ -416,6 +416,7 @@ begin
if fNewPage.ContentProvider.LoadURL(AURL, AContext) then if fNewPage.ContentProvider.LoadURL(AURL, AContext) then
begin begin
PageControl.ActivePage := fNewPage; PageControl.ActivePage := fNewPage;
RefreshState;
Result := Ord(srSuccess); Result := Ord(srSuccess);
end end
else else