Class TfrmINIDatabase (unit INIDsgnF)

Inherits from

TForm

Constructors


constructor Create(AOwner:TComponent);



Functions

procedure BBCloseClick(Sender: TObject);


procedure BBHelpClick(Sender: TObject);


procedure BBOptionsClick(Sender: TObject);


procedure Customize1Click(Sender: TObject);


destructor Destroy;


procedure Edit1Click(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormDeactivate(Sender: TObject);


procedure FormHide(Sender: TObject);


procedure FormResize(Sender: TObject);


procedure FormShow(Sender: TObject);


function Go(Designer:TFormDesigner;INIDatabase:TINIDatabase;Form:TComponent):Integer;


procedure Hide1Click(Sender: TObject);


procedure Hide2Click(Sender: TObject);


procedure INIDBAfterRead(Sender: TObject);


procedure Invertselection1Click(Sender: TObject);


procedure listFCustomizeList(Sender: TObject; Node:TTreeNode;List: TStringList);


procedure listFDragDrop(Sender: TObject; DropNode, AcceptNode: TTreeNode; const DropParamName: string);


procedure listFDragOver(Sender: TObject; DragNode, AcceptNode: TTreeNode; const DragParamName: string; var Accept: Boolean);


procedure listFEdited(Sender: TObject; EditedNode: TTreeNode; var S: string);


procedure listFExecuteVerb(Sender: TObject; PopupNode: TTreeNode; Verb: Integer);


procedure listGroupsCustomizeList(Sender: TObject; Node:TTreeNode;List: TStringList);


procedure listGroupsDragDrop(Sender: TObject; DropNode, AcceptNode: TTreeNode; const DropParamName: string);


procedure listGroupsDragOver(Sender: TObject; DragNode, AcceptNode: TTreeNode; const DragParamName: string; var Accept: Boolean);


procedure listGroupsEdited(Sender: TObject; EditedNode: TTreeNode; var S: string);


procedure listGroupsExecuteVerb(Sender: TObject; PopupNode: TTreeNode; Verb: Integer);


procedure listPOCustomizeList(Sender: TObject; Node:TTreeNode;List: TStringList);


procedure listPODragDrop(Sender: TObject; DropNode, AcceptNode: TTreeNode; const DropParamName: string);


procedure listPODragOver(Sender: TObject; DragNode, AcceptNode: TTreeNode; const DragParamName: string; var Accept: Boolean);


procedure listPOExecuteVerb(Sender: TObject; PopupNode: TTreeNode; Verb: Integer);


procedure listSCustomizeList(Sender: TObject; Node:TTreeNode;List: TStringList);


procedure listSDragDrop(Sender: TObject; DropNode, AcceptNode: TTreeNode; const DropParamName: string);


procedure listSDragOver(Sender: TObject; DragNode, AcceptNode: TTreeNode; const DragParamName: string; var Accept: Boolean);


procedure listSEdited(Sender: TObject; EditedNode: TTreeNode; var S: string);


procedure listSExecuteVerb(Sender: TObject; PopupNode: TTreeNode; Verb: Integer);


procedure LVAddColumnClick(Sender: TObject);


procedure LVChange(Sender: TObject; Item: TListItem; Change: TItemChange);


procedure LVClick(Sender: TObject);


procedure LVCopyClick(Sender: TObject);


procedure LVCopyNameClick(Sender: TObject);


procedure LVDblClick(Sender: TObject);


procedure LVDeleteClick(Sender: TObject);


procedure LVDeleteColumnClick(Sender: TObject);


procedure LVEnter(Sender: TObject);


procedure LVInspectClick(Sender: TObject);


procedure LVKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure LVKeyPress(Sender: TObject; var Key: Char);


procedure LVPasteClick(Sender: TObject);


procedure LVSelectAllClick(Sender: TObject);


procedure LVSetGroupClick(Sender: TObject);


procedure Openall1Click(Sender: TObject);


procedure POPExpandAllClick(Sender: TObject);


procedure popMenuLVPopup(Sender: TObject);


procedure popMenuTVPopup(Sender: TObject);


procedure popPathPopup(Sender: TObject);


procedure POPRefreshClick(Sender: TObject);


procedure POPRunClick(Sender: TObject);


procedure POPSaveShortCutClick(Sender: TObject);


procedure popShortCutsPopup(Sender: TObject);


procedure popToolBarPopup(Sender: TObject);


procedure PTHBottomClick(Sender: TObject);


procedure SBAboutClick(Sender: TObject);


procedure SBCopyClick(Sender: TObject);


procedure SBDeleteClick(Sender: TObject);


procedure SBInspectClick(Sender: TObject);


procedure SBPasteClick(Sender: TObject);


procedure SBPopupClick(Sender: TObject);


procedure SBRunClick(Sender: TObject);


procedure SBSectionRunClick(Sender: TObject);


procedure SBShortCutsClick(Sender: TObject);


procedure secFieldsBeforeEdit(Sender: TObject);


procedure secFieldsTypeChange(Sender: TINIField);


procedure secFieldsTypeInit(Sender: TINIField);


procedure secGrabbersChange(Sender: TObject);


procedure secGrabbersIntegerInit(Sender: TINIField);


procedure secMainGroupNameChange(Sender: TINIField);


procedure secMainLeftWBeforeWrite(Sender: TINIField);


procedure secOptionsAlwaysRebuildTreeStructureAfterExpandChange( Sender: TINIField);


procedure secOptionsAutoRenameChange(Sender: TINIField);


procedure secOptionsCurrentPathChange(Sender: TINIField);


procedure secOptionsDefEntryInit(Sender: TINIField);


procedure secOptionsPathUpDownChange(Sender: TINIField);


procedure secOptionsShowLVChange(Sender: TINIField);


procedure secOptionsShowResizingChange(Sender: TINIField);


procedure secOptionsToolBarLocationChange(Sender: TINIField);


procedure secOptionsWarnDupFieldNameChange(Sender: TINIField);


procedure secSectionsDestinationInit(Sender: TINIField);


procedure secSectionsTypeInit(Sender: TINIField);


procedure secToolBarOpenpopupmenuChange(Sender: TINIField);


procedure secToolBarShowAllClick(Sender: TObject);


procedure secUserOptionsShowToolBarChange(Sender: TINIField);


procedure TBRightClick(Sender: TObject);


procedure TVChange(Sender: TObject; Node: TTreeNode);


procedure TVClick(Sender: TObject);


procedure TVCopyClick(Sender: TObject);


procedure TVCopyCreationCodeClick(Sender: TObject);


procedure TVCopyNameClick(Sender: TObject);


procedure TVDeleteClick(Sender: TObject);


procedure TVEnter(Sender: TObject);


procedure TVInspectClick(Sender: TObject);


procedure TVKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure TVKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure TVMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure TVPasteClick(Sender: TObject);


procedure AddNewEntry(Node:TTreeNode;EntryID:Integer);


procedure AddNewGroup(Node:TTreeNode);


procedure AddNewGroupInSection(Section:TINICustomSection;Node:TTreeNode);


procedure AddNewSection(Node:TTreeNode;SectionID:Integer);


function CreateEntrySubSection(Section:TINICustomSection;const gName:string):TINIEntrySubSection;


function CreateNewEntry(var INIEntryClassID:Integer;Section:TINICustomSection;const gName:string):TINIEntry;


function CreateNewEntryByClass(INIEntryClass:TClassOfINIEntry;Section:TINICustomSection;const eName,gName:string):TINIEntry;


function CreateNewSection(var INISectionClassID:Integer;PM:TPrivateMode;ParentSection:TINICustomSection):TINICustomSection;


procedure CreateWnd;


procedure DeleteEntry(Node:TTreeNode);


procedure DeleteGroup(Node:TTreeNode);


procedure DeleteSection(Node:TTreeNode);


function DestroyEntry(Entry:TINIEntry;Always:Boolean):Boolean;


function DestroySection(Section:TINICustomSection;Always:Boolean):Boolean;


function GetEntryClassByPropertyType(PPI:PPropInfo):TClassOfINIEntry;


function GetEntryFromNode(Node:TTreeNode):TINIEntry;


function GetINIEntry(const eName:string):TINIEntry;


function GetINISection(const sName:string):TINICustomSection;


function GetParentSection:TINICustomSection;


function GetSectionFromNode(Node:TTreeNode):TINICustomSection;


function MoveGroupToSection(DropNode,AcceptNode:TTreeNode;Index:Integer):Integer;


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


procedure RefreshLV(Node:TTreeNode;Select:Boolean);


procedure SelectComponent;


procedure ShowLV(ShowIt:Boolean);


procedure WMGetMinMaxInfo(var Msg:TWMGetMinMaxInfo);


procedure AddFieldsToLV(C:TComponent;DistributedP,ExtraP:Pointer);


procedure AddFieldsToTV(C:TComponent;DistributedP,ExtraP:Pointer);


procedure AddGroupsToLV(C:TComponent;DistributedP,ExtraP:Pointer);


procedure AddGroupsToTV(C:TComponent;DistributedP,ExtraP:Pointer);


procedure AddLVColumn(const Caption:string);


procedure AddLVItem(const ComponentName,Caption:string;SubCaptions:array of string;ImageIndex:Integer);


procedure AddSectionsToLV(C:TComponent;DistributedP,ExtraP:Pointer);


procedure AddSectionsToTV(C:TComponent;DistributedP,ExtraP:Pointer);


procedure AdvanceProgressBar(Step:Integer);


procedure BeginInitialization;


procedure BeginLongJob(const Title:string);


function ClipboardComponents:Boolean;


procedure CloseProgressDialog;


procedure ComponentRead(Component:TComponent);


procedure ComponentRenamed(ComponentHandle:Pointer;const OldName,NewName:string);


procedure CopyComponents(Root: TComponent;Components:TComponentList);


function CountToolBarVisibleButtons:Integer;


function CreateGrabbedSection(SectionClass:TClassOfINISection;PM:TPrivateMode;const sName,fName,fDestination:string):TINICustomSection;


procedure CreateINIEntries;


procedure DeleteLVItems;


procedure DeleteTVNode(Node:TTreeNode;const ParamName:string);


procedure DoBeforeShow;


procedure DoGetFields(Node:TTreeNode;DoProc:TDoProcedure;DistributedP:Pointer);


procedure DoGetGroups(Node:TTreeNode;DoProc:TDoProcedure;DistributedP:Pointer);


procedure DoGetSections(Node:TTreeNode;DoProc:TDoProcedure;DistributedP:Pointer);


procedure DoingLongJob(AlwaysProcessMessages,Progress:Boolean;Position:Integer);


procedure DoLVCopy;


procedure DoLVDelete;


procedure DoLVPaste;


procedure DoPaste;


procedure DoTVCopy;


procedure DoTVDelete;


procedure DoTVPaste;


procedure EditOptions(Section,EditSection:TINICustomSection;const Title,EditGroup:string;W,H:Integer;ResetEnabled:Boolean);


procedure EnableClipboardCommands;


procedure EndInitialization;


procedure EndLongJob;


function GetFormComponent:TComponent;


function GetLVSelections:TComponentList;

RefreshLV(TV.

function GetMinXSize:Integer;


function GetMinYSize:Integer;


procedure GoAbout;


procedure GoTest(Node:TTreeNode;TestAll:Boolean);


function GrabStructureFromComponent(PM:TPrivateMode;C:TObject):Integer;


function GrabStructureFromFile(PM:TPrivateMode;FromRegistry:Boolean):Integer;


function GrabStructureFromForm(PM:TPrivateMode;GrabFromForm:TForm):Integer;


procedure IamInitialized;


procedure InitEntryClasses;


procedure InitEntryTypes(Sender: TINIField);


procedure InitSectionClasses;


procedure InitSectionTypes(Sender: TINIField;lCount:Integer);


procedure InitToolBar;


procedure InitTV;


procedure ListFFillLV;


procedure ListFSelected;


procedure ListGroupsFillLV;


procedure ListGroupsSelected;


procedure ListPOFillLV;


procedure ListPOSelected;


procedure ListSFillLV;


procedure ListSSelected;


procedure LVBeginUpdate;


procedure LVEndUpdate;


function NotCancelException(E:Exception):Boolean;


procedure OnGrabComponentStructureClick(Sender:TObject);


procedure OnGrabFormStructureClick(Sender:TObject);


procedure OnMenuEntriesClick(Sender:TObject);


procedure OnMenuSectionsClick(Sender:TObject);


procedure OnShortCutClick(Sender:TObject);


procedure OpenProgressDialog(const Title:string;Open:Boolean);


procedure OpenShortCutMenu;


procedure OpenShortCuts(Open,All:Boolean);


procedure PasteComponents(AOwner,AParent:TComponent;Components:TComponentList);


procedure PostRefreshLV;


procedure ReaderSetName(Reader:TReader;Component:TComponent;var Name:string);


procedure ReadShortCuts;


procedure SaveAsShortCut(Node:TTreeNode);


function SaveSectionAsTemplate(Section:TINICustomSection;Replace:Boolean):string;


procedure SetGroupAttributes(Section:TINICustomSection;const gName:string);


procedure SetLVColumns(Captions:array of string);


procedure SetLVSelections;


procedure SetPathLocation;


procedure SetToolBarLocation;


procedure SyncronizeTV;


procedure WMRefreshLV(var Msg:TMessage);


procedure WriteShortCuts;


Properties

property INIDatabase : TINIDatabase


Events

Variables

BBClose : TBitBtn;


BBHelp : TBitBtn;


BBOptions : TBitBtn;


Customize1 : TMenuItem;


Edit1 : TMenuItem;


FormSaver : TFormSaver;


Hide1 : TMenuItem;


Hide2 : TMenuItem;


imgList : TImageList;


imgListINI : TImageList;


INIDB : TINIDatabase;


INIEntrySubSection1 : TINIEntrySubSection;


INIEntrySubSection2 : TINIEntrySubSection;


INIEntrySubSection4 : TINIEntrySubSection;


INIEntrySubSection5 : TINIEntrySubSection;


Invertselection1 : TMenuItem;


lblProgress : TLabel;


listF : TSimpleListDistributor;


listGroups : TSimpleListDistributor;


listPO : TSimpleListDistributor;


listS : TSimpleListDistributor;


LV : TListView;


LVAddColumn : TMenuItem;


LVCopy : TMenuItem;


LVCopyCreationCode : TMenuItem;


LVCopyName : TMenuItem;


LVDelete : TMenuItem;


LVDeleteColumn : TMenuItem;


LVInspect : TMenuItem;


LVPaste : TMenuItem;


LVSelectAll : TMenuItem;


LVSep0 : TMenuItem;


LVSep1 : TMenuItem;


LVSep2 : TMenuItem;


LVSetGroup : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


N5 : TMenuItem;


OD : TOpenDialog;


Openall1 : TMenuItem;


pnlBottom : TPanel;


pnlButtons : TAutoAlignPanel;


pnlLeft : TPanel;


pnlMain : TPanel;


pnlPath : TPanel;


pnlRight : TPanel;


pnlSB : TAutoAlignPanel;


pnlToolRight : TAutoAlignPanel;


pnlTools : TPanel;


pnlTree : TPanel;


POPExpandAll : TMenuItem;


popMenuEntries : TPopupMenu;


popMenuLV : TPopupMenu;


popMenuSections : TPopupMenu;


popMenuTV : TPopupMenu;


popPath : TPopupMenu;


POPRefresh : TMenuItem;


POPRun : TMenuItem;


POPSaveShortCut : TMenuItem;


popShortCuts : TPopupMenu;


POPShortCutsSeparator : TMenuItem;


popToolBar : TPopupMenu;


ProgressBar : TProgressBar;


PTHBottom : TMenuItem;


PTHTop : TMenuItem;


ResizeLine : TLineForResizing;


SBAbout : TSpeedButton;


SBCopy : TSpeedButton;


SBDelete : TSpeedButton;


SBInspect : TSpeedButton;


SBPaste : TSpeedButton;


SBPopup : TSpeedButton;


SBRun : TSpeedButton;


SBSectionRun : TSpeedButton;


SBShortCuts : TSpeedButton;


secFields : TINIMultiSection;


secFieldsCalculated : TINIEntryBoolean;


secFieldsCaptionstyle : TINIEntryOneOfStrings;


secFieldsDefaultValue : TINIEntryString;


secFieldsDisplayLabel : TINIEntryString;


secFieldsDisplayWidth : TINIEntryInteger;


secFieldsItems1 : TINIEntrySaveList;


secFieldsItems2 : TINIEntrySaveList;


secFieldsType : TINIEntryOneOfStrings;


secFieldsVisible : TINIEntryBoolean;


secFilters : TINIMultiSection;


secFiltersFilter : TINIEntryString;


secFont : TINISectionFont;


secGrabbers : TINIMultiSection;


secGrabbersBinary : TINIEntryOneOfStrings;


secGrabbersBoolean : TINIEntryOneOfStrings;


secGrabbersColumns : TINIEntryInteger;


secGrabbersCStyle : TINIEntryOneOfStrings;


secGrabbersDirection : TINIEntryOneOfStrings;


secGrabbersFloat : TINIEntryOneOfStrings;


secGrabbersForceDW : TINIEntryInteger;


secGrabbersForceString : TINIEntryBoolean;


secGrabbersGTP : TINIEntryOneOfStrings;


secGrabbersInteger : TINIEntryOneOfStrings;


secGrabbersNewGroupSS : TINIEntryBoolean;


secGrabbersString : TINIEntryOneOfStrings;


secGroups : TINIMultiSection;


secGroupsColumns : TINIEntryInteger;


secGroupsDirection : TINIEntryOneOfStrings;


secGroupsINIEntrySubSection1 : TINIEntrySubSection;


secMain : TINISection;


secMainConfirmDeleteEntry : TINIEntryBoolean;


secMainConfirmDeleteGroup : TINIEntryBoolean;


secMainConfirmDeleteSection : TINIEntryBoolean;


secMainDefPrefix : TINIEntryString;


secMainFilterIndex : TINIEntryInteger;


secMainGrabGroupType : TINIEntryOneOfStrings;


secMainGrabRows : TINIEntryInteger;


secMainGroupName : TINIEntryString;


secMainINIEntrySubSection2 : TINIEntrySubSection;


secMainINIEntrySubSection3 : TINIEntrySubSection;


secMainINIEntrySubSection4 : TINIEntrySubSection;


secMainINIEntrySubSection5 : TINIEntrySubSection;


secMainInitialDir : TINIEntryString;


secMainLeftW : TINIEntryInteger;


secMainRegistryPath : TINIEntryString;


secOptions : TINISection;


secOptionsAlwaysRebuildTreeStructureAfterExpand : TINIEntryBoolean;


secOptionsAutoRename : TINIEntryBoolean;


secOptionsCurrentPath : TINIEntryBoolean;


secOptionsDefEntry : TINIEntryOneOfStrings;


secOptionsDefSection : TINIEntryOneOfStrings;


secOptionsDeleteItems : TINIEntryBoolean;


secOptionsINIEntrySubSection5 : TINIEntrySubSection;


secOptionsPathUpDown : TINIEntryOneOfStrings;


secOptionsPopup : TINIEntryBoolean;


secOptionsProcessMessages : TINIEntryBoolean;


secOptionsRefreshTV : TINIEntryBoolean;


secOptionsSaveRPath : TINIEntryBoolean;


secOptionsShowInspector : TINIEntryBoolean;


secOptionsShowLV : TINIEntryBoolean;


secOptionsShowProgressDialog : TINIEntryBoolean;


secOptionsShowResizing : TINIEntryBoolean;


secOptionsToolBarLocation : TINIEntryOneOfStrings;


secOptionsWarnDupFieldName : TINIEntryBoolean;


secSections : TINIMultiSection;


secSectionsDestination : TINIEntryOneOfStrings;


secSectionsFileName : TINIEntryString;


secSectionsGroupType : TINIEntryOneOfStrings;


secSectionsHeight : TINIEntryInteger;


secSectionsRows : TINIEntryInteger;


secSectionsRuntimeFile : TINIEntryBoolean;


secSectionsSectionName : TINIEntryString;


secSectionsType : TINIEntryOneOfStrings;


secShortCuts : TINIMultiSection;


secShortcutsOpenOnStart : TINIEntryBoolean;


secShortCutsShortCut : TINIEntryString;


secState : TINISection;


secStateBooleanValues : TINIEntryString;


secTesting : TINISection;


secTestingINIEntrySubSection6 : TINIEntrySubSection;


secTestingResizeable : TINIEntryBoolean;


secToolBar : TINISection;


secToolBarBookmarks : TINIEntryBoolean;


secToolBarCopy : TINIEntryBoolean;


secToolBarDelete : TINIEntryBoolean;


secToolBarInspect : TINIEntryBoolean;


secToolBarOpenpopupmenu : TINIEntryBoolean;


secToolBarPaste : TINIEntryBoolean;


secToolBarRun : TINIEntryBoolean;


secToolBarRunSection : TINIEntryBoolean;


secUserOptions : TINIMultiSection;


secUserOptionsDefPLGroup : TINIEntryInteger;


secUserOptionsDefPLPublic : TINIEntryInteger;


secUserOptionsDefPLUser : TINIEntryInteger;


secUserOptionsOpenOnStart : TINIEntryBoolean;


secUserOptionsOpenShortcuts : TINIEntryBoolean;


secUserOptionsShowToolBar : TINIEntryBoolean;


Specialcopy1 : TMenuItem;


Specialcopy2 : TMenuItem;


TBBottom : TMenuItem;


TBLeft : TMenuItem;


TBRight : TMenuItem;


TBTop : TMenuItem;


TV : TDBTreeView;


TVCopy : TMenuItem;


TVCopyCreationCode : TMenuItem;


TVCopyName : TMenuItem;


TVDelete : TMenuItem;


TVInspect : TMenuItem;


TVPaste : TMenuItem;


FDesigner : TFormDesigner;


FForm : TComponent;


FINIDatabase : TINIDatabase;


FClosing : Boolean;


FClpComponents : TComponentList;


FClpExtraInfo : TClpExtraInfo;


FClpOwner : TComponent;


FClpParent : TComponent;


FDoingLongJobValue : Integer;


FINIOptions : TfrmINIOptions;


FInitializationLevel : Integer;


FLastNode : TTreeNode;


FLastSelectedParam : string;


FLongJobTitle : string;


FLVGroups : Boolean;


FRefreshLVLevel : Integer;


FSaveHLPFile : string;


FSelectedComponents : TComponentList;



Constructors


constructor Create(AOwner:TComponent);


Functions


procedure BBCloseClick(Sender: TObject);


procedure BBHelpClick(Sender: TObject);


procedure BBOptionsClick(Sender: TObject);


procedure Customize1Click(Sender: TObject);


destructor Destroy;


procedure Edit1Click(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormDeactivate(Sender: TObject);


procedure FormHide(Sender: TObject);


procedure FormResize(Sender: TObject);


procedure FormShow(Sender: TObject);


function Go(Designer:TFormDesigner;INIDatabase:TINIDatabase;Form:TComponent):Integer;


procedure Hide1Click(Sender: TObject);


procedure Hide2Click(Sender: TObject);


procedure INIDBAfterRead(Sender: TObject);


procedure Invertselection1Click(Sender: TObject);


procedure listFCustomizeList(Sender: TObject; Node:TTreeNode;List: TStringList);


procedure listFDragDrop(Sender: TObject; DropNode, AcceptNode: TTreeNode; const DropParamName: string);


procedure listFDragOver(Sender: TObject; DragNode, AcceptNode: TTreeNode; const DragParamName: string; var Accept: Boolean);


procedure listFEdited(Sender: TObject; EditedNode: TTreeNode; var S: string);


procedure listFExecuteVerb(Sender: TObject; PopupNode: TTreeNode; Verb: Integer);


procedure listGroupsCustomizeList(Sender: TObject; Node:TTreeNode;List: TStringList);


procedure listGroupsDragDrop(Sender: TObject; DropNode, AcceptNode: TTreeNode; const DropParamName: string);


procedure listGroupsDragOver(Sender: TObject; DragNode, AcceptNode: TTreeNode; const DragParamName: string; var Accept: Boolean);


procedure listGroupsEdited(Sender: TObject; EditedNode: TTreeNode; var S: string);


procedure listGroupsExecuteVerb(Sender: TObject; PopupNode: TTreeNode; Verb: Integer);


procedure listPOCustomizeList(Sender: TObject; Node:TTreeNode;List: TStringList);


procedure listPODragDrop(Sender: TObject; DropNode, AcceptNode: TTreeNode; const DropParamName: string);


procedure listPODragOver(Sender: TObject; DragNode, AcceptNode: TTreeNode; const DragParamName: string; var Accept: Boolean);


procedure listPOExecuteVerb(Sender: TObject; PopupNode: TTreeNode; Verb: Integer);


procedure listSCustomizeList(Sender: TObject; Node:TTreeNode;List: TStringList);


procedure listSDragDrop(Sender: TObject; DropNode, AcceptNode: TTreeNode; const DropParamName: string);


procedure listSDragOver(Sender: TObject; DragNode, AcceptNode: TTreeNode; const DragParamName: string; var Accept: Boolean);


procedure listSEdited(Sender: TObject; EditedNode: TTreeNode; var S: string);


procedure listSExecuteVerb(Sender: TObject; PopupNode: TTreeNode; Verb: Integer);


procedure LVAddColumnClick(Sender: TObject);


procedure LVChange(Sender: TObject; Item: TListItem; Change: TItemChange);


procedure LVClick(Sender: TObject);


procedure LVCopyClick(Sender: TObject);


procedure LVCopyNameClick(Sender: TObject);


procedure LVDblClick(Sender: TObject);


procedure LVDeleteClick(Sender: TObject);


procedure LVDeleteColumnClick(Sender: TObject);


procedure LVEnter(Sender: TObject);


procedure LVInspectClick(Sender: TObject);


procedure LVKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure LVKeyPress(Sender: TObject; var Key: Char);


procedure LVPasteClick(Sender: TObject);


procedure LVSelectAllClick(Sender: TObject);


procedure LVSetGroupClick(Sender: TObject);


procedure Openall1Click(Sender: TObject);


procedure POPExpandAllClick(Sender: TObject);


procedure popMenuLVPopup(Sender: TObject);


procedure popMenuTVPopup(Sender: TObject);


procedure popPathPopup(Sender: TObject);


procedure POPRefreshClick(Sender: TObject);


procedure POPRunClick(Sender: TObject);


procedure POPSaveShortCutClick(Sender: TObject);


procedure popShortCutsPopup(Sender: TObject);


procedure popToolBarPopup(Sender: TObject);


procedure PTHBottomClick(Sender: TObject);


procedure SBAboutClick(Sender: TObject);


procedure SBCopyClick(Sender: TObject);


procedure SBDeleteClick(Sender: TObject);


procedure SBInspectClick(Sender: TObject);


procedure SBPasteClick(Sender: TObject);


procedure SBPopupClick(Sender: TObject);


procedure SBRunClick(Sender: TObject);


procedure SBSectionRunClick(Sender: TObject);


procedure SBShortCutsClick(Sender: TObject);


procedure secFieldsBeforeEdit(Sender: TObject);


procedure secFieldsTypeChange(Sender: TINIField);


procedure secFieldsTypeInit(Sender: TINIField);


procedure secGrabbersChange(Sender: TObject);


procedure secGrabbersIntegerInit(Sender: TINIField);


procedure secMainGroupNameChange(Sender: TINIField);


procedure secMainLeftWBeforeWrite(Sender: TINIField);


procedure secOptionsAlwaysRebuildTreeStructureAfterExpandChange( Sender: TINIField);


procedure secOptionsAutoRenameChange(Sender: TINIField);


procedure secOptionsCurrentPathChange(Sender: TINIField);


procedure secOptionsDefEntryInit(Sender: TINIField);


procedure secOptionsPathUpDownChange(Sender: TINIField);


procedure secOptionsShowLVChange(Sender: TINIField);


procedure secOptionsShowResizingChange(Sender: TINIField);


procedure secOptionsToolBarLocationChange(Sender: TINIField);


procedure secOptionsWarnDupFieldNameChange(Sender: TINIField);


procedure secSectionsDestinationInit(Sender: TINIField);


procedure secSectionsTypeInit(Sender: TINIField);


procedure secToolBarOpenpopupmenuChange(Sender: TINIField);


procedure secToolBarShowAllClick(Sender: TObject);


procedure secUserOptionsShowToolBarChange(Sender: TINIField);


procedure TBRightClick(Sender: TObject);


procedure TVChange(Sender: TObject; Node: TTreeNode);


procedure TVClick(Sender: TObject);


procedure TVCopyClick(Sender: TObject);


procedure TVCopyCreationCodeClick(Sender: TObject);


procedure TVCopyNameClick(Sender: TObject);


procedure TVDeleteClick(Sender: TObject);


procedure TVEnter(Sender: TObject);


procedure TVInspectClick(Sender: TObject);


procedure TVKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure TVKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure TVMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure TVPasteClick(Sender: TObject);


procedure AddNewEntry(Node:TTreeNode;EntryID:Integer);


procedure AddNewGroup(Node:TTreeNode);


procedure AddNewGroupInSection(Section:TINICustomSection;Node:TTreeNode);


procedure AddNewSection(Node:TTreeNode;SectionID:Integer);


function CreateEntrySubSection(Section:TINICustomSection;const gName:string):TINIEntrySubSection;


function CreateNewEntry(var INIEntryClassID:Integer;Section:TINICustomSection;const gName:string):TINIEntry;


function CreateNewEntryByClass(INIEntryClass:TClassOfINIEntry;Section:TINICustomSection;const eName,gName:string):TINIEntry;


function CreateNewSection(var INISectionClassID:Integer;PM:TPrivateMode;ParentSection:TINICustomSection):TINICustomSection;


procedure CreateWnd;


procedure DeleteEntry(Node:TTreeNode);


procedure DeleteGroup(Node:TTreeNode);


procedure DeleteSection(Node:TTreeNode);


function DestroyEntry(Entry:TINIEntry;Always:Boolean):Boolean;


function DestroySection(Section:TINICustomSection;Always:Boolean):Boolean;


function GetEntryClassByPropertyType(PPI:PPropInfo):TClassOfINIEntry;


function GetEntryFromNode(Node:TTreeNode):TINIEntry;


function GetINIEntry(const eName:string):TINIEntry;


function GetINISection(const sName:string):TINICustomSection;


function GetParentSection:TINICustomSection;


function GetSectionFromNode(Node:TTreeNode):TINICustomSection;


function MoveGroupToSection(DropNode,AcceptNode:TTreeNode;Index:Integer):Integer;


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


procedure RefreshLV(Node:TTreeNode;Select:Boolean);


procedure SelectComponent;


procedure ShowLV(ShowIt:Boolean);


procedure WMGetMinMaxInfo(var Msg:TWMGetMinMaxInfo);


procedure AddFieldsToLV(C:TComponent;DistributedP,ExtraP:Pointer);


procedure AddFieldsToTV(C:TComponent;DistributedP,ExtraP:Pointer);


procedure AddGroupsToLV(C:TComponent;DistributedP,ExtraP:Pointer);


procedure AddGroupsToTV(C:TComponent;DistributedP,ExtraP:Pointer);


procedure AddLVColumn(const Caption:string);


procedure AddLVItem(const ComponentName,Caption:string;SubCaptions:array of string;ImageIndex:Integer);


procedure AddSectionsToLV(C:TComponent;DistributedP,ExtraP:Pointer);


procedure AddSectionsToTV(C:TComponent;DistributedP,ExtraP:Pointer);


procedure AdvanceProgressBar(Step:Integer);


procedure BeginInitialization;


procedure BeginLongJob(const Title:string);


function ClipboardComponents:Boolean;


procedure CloseProgressDialog;


procedure ComponentRead(Component:TComponent);


procedure ComponentRenamed(ComponentHandle:Pointer;const OldName,NewName:string);


procedure CopyComponents(Root: TComponent;Components:TComponentList);


function CountToolBarVisibleButtons:Integer;


function CreateGrabbedSection(SectionClass:TClassOfINISection;PM:TPrivateMode;const sName,fName,fDestination:string):TINICustomSection;


procedure CreateINIEntries;


procedure DeleteLVItems;


procedure DeleteTVNode(Node:TTreeNode;const ParamName:string);


procedure DoBeforeShow;


procedure DoGetFields(Node:TTreeNode;DoProc:TDoProcedure;DistributedP:Pointer);


procedure DoGetGroups(Node:TTreeNode;DoProc:TDoProcedure;DistributedP:Pointer);


procedure DoGetSections(Node:TTreeNode;DoProc:TDoProcedure;DistributedP:Pointer);


procedure DoingLongJob(AlwaysProcessMessages,Progress:Boolean;Position:Integer);


procedure DoLVCopy;


procedure DoLVDelete;


procedure DoLVPaste;


procedure DoPaste;


procedure DoTVCopy;


procedure DoTVDelete;


procedure DoTVPaste;


procedure EditOptions(Section,EditSection:TINICustomSection;const Title,EditGroup:string;W,H:Integer;ResetEnabled:Boolean);


procedure EnableClipboardCommands;


procedure EndInitialization;


procedure EndLongJob;


function GetFormComponent:TComponent;


function GetLVSelections:TComponentList;

RefreshLV(TV.Selected,False);


function GetMinXSize:Integer;


function GetMinYSize:Integer;


procedure GoAbout;


procedure GoTest(Node:TTreeNode;TestAll:Boolean);


function GrabStructureFromComponent(PM:TPrivateMode;C:TObject):Integer;


function GrabStructureFromFile(PM:TPrivateMode;FromRegistry:Boolean):Integer;


function GrabStructureFromForm(PM:TPrivateMode;GrabFromForm:TForm):Integer;


procedure IamInitialized;


procedure InitEntryClasses;


procedure InitEntryTypes(Sender: TINIField);


procedure InitSectionClasses;


procedure InitSectionTypes(Sender: TINIField;lCount:Integer);


procedure InitToolBar;


procedure InitTV;


procedure ListFFillLV;


procedure ListFSelected;


procedure ListGroupsFillLV;


procedure ListGroupsSelected;


procedure ListPOFillLV;


procedure ListPOSelected;


procedure ListSFillLV;


procedure ListSSelected;


procedure LVBeginUpdate;


procedure LVEndUpdate;


function NotCancelException(E:Exception):Boolean;


procedure OnGrabComponentStructureClick(Sender:TObject);


procedure OnGrabFormStructureClick(Sender:TObject);


procedure OnMenuEntriesClick(Sender:TObject);


procedure OnMenuSectionsClick(Sender:TObject);


procedure OnShortCutClick(Sender:TObject);


procedure OpenProgressDialog(const Title:string;Open:Boolean);


procedure OpenShortCutMenu;


procedure OpenShortCuts(Open,All:Boolean);


procedure PasteComponents(AOwner,AParent:TComponent;Components:TComponentList);


procedure PostRefreshLV;


procedure ReaderSetName(Reader:TReader;Component:TComponent;var Name:string);


procedure ReadShortCuts;


procedure SaveAsShortCut(Node:TTreeNode);


function SaveSectionAsTemplate(Section:TINICustomSection;Replace:Boolean):string;


procedure SetGroupAttributes(Section:TINICustomSection;const gName:string);


procedure SetLVColumns(Captions:array of string);


procedure SetLVSelections;


procedure SetPathLocation;


procedure SetToolBarLocation;


procedure SyncronizeTV;


procedure WMRefreshLV(var Msg:TMessage);


procedure WriteShortCuts;


Properties


property INIDatabase : TINIDatabase


Events


Variables


BBClose : TBitBtn;


BBHelp : TBitBtn;


BBOptions : TBitBtn;


Customize1 : TMenuItem;


Edit1 : TMenuItem;


FormSaver : TFormSaver;


Hide1 : TMenuItem;


Hide2 : TMenuItem;


imgList : TImageList;


imgListINI : TImageList;


INIDB : TINIDatabase;


INIEntrySubSection1 : TINIEntrySubSection;


INIEntrySubSection2 : TINIEntrySubSection;


INIEntrySubSection4 : TINIEntrySubSection;


INIEntrySubSection5 : TINIEntrySubSection;


Invertselection1 : TMenuItem;


lblProgress : TLabel;


listF : TSimpleListDistributor;


listGroups : TSimpleListDistributor;


listPO : TSimpleListDistributor;


listS : TSimpleListDistributor;


LV : TListView;


LVAddColumn : TMenuItem;


LVCopy : TMenuItem;


LVCopyCreationCode : TMenuItem;


LVCopyName : TMenuItem;


LVDelete : TMenuItem;


LVDeleteColumn : TMenuItem;


LVInspect : TMenuItem;


LVPaste : TMenuItem;


LVSelectAll : TMenuItem;


LVSep0 : TMenuItem;


LVSep1 : TMenuItem;


LVSep2 : TMenuItem;


LVSetGroup : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


N5 : TMenuItem;


OD : TOpenDialog;


Openall1 : TMenuItem;


pnlBottom : TPanel;


pnlButtons : TAutoAlignPanel;


pnlLeft : TPanel;


pnlMain : TPanel;


pnlPath : TPanel;


pnlRight : TPanel;


pnlSB : TAutoAlignPanel;


pnlToolRight : TAutoAlignPanel;


pnlTools : TPanel;


pnlTree : TPanel;


POPExpandAll : TMenuItem;


popMenuEntries : TPopupMenu;


popMenuLV : TPopupMenu;


popMenuSections : TPopupMenu;


popMenuTV : TPopupMenu;


popPath : TPopupMenu;


POPRefresh : TMenuItem;


POPRun : TMenuItem;


POPSaveShortCut : TMenuItem;


popShortCuts : TPopupMenu;


POPShortCutsSeparator : TMenuItem;


popToolBar : TPopupMenu;


ProgressBar : TProgressBar;


PTHBottom : TMenuItem;


PTHTop : TMenuItem;


ResizeLine : TLineForResizing;


SBAbout : TSpeedButton;


SBCopy : TSpeedButton;


SBDelete : TSpeedButton;


SBInspect : TSpeedButton;


SBPaste : TSpeedButton;


SBPopup : TSpeedButton;


SBRun : TSpeedButton;


SBSectionRun : TSpeedButton;


SBShortCuts : TSpeedButton;


secFields : TINIMultiSection;


secFieldsCalculated : TINIEntryBoolean;


secFieldsCaptionstyle : TINIEntryOneOfStrings;


secFieldsDefaultValue : TINIEntryString;


secFieldsDisplayLabel : TINIEntryString;


secFieldsDisplayWidth : TINIEntryInteger;


secFieldsItems1 : TINIEntrySaveList;


secFieldsItems2 : TINIEntrySaveList;


secFieldsType : TINIEntryOneOfStrings;


secFieldsVisible : TINIEntryBoolean;


secFilters : TINIMultiSection;


secFiltersFilter : TINIEntryString;


secFont : TINISectionFont;


secGrabbers : TINIMultiSection;


secGrabbersBinary : TINIEntryOneOfStrings;


secGrabbersBoolean : TINIEntryOneOfStrings;


secGrabbersColumns : TINIEntryInteger;


secGrabbersCStyle : TINIEntryOneOfStrings;


secGrabbersDirection : TINIEntryOneOfStrings;


secGrabbersFloat : TINIEntryOneOfStrings;


secGrabbersForceDW : TINIEntryInteger;


secGrabbersForceString : TINIEntryBoolean;


secGrabbersGTP : TINIEntryOneOfStrings;


secGrabbersInteger : TINIEntryOneOfStrings;


secGrabbersNewGroupSS : TINIEntryBoolean;


secGrabbersString : TINIEntryOneOfStrings;


secGroups : TINIMultiSection;


secGroupsColumns : TINIEntryInteger;


secGroupsDirection : TINIEntryOneOfStrings;


secGroupsINIEntrySubSection1 : TINIEntrySubSection;


secMain : TINISection;


secMainConfirmDeleteEntry : TINIEntryBoolean;


secMainConfirmDeleteGroup : TINIEntryBoolean;


secMainConfirmDeleteSection : TINIEntryBoolean;


secMainDefPrefix : TINIEntryString;


secMainFilterIndex : TINIEntryInteger;


secMainGrabGroupType : TINIEntryOneOfStrings;


secMainGrabRows : TINIEntryInteger;


secMainGroupName : TINIEntryString;


secMainINIEntrySubSection2 : TINIEntrySubSection;


secMainINIEntrySubSection3 : TINIEntrySubSection;


secMainINIEntrySubSection4 : TINIEntrySubSection;


secMainINIEntrySubSection5 : TINIEntrySubSection;


secMainInitialDir : TINIEntryString;


secMainLeftW : TINIEntryInteger;


secMainRegistryPath : TINIEntryString;


secOptions : TINISection;


secOptionsAlwaysRebuildTreeStructureAfterExpand : TINIEntryBoolean;


secOptionsAutoRename : TINIEntryBoolean;


secOptionsCurrentPath : TINIEntryBoolean;


secOptionsDefEntry : TINIEntryOneOfStrings;


secOptionsDefSection : TINIEntryOneOfStrings;


secOptionsDeleteItems : TINIEntryBoolean;


secOptionsINIEntrySubSection5 : TINIEntrySubSection;


secOptionsPathUpDown : TINIEntryOneOfStrings;


secOptionsPopup : TINIEntryBoolean;


secOptionsProcessMessages : TINIEntryBoolean;


secOptionsRefreshTV : TINIEntryBoolean;


secOptionsSaveRPath : TINIEntryBoolean;


secOptionsShowInspector : TINIEntryBoolean;


secOptionsShowLV : TINIEntryBoolean;


secOptionsShowProgressDialog : TINIEntryBoolean;


secOptionsShowResizing : TINIEntryBoolean;


secOptionsToolBarLocation : TINIEntryOneOfStrings;


secOptionsWarnDupFieldName : TINIEntryBoolean;


secSections : TINIMultiSection;


secSectionsDestination : TINIEntryOneOfStrings;


secSectionsFileName : TINIEntryString;


secSectionsGroupType : TINIEntryOneOfStrings;


secSectionsHeight : TINIEntryInteger;


secSectionsRows : TINIEntryInteger;


secSectionsRuntimeFile : TINIEntryBoolean;


secSectionsSectionName : TINIEntryString;


secSectionsType : TINIEntryOneOfStrings;


secShortCuts : TINIMultiSection;


secShortcutsOpenOnStart : TINIEntryBoolean;


secShortCutsShortCut : TINIEntryString;


secState : TINISection;


secStateBooleanValues : TINIEntryString;


secTesting : TINISection;


secTestingINIEntrySubSection6 : TINIEntrySubSection;


secTestingResizeable : TINIEntryBoolean;


secToolBar : TINISection;


secToolBarBookmarks : TINIEntryBoolean;


secToolBarCopy : TINIEntryBoolean;


secToolBarDelete : TINIEntryBoolean;


secToolBarInspect : TINIEntryBoolean;


secToolBarOpenpopupmenu : TINIEntryBoolean;


secToolBarPaste : TINIEntryBoolean;


secToolBarRun : TINIEntryBoolean;


secToolBarRunSection : TINIEntryBoolean;


secUserOptions : TINIMultiSection;


secUserOptionsDefPLGroup : TINIEntryInteger;


secUserOptionsDefPLPublic : TINIEntryInteger;


secUserOptionsDefPLUser : TINIEntryInteger;


secUserOptionsOpenOnStart : TINIEntryBoolean;


secUserOptionsOpenShortcuts : TINIEntryBoolean;


secUserOptionsShowToolBar : TINIEntryBoolean;


Specialcopy1 : TMenuItem;


Specialcopy2 : TMenuItem;


TBBottom : TMenuItem;


TBLeft : TMenuItem;


TBRight : TMenuItem;


TBTop : TMenuItem;


TV : TDBTreeView;


TVCopy : TMenuItem;


TVCopyCreationCode : TMenuItem;


TVCopyName : TMenuItem;


TVDelete : TMenuItem;


TVInspect : TMenuItem;


TVPaste : TMenuItem;


FDesigner : TFormDesigner;


FForm : TComponent;


FINIDatabase : TINIDatabase;


FClosing : Boolean;


FClpComponents : TComponentList;


FClpExtraInfo : TClpExtraInfo;


FClpOwner : TComponent;


FClpParent : TComponent;


FDoingLongJobValue : Integer;


FINIOptions : TfrmINIOptions;


FInitializationLevel : Integer;


FLastNode : TTreeNode;


FLastSelectedParam : string;


FLongJobTitle : string;


FLVGroups : Boolean;


FRefreshLVLevel : Integer;


FSaveHLPFile : string;


FSelectedComponents : TComponentList;