Class TNoShape (unit Noshape)

Inherits from

TGraphicControl

mik 20/12/97 in-house unit

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure DefineProperties(Filer: TFiler);


procedure DrawButtonText(Canvas: TCanvas; const Caption: String; TextBounds: TRect; State: TButtonState);

DSo

function GetPalette: HPALETTE;


procedure Loaded;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure ReadBitmapDownData(Stream: TStream);


procedure ReadBitmapUpData(Stream: TStream);


procedure WriteBitmapDownData(Stream: TStream);


procedure WriteBitmapUpData(Stream: TStream);


procedure AdjustBounds;


function BevelColor(const AState: TButtonState; const TopLeft: Boolean): TColor;


procedure BitmapChanged(Sender: TObject);


procedure Click;


procedure CMDialogChar(var Message: TCMDialogChar);


procedure CMFontChanged(var Message: TMessage);


procedure CMSysColorChange(var Message: TMessage);


procedure CMTextChanged(var Message: TMessage);


procedure Create3DBitmap(Source: TBitmap; const AState: TButtonState; Target: TBitmap);

bsDown

destructor Destroy;


procedure Invalidate;


function PtInMask(const X, Y: Integer): Boolean;


procedure SetAutoSize(Value: Boolean);


procedure SetBitmap(Value: TBitmap);


procedure SetBitmapDown(Value: TBitmap);


procedure SetBitmapUp(Value: TBitmap);


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


Properties

property Bitmap : TBitmap


property Caption :


property Enabled :


property Font :


property ShowHint :


property Visible :


property BitmapDown : TBitmap


property BitmapUp : TBitmap


Events

event OnClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FState : TButtonState;


FAutoSize : Boolean;


FBitmap : TBitmap;


FBitmapDown : TBitmap;


FBitmapUp : TBitmap;


TempBitmap : TBitmap;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure DefineProperties(Filer: TFiler);


procedure DrawButtonText(Canvas: TCanvas; const Caption: String; TextBounds: TRect; State: TButtonState);

DSo


function GetPalette: HPALETTE;


procedure Loaded;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure ReadBitmapDownData(Stream: TStream);


procedure ReadBitmapUpData(Stream: TStream);


procedure WriteBitmapDownData(Stream: TStream);


procedure WriteBitmapUpData(Stream: TStream);


procedure AdjustBounds;


function BevelColor(const AState: TButtonState; const TopLeft: Boolean): TColor;


procedure BitmapChanged(Sender: TObject);


procedure Click;


procedure CMDialogChar(var Message: TCMDialogChar);


procedure CMFontChanged(var Message: TMessage);


procedure CMSysColorChange(var Message: TMessage);


procedure CMTextChanged(var Message: TMessage);


procedure Create3DBitmap(Source: TBitmap; const AState: TButtonState; Target: TBitmap);

bsDown


destructor Destroy;


procedure Invalidate;


function PtInMask(const X, Y: Integer): Boolean;


procedure SetAutoSize(Value: Boolean);


procedure SetBitmap(Value: TBitmap);


procedure SetBitmapDown(Value: TBitmap);


procedure SetBitmapUp(Value: TBitmap);


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


Properties


property Bitmap : TBitmap


property Caption :


property Enabled :


property Font :


property ShowHint :


property Visible :


property BitmapDown : TBitmap


property BitmapUp : TBitmap


Events


event OnClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FState : TButtonState;


FAutoSize : Boolean;


FBitmap : TBitmap;


FBitmapDown : TBitmap;


FBitmapUp : TBitmap;


TempBitmap : TBitmap;