Re: [delphi-br] Cor da linha selecionada do DBGrid

2006-04-28 Por tôpico Allan 



Trocando a cor de uma célula num DBGrid
No evento onDrawColumnCell do dbgrid coloque o código para mudar a cor da fonte do dbgrid e a chave do método para desenhar os dados.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const 
Rect: TRect; 
DataCol: Integer; 
Column: TColumn; 
State: TGridDrawState);
begin
if (Column.Field.FieldName = 'NOMEDOCAMPO') then
begin
if condição then // coloque aqui sua condição
begin
DBGrid1.Canvas.Brush.Color:= clAqua;
DBGrid1.Canvas.Font.Color:= clWindowText;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end; 

Allan
 - Original Message - 
 From: Guigos 
 To: Delphi-Br 
 Sent: Thursday, April 27, 2006 3:49 PM
 Subject: [delphi-br] Cor da linha selecionada do DBGrid


 Gostaria de alterar a cor da linha selecionada do DBGrid, cor da linha e 
 do fundo da celular que esta selecionada!

 Grato

 Luis

 
 ___ 
 Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
 http://br.info.mail.yahoo.com/ 


 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





 Yahoo! Grupos, um serviço oferecido por: 
 PUBLICIDADE
 
 


--
 Links do Yahoo! Grupos

 a.. Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
 
 b.. Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
 
 c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. 




[As partes desta mensagem que não continham texto foram removidas]










-- 
 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDAD




  
  



  




  
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 Termos do Serviço do Yahoo!.

Re: [delphi-br] Cor da linha selecionada do DBGrid

2006-04-28 Por tôpico Sandro 



Luis, 
No evento onDrawColumnCell da DBGrid acrescente as linhas a baixo.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumn;
 State: TGridDrawState);
begin
 if (gdSelected in State) then
 begin {Linha selecionada}
 (Sender as TDBGrid).Canvas.Brush.Color := clRed; {Troca a cor do fundo}
 (Sender as TDBGrid).Canvas.Font.Style := (Sender as TDBGrid).Canvas.Font.Style + [FSBOLD]; {Deixa em negrito}
 (Sender as TDBGrid).Canvas.Font.Color := clBlack;{Troca a cor da fonte}
 end
 else
 begin
 if Column.Index = 0 then 
 (Sender as TDBGrid).Canvas.Brush.Color := clBtnFace {Muda a cor de fundo da coluna se = 0}
 else
 (Sender as TDBGrid).Canvas.Brush.Color := clWindow;
 (Sender as TDBGrid).Canvas.Font.Style := (Sender as TDBGrid).Canvas.Font.Style - [FSBOLD]; {Tira negrito das linhas não selecionadas}
 (Sender as TDBGrid).Canvas.Font.Color := clWindowText; {Cor da fonte das linhas não selecionadas}
 end;
 (Sender as TDBGrid).DefaultDrawDataCell(Rect,(Sender as TDBGrid).Columns[DataCol].Field, State); {Aplica na grid as cores, fontes e estilos definidos acima}
end;

[]'s
Sandro
 - Original Message - 
 From: Guigos 
 To: Delphi-Br 
 Sent: Thursday, April 27, 2006 3:49 PM
 Subject: [delphi-br] Cor da linha selecionada do DBGrid


 Gostaria de alterar a cor da linha selecionada do DBGrid, cor da linha e 
 do fundo da celular que esta selecionada!

 Grato

 Luis

 
 ___ 
 Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
 http://br.info.mail.yahoo.com/ 


 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





 Yahoo! Grupos, um serviço oferecido por: 
 PUBLICIDADE
 
 


--
 Links do Yahoo! Grupos

 a.. Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
 
 b.. Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
 
 c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]







-- 
 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDAD




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] Cor da linha selecionada do DBGrid

2006-04-27 Por tôpico Guigos 



Gostaria de alterar a cor da linha selecionada do DBGrid, cor da linha e 
do fundo da celular que esta selecionada!

Grato

Luis

  
___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
http://br.info.mail.yahoo.com/






-- 
 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

Re: [delphi-br] Cor da linha selecionada do DBGrid

2006-04-27 Por tôpico Allan 



Opa achei mais um exemplo.

Coloque a propriedade defaultdrawdata do dbgrid em FALSE

No evento onDrawColumnCell do seu grid coloque o seguinte:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const 
Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If table1PRAZO.Value  DATE then // condição
Dbgrid1.Canvas.Font.Color:= clFuchsia; // coloque aqui a cor desejada
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end;
 

[]'s
Allan
 - Original Message - 
 From: Guigos 
 To: Delphi-Br 
 Sent: Thursday, April 27, 2006 3:49 PM
 Subject: [delphi-br] Cor da linha selecionada do DBGrid


 Gostaria de alterar a cor da linha selecionada do DBGrid, cor da linha e 
 do fundo da celular que esta selecionada!

 Grato

 Luis

 
 ___ 
 Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
 http://br.info.mail.yahoo.com/ 


 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





 Yahoo! Grupos, um serviço oferecido por: 
 PUBLICIDADE
 
 


--
 Links do Yahoo! Grupos

 a.. Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
 
 b.. Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
 
 c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. 




[As partes desta mensagem que não continham texto foram removidas]









-- 
 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

Re: [delphi-br] Cor da linha selecionada do DBGrid

2006-04-27 Por tôpico Allan 



Alterando a fonte de determinado registro em um DBGrid
 Para trocar a fonte de um DBGrid, utilize a rotina abaixo no evento OnDrawDataCell: 

if Tabela.FieldByName ('Salario').Value = 1 then 
 begin 
 DbGrid1.Canvas.Font.Color := clRed; 
 DbGrid1.Canvas.Font.Style := [fsBold]; 
 end; 
DbGrid1.DefaultDrawDataCell(Rect, Field, State); 
 No caso, somente os registros com salário maior que R$ 10.000,00 ficarão com cor vermelha e em negrito. 

 Nota: Não é necessário mover o ponteiro da tabela 

Allan
- Original Message - 
 From: Guigos 
 To: Delphi-Br 
 Sent: Thursday, April 27, 2006 3:49 PM
 Subject: [delphi-br] Cor da linha selecionada do DBGrid


 Gostaria de alterar a cor da linha selecionada do DBGrid, cor da linha e 
 do fundo da celular que esta selecionada!

 Grato

 Luis

 
 ___ 
 Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
 http://br.info.mail.yahoo.com/ 


 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





 Yahoo! Grupos, um serviço oferecido por: 
 PUBLICIDADE
 
 


--
 Links do Yahoo! Grupos

 a.. Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
 
 b.. Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
 
 c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. 




[As partes desta mensagem que não continham texto foram removidas]









-- 
 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.