http://www.gambas-es.org/viewtopic.php?f=4&t=2273&p=13000#p13000
-----------------------------------
jsbsan
Domingo, 08 Abril 2012, 19:29

Re: Cambiar Color De ProgressBar
-----------------------------------
Hola

Creo que el control ProgressBar, solo coge el color de como tengas definido el tema de tu escritorio.

Pero, te puedes hacer tu propio "progressbar", con un drawingarea.
[URL=http://imageshack.us/photo/my-images/834/progressbarpropia.png/][IMG]http://img834.imageshack.us/img834/8633/progressbarpropia.png[/IMG]




Te adjunto un ejemplo, de como lo puedes hacer....

Clase barra:
[code linenumbers=false syntax=gambas]' Gambas class file
PUBLIC areadibujo AS DrawingArea
PUBLIC micolor AS Integer 'color
PUBLIC colorfondo AS Integer 'color fondo de la barra


PUBLIC valor AS Float '0 a 1 -> 1 es completa, 0 es vacia
PUBLIC vertexto AS Float ' true se ve texto, false no se ve
PUBLIC colortexto AS Integer


PUBLIC SUB dibuja(porcentaje AS Float)

 Draw.Begin(areadibujo)
 'dibuja el fondo de nuevo
 draw.FillStyle = Fill.Solid
draw.FillColor = colorfondo
Draw.Rect(0, 0, areadibujo.Width, areadibujo.Height)

 
 
Draw.Rect(0, 0, areadibujo.Width, areadibujo.Height)
draw.FillStyle = Fill.Solid
draw.FillColor = micolor
Draw.Rect(0, 0, areadibujo.Width * porcentaje, areadibujo.Height)
IF vertexto = TRUE THEN 
  Draw.Foreground = colortexto
  draw.Text(Str$(porcentaje * 100) & " %", areadibujo.width / 2, areadibujo.height / 3)
ENDIF 
draw.End
END

[/code]

Formulario principal con 4 drawingAreas y un botón (al pulsar se ve el cambio que se realiza en una de las barras):
[code linenumbers=false syntax=gambas]
' Gambas class file
PUBLIC mibarra AS NEW Barra
PUBLIC mibarra2 AS NEW Barra
PUBLIC mibarra3 AS NEW Barra
PUBLIC mibarra4 AS NEW Barra
PUBLIC A AS Float

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()
DrawingArea1.cached = TRUE
mibarra.areadibujo = DrawingArea1
mibarra.micolor = Color.Red
mibarra.colorfondo = Color.white
mibarra.vertexto = TRUE
mibarra.dibuja(0.4)

DrawingArea2.cached = TRUE
mibarra2.areadibujo = DrawingArea2
mibarra2.micolor = Color.blue
mibarra2.colorfondo = Color.red
mibarra2.vertexto = TRUE
mibarra2.colortexto = Color.Green
mibarra2.dibuja(0.743)

DrawingArea3.cached = TRUE
mibarra3.areadibujo = DrawingArea3
mibarra3.micolor = Color.Yellow
mibarra3.vertexto = TRUE
mibarra3.colortexto = Color.Cyan
mibarra3.dibuja(0.2)

DrawingArea4.cached = TRUE
mibarra4.areadibujo = DrawingArea4
mibarra4.micolor = Color.DarkGreen
mibarra4.colorfondo = Color.cyan
mibarra4.vertexto = TRUE
mibarra4.colortexto = Color.Orange
mibarra4.dibuja(0.9)

mibarra.dibuja(0.7)

END

PUBLIC SUB Button1_Click()

mibarra.dibuja(0.1)
END
[/code]