2 respuestas en este tema

[Koalasoft]

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

if DBText9.Caption = 'ACTIVO' Then
 Begin
  DBText9.Color := clBlue;
 End;
 
 
if DBText9.Caption = 'DISPONIBLE' Then
 Begin
  DBText9.Color := clGreen;
 End;
 
 
 if DBText9.Caption = 'SUSPENDIDO' Then
 Begin
  DBText9.Color := clRed;
 End;

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

 

Gracias de antemano !! .. 

 

[Koalasoft]

Pues bueno me respondo solo jeje..

 

Lo hice con el evento AfterScrool del Query ..

 

php

procedure TFListaONT.Query1AfterScroll(DataSet: TDataSet);
begin
if DBText9.Caption = 'DISPONIBLE' Then
 DBText9.Color := clGreen;
 
if DBText9.Caption = 'SUSPENDIDO' Then
 DBText9.Color := clRed;
 
end;

Gracias por su tiempo !! 

 

Saludos 

[egostar]

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.