Class TDragBar (unit DragBar) |
Inherits from
TCustomPanel
constructor Create(AOwner: TComponent);
- ==============================================================================
procedure SetParent(Value: TWinControl);
property OnStartDrag; {overwritten inherited propertiesof 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);
==============================================================================
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 :
event OnClick :
event OnResize :
property OnDblClick; property OnDragDrop; property OnDragOver; property OnEndDrag; property OnEnter; property OnExit; property OnMouseDown; property OnMouseMove; property OnMouseUp;
BarMoving : boolean;
Public declarations
Falign : TAlign;
FAttachedWindow : TControl;
FBarStyle : TBarStyle;
Private declarations
FBarType : TBarType;
LastRect : TRect;
MouseOffsetX : integer;
MouseOffsetY : integer;
constructor Create(AOwner: TComponent);
==============================================================================
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);
==============================================================================
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 :
event OnClick :
event OnResize :
property OnDblClick; property OnDragDrop; property OnDragOver; property OnEndDrag; property OnEnter; property OnExit; property OnMouseDown; property OnMouseMove; property OnMouseUp;
BarMoving : boolean;
Public declarations
Falign : TAlign;
FAttachedWindow : TControl;
FBarStyle : TBarStyle;
Private declarations
FBarType : TBarType;
LastRect : TRect;
MouseOffsetX : integer;
MouseOffsetY : integer;