Hey there,
I have updated the framework a bit. With the Spinner Controll please keep in mind, that most properties have to be set AFTER setting a custom model!
In general many properties are very laf dependent so make sure you test on your target system...
TabStrip
Added Property TabLayout() -> setTabLayoutPolicy for ScrollTab or WrapedTab
Provided a Fix for an issue to make Get SelectedIndex() in MouseUp() Event Mac OS X compatible.
Commented it out in the framework; just gives you an idea how to do it!
see -> Public Sub mouseReleased(e As MouseEvent)
Tabs
Added Property Caption() -> Get and Set a Tabs.Caption() at its index
Spinner
Fixed most Properties, added Property Locked(), KeyListener
There is still an issue with ChangeEvent() being triggered twice when a value is set via 'Spinner1.Value = ' and at startup due to Parent.commitEdit() at Let Value().
On the other hand this makes sure that at initial use (user) ChangeEvent() is not fired twice each time with a different value!
I believe it is due to a bug in JSpinner, where its editor does not correctly pass its value.
Tabs
I would like to change
|
Jabaco Source
|
1
2
3
4
|
Public Property Get TabCount() As Integer
On Error Resume Next
TabCount = myTabStrip.Parent.getComponentCount
End Property
|
to
|
Jabaco Source
|
1
2
3
4
|
Public Property Get TabCount() As Integer
On Error Resume Next
TabCount = myTabStrip.Parent.getTabCount
End Property
|
This will actually get the number of tabs on the TabStrip also when no components are added
|
Jabaco Source
|
1
|
TabStrip1.Tabs.Add(Nothing, "Tab 1")
|
We could add
|
Jabaco Source
|
1
2
3
4
|
Public Property Get ComponentCount() As Integer
On Error Resume Next
ComponentCount = myTabStrip.Parent.getComponentCount
End Property
|
if that is needed...
Any objections?
Dani