OS/2 Shareware BBS: 10 Tools/10-Tools.zip/mod201j.zip/modula2.exe/os2api/gpicontr.def

Text File | 1994-05-03 | 5KB | 173 lines

DEFINITION MODULE GPICONTROL;

(************************************************************************
  OS/2 2.0 interface for Presentation Manager
           GPI Basic PS control.

  Copyright (c) 1992 by Juergen Neuhoff
*************************************************************************)

(*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
(*$CDECL+    C-style procedures                                         *)
(*$A         default alignment for record fields                        *)

FROM   OS2DEF  IMPORT HDC, HAB, HPS;
FROM   GPIDEF  IMPORT SIZEL;

CONST (* units for GpiCreatePS and others *)
  PU_ARBITRARY               = 0004H;
  PU_PELS                    = 0008H;
  PU_LOMETRIC                = 000CH;
  PU_HIMETRIC                = 0010H;
  PU_LOENGLISH               = 0014H;
  PU_HIENGLISH               = 0018H;
  PU_TWIPS                   = 001CH;

CONST (* format for GpiCreatePS *)
  GPIF_DEFAULT               = 0000H;
  GPIF_SHORT                 = 0100H;
  GPIF_LONG                  = 0200H;

CONST (* PS type for GpiCreatePS *)
  GPIT_NORMAL                = 0000H;
  GPIT_MICRO                 = 1000H;

CONST (* implicit associate flag for GpiCreatePS *)
  GPIA_NOASSOC               = 0000H;
  GPIA_ASSOC                 = 4000H;

CONST (* return error for GpiQueryDevice *)
  HDC_ERROR                  = HDC( -1 );

(* common GPICONTROL functions *)

PROCEDURE GpiCreatePS
( AnchorBlockHandle          : HAB;
  DevContextHandle           : HDC;
  VAR PresPageSize           : SIZEL;
  Options                    : LONGCARD
)                            : HPS;

PROCEDURE GpiDestroyPS
( PresSpaceHandle            : HPS
)                            : BOOLEAN;

PROCEDURE GpiAssociate
( PresSpaceHandle            : HPS;
  DevContextHandle           : HDC
)                            : BOOLEAN;

PROCEDURE GpiRestorePS
( PresSpaceHandle            : HPS;
  PresSpaceId                : LONGINT
)                            : BOOLEAN;

PROCEDURE GpiSavePS
( PresSpaceHandle            : HPS
)                            : LONGINT;

PROCEDURE GpiErase
( PresSpaceHandle            : HPS
)                            : BOOLEAN;

PROCEDURE GpiQueryDevice
( PresSpaceHandle            : HPS
)                            : HDC;

CONST (* options for GpiResetPS *)
  GRES_ATTRS                 = 0001H;
  GRES_SEGMENTS              = 0002H;
  GRES_ALL                   = 0004H;

CONST (* option masks for PS options used by GpiQueryPs *)
  PS_UNITS                   = 00FCH;
  PS_FORMAT                  = 0F00H;
  PS_TYPE                    = 1000H;
  PS_MODE                    = 2000H;
  PS_ASSOCIATE               = 4000H;
  PS_NORESET                 = 8000H;

CONST (* error context returned by GpiErrorSegmentData *)
  GPIE_SEGMENT               = 0;
  GPIE_ELEMENT               = 1;
  GPIE_DATA                  = 2;

CONST (* control parameter for GpiSetDrawControl *)
  DCTL_ERASE                 = 1;
  DCTL_DISPLAY               = 2;
  DCTL_BOUNDARY              = 3;
  DCTL_DYNAMIC               = 4;
  DCTL_CORRELATE             = 5;

CONST (* constants for GpiSet/QueryDrawControl *)
  DCTL_ERROR                 = -1;
  DCTL_OFF                   = 0;
  DCTL_ON                    = 1;

CONST  (* constants for GpiSet/QueryStopDraw *)
  SDW_ERROR                  = -1;
  SDW_OFF                    =  0;
  SDW_ON                     =  1;

CONST (* drawing for GpiSet/QueryDrawingMode *)
  DM_ERROR                   = 0;
  DM_DRAW                    = 1;
  DM_RETAIN                  = 2;
  DM_DRAWANDRETAIN           = 3;


(*** other GPICONTROL functions *)

PROCEDURE GpiResetPS
( PresSpaceHandle            : HPS;
  Options                    : LONGCARD
)                            : BOOLEAN;

PROCEDURE GpiSetPS
( PresSpaceHandle            : HPS;
  VAR PresSpaceSize          : SIZEL;
  Options                    : LONGCARD
)                            : BOOLEAN;

PROCEDURE GpiQueryPS
( PresSpaceHandle            : HPS;
  VAR PresSpaceSize          : SIZEL
)                            : LONGCARD;

PROCEDURE GpiErrorSegmentData
( PresSpaceHandle            : HPS;
  VAR Segment                : LONGINT;
  VAR Context                : LONGINT
)                            : LONGINT;

PROCEDURE GpiQueryDrawControl
( PresSpaceHandle            : HPS;
  Control                    : LONGINT
)                            : LONGINT;

PROCEDURE GpiSetDrawControl
( PresSpaceHandle            : HPS;
  Control                    : LONGINT;
  Value                      : LONGINT
)                            : BOOLEAN;

PROCEDURE GpiQueryDrawingMode
( PresSpaceHandle            : HPS
)                            : LONGINT;

PROCEDURE GpiSetDrawingMode
( PresSpaceHandle            : HPS;
  Mode                       : LONGINT
)                            : BOOLEAN;

PROCEDURE GpiQueryStopDraw
( PresSpaceHandle            : HPS
)                            : LONGINT;

PROCEDURE GpiSetStopDraw
( PresSpaceHandle            : HPS;
  Value                      : LONGINT
)                            : BOOLEAN;

END GPICONTROL.