luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

git-svn-id: svn://localhost/gambas/trunk@2200 867c0c6c-44f3-4631-809d-bfa615b0a4ec

Browse source
This commit is contained in:
Fabien Bodard 2009-08-01 09:12:57 +00:00
parent dd5aecbfc5
commit a2ea9ce4a3
2 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
app/src/gambas3/.src/Debug/FHelp.class
View file

@ -8,12 +8,12 @@ Private Sub ShowHelp(hEditor As Editor)
Me.Background = Color.LightBackground
Me.Ignore = True
Me.Reparent(hEditor.Parent)
Me.Height = Min(txtHelp.TextHeight + 10, Desktop.Height / 4)
Me.Height = Min(txtHelp.TextHeight + 15, Desktop.Height / 4)
Me.Width = Desktop.Width / 3
iY = hEditor.Y + hEditor.CursorY + 5 + hEditor.LineHeight
iY = hEditor.Y + hEditor.CursorY + 20 + hEditor.LineHeight
If (iY + Me.Height) > (hEditor.Y + hEditor.H) Then
iY = hEditor.Y + hEditor.CursorY - 5 - Me.Height
iY = hEditor.Y + hEditor.CursorY - 15 - Me.Height
Endif
hcont = hEditor.Parent
iX = hEditor.CursorX

19
app/src/gambas3/.src/Editor/Code/FEditor.class
View file

@ -2221,29 +2221,28 @@ Private Sub FindDefinition(bPopupHelp As Boolean)
Endif
If bPopupHelp Then
MHelp.GotoKeyword(sKeyword, sKeyword2)
Else
FHelp.ShowKeywordHelp(Editor, sKeyword, sKeyword2)
Else
MHelp.GotoKeyword(sKeyword, sKeyword2)
Endif
Return
Else If Highlight.Types[iCpt] = Highlight.DataType Then
sKeyword = Highlight.Symbols[iCpt]
If bPopupHelp Then
If MHelp.GotoDataType(sKeyword) Then
hClass = CComponent.Classes[sKeyword]
If hClass Then
MHelp.GotoClass(hClass.Component, hClass.Name)
Endif
Endif
Else
If FHelp.ShowDatatypeHelp(Editor, sKeyword) Then
hClass = CComponent.Classes[sKeyword]
If hClass Then
FHelp.ShowClassHelp(Editor, hClass.Component, hClass.Name)
Endif
Endif
Else
If MHelp.GotoDataType(sKeyword) Then
hClass = CComponent.Classes[sKeyword]
If hClass Then
MHelp.GotoClass(hClass.Component, hClass.Name)
Endif
Endif
Endif
Return
Endif