Class TSecretPanel (unit RXCtrls)

Inherits from

TCustomPanel

TSecretPanel

Constructors


constructor Create(AOwner: TComponent);

TSecretPanel


Functions

destructor Destroy;


procedure Paint;


procedure StartPlay;

PaintText;

procedure StopPlay;


procedure TimerExpired(Sender: TObject);


procedure CMColorChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);


function GetInterval: Cardinal;


procedure GlyphChanged(Sender: TObject);


procedure LinesChanged(Sender: TObject);


procedure PaintGlyph;


procedure PaintText;


procedure RecalcDrawRect;


procedure SetActive(Value: Boolean);


procedure SetAlignment(Value: TAlignment);


procedure SetGlyph(Value: TBitmap);


procedure SetGlyphLayout(Value: TGlyphLayout);


procedure SetInterval(Value: Cardinal);


procedure SetLines(Value: TStrings);


procedure UpdateMemoryImage;


procedure WMSize(var Message: TMessage);


Properties

property Active : Boolean


property Align :


property Alignment : TAlignment


property BevelInner :


property BevelOuter :


property BevelWidth :


property BorderStyle :


property BorderWidth :


property Color :


property Ctl3D :


property Cycled : Boolean


property DragCursor :


property DragMode :


property Font :


property Glyph : TBitmap


property GlyphLayout : TGlyphLayout


property Interval : Cardinal


property Lines : TStrings


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property TextStyle : TPanelBevel


property Visible :


property Canvas :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnResize :


event OnStartDrag :


event OnStartPlay : TNotifyEvent


event OnStopPlay : TNotifyEvent


Variables

FActive : Boolean;


FAlignment : TAlignment;


FCycled : Boolean;


FGlyph : TBitmap;


FGlyphLayout : TGlyphLayout;


FGlyphOrigin : TPoint;


FHiddenList : TList;


FLines : TStrings;


FMemoryImage : TBitmap;


FOnStartPlay : TNotifyEvent;


FOnStopPlay : TNotifyEvent;


FScrollCnt : Integer;


FTextStyle : TPanelBevel;


FTimer : TRxTimer;


FTxtDivider : Byte;


FTxtRect : TRect;



Constructors


constructor Create(AOwner: TComponent);

TSecretPanel


Functions


destructor Destroy;


procedure Paint;


procedure StartPlay;

PaintText;


procedure StopPlay;


procedure TimerExpired(Sender: TObject);


procedure CMColorChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);


function GetInterval: Cardinal;


procedure GlyphChanged(Sender: TObject);


procedure LinesChanged(Sender: TObject);


procedure PaintGlyph;


procedure PaintText;


procedure RecalcDrawRect;


procedure SetActive(Value: Boolean);


procedure SetAlignment(Value: TAlignment);


procedure SetGlyph(Value: TBitmap);


procedure SetGlyphLayout(Value: TGlyphLayout);


procedure SetInterval(Value: Cardinal);


procedure SetLines(Value: TStrings);


procedure UpdateMemoryImage;


procedure WMSize(var Message: TMessage);


Properties


property Active : Boolean


property Align :


property Alignment : TAlignment


property BevelInner :


property BevelOuter :


property BevelWidth :


property BorderStyle :


property BorderWidth :


property Color :


property Ctl3D :


property Cycled : Boolean


property DragCursor :


property DragMode :


property Font :


property Glyph : TBitmap


property GlyphLayout : TGlyphLayout


property Interval : Cardinal


property Lines : TStrings


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property TextStyle : TPanelBevel


property Visible :


property Canvas :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnResize :


event OnStartDrag :


event OnStartPlay : TNotifyEvent


event OnStopPlay : TNotifyEvent


Variables


FActive : Boolean;


FAlignment : TAlignment;


FCycled : Boolean;


FGlyph : TBitmap;


FGlyphLayout : TGlyphLayout;


FGlyphOrigin : TPoint;


FHiddenList : TList;


FLines : TStrings;


FMemoryImage : TBitmap;


FOnStartPlay : TNotifyEvent;


FOnStopPlay : TNotifyEvent;


FScrollCnt : Integer;


FTextStyle : TPanelBevel;


FTimer : TRxTimer;


FTxtDivider : Byte;


FTxtRect : TRect;