| Class TNoShape (unit Noshape) |
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);
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);
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;