Class TPicClip (unit PicClip)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

TPicClip


Functions

destructor Destroy;


procedure Draw(Canvas: TCanvas; X, Y, Index: Integer);


procedure DrawCenter(Canvas: TCanvas; Rect: TRect; Index: Integer);


procedure LoadBitmapRes(Instance: THandle; ResID: PChar);


procedure Changed;


function GetCell(Index: Integer): TBitmap;


function GetDefaultMaskColor: TColor;


function GetHeight: Integer;


function GetWidth: Integer;


function IsMaskStored: Boolean;


procedure PictureChanged(Sender: TObject);


procedure SetHeight(Value: Integer);


procedure SetMaskColor(Value: TColor);


procedure SetPicture(Value: TPicture);


procedure SetWidth(Value: Integer);


Properties

property Cols : TCellRange


property Height : Integer


property MaskColor : TColor


property Masked : Boolean


property Picture : TPicture


property Rows : TCellRange


property Width : Integer


property GraphicCell : TBitmap


Events

event OnChange : TNotifyEvent


Variables

FBitmap : TBitmap;


FCols : TCellRange;


FMaskColor : TColor;


FMasked : Boolean;


FOnChange : TNotifyEvent;


FPicture : TPicture;


FRows : TCellRange;



Constructors


constructor Create(AOwner: TComponent);

TPicClip


Functions


destructor Destroy;


procedure Draw(Canvas: TCanvas; X, Y, Index: Integer);


procedure DrawCenter(Canvas: TCanvas; Rect: TRect; Index: Integer);


procedure LoadBitmapRes(Instance: THandle; ResID: PChar);


procedure Changed;


function GetCell(Index: Integer): TBitmap;


function GetDefaultMaskColor: TColor;


function GetHeight: Integer;


function GetWidth: Integer;


function IsMaskStored: Boolean;


procedure PictureChanged(Sender: TObject);


procedure SetHeight(Value: Integer);


procedure SetMaskColor(Value: TColor);


procedure SetPicture(Value: TPicture);


procedure SetWidth(Value: Integer);


Properties


property Cols : TCellRange


property Height : Integer


property MaskColor : TColor


property Masked : Boolean


property Picture : TPicture


property Rows : TCellRange


property Width : Integer


property GraphicCell : TBitmap


Events


event OnChange : TNotifyEvent


Variables


FBitmap : TBitmap;


FCols : TCellRange;


FMaskColor : TColor;


FMasked : Boolean;


FOnChange : TNotifyEvent;


FPicture : TPicture;


FRows : TCellRange;