A rotina que gera códigos de barras em relatórios em geral foi revisada.
Sua sintaxe é (para recordar):
Procedure PaintBarCode(Elemento,Mensagem:string;Tipo,Largura,Altura,Aspecto:integer);
Onde o Tipo pode receber os números:
0 -> Code2_5_interleaved <-- Ex.: Barra de boletos de cobrança 1 -> Code2_5_industrial, 2 -> Code2_5_matrix, 3 -> Code39, 4 -> Code39Extended, 5 -> Code128A, 6 -> Code128B, 7 -> Code128C, 8 -> Code93, 9 -> Code93Extended, 10 -> CodeMSI, 11 -> CodePostNet, 12 -> CodeCodabar, 13 -> CodeEAN8, 14 -> CodeEAN13, 15 -> CodeUPC_A, 16 -> CodeUPC_E0, 17 -> CodeUPC_E1, 18 -> CodeUPC_Supp2, { UPC 2 digit supplemental }
19 -> CodeUPC_Supp5, { UPC 5 digit supplemental }
20 -> CodeEAN128A, 21 -> CodeEAN128B, 22 -> CodeEAN128C Este procedimento pode ser aplicado a qualquer elemento gráficos de relatórios.