| Class TfrmINIDatabase (unit INIDsgnF) |
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;
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;