Class TD3KBitmappedLabel (unit D3KBmLbl) |
Inherits from
TCustomPanel
constructor Create( AOwner: TComponent );
- Constructor
Constructor
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
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
event OnClick :
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
constructor Create( AOwner: TComponent );
Constructor
Constructor
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
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
event OnClick :
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