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

LHelp: Fix duplicate hint windows, issue #40456

Browse Source 
(cherry picked from commit e32f823789)
This commit is contained in:
wp_xyz 2023-08-22 18:16:28 +02:00
parent 83d56324fd
commit 8d5532d6f9
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -47,12 +47,12 @@ object HelpForm: THelpForm
} }
KeyPreview = True KeyPreview = True
Menu = MainMenu1 Menu = MainMenu1
LCLVersion = '3.99.0.0'
Visible = True
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnShow = FormShow OnShow = FormShow
LCLVersion = '2.3.0.0'
Visible = True
object PageControl: TPageControl object PageControl: TPageControl
Left = 0 Left = 0
Height = 496 Height = 496
@ -60,14 +60,13 @@ object HelpForm: THelpForm
Width = 751 Width = 751
Align = alClient Align = alClient
MultiLine = True MultiLine = True
Options = [nboMultiLine]
ParentFont = False ParentFont = False
ParentShowHint = False ParentShowHint = False
ShowHint = True
TabOrder = 0 TabOrder = 0
TabPosition = tpBottom TabPosition = tpBottom
OnChange = PageControlChange OnChange = PageControlChange
OnEnter = PageControlEnter OnEnter = PageControlEnter
Options = [nboMultiLine]
end end
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
@ -87,9 +86,9 @@ object HelpForm: THelpForm
Top = 0 Top = 0
Caption = 'Go Home' Caption = 'Go Home'
ImageIndex = 0 ImageIndex = 0
OnClick = MiActionsGoHomeClick
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
OnClick = MiActionsGoHomeClick
end end
object BackBttn: TToolButton object BackBttn: TToolButton
Left = 73 Left = 73
@ -97,9 +96,9 @@ object HelpForm: THelpForm
Top = 0 Top = 0
Caption = 'Go back' Caption = 'Go back'
ImageIndex = 1 ImageIndex = 1
OnClick = MiActionsGoBackClick
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
OnClick = MiActionsGoBackClick
end end
object ForwardBttn: TToolButton object ForwardBttn: TToolButton
Left = 105 Left = 105
@ -107,9 +106,9 @@ object HelpForm: THelpForm
Top = 0 Top = 0
Caption = 'Go forward' Caption = 'Go forward'
ImageIndex = 2 ImageIndex = 2
OnClick = MiActionsGoForwardClick
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
OnClick = MiActionsGoForwardClick
end end
object FileButton: TToolButton object FileButton: TToolButton
Left = 1 Left = 1