Caro Marcio
A partir do exemplo abaixo voce faz o que quizer. (Evento
OnDrawColumnCell do DBrid)
Não esquecer a ultima linha:
(DefaultDrawColumnCellRect,DataCol,Column,state); )
[]s Edison
{retirado do forum em 15/9/2006}
Como mudar cores e fontes de uma determinada celula em um DBGrid de
acordo com seu valor, ou seleção
procedure TFConsultarItens.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var I : integer;
begin
with DBGrid1 do
begin
// mude a cor das celulas em que FieldValor1 = 0
if(FieldValor1.Value = 0) then
if(column.Index = 1) then
Canvas.brush.Color:= clLime;
// se coluna 6 contiver 'Amarelo' mude a cor da célula para red -
mude para
negrita
if(column.Index = 6) then
if(pos('Amarelo', FieldNomeCor.asstring) <> 0) then
begin
Canvas.brush.Color:= clred;
Canvas.Font.Color:= clWhite;
Canvas.Font.Style := [fsbold];
end;
// mude a cor de celulas selecionadas
if(gdSelected in State) then
begin
Canvas.brush.Color:= clblue;
Canvas.Font.Color:= clWhite;
end;
// mude a cor das celulas com foco
if(gdfocused in State) then
begin
Canvas.brush.Color:= clYellow;
Canvas.Font.Color:= clBlue;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,state);
end;
end;
if gdselected in state then // se a linha estiver
selecionada
dbgrid1.Canvas.Font.Color := clwhite; // muda a cor do
texto
--- Em delphi-br@yahoogrupos.com.br, "Rubem Nascimento da Rocha"
<[EMAIL PROTECTED]> escreveu
>
> Dica na internet sobre isso tem a botão ("Como fazer um grid
zebrado?", e
> coisas do tipo). O google pode dar uma força nisso. Agora, se vc ñ
quer ter
> trabalho, o TJvDBGrid da suite JEDI VCL já tem propriedades pra
tratar isso
> de forma transparente.
>
> Sds.
>
>
> >From: "Marcio William" <[EMAIL PROTECTED]>
> >Reply-To: delphi-br@yahoogrupos.com.br
> >To: <delphi-br@yahoogrupos.com.br>
> >Subject: [delphi-br] COLORIR LINHAS DO DBGRID
> >Date: Thu, 30 Nov 2006 08:43:13 -0200
> >
> >Tem como colorir as linhas do DBGRID em RUN-TIME, seria no caso de
cliente
> >em debito aparecer em vermelho e os demais em branco mesmo?
> >
> >Atenciosamente,
> >
> >Marcio William
> >
>
> _________________________________________________________________
> MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
>
