[DEVELOPMENT ENVIRONMENT]
* BUG: Clicking with the right mouse button on a toolbox control now correctly raises the help on that control. git-svn-id: svn://localhost/gambas/trunk@3354 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
parent
22d3945361
commit
98628b539d
1 changed files with 13 additions and 1 deletions
|
@ -147,11 +147,23 @@ End
|
|||
|
||||
Public Procedure btnControl_MouseUp()
|
||||
|
||||
Dim sComp As String
|
||||
Dim sClass As String
|
||||
|
||||
If $bNoEvent Then Return
|
||||
|
||||
If Mouse.Right Then
|
||||
|
||||
MHelp.GotoClass(CComponent.Classes[Last.Tag[0]].Component, Last.Tag[0])
|
||||
'MHelp.GotoClass(CComponent.Classes[Last.Tag[0]].Component, Last.Tag[0])
|
||||
sClass = Last.Tag[0]
|
||||
If sClass <> SELECT_TOOL Then
|
||||
sComp = CComponent.Classes[sClass].Component
|
||||
If sComp = CComponent.PROJECT_NAME Then
|
||||
Project.OpenFile(Last.Tag[0])
|
||||
Else
|
||||
MHelp.ShowHelpBrowserWith(Null, MHelp.TYPE_CLASS, Last.Tag[0])
|
||||
Endif
|
||||
Endif
|
||||
|
||||
Else
|
||||
|
||||
|
|
Loading…
Reference in a new issue