[GB.FORM]

* BUG: ValueBox: The Change event is now raised correctly for numeric type.
* NEW: Balloon: Do not take focus when being shown.
* BUG: IconPanel: When the Count property is increased, new tabs are 
  correctly visible.


git-svn-id: svn://localhost/gambas/trunk@7038 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2015-04-15 17:06:45 +00:00
parent 69bce4459d
commit 5005639874
10 changed files with 60 additions and 28 deletions

View file

@ -1,14 +1,14 @@
# Gambas Project File 3.0
# Compiled with Gambas 3.7.90
Title=More controls for graphical components
Startup=FTestDateChooser
Startup=FTestValueBox
Version=3.7.90
VersionFile=1
Component=gb.image
Component=gb.gui
Component=gb.settings
Authors="Benoît Minisini"
Environment="GB_GUI=gb.gtk"
Environment="GB_GUI=gb.gtk3"
TabSize=2
Translate=1
Language=en

View file

@ -7,6 +7,7 @@
Mask = True
Persistent = True
Border = False
TakeFocus = False
Stacking = Window.Above
SkipTaskbar = True
Transparent = True

View file

@ -146,6 +146,7 @@ Private Sub Count_Write(iCount As Integer)
For iInd = $aCont.Count To iCount - 1
hToolbar = New _IconPanelContainer($hPanel) As "_IconPanelContainer"
hToolbar.Resize(1, 1)
'hToolbar.Text = "Toolbar " & CInt(iInd)
$aCont.Add(hToolbar)
'$hView.Add(iInd, "Item " & CStr(iInd))

View file

@ -1,10 +1,3 @@
' Gambas class file
Public Sub Form_Open()
GridView1.Columns.Count = 2
GridView1.Rows.Count = 1
GridView1.Rows[0].H = 0
End

View file

@ -2,20 +2,23 @@
{ Form Form
MoveScaled(0,0,85,64)
{ ButtonBox1 ButtonBox
MoveScaled(13,10,25,4)
#Translate = False
Text = "ButtonBox1"
}
{ TextBox1 TextBox
MoveScaled(13,15,25,4)
#Translate = False
Text = "TextBox1"
Border = False
}
{ GridView1 GridView
MoveScaled(29,27,39,30)
#Translate = False
Border = False
{ IconPanel1 IconPanel
MoveScaled(5,4,67,56)
Count = 4
Index = 0
Text = ("Item 0")
Index = 1
Text = ("Item 1")
Index = 2
Text = ("Item 2")
{ Button1 Button
MoveScaled(8,20,16,4)
}
Index = 3
Text = ("Item 3")
{ ToggleButton1 ToggleButton
MoveScaled(12,25,16,4)
}
Index = 0
}
}

View file

@ -23,6 +23,6 @@
Move(413,133,210,42)
}
{ ScrollBar2 ScrollBar
Move(469,182,77,140)
Move(462,182,77,140)
}
}

View file

@ -6,3 +6,9 @@ Public Sub Button1_Click()
TextBox1.Border = Not TextBox1.Border
End
Public Sub ValueBox1_Change()
Debug
End

View file

@ -4,7 +4,6 @@
MoveScaled(0,0,64,64)
{ ValueBox1 ValueBox
MoveScaled(9,11,24,4)
Text = ("ValueBox1")
}
{ TextBox1 TextBox
MoveScaled(11,26,24,4)

View file

@ -5,6 +5,32 @@
Arrangement = Arrange.Vertical
Spacing = True
Margin = True
{ Menu1 Menu
Text = ("Menu1")
{ Menu2 Menu
Text = ("Menu2")
Picture = Picture["img/16/cross.png"]
}
{ Menu3 Menu
Text = ("Menu3")
Picture = Picture["stock/16/gambas.png"]
}
{ Menu7 Menu
Text = ("Menu7")
Shortcut = "Ctrl+B"
}
{ Menu6 Menu
}
{ Menu4 Menu
Text = ("Menu4")
Picture = Picture["stock/16/gnu.png"]
}
{ Menu5 Menu
Text = ("Menu5")
Picture = Picture["stock/16/linux.png"]
Shortcut = "Ctrl+Shift+Alt+Backspace"
}
}
{ HBox1 HBox
MoveScaled(8,2,95,5)
#Translate = False

View file

@ -25,6 +25,7 @@ Private $hDateBox As DateBox
Private $hMaskBox As MaskBox
Private $sDecimalSep As String
Private $sLastText As String
Public Sub _new()
@ -196,12 +197,14 @@ Public Sub NumberBox_Change()
Object.Lock($hTextBox)
If sText <> $hTextBox.Text Then
$hTextBox.Text = sText
bRaiseChange = True
Endif
$hTextBox.Pos = Max(If(bNeg, 1, 0), iPos)
Object.Unlock($hTextBox)
If bRaiseChange Then Raise Change
If $hTextBox.Text <> $sLastText Then
$sLastText = $hTextBox.Text
Raise Change
Endif
End