Class TExplodeForm (unit Explform)

Inherits from

TComponent

Constructors


constructor Create( AOwner: TComponent );



Functions

procedure SetSourceCenter;

Find the form that owner the component

procedure SetSourceRect( SourceControl : TControl );


procedure HideForm( Dc: Hdc; Source: TControl; Dest: TForm; Steps: Integer );


procedure MyOnHide(Sender: TObject);


procedure MyOnPaint(Sender: TObject);

Execute the form's OnShow

procedure MyOnShow(Sender: TObject);


procedure ShowForm( Dc: Hdc; Source: TControl; Dest: TForm; Steps: Integer );


procedure SetExplode( Value: TExplodeType );


procedure SetShow( Value: TShowType );

redirect the event to my component

Properties

property ExplodeType : TExplodeType


property ShowType : TShowType


property SourceControl : TControl


property SourceHeight : integer


property SourceLeft : integer


property SourceTop : integer


property SourceWidth : integer


property Steps : integer


Events

Variables

Dc : HDc;


Explode : boolean;


NewBrush : HBrush;


NewPen : HPen;


OldBrush : HBrush;


OldPen : HPen;


OldROP : Integer;


FExplodeType : TExplodeType;


FShowType : TShowType;


FSource : TControl;


FSourceHeight : Integer;


FSourceLeft : Integer;


FSourceTop : Integer;


FSourceWidth : Integer;


FSteps : integer;


OwnerOnHide : TNotifyEvent;


OwnerOnPaint : TNotifyEvent;


OwnerOnShow : TNotifyEvent;



Constructors


constructor Create( AOwner: TComponent );


Functions


procedure SetSourceCenter;

Find the form that owner the component


procedure SetSourceRect( SourceControl : TControl );


procedure HideForm( Dc: Hdc; Source: TControl; Dest: TForm; Steps: Integer );


procedure MyOnHide(Sender: TObject);


procedure MyOnPaint(Sender: TObject);

Execute the form's OnShow


procedure MyOnShow(Sender: TObject);


procedure ShowForm( Dc: Hdc; Source: TControl; Dest: TForm; Steps: Integer );


procedure SetExplode( Value: TExplodeType );


procedure SetShow( Value: TShowType );

redirect the event to my component


Properties


property ExplodeType : TExplodeType


property ShowType : TShowType


property SourceControl : TControl


property SourceHeight : integer


property SourceLeft : integer


property SourceTop : integer


property SourceWidth : integer


property Steps : integer


Events


Variables


Dc : HDc;


Explode : boolean;


NewBrush : HBrush;


NewPen : HPen;


OldBrush : HBrush;


OldPen : HPen;


OldROP : Integer;


FExplodeType : TExplodeType;


FShowType : TShowType;


FSource : TControl;


FSourceHeight : Integer;


FSourceLeft : Integer;


FSourceTop : Integer;


FSourceWidth : Integer;


FSteps : integer;


OwnerOnHide : TNotifyEvent;


OwnerOnPaint : TNotifyEvent;


OwnerOnShow : TNotifyEvent;