| Class TJPicture (unit JPicture) |
TGraphicControl
| Constructors |
constructor Create (AOwner : TComponent);--------------------------------------------------------------------------
| Functions |
function CurrentPicHeight : INTEGER;
function CurrentPicWidth : INTEGER;
destructor Destroy;
procedure Click;--------------------------------------------------------------------------
procedure Paint;--------------------------------------------------------------------------
procedure SetAutoSize (NewAutoSize : BOOLEAN);
procedure SetCurrentPicture (PicToSet : BYTE);
procedure SetPictureOne (PicOne : TBitMap);
procedure SetPictureTwo (PicTwo : TBitMap);
procedure SetStretch (NewStretch : BOOLEAN);
procedure SetToggleOnClick (ToggleToSet : BOOLEAN);| Properties |
property About : TAboutBoxObject
property Align :
property AutoSize : BOOLEAN
property CurrentPicture : BYTE
property DragCursor :
property DragMode :
property Enabled :
property Height :
property ParentShowHint :
property PictureOne : TBitMap
property PictureTwo : TBitMap
property PopUpMenu :
property ShowHint :
property Stretch : BOOLEAN
property ToggleOnClick : BOOLEAN
property Visible :
property Width : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FAbout : TAboutBoxObject;
FAutoSize : BOOLEAN;
FCurrentPicture : BYTE;
FPictureOne : TBitMap;
FPictureTwo : TBitMap;
FStretch : BOOLEAN;
FToggleOnClick : BOOLEAN;| Constructors |
constructor Create (AOwner : TComponent);Public declarations
--------------------------------------------------------------------------
| Functions |
function CurrentPicHeight : INTEGER;--------------------------------------------------------------------------
function CurrentPicWidth : INTEGER;--------------------------------------------------------------------------
destructor Destroy;--------------------------------------------------------------------------
procedure Click;Called on WM_PAINT message
--------------------------------------------------------------------------
procedure Paint;Protected declarations
--------------------------------------------------------------------------
procedure SetAutoSize (NewAutoSize : BOOLEAN);--------------------------------------------------------------------------
procedure SetCurrentPicture (PicToSet : BYTE);--------------------------------------------------------------------------
procedure SetPictureOne (PicOne : TBitMap);--------------------------------------------------------------------------
procedure SetPictureTwo (PicTwo : TBitMap);--------------------------------------------------------------------------
procedure SetStretch (NewStretch : BOOLEAN);--------------------------------------------------------------------------
procedure SetToggleOnClick (ToggleToSet : BOOLEAN);--------------------------------------------------------------------------
| Properties |
property About : TAboutBoxObjectPublished declarations } {New Properties
property Align :
property AutoSize : BOOLEAN
property CurrentPicture : BYTE
property DragCursor :
property DragMode :
property Enabled :
property Height : Inherited Properties
property ParentShowHint :
property PictureOne : TBitMapThanks to Martyn Dowsett
property PictureTwo : TBitMap
property PopUpMenu :
property ShowHint :
property Stretch : BOOLEAN
property ToggleOnClick : BOOLEAN
property Visible :
property Width : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown : Events
event OnMouseMove :
event OnMouseUp : | Variables |
FAbout : TAboutBoxObject;Private declarations
FAutoSize : BOOLEAN;
FCurrentPicture : BYTE;
FPictureOne : TBitMap;
FPictureTwo : TBitMap;
FStretch : BOOLEAN;
FToggleOnClick : BOOLEAN;