Prezados,
Tem um exemplo de como mudar a fonte na linha do DBGrid no DTDelphi usando
componente DBE conforme abaixo, tentei usar usando componente DBExpress
com DataModule e banco FireBird 1.5, e não funciona, tem que ativar
alguma coisa ??
/// Assim funciona, pois usa tabela com componentes DBE ////
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if Table1.FieldByName('SALARIO').Value > 3000 then
begin
DBGrid1.Canvas.Font.Color := clRed ;
DBGrid1.Canvas.Font.Style := [fsBold] ;
end;
DBGrid1.DefaultDrawDataCell(Rect, Field, State) ;
end;
/////////////////////////////////////////////
/// USANDO DBExpress - assim nâo funciona //////////
procedure TForm1.DBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if DM.SqlPRODUT.FieldByName('SALARIO').Value > 3000 1 then
begin
DBGrid2.Canvas.Font.Color := clRed ;
DBGrid2.Canvas.Font.Style := [fsBold] ;
end;
DBGrid2.DefaultDrawDataCell(Rect, Field, State) ;
end;
/////////////////////////////////////////////////////////
--------------------------------------------------
Email Plus Estadão
Agora você pode ter mais ferramentas e espaço para
armazenar seus emails.
http://www.estadao.com.br/webmail/pago/
--------------------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
