home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / generic_pkg.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  2.3 KB  |  66 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/generic_pkg.ads,v $ 
  2. -- $Revision: 1.2 $ $Date: 96/03/15 13:52:08 $ $Author: stm $ 
  3.  
  4.  
  5. with Win32;
  6. with Win32.Windef;
  7. with Win32.Winuser;
  8.  
  9. package Generic_Pkg is
  10.  
  11.  
  12.     function CP(C_Str: Win32.CHAR_Array) return Win32.LPCSTR;
  13.  
  14.     function LPCSTR_To_DWORD is new 
  15.         Ada.Unchecked_Conversion(Win32.LPCSTR,Win32.DWORD);
  16.  
  17.  
  18.     bResult     : Win32.BOOL;
  19.     iResult     : Win32.INT;
  20.  
  21.     HINST       : Win32.Windef.HINSTANCE;        -- current instance
  22.     SZAPPNAME   : Win32.LPCSTR := CP("Generic"); -- the name of app
  23.  
  24.     
  25.  
  26.     -- aliased for function CenterWindow
  27.     rChild  : aliased Win32.Windef.RECT;
  28.     rParent : aliased Win32.Windef.RECT;
  29.  
  30.     -- aliased for function InitApplication
  31.     wc      : aliased Win32.Winuser.WNDCLASS;
  32.  
  33.  
  34.     function About(hDlg    : Win32.Windef.HWND;
  35.                    MESSAGE : Win32.UINT;
  36.                    WPARAM  : Win32.WPARAM;
  37.                    LPARAM  : Win32.LPARAM) return Win32.BOOL;
  38.     pragma Convention (Stdcall, About);
  39.  
  40.     function WndProc(HWND    : Win32.Windef.HWND;
  41.                      MESSAGE : Win32.UINT;
  42.                      WPARAM  : Win32.WPARAM;
  43.                      LPARAM  : Win32.LPARAM) return Win32.LRESULT;
  44.     pragma Convention (Stdcall, WndProc);
  45.  
  46. -------------------------------------------------------------------------------
  47. --
  48. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  49. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  50. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  51. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  52. -- the accuracy and the use of this file.  This file may be used, copied,
  53. -- modified and distributed only by licensees of Microsoft Corporation's
  54. -- WIN32 Software Development Kit in accordance with the terms of the 
  55. -- licensee's End-User License Agreement for Microsoft Software for the
  56. -- WIN32 Development Kit.
  57. --
  58. -- Copyright (c) Intermetrics, Inc. 1995
  59. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  60. -- Microsoft is a registered trademark and Windows and Windows NT are
  61. -- trademarks of Microsoft Corporation.
  62. --
  63. -------------------------------------------------------------------------------
  64.  
  65. end Generic_Pkg;
  66.