home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-windef.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  11.2 KB  |  207 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-windef.ads,v $ 
  2. -- $Revision: 1.11 $ $Date: 96/03/15 12:57:03 $ $Author: stm $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. with Win32.Utils;
  6. with Win32.Winnt;
  7.  
  8. package Win32.Windef is
  9.  
  10.     MAX_PATH            : constant := 260;                  -- windef.h:37
  11.     DM_UPDATE           : constant := 1;                    -- windef.h:263
  12.     DM_COPY             : constant := 2;                    -- windef.h:264
  13.     DM_PROMPT           : constant := 4;                    -- windef.h:265
  14.     DM_MODIFY           : constant := 8;                    -- windef.h:266
  15.     DM_IN_BUFFER        : constant := 8;                    -- windef.h:268
  16.     DM_IN_PROMPT        : constant := 4;                    -- windef.h:269
  17.     DM_OUT_BUFFER       : constant := 2;                    -- windef.h:270
  18.     DM_OUT_DEFAULT      : constant := 1;                    -- windef.h:271
  19.     DC_FIELDS           : constant := 1;                    -- windef.h:274
  20.     DC_PAPERS           : constant := 2;                    -- windef.h:275
  21.     DC_PAPERSIZE        : constant := 3;                    -- windef.h:276
  22.     DC_MINEXTENT        : constant := 4;                    -- windef.h:277
  23.     DC_MAXEXTENT        : constant := 5;                    -- windef.h:278
  24.     DC_BINS             : constant := 6;                    -- windef.h:279
  25.     DC_DUPLEX           : constant := 7;                    -- windef.h:280
  26.     DC_SIZE             : constant := 8;                    -- windef.h:281
  27.     DC_EXTRA            : constant := 9;                    -- windef.h:282
  28.     DC_VERSION          : constant := 10;                   -- windef.h:283
  29.     DC_DRIVER           : constant := 11;                   -- windef.h:284
  30.     DC_BINNAMES         : constant := 12;                   -- windef.h:285
  31.     DC_ENUMRESOLUTIONS  : constant := 13;                   -- windef.h:286
  32.     DC_FILEDEPENDENCIES : constant := 14;                   -- windef.h:287
  33.     DC_TRUETYPE         : constant := 15;                   -- windef.h:288
  34.     DC_PAPERNAMES       : constant := 16;                   -- windef.h:289
  35.     DC_ORIENTATION      : constant := 17;                   -- windef.h:290
  36.     DC_COPIES           : constant := 18;                   -- windef.h:291
  37.  
  38.     type HFILE is new Win32.INT;                            -- windef.h:211
  39.     HFILE_ERROR         : constant HFILE := -1;             -- windef.h:217
  40.  
  41.     type ATOM is new Win32.WORD;                            -- windef.h:165
  42.     type COLORREF is new Win32.DWORD;                       -- windef.h:214
  43.  
  44.     subtype SPHANDLE is Win32.Winnt.PHANDLE;               -- windef.h:167
  45.     subtype LPHANDLE is SPHANDLE;                           -- windef.h:168
  46.     subtype HGLOBAL is Win32.Winnt.HANDLE;                 -- windef.h:169
  47.     subtype HLOCAL is Win32.Winnt.HANDLE;                  -- windef.h:170
  48.     subtype GLOBALHANDLE is Win32.Winnt.HANDLE;            -- windef.h:171
  49.     subtype LOCALHANDLE is Win32.Winnt.HANDLE;             -- windef.h:172
  50.     subtype HWND is Win32.Winnt.HANDLE;                    -- windef.h:178
  51.     subtype HHOOK is Win32.Winnt.HANDLE;                   -- windef.h:179
  52.     subtype HGDIOBJ is Win32.Winnt.HANDLE;                 -- windef.h:183
  53.     subtype HACCEL is Win32.Winnt.HANDLE;                  -- windef.h:188
  54.     subtype HBITMAP is Win32.Winnt.HANDLE;                 -- windef.h:189
  55.     subtype HBRUSH is Win32.Winnt.HANDLE;                  -- windef.h:190
  56.     subtype HDC is Win32.Winnt.HANDLE;                     -- windef.h:191
  57.     subtype HGLRC is Win32.Winnt.HANDLE;                   -- windef.h:192
  58.     subtype HDESK is Win32.Winnt.HANDLE;                   -- windef.h:193
  59.     subtype HENHMETAFILE is Win32.Winnt.HANDLE;            -- windef.h:194
  60.     subtype HFONT is Win32.Winnt.HANDLE;                   -- windef.h:195
  61.     subtype HICON is Win32.Winnt.HANDLE;                   -- windef.h:196
  62.     subtype HMENU is Win32.Winnt.HANDLE;                   -- windef.h:197
  63.     subtype HMETAFILE is Win32.Winnt.HANDLE;               -- windef.h:198
  64.     subtype HINSTANCE is Win32.Winnt.HANDLE;               -- windef.h:199
  65.     subtype HPALETTE is Win32.Winnt.HANDLE;                -- windef.h:200
  66.     subtype HPEN is Win32.Winnt.HANDLE;                    -- windef.h:201
  67.     subtype HRGN is Win32.Winnt.HANDLE;                    -- windef.h:202
  68.     subtype HRSRC is Win32.Winnt.HANDLE;                   -- windef.h:203
  69.     subtype HSTR is Win32.Winnt.HANDLE;                    -- windef.h:204
  70.     subtype HTASK is Win32.Winnt.HANDLE;                   -- windef.h:205
  71.     subtype HWINSTA is Win32.Winnt.HANDLE;                 -- windef.h:206
  72.     subtype HKL is Win32.Winnt.HANDLE;                     -- windef.h:207
  73.     subtype HMODULE is Win32.Winnt.HANDLE;                 -- windef.h:209
  74.     subtype HCURSOR is Win32.Winnt.HANDLE;                 -- windef.h:212
  75.     type LPCOLORREF is access all COLORREF;                 -- windef.h:215
  76.  
  77.     type RECT;                                              -- windef.h:219
  78.     type RECTL;                                             -- windef.h:227
  79.     type POINT;                                             -- windef.h:235
  80.     type POINTL;                                            -- windef.h:241
  81.     type SIZE;                                              -- windef.h:247
  82.     type POINTS;                                            -- windef.h:256
  83.  
  84.     type PRECT is access all RECT;                          -- windef.h:225
  85.     subtype NPRECT is PRECT;                                -- windef.h:225
  86.     subtype LPRECT is PRECT;                                -- windef.h:225
  87.     type PRECTL is access all RECTL;                        -- windef.h:233
  88.     subtype LPRECTL is PRECTL;                              -- windef.h:233
  89.     type PPOINT is access all POINT;                        -- windef.h:239
  90.     subtype NPPOINT is PPOINT;                              -- windef.h:239
  91.     subtype LPPOINT is PPOINT;                              -- windef.h:239
  92.     type PPOINTL is access all POINTL;                      -- windef.h:245
  93.     type PSIZE is access all SIZE;                          -- windef.h:251
  94.     subtype LPSIZE is PSIZE;                                -- windef.h:251
  95.     subtype PSIZEL is PSIZE;                                -- windef.h:254
  96.     subtype LPSIZEL is PSIZE;                               -- windef.h:254
  97.     type PPOINTS is access all POINTS;                      -- windef.h:260
  98.     subtype LPPOINTS is PPOINTS;                            -- windef.h:260
  99.  
  100.     type PROC is access function return Win32.INT;          -- windef.h:175
  101.     pragma Convention(Stdcall, PROC);
  102.     subtype FARPROC is PROC;                                -- windef.h:173
  103.     subtype NEARPROC is PROC;                               -- windef.h:174
  104.  
  105.     type RECT is                                            -- windef.h:219
  106.         record
  107.             left  : Win32.LONG;                             -- windef.h:221
  108.             top   : Win32.LONG;                             -- windef.h:222
  109.             right : Win32.LONG;                             -- windef.h:223
  110.             bottom: Win32.LONG;                             -- windef.h:224
  111.         end record;
  112.  
  113.     type RECTL is                                           -- windef.h:227
  114.         record
  115.             left  : Win32.LONG;                             -- windef.h:229
  116.             top   : Win32.LONG;                             -- windef.h:230
  117.             right : Win32.LONG;                             -- windef.h:231
  118.             bottom: Win32.LONG;                             -- windef.h:232
  119.         end record;
  120.  
  121.     type POINT is                                           -- windef.h:235
  122.         record
  123.             x: Win32.LONG;                                  -- windef.h:237
  124.             y: Win32.LONG;                                  -- windef.h:238
  125.         end record;
  126.  
  127.     type POINTL is                                          -- windef.h:241
  128.         record
  129.             x: Win32.LONG;                                  -- windef.h:243
  130.             y: Win32.LONG;                                  -- windef.h:244
  131.         end record;
  132.  
  133.     type SIZE is                                            -- windef.h:247
  134.         record
  135.             cx: Win32.LONG;                                 -- windef.h:249
  136.             cy: Win32.LONG;                                 -- windef.h:250
  137.         end record;
  138.  
  139.     subtype SIZEL is SIZE;                                  -- windef.h:253
  140.  
  141.     type POINTS is                                          -- windef.h:256
  142.         record
  143.             x: Win32.SHORT;                                 -- windef.h:258
  144.             y: Win32.SHORT;                                 -- windef.h:259
  145.         end record;
  146.  
  147.     function MAKEWORD(Low, High: BYTE) return WORD          -- windef.h:158
  148.         renames Win32.Utils.MAKEWORD;
  149.  
  150.     function MAKELONG(Low, High: WORD) return DWORD         -- windef.h:159
  151.         renames Win32.Utils.MAKELONG;
  152.  
  153.     function LOWORD(L: DWORD) return WORD                   -- windef.h:160
  154.         renames Win32.Utils.LOWORD;
  155.  
  156.     function HIWORD(L: DWORD) return WORD                   -- windef.h:161
  157.         renames Win32.Utils.HIWORD;
  158.  
  159.     function LOBYTE(W: WORD) return BYTE                    -- windef.h:162
  160.         renames Win32.Utils.LOBYTE;
  161.  
  162.     function HIBYTE(W: WORD) return BYTE                    -- windef.h:163
  163.         renames Win32.Utils.HIBYTE;
  164.  
  165.     generic
  166.         type T is private;
  167.         with function ">"(A, B: T) return Boolean;
  168.     function Max (A, B: T) return T;
  169.  
  170.     generic
  171.         type T is private;
  172.         with function "<"(A, B: T) return Boolean;
  173.     function Min (A, B: T) return T;
  174.  
  175. private
  176.  
  177.     pragma Convention(C, RECT);                             -- windef.h:219
  178.     pragma Convention(C, RECTL);                            -- windef.h:227
  179.     pragma Convention(C, POINT);                            -- windef.h:235
  180.     pragma Convention(C, POINTL);                           -- windef.h:241
  181.     pragma Convention(C, SIZE);                             -- windef.h:247
  182.     pragma Convention(C, POINTS);                           -- windef.h:256
  183.  
  184.     pragma Inline(Max);
  185.     pragma Inline(Min);
  186.  
  187. -------------------------------------------------------------------------------
  188. --
  189. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  190. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  191. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  192. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  193. -- the accuracy and the use of this file.  This file may be used, copied,
  194. -- modified and distributed only by licensees of Microsoft Corporation's
  195. -- WIN32 Software Development Kit in accordance with the terms of the 
  196. -- licensee's End-User License Agreement for Microsoft Software for the
  197. -- WIN32 Development Kit.
  198. --
  199. -- Copyright (c) Intermetrics, Inc. 1995
  200. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  201. -- Microsoft is a registered trademark and Windows and Windows NT are
  202. -- trademarks of Microsoft Corporation.
  203. --
  204. -------------------------------------------------------------------------------
  205.  
  206. end Win32.Windef;
  207.