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;

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

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

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 ;

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 ;

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