| Class TForm1 (unit Demounit) |
TForm
| Constructors |
| Functions |
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
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;| 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