Class TDragBar (unit DragBar)

Inherits from

TCustomPanel

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 : TBarStyle

New 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;



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 : TBarStyle

New 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;