[Lazarus GroupBox Enable = False]

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;

 

 

[Lazarus GroupBox Enable = False]

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

[Lazarus GroupBox Enable = False]

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

[Acbrboletofcquick Não Gera O Pdf]

Resolvi da Seguinte forma:

 

ACBRBoletoFCQuickFr

 

Inclui o componente: QRPDFFilter

 

em

 

procedure TACBrBoletoFCQuick.Imprimir;
 

Inclui a variavel para exportação

 

Var   AExportFilter : TQRPDFDocumentFilter;

 

alterei as linhas, elas estavam desativadas com //

 

        case Filtro of
          fiPDF  :
            begin
               AExportFilter := TQRPDFDocumentFilter.Create(NomeArquivo);
               try
                  RLLayout.ExportToFilter(AExportFilter);
               finally
                  AExportFilter.Free;
               end;
            end ;

[Mostra o preview só que quando manda imprimir não vai !!!]

Resolvi da Seguinte forma:

 

ACBRBoletoFCQuickFr

 

Inclui o componente: QRPDFFilter

 

em

 

procedure TACBrBoletoFCQuick.Imprimir;
 

Inclui a variavel para exportação

 

Var   AExportFilter : TQRPDFDocumentFilter;

 

alterei as linhas, elas estavam desativadas com //

 

        case Filtro of
          fiPDF  :
            begin
               AExportFilter := TQRPDFDocumentFilter.Create(NomeArquivo);
               try
                  RLLayout.ExportToFilter(AExportFilter);
               finally
                  AExportFilter.Free;
               end;
            end ;

[Mostra o preview só que quando manda imprimir não vai !!!]

Não sei o que esta acontecendo, impressões vão normal, gera pdf, mas nos boletos, não visualiza, não imprime e não gera pdf, estou usando delphi 7 de quickreport 5.02, se algue puder me dar uma luz agradeço