Cambiar el color a todas las etiquetas en un form

[Douglas Sánchez]

Hola que tal colegas y amigos del foro, sera que haya una forma facil para cambiar el color a todas las etiquetas, sin afectar la carga del form.

Sucede que implemente Gradient pero hay colores que ocultan el color de las etiquetas y esto lo hace el usuario claro solicitado por ellos mismos la implementacion de cambiar el color de los fondo de pantalla en el sistema se guarda en una tabla y carga en el init.

desde ya muchas gracias.

Saludes

Doug

[Pablo Daniel Lissa]

Hola:

Probá con:
    thisform.SetAll("ForeColor", RGB(NNN, NNN, NNN), "Label")

obviamente, con el color que corresponda.

Saludos.

[Douglas Sánchez]

Gracias Pablo, tendre que convertir si el color a RGB.  pero LMG ya me hbia dado algo asi.

Saludes.

--
Ing. Douglas Sánchez Guillén

      Consultor Informatico

Claro: 505 88495476

[Douglas Sánchez]

UPS. nel pastel. no acepta el setall

thisform.SetAll('forecolor',RGB(185,255,255),'Lable')

Bueno gracias. creo que usare un label de una clase para poder hacerlo creo.

Saludes

Douglas

[Pablo Daniel Lissa]

No puede ser... Yo hice una prueba antes de responderte.

Fijate que está escrito Lable en vez de Label. Ojo, debe ser eso.

Saludos.

[Luis Maria Guayan]

¿BackColor o ForeColor?

¿En tiempo de diseño o ejecución?

En tiempo de ejecución lo mas práctico es utilizar SetAll

Ej:
ThisForm.SetAll("ForeColor", NuevoNumeroColor, "label")
ó
ThisForm.SetAll("BackColor", NuevoNumeroColor, "label")

En tiempo de diseño, puedes abrir el formulario como una tabla con USE MiForm.SCX y alli filtrar los labels y buscar la propiedad en el campo Properties y cambiarla. Si todos tus labels derivarían de una subclase Label, esta tarea en tiempo de diseño sería mas fácil

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Douglas Sánchez]

Gracias Pablo y LMG, excelente error de demetrio, es que me prensaron un dedo y ando un dedo sin una asi que ya funciona.

[Alfonso Arce Silvestre]

En cualquier Botón en el evento Click, puedes escribir este codigo, te permite personalizar el color

LOCAL qcolor as number

qcolor=GETCOLOR()

thisform.SetAll("ForeColor", qcolor, "Label")

Saludos