Class TForm1 (unit Demounit)

Inherits from

TForm

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);


procedure BitBtn2Click(Sender: TObject);


procedure BitBtn3Click(Sender: TObject);


procedure BitBtn4Click(Sender: TObject);

note: Mask bitmap should NOT be monochrome, if you want TransparentColor take effect.

procedure Fire1Click(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure RadioButton1Click(Sender: TObject);


Properties

Events

Variables

Bevel2 : TBevel;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BitBtn3 : TBitBtn;


BitBtn4 : TBitBtn;


CheckBox1 : TCheckBox;


Fire1 : TFire;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Panel1 : TPanel;


Shape1 : TShape;


Shape2 : TShape;


Shape3 : TShape;


Shape4 : TShape;


Bitmap : TBitmap;

Private declarations


Constructors


Functions


procedure BitBtn1Click(Sender: TObject);


procedure BitBtn2Click(Sender: TObject);


procedure BitBtn3Click(Sender: TObject);


procedure BitBtn4Click(Sender: TObject);

note: Mask bitmap should NOT be monochrome, if you want TransparentColor take effect.


procedure Fire1Click(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure RadioButton1Click(Sender: TObject);


Properties


Events


Variables


Bevel2 : TBevel;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BitBtn3 : TBitBtn;


BitBtn4 : TBitBtn;


CheckBox1 : TCheckBox;


Fire1 : TFire;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Panel1 : TPanel;


Shape1 : TShape;


Shape2 : TShape;


Shape3 : TShape;


Shape4 : TShape;


Bitmap : TBitmap;

Private declarations