TVTHeader

type TVTHeader = class(TPersistent)

protected

  FStates: THeaderStates;

  FDragStart: TPoint;

  FTrackStart: TPoint;

  FTrackPoint: TPoint;

  function CanSplitterResize();

  function CanWriteColumns; virtual;

  procedure ChangeScale(); virtual;

  function DetermineSplitterIndex(); virtual;

  procedure DoAfterAutoFitColumn(); virtual;

  procedure DoAfterColumnWidthTracking(); virtual;

  procedure DoAfterHeightTracking; virtual;

  function DoBeforeAutoFitColumn(); virtual;

  procedure DoBeforeColumnWidthTracking(); virtual;

  procedure DoBeforeHeightTracking(); virtual;

  procedure DoCanSplitterResize(); virtual;

  function DoColumnWidthDblClickResize(); virtual;

  function DoColumnWidthTracking(); virtual;

  function DoGetPopupMenu(); virtual;

  function DoHeightTracking(); virtual;

  function DoHeightDblClickResize(); virtual;

  procedure DoSetSortColumn(); virtual;

  procedure DragTo();

  procedure FixedAreaConstraintsChanged();

  function GetColumnsClass; virtual;

  function GetOwner; override;

  function GetShiftState;

  function HandleHeaderMouseMove();

  function HandleMessage(); virtual;

  procedure ImageListChange();

  procedure PrepareDrag();

  procedure RecalculateHeader; virtual;

  procedure RescaleHeader;

  procedure UpdateMainColumn;

  procedure UpdateSpringColumns;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  function AllowFocus();

  procedure Assign(); override;

  procedure AutoAdjustLayout(); virtual;

  procedure AutoFitColumns(); virtual;

  procedure FixDesignFontsPPI(); virtual;

  function InHeader(); virtual;

  function InHeaderSplitterArea(); virtual;

  procedure Invalidate();

  procedure LoadFromStream(); virtual;

  function ResizeColumns();

  procedure RestoreColumns;

  procedure SaveToStream(); virtual;

  property DragImage: TVTDragImage; [r]

  property States: THeaderStates; [r]

  property Treeview: TBaseVirtualTree; [r]

  property UseColumns: Boolean; [r]

published

  property AutoSizeIndex: TColumnIndex; [rw]

  property Background: TColor; [rw]

  property Columns: TVirtualTreeColumns; [rw]

  property DefaultHeight: Integer; [rws]

  property Font: TFont; [rws]

  property FixedAreaConstraints: TVTFixedAreaConstraints; [rw]

  property Height: Integer; [rws]

  property Images: TCustomImageList; [rw]

  property ImagesWidth: Integer; [rw]

  property MainColumn: TColumnIndex; [rw]

  property MaxHeight: Integer; [rw]

  property MinHeight: Integer; [rw]

  property Options: TVTHeaderOptions; [rw]

  property ParentFont: Boolean; [rw]

  property PopupMenu: TPopupMenu; [rw]

  property SortColumn: TColumnIndex; [rw]

  property SortDirection: TSortDirection; [rw]

  property Style: TVTHeaderStyle; [rw]

end;

TVTHeader

TObject