[DEVELOPMENT ENVIRONMENT]

* BUG: Method signature can be displayed on several lines if needed.


git-svn-id: svn://localhost/gambas/trunk@3241 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2010-09-25 15:30:23 +00:00
parent bddbc3a62a
commit aa32053be3
4 changed files with 3 additions and 7 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 4.1 KiB

After

Width:  |  Height:  |  Size: 4.2 KiB

View file

@ -22,7 +22,6 @@ Component=gb.qt4.ext
Component=gb.qt4.webkit Component=gb.qt4.webkit
Description="Integrated Development Environment for Gambas" Description="Integrated Development Environment for Gambas"
Authors="Benoît Minisini\nFabien Bodard\nCharlie Reinl\nJosé Luis Redrejo\nRobert Rowe" Authors="Benoît Minisini\nFabien Bodard\nCharlie Reinl\nJosé Luis Redrejo\nRobert Rowe"
Environment="GB_STOCK_DEBUGGB_STOCK_DEBUG=1"
TabSize=2 TabSize=2
Translate=1 Translate=1
Language=en Language=en

View file

@ -19,6 +19,7 @@ Private Sub UpdateSignature(Optional hForm As FEditor)
Dim hCont As Container Dim hCont As Container
Dim sIcon As String Dim sIcon As String
panSignature.H = lblNewSignature.H + 4
If $bShowHelp And $bUseHelp Then If $bShowHelp And $bUseHelp Then
MHelp.InitWebViewWith(webHelp, MHelp.TYPE_SYMBOL, $hSymbol.Name, $hSymbol.Class, "noimage") MHelp.InitWebViewWith(webHelp, MHelp.TYPE_SYMBOL, $hSymbol.Name, $hSymbol.Class, "noimage")
sepHelp.Show sepHelp.Show
@ -32,9 +33,9 @@ Private Sub UpdateSignature(Optional hForm As FEditor)
panHelp.Hide panHelp.Hide
panRight.Hide panRight.Hide
If hForm Then If hForm Then
Me.Resize(lblNewSignature.W + 2 + If($bUseHelp, btnHelp.W + panRight.W, 0), lblSignature.H + 2) Me.Resize(lblNewSignature.W + 4 + If($bUseHelp, btnHelp.W + panRight.W, 0), lblNewSignature.H + 6)
Else Else
Me.H = lblSignature.H + 2 Me.H = lblNewSignature.H + 6
Endif Endif
Endif Endif

View file

@ -18,12 +18,10 @@
Foreground = &H000000& Foreground = &H000000&
Expand = True Expand = True
Padding = 2 Padding = 2
Alignment = Align.Normal
} }
{ btnHelp ToolButton { btnHelp ToolButton
MoveScaled(30,0,4,4) MoveScaled(30,0,4,4)
Background = Color.TextBackground Background = Color.TextBackground
Border = True
} }
} }
{ sepHelp Separator { sepHelp Separator
@ -61,8 +59,6 @@
Visible = False Visible = False
Foreground = &H000000& Foreground = &H000000&
Ignore = True Ignore = True
Padding = 2
Alignment = Align.Normal
} }
} }
} }