Class TJPicture (unit JPicture) |
Inherits from
TGraphicControl
constructor Create (AOwner : TComponent);
- Public declarations
--------------------------------------------------------------------------
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);
--------------------------------------------------------------------------
property About : TAboutBoxObject
Published 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 : TBitMap
Thanks to Martyn Dowsett
property PictureTwo : TBitMap
property PopUpMenu :
property ShowHint :
property Stretch : BOOLEAN
property ToggleOnClick : BOOLEAN
property Visible :
property Width :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
Events
event OnMouseMove :
event OnMouseUp :
FAbout : TAboutBoxObject;
Private declarations
FAutoSize : BOOLEAN;
FCurrentPicture : BYTE;
FPictureOne : TBitMap;
FPictureTwo : TBitMap;
FStretch : BOOLEAN;
FToggleOnClick : BOOLEAN;
constructor Create (AOwner : TComponent);
Public declarations
--------------------------------------------------------------------------
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);
--------------------------------------------------------------------------
property About : TAboutBoxObject
Published 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 : TBitMap
Thanks to Martyn Dowsett
property PictureTwo : TBitMap
property PopUpMenu :
property ShowHint :
property Stretch : BOOLEAN
property ToggleOnClick : BOOLEAN
property Visible :
property Width :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
Events
event OnMouseMove :
event OnMouseUp :
FAbout : TAboutBoxObject;
Private declarations
FAutoSize : BOOLEAN;
FCurrentPicture : BYTE;
FPictureOne : TBitMap;
FPictureTwo : TBitMap;
FStretch : BOOLEAN;
FToggleOnClick : BOOLEAN;