RES: [delphi-br] Duvida sobre um DBGrid Zebrado

Sat, 16 Sep 2006 13:04:33 -0700 

Tente assim:

procedure Tfaluno.DBGrid1DrawColumnCell(Sender: TObject; const Rect: 
TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
x := DM.cAluno.RecNo mod 2;
  if x <> 0 then
    begin
      DBGrid1.Canvas.Font.Color := clBlack;
      DBGrid1.Canvas.Brush.Color := $00F0F8FF;
    end
    else
      if x = 0 then
        begin
          DBGrid1.Canvas.Font.Color := clBlack;
          DBGrid1.Canvas.Brush.Color := clWhite;
        end;
if gdselected in state then               // se a linha estiver selecionada
          dbgrid1.Canvas.Font.Color := clwhite;  // muda a cor do texto
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;

[]'s

Gilson

-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de henriquefari
Enviada em: sábado, 16 de setembro de 2006 16:23
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Duvida sobre um DBGrid Zebrado

E ai galera, tranquilo com vcs?

Eu estou terminado minha aplicação, e estou introduziondo o o dbgrig 
zebrado, ele está funcioanndo perfeitamente, como segue a linha de 
código abaixo.

Porém por eu ter setado a cor da linhae da fonte, a linha selecionada 
não muda de cor, e não estou conseguindo manipular a linha 
SELECIONADA, para mudar ela de cor.

Quem souber como manipula ela, agradeço muito!

Abraços,

Henrique Faria

------------------------------------------------------------------

procedure Tfaluno.DBGrid1DrawColumnCell(Sender: TObject; const Rect: 
TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
x := DM.cAluno.RecNo mod 2;
  if x <> 0 then
    begin
      DBGrid1.Canvas.Font.Color := clBlack;
      DBGrid1.Canvas.Brush.Color := $00F0F8FF;
    end
    else
      if x = 0 then
        begin
          DBGrid1.Canvas.Font.Color := clBlack;
          DBGrid1.Canvas.Brush.Color := clWhite;
        end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
Links do Yahoo! Grupos




 





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

Responder a