Class TPostnet (unit Postnet)

Inherits from

TGraphicControl

The Postnet class declaration

Constructors


constructor Create(AOwner: TComponent);

Public declarations

Create the component with default values



Functions

destructor Destroy;

Destroy the component

procedure Paint;

procedure that actually creates parses zipcode and street address to create the bars

procedure PrintBar (Code, X, Y : Integer ) ;

procedure that actually draws bars on screen

procedure RepaintRequest(Sender: TObject) ;

procedure to handle new pen/brush change

procedure SetBorder (VBorder: Boolean) ;

procedure to change to toggle border

procedure SetBrush (Value: TBrush) ;

procedure to select new brush type

procedure SetLongBar (VLongBar: Integer) ;

procedure to change to new long bar length in barcode

procedure SetPen (Value: TPen) ;

procedure to select new pen type

procedure SetShortBar (VShortBar: Integer) ;

procedure to change to new short bar length in barcode

procedure SetSpacing (VSpacing: Integer) ;

procedure to change to new spacing beetween bars in barcode

procedure SetStreetAddress (VStreetAddress: String) ;

procedure to change to new StreetAddress

procedure SetZipCode (VZipCode: String) ;

procedure to change to new zipcode

Properties

property Border : Boolean


property Brush : TBrush


property Height :


property LongBar : Integer


property Pen : TPen


property ShortBar : Integer


property Spacing : Integer


property StreetAddress : String


property Visible :


property Width :

Published declarations

property ZipCode : String


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

XMove : Integer ;

Protected declarations

FBorder : Boolean ;


FBrush : TBrush ;


FLongBar : Integer ;


FPen : TPen ;

Private declarations

FShortBar : Integer ;


FSpacing : Integer ;


FStreetAddress : String ;


FZipCode : String ;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

Create the component with default values


Functions


destructor Destroy;

Destroy the component


procedure Paint;

procedure that actually creates parses zipcode and street address to create the bars


procedure PrintBar (Code, X, Y : Integer ) ;

procedure that actually draws bars on screen


procedure RepaintRequest(Sender: TObject) ;

procedure to handle new pen/brush change


procedure SetBorder (VBorder: Boolean) ;

procedure to change to toggle border


procedure SetBrush (Value: TBrush) ;

procedure to select new brush type


procedure SetLongBar (VLongBar: Integer) ;

procedure to change to new long bar length in barcode


procedure SetPen (Value: TPen) ;

procedure to select new pen type


procedure SetShortBar (VShortBar: Integer) ;

procedure to change to new short bar length in barcode


procedure SetSpacing (VSpacing: Integer) ;

procedure to change to new spacing beetween bars in barcode


procedure SetStreetAddress (VStreetAddress: String) ;

procedure to change to new StreetAddress


procedure SetZipCode (VZipCode: String) ;

procedure to change to new zipcode


Properties


property Border : Boolean


property Brush : TBrush


property Height :


property LongBar : Integer


property Pen : TPen


property ShortBar : Integer


property Spacing : Integer


property StreetAddress : String


property Visible :


property Width :

Published declarations


property ZipCode : String


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


XMove : Integer ;

Protected declarations


FBorder : Boolean ;


FBrush : TBrush ;


FLongBar : Integer ;


FPen : TPen ;

Private declarations


FShortBar : Integer ;


FSpacing : Integer ;


FStreetAddress : String ;


FZipCode : String ;