unit ExtImage;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TExtImage = class(TImage)
  private
    { Private declarations }
    FOnMouseEnter: TNotifyEvent;  //Make the Mouse Enter and Leave available
    FOnMouseLeave: TNotifyEvent;
    FPicture1:TPicture;
    FPicture2:TPicture;
    procedure CMMouseEnter(var Msg:TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Msg:TMessage); message CM_MOUSELEAVE;
    procedure SetPicture1(P:TPicture);
    procedure SetPicture2(P:TPicture);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter
        write FOnMouseEnter;   //These show up in events
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave
        write FOnMouseLeave;
    property  Picture1:TPicture read FPicture1 write SetPicture1;
    property  Picture2:TPicture read FPicture2 write SetPicture2;
  end;

procedure Register;

implementation

procedure TExtImage.CMMouseEnter(var Msg:TMessage);
begin
  inherited;
  Picture.Assign(Picture2);
  if Assigned (FOnMouseEnter) then FOnMouseEnter(Self);
end;

procedure TExtImage.CMMouseLeave(var Msg:TMessage);
begin
  inherited;
  Picture.Assign(Picture1);
  if Assigned (FonMouseLeave) then FOnMouseLeave(Self);
end;

procedure TExtImage.SetPicture1;
begin
FPicture1.Assign(P);
Picture.Assign(p);
end;

procedure TExtImage.SetPicture2;
begin
FPicture2.Assign(P);
Picture.Assign(p);
end;

constructor TExtImage.Create(AOwner: TComponent);
begin
inherited;
FPicture1:=TPicture.Create;
FPicture2:=TPicture.Create;
end;


procedure Register;
begin
  RegisterComponents('Ray Adams', [TExtImage]);
end;

end.