Carregando ...
Desculpe, ocorreu um erro ao carregar o conteúdo.
Estamos atualizando nossos sistemas e algumas funções do Yahoo Grupos estarão indisponíveis por algumas horas. Emails enviados para seus grupos podem ser entregues com atraso durante esse período. Obrigado por sua paciência e compreensão.

Re: [delphi-br] Mudar Cor da Célula

Expandir mensagens
  • Alisson
    Tente assim if (Condicao) then begin Grid.Columns[Nº Coluna].Font.Color := Cor; //cor da fonte Grid.Canvas.Brush.Color:= Cor; //cor da linha
    Mensagem 1 de 1 , 29 de abr 12h09min
    Exibir fonte
    • 0 Anexo
      Tente assim

      if (Condicao) then
      begin
      Grid.Columns[Nº Coluna].Font.Color := Cor; //cor da fonte
      Grid.Canvas.Brush.Color:= Cor; //cor da linha
      Grid.Canvas.FillRect(Rect);
      Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end;


      ----- Original Message -----
      From: Sn@iper
      To: lista-delphi@... ; delphi-br@...
      Sent: Thursday, April 29, 2004 10:51 AM
      Subject: [delphi-br] Mudar Cor da Célula


      Fala,

      seguinte, to tentando mudar a cor da fonte de uma determinada célula de um DBGrid achei o seguinte código na net:

      procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
      begin
      if Table1DepCat.AsString='Cônjuge' then
      begin
      DBGrid1.Canvas.Font.Color:=clBlue;
      DBGrid1.Canvas.Font.Style:=[fsbold];
      end;
      DbGrid1.DefaultDrawDataCell(Rect, Field, State);
      end;

      mas não acontece absolutamente nada. Aí mudei de evento e tentei assim:

      procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
      begin
      if Table1DepCat.Value='Cônjuge' then
      begin
      DBGrid1.Canvas.Font.Color:=clBlue;
      DBGrid1.Canvas.Font.Style:=[fsbold];
      end;
      DbGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end;

      mas assim ele trocar a cor da linha inteira, e eu queria que somente uma célula mudasse de cor. Alguém sabe como posso fazer??


      uso Delphi 5 Pro.


      Valewws.

      [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:
      moderador@... ou delphi-br-owner@...




      Yahoo! Groups Sponsor



      Mais... Claudia Info Veja Você S/A Nova





      ------------------------------------------------------------------------------
      Links do Yahoo! Grupos

      a.. Para visitar o site do seu grupo, acesse:
      http://br.groups.yahoo.com/group/delphi-br/

      b.. Para sair deste grupo, envie um e-mail para:
      delphi-br-unsubscribe@...

      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]
    Sua mensagem foi enviada com êxito e será entregue aos destinatários em breve.