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
