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

lhelp: Extend the default count of MRU entries to 10

Browse Source 
git-svn-id: trunk@58901 -
This commit is contained in:
wp 2018-09-07 10:11:34 +00:00
parent 813b5366b2
commit c51224fbad
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,7 +51,7 @@ object HelpForm: THelpForm
OnKeyUp = FormKeyUp OnKeyUp = FormKeyUp
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.5' LCLVersion = '1.9.0.0'
Visible = True Visible = True
object PageControl: TPageControl object PageControl: TPageControl
Left = 0 Left = 0
@ -107,7 +107,6 @@ object HelpForm: THelpForm
Left = 33 Left = 33
Height = 32 Height = 32
Top = 0 Top = 0
Width = 8
Caption = 'ToolButton1' Caption = 'ToolButton1'
Style = tbsSeparator Style = tbsSeparator
end end

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

@ -554,7 +554,7 @@ begin
Item.Hint:=Item.URL; Item.Hint:=Item.URL;
FileMenuOpenRecentItem.Insert(0, Item); FileMenuOpenRecentItem.Insert(0, Item);
MaxHistory := fConfig.GetValue('Recent/HistoryCount/Value', 5); MaxHistory := fConfig.GetValue('Recent/HistoryCount/Value', 10);
if FileMenuOpenRecentItem.Count > 0 then if FileMenuOpenRecentItem.Count > 0 then
FileMenuOpenRecentItem.Enabled:=True; FileMenuOpenRecentItem.Enabled:=True;