TCustomCoolBar.FVisiBands variable

FVisiBands: Array of TCoolBand = class(TCollectionItem)
private
 FCoolBar: TCustomCoolBar;
 FControl: TControl;
 FBitmap: TBitmap;
 FBorderStyle: TBorderStyle;
 FBreak: Boolean;
 FColor: TColor;
 FFixedBackground: Boolean;
 FFixedSize: Boolean;
 FHeight: Integer;
 FHorizontalOnly: Boolean;
 FImageIndex: TImageIndex;
 FMinHeight: Integer;
 FMinWidth: Integer;
 FParentBitmap: Boolean;
 FParentColor: Boolean;
 FRealLeft: Integer;
 FRealWidth: Integer;
 FText: TTranslateString;
 FVisible: Boolean;
 FWidth: Integer;
 FLeft: Integer;
 FTop: Integer;
 function IsBitmapStored: Boolean;
 function IsColorStored: Boolean;
 function GetRight: Integer;
 function GetVisible: Boolean;
 procedure SetBitmap(AValue: TBitmap);
 procedure SetBorderStyle(AValue: TBorderStyle);
 procedure SetBreak(AValue: Boolean);
 procedure SetColor(AValue: TColor);
 procedure SetControl(AValue: TControl);
 procedure SetFixedBackground(AValue: Boolean);
 procedure SetHorizontalOnly(AValue: Boolean);
 procedure SetImageIndex(AValue: TImageIndex);
 procedure SetMinHeight(AValue: Integer);
 procedure SetMinWidth(AValue: Integer);
 procedure SetParentBitmap(AValue: Boolean);
 procedure SetParentColor(AValue: Boolean);
 procedure SetText(const AValue: TTranslateString);
 procedure SetVisible(AValue: Boolean);
 procedure SetWidth(AValue: Integer);
protected
 cDefMinHeight = 25;
 cDefMinWidth = 100;
 cDefWidth = 180;
 cDivider: SmallInt = 2;
 cGrabIndent: SmallInt = 2;
 FControlLeft: Integer;
 FControlTop: Integer;
 FTextWidth: Integer;
 function CalcControlLeft: Integer;
 function CalcPreferredHeight: Integer;
 function CalcPreferredWidth: Integer;
 procedure CalcTextWidth;
 function GetDisplayName: string; override;
public
 constructor Create(aCollection: TCollection); override;
 destructor Destroy; override;
 procedure Assign(aSource: TPersistent); override;
 procedure AutosizeWidth;
 procedure InvalidateCoolBar(Sender: TObject);
 property Height: Integer;
 property Left: Integer;
 property Right: Integer;
 property Top: Integer;
published
 property Bitmap: TBitmap;
 property BorderStyle: TBorderStyle;
 property Break: Boolean;
 property Color: TColor;
 property Control: TControl;
 property FixedBackground: Boolean;
 property FixedSize: Boolean;
 property HorizontalOnly: Boolean;
 property ImageIndex: TImageIndex;
 property MinHeight: Integer;
 property MinWidth: Integer;
 property ParentColor: Boolean;
 property ParentBitmap: Boolean;
 property Text: TTranslateString;
 property Visible: Boolean;
 property Width: Integer;
end