Class TINIEntry (unit INISec)

Inherits from

TINIField

TINEntry

Constructors


constructor Create(AOwner:TComponent);

******************************************************* INIEntry ********************************************************


Functions

procedure ClearControl;


function CreateControl(AOwner:TComponent;WParent:TControl;cInfo:TCreateInfo):TControl;


procedure EnableControl(State:Boolean);


procedure Init;


procedure RefreshControl;


procedure Reset;


procedure ShowControl(Show:Boolean);


procedure Syncronize(Direction:TSyncronizeDirection);


procedure Validate;


procedure Assign(Source:TPersistent);


function CheckPrivilegLevel(Level:Integer):Boolean;


procedure CopyEntry;


procedure DeleteEntry;


procedure DoCopyEntry;


procedure DoDeleteEntry;


function DoGetAsBoolean:Boolean;


function DoGetAsFloat:Double;


function DoGetAsInteger:LongInt;


function DoGetAsString:string;


function DoGetStoreIt:Boolean;


procedure DoReadEntry;


procedure DoReadHumanReadable(Stream:TStream;Level:Integer);


procedure DoSetAsBoolean(Value:Boolean);


procedure DoSetAsFloat(Value:Double);


procedure DoSetAsInteger(Value:LongInt);


procedure DoSetAsString(const Value:string);


procedure DoWriteEntry;


procedure DoWriteHumanReadable(Stream:TStream;Level:Integer);


function GetCaption:string;


function GetPrivilegLevel:Integer;


function GetWinControl(AOwner:TComponent;WParent:TControl;cInfo:TCreateInfo):TControl;


function IsConnectionToControlSupported(WC:TWinControl):Boolean;


procedure Loaded;


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


procedure ReadEntry;


procedure SetCaption(const Caption:string);


procedure WriteEntry;


function GetGroupName:string;


function GetStoreIt:Boolean;


function IsControlEnabled:Boolean;


function IsPrivilegLevelStored:Boolean;


procedure SetConnectedControl(WC:TWinControl);


procedure SetControl(C:TControl);


procedure SetGroupName(const gName:string);


procedure SetGroupNo(gNo:Integer);


procedure SetPrivilegLevel(Level:Integer);


procedure ShowError(const FunctionName:string);


Properties

property GroupIndex : Integer


property GroupName : string


property Hint : string


property PrivilegLevel : Integer


property Caption : string


property CaptionStyle : TCaptionStyle


property ConnectedControl : TWinControl


property Control : TControl


property Enabled : Boolean


property ForceWrite : Boolean


property HelpContext : THelpContext


property StoreIt : Boolean


Events

event OnInit : TINIFieldNotifyEvent


event OnAfterRead : TINIFieldNotifyEvent


event OnBeforeWrite : TINIFieldNotifyEvent


event OnStoreIt : TStoreItNotifyEvent


Variables

FControl : TControl;


FCaptionStyle : TCaptionStyle;


FConnectedControl : TWinControl;


FForceWrite : Boolean;


FGroupName : string;


FGroupNo : Integer;


FHelpContext : THelpContext;


FHint : string;


FLabel : TControl;


FOnAfterRead : TINIFieldNotifyEvent;


FOnBeforeWrite : TINIFieldNotifyEvent;


FOnInit : TINIFieldNotifyEvent;


FOnStoreIt : TStoreItNotifyEvent;


FPrivilegLevel : Integer;



Constructors


constructor Create(AOwner:TComponent);

******************************************************* INIEntry ********************************************************


Functions


procedure ClearControl;


function CreateControl(AOwner:TComponent;WParent:TControl;cInfo:TCreateInfo):TControl;


procedure EnableControl(State:Boolean);


procedure Init;


procedure RefreshControl;


procedure Reset;


procedure ShowControl(Show:Boolean);


procedure Syncronize(Direction:TSyncronizeDirection);


procedure Validate;


procedure Assign(Source:TPersistent);


function CheckPrivilegLevel(Level:Integer):Boolean;


procedure CopyEntry;


procedure DeleteEntry;


procedure DoCopyEntry;


procedure DoDeleteEntry;


function DoGetAsBoolean:Boolean;


function DoGetAsFloat:Double;


function DoGetAsInteger:LongInt;


function DoGetAsString:string;


function DoGetStoreIt:Boolean;


procedure DoReadEntry;


procedure DoReadHumanReadable(Stream:TStream;Level:Integer);


procedure DoSetAsBoolean(Value:Boolean);


procedure DoSetAsFloat(Value:Double);


procedure DoSetAsInteger(Value:LongInt);


procedure DoSetAsString(const Value:string);


procedure DoWriteEntry;


procedure DoWriteHumanReadable(Stream:TStream;Level:Integer);


function GetCaption:string;


function GetPrivilegLevel:Integer;


function GetWinControl(AOwner:TComponent;WParent:TControl;cInfo:TCreateInfo):TControl;


function IsConnectionToControlSupported(WC:TWinControl):Boolean;


procedure Loaded;


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


procedure ReadEntry;


procedure SetCaption(const Caption:string);


procedure WriteEntry;


function GetGroupName:string;


function GetStoreIt:Boolean;


function IsControlEnabled:Boolean;


function IsPrivilegLevelStored:Boolean;


procedure SetConnectedControl(WC:TWinControl);


procedure SetControl(C:TControl);


procedure SetGroupName(const gName:string);


procedure SetGroupNo(gNo:Integer);


procedure SetPrivilegLevel(Level:Integer);


procedure ShowError(const FunctionName:string);


Properties


property GroupIndex : Integer


property GroupName : string


property Hint : string


property PrivilegLevel : Integer


property Caption : string


property CaptionStyle : TCaptionStyle


property ConnectedControl : TWinControl


property Control : TControl


property Enabled : Boolean


property ForceWrite : Boolean


property HelpContext : THelpContext


property StoreIt : Boolean


Events


event OnInit : TINIFieldNotifyEvent


event OnAfterRead : TINIFieldNotifyEvent


event OnBeforeWrite : TINIFieldNotifyEvent


event OnStoreIt : TStoreItNotifyEvent


Variables


FControl : TControl;


FCaptionStyle : TCaptionStyle;


FConnectedControl : TWinControl;


FForceWrite : Boolean;


FGroupName : string;


FGroupNo : Integer;


FHelpContext : THelpContext;


FHint : string;


FLabel : TControl;


FOnAfterRead : TINIFieldNotifyEvent;


FOnBeforeWrite : TINIFieldNotifyEvent;


FOnInit : TINIFieldNotifyEvent;


FOnStoreIt : TStoreItNotifyEvent;


FPrivilegLevel : Integer;