home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / windeskt.def < prev    next >
Text File  |  1994-05-03  |  2KB  |  61 lines

  1. DEFINITION MODULE WINDESKTOP;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 interface for Presentation Manager Desktop API.
  5.  
  6.   Copyright (c) 1992 by Juergen Neuhoff
  7. *************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$CDECL+    C-style procedures                                         *)
  11. (*$A         default alignment for record fields                        *)
  12.  
  13. IMPORT SYSTEM;
  14. FROM   OS2DEF  IMPORT TYPEPREFIX, HBITMAP, HWND;
  15.  
  16. TYPE (* Desktop API definitions *)
  17.   DESKTOP                = RECORD              (* dsk *)
  18.     CASE                   : TYPEPREFIX OF
  19.     | TRUE                 :
  20.       cbSize               : LONGCARD;
  21.       hbm                  : HBITMAP;
  22.     | FALSE                :
  23.       Size                 : LONGCARD;
  24.       BitMapHandle         : HBITMAP;
  25.     END;
  26.     x                      : LONGINT;
  27.     y                      : LONGINT;
  28.     CASE                   : TYPEPREFIX OF
  29.     | TRUE                 :
  30.       fl                   : LONGCARD;
  31.       lTileCount           : LONGINT;
  32.       szFile               : ARRAY [0..259] OF CHAR;
  33.     | FALSE                :
  34.       Flags                : LONGCARD;
  35.       TileCount            : LONGINT;
  36.       File                 : ARRAY [0..259] OF CHAR;
  37.     END;                   END;
  38.   PDESKTOP               = POINTER TO DESKTOP;  (* pdsk *)
  39.  
  40. PROCEDURE WinSetDesktopBkgnd
  41. ( DesktopWinHandle       : HWND;
  42.   VAR DesktopState       : DESKTOP
  43. )                        : HBITMAP;
  44.  
  45. PROCEDURE WinQueryDesktopBkgnd
  46. ( DesktopWinHandle       : HWND;
  47.   VAR DesktopState       : DESKTOP
  48. )                        : BOOLEAN;
  49.  
  50. CONST
  51.   SDT_DESTROY            = 0001H;
  52.   SDT_NOBKGND            = 0002H;
  53.   SDT_TILE               = 0004H;
  54.   SDT_SCALE              = 0008H;
  55.   SDT_PATTERN            = 0010H;
  56.   SDT_CENTER             = 0020H;
  57.   SDT_RETAIN             = 0040H;
  58.   SDT_LOADFILE           = 0080H;
  59.  
  60. END WINDESKTOP.
  61.