TKTabPanel

type TKTabPanel = class(TKCustomControl)

protected

  FAllTabsExtent: Integer;

  FDraggedTab: Integer;

  FDraggedPos: TPoint;

  FFullyVisibleTabsExtent: Integer;

  FInvisibleTabsExtent: Integer;

  FLastDraggedTab: Integer;

  FLastFullyVisibleTab: Integer;

  FLeftScrollButton: TKSpeedButton;

  FMaxFirstVisibleTab: Integer;

  FMouseIndex: Integer;

  FMouseInCloseButton: Boolean;

  FPageToClose: Integer;

  FRightScrollButton: TKSpeedButton;

  FScrolling: Boolean;

  FTabAreaExtent: Integer;

  FVisibleTabsExtent: Integer;

  function GetTabInfo(); virtual;

  function GetTabPaintInfo(); virtual;

  procedure KeyDown(); override;

  procedure LeftScrollButtonClick();

  procedure MouseDown(); override;

  procedure MouseFormLeave; override;

  procedure MouseMove(); override;

  procedure MouseMoveCaptured(); virtual;

  procedure MouseOver(); virtual;

  procedure MouseUp(); override;

  function PaintTab(); virtual;

  procedure PaintTabBackground(); virtual;

  procedure PaintTabCloseButton(); virtual;

  procedure PaintTabImage(); virtual;

  procedure PaintTabText(); virtual;

  procedure PaintAfterTabs(); virtual;

  procedure PaintToCanvas(); override;

  procedure RightScrollButtonClick();

  procedure UpdateTabPanelLayout(); virtual;

  procedure UpdateSize; override;

  procedure UpdateScrollRange; virtual;

  procedure UpdateTabPanel; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  function IndexOfTabAt(); virtual;

  function TabRect(); virtual;

  property FirstVisibleTab: Integer; [rw]

  property Options: TKTabPanelOptions; [rw]

  property PageControl: TKCustomPageControl; [rw]

  property Tabs []: TKString; [r]

end;

TKTabPanel

TKCustomControl

TObject