home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / QRDEMO.CPP < prev    next >
C/C++ Source or Header  |  1997-01-16  |  2KB  |  44 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++ Builder
  3. //Copyright (c) 1987 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl\vcl.h>
  7. #pragma hdrstop
  8. #include <vcl\printers.hpp>
  9. //---------------------------------------------------------------------------
  10. USEFORM("Main.cpp", TQuickReportDemo);
  11. USEFORM("simprep.cpp", SimpForm);
  12. USEDATAMODULE("CustDM.cpp", DataModule2);
  13. USEFORM("BioRep.cpp", BioForm);
  14. USEFORM("DemoPre.cpp", PrevForm);
  15. USEFORM("MDRep.cpp", MDForm);
  16. USEFORM("TextList.cpp", TextRep);
  17. USEFORM("Labelrep.cpp", LabelForm);
  18. //---------------------------------------------------------------------------
  19. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  20. {
  21.     Application->Initialize();
  22.  
  23.     if (Printer()->Printers->Count == 0)
  24.     {
  25.         ShowMessage("You must install a printer before running this example.");
  26.         Application->Terminate();
  27.     }
  28.     else
  29.     {
  30.         Application->CreateForm(__classid(TTQuickReportDemo), &TQuickReportDemo);
  31.         Application->CreateForm(__classid(TSimpForm), &SimpForm);
  32.         Application->CreateForm(__classid(TDataModule2), &DataModule2);
  33.         Application->CreateForm(__classid(TBioForm), &BioForm);
  34.         Application->CreateForm(__classid(TPrevForm), &PrevForm);
  35.         Application->CreateForm(__classid(TMDForm), &MDForm);
  36.         Application->CreateForm(__classid(TTextRep), &TextRep);
  37.         Application->CreateForm(__classid(TLabelForm), &LabelForm);
  38.         Application->Run();
  39.     }
  40.  
  41.     return 0;
  42. }
  43. //---------------------------------------------------------------------------
  44.