Class TImpColumnTitle (unit Impstringgrid) |
Inherits from
TPersistent
constructor Create(Column: TImpColumn);
- TImpColumnTitle
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);
property Alignment : TAlignment
property Caption : string
property Color : TColor
property Font : TFont
FAlignment : TAlignment;
FCaption : string;
FColor : TColor;
FColumn : TImpColumn;
FFont : TFont;
constructor Create(Column: TImpColumn);
TImpColumnTitle
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);
property Alignment : TAlignment
property Caption : string
property Color : TColor
property Font : TFont
FAlignment : TAlignment;
FCaption : string;
FColor : TColor;
FColumn : TImpColumn;
FFont : TFont;