TForm1 -
BackColor
Form1
Form1HeightSmall
Form1HeightTall
OneForm
Ymax
Ymin
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