home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / dialog.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  2.2 KB  |  53 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/dialog.ads,v $ 
  2. -- $Revision: 1.3 $ $Date: 96/03/15 13:52:04 $ $Author: stm $ 
  3. -- $Id: dialog.ads 1.2 1995/01/25 15:52:27 teg Exp teg $
  4. --
  5. --  This package spec is a translation of dialog.c which is part of the 
  6. --  Microsoft gdidemo sample application
  7.  
  8.  
  9. with Win32;
  10. with Win32.WinDef;
  11. with Win32.WinUser;
  12.  
  13. package Dialog is
  14.  
  15.   function AboutDlgProc (hDlg     : Win32.WinDef.HWND;
  16.                          wMsg     : Win32.UINT;
  17.                          wParam_p : Win32.WPARAM;
  18.                          lParam_p : Win32.LPARAM) return Win32.BOOL;
  19.   pragma convention (Stdcall, AboutDlgProc);
  20.  
  21.   function DisplayDialogBox (hWnd_p       : Win32.WinDef.HWND;
  22.                              lpszTemplate : Win32.LPCSTR;
  23.                              lpfFunction  : Win32.WinUser.DLGPROC;
  24.                              lExtra       : Win32.LONG) return Win32.INT;
  25.  
  26.   procedure PaintWindow (hWnd_p : Win32.WinDef.HWND;
  27.                          nColor : Win32.INT);
  28.  
  29.   function CreateColorScalePalette (hDC_p  : Win32.WinDef.HDC;
  30.                                     nColor : Win32.INT) 
  31.                                              return Win32.WinDef.HPALETTE;
  32.  
  33. -------------------------------------------------------------------------------
  34. --
  35. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  36. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  37. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  38. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  39. -- the accuracy and the use of this file.  This file may be used, copied,
  40. -- modified and distributed only by licensees of Microsoft Corporation's
  41. -- WIN32 Software Development Kit in accordance with the terms of the 
  42. -- licensee's End-User License Agreement for Microsoft Software for the
  43. -- WIN32 Development Kit.
  44. --
  45. -- Copyright (c) Intermetrics, Inc. 1995
  46. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  47. -- Microsoft is a registered trademark and Windows and Windows NT are
  48. -- trademarks of Microsoft Corporation.
  49. --
  50. -------------------------------------------------------------------------------
  51.  
  52. end Dialog;
  53.