TimeBox formatting

Post

Posted
Rating:
#1 (In Topic #1388)
mandarin
Avatar
Regular
mandarin is in the usergroup ‘Regular’
 How can I format a TimeBox, to display only hours and minutes (not seconds)? I use Gambas3 version 3.19.5 .

(Setting: TimeBox1.Format = "hh:mm", or TimeBox1.Format = "HH:mm", doesn't work.)
Online now: No Back to the top

Post

Posted
Rating:
#2
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
cogier is in the usergroup ‘GambOS Contributor’
You can't as the feature you want is not implemented until Gambas 3.20. You could make one with a couple of SpinBoxes.

EDIT 15:40

Run this in a Graphical application:-

Code (gambas)

  1. HBox1 As HBox
  2. SpinBoxH As SpinBox
  3. SpinBoxM As SpinBox
  4. Label1 As Label
  5.  
  6. Public Sub Form_Open()
  7.  
  8.   BuildForm
  9.   SpinBoxH.Text = Hour(Now)
  10.   SpinBoxM.Text = Minute(Now)
  11.  
  13.  
  14. Public Sub BuildForm()
  15.  
  16.   With Me
  17.     .Arrangement = Arrange.Vertical
  18.     .Padding = 6
  19.     .Height = 50
  20.     .Width = 124
  22.  
  23.   With HBox1 = New HBox(Me) As "HBox1"
  24.     .Height = 32
  25.     .Width = 112
  27.  
  28.   With SpinBoxH = New SpinBox(HBox1) As "SpinBoxH"
  29.     .Height = 32
  30.     .Width = 48
  31.     .Border = False
  33.  
  34.   With Label1 = New Label(HBox1)
  35.     .Height = 32
  36.     .Width = 16
  37.     .Background = Color.White
  38.     .Alignment = Align.Center
  39.     .Text = ":"
  41.  
  42.   With SpinBoxM = New SpinBox(HBox1) As "SpinBoxM"
  43.     .Height = 32
  44.     .Width = 48
  45.     .Border = False
  47.  
  49.  

<IMG src="https://www.cogier.com/gambas/SpinBoxes.png"> </IMG>
Online now: No Back to the top

Post

Posted
Rating:
#3
mandarin
Avatar
Regular
mandarin is in the usergroup ‘Regular’
 Thanks! I' ll try to insert the workaround code in my program.
Online now: No Back to the top

Post

Posted
Rating:
#4
BruceSteers
Banned
You could manually add a function to hide/show Timebox seconds yourself…
Looking at the code for TimeBox it looks like the new ShowSecond property only hides/shows the last 2 objects the : separator and the last SpinBox.
comp/src/gb.form/.src/Date/TimeBox.class · master · Gambas / gambas · GitLab

(Many compound controls can be hacked/modified in a similar way :) )

Code (gambas)

  1.  
  2. Public Sub Form_Open()
  3.  
  4.   ShowTimeBoxSeconds(TimeBox1, False)
  5.  
  7.  
  8.  
  9. Public Sub ShowTimeBoxSeconds(tb as TimeBox, Value As Boolean)
  10.  
  11. ' First Try the new way,,,
  12. Try tb.ShowSecond = Value
  13. If Not Error Then Return ' no error so must be new gambas, job done so exit
  14.  
  15. ' if we are here the above method did error so it's older gambas,
  16. ' Emulate the new property ourselves, get a pointer to the main DrawingArea
  17. ' in the TimeBox and hide/show the last 2 Children (the seconds spinbox and
  18. ' the separator), and lastly set seconds value to 0 if hiding.
  19.   Dim hObj As Object = tb.Children[0]
  20.   hObj.Children[hObj.Children.Max].Visible = Value
  21.   hObj.Children[hObj.Children.Max - 1].Visible = Value
  22.  
  23.   If Not Value Then
  24.     hObj = hObj.Children[hObj.Children.Max]
  25.     hObj.Value = 0
  27.  
  29.  
  30.  
  31.  

EDIT: i adjusted the code to use the builtin method if it exists in the gambas version :)
Online now: No Back to the top

Post

Posted
Rating:
#5
mandarin
Avatar
Regular
mandarin is in the usergroup ‘Regular’
BruceSteers :

The code works, produces this display:


Image

(Click to enlarge)

Online now: No Back to the top

Post

Posted
Rating:
#6
BruceSteers
Banned

mandarin said

BruceSteers :

The code works, produces this display:


TimeBox-without-seconds.png

Indeed . i was not happy with the look though.
Even the new built in TimeBox.ShowSecond property just hides the last 2 objects but does not resize the TimeBox to fit the controls so it changes the button style.

I changed the code to adjust the size when changing, i think it looks better…

Code (gambas)

  1.  
  2. Public Sub ShowTBSeconds(TB As TimeBox, Value As Boolean)
  3.  
  4.   Dim dw As DrawingArea = TB.Children[0]
  5.   Dim sb As SpinBox
  6.  
  7.   If Value = dw.Children[dw.Children.Max].Visible Then Return ' do nothing if already set.
  8.  
  9. ' add or subtract the size of a spacer and a SpinBox
  10.   If Value Then
  11.     TB.W += dw.Children[0].W + dw.Children[1].W
  12.   Else
  13.     TB.W -= dw.Children[0].W + dw.Children[1].W
  15.  
  16.   Try TB.ShowSecond = Value
  18.  
  19.   dw.Children[dw.Children.Max].Visible = Value
  20.   dw.Children[dw.Children.Max - 1].Visible = Value
  21.  
  22.   If Not Value Then
  23.     sb = dw.Children[dw.Children.Max]
  24.     sb.Value = 0
  26.  
  28.  

Image

(Click to enlarge)

Online now: No Back to the top
1 guest and 0 members have just viewed this.