Class TCustomAdvPanel (unit AdvPanel)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure AlignControls(AControl: TControl; var Rect: TRect);


procedure CreateParams(var Params: TCreateParams);


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

erase old rect

procedure Paint;

erase old rect

procedure Resize;


procedure CMCtl3DChanged(var Message: TMessage);


procedure CMIsToolControl(var Message: TMessage);


procedure CMTextChanged(var Message: TMessage);


procedure DrawResizerRect(ScreenPos: TPoint);


function GetFrameSize : integer;


function GetHandleRect : TRect;


procedure SetAlignment(Value: TAlignment);

draw the resize handle

procedure SetFrameStyle(Value: TFrameStyle);


procedure SetFrameWidth(Value: TFrameWidth);


procedure SetHandleSize(Value: THandleSize);


procedure SetHandleStyle(Value: THandleStyle);


procedure WMWindowPosChanged(var Message: TWMWindowPosChanged);


Properties

property Alignment : TAlignment


property Color :


property FrameStyle : TFrameStyle


property FrameWidth : TFrameWidth


property FullRepaint : Boolean


property HandleSize : THandleSize


property HandleStyle : THandleStyle


property Locked : Boolean


property MinSize : integer


property ParentColor :


Events

event OnResize : TNotifyEvent


Variables

FAlignment : TAlignment;


FFrameStyle : TFrameStyle;


FFrameWidth : TFrameWidth;


FFullRepaint : Boolean;


FHandleSize : THandleSize;


FHandleStyle : THandleStyle;


FLocked : Boolean;


FMinSize : integer;


FOnResize : TNotifyEvent;


FResizing : boolean;


OldMousePos : TPoint;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure AlignControls(AControl: TControl; var Rect: TRect);


procedure CreateParams(var Params: TCreateParams);


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

erase old rect


procedure Paint;

erase old rect


procedure Resize;


procedure CMCtl3DChanged(var Message: TMessage);


procedure CMIsToolControl(var Message: TMessage);


procedure CMTextChanged(var Message: TMessage);


procedure DrawResizerRect(ScreenPos: TPoint);


function GetFrameSize : integer;


function GetHandleRect : TRect;


procedure SetAlignment(Value: TAlignment);

draw the resize handle


procedure SetFrameStyle(Value: TFrameStyle);


procedure SetFrameWidth(Value: TFrameWidth);


procedure SetHandleSize(Value: THandleSize);


procedure SetHandleStyle(Value: THandleStyle);


procedure WMWindowPosChanged(var Message: TWMWindowPosChanged);


Properties


property Alignment : TAlignment


property Color :


property FrameStyle : TFrameStyle


property FrameWidth : TFrameWidth


property FullRepaint : Boolean


property HandleSize : THandleSize


property HandleStyle : THandleStyle


property Locked : Boolean


property MinSize : integer


property ParentColor :


Events


event OnResize : TNotifyEvent


Variables


FAlignment : TAlignment;


FFrameStyle : TFrameStyle;


FFrameWidth : TFrameWidth;


FFullRepaint : Boolean;


FHandleSize : THandleSize;


FHandleStyle : THandleStyle;


FLocked : Boolean;


FMinSize : integer;


FOnResize : TNotifyEvent;


FResizing : boolean;


OldMousePos : TPoint;