Class TForm1 (unit Holmain) |
Inherits from
TForm
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
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;
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
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;