home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / gdidemo_util.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  2.9 KB  |  77 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/gdidemo_util.ads,v $ 
  2. -- $Revision: 1.4 $ $Date: 96/03/15 13:52:07 $ $Author: stm $ 
  3.  
  4. with Win32;
  5. with Win32.Windef;
  6. with Interfaces.C;
  7.  
  8. package Gdidemo_Util is
  9.  
  10.   APPMENU  : constant :=  1000;
  11.   APPICON  : constant :=  1001;
  12.   ABOUTBOX : constant :=  1002;
  13.  
  14.   IDM_DEMO_POLYBEZIER : constant := 100;
  15.   IDM_DEMO_XFORM      : constant := 101;
  16.   IDM_DEMO_MAZE       : constant := 102;
  17.   IDM_DEMO_DRAW       : constant := 103;
  18.   IDM_DEMO_BOUNCE     : constant := 104;
  19.  
  20.   IDM_WINDOW_CASCADE  : constant := 200;
  21.   IDM_WINDOW_TILE     : constant := 201;
  22.   IDM_WINDOW_ICON     : constant := 202;
  23.   IDM_HELP_ABOUT      : constant := 900;
  24.  
  25.   COLOR_SCALE_RED     : constant := 1;
  26.   COLOR_SCALE_GREEN   : constant := 2;
  27.   COLOR_SCALE_BLUE    : constant := 3;
  28.   COLOR_SCALE_GRAY    : constant := 4;
  29.  
  30.   CLIENTWND           : constant := 0;
  31.  
  32.  
  33.   function WndProc (hWndFrame : Win32.WinDef.HWND;
  34.                     wMsg      : Win32.UINT;
  35.                     wParam_p  : Win32.WPARAM;
  36.                     lParam_p  : Win32.LPARAM) return Win32.LRESULT;
  37.   pragma convention (Stdcall, WndProc);
  38.  
  39.   function CreateProc (hWndFrame : Win32.WinDef.HWND) return Win32.BOOL;
  40.  
  41.   procedure DestroyProc (hWndFrame : Win32.WinDef.HWND);
  42.  
  43.   function CommandProc (hWndFrame : Win32.WinDef.HWND;
  44.                         wParam_p  : Win32.WPARAM;
  45.                         lParam_p  : Win32.LPARAM) return Win32.BOOL;  
  46.  
  47.   procedure PaintProc (hWndFrame : Win32.WinDef.HWND);
  48.  
  49.   function lRandom return Win32.LONG;
  50.   function lRandom return Win32.DWORD;
  51.  
  52.   -- These two functions had been defined as C macros
  53.   function GETINSTANCE (hWnd_p   : Win32.WinDef.HWND) return 
  54.                                                     Win32.Winnt.HANDLE;
  55.   function GETCLASSBRUSH (hWnd_p : Win32.WinDef.HWND) return 
  56.                                                     Win32.WinDef.HBRUSH;
  57. -------------------------------------------------------------------------------
  58. --
  59. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  60. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  61. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  62. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  63. -- the accuracy and the use of this file.  This file may be used, copied,
  64. -- modified and distributed only by licensees of Microsoft Corporation's
  65. -- WIN32 Software Development Kit in accordance with the terms of the 
  66. -- licensee's End-User License Agreement for Microsoft Software for the
  67. -- WIN32 Development Kit.
  68. --
  69. -- Copyright (c) Intermetrics, Inc. 1995
  70. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  71. -- Microsoft is a registered trademark and Windows and Windows NT are
  72. -- trademarks of Microsoft Corporation.
  73. --
  74. -------------------------------------------------------------------------------
  75.  
  76. end Gdidemo_Util;
  77.