home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / OS2API / OS2-PMCL.ADS < prev    next >
Encoding:
Text File  |  1996-07-20  |  4.0 KB  |  81 lines
  1.  
  2. -- ╔═══════════════════════════════════════════════════════════════════╗
  3. -- ║       D E S I G N   E N G I N E R I N G              ║D║S║        ║
  4. -- ║            S O F T W A R E                           ╚═╩═╝        ║
  5. -- ║                                                                   ║
  6. -- ║        Package     Os2.PMcl                                       ║
  7. -- ║                                                                   ║
  8. -- ║        Author :  Leonid Dulman     1995                           ║
  9. -- ║                                                                   ║
  10. -- ║             GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS            ║
  11. -- ║                                                                   ║
  12. -- ║               PM        System color   functions                  ║
  13. -- ║                                                                   ║
  14. -- ╚═══════════════════════════════════════════════════════════════════╝
  15.  
  16.  
  17. with Interfaces.C;         use Interfaces.C;
  18. with Interfaces.C.Strings; use Interfaces.C.Strings;
  19.  
  20. package Os2.PMcl is
  21. pragma Preelaborate (PMcl);
  22. --     System color ; functions
  23.  
  24. function WinQuerySysColor(hwndDesktop:HWND ;
  25.                           clr        :LONG ;
  26.                           lReserved  :LONG )return LONG;
  27.  
  28. pragma Import(c,WinQuerySysColor, Link_name=>"_WinQuerySysColor");
  29.  
  30. function WinSetSysColors(hwndDesktop:HWND  ;
  31.                          flOptions  :ULONG ;
  32.                          flFormat   :ULONG ;
  33.                          clrFirst   :LONG  ;
  34.                          cclr       :ULONG ;
  35.                          pclr       :PLONG )return BOOL32;
  36. pragma Import(c,WinSetSysColors, Link_name=>"_WinSetSysColors");
  37.  
  38.  SYSCLR_SHADOWHILITEBGND        :constant Long := -50;
  39.  SYSCLR_SHADOWHILITEFGND        :constant Long := -49;
  40.  SYSCLR_SHADOWTEXT              :constant Long := -48;
  41.  SYSCLR_ENTRYFIELD              :constant Long := -47;
  42.  SYSCLR_MENUDISABLEDTEXT        :constant Long := -46;
  43.  SYSCLR_MENUHILITE              :constant Long := -45;
  44.  SYSCLR_MENUHILITEBGND          :constant Long := -44;
  45.  SYSCLR_PAGEBACKGROUND          :constant Long := -43;
  46.  SYSCLR_FIELDBACKGROUND         :constant Long := -42;
  47.  SYSCLR_BUTTONLIGHT             :constant Long := -41;
  48.  SYSCLR_BUTTONMIDDLE            :constant Long := -40;
  49.  SYSCLR_BUTTONDARK              :constant Long := -39;
  50.  SYSCLR_BUTTONDEFAULT           :constant Long := -38;
  51.  SYSCLR_TITLEBOTTOM             :constant Long := -37;
  52.  SYSCLR_SHADOW                  :constant Long := -36;
  53.  SYSCLR_ICONTEXT                :constant Long := -35;
  54.  SYSCLR_DIALOGBACKGROUND        :constant Long := -34;
  55.  SYSCLR_HILITEFOREGROUND        :constant Long := -33;
  56.  SYSCLR_HILITEBACKGROUND        :constant Long := -32;
  57.  SYSCLR_INACTIVETITLETEXTBGND   :constant Long := -31;
  58.  SYSCLR_ACTIVETITLETEXTBGND     :constant Long := -30;
  59.  SYSCLR_INACTIVETITLETEXT       :constant Long := -29;
  60.  SYSCLR_ACTIVETITLETEXT         :constant Long := -28;
  61.  SYSCLR_OUTPUTTEXT              :constant Long := -27;
  62.  SYSCLR_WINDOWSTATICTEXT        :constant Long := -26;
  63.  SYSCLR_SCROLLBAR               :constant Long := -25;
  64.  SYSCLR_BACKGROUND              :constant Long := -24;
  65.  SYSCLR_ACTIVETITLE             :constant Long := -23;
  66.  SYSCLR_INACTIVETITLE           :constant Long := -22;
  67.  SYSCLR_MENU                    :constant Long := -21;
  68.  SYSCLR_WINDOW                  :constant Long := -20;
  69.  SYSCLR_WINDOWFRAME             :constant Long := -19;
  70.  SYSCLR_MENUTEXT                :constant Long := -18;
  71.  SYSCLR_WINDOWTEXT              :constant Long := -17;
  72.  SYSCLR_TITLETEXT               :constant Long := -16;
  73.  SYSCLR_ACTIVEBORDER            :constant Long := -15;
  74.  SYSCLR_INACTIVEBORDER          :constant Long := -14;
  75.  SYSCLR_APPWORKSPACE            :constant Long := -13;
  76.  SYSCLR_HELPBACKGROUND          :constant Long := -12;
  77.  SYSCLR_HELPTEXT                :constant Long := -11;
  78.  SYSCLR_HELPHILITE              :constant Long := -10;
  79.  SYSCLR_CSYSCOLORS              :constant Long :=  41;
  80. end os2.PMcl;
  81.