Class TListDBColumn (unit DBListView98)

Inherits from

TCollectionItem

Constructors


constructor Create(Collection: TCollection);

TListDBColumn


Functions

procedure Assign(Source: TPersistent);


function DefaultFont: TFont;


function DefaultImeMode: TImeMode;


function DefaultImeName: TImeName;


function DefaultReadOnly: Boolean;


destructor Destroy;


procedure DefineProperties(Filer: TFiler);


function GetDisplayName: string;


function GetListView: TCustomDBListView;


procedure DoChange;


procedure FontChanged(Sender: TObject);


function GetColorField: TField;


function GetField: TField;

Returns Nil if FieldName can't be found in dataset

function GetFont: TFont;

Returns Nil if FieldName can't be found in dataset

function GetIconField: TField;

Returns Nil if FieldName can't be found in dataset

function GetImeMode: TImeMode;


function GetImeName: TImeName;


function GetOrder: Integer;


function GetReadOnly: Boolean;


function GetWidth: TWidth;


function IsFontStored: Boolean;


function IsImeModeStored: Boolean;


function IsImeNameStored: Boolean;


function IsReadOnlyStored: Boolean;


procedure ReadData(Reader: TReader);


procedure RefreshDefaultFont;


procedure RestoreDefaults;


procedure SetAlignment(Value: TAlignment);


procedure SetCaption(const Value: string);


procedure SetColorField(Value: TField);


procedure SetColorFieldName(Value: string);


procedure SetField(Value: TField);

no exceptions

procedure SetFieldName(Value: String);


procedure SetFont(Value: TFont);

no exceptions

procedure SetIconField(Value: TField);

no exceptions

procedure SetIconFieldName(Value: string);


procedure SetImeMode(Value: TImeMode);


procedure SetImeName(Value: TImeName);


procedure SetIndexName(const Value: String);


procedure SetReadOnly(Value: Boolean);

no exceptions

procedure SetWidth(Value: TWidth);


procedure WriteData(Writer: TWriter);


Properties

property Alignment : TAlignment


property Caption : string


property ColorFieldName : String


property DefaultIcon : Integer


property FieldName : String


property Font : TFont


property IconFieldName : String


property ImeMode : TImeMode


property ImeName : TImeName


property IndexName : String


property ReadOnly : Boolean


property Width : TWidth


property AssignedValues : TDBColumnValues


property ColorField : TField


property Field : TField


property IconField : TField


property ListView : TCustomDBListView


property Order : Integer


property WidthType : TWidth


Events

Variables

FAlignment : TAlignment;


FAssignedValues : TDBColumnValues;


FCaption : string;


FColorField : TField;


FColorFieldName : String;


FDefaultIcon : Integer;


FField : TField;


FFieldName : string;


FFont : TFont;


FIconField : TField;


FIconFieldName : string;


FImeMode : TImeMode;


FImeName : TImeName;


FIndexName : string;


FKeepColor : Integer;


FKeepField : string;


FKeepIcon : Integer;


FReadonly : Boolean;


FWidth : TWidth;



Constructors


constructor Create(Collection: TCollection);

TListDBColumn


Functions


procedure Assign(Source: TPersistent);


function DefaultFont: TFont;


function DefaultImeMode: TImeMode;


function DefaultImeName: TImeName;


function DefaultReadOnly: Boolean;


destructor Destroy;


procedure DefineProperties(Filer: TFiler);


function GetDisplayName: string;


function GetListView: TCustomDBListView;


procedure DoChange;


procedure FontChanged(Sender: TObject);


function GetColorField: TField;


function GetField: TField;

Returns Nil if FieldName can't be found in dataset


function GetFont: TFont;

Returns Nil if FieldName can't be found in dataset


function GetIconField: TField;

Returns Nil if FieldName can't be found in dataset


function GetImeMode: TImeMode;


function GetImeName: TImeName;


function GetOrder: Integer;


function GetReadOnly: Boolean;


function GetWidth: TWidth;


function IsFontStored: Boolean;


function IsImeModeStored: Boolean;


function IsImeNameStored: Boolean;


function IsReadOnlyStored: Boolean;


procedure ReadData(Reader: TReader);


procedure RefreshDefaultFont;


procedure RestoreDefaults;


procedure SetAlignment(Value: TAlignment);


procedure SetCaption(const Value: string);


procedure SetColorField(Value: TField);


procedure SetColorFieldName(Value: string);


procedure SetField(Value: TField);

no exceptions


procedure SetFieldName(Value: String);


procedure SetFont(Value: TFont);

no exceptions


procedure SetIconField(Value: TField);

no exceptions


procedure SetIconFieldName(Value: string);


procedure SetImeMode(Value: TImeMode);


procedure SetImeName(Value: TImeName);


procedure SetIndexName(const Value: String);


procedure SetReadOnly(Value: Boolean);

no exceptions


procedure SetWidth(Value: TWidth);


procedure WriteData(Writer: TWriter);


Properties


property Alignment : TAlignment


property Caption : string


property ColorFieldName : String


property DefaultIcon : Integer


property FieldName : String


property Font : TFont


property IconFieldName : String


property ImeMode : TImeMode


property ImeName : TImeName


property IndexName : String


property ReadOnly : Boolean


property Width : TWidth


property AssignedValues : TDBColumnValues


property ColorField : TField


property Field : TField


property IconField : TField


property ListView : TCustomDBListView


property Order : Integer


property WidthType : TWidth


Events


Variables


FAlignment : TAlignment;


FAssignedValues : TDBColumnValues;


FCaption : string;


FColorField : TField;


FColorFieldName : String;


FDefaultIcon : Integer;


FField : TField;


FFieldName : string;


FFont : TFont;


FIconField : TField;


FIconFieldName : string;


FImeMode : TImeMode;


FImeName : TImeName;


FIndexName : string;


FKeepColor : Integer;


FKeepField : string;


FKeepIcon : Integer;


FReadonly : Boolean;


FWidth : TWidth;