TSecretPanel

type TSecretPanel = class(TCustomPanel)

protected

  procedure AlignControls(); override;

  procedure Paint; override;

  procedure PaintClient(); virtual;

  procedure TimerExpired(); virtual;

  procedure StartPlay; dynamic;

  procedure StopPlay; dynamic;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Play;

  procedure Stop;

  property Canvas;

published

  property AsyncDrawing: Boolean; [rw]

  property Active: Boolean; [rw]

  property Alignment: TAlignment; [rw]

  property Cycled: Boolean; [rw]

  property Glyph: TBitmap; [rw]

  property GlyphLayout: TGlyphLayout; [rw]

  property Interval: Cardinal; [rw]

  property Lines: TStrings; [rw]

  property ScrollDirection: TScrollDirection; [rw]

  property TextStyle: TPanelBevel; [rw]

  property Anchors;

  property Constraints;

  property DragKind;

  property BiDiMode;

  property ParentBiDiMode;

  property Align;

  property BevelInner;

  property BevelOuter;

  property BevelWidth;

  property BorderWidth;

  property BorderStyle;

  property DragCursor;

  property DragMode;

  property Color;

  property Font;

  property ParentColor;

  property ParentFont;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property TabOrder;

  property TabStop;

  property Visible;

  property OnPaintClient: TPanelDrawEvent; [rw]

  property OnStartPlay: TNotifyEvent; [rw]

  property OnStopPlay: TNotifyEvent; [rw]

  property OnClick;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDrag;

  property OnEnter;

  property OnExit;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnStartDrag;

  property OnContextPopup;

  property OnEndDock;

  property OnStartDock;

  property OnResize;

end;

TSecretPanel

TObject