Class TBillBoard (unit BBoard)

Inherits from

TGraphicControl

Constructors


constructor Create( AOwner: TComponent );

*) (* TBillBoard control implementation *) (*


Functions

destructor Destroy;


procedure Click;


procedure DblClick;


procedure DefineProperties( Filer: TFiler );


procedure MouseDown( Button: TMouseButton; Shift: TShiftState; X,Y: integer );


procedure MouseMove( Shift: TShiftState; X,Y: integer );


procedure MouseUp( Button: TMouseButton; Shift: TShiftState; X,Y: integer );


procedure OnTimer( Sender: TObject );


procedure Paint;


procedure ReadCustom( stream: TStream );


procedure ReadCustomMask( reader: TReader );


procedure WriteCustom( stream: TStream );


procedure WriteCustomMask( writer: TWriter );


procedure DrawBackGround( Bitmap: TBitmap );


procedure DrawDigit( Digit: Char; FromCell: TPoint; Bitmap: TBitmap );


procedure DrawDynamicText( Text: string; Bitmap: TBitmap );


procedure DrawStaticText( Text: string; Cell: TPoint; Bitmap: TBitmap );


procedure SetAnimationOnOff( Value: boolean );


procedure SetAnimationRate( Value: integer );


procedure SetBackColor( Value: TColor );


procedure SetCharset( Value: TBBMask );


procedure SetDotOffColor( Value: TColor );


procedure SetDotOnColor( Value: TColor );


procedure SetDotSize( Value: integer );


procedure SetDotStyle( dotStyle: TDotStyle );


procedure SetPenOffColor( Value: TColor );


procedure SetPenOnColor( Value: TColor );


procedure SetSizes;


procedure SetText( Value: string );


Properties

property Align :


property Animation : boolean


property AnimationRate : integer


property BackColor : TColor


property Charset : TBBMask


property DotOffColor : TColor


property DotOnColor : TColor


property DotSize : integer


property DotStyle : TDotStyle


property PenOffColor : TColor


property PenOnColor : TColor


property Tag :


property Text : string


property CellSize : integer


property CharWidth : integer


property CustomCharset : Boolean


Events

event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnMouseDown : TMouseEvent


event OnMouseMove : TMouseMoveEvent


event OnMouseUp : TMouseEvent


event OnNeedText : TNotifyEvent


Variables

FOnClick : TNotifyEvent;


FOnDblClick : TNotifyEvent;


FOnMouseDown : TMouseEvent;


FOnMouseMove : TMouseMoveEvent;


FOnMouseUp : TMouseEvent;


FOnNeedText : TNotifyEvent;


FAnimation : boolean;


FAnimationRate : integer;


FBackColor : TColor;


FBackGndBmp : TBitmap;


FBBMask : TBBMask;


FCellSize : integer;


FChanged : Boolean;


FCharHeight : integer;


FCharWidth : integer;


FCustomMask : Boolean;


FDotOffColor : TColor;


FDotOnColor : TColor;


FDotSize : integer;


FDotStyle : TDotStyle;


FOldHeight : integer;


FOldWidth : integer;


FOnBmp : TBitmap;


FPenOffColor : TColor;


FPenOnColor : TColor;


FStartCell : integer;


FStartPoint : TPoint;


FText : string;


FTimer : TTimer;



Constructors


constructor Create( AOwner: TComponent );

*) (* TBillBoard control implementation *) (*


Functions


destructor Destroy;


procedure Click;


procedure DblClick;


procedure DefineProperties( Filer: TFiler );


procedure MouseDown( Button: TMouseButton; Shift: TShiftState; X,Y: integer );


procedure MouseMove( Shift: TShiftState; X,Y: integer );


procedure MouseUp( Button: TMouseButton; Shift: TShiftState; X,Y: integer );


procedure OnTimer( Sender: TObject );


procedure Paint;


procedure ReadCustom( stream: TStream );


procedure ReadCustomMask( reader: TReader );


procedure WriteCustom( stream: TStream );


procedure WriteCustomMask( writer: TWriter );


procedure DrawBackGround( Bitmap: TBitmap );


procedure DrawDigit( Digit: Char; FromCell: TPoint; Bitmap: TBitmap );


procedure DrawDynamicText( Text: string; Bitmap: TBitmap );


procedure DrawStaticText( Text: string; Cell: TPoint; Bitmap: TBitmap );


procedure SetAnimationOnOff( Value: boolean );


procedure SetAnimationRate( Value: integer );


procedure SetBackColor( Value: TColor );


procedure SetCharset( Value: TBBMask );


procedure SetDotOffColor( Value: TColor );


procedure SetDotOnColor( Value: TColor );


procedure SetDotSize( Value: integer );


procedure SetDotStyle( dotStyle: TDotStyle );


procedure SetPenOffColor( Value: TColor );


procedure SetPenOnColor( Value: TColor );


procedure SetSizes;


procedure SetText( Value: string );


Properties


property Align :


property Animation : boolean


property AnimationRate : integer


property BackColor : TColor


property Charset : TBBMask


property DotOffColor : TColor


property DotOnColor : TColor


property DotSize : integer


property DotStyle : TDotStyle


property PenOffColor : TColor


property PenOnColor : TColor


property Tag :


property Text : string


property CellSize : integer


property CharWidth : integer


property CustomCharset : Boolean


Events


event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnMouseDown : TMouseEvent


event OnMouseMove : TMouseMoveEvent


event OnMouseUp : TMouseEvent


event OnNeedText : TNotifyEvent


Variables


FOnClick : TNotifyEvent;


FOnDblClick : TNotifyEvent;


FOnMouseDown : TMouseEvent;


FOnMouseMove : TMouseMoveEvent;


FOnMouseUp : TMouseEvent;


FOnNeedText : TNotifyEvent;


FAnimation : boolean;


FAnimationRate : integer;


FBackColor : TColor;


FBackGndBmp : TBitmap;


FBBMask : TBBMask;


FCellSize : integer;


FChanged : Boolean;


FCharHeight : integer;


FCharWidth : integer;


FCustomMask : Boolean;


FDotOffColor : TColor;


FDotOnColor : TColor;


FDotSize : integer;


FDotStyle : TDotStyle;


FOldHeight : integer;


FOldWidth : integer;


FOnBmp : TBitmap;


FPenOffColor : TColor;


FPenOnColor : TColor;


FStartCell : integer;


FStartPoint : TPoint;


FText : string;


FTimer : TTimer;