TECGColumn

type TECGColumn = class(TCollectionItem)

protected

const

  cDefColWidth = 80

  cDefFontStyles = []

  cDefOptions = [ecoVisible]

  cDefText = 'Column'

protected

  Flags: TCFlags;

  function GetDisplayName; override;

  procedure RecalcRedraw;

  procedure Redraw();

  procedure RedrawColumnData;

  procedure SetIndex(); override;

public

  Data: TObject;

  constructor Create(); override;

  destructor Destroy; override;

  function IsReadOnly;

  property Cells []: string; [r]

  property Right: Integer; [r]

  property Order: Integer; [r]

published

  property Alignment: TAlignment; [rw]

  property Color: TColor; [rw]

  property ColorTint: SmallInt; [rw]

  property EnlargeWidth: SmallInt; [rw]

  property FontOptions: TFontOptions; [rw]

  property Hint: TTranslateString; [rw]

  property Left: Integer; [r]

  property MaxWidth: SmallInt; [rw]

  property MinWidth: SmallInt; [rw]

  property Options: TCOptions; [rw]

  property PopupMenu: TPopupMenu; [rw]

  property Tag: PtrInt; [rw]

  property Title: TECGColTitle; [rw]

  property Width: SmallInt; [rw]

  property OnGetDataCellText: TGetDataCellText; [rw]

end;

TECGColumn

TObject