Unit Holmain

Classes

TForm1 -

Functions

Types

Constants

Variables

BackColor
Form1
Form1HeightSmall
Form1HeightTall
OneForm
Ymax
Ymin


Functions


Types


Constants


Variables

BackColor : TColor

Form1 : TForm1

Form1HeightSmall : Integer

Form1HeightTall : Integer

OneForm : Boolean

Spots Holiday was one of my earlier Delphi programs. It's not very OOPsie and I almost didn't release the source code for that reason. It has duplicated code and globals and all that bad stuff. I did, however, work out a SIMPLE technique for creating a bitmap mask on the fly for bitmaps that already had a black background so I thought it would be worthwhile to release it. I'm sure others have worked this out also, I just haven't seen it anywhere. Anyway, if I took the time to redo the code, this would never get released... I already missed Halloween and never got around to releasing my silly little laughing pumpkin. Oh well. BTW, the Paintbox is not necessary. It all works fine straight on the canvas. I think I added it to test something and never took it out. I also use a unit called PREVINST which I got from the net...perhaps the mailing list. For the life of me, I don't know who wrote it but I thank him/her for it. This is all free and feel free to use whatever you can from the source. If you like it, you could drop me a note. I had fun doing it, which is really the point anyway. There are many ways I'd like to enhance this program...not the least of which is get employment so I can purchase ImageLib and save the pics as something other than bulky .bmps. Also I'm not saving what's drawn to redraw during Paint. When Paint is called, the drawing simply starts over. I felt it was okay for a toy such as this. Enjoy! Sylvia Lutnes aka cricket@richmond.infi.net 12/95

Ymax : integer

Ymin : integer