Bom dia amigos da lista!
Estava procurando um meio de como exibir determinados registros de uma
pesquisa usando uma determinada cor e me deparei com duas possibilidades:
usando OnDrawColumnCell ou usando OnDrawDataCell.
Usando OnDrawColumnCell eu perco a configuração que fiz para o DBGrid onde
algumas colunas estão alinhadas à direita, algumas centralizadas e outras
alinhadas à esquerda.
Tentei algumas abordagens e não tive sucesso, então parti para o
OnDrawDataCell porém qual não foi a minha surpresa ao implementar o código
abaixo e o compilador não reconhecer o TField que ele mesmo exige na sintaxe da
procedure.
Procedure TfrmEVENTOS_ SERVICO.dbgrdEVE NTOS_SERVICODraw DataCell( Sender:
TObject;
const Rect: TRect; Field: TField; State: TGridDrawState) ;
Begin
with dbgrdEVENTOS_ SERVICO do
begin
if dmEVENTOS_SERVICO. cdsEVENTOS_ SERVICO.FieldByN ame('ESTID' ).Value = 1 then
Canvas.Font. Color := clGreen
else
if dmEVENTOS_SERVICO. cdsEVENTOS_ SERVICO.FieldByN ame('ESTID' ).Value
= 3 then
Canvas.Font. Color := clRed;
DefaultDrawDataCell (Rect, Field, State);
end
End;
Se alguém já passou por isso, por favor me diga como proceder. Estou usando o
Delphi 2005 com Update 2.
Grato,
Ricardo.
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
