home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / STATIC.PAK / STATICX.CPP < prev   
Encoding:
C/C++ Source or Header  |  1997-05-06  |  2.2 KB  |  83 lines
  1. //----------------------------------------------------------------------------
  2. // ObjectWindows
  3. // Copyright (c) 1991, 1995 by Borland International, All Rights Reserved
  4. //----------------------------------------------------------------------------
  5. #include <owl/pch.h>
  6. #include <owl/applicat.h>
  7. #include <owl/framewin.h>
  8. #include <owl/static.h>
  9.  
  10. //
  11. // class TTestWindow
  12. // ~~~~~ ~~~~~~~~~~~
  13. class TTestWindow : public TWindow {
  14.   public:
  15.     TTestWindow(TWindow* parent = 0);
  16. };
  17.  
  18. //
  19. //
  20. //
  21. TTestWindow::TTestWindow(TWindow* parent)
  22. :
  23.   TWindow(parent)
  24. {
  25.   struct {
  26.     char*  Text;
  27.     uint32 And;
  28.     uint32 Or;
  29.   }
  30.   ctlInfo[] = {
  31.     { "Default",     0xFFFFFFFFL, 0 },
  32.     { "SS_SIMPLE",      ~SS_LEFT, SS_SIMPLE },
  33.     { "SS_LEFT",        ~SS_LEFT, SS_LEFT },
  34.     { "SS_NOPREFIX",    ~SS_LEFT, SS_NOPREFIX },
  35.     { "SS_CENTER",      ~SS_LEFT, SS_CENTER },
  36.     { "SS_RIGHT",       ~SS_LEFT, SS_RIGHT },
  37.     { "SS_BLACKRECT",   ~SS_LEFT, SS_BLACKRECT },
  38.     { "SS_GRAYRECT",    ~SS_LEFT, SS_GRAYRECT },
  39.     { "SS_BLACKFRAME",  ~SS_LEFT, SS_BLACKFRAME },
  40.     { "SS_GRAYFRAME",   ~SS_LEFT, SS_GRAYFRAME },
  41.     { "SS_WHITEFRAME",  ~SS_LEFT, SS_WHITEFRAME },
  42. #if defined(BI_PLAT_WIN32)
  43.     { "SS_ETCHEDHORZ",  ~SS_LEFT, SS_ETCHEDHORZ },   //0x00000010L
  44.     { "SS_ETCHEDVERT",  ~SS_LEFT, SS_ETCHEDVERT },   //0x00000011L
  45.     { "SS_ETCHEDFRAME", ~SS_LEFT, SS_ETCHEDFRAME },   //0x00000012L
  46. #endif
  47.   };
  48.  
  49.   Attr.W = 390;
  50.   Attr.H = 460;
  51.  
  52. #if defined(BI_PLAT_WIN32)
  53.   Attr.ExStyle |= WS_EX_CONTROLPARENT;
  54. #endif
  55.  
  56.   for (int i = 0; i < COUNTOF(ctlInfo); i++) {
  57.     new TStatic(this, -1, ctlInfo[i].Text, 20, 20 + i*30, 150, 24, 0);
  58.     TStatic* statik = new TStatic(this, -1, "Sample &Text", 170, 20 + i*30, 200, 24, 0);
  59.     statik->Attr.Style = (statik->Attr.Style & ctlInfo[i].And) | ctlInfo[i].Or;
  60.   }
  61.  
  62.   SetBkgndColor(TColor::Sys3dFace);
  63. }
  64.  
  65.  
  66. //
  67. // class TTestApp
  68. // ~~~~~ ~~~~~~~~
  69. class TTestApp : public TApplication {
  70.   public:
  71.     TTestApp() : TApplication() {}
  72.     void InitMainWindow() {
  73.       SetMainWindow(new TFrameWindow(0, "Static Control Tester", new TTestWindow, true));
  74.     }
  75. };
  76.  
  77. int
  78. OwlMain(int /*argc*/, char* /*argv*/ [])
  79. {
  80.   TTestApp app;
  81.   return app.Run();
  82. }
  83.