Ola Delphianos,
Estou usando o seguinte código no DBGrid e ele fica direto "repintando ele",
como que em loop, sempre em drwaing.
Alguém sabe como evitar isto. Queria só diferenciar umas linhas com status
diferente colocando em cor diferente.
Só mais uma coisa: alguém sabe de algum componente que toda a linha focada do
DBGrid fique em cor diferente e não
somente a coluna ?
procedure TFrmBaixadeHoras.DBGrid_BaixaHorasDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
begin
If DM.Table_LancamentoHoras.FieldByName('Compensada').AsString = 'S' then
begin
DBGrid_BaixaHoras.Font.Style := [fsBold];
DBGrid_BaixaHoras.Canvas.Font.Color := clGreen; //Navy;
end
Else
begin
DBGrid_BaixaHoras.Font.Style := [];
DBGrid_BaixaHoras.Canvas.Font.Color := clRed; // clBlack
end;
DBGrid_BaixaHoras.DefaultDrawDataCell(Rect,
DBGrid_BaixaHoras.columns[datacol].field, state);
end;
Abraço a todos e obrigado desde já.
Att.
Omar M. Haddad
Analista de Sistemas
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
