Custom Component problem

Post

Posted
Rating:
#1 (In Topic #240)
bill-lancaster
Regular
bill-lancaster is in the usergroup ‘Regular’
This is my first attempt at a custom component.
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.

Code (gambas)

  1. ' Gambas class file
  2.  
  4.  
  5. Inherits UserControl
  6.  
  7. Public Const _DefaultEvent As String = "Click"
  8.  
  9. Property ItemCount As Integer
  10.  
  11. Event Click
  12.  
  13. Private sPicture As String[] = ["icon:/22/start", "icon:/22/right", "icon:/22/left", "icon:/22/end"]
  15. Private hBtn[4] As Button
  17. Private iBtnLeft As Integer[] = [5, 35, 145, 180]
  19. Private iItemCount As Integer
  20.  
  21. Public Sub _new()
  22. Dim i, iBtnSize As Integer
  23.    iBtnSize = 30
  25.    hBox.Border = Border.Plain
  26.    With hLabel = New Label(HBox)
  27.       .X = iBtnLeft[1] + iBtnSize + 5
  28.       .Y = 5
  29.       .H = iBtnSize
  30.       .W = 70
  31.       .Alignment = Align.Center
  32.       .Text = "1 of " & Me.ItemCount
  33.    End With
  34.    For i = 0 To 3
  35.       hBtn[i] = New Button(HBox) As "btn_Event"
  36.       With hBtn[i]
  37.          .X = iBtnLeft[i]
  38.          .Y = 5
  39.          .H = iBtnSize
  40.          .W = iBtnSize
  41.          .tag = i
  42.          .Picture = Picture[sPicture[i]]
  43.       End With
  44.    Next
  46.  
  47. Public Sub btn_Event_Click()
  48.    Select Case Last.Tag
  49.       Case 0
  50.          iIndex = 0
  51.       Case 1
  52.          If iIndex < iItemCount - 1 Then Inc iIndex
  53.       Case 2
  54.          If iIndex >= 1 Then Dec iIndex
  55.       Case 3
  56.          iIndex = iItemCount - 1
  57.    End Select
  58.    ShowItems
  59.    hBtn[Last.Tag].SetFocus
  60.    Raise Click
  62.  
  63. Private Sub ShowItems()
  64.    hLabel.Text = (iIndex + 1) & " of " & iItemCount
  66.  
  67. Private Function ItemCount_Read() As Integer
  68.    
  70.  
  71. Private Function ItemCount_Write(i As Integer)
  72.    iItemCount = i
  73.    hLabel.Text = (iIndex + 1) & " of " & iItemCount
  75.  
  76.  

Any help would be appreciated
Online now: No Back to the top

Post

Posted
Rating:
#2
Quincunxian
Avatar
Expert
Quincunxian is in the usergroup ‘Expert’
Hi Bill,
I got this from the gambas Wiki - Did not see any of the following code in your example so looks like the X{Position} ect is what you are missing

For example, the value of Control._Properties is:

Code (gambas)

  1. X\{Position},Y\{Position},Width\{Dimension},Height\{Dimension},Visible=True,Enabled=True,Font\{Font},
  2. Background\{Color}=-1,Foreground\{Color}=-1,Tag,
  3. Mouse\{Mouse.Default;Blank;Arrow;Cross;Wait;Text;SizeAll;SizeH;SizeV;SizeN;SizeS;SizeW;SizeE;SizeNWSE;SizeNESW;SplitH;SplitV;Pointing}=Default,
  4. ToolTip,Drop,Expand,Ignore
  5.  

Link to the 'How to ' components page is http://www.gambaswiki.org/wiki/dev/gambas

One of the projects that I have on my 'to-do' list is a checked list box - something I miss from my .net days.
I have one working in a standard class but need to go down the same route as you with a fully compiled one.
Cheers - Quin.
I code therefore I am
Online now: No Back to the top

Post

Posted
Rating:
#3
bill-lancaster
Regular
bill-lancaster is in the usergroup ‘Regular’
Thanks Quin,
I added :-

Code

Public Const _DefaultSize As String = "31,6"
and now the default size is appropriate.
Still a lot to learn!
Online now: No Back to the top
1 guest and 0 members have just viewed this.