Kezdőlap Felfedezés Súgó
Regisztráció Bejelentkezés
AnalytikDataPRiME
/
GeMIS_WEB
3
0
Másolás 0
Fájlok Problémák 0 Beolvasztási kérések 0 Wiki
Branch: master
Branch-ok Tag-ek
GeMIS_WEB
/
GUI
/
windows.i

windows.i 3.1 KB
Állandó hivatkozás Előzmények Nyers

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146 
  1. /* ====================================================================
    2. 

  2.    file      windows.i
    3. 

  3.    by        Jurjen Dijkstra, 1997
    4. 

  4.              mailto:jurjen@global-shared.com
    5. 

  5.              http://www.global-shared.com
    6. 

  6.    language  Progress 8.2A
    7. 

  7.    ==================================================================== */
    8. 

  8. 

  9. &IF DEFINED(WINDOWS_I)=0 &THEN
    10. 

  10. &GLOBAL-DEFINE WINDOWS_I
    11. 

  11. 

  12. &IF "{&OPSYS}":U="WIN32":U &THEN
    13. 

  13.    /* 32-bit definitions, Progress 8.2+ */
    14. 

  14. 

  15.    &GLOB A A
    16. 

  16.    /* data types */
    17. 

  17.    &Glob HWND long
    18. 

  18.    &Glob BOOL long
    19. 

  19.    &Glob HINSTANCE long
    20. 

  20.    &Glob INT long
    21. 

  21.    &GLOB INTSIZE 4
    22. 

  22. 

  23.    /* libraries */
    24. 

  24.    &GLOB USER     "user32"
    25. 

  25.    &GLOB KERNEL   "kernel32"
    26. 

  26.    &GLOB SHELL    "shell32"
    27. 

  27.    &GLOB MAPI     "mapi32"
    28. 

  28.    &GLOB GDI      "gdi32"
    29. 

  29.    &GLOB MMEDIA   "winmm"
    30. 

  30.    &GLOB WINSPOOL "winspool.drv"
    31. 

  31.    &GLOB ADVAPI   "advapi32"
    32. 

  32.    &GLOB A A
    33. 

  33. 

  34. &ELSE
    35. 

  35.    /* 16-bit definitions, Progress 7 to 8.1 */
    36. 

  36. 

  37.    /* data types */
    38. 

  38.    &Glob HWND short
    39. 

  39.    &Glob BOOL short
    40. 

  40.    &Glob HINSTANCE short
    41. 

  41.    &Glob INT short
    42. 

  42.    &GLOB INTSIZE 2
    43. 

  43. 

  44.    /* libraries */
    45. 

  45.    &GLOB USER   "user.exe"
    46. 

  46.    &GLOB KERNEL "kernel.exe"
    47. 

  47.    &GLOB SHELL  "shell.dll"
    48. 

  48.    &GLOB MAPI   "mapi.dll"
    49. 

  49.    &GLOB GDI    "gdi.exe"
    50. 

  50.    &GLOB A
    51. 

  51. 

  52. &ENDIF
    53. 

  53. 

  54. 

  55. /* messages */
    56. 

  56. &Glob WM_PAINT 15
    57. 

  57. &Glob WM_HSCROLL 276
    58. 

  58. &Glob WM_VSCROLL 277
    59. 

  59. &Glob WM_LBUTTONDOWN 513
    60. 

  60. &Glob WM_LBUTTONUP 514
    61. 

  61. &Glob WM_RBUTTONDOWN 516
    62. 

  62. &Glob WM_RBUTTONUP 517
    63. 

  63. &GLOB WM_USER 1024
    64. 

  64. 

  65. /* mouse buttons */
    66. 

  66. &Glob MK_LBUTTON 1
    67. 

  67. &Glob MK_RBUTTON 2
    68. 

  68. 

  69. /* scrollbars */
    70. 

  70. &Glob SB_HORZ 0
    71. 

  71. &Glob SB_VERT 1
    72. 

  72. &Glob SB_BOTH 3
    73. 

  73. &Glob SB_THUMBPOSITION 4
    74. 

  74. 

  75. /* editors */
    76. 

  76. &IF "{&OPSYS}":U="WIN32":U &THEN
    77. 

  77.    &GLOB EM_SETPASSWORDCHAR 204
    78. 

  78. &ELSE
    79. 

  79.     &GLOB EM_SETPASSWORDCHAR {&WM_USER} + 28
    80. 

  80. &ENDIF
    81. 

  81. 

  82. /* some window styles */
    83. 

  83. &GLOB GWL_STYLE -16
    84. 

  84. &GLOB WS_MAXIMIZEBOX 65536
    85. 

  85. &GLOB WS_MINIMIZEBOX 131072
    86. 

  86. &GLOB WS_THICKFRAME  262144
    87. 

  87. &GLOB WS_CAPTION 12582912
    88. 

  88. &GLOB WS_BORDER 8388608
    89. 

  89. 

  90. /* some extended window styles */
    91. 

  91. &GLOB GWL_EXSTYLE -20
    92. 

  92. &GLOB WS_EX_CONTEXTHELP 1024
    93. 

  93. &GLOB WS_EX_PALETTEWINDOW 392
    94. 

  94. 

  95. /* system commands/menu */
    96. 

  96. &GLOB SC_SIZE      61440  
    97. 

  97. &GLOB SC_MINIMIZE  61472
    98. 

  98. &GLOB SC_MAXIMIZE  61488  
    99. 

  99. &GLOB MF_BYCOMMAND 0
    100. 

  100. 

  101. /* placement order (Z-order) */
    102. 

  102. &GLOB HWND_TOPMOST -1
    103. 

  103. &GLOB HWND_NOTOPMOST -2
    104. 

  104.  
    105. 

  105. /* window-positioning flags */
    106. 

  106. &GLOB SWP_NOSIZE 1
    107. 

  107. &GLOB SWP_NOMOVE 2
    108. 

  108. &GLOB SWP_NOZORDER 4
    109. 

  109. &GLOB SWP_NOACTIVATE 16 
    110. 

  110. &GLOB SWP_FRAMECHANGED 32
    111. 

  111. &GLOB SWP_SHOWWINDOW 64
    112. 

  112. 

  113. /* registry */
    114. 

  114. &GLOB HKEY_CLASSES_ROOT -2147483648
    115. 

  115. &GLOB HKEY_CURRENT_USER -2147483647
    116. 

  116. &GLOB HKEY_LOCAL_MACHINE -2147483646
    117. 

  117. &GLOB HKEY_USERS -2147483645
    118. 

  118. &GLOB HKEY_PERFORMANCE_DATA -2147483644
    119. 

  119. &GLOB HKEY_CURRENT_CONFIG -2147483643
    120. 

  120. &GLOB HKEY_DYN_DATA -2147483642
    121. 

  121. 

  122. &GLOB ERROR_SUCCESS 0
    123. 

  123. &GLOB ERROR_NO_MORE_ITEMS 259
    124. 

  124. 

  125. &GLOB MAX_PATH 260
    126. 

  126. 

  127. /* results from WaitForSingleObject */
    128. 

  128. &GLOB WAIT_ABANDONED 128
    129. 

  129. &GLOB WAIT_OBJECT_0 0
    130. 

  130. 

  131. /* menu manipulation */
    132. 

  132. &GLOB MF_BYPOSITION 1024
    133. 

  133. &GLOB MF_REMOVE     256
    134. 

  134. 

  135. 

  136. /* get a handle to the procedure definitions */
    137. 

  137. &IF DEFINED(DONTDEFINE-HPAPI)=0 &THEN
    138. 

  138.    DEFINE NEW GLOBAL SHARED VARIABLE hpApi AS HANDLE NO-UNDO.
    139. 

  139.    IF NOT VALID-HANDLE(hpApi) THEN RUN Windows.p PERSISTENT SET hpApi.
    140. 

  140. 

  141.    /* forward function declarations. Must not be included in windows.p : */
    142. 

  142.    {winfunc.i}
    143. 

  143. &ENDIF
    144. 

  144. 

  145. &ENDIF  /* &IF DEFINED(WINDOWS_I)=0 */
    146. 

  146.