home *** CD-ROM | disk | FTP | other *** search
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #pragma hdrstop
-
- #include "Toolbar.h"
- #include "DM.h"
- #include "About.h"
- //---------------------------------------------------------------------------
- #pragma resource "*.dfm"
- TfmToolbar *fmToolbar;
- //---------------------------------------------------------------------------
- __fastcall TfmToolbar::TfmToolbar(TComponent* Owner)
- : TForm(Owner)
- {
- }
- //---------------------------------------------------------------------------
- void __fastcall TfmToolbar::Close1Click(TObject *Sender)
- {
- Application->Terminate();
- }
- //---------------------------------------------------------------------
- void __fastcall TfmToolbar::about1Click(TObject *Sender)
- {
- fmAboutBox->ShowModal();
- }
- //---------------------------------------------------------------------
- void __fastcall TfmToolbar::Messages1Click(TObject *Sender)
- {
- // Used to display messages on change of focus.
- Messages1->Checked = !Messages1->Checked;
- }
- //---------------------------------------------------------------------
- void __fastcall TfmToolbar::Tile1Click(TObject *Sender)
- {
- Tile();
- }
- //---------------------------------------------------------------------
- void __fastcall TfmToolbar::Cascade1Click(TObject *Sender)
- {
- Cascade();
- }
- //---------------------------------------------------------------------
- void __fastcall TfmToolbar::First1Click(TObject *Sender)
- {
- DBNavigator1->BtnClick(nbFirst);
- }
- //---------------------------------------------------------------------
- void __fastcall TfmToolbar::Next1Click(TObject *Sender)
- {
- DBNavigator1->BtnClick(nbNext);
- }
- //---------------------------------------------------------------------
- void __fastcall TfmToolbar::Prior1Click(TObject *Sender)
- {
- DBNavigator1->BtnClick(nbPrior);
- }
- //---------------------------------------------------------------------
- void __fastcall TfmToolbar::Last1Click(TObject *Sender)
- {
- DBNavigator1->BtnClick(nbLast);
- }
- //---------------------------------------------------------------------
- void __fastcall TfmToolbar::Delete1Click(TObject *Sender)
- {
- DBNavigator1->BtnClick(nbDelete);
- }
- //---------------------------------------------------------------------
- void __fastcall TfmToolbar::Insert1Click(TObject *Sender)
- {
- DBNavigator1->BtnClick(nbInsert);
- }
- //---------------------------------------------------------------------
- void __fastcall TfmToolbar::Cancel1Click(TObject *Sender)
- {
- DBNavigator1->BtnClick(nbCancel);
- }
- //---------------------------------------------------------------------