| Class TINIEntry (unit INISec) |
TINEntry
| Constructors |
constructor Create(AOwner:TComponent);| 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;