Class TRebar (unit Rebar)

Inherits from

TCustomPanel

Constructors


constructor Create(AOwner:TComponent);

Public declarations

TRebar



Functions

destructor Destroy;


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 OnEnterGripper(Sender:TObject);


procedure OnExitGripper(Sender:TObject);


procedure OnGripperDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure OnGripperMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure OnGripperUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;

Protected declarations

procedure Resize;


procedure DoBevels;

TBevelBorders=(bfBottom,bfLeft,bfRight,bfTop,); TBevelEdge=(beEdge,beBump,beEtched,beSunken);

procedure DoHandleBar;

TTop + Canvas.

procedure DoText;

draw text

procedure SetBevelBorder(Value:TBevelBorders);


procedure SetBevelEdge(Value:TBevelEdge);


procedure SetCaption(Value:string);


procedure SetGripperStyle(Value:TGripperStyle);


procedure SetImage(Value:TBitmap);


Properties

property Align :


property Background : TBitmap

Published declarations

property BevelInner :


property BevelOuter :


property BevelWidth :


property BorderStyle :


property BorderWidth :


property Caption : string

property BevelBorder:TBevelBorders read FBevelBorder write SetBevelBorder; property BevelEdge:TBevelEdge read FBevelEdge write SetBevelEdge;

property Color :


property Cursor :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Gripper : TGripperStyle


property Height :


property HelpContext :


property Hint :


property Left :


property Name :


property ParentColor :


property ParentShowHint :


property ShowHint :


property Tag :


property Top :


property Visible :


property Width :


Events

event OnClick :


event OnCollapse : TCollapseEvent


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnGripperEnter : TNotifyEvent


event OnGripperExit : TNotifyEvent


event OnGripperMouseDown : TMouseEvent


event OnGripperMouseMove : TMouseMoveEvent


event OnGripperMouseUp : TMouseEvent


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnResize : TNotifyEvent


event OnStartDrag :


Variables

FBevelBorder : TBevelBorders;


FBevelEdge : TBevelEdge;


FCaption : string;


FCollapsable : boolean;


FGripper : TRebarGripper;


FGripperStyle : TGripperStyle;


FHandCursor : TCursor;

Private declarations

FImage : TBitmap;


FOnCollapse : TCollapseEvent;


FOnGripperDown : TMouseEvent;


FOnGripperEnter : TNotifyEvent;


FOnGripperExit : TNotifyEvent;


FOnGripperMove : TMouseMoveEvent;


FOnGripperUp : TMouseEvent;


FOnResize : TNotifyEvent;


FTxtRect : TRect;


Resizing : integer;



Constructors


constructor Create(AOwner:TComponent);

Public declarations

TRebar


Functions


destructor Destroy;


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 OnEnterGripper(Sender:TObject);


procedure OnExitGripper(Sender:TObject);


procedure OnGripperDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure OnGripperMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure OnGripperUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;

Protected declarations


procedure Resize;


procedure DoBevels;

TBevelBorders=(bfBottom,bfLeft,bfRight,bfTop,); TBevelEdge=(beEdge,beBump,beEtched,beSunken);


procedure DoHandleBar;

TTop + Canvas.TextHeight(FCaption


procedure DoText;

draw text


procedure SetBevelBorder(Value:TBevelBorders);


procedure SetBevelEdge(Value:TBevelEdge);


procedure SetCaption(Value:string);


procedure SetGripperStyle(Value:TGripperStyle);


procedure SetImage(Value:TBitmap);


Properties


property Align :


property Background : TBitmap

Published declarations


property BevelInner :


property BevelOuter :


property BevelWidth :


property BorderStyle :


property BorderWidth :


property Caption : string

property BevelBorder:TBevelBorders read FBevelBorder write SetBevelBorder; property BevelEdge:TBevelEdge read FBevelEdge write SetBevelEdge;


property Color :


property Cursor :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Gripper : TGripperStyle


property Height :


property HelpContext :


property Hint :


property Left :


property Name :


property ParentColor :


property ParentShowHint :


property ShowHint :


property Tag :


property Top :


property Visible :


property Width :


Events


event OnClick :


event OnCollapse : TCollapseEvent


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnGripperEnter : TNotifyEvent


event OnGripperExit : TNotifyEvent


event OnGripperMouseDown : TMouseEvent


event OnGripperMouseMove : TMouseMoveEvent


event OnGripperMouseUp : TMouseEvent


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnResize : TNotifyEvent


event OnStartDrag :


Variables


FBevelBorder : TBevelBorders;


FBevelEdge : TBevelEdge;


FCaption : string;


FCollapsable : boolean;


FGripper : TRebarGripper;


FGripperStyle : TGripperStyle;


FHandCursor : TCursor;

Private declarations


FImage : TBitmap;


FOnCollapse : TCollapseEvent;


FOnGripperDown : TMouseEvent;


FOnGripperEnter : TNotifyEvent;


FOnGripperExit : TNotifyEvent;


FOnGripperMove : TMouseMoveEvent;


FOnGripperUp : TMouseEvent;


FOnResize : TNotifyEvent;


FTxtRect : TRect;


Resizing : integer;