[delphi-br] Ref. DBGrid

2008-02-21 Por tôpico Omar Marques
Ola Delphianos,

Estou usando o seguinte código no DBGrid e ele fica direto repintando ele, 
como que em loop, sempre em drwaing.
Alguém sabe como evitar isto. Queria só diferenciar umas linhas com status 
diferente colocando em cor diferente.
Só mais uma coisa: alguém sabe de algum componente que toda a linha focada do 
DBGrid fique em cor diferente e não 
somente a coluna ? 

procedure TFrmBaixadeHoras.DBGrid_BaixaHorasDrawColumnCell(Sender: TObject; 
const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
begin   

  If DM.Table_LancamentoHoras.FieldByName('Compensada').AsString = 'S' then
begin
  DBGrid_BaixaHoras.Font.Style:= [fsBold];
  DBGrid_BaixaHoras.Canvas.Font.Color := clGreen; //Navy;
end
  Else
begin
  DBGrid_BaixaHoras.Font.Style:= [];
  DBGrid_BaixaHoras.Canvas.Font.Color := clRed;  // clBlack
end;

  DBGrid_BaixaHoras.DefaultDrawDataCell(Rect, 
DBGrid_BaixaHoras.columns[datacol].field, state);

end;


Abraço a todos e obrigado desde já.

Att. 
 
Omar M. Haddad
Analista de Sistemas
 





  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

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



Re: [delphi-br] Ref. DBGrid

2008-02-21 Por tôpico Ricardo César Cardoso
Quanto a selecionar a linha toda, use a opção dgRowSelect como True.

Quanto ao restante, não sei. SE vc quer zebrar o DBGrid, recomendo o DBGrid da 
JEDI VCL que já tem propriedades para definir as cores.

Atte,
Ricardo.

Omar Marques [EMAIL PROTECTED] escreveu:   Ola 
Delphianos,
 
 Estou usando o seguinte código no DBGrid e ele fica direto repintando ele, 
como que em loop, sempre em drwaing.
 Alguém sabe como evitar isto. Queria só diferenciar umas linhas com status 
diferente colocando em cor diferente.
 Só mais uma coisa: alguém sabe de algum componente que toda a linha focada do 
DBGrid fique em cor diferente e não 
 somente a coluna ? 
 
 procedure TFrmBaixadeHoras.DBGrid_BaixaHorasDrawColumnCell(Sender: TObject; 
const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
 begin   
 
 If DM.Table_LancamentoHoras.FieldByName('Compensada').AsString = 'S' then
 begin
   DBGrid_BaixaHoras.Font.Style:= [fsBold];
   DBGrid_BaixaHoras.Canvas.Font.Color := clGreen; //Navy;
 end
   Else
 begin
   DBGrid_BaixaHoras.Font.Style:= [];
   DBGrid_BaixaHoras.Canvas.Font.Color := clRed;  // clBlack
 end;
 
 DBGrid_BaixaHoras.DefaultDrawDataCell(Rect, 
DBGrid_BaixaHoras.columns[datacol].field, state);
 
 end;
 
 Abraço a todos e obrigado desde já.
 
 Att. 
  
 Omar M. Haddad
 Analista de Sistemas
  
 
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
 http://br.mail.yahoo.com/
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 __.



   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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