home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / Borland / Cplus45 / BC45 / COLORDLG.PAK / CCTLTEST.CPP next >
Encoding:
C/C++ Source or Header  |  1995-08-29  |  1.3 KB  |  57 lines
  1. //----------------------------------------------------------------------------
  2. // ObjectWindows - (C) Copyright 1991, 1993 by Borland International
  3. //
  4. // This example uses the custom control and dialog box defined in colordlg.cpp
  5. //
  6. //----------------------------------------------------------------------------
  7. #include <owl\owlpch.h>
  8. #include <owl\framewin.h>
  9. #include <owl\applicat.h>
  10. #include "cctltest.h"
  11. #include "colordlg.h"
  12.  
  13. class TTestApp : public TApplication {
  14.   public:
  15.     TTestApp() : TApplication("Custom Control Test") {}
  16.  
  17.   private:
  18.     void   InitMainWindow();
  19.     void   CmColor();
  20.  
  21.     TColor Color;
  22.  
  23.   DECLARE_RESPONSE_TABLE(TTestApp);
  24. };
  25.  
  26. DEFINE_RESPONSE_TABLE1(TTestApp, TApplication)
  27.   EV_COMMAND(CM_COLOR, CmColor),
  28. END_RESPONSE_TABLE;
  29.  
  30. void
  31. TTestApp::InitMainWindow()
  32. {
  33.   MainWindow = new TFrameWindow(0, Name);
  34.   MainWindow->AssignMenu("Commands");
  35.   Color = 0;
  36. }
  37.  
  38. void
  39. TTestApp::CmColor()
  40. {
  41.   char   msg[128];
  42.   if (TColorDialog(MainWindow, Color).Execute() == IDOK)
  43.     wsprintf(msg,
  44.              "RGB intensities:\r\n\r\n Red: %d\r\n Green: %d\r\n Blue: %d",
  45.              Color.Red(), Color.Green(), Color.Blue());
  46.   else
  47.     strcpy(msg, "Cancelled");
  48.  
  49.   MainWindow->MessageBox(msg, Name, MB_OK);
  50. }
  51.  
  52. int
  53. OwlMain(int /*argc*/, char* /*argv*/ [])
  54. {
  55.   return TTestApp().Run();
  56. }
  57.