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;