| Class TD3KBitmappedLabel (unit D3KBmLbl) |
TCustomPanel
| Constructors |
constructor Create( AOwner: TComponent );Constructor
| Functions |
destructor Destroy;Destructor
procedure BitmapChanged( Sender: TObject );Called when bitmap changed
function GetText: string;Return text
procedure Paint;Paint the label
procedure Resize;Adjust label contents on resize
procedure SetBanner( Value: boolean );Enable/Disable banner mode
procedure SetBannerSpeed( Value: integer );Set banner speed (delay)
procedure SetBitmap( Value: TBitmap );Set font bitmap
procedure SetBlink( Value: boolean );Enable/Disable blinking
procedure SetCharWidth( Value: integer );Set character width
procedure SetFillChar( Value: char );Set spacing char
procedure SetFontChars( Value: string );Set character mapping table
procedure SetText( Value: string );Set text
procedure SetUpperCase( Value: boolean );Enable/Disable uppercase
procedure WMTimer( var Msg: TWMTimer );Timer proc
procedure Loaded;Init after load
| Properties |
property Align :
property Alignment :
property Banner : boolean
property BannerSpeed : integer
property BevelInner :
property BevelOuter :
property Blink : boolean
property BorderStyle :
property BorderWidth :
property CharWidth : integer
property Color :
property FillChar : char
property FontBitmap : TBitmap
property FontChars : string
property Text : string
property UpperCase : boolean
property NCharsWide : integer
property Caption : | Events |
event OnClick : | Variables |
BlinkCounter : integer;
FBanner : boolean;
FBannerCounter : integer;
FBannerSpeed : integer;
FBitmap : TBitmap;
FBlink : boolean;
FCharWidth : integer;
FDisplayText : string;
FFillChar : char;
FFontChars : string;
FNCharsWide : integer;
FUpperCase : boolean;| 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 : booleanSet true to enable banner mode (scrolling)
property BannerSpeed : integerBanner speed (milliseconds delay)
property BevelInner :
property BevelOuter :
property Blink : booleanSet true to enable blinking
property BorderStyle :
property BorderWidth :
property CharWidth : integerCharacter width (pixels)
property Color :
property FillChar : charSpacing char
property FontBitmap : TBitmapFont bitmap
property FontChars : stringCharacter mapping table
property Text : stringText
property UpperCase : booleanSet true to force text uppercase
property NCharsWide : integerReturns 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