Class TForm1 (unit Holmain)

Inherits from

TForm

Constructors



Functions

procedure btnAboutClick(Sender: TObject);


procedure btnClearClick(Sender: TObject);


procedure btnDeleteClick(Sender: TObject);


procedure btnFormClick(Sender: TObject);


procedure BtnQuitClick(Sender: TObject);

Canvas.

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.

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;



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;