| Class TDragBar (unit DragBar) |
TCustomPanel
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure SetParent(Value: TWinControl);of Create} //==============================================================================
procedure CancelDrag;
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 Notification(AComponent: TComponent;
Operation: TOperation);
function GetAlign:TAlign;
function GetAlignedControl: TControl;
function GetBounds: TRect;
function PanelToParent(APoint: TPoint): TPoint;
procedure SetAlign(value:TAlign);
procedure SetAttachedWindow(Value: TControl);
procedure SetBarType(value: TBarType);| Properties |
property Align : TAlign
property Alignment :
property AttachedWindow : TControl
property BarStyle : TBarStyle
property BarType : TBarType
property BevelInner :
property BevelOuter :
property BevelWidth :
property BorderStyle :
property BorderWidth :
property Caption :
property Color :
property Ctl3D :
property Cursor :
property Enabled :
property Font :
property Height :
property Left :
property Locked :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property Width : | Events |
event OnClick :
event OnResize : | Variables |
BarMoving : boolean;
Falign : TAlign;
FAttachedWindow : TControl;
FBarStyle : TBarStyle;
FBarType : TBarType;
LastRect : TRect;
MouseOffsetX : integer;
MouseOffsetY : integer;| Constructors |
constructor Create(AOwner: TComponent);==============================================================================
| Functions |
procedure SetParent(Value: TWinControl);property OnStartDrag; {overwritten inherited properties
of Create} //==============================================================================
procedure CancelDrag;==============================================================================
procedure MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);Protected declarations
==============================================================================
procedure MouseMove(Shift: TShiftState; X, Y: Integer);==============================================================================
procedure MouseUp(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);==============================================================================
procedure Notification(AComponent: TComponent;
Operation: TOperation);==============================================================================
function GetAlign:TAlign;==============================================================================
function GetAlignedControl: TControl;============================================================================== Find near window, wont assign self Will only assign if itself is assigned
function GetBounds: TRect;==============================================================================
function PanelToParent(APoint: TPoint): TPoint;==============================================================================
procedure SetAlign(value:TAlign);==============================================================================
procedure SetAttachedWindow(Value: TControl);==============================================================================
procedure SetBarType(value: TBarType);==============================================================================
| Properties |
property Align : TAlign
property Alignment : property Align;
property AttachedWindow : TControl
property BarStyle : TBarStyleNew published declarations
property BarType : TBarType
property BevelInner :
property BevelOuter :
property BevelWidth : property BevelOuter;
property BorderStyle :
property BorderWidth :
property Caption :
property Color :
property Ctl3D :
property Cursor :
property Enabled : property DragCursor; property DragMode;
property Font :
property Height : inherited properties
property Left :
property Locked :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property Width : | Events |
event OnClick :
event OnResize : property OnDblClick; property OnDragDrop; property OnDragOver; property OnEndDrag; property OnEnter; property OnExit; property OnMouseDown; property OnMouseMove; property OnMouseUp;
| Variables |
BarMoving : boolean;Public declarations
Falign : TAlign;
FAttachedWindow : TControl;
FBarStyle : TBarStyle;Private declarations
FBarType : TBarType;
LastRect : TRect;
MouseOffsetX : integer;
MouseOffsetY : integer;