Class TImpColumnTitle (unit Impstringgrid)

Inherits from

TPersistent

Constructors


constructor Create(Column: TImpColumn);

TImpColumnTitle


Functions

procedure Assign(Source: TPersistent);


function DefaultAlignment: TAlignment;


function DefaultCaption: string;

if Assigned(Grid) then Result := Grid.

function DefaultColor: TColor;


function DefaultFont: TFont;


destructor Destroy;


procedure RestoreDefaults;


procedure RefreshDefaultFont;


procedure FontChanged(Sender: TObject);

Field := FColumn.

function GetAlignment: TAlignment;


function GetCaption: string;


function GetColor: TColor;


function GetFont: TFont;


function IsAlignmentStored: Boolean;


function IsCaptionStored: Boolean;


function IsColorStored: Boolean;


function IsFontStored: Boolean;


procedure SetAlignment(Value: TAlignment);

If font was assigned, changing it back to default may affect grid title height, and title height changes require layout and redraw of the grid.

procedure SetCaption(const Value: string);


procedure SetColor(Value: TColor);


procedure SetFont(Value: TFont);


Properties

property Alignment : TAlignment


property Caption : string


property Color : TColor


property Font : TFont


Events

Variables

FAlignment : TAlignment;


FCaption : string;


FColor : TColor;


FColumn : TImpColumn;


FFont : TFont;



Constructors


constructor Create(Column: TImpColumn);

TImpColumnTitle


Functions


procedure Assign(Source: TPersistent);


function DefaultAlignment: TAlignment;


function DefaultCaption: string;

if Assigned(Grid) then Result := Grid.TitleFont else


function DefaultColor: TColor;


function DefaultFont: TFont;


destructor Destroy;


procedure RestoreDefaults;


procedure RefreshDefaultFont;


procedure FontChanged(Sender: TObject);

Field := FColumn.Field; if Assigned(Field) then Result := Field.DisplayName else } { Result := FColumn.FieldName;


function GetAlignment: TAlignment;


function GetCaption: string;


function GetColor: TColor;


function GetFont: TFont;


function IsAlignmentStored: Boolean;


function IsCaptionStored: Boolean;


function IsColorStored: Boolean;


function IsFontStored: Boolean;


procedure SetAlignment(Value: TAlignment);

If font was assigned, changing it back to default may affect grid title height, and title height changes require layout and redraw of the grid.


procedure SetCaption(const Value: string);


procedure SetColor(Value: TColor);


procedure SetFont(Value: TFont);


Properties


property Alignment : TAlignment


property Caption : string


property Color : TColor


property Font : TFont


Events


Variables


FAlignment : TAlignment;


FCaption : string;


FColor : TColor;


FColumn : TImpColumn;


FFont : TFont;