| Class TForm1 (unit Holmain) |
TForm
| Constructors |
| Functions |
procedure btnAboutClick(Sender: TObject);
procedure btnClearClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject);
procedure btnFormClick(Sender: TObject);
procedure BtnQuitClick(Sender: TObject);
procedure btnStopClick(Sender: TObject);
procedure DoShowHint(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure FormPaint(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
Procedure DrawBitmaps(s : string; f : integer);
procedure OneFormShoot;
procedure OneFormSpots(s : string);
procedure SpotGo;
procedure SpotStop;
procedure TwoFormShoot;
Procedure TwoFormSpots(s : string);
procedure TransDraw(f,x,y: Integer; s: TBitmap);
procedure WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);| Properties |
| Events |
| Variables |
Bells : TImage;
btnAbout : TButton;
btnClear : TButton;
btnDelete : TButton;
btnForm : TButton;
BtnQuit : TButton;
btnStop : TButton;
Candle : TImage;
Cane : TImage;
Flake : TImage;
Heart : TImage;
lbHidden : TListBox;
lblSpots : TLabel;
lblSquares : TLabel;
PaintBox1 : TPaintBox;
Panel1 : TPanel;
Panel2 : TPanel;
Shoot : TLabel;
Snowman : TImage;
Star : TImage;
Stocking : TImage;
TallTree : TImage;
Timer1 : TTimer;
Tree : TImage;
Wreath : TImage;| Constructors |
| Functions |
procedure btnAboutClick(Sender: TObject);
procedure btnClearClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject);
procedure btnFormClick(Sender: TObject);
procedure BtnQuitClick(Sender: TObject);Canvas.Brush.Color := RGB(Random(64),Random(64),Random(64));} {Canvas.Brush.Color := RGB(Random(255),Random(255),Random(255)); l := ColorToRGB(Canvas.Brush.Color); Canvas.Brush.Color := $02000000 or l; BackColor := Canvas.Brush.Color;
procedure btnStopClick(Sender: TObject);
procedure DoShowHint(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);SpotGo;
procedure FormPaint(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
Procedure DrawBitmaps(s : string; f : integer);
procedure OneFormShoot;
procedure OneFormSpots(s : string);
procedure SpotGo;
procedure SpotStop;Public declarations
procedure TwoFormShoot;
Procedure TwoFormSpots(s : string);
procedure TransDraw(f,x,y: Integer; s: TBitmap);I got the idea for this routine from Carl Mes and from Mark Johnson via the Delphi Talk Mailing List. After a lot of experimentation, I came up with the code for the mask. All my bitmaps have a black background so this works great! I didn't have to draw any separate masks to include with the program!
procedure WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);Private declarations
| Properties |
| Events |
| Variables |
Bells : TImage;
btnAbout : TButton;
btnClear : TButton;
btnDelete : TButton;
btnForm : TButton;
BtnQuit : TButton;
btnStop : TButton;
Candle : TImage;
Cane : TImage;
Flake : TImage;
Heart : TImage;
lbHidden : TListBox;
lblSpots : TLabel;
lblSquares : TLabel;
PaintBox1 : TPaintBox;
Panel1 : TPanel;
Panel2 : TPanel;
Shoot : TLabel;
Snowman : TImage;
Star : TImage;
Stocking : TImage;
TallTree : TImage;
Timer1 : TTimer;
Tree : TImage;
Wreath : TImage;