Thanks! Now i have an image button with 3 pictures (normal, mouse over, mouse down)
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Image1: TImage;
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseEnter(Sender: TObject);
procedure Image1MouseLeave(Sender: TObject);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
picture1: TPicture;
picture2: TPicture;
picture3: TPicture;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
Image1.Picture.Assign(picture2);
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Picture.Assign(picture3);
end;
procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
Image1.Picture.Assign(picture1);
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Picture.Assign(picture2);
end;
initialization
{normal}
picture1:=TPicture.Create;
picture1.LoadFromFile('1.png');
{mouse over}
picture2:=TPicture.Create;
picture2.LoadFromFile('2.png');
{mouse down}
picture3:=TPicture.Create;
picture3.LoadFromFile('3.png');
end.