gambas 2.19
Ubuntu 10.10 - Maverick Meerkat
Escritorio: GNOME
Buenos dias!!
Quisiera saber como puedo cambiar el color de la barra de progreso (ProgressBar) siempre es del mismo color y no combina con mi formulario si alguien tiene alguna idea por favor agradeceria su aporte!!
Gracias!!
Cambiar Color De ProgressBar
Objetivo: Re: Cambiar Color De ProgressBar
última edición por jsbsan el Domingo, 08 Abril 2012, 20:04; editado 3 veces
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.
Te adjunto un ejemplo, de como lo puedes hacer....
Clase barra:
Formulario principal con 4 drawingAreas y un botón (al pulsar se ve el cambio que se realiza en una de las barras):
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.
Te adjunto un ejemplo, de como lo puedes hacer....
Clase barra:
' 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
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
Formulario principal con 4 drawingAreas y un botón (al pulsar se ve el cambio que se realiza en una de las barras):
' 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
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
última edición por jsbsan el Domingo, 08 Abril 2012, 20:04; editado 3 veces
Página 1 de 1
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.2481s (PHP: 49% SQL: 51%)
Consultas SQL: 37 - Debug on - GZIP Activado