home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-wfext.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  11.5 KB  |  213 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-wfext.ads,v $ 
  2. -- $Revision: 1.11 $ $Date: 96/03/15 12:56:36 $ $Author: stm $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. with Win32.Winbase;
  6. with Win32.Windef;
  7. with Win32.Winnt;
  8.  
  9. package Win32.Wfext is
  10.  
  11.     MENU_TEXT_LEN            : constant := 40;              -- wfext.h:18
  12.     FMMENU_FIRST             : constant := 1;               -- wfext.h:20
  13.     FMMENU_LAST              : constant := 99;              -- wfext.h:21
  14.     FMEVENT_LOAD             : constant := 100;             -- wfext.h:23
  15.     FMEVENT_UNLOAD           : constant := 101;             -- wfext.h:24
  16.     FMEVENT_INITMENU         : constant := 102;             -- wfext.h:25
  17.     FMEVENT_USER_REFRESH     : constant := 103;             -- wfext.h:26
  18.     FMEVENT_SELCHANGE        : constant := 104;             -- wfext.h:27
  19.     FMEVENT_TOOLBARLOAD      : constant := 105;             -- wfext.h:28
  20.     FMEVENT_HELPSTRING       : constant := 106;             -- wfext.h:29
  21.     FMEVENT_HELPMENUITEM     : constant := 107;             -- wfext.h:30
  22.     FMFOCUS_DIR              : constant := 1;               -- wfext.h:32
  23.     FMFOCUS_TREE             : constant := 2;               -- wfext.h:33
  24.     FMFOCUS_DRIVES           : constant := 3;               -- wfext.h:34
  25.     FMFOCUS_SEARCH           : constant := 4;               -- wfext.h:35
  26.     FM_GETFOCUS              : constant := 16#600#;         -- wfext.h:37
  27.     FM_GETSELCOUNT           : constant := 16#602#;         -- wfext.h:38
  28.     FM_GETSELCOUNTLFN        : constant := 16#603#;         -- wfext.h:39
  29.     FM_REFRESH_WINDOWS       : constant := 16#606#;         -- wfext.h:40
  30.     FM_RELOAD_EXTENSIONS     : constant := 16#607#;         -- wfext.h:41
  31.     FM_GETDRIVEINFOA         : constant := 16#601#;         -- wfext.h:43
  32.     FM_GETFILESELA           : constant := 16#604#;         -- wfext.h:44
  33.     FM_GETFILESELLFNA        : constant := 16#605#;         -- wfext.h:45
  34.     FM_GETDRIVEINFOW         : constant := 16#611#;         -- wfext.h:47
  35.     FM_GETFILESELW           : constant := 16#614#;         -- wfext.h:48
  36.     FM_GETFILESELLFNW        : constant := 16#615#;         -- wfext.h:49
  37.     FM_GETDRIVEINFO          : constant := 16#601#;         -- wfext.h:56
  38.     FM_GETFILESEL            : constant := 16#604#;         -- wfext.h:57
  39.     FM_GETFILESELLFN         : constant := 16#605#;         -- wfext.h:58
  40.  
  41.     type FMS_GETFILESELA;                                   -- wfext.h:62
  42.     type FMS_GETFILESELW;                                   -- wfext.h:69
  43.     type FMS_GETDRIVEINFOA;                                 -- wfext.h:85
  44.     type FMS_GETDRIVEINFOW;                                 -- wfext.h:93
  45.     type FMS_LOADA;                                         -- wfext.h:110
  46.     type FMS_LOADW;                                         -- wfext.h:117
  47.     type EXT_BUTTON;                                        -- wfext.h:135
  48.     type FMS_TOOLBARLOAD;                                   -- wfext.h:141
  49.     type FMS_HELPSTRINGA;                                   -- wfext.h:150
  50.     type FMS_HELPSTRINGW;                                   -- wfext.h:156
  51.  
  52.     type LPFMS_GETFILESELA is access all FMS_GETFILESELA;   -- wfext.h:67
  53.     subtype LPFMS_GETFILESEL is LPFMS_GETFILESELA;          -- wfext.h:81
  54.     type LPFMS_GETFILESELW is access all FMS_GETFILESELW;   -- wfext.h:74
  55.     type LPFMS_GETDRIVEINFOA is access all FMS_GETDRIVEINFOA;
  56.                                                             -- wfext.h:91
  57.     subtype LPFMS_GETDRIVEINFO is LPFMS_GETDRIVEINFOA;      -- wfext.h:106
  58.     type LPFMS_GETDRIVEINFOW is access all FMS_GETDRIVEINFOW;
  59.                                                             -- wfext.h:99
  60.     type LPFMS_LOADA is access all FMS_LOADA;               -- wfext.h:115
  61.     subtype LPFMS_LOAD is LPFMS_LOADA;                      -- wfext.h:129
  62.     type LPFMS_LOADW is access all FMS_LOADW;               -- wfext.h:122
  63.     type LPEXT_BUTTON is access all EXT_BUTTON;             -- wfext.h:139
  64.     type LPFMS_TOOLBARLOAD is access all FMS_TOOLBARLOAD;   -- wfext.h:148
  65.     type LPFMS_HELPSTRINGA is access all FMS_HELPSTRINGA;   -- wfext.h:154
  66.     subtype LPFMS_HELPSTRING is LPFMS_HELPSTRINGA;          -- wfext.h:167
  67.     type LPFMS_HELPSTRINGW is access all FMS_HELPSTRINGW;   -- wfext.h:160
  68.  
  69.     type FMS_GETFILESELA is                                 -- wfext.h:62
  70.         record
  71.             ftTime: Win32.Winbase.FILETIME;                 -- wfext.h:63
  72.             dwSize: Win32.DWORD;                            -- wfext.h:64
  73.             bAttr : Win32.BYTE;                             -- wfext.h:65
  74.             szName: Win32.CHAR_Array(0..259);               -- wfext.h:66
  75.         end record;
  76.  
  77.     subtype FMS_GETFILESEL is FMS_GETFILESELA;              -- wfext.h:80
  78.  
  79.     type FMS_GETFILESELW is                                 -- wfext.h:69
  80.         record
  81.             ftTime: Win32.Winbase.FILETIME;                 -- wfext.h:70
  82.             dwSize: Win32.DWORD;                            -- wfext.h:71
  83.             bAttr : Win32.BYTE;                             -- wfext.h:72
  84.             szName: Win32.WCHAR_Array(0..259);              -- wfext.h:73
  85.         end record;
  86.  
  87.     type FMS_GETDRIVEINFOA is                               -- wfext.h:85
  88.         record
  89.             dwTotalSpace: Win32.DWORD;                      -- wfext.h:86
  90.             dwFreeSpace : Win32.DWORD;                      -- wfext.h:87
  91.             szPath      : Win32.CHAR_Array(0..259);         -- wfext.h:88
  92.             szVolume    : Win32.CHAR_Array(0..13);          -- wfext.h:89
  93.             szShare     : Win32.CHAR_Array(0..127);         -- wfext.h:90
  94.         end record;
  95.  
  96.     subtype FMS_GETDRIVEINFO is FMS_GETDRIVEINFOA;          -- wfext.h:105
  97.  
  98.     type FMS_GETDRIVEINFOW is                               -- wfext.h:93
  99.         record
  100.             dwTotalSpace: Win32.DWORD;                      -- wfext.h:94
  101.             dwFreeSpace : Win32.DWORD;                      -- wfext.h:95
  102.             szPath      : Win32.WCHAR_Array(0..259);        -- wfext.h:96
  103.             szVolume    : Win32.WCHAR_Array(0..13);         -- wfext.h:97
  104.             szShare     : Win32.WCHAR_Array(0..127);        -- wfext.h:98
  105.         end record;
  106.  
  107.     type FMS_LOADA is                                       -- wfext.h:110
  108.         record
  109.             dwSize    : Win32.DWORD;                        -- wfext.h:111
  110.             szMenuName: Win32.CHAR_Array(0..MENU_TEXT_LEN-1);
  111.                                                             -- wfext.h:112
  112.             hMenu     : Win32.Windef.HMENU;                 -- wfext.h:113
  113.             wMenuDelta: Win32.UINT;                         -- wfext.h:114
  114.         end record;
  115.  
  116.     subtype FMS_LOAD is FMS_LOADA;                          -- wfext.h:128
  117.  
  118.     type FMS_LOADW is                                       -- wfext.h:117
  119.         record
  120.             dwSize    : Win32.DWORD;                        -- wfext.h:118
  121.             szMenuName: Win32.WCHAR_Array(0..MENU_TEXT_LEN-1);
  122.                                                             -- wfext.h:119
  123.             hMenu     : Win32.Windef.HMENU;                 -- wfext.h:120
  124.             wMenuDelta: Win32.UINT;                         -- wfext.h:121
  125.         end record;
  126.  
  127.     type EXT_BUTTON is                                      -- wfext.h:135
  128.         record
  129.             idCommand: Win32.WORD;                          -- wfext.h:136
  130.             idsHelp  : Win32.WORD;                          -- wfext.h:137
  131.             fsStyle  : Win32.WORD;                          -- wfext.h:138
  132.         end record;
  133.  
  134.     type FMS_TOOLBARLOAD is                                 -- wfext.h:141
  135.         record
  136.             dwSize   : Win32.DWORD;                         -- wfext.h:142
  137.             lpButtons: LPEXT_BUTTON;                        -- wfext.h:143
  138.             cButtons : Win32.WORD;                          -- wfext.h:144
  139.             cBitmaps : Win32.WORD;                          -- wfext.h:145
  140.             idBitmap : Win32.WORD;                          -- wfext.h:146
  141.             hBitmap  : Win32.Windef.HBITMAP;                -- wfext.h:147
  142.         end record;
  143.  
  144.     type FMS_HELPSTRINGA is                                 -- wfext.h:150
  145.         record
  146.             idCommand: Win32.INT;                           -- wfext.h:151
  147.             hMenu    : Win32.Windef.HMENU;                  -- wfext.h:152
  148.             szHelp   : Win32.CHAR_Array(0..127);            -- wfext.h:153
  149.         end record;
  150.  
  151.     subtype FMS_HELPSTRING is FMS_HELPSTRINGA;              -- wfext.h:166
  152.  
  153.     type FMS_HELPSTRINGW is                                 -- wfext.h:156
  154.         record
  155.             idCommand: Win32.INT;                           -- wfext.h:157
  156.             hMenu    : Win32.Windef.HMENU;                  -- wfext.h:158
  157.             szHelp   : Win32.WCHAR_Array(0..127);           -- wfext.h:159
  158.         end record;
  159.  
  160.     type FM_EXT_PROC is access function (
  161.                 hWnd  : Win32.Windef.HWND;
  162.                 wMsg  : Win32.WORD;
  163.                 lParam: Win32.LONG)
  164.                return Win32.DWORD;                          -- wfext.h:171
  165.     pragma Convention(Stdcall, FM_EXT_PROC);
  166.     type FM_UNDELETE_PROC is access function (
  167.                 hWndOwner: Win32.Windef.HWND;
  168.                 lpszDir  : Win32.Winnt.LPTSTR)
  169.                return Win32.DWORD;                          -- wfext.h:172
  170.     pragma Convention(Stdcall, FM_UNDELETE_PROC);
  171.  
  172.     function FMExtensionProc(
  173.                 hwnd  : Win32.Windef.HWND;
  174.                 wEvent: Win32.WORD;
  175.                 lParam: Win32.LONG)
  176.                return Win32.LONG;                           -- wfext.h:177
  177.  
  178. private
  179.  
  180.     pragma Convention(C, FMS_GETFILESELA);                  -- wfext.h:62
  181.     pragma Convention(C, FMS_GETFILESELW);                  -- wfext.h:69
  182.     pragma Convention(C, FMS_GETDRIVEINFOA);                -- wfext.h:85
  183.     pragma Convention(C, FMS_GETDRIVEINFOW);                -- wfext.h:93
  184.     pragma Convention(C, FMS_LOADA);                        -- wfext.h:110
  185.     pragma Convention(C, FMS_LOADW);                        -- wfext.h:117
  186.     pragma Convention(C, EXT_BUTTON);                       -- wfext.h:135
  187.     pragma Convention(C, FMS_TOOLBARLOAD);                  -- wfext.h:141
  188.     pragma Convention(C, FMS_HELPSTRINGA);                  -- wfext.h:150
  189.     pragma Convention(C, FMS_HELPSTRINGW);                  -- wfext.h:156
  190.  
  191.     pragma Import(Stdcall, FMExtensionProc, "FMExtensionProc");   -- wfext.h:177
  192.  
  193. -------------------------------------------------------------------------------
  194. --
  195. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  196. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  197. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  198. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  199. -- the accuracy and the use of this file.  This file may be used, copied,
  200. -- modified and distributed only by licensees of Microsoft Corporation's
  201. -- WIN32 Software Development Kit in accordance with the terms of the 
  202. -- licensee's End-User License Agreement for Microsoft Software for the
  203. -- WIN32 Development Kit.
  204. --
  205. -- Copyright (c) Intermetrics, Inc. 1995
  206. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  207. -- Microsoft is a registered trademark and Windows and Windows NT are
  208. -- trademarks of Microsoft Corporation.
  209. --
  210. -------------------------------------------------------------------------------
  211.  
  212. end Win32.Wfext;
  213.