Class TINIDatabase (unit INISec)
Inherits from
TComponent
Constructors
constructor Create(AOwner:TComponent);
Functions
procedure Clear;
procedure Copy(const CopyFrom:string);
function CreatePage(AOwner:TComponent;Section:TINICustomSection;WParent:TWinControl):Integer;
function CreatePages:Integer;
destructor Destroy;
function FindSection(const SectionName:string):TINICustomSection;
procedure GetSectionNames(List:TStrings);
procedure Init;
procedure InitCreateInfo(BorrowCanvas:TCanvas);
procedure OpenSectionForEdit(Section:TINICustomSection);
procedure Read;
procedure ReadHumanReadable(const FileName:string);
procedure Refresh;
procedure Reset;
function SectionByName(const SectionName:string):TINICustomSection;
procedure Write;
procedure WriteHumanReadable(const FileName:string);
procedure AnyFieldChange(Field:TINIField);
procedure DoReadHumanReadable(Stream:TStream;Level:Integer);
procedure DoWriteHumanReadable(Stream:TStream;Level:Integer);
procedure ForEachSection(FEP:TForEachProcedure;Data:Pointer;PMSet:TPrivateModes;Extend:Boolean);
procedure GetChildren(Proc:TGetChildProc{$ifndef VER90};Root:TComponent{$endif});
procedure Loaded;
procedure Notification(AComponent:TComponent;Operation:TOperation);
procedure AddSection(Section:TINICustomSection);
procedure DestroyTables;
procedure FEPClear(Item:TObject;Data:Pointer);
procedure FEPCopy(Item:TObject;Data:Pointer);
procedure FEPInit(Item:TObject;Data:Pointer);
procedure FEPRead(Item:TObject;Data:Pointer);
procedure FEPReadHumanReadable(Item:TObject;Data:Pointer);
procedure FEPRefresh(Item:TObject;Data:Pointer);
procedure FEPReset(Item:TObject;Data:Pointer);
procedure FEPWrite(Item:TObject;Data:Pointer);
procedure FEPWriteHumanReadable(Item:TObject;Data:Pointer);
function GetMaster:TComponent;
function GetSection(Index:Integer):TINICustomSection;
function GetSectionCount:Integer;
function GetSectionOfPrivateModeCount:Integer;
procedure GoSearchSection(MultiSection:TINICustomMultiSection);
procedure GroupNameChanged(Sender:TObject);
function IsDestinationStored:Boolean;
procedure OnTabChange(Sender:TObject);
procedure RemoveSection(Section:TINICustomSection);
function SectionByNumber(SectionNo:Integer):TINICustomSection;
procedure SetDestination(DT:TDestination);
procedure SetDirs(ds:TDirs);
procedure SetDistance(CD:Integer);
procedure SetGlyphs(gs:TGlyphs);
procedure SetMaster(frm:TComponent);
procedure SetNames(ns:TNames);
procedure SetParent(WParent:TWinControl);
procedure SetSection(Index:Integer;Value:TINICustomSection);
procedure SetUserPrivilegLevel(UserLevel:Integer);
procedure UserNameChanged(Sender:TObject);
Properties
property CreatePageOnChange : Boolean
property Destination : TDestination
property Dirs : TDirs
property Distance : Integer
property FileName : string
property Glyphs : TGlyphs
property ImageList : TImageList
property Names : TNames
property Parent : TWinControl
property PrivateModes : TPrivateModes
property UserPrivilegLevel : Integer
property EditOnlyMode : Boolean
property Master : TComponent
property SectionCount : Integer
property SectionOfPrivateModeCount : Integer
property Sections : TINICustomSection
Events
event OnAfterRead : TNotifyEvent
event OnBeforeWrite : TNotifyEvent
event OnFieldChange : TINIFieldNotifyEvent
event OnInit : TNotifyEvent
Variables
FGlyphs : TGlyphs;
FParent : TWinControl;
FStartPage : string;
FWhatPM : TPrivateModes;
FConstCreateInfo : TCreateInfo;
FCreatePageOnChange : Boolean;
FDestination : TDestination;
FDirs : TDirs;
FDistance : Integer;
FEditOnlyMode : Boolean;
FFileName : string;
FImageList : TImageList;
FMaster : TComponent;
FNames : TNames;
FOnAfterRead : TNotifyEvent;
FOnBeforeWrite : TNotifyEvent;
FOnFieldChange : TINIFieldNotifyEvent;
FOnInit : TNotifyEvent;
FormGetSection : TFormSearchMultiSection;
FSections : TList;
FTabControl : TTabControl;
FUserPrivilegLevel : Integer;
Constructors
constructor Create(AOwner:TComponent);
Functions
procedure Clear;
procedure Copy(const CopyFrom:string);
function CreatePage(AOwner:TComponent;Section:TINICustomSection;WParent:TWinControl):Integer;
function CreatePages:Integer;
destructor Destroy;
function FindSection(const SectionName:string):TINICustomSection;
procedure GetSectionNames(List:TStrings);
procedure Init;
procedure InitCreateInfo(BorrowCanvas:TCanvas);
procedure OpenSectionForEdit(Section:TINICustomSection);
procedure Read;
procedure ReadHumanReadable(const FileName:string);
procedure Refresh;
procedure Reset;
function SectionByName(const SectionName:string):TINICustomSection;
procedure Write;
procedure WriteHumanReadable(const FileName:string);
procedure AnyFieldChange(Field:TINIField);
procedure DoReadHumanReadable(Stream:TStream;Level:Integer);
procedure DoWriteHumanReadable(Stream:TStream;Level:Integer);
procedure ForEachSection(FEP:TForEachProcedure;Data:Pointer;PMSet:TPrivateModes;Extend:Boolean);
procedure GetChildren(Proc:TGetChildProc{$ifndef VER90};Root:TComponent{$endif});
procedure Loaded;
procedure Notification(AComponent:TComponent;Operation:TOperation);
procedure AddSection(Section:TINICustomSection);
procedure DestroyTables;
procedure FEPClear(Item:TObject;Data:Pointer);
procedure FEPCopy(Item:TObject;Data:Pointer);
procedure FEPInit(Item:TObject;Data:Pointer);
procedure FEPRead(Item:TObject;Data:Pointer);
procedure FEPReadHumanReadable(Item:TObject;Data:Pointer);
procedure FEPRefresh(Item:TObject;Data:Pointer);
procedure FEPReset(Item:TObject;Data:Pointer);
procedure FEPWrite(Item:TObject;Data:Pointer);
procedure FEPWriteHumanReadable(Item:TObject;Data:Pointer);
function GetMaster:TComponent;
function GetSection(Index:Integer):TINICustomSection;
function GetSectionCount:Integer;
function GetSectionOfPrivateModeCount:Integer;
procedure GoSearchSection(MultiSection:TINICustomMultiSection);
procedure GroupNameChanged(Sender:TObject);
function IsDestinationStored:Boolean;
procedure OnTabChange(Sender:TObject);
procedure RemoveSection(Section:TINICustomSection);
function SectionByNumber(SectionNo:Integer):TINICustomSection;
procedure SetDestination(DT:TDestination);
procedure SetDirs(ds:TDirs);
procedure SetDistance(CD:Integer);
procedure SetGlyphs(gs:TGlyphs);
procedure SetMaster(frm:TComponent);
procedure SetNames(ns:TNames);
procedure SetParent(WParent:TWinControl);
procedure SetSection(Index:Integer;Value:TINICustomSection);
procedure SetUserPrivilegLevel(UserLevel:Integer);
procedure UserNameChanged(Sender:TObject);
Properties
property CreatePageOnChange : Boolean
property Destination : TDestination
property Dirs : TDirs
property Distance : Integer
property FileName : string
property Glyphs : TGlyphs
property ImageList : TImageList
property Names : TNames
property Parent : TWinControl
property PrivateModes : TPrivateModes
property UserPrivilegLevel : Integer
property EditOnlyMode : Boolean
property Master : TComponent
property SectionCount : Integer
property SectionOfPrivateModeCount : Integer
property Sections : TINICustomSection
Events
event OnAfterRead : TNotifyEvent
event OnBeforeWrite : TNotifyEvent
event OnFieldChange : TINIFieldNotifyEvent
event OnInit : TNotifyEvent
Variables
FGlyphs : TGlyphs;
FParent : TWinControl;
FStartPage : string;
FWhatPM : TPrivateModes;
FConstCreateInfo : TCreateInfo;
FCreatePageOnChange : Boolean;
FDestination : TDestination;
FDirs : TDirs;
FDistance : Integer;
FEditOnlyMode : Boolean;
FFileName : string;
FImageList : TImageList;
FMaster : TComponent;
FNames : TNames;
FOnAfterRead : TNotifyEvent;
FOnBeforeWrite : TNotifyEvent;
FOnFieldChange : TINIFieldNotifyEvent;
FOnInit : TNotifyEvent;
FormGetSection : TFormSearchMultiSection;
FSections : TList;
FTabControl : TTabControl;
FUserPrivilegLevel : Integer;