| Class TfrmBook (unit BookMain) |
TForm
| Constructors |
| Functions |
procedure btnCategoriesClick(Sender: TObject);
procedure btnExitClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure sbtAddCatClick(Sender: TObject);
procedure sbtClearClick(Sender: TObject);
procedure sbtDeleteClick(Sender: TObject);
procedure sbtFileClick(Sender: TObject);
procedure sbtFindAuthorClick(Sender: TObject);
procedure sbtFindCatClick(Sender: TObject);
procedure sbtFindTitleClick(Sender: TObject);
procedure sbtFirstClick(Sender: TObject);
procedure sbtLastClick(Sender: TObject);
procedure sbtNewClick(Sender: TObject);
procedure sbtNextClick(Sender: TObject);
procedure sbtPrevClick(Sender: TObject);
procedure sbtPrintClick(Sender: TObject);
procedure DisplayHint(Sender: TObject);| Properties |
| Events |
| Variables |
btnCategories : TButton;
btnExit : TButton;
edtAuthor : TEdit;
edtPublisher : TEdit;
edtTitle : TEdit;
ffiBooks : TFFile;
gbxCategory : TGroupBox;
idgBooks : TIDGen;
idgCatList : TIDGen;
idgMemos : TIDGen;
keyAuthor : TKey;
keyCat : TKey;
keyTitle : TKey;
labAuthor : TLabel;
labPublisher : TLabel;
labRemarks : TLabel;
labTitle : TLabel;
lbxCat : TListBox;
memRemarks : TMemo;
pnlFind : TPanel;
pnlNav : TPanel;
pnlNavigate : TPanel;
pnlSpecial : TPanel;
pnlStore : TPanel;
sbtAddCat : TSpeedButton;
sbtClear : TSpeedButton;
sbtDelete : TSpeedButton;
sbtFile : TSpeedButton;
sbtFindAuthor : TSpeedButton;
sbtFindCat : TSpeedButton;
sbtFindTitle : TSpeedButton;
sbtFirst : TSpeedButton;
sbtLast : TSpeedButton;
sbtNew : TSpeedButton;
sbtNext : TSpeedButton;
sbtPrev : TSpeedButton;
sbtPrint : TSpeedButton;
skyBooks : TSelKey;
stbBook : TStatusBar;
vfiCatList : TVFile;
vfiMemos : TVFile;| Constructors |
| Functions |
procedure btnCategoriesClick(Sender: TObject);
procedure btnExitClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);required but ignored
procedure FormCreate(Sender: TObject);
procedure sbtAddCatClick(Sender: TObject);
procedure sbtClearClick(Sender: TObject);
procedure sbtDeleteClick(Sender: TObject);
procedure sbtFileClick(Sender: TObject);
procedure sbtFindAuthorClick(Sender: TObject);
procedure sbtFindCatClick(Sender: TObject);
procedure sbtFindTitleClick(Sender: TObject);
procedure sbtFirstClick(Sender: TObject);
procedure sbtLastClick(Sender: TObject);
procedure sbtNewClick(Sender: TObject);
procedure sbtNextClick(Sender: TObject);
procedure sbtPrevClick(Sender: TObject);
procedure sbtPrintClick(Sender: TObject);
procedure DisplayHint(Sender: TObject);Private declarations
| Properties |
| Events |
| Variables |
btnCategories : TButton;
btnExit : TButton;
edtAuthor : TEdit;
edtPublisher : TEdit;
edtTitle : TEdit;
ffiBooks : TFFile;
gbxCategory : TGroupBox;
idgBooks : TIDGen;
idgCatList : TIDGen;
idgMemos : TIDGen;
keyAuthor : TKey;
keyCat : TKey;
keyTitle : TKey;
labAuthor : TLabel;
labPublisher : TLabel;
labRemarks : TLabel;
labTitle : TLabel;
lbxCat : TListBox;
memRemarks : TMemo;
pnlFind : TPanel;
pnlNav : TPanel;
pnlNavigate : TPanel;
pnlSpecial : TPanel;
pnlStore : TPanel;
sbtAddCat : TSpeedButton;
sbtClear : TSpeedButton;
sbtDelete : TSpeedButton;
sbtFile : TSpeedButton;
sbtFindAuthor : TSpeedButton;
sbtFindCat : TSpeedButton;
sbtFindTitle : TSpeedButton;
sbtFirst : TSpeedButton;
sbtLast : TSpeedButton;
sbtNew : TSpeedButton;
sbtNext : TSpeedButton;
sbtPrev : TSpeedButton;
sbtPrint : TSpeedButton;
skyBooks : TSelKey;
stbBook : TStatusBar;
vfiCatList : TVFile;
vfiMemos : TVFile;