Sistema de Loja

Delphi

17/11/2006

Olá, alguém poderia me ajudar? estou criando um programa de loja e preciso q quando um trabalho passasr da data de ser entregue o programa me der um aviso ou marque o nome do trabalho com a cor vermelha... obg. e se alguém poder me ajudar agradeço :)


Nandobacker

Nandobacker

Curtidas 0

Respostas

Tremonti

Tremonti

17/11/2006

imaginando que seu dbgrid chame DbGrid1 coloque no Evento OnDrawColumnCell o código abaixo:

var mColor : TColor;
begin

if Date > dtentregua{ Campo da sua tabela } then
mColor := clBlue
else
mColor := clBlack;

DBgrid1.Canvas.Font.Color:= mColor;
DbGrid1.DefaultDrawDataCell(Rect, DbGrid1.columns[datacol].field, State);


GOSTEI 0
Nandobacker

Nandobacker

17/11/2006

Valeu cara vc me ajudou muito... :lol:


GOSTEI 0
POSTAR