home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / QRDEMO.CPP < prev    next >
C/C++ Source or Header  |  1997-02-28  |  2KB  |  45 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1997 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. USERES("qrdemo.res");
  19. //---------------------------------------------------------------------------
  20. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  21. {
  22.     Application->Initialize();
  23.  
  24.     if (Printer()->Printers->Count == 0)
  25.     {
  26.         ShowMessage("You must install a printer before running this example.");
  27.         Application->Terminate();
  28.     }
  29.     else
  30.     {
  31.         Application->CreateForm(__classid(TTQuickReportDemo), &TQuickReportDemo);
  32.         Application->CreateForm(__classid(TSimpForm), &SimpForm);
  33.         Application->CreateForm(__classid(TDataModule2), &DataModule2);
  34.         Application->CreateForm(__classid(TBioForm), &BioForm);
  35.         Application->CreateForm(__classid(TPrevForm), &PrevForm);
  36.         Application->CreateForm(__classid(TMDForm), &MDForm);
  37.         Application->CreateForm(__classid(TTextRep), &TextRep);
  38.         Application->CreateForm(__classid(TLabelForm), &LabelForm);
  39.         Application->Run();
  40.     }
  41.  
  42.     return 0;
  43. }
  44. //---------------------------------------------------------------------------
  45.