home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / winentry.def < prev    next >
Encoding:
Modula Definition  |  1992-10-20  |  3.8 KB  |  115 lines
  1. DEFINITION MODULE WINENTRYFIELDS;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 interface for window entry fields controls.
  5.  
  6.   Copyright (c) 1992 by Juergen Neuhoff
  7. *************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$A         default alignment for record fields                        *)
  11.  
  12. FROM OS2DEF IMPORT TYPEPREFIX;
  13.  
  14. CONST (* Entry field  styles *)
  15.   ES_LEFT               = 00000000H;
  16.   ES_CENTER             = 00000001H;
  17.   ES_RIGHT              = 00000002H;
  18.   ES_AUTOSCROLL         = 00000004H;
  19.   ES_MARGIN             = 00000008H;
  20.   ES_AUTOTAB            = 00000010H;
  21.   ES_READONLY           = 00000020H;
  22.   ES_COMMAND            = 00000040H;
  23.   ES_UNREADABLE         = 00000080H;
  24.   ES_AUTOSIZE           = 00000200H;
  25.   ES_ANY                = 00000000H;
  26.   ES_SBCS               = 00001000H;
  27.   ES_DBCS               = 00002000H;
  28.   ES_MIXED              = 00003000H;
  29.  
  30. CONST (* combo box styles *)
  31.   CBS_SIMPLE            = 0001H;
  32.   CBS_DROPDOWN          = 0002H;
  33.   CBS_DROPDOWNLIST      = 0004H;
  34.  (*
  35.   * Use this bit for drop down combo boxes that do not want to
  36.   * receive a CBN_ENTER on a single click in their list boxes.
  37.   * This is for compatibility with releases prior to OS/2 2.0 which
  38.   * did not send this message
  39.   *)
  40.   CBS_COMPATIBLE        = 0008H;
  41.  
  42. CONST
  43.   (*
  44.   * The following edit and listbox styles may be used in conjunction
  45.   * with CBS_ styles
  46.   * ES_AUTOTAB ES_ANY ES_SBCS ES_DBCS ES_MIXED LS_HORZSCROLL
  47.   *)
  48.  
  49.   (*
  50.   * IDs of combobox entry field and listbox.
  51.   *)
  52.   CBID_LIST             = 029AH;
  53.   CBID_EDIT             = 029BH;
  54.  
  55.   CBM_SHOWLIST          = 0170H;
  56.   CBM_HILITE            = 0171H;
  57.   CBM_ISLISTSHOWING     = 0172H;
  58.  
  59.   CBN_EFCHANGE          = 1;
  60.   CBN_EFSCROLL          = 2;
  61.   CBN_MEMERROR          = 3;
  62.   CBN_LBSELECT          = 4;
  63.   CBN_LBSCROLL          = 5;
  64.   CBN_SHOWLIST          = 6;
  65.   CBN_ENTER             = 7;
  66.  
  67. TYPE
  68.   (* Binary resources may be bound into application executables or *)
  69.   (* passed as a parameter when creating a window or dialog        *)
  70.   (* Currently they must be the same for both 16-bit and 32-bit    *)
  71.   (* so we pack the structures.                                    *)
  72.   (*                                                               *)
  73.   (*$A2 WORD alignemnt for record fields                           *)
  74.   ENTRYFDATA            = RECORD
  75.     CASE                  : TYPEPREFIX OF
  76.     | TRUE                :
  77.       cb                  : CARDINAL;
  78.       cchEditLimit        : CARDINAL;
  79.       ichMinSel           : CARDINAL;
  80.       ichMaxSel           : CARDINAL;
  81.     | FALSE               :
  82.       Count               : CARDINAL;
  83.       EditLimit           : CARDINAL;
  84.       MinSel              : CARDINAL;
  85.       MaxSel              : CARDINAL;
  86.     END;                  END;
  87.   PENTRYFDATA           = POINTER TO ENTRYFDATA;
  88.   (*$A restore record field packing to default                     *)
  89.  
  90. CONST (* Entry Field  messages *)
  91.   EM_QUERYCHANGED       = 0140H;
  92.   EM_QUERYSEL           = 0141H;
  93.   EM_SETSEL             = 0142H;
  94.   EM_SETTEXTLIMIT       = 0143H;
  95.   EM_CUT                = 0144H;
  96.   EM_COPY               = 0145H;
  97.   EM_CLEAR              = 0146H;
  98.   EM_PASTE              = 0147H;
  99.   EM_QUERYFIRSTCHAR     = 0148H;
  100.   EM_SETFIRSTCHAR       = 0149H;
  101.   EM_QUERYREADONLY      = 014AH;
  102.   EM_SETREADONLY        = 014BH;
  103.   EM_SETINSERTMODE      = 014CH;
  104.  
  105. CONST (* Entry Field notification messages *)
  106.   EN_SETFOCUS           = 0001H;
  107.   EN_KILLFOCUS          = 0002H;
  108.   EN_CHANGE             = 0004H;
  109.   EN_SCROLL             = 0008H;
  110.   EN_MEMERROR           = 0010H;
  111.   EN_OVERFLOW           = 0020H;
  112.   EN_INSERTMODETOGGLE   = 0040H;
  113.  
  114. END WINENTRYFIELDS.
  115.