| Class TExplodeForm (unit Explform) |
TComponent
| Constructors |
constructor Create( AOwner: TComponent );| Functions |
procedure SetSourceCenter;
procedure SetSourceRect( SourceControl : TControl );
procedure HideForm( Dc: Hdc; Source: TControl; Dest: TForm; Steps: Integer );
procedure MyOnHide(Sender: TObject);
procedure MyOnPaint(Sender: TObject);
procedure MyOnShow(Sender: TObject);
procedure ShowForm( Dc: Hdc; Source: TControl; Dest: TForm; Steps: Integer );
procedure SetExplode( Value: TExplodeType );
procedure SetShow( Value: TShowType );| 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;