TVirtualTreeColumns

type TVirtualTreeColumns = class(TCollection)

protected

  FDragIndex: TColumnIndex;

  FDropTarget: TColumnIndex;

  FDropBefore: Boolean;

  procedure AdjustAutoSize();

  function AdjustDownColumn();

  function AdjustHoverColumn();

  procedure AdjustPosition();

  function CanSplitterResize();

  procedure DoCanSplitterResize(); virtual;

  procedure DrawButtonText();

  procedure FixPositions;

  function GetColumnAndBounds();

  function GetOwner; override;

  procedure HandleClick(); virtual;

  procedure IndexChanged();

  procedure InitializePositionArray;

  procedure Notify(); override;

  procedure ReorderColumns();

  procedure Update(); override;

  procedure UpdatePositions();

  property HeaderBitmap: TBitmap; [r]

  property PositionToIndex: TIndexArray; [r]

  property HoverIndex: TColumnIndex; [r]

  property DownIndex: TColumnIndex; [r]

  property CheckBoxHit: Boolean; [r]

public

  constructor Create(); virtual;

  destructor Destroy; override;

  function Add; virtual;

  procedure AnimatedResize();

  procedure Assign(); override;

  procedure Clear; virtual;

  function ColumnFromPosition();

  function Equals(); override;

  procedure GetColumnBounds();

  function GetFirstVisibleColumn();

  function GetLastVisibleColumn();

  function GetFirstColumn;

  function GetNextColumn();

  function GetNextVisibleColumn();

  function GetPreviousColumn();

  function GetPreviousVisibleColumn();

  function GetScrollWidth;

  function GetVisibleColumns;

  function GetVisibleFixedWidth;

  function IsValidColumn();

  procedure LoadFromStream();

  procedure PaintHeader();

  procedure SaveToStream();

  function TotalWidth;

  property ClickIndex: TColumnIndex; [r]

  property DefaultWidth: Integer; [rws]

  property Items []: TVirtualTreeColumn; default; [rw]

  property Header: TVTHeader; [r]

  property TrackIndex: TColumnIndex; [r]

end;

TVirtualTreeColumns

TObject