Class: TmlImage

TGraphicControl ----+
               |
           TmlImage

Description:
This control inheritan from standard TImage. Also it allows show picture with some effects

Unit:
effects (effects.pas)

Constructors:

constructor Create( AOwner: TComponent ); override;

Propertys:

property Canvas: TCanvas read GetCanvas;
property Align;
property AutoSize: Boolean read FAutoSize write SetAutoSize default False;
property Center: Boolean read FCenter write SetCenter default False;
property Direct: TDirect read FDirect write SetDirect;
property DragCursor;
property DragMode;
property Enabled;
property Effect: TEffect read FEffect write SetEffect;
Show effect
property IncrementalDisplay: Boolean read FIncrementalDisplay write FIncrementalDisplay default False;
property ParentShowHint;
property Picture: TPicture read FPicture write SetPicture;
property PopupMenu;
property ShowHint;
property Stretch: Boolean read FStretch write SetStretch default False;
property Transparent: Boolean read FTransparent write SetTransparent default False;
property Visible;
property OnClick;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnStartDrag;

Methods:

function DestRect: TRect;
procedure Paint; override;
destructor Destroy; override;
procedure Diagonal;
Function for start "diagonal" effect
procedure Rect;
Function for start "rectangle" effect
procedure Circle;
Function for start "circle" effect
procedure VertLine;
Function for start "vertline" effect
procedure HorzLine;
Function for start "horz line" effect

constructor Create( AOwner: TComponent ); override;


property Canvas: TCanvas read GetCanvas;


property Align;


property AutoSize: Boolean read FAutoSize write SetAutoSize default False;


property Center: Boolean read FCenter write SetCenter default False;


property Direct: TDirect read FDirect write SetDirect;


property DragCursor;


property DragMode;


property Enabled;


property Effect: TEffect read FEffect write SetEffect;

Show effect


property IncrementalDisplay: Boolean read FIncrementalDisplay write FIncrementalDisplay default False;


property ParentShowHint;


property Picture: TPicture read FPicture write SetPicture;


property PopupMenu;


property ShowHint;


property Stretch: Boolean read FStretch write SetStretch default False;


property Transparent: Boolean read FTransparent write SetTransparent default False;


property Visible;


property OnClick;


property OnDblClick;


property OnDragDrop;


property OnDragOver;


property OnEndDrag;


property OnMouseDown;


property OnMouseMove;


property OnMouseUp;


property OnStartDrag;


function DestRect: TRect;


procedure Paint; override;


destructor Destroy; override;


procedure Diagonal;

Function for start "diagonal" effect


procedure Rect;

Function for start "rectangle" effect


procedure Circle;

Function for start "circle" effect


procedure VertLine;

Function for start "vertline" effect


procedure HorzLine;

Function for start "horz line" effect