delphi - Cambio del color de fondo de TTextCell en el tiempo de ejecución XE4

colors grid

Question

Trabajé a través del ejemplo publicado aquí como mi punto de partida: Cambiar el fondo de TTextCell en un Firemonkey TGrid

He creado un textcellstyle que hace referencia a una imagen, y esto está funcionando bien. Cuando ejecuto el programa, todas las celdas muestran la imagen de fondo como se esperaba.

Desde el enlace de arriba, Mike Sutton (espero que estés leyendo esto, ¿qué haríamos sin tu aporte?) Escribe (se repite aquí solo para hacerlo más fácil):

"Luego puede establecer cada una de las propiedades de StyleLookup de su celda para usarla, o establecer los estilos StyleName en TextCellStyle para que se recoja automáticamente para cada TTextCell".

A continuación de la consulta sobre cómo cambiar los colores de las fuentes ( Delphi XE4 Firemonkey Grid Control - Estilo de las celdas individualmente ), ¿se pueden establecer los colores de fondo de forma dinámica también?

Mi código para crear las celdas:

Constructor TFinancialCell.Create(AOwner:TComponent);

begin
  inherited;
  StyleLookup:=''textcellstyle'';
  StyledSettings:=StyledSettings-[TStyledSetting.ssStyle,TStyledSetting.ssFontColor]; 
  TextAlign:=TTextAlign.taTrailing;
end;

Esto aplica mi imagen con éxito a TFinancialCell.

Pero, según la consulta de color de la fuente, me gustaría que el fondo de la imagen se muestre solo cuando se alcanza un cierto valor o lo que sea:

Procedure TFinancialCell.ApplyStyling;
begin
  Font.Style:=[TFontStyle.fsItalic];

  If IsNegative then
    FontColor:=claRed
  else
    FontColor:=claGreen;

  If IsImportant then Font.Style:=[TFontStyle.fsItalic,TFontStyle.fsBold]; 
  If Assigned(Font.OnChanged) then
    Font.OnChanged(Font);

  Repaint;
end;

Cualquier ayuda sobre cómo hacer esto sería apreciada.

Answer 1

Gracias Mike. Tuve que jugar un poco, pero lo hice funcionar según su sugerencia. Agregué un TRectangle a mi textcellstyle en el estilocontainer, de la siguiente manera:

textcellstyle : TLayout
    background: TSubImage
        rectangle1: TRectangle
        rectanimation: TRectAnimation

En TFinancialCell.ApplyStyle probé FindStyleResource (''background''), pero esto siempre devuelve nil. Lo cambié a FindStyleResource (''rectangle1'') y funcionó muy bien. ¿Esto se debe a que busca la propiedad StyleName relevante (que obviamente pasa a ''Rectangle1'' para el rectángulo 1) en el inspector de objetos? Todavía no veo la madera para los árboles, estoy seguro de que puedes decir ...

El código de trabajo:

Procedure TFinancialCell.ApplyStyle;

var 
  T : TFMXObject;

begin
  inherited;

  T:=FindStyleResource(''Rectangle1'');

  If (T<>nil) and (T is TRectangle) then
  begin 
    If TRectangle(T).Fill<>nil then 
    begin 
      If IsNegative then 
      begin
        TRectangle(T).Fill.Color:=claRed; 
        Repaint;
      end;  
    end;
  end;

  ApplyStyling;
end;

También intenté, como ejercicio separado, poner el código anterior en TFinancialCell.ApplyStyling, y también funcionó allí, por lo que no estoy seguro de cuál es la mejor opción, y ¿por qué?

El resumen de mi comprensión de estos estilos hasta ahora es (corrija / comente según sea necesario):

1. He creado un estilo llamado textcellstyle, que aplico en TFinancialCell.Create en mi clase TFinancialCell [StyleLookup: = ''textcellstyle''].
2. Cuando llamo a TFinancialCell.ApplyStyling, puedo acceder directamente a las propiedades Font y FontColor de TFinancialCell, ya que estas propiedades son propiedades de TTextCell.
3. Si quiero pintar el fondo de las celdas, tengo que llamar explícitamente al componente TRectangle que agregué manualmente al ''estilo'' textcellstyle, y luego acceder a la propiedad Fill etc desde allí.