TECTab

type TECTab = class(TCollectionItem)

protected

const

  cDefOptions = [etoVisible]

  cDefText = 'Tab'

protected

  BoundRect: TRect;

  CaptionRect: TRect;

  CloseBtnRect: TRect;

  DropDownRect: TRect;

  Flags: TECTabFlags;

  ImagePoint: TPoint;

  PaintRect: TRect;

  PreferredWidth: SmallInt;

  PreviousID: Integer;

  function GetDisplayName; override;

  procedure RecalcRedraw;

  procedure Redraw;

public

  constructor Create(); override;

  destructor Destroy; override;

  function IsFolded;

  property FoldedTabs: TFPList; [rw]

published

  property Color: TColor; [rw]

  property Control: TControl; [rw]

  property FontOptions: TFontOptions; [rw]

  property Hint: TTranslateString; [rw]

  property ImageIndex: SmallInt; [rw]

  property Options: TECTabOptions; [rw]

  property PopupMenu: TPopupMenu; [rw]

  property Tag: PtrInt; [rw]

  property Text: TCaption; [rw]

  property Width: Integer; [r]

end;

TECTab

TObject