Mudar cor de linha alternada no grid fmx
Bom dia pessoal, estou enfrentando um pequeno problema.
Estou convertendo meu projeto para fmx, e uma funcionalidade que meu sistema tinha anteriormente, era mudar a cor das linhas do grid alternativamente.
Sei que no FMX o grid tem uma propriedade chamada AlternatingRowBackground que já faz esse trabalho para mim. OK.
Mas eu queria trocar a cor do zebrado dinamicamente em meu código, sem ter que alterar o stylebook do componente. Já encontrei funções que alteram a cor do fundo do edir, do panel e etc. Mas do grid nunca.
Tentei fazer da seguinte forma, mas não atualiza meu grid, o valor é alterado, mas não surte efeito.
Por favor, me ajudem...ta tenso kkkk
Estou convertendo meu projeto para fmx, e uma funcionalidade que meu sistema tinha anteriormente, era mudar a cor das linhas do grid alternativamente.
Sei que no FMX o grid tem uma propriedade chamada AlternatingRowBackground que já faz esse trabalho para mim. OK.
Mas eu queria trocar a cor do zebrado dinamicamente em meu código, sem ter que alterar o stylebook do componente. Já encontrei funções que alteram a cor do fundo do edir, do panel e etc. Mas do grid nunca.
Tentei fazer da seguinte forma, mas não atualiza meu grid, o valor é alterado, mas não surte efeito.
Por favor, me ajudem...ta tenso kkkk
procedure TForm3.Button1Click(Sender: TObject);
var
T: TFmxObject;
begin
// AlternatingRowBackground
if Grid1 = nil then Exit;
Grid1.Options := Grid1.Options + [TGridOption.AlternatingRowBackground];
T := Grid1.FindStyleResource('AlternatingRowBackground');
if (T <> nil) and (T is TBrushObject) then
if TBrushObject(T).Brush <> nil then
TBrushObject(T).Brush.Color := TAlphaColorRec.Red;
Grid1.Repaint;
end;
Adhemar Alves
Curtidas 0