[Overview][Types][Classes][Procedures and functions][Index] Reference for unit 'ExtCtrls' (#lcl)

TBevel

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

A bevel placed around the edge of buttons and other components

Declaration

Source position: extctrls.pp line 610

type TBevel = class(TGraphicControl) end;

protected

  class procedure WSRegisterClass; override;

  

Registers this component class with the current WidgetSet.

  class function GetControlClassDefaultSize; override;

  procedure Paint; override;

  

Override this method with your own painting code.

public

  constructor Create(); override;

  

Create - constructor for TBevel: calls inherited Create then sets initial style, shape and bounds

  destructor Destroy; override;

  procedure Assign(); override;

published

  property Align: TAlign;

  

Specifies the placement of the control inside its Parent.

  property Anchors: TAnchors;

  

The set of anchor definitions for this control.

  property BorderSpacing: TControlBorderSpacing;

  

Determines the inner and outer border spacing for this control.

  property Constraints: TSizeConstraints;

  

The minimal and maximal Width and Height of this control.

  property ParentShowHint: Boolean;

  property Shape: TBevelShape; [rw]

  

Shape - whether a box, a frame or a line along one of the edges

  property ShowHint: Boolean;

  property Style: TBevelStyle; [rw]

  

Style - whether raised or lowered

  property Visible: Boolean;

  

Allows to show or hide the control, and all of its children.

  property OnChangeBounds: TNotifyEvent;

  

Event handler for a change of the Bounds of the control.

  property OnResize: TNotifyEvent;

  

Notification handler for a resize of the control.

  property OnMouseDown: TMouseEvent;

  

Event handler for mouse button going down.

  property OnMouseEnter: TNotifyEvent;

  property OnMouseLeave: TNotifyEvent;

  property OnMouseMove: TMouseMoveEvent;

  

Event handler for mouse movement within the control.

  property OnMouseUp: TMouseEvent;

  

Event handler for mouse button going up.

  property OnMouseWheel: TMouseWheelEvent;

  property OnMouseWheelDown: TMouseWheelUpDownEvent;

  property OnMouseWheelUp: TMouseWheelUpDownEvent;

  property OnPaint: TNotifyEvent;

  

Supply your own OnPaint handler for painting the control.

Inheritance

TBevel

  

A bevel placed around the edge of buttons and other components

|

TGraphicControl

  

TGraphicControl is the base class for all lightweight controls.

|

TControl

  

The base class for visible controls.

|

TLCLComponent

  

The base class for LCL components associated with widgets.

|

TComponent

?

TObject

Description

Its appearance is governed by TBevelShape and TBevelStyle

The latest version of this document can be found at lazarus-ccr.sourceforge.net.