Unit JPicture |
TJPicture v1.00 by James Hargrave (hargrave@mep.com) Vancouver, BC Canada --------------------------------------------------------------------------- Copyright 1995 by Minds Edge Productions Inc. (info@mep.com) --------------------------------------------------------------------------- This Delphi control is freeware (ie. maybe used 100% free of charge) if you find it useful or have any: comments,source/controls of your own,bugs, suggestions, or anything please let me know. The author accepts no responsibility for its use or misuse. --------------------------------------------------------------------------- Thanks to: Paul Thiessen, Eddie Karsai, Green Day (for keeping the dust out of my CD-ROM (and play'n some excellent tunes)), Elvis, the writers for the Simpsons and the Tick, and every and anyone who uses Delphi. --------------------------------------------------------------------------- This is my very first delphi control so please send me your comments. I am releasing this in hopes that it will help someone learn more about Delphi which in turn will help spread the use of Borlands greatest creation to date. --------------------------------------------------------------------------- PERPOSE: This control was designed because I wanted a way to display two bitmaps depending on a certain state. Origionally I had two bitmaps on top of each other and would hide the one I didn't want showen. This control makes it a little cleaner. --------------------------------------------------------------------------- PROPERTIES: This class is inherited from TGraphicControl so has all of it's properties plus a few redeclarations. The following are new key properties: PictureOne : TBitMap - Picture Number one PictureTwo : TBitMap - Picture Number two CurrentPicture : BYTE - Which picture is currently being displayed ( 1 = PictureOne 2 = PictureTwo anything else clears the picture (ie. displays nothing) ToggleOnClick : BOOLEAN - Does clicking on the picture toggle between PictureOne and PictureTwo Stretch : BOOLEAN - Do the pictures stretch to fit the control AutoSize : BOOLEAN - Should the height and width of the control match the bitmap. ---------------------------------------------------------------------------
Classes |
Functions |
Register - Modified (see the Click Procedure
--------------------------------------------------------------------------
Types |
Constants |
Variables |
Functions |
--------------------------------------------------------------------------
Types |
Constants |
Variables |