| Class TPostnet (unit Postnet) |
TGraphicControl
The Postnet class declaration
| Constructors |
constructor Create(AOwner: TComponent);Create the component with default values
| Functions |
destructor Destroy;
procedure Paint;
procedure PrintBar (Code, X, Y : Integer ) ;
procedure RepaintRequest(Sender: TObject) ;
procedure SetBorder (VBorder: Boolean) ;
procedure SetBrush (Value: TBrush) ;
procedure SetLongBar (VLongBar: Integer) ;
procedure SetPen (Value: TPen) ;
procedure SetShortBar (VShortBar: Integer) ;
procedure SetSpacing (VSpacing: Integer) ;
procedure SetStreetAddress (VStreetAddress: String) ;
procedure SetZipCode (VZipCode: String) ;| 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 :
property ZipCode : String| Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
XMove : Integer ;
FBorder : Boolean ;
FBrush : TBrush ;
FLongBar : Integer ;
FPen : TPen ;
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 ;