Fórum Como trocar a cor apenas da primeira linha de um grid #422275

com esse codigo vc precisa pegar em um sql quando inicia o form e passar a chave principal para a
varialvel aux, com isso os itens que tiver a cheve com o valor vão ser coloridos de vermelho
e os outro serão preto...
Obs.:
\\GrdiDadosFornProd.Canvas.Font.Style := [fsBold] ; esse comando deixa negrito.

procedure TFrmFichaTecnica.GrdiDadosFornProdDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin



If QryDadosFornProdFPDATAENTRADA.AsString = aux then
begin
GrdiDadosFornProd.Canvas.Font.Color:= clRed;
GrdiDadosFornProd.Canvas.Font.Style := [fsBold] ;
GrdiDadosFornProd.DefaultDrawDataCell(Rect, GrdiDadosFornProd.columns[datacol].field, State);
end
else
begin
GrdiDadosFornProd.Canvas.Font.Color:= clBlack;
GrdiDadosFornProd.DefaultDrawDataCell(Rect, GrdiDadosFornProd.columns[datacol].field, State);
end;

end;

Nesse mesmo evento, substitua por:


if TDBGrid(Sender).DataSource.DataSet.RecNo = 1 then
begin
TDBGrid(Sender).Canvas.Font.Color := clRed;
TDBGrid(Sender).Canvas.FillRect(Rect);
TDBGrid(Sender).DefaultDrawDataCell(Rect, Column.Field, State);
end;

Boa Sorte!

Eduardo Belo

Acho qu eo Belo esta correto para aquilo que vc pediu no inicio do seu post

so trocaria o mpetodo DefaultDrawDataCell pelo DefaultDrawColumnCell por motivos de formatação
Alguns campos quando formatados não são exibidos de forma correta utilizando o promeiro método