Que un Boton cambie de color cuando haya texto en un campo en una BD Access

[ecfisa]

Empezado por feliz-58

...
entonces cada ves que el programa inicie o le den a otro boton para "actualizar" se verifique si en los respectivos eventos hay algo escrito, y si lo hay, los botones se coloquen de color rojo, ya sea el 1 o el 2.
es posible?

Hola feliz-58.

Con respecto al evento para verificar el estado del campo "Evento" y poner en consecuencia el color del TBitBtn, podrías usar el evento OnDataChange del TDataSource asociado al TADOTable:

Código Delphi [-]
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
const
   ESTADO : array[Boolean] of TColor = (clBlack, clRed);
begin
  with ADOTable1 do
  begin
    if FieldByName('DIA').AsString = '1' then
      BitBtn1.Font.Color := ESTADO[Trim(FieldByName('Evento').AsString)='']
    else if FieldByName('DIA').AsString = '2' then
      BitBtn2.Font.Color := ESTADO[Trim(FieldByName('Evento').AsString)=''];
  end;
end;

Saludos

[feliz-58]

Empezado por ecfisa

Hola feliz-58.

Con respecto al evento para verificar el estado del campo "Evento" y poner en consecuencia el color del TBitBtn, podrías usar el evento OnDataChange del TDataSource asociado al TADOTable:

Código Delphi [-]
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
const
   ESTADO : array[Boolean] of TColor = (clBlack, clRed);
begin
  with ADOTable1 do
  begin
    if FieldByName('DIA').AsString = '1' then
      BitBtn1.Font.Color := ESTADO[Trim(FieldByName('Evento').AsString)='']
    else if FieldByName('DIA').AsString = '2' then
      BitBtn2.Font.Color := ESTADO[Trim(FieldByName('Evento').AsString)=''];
  end;
end;

Saludos

Hola
como aplicas los colores?
Saludos!

[ecfisa]

Empezado por feliz-58

Hola
como aplicas los colores?
Saludos!

Hola feliz-58.

Las variables de tipo Boolean pueden tomar dos valores: False o True. Notarás en la declaración de la constante de arreglo "ESTADO", que su índice es de tipo Boolean y que por tanto admite dos valores de tipo TColor: clBlack y clRed.
Es decir, el valor de ESTADO[False] es igual clBlack (negro) y de ESTADO[True] es igual clRed (rojo).

Por otro lado, la comparación:

Código Delphi [-]
Trim(FieldByName('EVENTO').AsString) = ''

arrojará un resultado negativo si el campo "EVENTO" tiene algún carácter, o positivo de otro modo.

Si por ejemplo estamos en el registro cuyo campo DIA tiene valor "1" y el campo "Evento" tiene el valor "salir a pasear el perro", el resultado de la comparación anterior será False por lo que el BitBtn tomará el color negro. Si "Evento" no tuviera ningún contenido, el resultado sería True y por lo tanto le sería asignado el color rojo.

Saludos

[feliz-58]

Empezado por ecfisa

Hola feliz-58.

Las variables de tipo Boolean pueden tomar dos valores: False o True. Notarás en la declaración de la constante de arreglo "ESTADO", que su índice es de tipo Boolean y que por tanto admite dos valores de tipo TColor: clBlack y clRed.
Es decir, el valor de ESTADO[False] es igual clBlack (negro) y de ESTADO[True] es igual clRed (rojo).

Por otro lado, la comparación:

Código Delphi [-]
Trim(FieldByName('EVENTO').AsString) = ''

arrojará un resultado negativo si el campo "EVENTO" tiene algún carácter, o positivo de otro modo.

Si por ejemplo estamos en el registro cuyo campo DIA tiene valor "1" y el campo "Evento" tiene el valor "salir a pasear el perro", el resultado de la comparación anterior será False por lo que el BitBtn tomará el color negro. Si "Evento" no tuviera ningún contenido, el resultado sería True y por lo tanto le sería asignado el color rojo.

Saludos

Gracias
entendi!

Saludos!