Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
Public Sub Form_Load() ComboBox1.BackColorAlternating = RGB(240, 240, 240) ComboBox1.ListData(0) = "ListDataArray(0)" ComboBox1.AddItem "Test1" ComboBox1.AddItem "Test2" ComboBox1.AddItem New ListCellData("Test3", resources.RssPng, False) ComboBox1.AddItem "Test4" ComboBox1.AddItem "Test5" List1.BackColorAlternating = RGB(240, 240, 240) List1.ListData(0) = "ListDataArray(0)" List1.AddItem "Test1" List1.AddItem "Test2" List1.AddItem New ListCellData("Test3", Nothing, True) List1.AddItem New ListCellData("Test4", resources.RssPng, False) List1.AddItem "Test5" List1.Style = vbListBoxCheckbox Dim i As Integer For i = 6 To 10 ComboBox1.AddItem("Test" & i ) List1.AddItem("Test" & i ) Next i End Sub Public Sub List1_Click() Debug.Print List1.ListData(0) End Sub |
This post has been edited 1 times, last edit by "Dani" (Oct 14th 2013, 2:33pm)
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
<Object Type="List"> <Param Name="BorderStyle" Value="fmBorderStyleSingle"/> <Param Name="CanGetFocus" Value="True"/> <Param Name="BackColor" Value="-2147483643"/> <Param Name="BackColorAlternating" Value="-2147483643"/> <Param Name="ForeColor" Value="-2147483640"/> <Param Name="BackColorSel" Value="-2147483635"/> <Param Name="ForeColorSel" Value="-2147483634"/> <Param Name="BorderColorSel" Value="-2147483638"/> <Param Name="FontName" Value="Arial"/> <Param Name="FontSize" Value="9"/> <Param Name="Visible" Value="True"/> <Param Name="FixedCellHeight" Value="-1"/> <Param Name="FixedCellWidth" Value="-1"/> <Param Name="ListIndex" Value="0"/> <Param Name="Margin" Value="0"/> <Param Name="MarginItem" Value="1"/> </Object> <Object Type="ComboBox"> <Param Name="CanGetFocus" Value="True"/> <Param Name="BackColor" Value="-2147483643"/> <Param Name="BackColorAlternating" Value="-2147483643"/> <Param Name="ForeColor" Value="-2147483640"/> <Param Name="BackColorSel" Value="-2147483635"/> <Param Name="ForeColorSel" Value="-2147483634"/> <Param Name="BorderColorSel" Value="-2147483638"/> <Param Name="FontName" Value="Arial"/> <Param Name="FontSize" Value="9"/> <Param Name="Visible" Value="True"/> <Param Name="MarginItem" Value="1"/> </Object> |
It is no longer possible to write in this section. Try it out. Manuel have disabled it.@ theuserbl
Suggestion: Why don't you start a single thread under History & News where you can allways post the latest framework .jar !?
Quoted
It is no longer possible to write in this section.
Anyway, I will start a thread somewhere else and allways add new versions to it.
I will take your links if you don't mind.
That way we will have every release in one place and people can refer to this thread.
Quoted
Possible we could add those links to the wiki:
http://www.jabaco.org/wiki/Main_Page
(Login-name and Password is the same like for this forum).
I found a little bug:
The JBGrid ComboList BackColor is messed up since ComboBox has its own BackColorAlternating Value now!
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 |
Public Property Get BackColor() As Long BackColor = ColortoRGB(Parent.getBackground()) Call Base.setBackground(Parent.getBackground()) End Property 'and... Public Property Let ForeColor(v As Long) Parent.setForeground(RGBtoColor(v)) Call Base.setForeground(Parent.getForeground()) End Property |
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 |
Public Property Get BackColor() As Long BackColor = ColortoRGB(Parent.getBackground()) End Property ... Public Property Let ForeColor(v As Long) Parent.setForeground(RGBtoColor(v)) End Property |
do you know why in the ListBox code we have
Jabaco Source
1 2 3 4 Public Property Get BackColor() As Long BackColor = ColortoRGB(Parent.getBackground()) Call Base.setBackground(Parent.getBackground()) End Property
Quoted
we should be fine with
Jabaco Source
1 2 3 Public Property Get BackColor() As Long BackColor = ColortoRGB(Parent.getBackground()) End Property
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Public Sub Class_Initialize() On Error Resume Next myBackColorAlternating = Me.BackColor ' <=== this is the new line Call Parent.addFocusListener(Me) Call Parent.addMouseListener(Me) Call Parent.addMouseMotionListener(Me) Call Parent.addKeyListener(Me) Call Parent.addListSelectionListener(Me) Call Parent.setCellRenderer(myRenderer) Call Me.setViewportView(myList) myDefaultBorder = Base.getBorder() Call Base.setOpaque(False) End Sub |
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 |
Public Property Get BackColor() As Long BackColor = ColortoRGB(Parent.getBackground()) End Property ... Public Property Let ForeColor(v As Long) Parent.setForeground(RGBtoColor(v)) End Property |
Quoted
Do you have seen, that now FileListBox don't work correct?
Jabaco Source |
|
1 2 3 4 5 |
Public Sub Class_Initialize() myDirectory = CurDir Base.BackColorAlternating = Base.BackColor ' <=== this is the new line Update_Filename_List() End Sub |
Quoted
Possibly the same could be done with CheckBox and JBGrid.
I only know, that the current FileListBox is not ok. But I think you can't change it with the xml-file, because the FileListBox is not integrated in the current Jabaco-GUI-Designer. Have you seen, the black lines there?So, what about the CheckBox and FileListBox?
Jabaco Source |
|
1 2 3 |
Option Explicit 'and Dim i as Integer |