Cómo afinar y trabajar con el código de barras ITF-14 en Delphi / Lazarus

Con FastReport VCL 2021.2 se ha agregado un nuevo código de barras ITF-14. Permítennme recordarles que ITF-14 (Interleaved Two of Five) es un código numérico de dos bandas, en otras palabras, un código de alta densidad que puede codificar solo números en un número par. Cada uno de estos códigos de barras codifica un número impar con una línea oscura y un número par con un espacio entre ellos. Para codificar un número impar de dígitos, debe rellenar el dígito más a la izquierda (el más significativo) con un cero. Puede leer más teoría sobre la ITF-14 en nuestro otro artículo.

No hace mucho, nuestros usuarios encontraron errores no críticos, sin embargo, a veces interfirieron con el uso del código de barras en el trabajo. Las correcciones ya son de dominio público. Este artículo está destinado a ayudar a los usuarios que aún no han notado errores y también presentará las funciones de implementación en nuestro producto.

Se notó que, bajo algunas condiciones, se podían mostrar números incorrectos debajo del código de barras. Y también los trazos fueron más allá de los bordes del marco en la parte inferior.

Estos errores ya se han corregido y si utiliza ITF-14 en sus proyectos, le recomendamos encarecidamente que actualice FastReport a la última versión.

Ahora pasemos a las características.

Para este código de barras, el marco es obligatorio, ya que está detallado en la especificación, por lo que no habrá forma de deshabilitarlo por completo o cambiarlo mucho. Pero aún puedes cambiarlo.

Primero, puede desactivar las líneas laterales activando la propiedad TestLine.

En segundo lugar, puede cambiar el grosor del marco en línea cambiando Marco-> Ancho. Esta propiedad funcionará incluso si el borde exterior está desactivado.

Opcionalmente, puede habilitar y configurar un marco exterior común utilizando la propiedad Marco. El principio es exactamente el mismo que para cualquier otro objeto del informe, y después de eso, el código de barras tendrá 2 marcos a la vez, y el exterior tiene más posibilidades de diseño.

Generación de código de barras ITF-14 a partir de código en Delphi / Lazarus

procedure TForm1.Button1Click(Sender: TObject);
 var bc: TfrxBarcodeView;
begin
 bc := TfrxBarcodeView(frxReport1.FindObject('BarCode1'));
{Establecer el tipo de código de barras}
 bc.BarType := bcCode_ITF_14;
 {{Establecer un valor de código de barras fijo}
 bc.Text := '12345678912345';
 {Establecer la escala en la que se mostrará el código de barras}
 bc.Zoom := 2;
 {Establezca el ángulo de rotación del código de barras. Puede tomar valores 0, 90, 180, 270}
 bc.Rotation := 0;
 {Establezca si desea establecer el ancho del código de barras según su contenido.}
{Si se establece en False, Zoom se establecerá para mantener fijo el ancho del código de barras}
 bc.AutoSize := True;
{Establecer el color de fondo del código de barras}
 bc.Color := clNone;
{Establecer el color de las líneas del código de barras}
 bc.ColorBar := clBlack;
{Establecer si se muestra el texto en la parte inferior del código de barras}
 bc.ShowText := True;
{Establecer el ancho del marco interior}
 bc.Frame.Width := 3;
{Configuración del marco exterior}
{Configuramos la visualización de marcos externos desde todos los lados}
 bc.Frame.Typ := [ftLeft, ftRight, ftTop, ftBottom];
{Establecer el ancho del borde izquierdo}
 bc.Frame.LeftLine.Width := 5;
{Establecer el color del borde izquierdo}
 bc.Frame.LeftLine.Color := clRed;
{Establecer el estilo del borde izquierdo}
 bc.Frame.LeftLine.Style := fsDashDotDot;
{Copie la configuración del marco izquierdo al marco derecho}
 bc.Frame.RightLine.Assign(bc.Frame.LeftLine);
{Copie la configuración del marco izquierdo en el marco superior}
 bc.Frame.TopLine.Assign(bc.Frame.LeftLine);
{Copie la configuración del marco izquierdo en el marco inferior}
 bc.Frame.BottomLine.Assign(bc.Frame.LeftLine);
 frxReport1.ShowReport();
end;

ITF-14 es sin duda uno de los códigos de barras más utilizados. Si tiene algún error o pregunta, puede escribirnos a Soporte.