| Class TEtwDBScrollBox (unit DBScrollBox) |
TScrollBox
| Constructors |
constructor Create(AOwner: TComponent);Destroy
| Functions |
destructor Destroy;
procedure notification (AComponent : TComponent; Operation : TOperation);
procedure AlignLabelsAndFields;Create/Open INI-file
function CreateCaption ( aInteger : integer) : string;
function CreateUniqueName (prefix : string; i : integer) : string;
function GetDataSource: TwwDatasource;
procedure Loaded;
procedure ReadIniFile;
procedure SetConsistentEditWidth (aBoolean : boolean);
procedure SetDataSource(newSource: TwwDatasource);
procedure SetEditSpacing (aInteger : integer);
procedure SetLabelAlign (aEtwLabelAlign : TEtwLabelAlign);
procedure SetLabelAlignment(aAlignment : TAlignment);
procedure SetLabelMixedCase (aBoolean : boolean);
procedure SetLabelSpace (aInteger : integer);
procedure SetLabelStripUnderscores (aBoolean : Boolean);
procedure SetLabelUseSemiColon (aBoolean: Boolean);
procedure SetLeftAlignmentTFields (aBoolean : boolean);
procedure SetRequiredColor (aColor : TColor);| Properties |
property About : TEtWAboutInfo
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;
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 : TEtWAboutInfoPublished 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;