Ir al contenido


Foto

Cambiar de Color DBText


Mejor respuesta Koalasoft , 29 diciembre 2016 - 12:17

Pues bueno me respondo solo jeje..

 

Lo hice con el evento AfterScrool del Query ..

 


php
  1. procedure TFListaONT.Query1AfterScroll(DataSet: TDataSet);
  2. begin
  3. if DBText9.Caption = 'DISPONIBLE' Then
  4.  DBText9.Color := clGreen;
  5.  
  6. if DBText9.Caption = 'SUSPENDIDO' Then
  7.  DBText9.Color := clRed;
  8.  

Gracias por su tiempo !! 

 

Saludos 

Ir al mensaje completo


  • Por favor identifícate para responder
2 respuestas en este tema

#1 Koalasoft

Koalasoft

    Advanced Member

  • Miembros
  • PipPipPip
  • 142 mensajes
  • LocationMéxico

Escrito 29 diciembre 2016 - 11:51

Estimados buenos dias ..

 

Tengo un DBGrid donde como sabrán muestra los datos que tengo en mi tabla, tengo ligado a este un DBText que al momento de moverme por el DBGrid la etiqueta DBTet va cambiando.

 

En el DBText manejo 3 tipos de campos, "ACTIVO", "SUSPENDIDO", DISPONIBLE", intenté que al momento de que el DBText cambiara el texto a la palabra ACTIVO, la etiqueta cambiara de color a AZUL, la palabra DISPONIBLE a color verd y SUSPENDIDO en color rojo.

 

Noté que en la pestaña evento del DBText no existe la opción OnChange, pero existe uno llamado DataSource que imagino es el vinculo con la tabla y alli si existe el evento OnDataChange, coloqué el siguente código..

 

 

php
  1. if DBText9.Caption = 'ACTIVO' Then
  2.  Begin
  3.   DBText9.Color := clBlue;
  4.  End;
  5.  
  6.  
  7. if DBText9.Caption = 'DISPONIBLE' Then
  8.  Begin
  9.   DBText9.Color := clGreen;
  10.  End;
  11.  
  12.  
  13.  if DBText9.Caption = 'SUSPENDIDO' Then
  14.  Begin
  15.   DBText9.Color := clRed;
  16.  End;

al ejecutarlo no me cambia el color de la etiqueta, faltará algo o no es por alli la cosa?

 

Gracias de antemano !! .. 

 


  • 0

#2 Koalasoft

Koalasoft

    Advanced Member

  • Miembros
  • PipPipPip
  • 142 mensajes
  • LocationMéxico

Escrito 29 diciembre 2016 - 12:17   Mejor respuesta

Pues bueno me respondo solo jeje..

 

Lo hice con el evento AfterScrool del Query ..

 


php
  1. procedure TFListaONT.Query1AfterScroll(DataSet: TDataSet);
  2. begin
  3. if DBText9.Caption = 'DISPONIBLE' Then
  4.  DBText9.Color := clGreen;
  5.  
  6. if DBText9.Caption = 'SUSPENDIDO' Then
  7.  DBText9.Color := clRed;
  8.  

Gracias por su tiempo !! 

 

Saludos 


  • 1

#3 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 29 diciembre 2016 - 12:36

Hola Koalasoft,

 

Lo único que tienes que hacer es asignar la propiedad transparent del DBText en false.

 

Saludos


Editado por egostar, 29 diciembre 2016 - 12:37 .
Veo que ya has encontrado la solución.

  • 0




IP.Board spam blocked by CleanTalk.