Barcode studio - Help Index

Draw barcode on the TCanvas, window or using device context.

1. procedure PaintBarCode(C:TCanvas; R:TRect; E:TpsCustomBarcode);
2. procedure PaintBarCodeControl(WinControl:TWinControl; R:TRect; E:TpsCustomBarcode);
3. procedure PaintBarCodeHandle(HWnd:THandle; R:TRect; E:TpsCustomBarcode);

	TmyBarcodeControl=class(TControl)
	private
		FBarcodeControl:TpsCustomBarcode;
	protected
        	procedure   Paint; override;
	end;
	....
	TmyBarcodeControl.Paint;
	begin
		inherited;
		PaintBarcode(Canvas, ClientRect, FbarcodeControl);
	end;

Example print barcode

	var R        : TRect;
	    FBarcode : TpsCustomControl;		
	....
	R:=Rect(300,300,600,600); 			
	Printer.BeginDoc;				
	PaintBarcode(Printer.Canvas, R, FBarcode);	
	Printer.EndDoc;