DEFINITIION VDIInquiry; (* SJ *)


CONST (* device types *)
  LOCATOR* = 1; VALUATOR* = 2; CHOICE* = 3; STRING* = 4;

  (* input mode *)
  REQUEST* = 1; SAMPLE* = 2;


PROCEDURE VqfAttributes*(Handle : INTEGER; VAR Interior,Color,Style,
                         WrMode,Perimeter : INTEGER);

PROCEDURE VqinMode*(Handle,DevType : INTEGER) : INTEGER;

PROCEDURE VqlAttributes*(Handle : INTEGER; VAR Type,Color,WrMode,Beg,
                         End,Width : INTEGER);

PROCEDURE VqmAttributes*(Handle : INTEGER; VAR Type,Color,WrMode,Width,
                         Height : INTEGER);

PROCEDURE VqtAttributes*(Handle : INTEGER; VAR Font,Color,Angle,HorAlign,
                         VertAlign,WrMode,CharWidth,CharHeight,CellWidth,
                         CellHeight : INTEGER);

PROCEDURE VqtExtent*(Handle : INTEGER; String : ARRAY OF CHAR;
                     VAR x1,y1,x2,y2,x3,y3,x4,y4 : INTEGER);

PROCEDURE VqtFontinfo*(Handle : INTEGER; VAR FirstChar,LastChar : CHAR;
                       VAR DistBotBase,DistBaseDesc,DistHalfBase,
                           DistBaseAsc,DistBaseTop,MaxWidth,AddWidth,
                           AddLeft,AddRight : INTEGER);

PROCEDURE VqtName*(Handle,FontNo : INTEGER; VAR Name : ARRAY OF CHAR) : INTEGER;

PROCEDURE VqtWidth*(Handle : INTEGER; Char : CHAR;
                    VAR CellWidth,LeftDelta,RightDelta : INTEGER);

PROCEDURE VqColor*(Handle,ColorIndex : INTEGER; SetFlag : BOOLEAN;
                   VAR Red,Green,Blue : INTEGER);

PROCEDURE VqExtnd*(Handle : INTEGER; Extended : BOOLEAN;
                   VAR Info : ARRAY OF INTEGER);

END VDIInquiry.