DEFINITION VDIAttributes; (* SJ *)


CONST (* write modes *)
  REPLACE* = 1; TRANSPARENT* = 2; EXOR* = 3; REVTRANS* = 4;

PROCEDURE VsfColor*(Handle,Color : INTEGER);

PROCEDURE VsfInterior*(Handle,Style : INTEGER);

PROCEDURE VsfPerimeter*(Handle : INTEGER; Visible : BOOLEAN);

PROCEDURE VsfStyle*(Handle,Style : INTEGER);

PROCEDURE VsfUdpat*(Handle : INTEGER; VAR FillPat : ARRAY OF INTEGER;
                    Planes : INTEGER);

PROCEDURE VslColor*(Handle,Color : INTEGER);

PROCEDURE VslEnds*(Handle,BegStyle,EndStyle : INTEGER);

PROCEDURE VslType*(Handle,Style : INTEGER);

PROCEDURE VslUdsty*(Handle,Pattern : INTEGER);

PROCEDURE VslWidth*(Handle,Width : INTEGER);

PROCEDURE VsmColor*(Handle,Color : INTEGER);

PROCEDURE VsmHeight*(Handle,Height : INTEGER);

PROCEDURE VsmType*(Handle,Type : INTEGER);

PROCEDURE VstAlignment*(Handle,HorIn,VertIn : INTEGER);

PROCEDURE VstColor*(Handle,Color : INTEGER);

PROCEDURE VstEffects*(Handle,Effect : INTEGER);

PROCEDURE VstFont*(Handle,Font : INTEGER);

PROCEDURE VstHeight*(Handle,Height : INTEGER; VAR CharW,CharH,CellW,CellH : INTEGER);

PROCEDURE VstPoint*(Handle,Point : INTEGER; VAR CharW,CharH,CellW,CellH : INTEGER);

PROCEDURE VstRotation*(Handle,Angle : INTEGER);

PROCEDURE VswrMode*(Handle,Mode : INTEGER);

PROCEDURE VsColor*(Handle,Index,Red,Green,Blue : INTEGER);

END VDIAttributes.
