Class TRebar (unit Rebar) |
Inherits from
TCustomPanel
constructor Create(AOwner:TComponent);
- Public declarations
TRebar
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);
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 :
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 :
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;
constructor Create(AOwner:TComponent);
Public declarations
TRebar
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);
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 :
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 :
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;