Class TINICustomSection (unit INISec)

Inherits from

TINITable

Constructors


constructor Create(AOwner:TComponent);

******************************************************* INISection ********************************************************


Functions

procedure ClearControls;


procedure CopySection(const CopyFrom:string);


function DeleteGroup(const gName:string):Boolean;


procedure DeleteSection;


destructor Destroy;


procedure DisableControls;


procedure EnableControls;


function ExchangeGroups(const gNameF,gNameL:string):Boolean;


function FieldsInGroup(const gName:string):Integer;


function FindSection(const sName:string):TINICustomSection;


function GetGroupIndex(const gName:string):Integer;


procedure HideControls;


procedure Init;


function InsertGroup(const gName:string;Columns,ImageIndex:Integer;Direction:TCreateDirection;Index:Integer):Boolean;


procedure OpenGroupForEdit(const OpenGroup:string);


procedure ReadSection;


procedure RefreshControls;


procedure RenameGroup(const oldName,newName:string);


procedure RenameGroupByIndex(Index:Integer;const newName:string);


procedure Reset;


function SectionByName(const sName:string):TINICustomSection;


procedure ShowControls;


procedure Syncronize(Direction:TSyncronizeDirection);


procedure WriteSection;


function CreateControls(AOwner:TComponent;WParent:TWinControl;GroupNo:Integer;const GroupName:string):Integer;


procedure DefineProperties(Filer:TFiler);


procedure DoCopySection(const CopyFrom:string);


procedure DoDeleteSection;


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


procedure DoReadSection;


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


procedure DoWriteSection;


procedure Enable(State:Boolean);


procedure EnablePanel(State:Boolean);


function InternalCreatePage(AOwner:TComponent;WParent:TWinControl;var NoCreated:Integer):TControl;


procedure Loaded;


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


procedure OpenLocalGroupForEdit(const OpenGroup:string);


procedure ReadGroups(Reader:TReader);


procedure ReadState(Reader:TReader);


procedure SetDatabase(DB:TINIDatabase);


procedure SetParentComponent(AParent:TComponent);


procedure Show(Show:Boolean);


function StoreGroupInfo:Boolean;


procedure WriteGroups(Writer:TWriter);


procedure ArrangeIfVScroll(WControl:TWinControl);


function CountVisibleControls(const GroupName:string):Integer;


function CreateCascadeGroups(AOwner:TComponent;WParent:TAutoAlignPanel):Integer;


function CreateTileGroups(AOwner:TComponent;WParent:TAutoAlignPanel):Integer;


procedure FEPClear(Item:TObject;Data:Pointer);


procedure FEPCopy(Item:TObject;Data:Pointer);


procedure FEPDelete(Item:TObject;Data:Pointer);


procedure FEPEnable(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 FEPShow(Item:TObject;Data:Pointer);


procedure FEPSync(Item:TObject;Data:Pointer);


procedure FEPWrite(Item:TObject;Data:Pointer);


procedure FEPWriteHumanReadable(Item:TObject;Data:Pointer);


procedure ForEachEntry(FEP:TForEachProcedure;Data:Pointer);


procedure ForEachEntryStreamed(FEP:TForEachProcedure;Data:Pointer);


function GetColumnsInGroup(Index:Integer):Integer;


function GetDirectionInGroup(Index:Integer):TCreateDirection;


function GetGroup(Index:Integer):string;


function GetGroupCount:Integer;


function GetGroupImageIndex(Index:Integer):Integer;


function GetPrivatePrefix:string;


function GetRuntimeSectionName:string;


function GetValidFileName:string;


procedure PreparePrefix;


procedure SetColumnsInGroup(Index:Integer;Clmn:Integer);


procedure SetDirectionInGroup(Index:Integer;CD:TCreateDirection);


procedure SetGroupImageIndex(Index:Integer;II:Integer);


procedure SetGroups(gList:TStringList);


procedure SetHeight(h:Integer);


procedure SetImageIndex(II:Integer);


procedure SetPanel(pnl:TPanel);


procedure SetPrivilegLevel(Level:Integer);


procedure SetRows(Row:Integer);


procedure SetSectionName(const sName:string);


Properties

property ParentDestination :


property PrivateMode :


property PrivilegLevel : Integer


property SectionName : string


property AlwaysShowGroup : Boolean


property ColumnsInGroup : Integer


property DirectionInGroup : TCreateDirection


property Group : string


property GroupCount : Integer


property GroupExpandable : Boolean


property GroupImageIndex : Integer


property GroupTitlePosition : TGroupTitlePosition


property GroupType : TGroupType


property Height : Integer


property ImageIndex : Integer


property Rows : Integer


property RuntimeSectionName : string


property State : TSectionStates


property Panel : TPanel


Events

event OnAfterEdit : TNotifyEvent


event OnAfterRead : TNotifyEvent


event OnBeforeEdit : TNotifyEvent


event OnBeforeWrite : TNotifyEvent


event OnCalcFields : TNotifyEvent


event OnInit : TNotifyEvent


Variables

FAlwaysShowGroup : Boolean;


FGroups : TStringList;


FGroupTitlePosition : TGroupTitlePosition;


FGroupType : TGroupType;


FHeight : Integer;


FImageIndex : Integer;


FOnAfterEdit : TNotifyEvent;


FOnAfterRead : TNotifyEvent;


FOnBeforeEdit : TNotifyEvent;


FOnBeforeWrite : TNotifyEvent;


FOnCalcFields : TNotifyEvent;


FOnInit : TNotifyEvent;


FPanel : TPanel;


FPrefix : string;


FPrivilegLevel : Integer;


FRows : Integer;


FSectionName : string;


FSectionState : TSectionStates;



Constructors


constructor Create(AOwner:TComponent);

******************************************************* INISection ********************************************************


Functions


procedure ClearControls;


procedure CopySection(const CopyFrom:string);


function DeleteGroup(const gName:string):Boolean;


procedure DeleteSection;


destructor Destroy;


procedure DisableControls;


procedure EnableControls;


function ExchangeGroups(const gNameF,gNameL:string):Boolean;


function FieldsInGroup(const gName:string):Integer;


function FindSection(const sName:string):TINICustomSection;


function GetGroupIndex(const gName:string):Integer;


procedure HideControls;


procedure Init;


function InsertGroup(const gName:string;Columns,ImageIndex:Integer;Direction:TCreateDirection;Index:Integer):Boolean;


procedure OpenGroupForEdit(const OpenGroup:string);


procedure ReadSection;


procedure RefreshControls;


procedure RenameGroup(const oldName,newName:string);


procedure RenameGroupByIndex(Index:Integer;const newName:string);


procedure Reset;


function SectionByName(const sName:string):TINICustomSection;


procedure ShowControls;


procedure Syncronize(Direction:TSyncronizeDirection);


procedure WriteSection;


function CreateControls(AOwner:TComponent;WParent:TWinControl;GroupNo:Integer;const GroupName:string):Integer;


procedure DefineProperties(Filer:TFiler);


procedure DoCopySection(const CopyFrom:string);


procedure DoDeleteSection;


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


procedure DoReadSection;


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


procedure DoWriteSection;


procedure Enable(State:Boolean);


procedure EnablePanel(State:Boolean);


function InternalCreatePage(AOwner:TComponent;WParent:TWinControl;var NoCreated:Integer):TControl;


procedure Loaded;


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


procedure OpenLocalGroupForEdit(const OpenGroup:string);


procedure ReadGroups(Reader:TReader);


procedure ReadState(Reader:TReader);


procedure SetDatabase(DB:TINIDatabase);


procedure SetParentComponent(AParent:TComponent);


procedure Show(Show:Boolean);


function StoreGroupInfo:Boolean;


procedure WriteGroups(Writer:TWriter);


procedure ArrangeIfVScroll(WControl:TWinControl);


function CountVisibleControls(const GroupName:string):Integer;


function CreateCascadeGroups(AOwner:TComponent;WParent:TAutoAlignPanel):Integer;


function CreateTileGroups(AOwner:TComponent;WParent:TAutoAlignPanel):Integer;


procedure FEPClear(Item:TObject;Data:Pointer);


procedure FEPCopy(Item:TObject;Data:Pointer);


procedure FEPDelete(Item:TObject;Data:Pointer);


procedure FEPEnable(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 FEPShow(Item:TObject;Data:Pointer);


procedure FEPSync(Item:TObject;Data:Pointer);


procedure FEPWrite(Item:TObject;Data:Pointer);


procedure FEPWriteHumanReadable(Item:TObject;Data:Pointer);


procedure ForEachEntry(FEP:TForEachProcedure;Data:Pointer);


procedure ForEachEntryStreamed(FEP:TForEachProcedure;Data:Pointer);


function GetColumnsInGroup(Index:Integer):Integer;


function GetDirectionInGroup(Index:Integer):TCreateDirection;


function GetGroup(Index:Integer):string;


function GetGroupCount:Integer;


function GetGroupImageIndex(Index:Integer):Integer;


function GetPrivatePrefix:string;


function GetRuntimeSectionName:string;


function GetValidFileName:string;


procedure PreparePrefix;


procedure SetColumnsInGroup(Index:Integer;Clmn:Integer);


procedure SetDirectionInGroup(Index:Integer;CD:TCreateDirection);


procedure SetGroupImageIndex(Index:Integer;II:Integer);


procedure SetGroups(gList:TStringList);


procedure SetHeight(h:Integer);


procedure SetImageIndex(II:Integer);


procedure SetPanel(pnl:TPanel);


procedure SetPrivilegLevel(Level:Integer);


procedure SetRows(Row:Integer);


procedure SetSectionName(const sName:string);


Properties


property ParentDestination :


property PrivateMode :


property PrivilegLevel : Integer


property SectionName : string


property AlwaysShowGroup : Boolean


property ColumnsInGroup : Integer


property DirectionInGroup : TCreateDirection


property Group : string


property GroupCount : Integer


property GroupExpandable : Boolean


property GroupImageIndex : Integer


property GroupTitlePosition : TGroupTitlePosition


property GroupType : TGroupType


property Height : Integer


property ImageIndex : Integer


property Rows : Integer


property RuntimeSectionName : string


property State : TSectionStates


property Panel : TPanel


Events


event OnAfterEdit : TNotifyEvent


event OnAfterRead : TNotifyEvent


event OnBeforeEdit : TNotifyEvent


event OnBeforeWrite : TNotifyEvent


event OnCalcFields : TNotifyEvent


event OnInit : TNotifyEvent


Variables


FAlwaysShowGroup : Boolean;


FGroups : TStringList;


FGroupTitlePosition : TGroupTitlePosition;


FGroupType : TGroupType;


FHeight : Integer;


FImageIndex : Integer;


FOnAfterEdit : TNotifyEvent;


FOnAfterRead : TNotifyEvent;


FOnBeforeEdit : TNotifyEvent;


FOnBeforeWrite : TNotifyEvent;


FOnCalcFields : TNotifyEvent;


FOnInit : TNotifyEvent;


FPanel : TPanel;


FPrefix : string;


FPrivilegLevel : Integer;


FRows : Integer;


FSectionName : string;


FSectionState : TSectionStates;