TGridColumnTitle

type TGridColumnTitle = class(TPersistent)

protected

  function GetDefaultCaption; virtual;

GetDefaultCaption - returns th e default caption for this column

  function GetDefaultAlignment;

GetDefaultAlignment - returns the default alignment

  function GetDefaultColor;

GetDefaultColor - returns the default colour

  function GetDefaultLayout;

GetDefaultLayout - returns the default layout

  function GetOwner; override;

  procedure SetCaption(); virtual;

SetCaption - specifies the caption to use (rather than using default)

public

  constructor Create(); virtual;

Create - constructor for TGridColumnTitle: calls inherited Create then links the column, creates and configures the default font

  destructor Destroy; override;

Destroy - destructor for TGridColumnTitle: frees forn, disconnects alignments, disposes of captions and colours then calls inherited Destroy

  procedure Assign(); override;

  procedure FillTitleDefaultFont;

FillTitleDefaultFont - use the default font for the whole of the title

  function IsDefault;

IsDefault - returns True if this is the default title

  property Column: TGridColumn; [r]

The Column to which the title applies

published

  property Alignment: TAlignment; [rws]

The Alignment (whether justified or centred) for this title

  property Caption: TCaption; [rws]

The Caption for this title

  property Color: TColor; [rws]

The Color to use for this title

  property Font: TFont; [rws]

The Font for this title

  property ImageIndex: Integer; [rw]

ImageIndex - the index for any image to be used in the title (default=0, ie no image)

  property ImageLayout: TButtonLayout; [rw]

ImageLayout - the layout to use for any image in the title

  property Layout: TTextLayout; [rws]

The Layout for the text of the title

end;

TGridColumnTitle

TGridColumnTitle - the title for a column in a grid

TPersistent

TObject