ProgressBar Text colour

Post

Posted
Rating:
#1 (In Topic #2073)
Yogi
Avatar
Enthusiast
Yogi is in the usergroup ‘Enthusiast’
Hi folks,

Just want to know if there is the possibility to change the progressbars text colour?


Code (gambas)

Progressbar1.text="TEST"

the background and foreground colour is for the progressbar progress…

Just used it in the mp3 Player and maybe who tested it and has a Gambas Version prior 3.20 will get an error
because it exists since 3.20 …

Thanks,
Regards
Yogi
Online now: No Back to the top

Post

Posted
Rating:
#2
gbWilly
Avatar
Administrator
gbWilly is in the usergroup ‘unknown’
gbWilly is in the usergroup ‘Blogger’
gbWilly is in the usergroup ‘GambOS Developer’

Yogi said

the background and foreground colour is for the progressbar progress…
From “ProgressBar Text colour”, March 8th 2026, 5:24 PM
There is your answer and there are no other properties for that
gbWilly
- Gambas Dutch translator
- Gambas wiki content contributor
- Gambas debian/ubuntu package recipe contributor
- GambOS, a distro for learning Gambas and more…
- Gambas3 Debian/Ubuntu repositories

… there is always a Catch if things go wrong!
Online now: No Back to the top

Post

Posted
Rating:
#3
Yogi
Avatar
Enthusiast
Yogi is in the usergroup ‘Enthusiast’

gbWilly said

Yogi said

the background and foreground colour is for the progressbar progress…
From “ProgressBar Text colour”, March 8th 2026, 5:24 PM
There is your answer and there are no other properties for that
From “Post #14,446”, March 8th 2026, 6:55 PM

Would be a nice feature!
Thanks!
Regards,
Yogi
Online now: No Back to the top

Post

Posted
Rating:
#4
Yogi
Avatar
Enthusiast
Yogi is in the usergroup ‘Enthusiast’
Hi,
I have no idea if it would be better to inherit from the progressbar class for the text colour of the progressbar.

I copied the progressbar class in my project folder and renamed it. And enhanced the class
with the property and the private variable:

Code (gambas)

Property TextColor As Integer
Private $sTextColor As Integer
 

So now if the 'progressbar1.text="TEST" ' and
'progressbar1.textColor=COLOR.RED'
is set, the text appears red.

progressbar1 has to be the new renamed progressbar class,
here we go:

Code (gambas)

  1. ' Gambas class file
  2.  
  4.  
  5. Inherits UserControl
  6.  
  7. Public Const _Properties As String = "*,Action,Label=True,Border=True,Pulse"
  8. Public Const _Group As String = "Form"
  9. Public Const _DefaultEvent As String = "MouseDown"
  10. Public Const _DefaultSize As String = "24,4"
  11.  
  16.  
  17. '' @{since 3.20}
  18. '' Return or set the text displayed in the progress bar.
  19. ''
  20. '' If not set, which is the default, the value property is displayed as a percentage.
  21.  
  23. '---- INSERTED ---------------------
  24. Property TextColor As Integer
  25.  
  26. Private $sTextColor As Integer
  27. '------------------------------------------
  28.  
  29. Private $fValue As Float
  33. Private $hTimerPulse As Timer
  34. Private $bBorder As Boolean = True
  36.  
  37. Private Function Label_Read() As Boolean
  38.  
  39.   Return $bLabel
  40.  
  42.  
  43. Private Sub Label_Write(Value As Boolean)
  44.  
  45.   $bLabel = Value
  46.   Me.Refresh
  47.  
  49.  
  50. Private Function Value_Read() As Float
  51.  
  52.   If $bPulse Then Return
  53.   Return $fValue
  54.  
  56.  
  57. Private Sub Value_Write(Value As Float)
  58.  
  59.   If $bPulse Then Return
  60.  
  61.   Value = Max(0, Min(1, Value))
  62.   If Value = $fValue Then Return
  63.   $fValue = Value
  64.  
  65.   Me.Refresh
  66.  
  68.  
  69. Public Sub UserControl_Draw()
  70.  
  71.   Dim W As Float
  72.   Dim iCol As Integer
  74.   Dim sText As String
  75.   Dim HP, WP As Integer
  76.  
  77. ' INSERTED-----------------------------------
  78. 'Give the default Colour  
  79.   If $sTextColor = Null Then
  80.     $sTextColor = Color.Foreground
  82. '---------------------------------------------------
  83.  
  84.   If $bBorder Then
  85.     Style.PaintBackground(0, 0, Paint.W, Paint.H, Me.Background)
  86.     Style.ClipBackground(0, 0, Paint.W, Paint.H)
  87.     'F = Style.BorderSize
  89.  
  90.   iCol = Color.SetAlpha(Color.SelectedBackground, 160)
  91.   If Not Me.Enabled Then iCol = Color.Desaturate(iCol)
  92.  
  93.   'Draw.Foreground = Color.LightForeground
  94.   'Draw.Rect(0, 0, Paint.W, Paint.H)
  95.  
  96.   'Style.PaintPanel(0, 0, Paint.W, Paint.H, Border.Sunken)
  97.  
  98.   'Paint.Rectangle(F, F, Paint.W - F * 2, Paint.H - F * 2, DS - F)
  99.   'Paint.Clip
  100.  
  101.   If $bPulse Then
  102.    
  103.     HP = Paint.H
  104.     WP = Min(Paint.H, Desktop.Scale * 8)
  105.     $iPulse = $iPulse Mod (WP * 2)
  106.    
  107.     Paint.Save
  108.     Paint.Background = iCol
  109.     Paint.Translate($iPulse - (HP + WP) * 2, 0)
  110.     For I = 0 To Paint.W + (HP + WP) * 2 Step WP * 2
  111.       Paint.MoveTo(0, HP)
  112.       Paint.LineTo(HP, 0)
  113.       Paint.LineTo(WP + HP, 0)
  114.       Paint.LineTo(WP, HP)
  115.       Paint.LineTo(0, HP)
  116.       Paint.Fill
  117.       Paint.Translate(WP * 2, 0)
  118.     Next
  119.     Paint.Restore
  120.    
  121.     sText = $sText
  122.     Paint.Background = Color.SelectedBackground
  123.     Paint.DrawTextShadow(sText, 0, 0, Paint.W, Paint.H, Align.Center, 1)    
  124.     Paint.Background = Color.Foreground
  125.     GoSub DRAW_LABEL
  126.    
  127.   Else
  128.  
  129.     W = Paint.W * $fValue
  130.  
  131.     sText = $sText
  132.     If Not sText Then sText = Format($fValue, "0%")
  133.  
  134.     If Me.RightToLeft Then
  135.      
  136.       Paint.FillRect(Paint.W - W, 0, W, Paint.H, iCol)
  137.      
  138.       If $bLabel Then
  139.    
  140.         ' Paint.Save
  141.         ' Paint.Rectangle(Paint.W - W, 0, W, Paint.H)
  142.         ' Paint.Clip
  143.         ' Paint.Background = Color.SelectedForeground
  144.         ' GoSub DRAW_LABEL
  145.         ' Paint.Restore
  146.    
  147.         'Paint.Save
  148.         'Paint.Rectangle(0, 0, Paint.W - W, Paint.H)
  149.         'Paint.Clip
  150.         Paint.Background = Color.Foreground
  151.         GoSub DRAW_LABEL
  152.         'Paint.Restore
  153.    
  154.       Endif
  155.      
  156.     Else
  157.      
  158.       Paint.FillRect(0, 0, W, Paint.H, iCol)
  159.    
  160.       If $bLabel Then
  161.    
  162.         ' Paint.Save
  163.         ' Paint.Rectangle(0, 0, W, Paint.H)
  164.         ' Paint.Clip
  165.         ' Paint.Background = Color.SelectedForeground
  166.         ' GoSub DRAW_LABEL
  167.         ' Paint.Restore
  168.    
  169.         'Paint.Save
  170.         'Paint.Rectangle(W, 0, Paint.W - W, Paint.H)
  171.         'Paint.Clip
  172.         Paint.Background = Color.Foreground
  173.         GoSub DRAW_LABEL
  174.         'Paint.Restore
  175.    
  176.       Endif
  177.      
  178.     Endif
  179.    
  181.  
  182.   Return
  183.  
  184. DRAW_LABEL:
  185. '---- CHANGED -----------------------------
  186.  Paint.Background = $sTextColor
  187. '--------------------------------------------------
  188.  
  189.   If sText Then Paint.DrawText(sText, 0, 0, Paint.W, Paint.H, Align.Center)    
  190.   Return
  191.  
  193.  
  194.  
  195. Private Function Pulse_Read() As Boolean
  196.  
  197.   Return $bPulse
  198.  
  200.  
  201. Private Sub Pulse_Write(Value As Boolean)
  202.  
  203.   If Value = $bPulse Then Return
  204.  
  205.   $bPulse = Value
  206.  
  207.   If Me.Design Then Return
  208.  
  209.   If $bPulse And If Me.W > (Me.H * 2) Then
  210.     $hTimerPulse = New Timer As "Pulse"
  211.     $hTimerPulse.Delay = 50
  212.     $hTimerPulse.Start
  213.     $fValue = 0
  214.     $iPulse = 0
  215.   Else
  216.     $hTimerPulse = Null
  218.  
  220.  
  221. Public Sub Pulse_Timer()
  222.  
  223.   Inc $iPulse
  224.   Me.Refresh
  225.  
  227.  
  228. Private Function Border_Read() As Boolean
  229.  
  230.   Return $bBorder
  231.  
  233.  
  234. Private Sub Border_Write(Value As Boolean)
  235.  
  236.   $bBorder = Value
  237.   Me.Refresh
  238.  
  240.  
  242.  
  243.   Return $sText
  244.  
  246.  
  247. Private Sub Text_Write(Value As String)
  248.  
  249.   $sText = Value
  250.   Me.Refresh
  251.  
  253.  
  254. '-- INSERTED ------------------------------------------
  255. Private Function TextColor_Read() As Integer
  256.  
  257.   Return $sTextColor
  258.  
  260.  
  261. Private Sub TextColor_Write(Value As Integer)
  262.  
  263.   $sTextColor = Value
  264.   Me.Refresh
  265.  
  267. '------------------------------------------------------------
  268.  
  269.  
  270.  

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