Class TEtwDBScrollBox (unit DBScrollBox)

Inherits from

TScrollBox

Constructors


constructor Create(AOwner: TComponent);

Public declarations

Destroy



Functions

destructor Destroy;

SeTDatasource

procedure notification (AComponent : TComponent; Operation : TOperation);


procedure AlignLabelsAndFields;

Protected declarations

Create/Open INI-file


function CreateCaption ( aInteger : integer) : string;


function CreateUniqueName (prefix : string; i : integer) : string;

GetDatasource

function GetDataSource: TwwDatasource;


procedure Loaded;


procedure ReadIniFile;


procedure SetConsistentEditWidth (aBoolean : boolean);


procedure SetDataSource(newSource: TwwDatasource);

Returns linked data source.

procedure SetEditSpacing (aInteger : integer);


procedure SetLabelAlign (aEtwLabelAlign : TEtwLabelAlign);


procedure SetLabelAlignment(aAlignment : TAlignment);

not the TLabel's.

procedure SetLabelMixedCase (aBoolean : boolean);


procedure SetLabelSpace (aInteger : integer);


procedure SetLabelStripUnderscores (aBoolean : Boolean);


procedure SetLabelUseSemiColon (aBoolean: Boolean);


procedure SetLeftAlignmentTFields (aBoolean : boolean);


procedure SetRequiredColor (aColor : TColor);

for i := FControlList.

Properties

property About : TEtWAboutInfo

Published properties and events

property ConsistentEditWidth : boolean


property DataSource : TwwDatasource


property EditSpacing : integer


property LabelAlign : TEtwLabelAlign


property LabelAlignment : TAlignment


property LabelMixedCase : boolean


property LabelSpace : integer


property LabelStripUnderscores : boolean


property LabelUseSemiColon : boolean


property LeftAlignmentTFields : boolean


property MayEditProperties : boolean


property Prefix : TEtwPrefix


property RequiredColor : TColor


Events

Variables

FAboutInfo : TEtWAboutInfo;

Private declarations

FCharWidth : integer;


FComingFromTheEditor : boolean;


FConsistentEditWidth : boolean;


FControlList : TList;


FDatasource : TwwDatasource;


FEditSpacing : integer;


FFieldsList : TList;


FLabelAlign : TEtwLabelAlign;


FLabelAlignment : TAlignment;


FLabelMixedCase : boolean;


FLabelSpace : integer;


FLabelStripUnderscores : boolean;


FLabelUseSemiColon : boolean;


FLeftAlignmentTFields : boolean;


FMayEditProperties : boolean;


FPrefix : TEtwPrefix;


FRequiredColor : TColor;


FSemiColonWidth : integer;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

Destroy


Functions


destructor Destroy;

SeTDatasource


procedure notification (AComponent : TComponent; Operation : TOperation);


procedure AlignLabelsAndFields;

Protected declarations

Create/Open INI-file


function CreateCaption ( aInteger : integer) : string;


function CreateUniqueName (prefix : string; i : integer) : string;

GetDatasource


function GetDataSource: TwwDatasource;


procedure Loaded;


procedure ReadIniFile;


procedure SetConsistentEditWidth (aBoolean : boolean);


procedure SetDataSource(newSource: TwwDatasource);

Returns linked data source.

generate unique name


procedure SetEditSpacing (aInteger : integer);


procedure SetLabelAlign (aEtwLabelAlign : TEtwLabelAlign);


procedure SetLabelAlignment(aAlignment : TAlignment);

not the TLabel's.


procedure SetLabelMixedCase (aBoolean : boolean);


procedure SetLabelSpace (aInteger : integer);


procedure SetLabelStripUnderscores (aBoolean : Boolean);


procedure SetLabelUseSemiColon (aBoolean: Boolean);


procedure SetLeftAlignmentTFields (aBoolean : boolean);


procedure SetRequiredColor (aColor : TColor);

for i := FControlList.count - 1 downto 0 do begin try try TControl(FControlList.items[i]).Free; except end; finally FControlList.Delete(i); end; end; for i := FFieldsList.count - 1 downto 0 do begin FFieldsList.Delete(i); end;


Properties


property About : TEtWAboutInfo

Published properties and events


property ConsistentEditWidth : boolean


property DataSource : TwwDatasource


property EditSpacing : integer


property LabelAlign : TEtwLabelAlign


property LabelAlignment : TAlignment


property LabelMixedCase : boolean


property LabelSpace : integer


property LabelStripUnderscores : boolean


property LabelUseSemiColon : boolean


property LeftAlignmentTFields : boolean


property MayEditProperties : boolean


property Prefix : TEtwPrefix


property RequiredColor : TColor


Events


Variables


FAboutInfo : TEtWAboutInfo;

Private declarations


FCharWidth : integer;


FComingFromTheEditor : boolean;


FConsistentEditWidth : boolean;


FControlList : TList;


FDatasource : TwwDatasource;


FEditSpacing : integer;


FFieldsList : TList;


FLabelAlign : TEtwLabelAlign;


FLabelAlignment : TAlignment;


FLabelMixedCase : boolean;


FLabelSpace : integer;


FLabelStripUnderscores : boolean;


FLabelUseSemiColon : boolean;


FLeftAlignmentTFields : boolean;


FMayEditProperties : boolean;


FPrefix : TEtwPrefix;


FRequiredColor : TColor;


FSemiColonWidth : integer;