Lazarus GroupBox Enable = False

[Diogo Beraldi]

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

[Daniel Simoes]

Não compreendi... se os componentes estão desabilitados... a Interface não deveria refletir exatamente isso ?

[Diogo Beraldi]

7 minutos atrás, Daniel Simoes disse:

Não compreendi... se os componentes estão desabilitados... a Interface não deveria refletir exatamente isso ?

Quando desabilito no delphi não consigo editar o conteudo mas não muda a apresentação

[Diogo Beraldi]

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;