Jump to content
LA74

cor do dbgrid não se mantém - muda de cor toda vez que passo o mouse

Recommended Posts

Pessoal

 

Fiz uma rotina para que o dbgrid mude a cor conforme a condição do meu select. Algo assim no evento OnDrawColumnCell

 

      if dtm.ZQPedidoAbertoquantaberta.value=0 then
       begin
          DBGPedidos.Canvas.Brush.Color:=clgreen;
          DBGPedidos.Canvas.FillRect(Rect);
          DBGPedidos.DefaultDrawColumnCell(Rect, DataCol, Column, State);
       end
         else
        begin
         DBGPedidos.Canvas.Brush.Color:= clred;
         DBGPedidos.Canvas.Font.Color:= clWhite;
         DBGPedidos.Canvas.FillRect(Rect);
         DBGPedidos.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     end;

 

O resultado sai corretamente no DBGrid mas basta passar o mouse por cima que ele muda a cor de verde para vermelho. Alguém já passou por isso e pode me ajudar?

 

Obrigado desde já.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By RedFox Vega
      Salve fórum
       
      Eu seleciono a cor do pincel e no mostrador ela aparece como eu quero, VERDE CLARO por exemplo, mas quando aplico ela no modelo ela sai muito mais escura tipo um VERDE ESCURO. O amarelo então mesmo o mais claro e vivo sai com cor de bosta kkkkk (quero morrer)
       

       
       
    • By JorgeeHenrique
      Bom dia, sou iniciante em Delphi, estou fazendo um Cadastro de Clientes, gostaria de usar três Edit´s para filtrar alguns  dados porem com o código abaixo consegui fazer apenas com 1 edit.text, como faço pra usar três e que se algum estiver em branco ele retorna o valor apenas do Edit.text que foi preenchido?
       
      Exemplo: 
       
      Quero buscar por Nome, Situação e Rota (Cliente a da rota B com situação C) e se algum desses campos estiver vazio ele busca apenas o que foi preenchido. Obrigado pela atenção!
       
      .
      procedure TFrm_Cadastro.Bt_BuscarClick(Sender: TObject); begin with Frm_Cadastro.Tbl_Clientes do begin Close; SQL.Clear; SQL.Add( 'Select * from Tbl_Cad_Clientes'); SQL.Add('where Cli_Nome like :nome'); ParamByName('nome').Value := '%' + txt_buscar_nome.Text + '%'; Open; end; end;  
    • By lucianfpaula
      Olá saudações, tenho a seguinte duvida, dentro de uma div vou ter varios campos de texto, seja h1, p, smaill etc.. a minha duvida é a seguinte: como manipular a cor de um texto selecionado, tipo tenho um <h1>Minha texto que pode ser grande, quero mudar essa cor</h1> tem varios editor que usam textarea, mas queria saber se é possivel fazer isso a partir de qualquer tag. tipo seleciono o texto e clico em um botão com a cor que quero e mude o texto selecionado.
       
      Muito obrigado
    • By Danny Túlio
      Boa noite, tudo bem?
       
      Não sei o que fiz que quando vou escrever no Corel aparece cor no fundo da caixa de texto. Tentei retirar a cor mas não acho opção de transparência. Como faço? Muito obrigada 
    • By Rafael Guia
      Olá galera, boa tarde!
       
      Alguém pode me ajudar?
      Gostaria de clicar no link (que estou utilizando como botão) e que ele mudasse de cor, porém ao clicar novamente, preciso que ele volte a cor normal. 
      Ps.: Não tenho como usar jQuery.
       
      Segue o código:
       
      Utilizei "onDblClick", mas não ficou bom, preciso dar apenas 1 click para voltar a formatação normal.
       
      <tr> <td width="70%" class="tt">CPF</td> <td width="30%"><a href="#vazio" class="check" onClick="this.className='active'" onDblClick="this.className='check'">OK</a></td> </tr>  
       
      Grato,
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.