Ir para conteúdo
  • Cadastre-se

dev botao

Lazarus GroupBox Enable = False


  • Este tópico foi criado há 2821 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Boa tarde,

Estou migrando para o Lazarus,

o problema que estou encontrando é:

No Delphi quando coloco um GroupBox em enable = false ele mantém as cores dos componentes contidos nele

já no Lazarus ele muda a cor ficando tudo acinzentado

Teria alguma forma de mudar para ficar como o Delphi

Desabilita os componentes contidos mas não muda a cor

Obrigado

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Neste exemplo o GroupBox esta no estado de enable = false, note que as corem permanecem as mesmas, tanto true ou false não muda

levei  um prog. exemplo em um cliente já reclamou que no formato que o groupbox fica eles vão forçar muito a vista.

uso uma função botões para controlar quem esta habilitado ou não

Procedure Botoes;
Begin
   If Cliente.PanCad.Enabled = False then
   Begin
      If CadDt.Cli.RecordCount = 0 then
      Begin
        Cliente.BtAltera.Enabled := False;
        Cliente.BtExclui.Enabled := False;
        Cliente.BtImp.Enabled := False;
        Cliente.PanList.Enabled := False;
        // Botoes
        //Cliente.BtCnpj.Enabled := False;
        Cliente.BtContato.Enabled := False;
        Cliente.BtCob.Enabled := False;
        Cliente.BtAc.Enabled := False;
        Cliente.BtBanco.Enabled := False;
        Cliente.BtHist.Enabled := False;
        Cliente.BtNota.Enabled := False;
        Cliente.BtObs.Enabled := False;
      end
      else
      Begin
         Cliente.PanTipo.Enabled := False;
         Cliente.PanList.Enabled := True;
         Cliente.PanLoc.Enabled := True;
         Cliente.BtInclui.Enabled := True;
         Cliente.BtAltera.Enabled := True;
         Cliente.BtExclui.Enabled := True;
         Cliente.BtSalva.Enabled := False;
         Cliente.BtImp.Enabled := True;
         // Botoes
         Cliente.BtCnpj.Enabled := True;
         Cliente.BtContato.Enabled := True;
         Cliente.BtCob.Enabled := True;
         Cliente.BtAc.Enabled := True;
         Cliente.BtBanco.Enabled := True;
         Cliente.BtHist.Enabled := True;
         Cliente.BtNota.Enabled := True;
         Cliente.BtObs.Enabled := True;
      end;
   end
   else
   Begin
      Cliente.PanTipo.Enabled := True;
      Cliente.PanList.Enabled := False;
      Cliente.PanLoc.Enabled := False;
      Cliente.BtInclui.Enabled := False;
      Cliente.BtAltera.Enabled := False;
      Cliente.BtExclui.Enabled := False;
      Cliente.BtImp.Enabled := False;
      Cliente.BtSalva.Enabled := True;
      // Botoes
      Cliente.BtCnpj.Enabled := False;
      Cliente.BtContato.Enabled := False;
      Cliente.BtCob.Enabled := False;
      Cliente.BtAc.Enabled := False;
      Cliente.BtBanco.Enabled := False;
      Cliente.BtHist.Enabled := False;
      Cliente.BtNota.Enabled := False;
      Cliente.BtObs.Enabled := False;
   end;
end;

 

 

exemplo 2.JPG

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2821 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.