-
Total de ítens
6 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por 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
-
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
Lazarus GroupBox Enable = False
em Object Pascal - Delphi & Lazarus
Postado
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;