Criar etiqueta no Delphi FastReport - Código de barras

Criar etiqueta no Delphi FastReport - Código de barras

  março 23, 2018    Ana Paula Novello

---

Continuação do artigo abaixo

https://anaprogramadorajunior.blogspot.com.br/2015/12/criar-etiqueta-no-fastreport.htm

Vamos completar ainda mais essas etiquetas? Vamos dar a opção para pode escolher o estilo do "Código de barras". (Mudar o estilo do código de barras em tempo de execução no fr3 )

Antes de qualquer coisa em tela adicione mais um TfrxDialogControls (Componente com os Componentes de Diálogos)

Vamos adicionar em nosso Relatório ( Arquivo .fr3) um DialogPage

Dentro do Arquivo Fr3 clique com o Botão direito do mouse sobre a Pagina

Agora na pagina de Dialogo vamos acrescentar um 

• Label1
• ComboBox1
• BitBtn1

Agora no ComboBox1 coloque o estilo de todos os códigos de barra que contem no fr3 

Na propriedade Style marque como csDropDownList para o usuário não conseguir editar o campo

No botão marque a propriedade ModalResult como MrOK
De um duplo clique no botão e coloque o seguinte código

  case ComboBox1.ItemIndex of
    0 : BarCode2.BARTYPE := bcCode_2_5_industrial;
    1 : BarCode2.BARTYPE := bcCode_2_5_interleaved;
    2 : BarCode2.BARTYPE := bcCode_2_5_matrix;
    3 : BarCode2.BARTYPE := bcCode128A;
    4 : BarCode2.BARTYPE := bcCode128B;
    5 : BarCode2.BARTYPE := bcCode128C;
    6 : BarCode2.BARTYPE := bcCode39;
    7 : BarCode2.BARTYPE := bcCode39Extended;
    8 : BarCode2.BARTYPE := bcCode93;
    9 : BarCode2.BARTYPE := bcCode93Extended;
    10 : BarCode2.BARTYPE := bcCodeCodabar;
    11 : BarCode2.BARTYPE := bcCodeEAN128A;
    12 : BarCode2.BARTYPE := bcCodeEAN128B;
    13 : BarCode2.BARTYPE := bcCodeEAN128C;
    14 : BarCode2.BARTYPE := bcCodeEAN13;
    15 : BarCode2.BARTYPE := bcCodeEAN8;
    16 : BarCode2.BARTYPE := bcCodeMSI;
    17 : BarCode2.BARTYPE := bcCodePostNet;
    18 : BarCode2.BARTYPE := bcCodeUPC_A;
    19 : BarCode2.BARTYPE := bcCodeUPC_E0;
    20 : BarCode2.BARTYPE := bcCodeUPC_E1;
    21 : BarCode2.BARTYPE := bcCodeUPC_Supp2;
    22 : BarCode2.BARTYPE := bcCodeUPC_Supp5;
  end;

E com isso esta pronto mais uma etapa

Resultado

Exemplo: Download do exemplo