home *** CD-ROM | disk | FTP | other *** search
- /**********************************************************************/
- /* BWBUTTON.cpp by Bob Bourbonnais */
- /* released to the public domain 1/12/92 */
- /* This program shows the basics of */
- /* Borland Windows Custom Controls */
- /* BWCC needs the bwcc.h to be included */
- /* in both the .CPP and .RC */
- /* It also needs BWCCGetVersion(); */
- /* to activate the library. */
- /* The Project file must include BWCC.LIB */
- /* The .RC file must have BORDLG as the dialog class */
- /* and then the controls can be of special types */
- /* such as BorShade. */
- /* Remember to add #includes for windows.h and bwcc.h to the .RC */
- /**********************************************************************/
- #include <owl.h>
- #include <dialog.h>
- #include "bwcc.h" // needed for BWCC
-
- class TDialog1App : public TApplication // Application Class to contain
- { // the application
- public:
- TDialog1App(LPSTR lpName, HANDLE hInstance, // constructor calls the
- HANDLE hPrevInstance, // base class constructor
- LPSTR lpCmdLine, int nCmdShow)
- :TApplication(lpName, hInstance,
- hPrevInstance,
- lpCmdLine, nCmdShow) {};
-
- virtual void InitMainWindow(); // overrides base class InitMainWindow
- };
-
- void TDialog1App::InitMainWindow() // to initialize a dialog box
- { // as the main window
- BWCCGetVersion(); // Activate BWCC Library
- MainWindow = new TDialog(NULL, "MAINWINDOWDIALOG");
- }
-
- int PASCAL WinMain(HANDLE hInstance, // main entry point from
- HANDLE hPrevInstance, // windows to this program
- LPSTR lpCmdLine , int nCmdShow)
- {
- TDialog1App Dialog1("Dialog Tester",hInstance, // create instance of
- hPrevInstance, // the dialog application
- lpCmdLine,nCmdShow);
- Dialog1.Run(); // run it
- return (Dialog1.Status); // exit
- }
- /**********************************************************************/
-