Class TJPicture (unit JPicture)

Inherits from

TGraphicControl

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 : 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 :


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;



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 : 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 :


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;