TGridColumn

type TGridColumn = class(TCollectionItem)

protected

  function GetDisplayName; override;

  function GetDefaultAlignment; virtual;

  function GetDefaultColor; virtual;

  function GetDefaultLayout; virtual;

  function GetDefaultMaxSize; virtual;

  function GetDefaultMinSize; virtual;

  function GetDefaultReadOnly; virtual;

  function GetDefaultSizePriority;

  function GetDefaultVisible; virtual;

  function GetDefaultValueChecked; virtual;

  function GetDefaultValueUnchecked; virtual;

  function GetDefaultWidth; virtual;

  function GetPickList; virtual;

  function GetValueChecked;

  function GetValueUnchecked;

  procedure ColumnChanged; virtual;

  procedure AllColumnsChange;

  function CreateTitle; virtual;

  procedure SetIndex(); override;

  property IsDefaultFont: Boolean; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure FillDefaultFont;

  procedure FixDesignFontsPPI(); virtual;

  procedure ScaleFontsPPI(); virtual;

  function IsDefault; virtual;

  property Grid: TCustomGrid; [r]

  property DefaultWidth: Integer; [r]

  property StoredWidth: Integer; [r]

  property WidthChanged: Boolean; [r]

published

  property Alignment: TAlignment; [rws]

  property ButtonStyle: TColumnButtonStyle; [rw]

  property Color: TColor; [rws]

  property DropDownRows: LongInt; [rw]

  property Expanded: Boolean; [rw]

  property Font: TFont; [rws]

  property Layout: TTextLayout; [rws]

  property MinSize: Integer; [rws]

  property MaxSize: Integer; [rws]

  property PickList: TStrings; [rw]

  property ReadOnly: Boolean; [rws]

  property SizePriority: Integer; [rws]

  property Tag: PtrInt; [rw]

  property Title: TGridColumnTitle; [rw]

  property Width: Integer; [rws]

  property Visible: Boolean; [rws]

  property ValueChecked: string; [rws]

  property ValueUnchecked: string; [rws]

end;

TGridColumn

TObject