Class TfrmBook (unit BookMain)

Inherits from

TForm

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;



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;