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;