Class TD3KBitmappedLabel (unit D3KBmLbl)

Inherits from

TCustomPanel

Constructors


constructor Create( AOwner: TComponent );

Constructor

Constructor



Functions

destructor Destroy;

Destructor

Destructor


procedure BitmapChanged( Sender: TObject );

Called when bitmap changed

Called when bitmap changed


function GetText: string;

Get text

Return text


procedure Paint;

Paint the label

Paint the label


procedure Resize;

Handle resizing

Adjust label contents on resize


procedure SetBanner( Value: boolean );

Enable/Disable banner

Enable/Disable banner mode


procedure SetBannerSpeed( Value: integer );

Set banner speed

Set banner speed (delay)


procedure SetBitmap( Value: TBitmap );

Set font bitmap

Set font bitmap


procedure SetBlink( Value: boolean );

Enable/Disable blinking

Enable/Disable blinking


procedure SetCharWidth( Value: integer );

Set character width

Set character width


procedure SetFillChar( Value: char );

Set spacing char

Set spacing char


procedure SetFontChars( Value: string );

Set xlate table

Set character mapping table


procedure SetText( Value: string );

Set text

Set text


procedure SetUpperCase( Value: boolean );

Set upper case flag

Enable/Disable uppercase


procedure WMTimer( var Msg: TWMTimer );

Tiemr proc

Timer proc


procedure Loaded;

procedure CMTextChanged( var Message: TMessage ); message CM_TEXTCHANGED;

Init after load


Properties

property Align :

Publish inherited properties/events

property Alignment :


property Banner : boolean

Set true to enable banner mode (scrolling)

property BannerSpeed : integer

Banner speed (milliseconds delay)

property BevelInner :


property BevelOuter :


property Blink : boolean

Set true to enable blinking

property BorderStyle :


property BorderWidth :


property CharWidth : integer

Character width (pixels)

property Color :


property FillChar : char

Spacing char

property FontBitmap : TBitmap

Font bitmap

property FontChars : string

Character mapping table

property Text : string

Text

property UpperCase : boolean

Set true to force text uppercase

property NCharsWide : integer

Returns number of chars shown

property Caption :

Hide Caption property

Events

event OnClick :


Variables

BlinkCounter : integer;

Used for blinking

FBanner : boolean;

true = banner enabled (scrolling)

FBannerCounter : integer;

Used for scrolling

FBannerSpeed : integer;

Scrolling speed

FBitmap : TBitmap;

Font bitmap

FBlink : boolean;

true = blink enabled

FCharWidth : integer;

Character width

FDisplayText : string;

Text to display

FFillChar : char;

Spacing char

FFontChars : string;

Xlate table

FNCharsWide : integer;

Width of label in chars

FUpperCase : boolean;

true = force text uppercase


Constructors


constructor Create( AOwner: TComponent );

Constructor

Constructor


Functions


destructor Destroy;

Destructor

Destructor


procedure BitmapChanged( Sender: TObject );

Called when bitmap changed

Called when bitmap changed


function GetText: string;

Get text

Return text


procedure Paint;

Paint the label

Paint the label


procedure Resize;

Handle resizing

Adjust label contents on resize


procedure SetBanner( Value: boolean );

Enable/Disable banner

Enable/Disable banner mode


procedure SetBannerSpeed( Value: integer );

Set banner speed

Set banner speed (delay)


procedure SetBitmap( Value: TBitmap );

Set font bitmap

Set font bitmap


procedure SetBlink( Value: boolean );

Enable/Disable blinking

Enable/Disable blinking


procedure SetCharWidth( Value: integer );

Set character width

Set character width


procedure SetFillChar( Value: char );

Set spacing char

Set spacing char


procedure SetFontChars( Value: string );

Set xlate table

Set character mapping table


procedure SetText( Value: string );

Set text

Set text


procedure SetUpperCase( Value: boolean );

Set upper case flag

Enable/Disable uppercase


procedure WMTimer( var Msg: TWMTimer );

Tiemr proc

Timer proc


procedure Loaded;

procedure CMTextChanged( var Message: TMessage ); message CM_TEXTCHANGED;

Init after load


Properties


property Align :

Publish inherited properties/events


property Alignment :


property Banner : boolean

Set true to enable banner mode (scrolling)


property BannerSpeed : integer

Banner speed (milliseconds delay)


property BevelInner :


property BevelOuter :


property Blink : boolean

Set true to enable blinking


property BorderStyle :


property BorderWidth :


property CharWidth : integer

Character width (pixels)


property Color :


property FillChar : char

Spacing char


property FontBitmap : TBitmap

Font bitmap


property FontChars : string

Character mapping table


property Text : string

Text


property UpperCase : boolean

Set true to force text uppercase


property NCharsWide : integer

Returns number of chars shown


property Caption :

Hide Caption property


Events


event OnClick :


Variables


BlinkCounter : integer;

Used for blinking


FBanner : boolean;

true = banner enabled (scrolling)


FBannerCounter : integer;

Used for scrolling


FBannerSpeed : integer;

Scrolling speed


FBitmap : TBitmap;

Font bitmap


FBlink : boolean;

true = blink enabled


FCharWidth : integer;

Character width


FDisplayText : string;

Text to display


FFillChar : char;

Spacing char


FFontChars : string;

Xlate table


FNCharsWide : integer;

Width of label in chars


FUpperCase : boolean;

true = force text uppercase