Class TfrmEditINIDB (unit INIEdit)

Inherits from

TForm

Constructors


constructor Create(AOwner:TComponent);



Functions

procedure BBExploreClick(Sender: TObject);


procedure BBHelpClick(Sender: TObject);


procedure BBOkClick(Sender: TObject);


procedure cbRunPathClick(Sender: TObject);


procedure cbWindowsPathClick(Sender: TObject);


procedure cbWindowsUserClick(Sender: TObject);


procedure Clear1Click(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDeactivate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormHide(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure INIDBBeforeWrite(Sender: TObject);


procedure Load1Click(Sender: TObject);


procedure pgControlChange(Sender: TObject);


procedure popImagePopup(Sender: TObject);


procedure POPStretchClick(Sender: TObject);


procedure SBPublicDirClick(Sender: TObject);


procedure secDBEditStretchChange(Sender: TINIField);


procedure SpeedButton2Click(Sender: TObject);


procedure SpeedButton3Click(Sender: TObject);


procedure SpeedButton6Click(Sender: TObject);


procedure SpeedButton7Click(Sender: TObject);


procedure tcGlyphsChange(Sender: TObject);


procedure tcGlyphsChanging(Sender: TObject; var AllowChange: Boolean);


destructor Destroy;


function Go(Designer:TFormDesigner;INIDatabase:TINIDatabase):Boolean;


procedure ClearGlyph(Index:Integer);


procedure FillCombo;


procedure FillDestinations;


procedure LoadGlyph(Index:Integer);


procedure RefreshGlyph(Index:Integer);


procedure SetComponentValues;


procedure SetDirectory(EditC:TEdit);


procedure SetGlyphData(Index:Integer);


procedure SetTabSheet;


procedure SetValues;


procedure UpdateControls;


Properties

Events

Variables

BBCancel : TBitBtn;


BBExplore : TBitBtn;


BBHelp : TBitBtn;


BBOk : TBitBtn;


cbRunPath : TCheckBox;


cbWindowsPath : TCheckBox;


cbWindowsUser : TCheckBox;


chbCreatePageOnChange : TCheckBox;


chkPrivateModes : TCheckGroup;


Clear1 : TMenuItem;


cmbDestination : TComboBox;


cmbParent : TComboBox;


ECaption : TEdit;


EComputerName : TEdit;


EDistance : TSpinEdit;


EFileName : TEdit;


EGroupDir : TEdit;


EGroupName : TEdit;


ENumGlyphs : TSpinEdit;


EPublicDir : TEdit;


EUserDir : TEdit;


EUserName : TEdit;


EUserPL : TSpinEdit;


FormSaver : TFormSaver;


imgGlyph : TImage;


INIDB : TINIDatabase;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


Load1 : TMenuItem;


N1 : TMenuItem;


OD : TOpenDialog;


ODGlyph : TOpenDialog;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


pgControl : TPageControl;


pnlButtons : TAutoAlignPanel;


popImage : TPopupMenu;


POPStretch : TMenuItem;


SBPublicDir : TSpeedButton;


secDBEdit : TINISection;


secDBEditODDir : TINIEntryString;


secDBEditStretch : TINIEntryBoolean;


secDBEditTabIndex : TINIEntryInteger;


secDBEditTabSheet : TINIEntryString;


SpeedButton2 : TSpeedButton;


SpeedButton3 : TSpeedButton;


SpeedButton6 : TSpeedButton;


SpeedButton7 : TSpeedButton;


tcGlyphs : TTabControl;


tsDestination : TTabSheet;


tsDirs : TTabSheet;


tsGlyphs : TTabSheet;


tsMain : TTabSheet;


tsNames : TTabSheet;


FDatabase : TINIDatabase;


FDesigner : TFormDesigner;


FExplored : Boolean;


FGlyphs : array[0..2] of TGlyphDescriptor;


FSaveHLPFile : string;



Constructors


constructor Create(AOwner:TComponent);


Functions


procedure BBExploreClick(Sender: TObject);


procedure BBHelpClick(Sender: TObject);


procedure BBOkClick(Sender: TObject);


procedure cbRunPathClick(Sender: TObject);


procedure cbWindowsPathClick(Sender: TObject);


procedure cbWindowsUserClick(Sender: TObject);


procedure Clear1Click(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDeactivate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormHide(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure INIDBBeforeWrite(Sender: TObject);


procedure Load1Click(Sender: TObject);


procedure pgControlChange(Sender: TObject);


procedure popImagePopup(Sender: TObject);


procedure POPStretchClick(Sender: TObject);


procedure SBPublicDirClick(Sender: TObject);


procedure secDBEditStretchChange(Sender: TINIField);


procedure SpeedButton2Click(Sender: TObject);


procedure SpeedButton3Click(Sender: TObject);


procedure SpeedButton6Click(Sender: TObject);


procedure SpeedButton7Click(Sender: TObject);


procedure tcGlyphsChange(Sender: TObject);


procedure tcGlyphsChanging(Sender: TObject; var AllowChange: Boolean);


destructor Destroy;


function Go(Designer:TFormDesigner;INIDatabase:TINIDatabase):Boolean;


procedure ClearGlyph(Index:Integer);


procedure FillCombo;


procedure FillDestinations;


procedure LoadGlyph(Index:Integer);


procedure RefreshGlyph(Index:Integer);


procedure SetComponentValues;


procedure SetDirectory(EditC:TEdit);


procedure SetGlyphData(Index:Integer);


procedure SetTabSheet;


procedure SetValues;


procedure UpdateControls;


Properties


Events


Variables


BBCancel : TBitBtn;


BBExplore : TBitBtn;


BBHelp : TBitBtn;


BBOk : TBitBtn;


cbRunPath : TCheckBox;


cbWindowsPath : TCheckBox;


cbWindowsUser : TCheckBox;


chbCreatePageOnChange : TCheckBox;


chkPrivateModes : TCheckGroup;


Clear1 : TMenuItem;


cmbDestination : TComboBox;


cmbParent : TComboBox;


ECaption : TEdit;


EComputerName : TEdit;


EDistance : TSpinEdit;


EFileName : TEdit;


EGroupDir : TEdit;


EGroupName : TEdit;


ENumGlyphs : TSpinEdit;


EPublicDir : TEdit;


EUserDir : TEdit;


EUserName : TEdit;


EUserPL : TSpinEdit;


FormSaver : TFormSaver;


imgGlyph : TImage;


INIDB : TINIDatabase;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


Load1 : TMenuItem;


N1 : TMenuItem;


OD : TOpenDialog;


ODGlyph : TOpenDialog;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


pgControl : TPageControl;


pnlButtons : TAutoAlignPanel;


popImage : TPopupMenu;


POPStretch : TMenuItem;


SBPublicDir : TSpeedButton;


secDBEdit : TINISection;


secDBEditODDir : TINIEntryString;


secDBEditStretch : TINIEntryBoolean;


secDBEditTabIndex : TINIEntryInteger;


secDBEditTabSheet : TINIEntryString;


SpeedButton2 : TSpeedButton;


SpeedButton3 : TSpeedButton;


SpeedButton6 : TSpeedButton;


SpeedButton7 : TSpeedButton;


tcGlyphs : TTabControl;


tsDestination : TTabSheet;


tsDirs : TTabSheet;


tsGlyphs : TTabSheet;


tsMain : TTabSheet;


tsNames : TTabSheet;


FDatabase : TINIDatabase;


FDesigner : TFormDesigner;


FExplored : Boolean;


FGlyphs : array[0..2] of TGlyphDescriptor;


FSaveHLPFile : string;