Jump to content

110.png

Curso Gratuito para todos Usuários
+ Super Treinamento Assinando o SAC Anual

botao_campanha_thulio.png

sem_ttulo-620.fw_-e1583866078274.png 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Diogo Beraldi

Membros
  • Content Count

    6
  • Joined

  • Last visited

Community Reputation

0 Neutral

About Diogo Beraldi

  • Rank
    Novato
  • Birthday 08/27/1976

Contact Methods

  • Skype
    adbsistemas

Profile Information

  • Sexo
    Masculino
  • Localização
    Americana

Recent Profile Visitors

501 profile views
  1. 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;
  2. Quando desabilito no delphi não consigo editar o conteudo mas não muda a apresentação
  3. 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
  4. 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 ;
  5. 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 ;
  6. 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
×
×
  • Create New...