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

[feliz-58]

Me explico,

hay dos botones.
una base de datos en access.
y los respectivos componentes Ado.

en la base de datos hay dos campos uno que dice: "Dia" y otro "Evento".

uso los botones para localizar dos registros en especifico, ejemplo dia 1 y dia 2.
quiero que cuando en el campo evento, del dia 1, en la base de datos, no este vacio, las letras del boton se pongan de color rojo.

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?

[Casimiro Notevi]

Podías hacer un esfuerzo, porque así no vas a aprender nada, copiando el código que te ponen

[feliz-58]

Empezado por Casimiro Notevi

Podías hacer un esfuerzo, porque así no vas a aprender nada, copiando el código que te ponen

Gracias, ya lo hice, a mi manera, pero funciona:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  R,B:string;
begin
R:='clred';
B:='clblack';
if adotable1.Locate ('Dia', '1', [])
then
begin
if
dbmemo1.Text = 'No hay evento(s)'
then
bitbtn1.Font.Color:=StringToColor(R);
if
dbmemo1.Text <> 'No hay evento(s)'
then
bitbtn1.Font.Color:=StringToColor(B);
end;
end;

[Casimiro Notevi]

Estupendo
No era tan difícil, ¿verdad?

[feliz-58]

Empezado por Casimiro Notevi

Estupendo
No era tan difícil, ¿verdad?

Esto, no tanto, las otras cosas si XD

[[nlsgarcia]]

feliz-58,

Empezado por feliz-58

...Que un Botón cambie de color...

Revisa este código:

Código Delphi [-]
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
   case RadioGroup1.ItemIndex of
      0 : BitBtn1.Font.Color := clBlue;
      1 : BitBtn1.Font.Color := clRed;
      2 : BitBtn1.Font.Color := clYellow;
      3 : BitBtn1.Font.Color := clNavy;
      4 : BitBtn1.Font.Color := clGreen;
   end;
end;

El código anterior permite cambiar el color de un componente TBitBtn en tiempo de ejecución sin utilizar la función StringToColor.

Espero sea útil

Nelson.

[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!