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