Class TPostnet (unit Postnet) |
Inherits from
TGraphicControl
The Postnet class declaration
constructor Create(AOwner: TComponent);
- Public declarations
Create the component with default values
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
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
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
XMove : Integer ;
Protected declarations
FBorder : Boolean ;
FBrush : TBrush ;
FLongBar : Integer ;
FPen : TPen ;
Private declarations
FShortBar : Integer ;
FSpacing : Integer ;
FStreetAddress : String ;
FZipCode : String ;
constructor Create(AOwner: TComponent);
Public declarations
Create the component with default values
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
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
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
XMove : Integer ;
Protected declarations
FBorder : Boolean ;
FBrush : TBrush ;
FLongBar : Integer ;
FPen : TPen ;
Private declarations
FShortBar : Integer ;
FSpacing : Integer ;
FStreetAddress : String ;
FZipCode : String ;