The idea is to have a single component to step though an index of items, e.g. a collection of photos.
So far the project works but I'd like to fix the overall dimensions of the component, at the moment, when selected from the 'Form' controls the control is completely the wrong shape.
' Gambas class file Export Inherits UserControl Public Const _DefaultEvent As String = "Click" Property ItemCount As Integer Event Click Private sPicture As String = ["icon:/22/start", "icon:/22/right", "icon:/22/left", "icon:/22/end"] Private hBox As DrawingArea Private hBtn As Button Private hLabel As Label Private iBtnLeft As Integer = [5, 35, 145, 180] Public iIndex As Integer Private iItemCount As Integer Public Sub _new() Dim i, iBtnSize As Integer iBtnSize = 30 hBox = New DrawingArea(Me) hBox.Border = Border.Plain With hLabel = New Label(HBox) .X = iBtnLeft + iBtnSize + 5 .Y = 5 .H = iBtnSize .W = 70 .Alignment = Align.Center .Text = "1 of " & Me.ItemCount End With For i = 0 To 3 hBtn = New Button(HBox) As "btn_Event" With hBtn .X = iBtnLeft .Y = 5 .H = iBtnSize .W = iBtnSize .tag = i .Picture = Picture[sPicture] End With Next End Public Sub btn_Event_Click() Select Case Last.Tag Case 0 iIndex = 0 Case 1 If iIndex < iItemCount - 1 Then Inc iIndex Case 2 If iIndex >= 1 Then Dec iIndex Case 3 iIndex = iItemCount - 1 End Select ShowItems hBtn[Last.Tag].SetFocus Raise Click End Private Sub ShowItems() hLabel.Text = (iIndex + 1) & " of " & iItemCount End Private Function ItemCount_Read() As Integer End Private Function ItemCount_Write(i As Integer) iItemCount = i hLabel.Text = (iIndex + 1) & " of " & iItemCount End
Any help would be appreciated