home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / draw.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  2.8 KB  |  79 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/draw.ads,v $ 
  2. -- $Revision: 1.3 $ $Date: 96/03/15 13:52:05 $ $Author: stm $ 
  3. -- $Id: draw.ads 1.2 1995/01/25 15:52:59 teg Exp teg $
  4. --
  5. --  package Draw specification
  6. --
  7. --  This package is a translation of C files draw.[hc] which are part of the
  8. --  Microsoft gdidemo sample application.
  9. --
  10.  
  11. with Win32;
  12. with Win32.WinDef;
  13. with Interfaces.C;
  14. with Convert;
  15.  
  16. package Draw is
  17.  
  18.   drawclass_str : aliased constant Win32.CHAR_ARRAY := "DRAWDEMO";
  19.   drawtitle_str : aliased constant Win32.CHAR_ARRAY := "Random Objects Demo";
  20.   DRAWCLASS : Win32.LPCSTR := Convert.CP(drawclass_str);
  21.   DRAWTITLE : Win32.LPCSTR := Convert.CP(drawtitle_str); 
  22.  
  23.   OBJ_RECTANGLE : constant :=      0;
  24.   OBJ_ELLIPSE   : constant :=      1;
  25.   OBJ_ROUNDRECT : constant :=      2;
  26.   OBJ_CHORD     : constant :=      3;
  27.   OBJ_PIE       : constant :=      4;
  28.  
  29.   type DRAWDATA is record
  30.     nObject : Win32.INT;
  31.   end record;
  32.   type PDRAWDATA is access DRAWDATA;
  33.  
  34.   -- /*
  35.   -- ** DRAW WINDOW ROUTINES (draw.c)
  36.   -- */
  37.  
  38.   procedure CreateDrawWindow (hWndClient : Win32.WinDef.HWND;
  39.                               nItem      : Win32.INT);
  40.  
  41.   function DrawProc (hWnd_p   : Win32.WinDef.HWND;
  42.                      wMsg     : Win32.UINT;
  43.                      wParam_p : Win32.WPARAM;
  44.                      lParam_p : Win32.LPARAM) return Win32.LRESULT;
  45.   pragma Convention (Stdcall, DrawProc); 
  46.  
  47.   function DrawCreateProc (hWnd_p : Win32.WinDef.HWND) return Win32.BOOL;
  48.  
  49.   procedure DrawDestroyProc (hWnd_p : Win32.WinDef.HWND);
  50.  
  51.   function DrawCommandProc (hWnd_p   : Win32.WinDef.HWND;
  52.                             wParam_p : Win32.WPARAM;
  53.                             lParam_p : Win32.LPARAM) return Win32.BOOL;
  54.  
  55.   procedure DrawPaintProc (hwnd_p : Win32.WinDef.HWND);
  56.  
  57.   procedure DrawObject (hwnd_p : Win32.WinDef.HWND);
  58.  
  59. -------------------------------------------------------------------------------
  60. --
  61. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  62. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  63. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  64. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  65. -- the accuracy and the use of this file.  This file may be used, copied,
  66. -- modified and distributed only by licensees of Microsoft Corporation's
  67. -- WIN32 Software Development Kit in accordance with the terms of the 
  68. -- licensee's End-User License Agreement for Microsoft Software for the
  69. -- WIN32 Development Kit.
  70. --
  71. -- Copyright (c) Intermetrics, Inc. 1995
  72. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  73. -- Microsoft is a registered trademark and Windows and Windows NT are
  74. -- trademarks of Microsoft Corporation.
  75. --
  76. -------------------------------------------------------------------------------
  77.  
  78. end Draw;
  79.