Caro Marcio
a partirdoexemplo abaixo voce faz o que quizer. (Evento OnDrawColumnCell do
DBrid)
Não esquecer a ultima linha: (
DefaultDrawColumnCell(Rect,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
----- Original Message -----
From: "Marcio William" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, November 30, 2006 8:43 AM
Subject: [delphi-br] COLORIR LINHAS DO DBGRID
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
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
