[Overview][Types][Classes][Procedures and functions][Index] Reference for unit 'ExtCtrls' (#lcl)

TCustomControlBar

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Declaration

Source position: extctrls.pp line 1446

type TCustomControlBar = class(TCustomPanel) end;

protected

Const

  cBandBorderH = cBandBorderH; = 4

  cBandBorderV = cBandBorderV; = 2

  cGrabWidth = cGrabWidth; = 3

  cFullGrabber: SmallInt;

  FBands: TCtrlBands;

  FBandMove: TBandMove;

  FCursorLock: Boolean;

  FDefCursor: TCursor;

  FHoveredBand: TCtrlBand;

  FInitDrag: TPoint;

  FInnerBevelWidth: SmallInt;

  FLockResize: Boolean;

  FPrevWidth: Integer;

  FVisiBands: ;

  FVisiBandsEx: ;

  procedure AlignControlToBand();

  procedure AlignControlsToBands;

  function CalcBandHeight();

  function CalcBandHeightSnapped();

  function CalcInnerBevelWidth;

  function CalcLowestBandBottomPx;

  procedure CalculatePreferredSize(); override;

  procedure ChangeCursor();

  procedure CheckBandsSizeAndVisibility;

  procedure CMBiDiModeChanged(); message;

  procedure CMBorderChanged(); message;

  procedure CreateWnd; override;

  procedure DoBandMove(); virtual;

  procedure DoBandPaint(); virtual;

  function DragControl(); virtual;

  procedure DragOver(); override;

  procedure GetControlInfo(); virtual;

  class constructor InitializeClass;

  procedure InitializeBand();

  procedure InitializeMove();

  procedure Loaded; override;

  function IsBandOverlap();

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure MoveBand();

  procedure NormalizeRows;

  procedure Paint; override;

  procedure PictureChanged();

  procedure Resize; override;

  procedure SetCursor(); override;

  procedure ShiftBands();

  procedure SortVisibleBands;

  procedure WMSize(); message;

public

  FUpdateCount: SmallInt;

  constructor Create(); override;

  destructor Destroy; override;

  procedure BeginUpdate;

  procedure EndUpdate;

  procedure FlipChildren(); override;

  function HitTest();

  procedure InsertControl(); override;

  function MouseToBandPos();

  procedure RemoveControl(); override;

  procedure StickControls; virtual;

  property AutoDock: Boolean; [rw]

  property AutoDrag: Boolean; [rw]

  property AutoSize: Boolean;

  property DockSite: Boolean;

  property DrawingStyle: TBandDrawingStyle; [rw]

  property GradientDirection: TGradientDirection; [rw]

  property GradientStartColor: TColor; [rw]

  property GradientEndColor: TColor; [rw]

  property Picture: TPicture; [rw]

  property RowSize: TRowSize; [rw]

  property RowSnap: Boolean; [rw]

  property OnBandDrag: TBandDragEvent; [rw]

  property OnBandInfo: TBandInfoEvent; [rw]

  property OnBandMove: TBandMoveEvent; [rw]

  property OnBandPaint: TBandPaintEvent; [rw]

  property OnCanResize: TCanResizeEvent; [rw]

  property OnPaint: TNotifyEvent; [rw]

Inheritance

TCustomControlBar

|

TCustomPanel

  

The base class for a general container which can hold other objects. It has a customizable border and a central text.

|

TCustomControl

  

The base class for windowed controls which paint themselves.

|

TWinControl

  

The base class for controls which can contain other (child) controls.

|

TControl

  

The base class for visible controls.

|

TLCLComponent

  

The base class for LCL components associated with widgets.

|

TComponent

?

TObject

The latest version of this document can be found at lazarus-ccr.sourceforge.net.