Cómo usar los códigos de barras en Delphi
Puede utilizar ActiveBarcode en Delphi como cualquier otro control (por ejemplo, como un botón). Primero hay que añadir el control ActiveBarcode al entorno de desarrollo Delphi.
Crear un nuevo proyecto: Archivo - Nuevo - Aplicación de formularios VCL:
Para colocar ActiveBarcode en un formulario, seleccione el Control ActiveBarcode de la paleta de herramientas. Lo encontrará en ActiveX como componente TBarcode.:
Seleccione TBarcode y coloque el componente en el formulario. Lamentablemente, Delphi añade el objeto de código de barras con un color de fondo negro.
Pero, no hay problema, simplemente arreglamos esto. En el inspector de objetos puedes personalizar las propiedades del componente. Así que establece el color de fondo en blanco.
Voila, el objeto de código de barras se ve bien ahora:
En este ejemplo añadimos un control más, un TEdit al formulario. Ahora tu formulario podría tener el siguiente aspecto:
A continuación vinculamos el campo de edición directamente al control. Abra el código fuente del evento TextChange haciendo doble clic en el campo de edición. Este evento siempre es llamado, si el contenido del campo de edición es cambiado. Idealmente para nuestro ejemplo. Pasamos esta actualización inmediatamente al control.
Listo. Ahora inicie la aplicación y cambie el contenido del campo de edición para cambiar el código de barras.
Ejemplos de codificación
Configurar las propiedades es muy sencillo.
Barcode1.Text := '123456789012'; Barcode1.BackColor := clWhite; Barcode1.ForeColor := clBlack;
Uso de la propiedad Picture
Copiar el código de barras en un objeto de imagen:
Image1.Picture.Bitmap.Height := Barcode1.Height; Image1.Picture.Bitmap.Width := Barcode1.Width; Barcode1.Picture.CleanupInstance; Image1.Picture.Bitmap.Canvas.Draw(0,0,Barcode1.Picture.graphic);
Utilizar el portapapeles
Copiar el código de barras actual en el portapapeles como gráfico vectorial (WMF):
Barcode1.CopyToClipboard;Copiar el código de barras actual en el portapapeles como mapa de bits (BMP):
Image1.Picture.Bitmap.Height := Barcode1.Height; Image1.Picture.Bitmap.Width := Barcode1.Width; Barcode1.Picture.CleanupInstance; Image1.Picture.Bitmap.Canvas.Draw(0,0,Barcode1.Picture.graphic); Clipboard.Assign(Image1.Picture.Bitmap);