TVirtualTreeColumn

type TVirtualTreeColumn = class(TCollectionItem)

protected

  procedure ComputeHeaderLayout();

  procedure GetAbsoluteBounds();

  function GetDisplayName; override;

  function GetText; virtual;

  procedure SetText(); virtual;

  function GetOwner;

  property HasImage: Boolean; [r]

  property ImageRect: TRect; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  function Equals(); override;

  function GetRect; virtual;

  procedure LoadFromStream();

  procedure ParentBiDiModeChanged;

  procedure ParentColorChanged;

  procedure RestoreLastWidth;

  procedure SaveToStream();

  function UseRightToLeftReading;

  property Left: Integer; [r]

  property Owner: TVirtualTreeColumns; [r]

published

  property Alignment: TAlignment; [rw]

  property BiDiMode: TBiDiMode; [rws]

  property CaptionAlignment: TAlignment; [rws]

  property CaptionText: string; [rs]

  property CheckType: TCheckType; [rw]

  property CheckState: TCheckState; [rw]

  property CheckBox: Boolean; [rw]

  property Color: TColor; [rws]

  property DefaultSortDirection: TSortDirection; [rw]

  property Hint: TTranslateString; [rw]

  property ImageIndex: TImageIndex; [rw]

  property Layout: TVTHeaderColumnLayout; [rw]

  property Margin: Integer; [rws]

  property MaxWidth: Integer; [rw]

  property MinWidth: Integer; [rw]

  property Options: TVTColumnOptions; [rw]

  property Position: TColumnPosition; [rw]

  property Spacing: Integer; [rws]

  property Style: TVirtualTreeColumnStyle; [rw]

  property Tag: nativeint; [rw]

  property Text: TTranslateString; [rw]

  property Width: Integer; [rws]

end;

TVirtualTreeColumn

TObject