Bom dia ,
olhe o que eu fiz
procedure TFrAndamento.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var tempo: TDateTime ;
begin
tempo:= StrToTime(edit1.text);
if ((DBGrid1.DataSource.DataSet.FieldByName('PEDHORA').AsDateTime +
tempo) Time)and
(DBGrid1.DataSource.DataSet.FieldByName('PEDDATA').AsDateTime = Date)
then
DBGrid1.Canvas.Font.Color := clRed
else
DBGrid1.Canvas.Font.Color := clblack;
DBGrid1.DefaultDrawDataCell(Rect, DBGrid1.Columns[DataCol].Field,
State);
end;
deu certo, mais o valor do edit1 tem q ser 0 ai ele fica vermelho, o que
preciso é colocar no edit1 um tempo, por exemplo 20 minutos, ai o calculo,
se EDHORA+ tempo for menor que a hora atual entao o grid fica em vermelho,
so que quando eu estou digitando,o 20, eu acho q ele num entende q os 20 sao
minutos entendeu ?
- Original Message -
From: Filipe Belchior [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, November 23, 2006 12:48 PM
Subject: [delphi-br] Re: dbgrid colorindo uma linha
esse artigo eu encontrei, e axo perfeito pra esse assunto..
http://delphi.about.com/od/usedbvcl/l/aa031699.htm
FILIPE BELCHIOR
--- Em delphi-br@yahoogrupos.com.br, Fernando César [EMAIL PROTECTED]
escreveu
olá pessoal como q eu faço pra colorir uma lina do grid no delphi,
se for o
caso pode ser so a fone, tipo na minha tabela vai ter uma função q
se um
processo nao completado depois de um tempo a linha da grid fica em
vermelho.
obrigado e estou no aguardo
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu
celular. Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com