Pintar uma linha do grid no ExpressQuantumGrid
Gostaria de saber como faço para pintar uma linha do grid conforme uma condição, exemplo
se mes = janeiro, pinto a linha do grid de cinza;
se mes = abril, pinto a linha do grid de vermelho;
se mes = março, pinto a linha do grid de verde,
e assim por diante
Obrigado,
Valmir
se mes = janeiro, pinto a linha do grid de cinza;
se mes = abril, pinto a linha do grid de vermelho;
se mes = março, pinto a linha do grid de verde,
e assim por diante
Obrigado,
Valmir
Valmirgomes
Curtidas 0
Respostas
Renan
02/03/2004
Coloque a propriedade defaultdrawdata do dbgrid em FALSE
No evento onDrawColumnCell do seu grid coloque o seguinte:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const
Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If table1PRAZO.Value > DATE then // condição
Dbgrid1.Canvas.Font.Color:= clFuchsia; // coloque aqui a cor desejada
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end;
No evento onDrawColumnCell do seu grid coloque o seguinte:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const
Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If table1PRAZO.Value > DATE then // condição
Dbgrid1.Canvas.Font.Color:= clFuchsia; // coloque aqui a cor desejada
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end;
GOSTEI 0
Valmirgomes
02/03/2004
Este procedimento é para o grid do ExpressQuantumGrid Suite 4 não para um grid comum do Delphi
grato,
valmir
grato,
valmir
GOSTEI 0
Bon Jovi
02/03/2004
Esse componente da DevExpress é pra quem pode$$$... muito foda ele, trabalhei numa empresa que usava. Hoje esqueci tudo sobre essa Grid, principalmente a versão 4 q mudou muita coisa interna. A DevExpress tem um forum particular sobre seus componentes. Lá vc deve tirar essa e outras duvidas milhões de vezes mais rápido. E na maioria das vezes já achar respostas de questões como essa.
GOSTEI 0