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’
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
Guru
BruceSteers is in the usergroup ‘Guru’
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
Guru
BruceSteers is in the usergroup ‘Guru’

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.