home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / bp7os2 / bpos2int / viocalls.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1994-05-31  |  15.4 KB  |  456 lines
  1. (* ====================================================== *)
  2. (*                     VIOCALLS.PAS                       *)
  3. (* ====================================================== *)
  4. (*   Implementation of the funcions of VIOCALLS.DLL       *)
  5. (* Only functions no 55 to 65 of the DLL are defined.     *)
  6. (* Functions not yet implemented are commented in the     *)
  7. (* implementation part of this unit.                      *)
  8. (* ====================================================== *)
  9. (*        Translation to Pascal by wr/toolbox mag         *)
  10. (* ====================================================== *)
  11.  
  12. {$IFNDEF OS2}
  13.   Error: Wrong target/Compiler not patched
  14. {$ENDIF}
  15.  
  16. UNIT VioCalls;
  17.  
  18. INTERFACE
  19.  
  20. USES
  21.   Os2Def;
  22.  
  23. TYPE
  24.   hVPs  = WORD;                (* hpvs *)
  25.   pHVPS = ^hVPs; (* phpvs *)
  26.  
  27. CONST
  28.   NULL = 0;
  29.  
  30. (* VIOCreatePS format constants *)
  31.  
  32.   FORMAT_CGA   = $00001;
  33.   FORMAT_4BYTE = $00003;
  34.  
  35. (* Options for VIOQueryFonts *)
  36.  
  37.   VQF_PUBLIC   = $00001;
  38.   VQF_PRIVATE  = $00002;
  39.  
  40. { Die Funktionen VIOxxx und VIO16xxx sind identisch und    }
  41. { nur aus Kompatibilitätsgründen doppelt benamt mit dem    }
  42. { gleichen Einsprung in die DLL vorhanden.                 }
  43.  
  44.   FUNCTION VioAssociate  (h1 : hDC; h2 : hVPs) : WORD;
  45.   FUNCTION Vio16Associate(h1 : hDC; h2 : hVPs) : WORD;
  46.  
  47.   FUNCTION VioCreateLogFont(  VAR f  : fAttrs;
  48.                                   l1 : LongInt;
  49.                                   l2 : LongInt;
  50.                               VAR s  : Str8;
  51.                                   h1 : hVPs): WORD;
  52.   FUNCTION VIO16CreateLogFont(VAR f  : fAttrs;
  53.                                   l1 : LongInt;
  54.                                   l2 : LongInt;
  55.                               VAR s  : Str8;
  56.                                   h1 : hVPs): WORD;
  57.  
  58.   FUNCTION VioCreatePS(  VAR ahvps : hVPs;
  59.                              a2    : WORD;
  60.                              a3    : WORD;
  61.                              a4    : WORD;
  62.                              a5    : WORD;
  63.                              hvps2 : hVPs): WORD;
  64.   FUNCTION Vio16CreatePS(VAR ahvps : hVPs;
  65.                              a2    : WORD;
  66.                              a3    : WORD;
  67.                              a4    : WORD;
  68.                              a5    : WORD;
  69.                              hvps2 : hVPs): WORD;
  70.  
  71.   FUNCTION VioDestroyPS  (h : hVPs) : WORD;
  72.   FUNCTION Vio16DestroyPS(h : hVPs) : WORD;
  73.  
  74.   FUNCTION VioDeleteSetId  (a1: LongInt; a2: hVPs): WORD;
  75.   FUNCTION Vio16DeleteSetId(a1: LongInt; a2: hVPs): WORD;
  76.  
  77.   FUNCTION VioGetDeviceCellSize(  VAR a1 : LongInt;
  78.                                   VAR a2 : LongInt;
  79.                                       a3 : hVPs): WORD;
  80.   FUNCTION Vio16GetDeviceCellSize(VAR a1 : LongInt;
  81.                                   VAR a2 : LongInt;
  82.                                       a3 : hVPs): WORD;
  83.  
  84.   FUNCTION VioGetOrg(  VAR a1 : LongInt;
  85.                        VAR a2 : LongInt;
  86.                            h1 : hVPs): WORD;
  87.   FUNCTION Vio16GetOrg(VAR a1 : LongInt;
  88.                        VAR a2 : LongInt;
  89.                            h1 : hVPs): WORD;
  90.  
  91.   FUNCTION VioQueryFonts(  VAR a1       : LongInt;
  92.                            VAR f        : FontMetrics;
  93.                                a3       : LongInt;
  94.                            VAR a4       : LongInt;
  95.                                CharAddr : pChar;
  96.                                a6       : LongInt;
  97.                                a7       : hVPs): WORD;
  98.   FUNCTION Vio16QueryFonts(VAR a1       : LongInt;
  99.                            VAR f        : FontMetrics;
  100.                                a3       : LongInt;
  101.                            VAR a4       : LongInt;
  102.                                CharAddr : pChar;
  103.                                a6       : LongInt;
  104.                                a7       : hVPs): WORD;
  105.  
  106.   FUNCTION VioQuerySetIds(  VAR p1   : LongInt;
  107.                             VAR Str8 : Str8;
  108.                             VAR p3   : LongInt;
  109.                                 p4   : LongInt;
  110.                                 p5   : hVPs): WORD;
  111.   FUNCTION Vio16QuerySetIds(VAR p1   : LongInt;
  112.                             VAR Str8 : Str8;
  113.                             VAR p3   : LongInt;
  114.                                 p4   : LongInt;
  115.                                 p5   : hVPs): WORD;
  116.  
  117.   FUNCTION VioSetDeviceCellSize  (a1 : WORD;
  118.                                   a2 : WORD;
  119.                                   a3 : hVPs): WORD;
  120.   FUNCTION Vio16SetDeviceCellSize(a1 : WORD;
  121.                                   a2 : WORD;
  122.                                   a3 : hVPs): WORD;
  123.  
  124.   FUNCTION VioSetOrg  (a1, a2: WORD; a3: hVPs): WORD;
  125.   FUNCTION Vio16SetOrg(a1, a2: WORD; a3: hVPs): WORD;
  126.  
  127.   FUNCTION VioShowPS  (a1, a2, a3: WORD; h1: hVPs): WORD;
  128.   FUNCTION Vio16ShowPS(a1, a2, a3: WORD; h1: hVPs): WORD;
  129.  
  130.  
  131. IMPLEMENTATION
  132.  
  133. { **********************************************************
  134.  
  135.   FUNCTION VIOEndPopup(* ------------- *);
  136.     External 'VIOCalls' INDEX  1;
  137.   FUNCTION VIO16EndPopup(* ------------- *);
  138.     External 'VIOCalls' INDEX  1;
  139.  
  140.   FUNCTION VIOGetPhysBuf(* ------------- *);
  141.     External 'VIOCalls' INDEX   2;
  142.   FUNCTION VIO16GetPhysBuf(* ------------- *);
  143.     External 'VIOCalls' INDEX   2;
  144.  
  145.   FUNCTION VIOGetANSI(* ------------- *);
  146.     External 'VIOCalls' INDEX   3;
  147.   FUNCTION VIO16GetANSI(* ------------- *);
  148.     External 'VIOCalls' INDEX   3;
  149.  
  150. (* ===================================================== *)
  151.  
  152.   FUNCTION VIOSetANSI(* ------------- *);
  153.     External 'VIOCalls' INDEX   5;
  154.   FUNCTION VIO16SetANSI(* ------------- *);
  155.     External 'VIOCalls' INDEX   5;
  156.  
  157.   FUNCTION VIODeRegister(* ------------- *);
  158.     External 'VIOCalls' INDEX   6;
  159.   FUNCTION VIO16DeRegister(* ------------- *);
  160.     External 'VIOCalls' INDEX   6;
  161.  
  162.   FUNCTION VIOScrollUp(* ------------- *);
  163.     External 'VIOCalls' INDEX   7;
  164.   FUNCTION VIO16ScrollUp(* ------------- *);
  165.     External 'VIOCalls' INDEX   7;
  166.  
  167.   FUNCTION VIOPrtSC(* ------------- *);
  168.     External 'VIOCalls' INDEX   8;
  169.   FUNCTION VIO16PrtSC(* ------------- *);
  170.     External 'VIOCalls' INDEX   8;
  171.  
  172.   FUNCTION VIOGetCurPos(* ------------- *);
  173.     External 'VIOCalls' INDEX   9;
  174.   FUNCTION VIO16GetCurPos(* ------------- *);
  175.     External 'VIOCalls' INDEX   9;
  176.  
  177.   FUNCTION VIOWRTCellStr(* ------------- *);
  178.     External 'VIOCalls' INDEX  10;
  179.   FUNCTION VIO16WRTCellStr(* ------------- *);
  180.     External 'VIOCalls' INDEX  10;
  181.  
  182.   FUNCTION VIOPopup(* ------------- *);
  183.     External 'VIOCalls' INDEX  11;
  184.   FUNCTION VIO16Popup(* ------------- *);
  185.     External 'VIOCalls' INDEX  11;
  186.  
  187.   FUNCTION VIOScrollRT(* ------------- *);
  188.     External 'VIOCalls' INDEX  12;
  189.   FUNCTION VIO16ScrollRT(* ------------- *);
  190.     External 'VIOCalls' INDEX  12;
  191.  
  192.   FUNCTION VIOWRTCharStr(* ------------- *);
  193.     External 'VIOCalls' INDEX  13;
  194.   FUNCTION VIO16WRTCharStr(* ------------- *);
  195.     External 'VIOCalls' INDEX  13;
  196.  
  197. (* ===================================================== *)
  198.  
  199.   FUNCTION VIOSetCurPos(* ------------- *);
  200.     External 'VIOCalls' INDEX  15;
  201.   FUNCTION VIO16SetCurPos(* ------------- *);
  202.     External 'VIOCalls' INDEX  15;
  203.  
  204. (* ===================================================== *)
  205.  
  206.   FUNCTION VIOScrUnlock(* ------------- *);
  207.     External 'VIOCalls' INDEX  18;
  208.   FUNCTION VIO16ScrUnlock(* ------------- *);
  209.     External 'VIOCalls' INDEX  18;
  210.  
  211.   FUNCTION VIOWrtTTY(* ------------- *);
  212.     External 'VIOCalls' INDEX  19;
  213.   FUNCTION VIO16WrtTTY(* ------------- *);
  214.     External 'VIOCalls' INDEX  19;
  215.  
  216.   FUNCTION VIOGetMode(* ------------- *);
  217.     External 'VIOCalls' INDEX  21;
  218.   FUNCTION VIO16GetMode(* ------------- *);
  219.     External 'VIOCalls' INDEX  21;
  220.  
  221.   FUNCTION VIOSetMode(* ------------- *);
  222.     External 'VIOCalls' INDEX  22;
  223.   FUNCTION VIO16SetMode(* ------------- *);
  224.     External 'VIOCalls' INDEX  22;
  225.  
  226.   FUNCTION VIOScrLock(* ------------- *);
  227.     External 'VIOCalls' INDEX  23;
  228.   FUNCTION VIO16ScrLock(* ------------- *);
  229.     External 'VIOCalls' INDEX  23;
  230.  
  231.   FUNCTION VIOReadCellStr(* ------------- *);
  232.     External 'VIOCalls' INDEX  24;
  233.   FUNCTION VIO16ReadCellStr(* ------------- *);
  234.     External 'VIOCalls' INDEX  24;
  235.  
  236.   FUNCTION VIOSavRedrawWait(* ------------- *);
  237.     External 'VIOCalls' INDEX  25;
  238.   FUNCTION VIO16SavRedrawWait(* ------------- *);
  239.     External 'VIOCalls' INDEX  25;
  240.  
  241.   FUNCTION VIOWRTNAttr(* ------------- *);
  242.     External 'VIOCalls' INDEX  26;
  243.   FUNCTION VIO16WRTNAttr(* ------------- *);
  244.     External 'VIOCalls' INDEX  26;
  245.  
  246.   FUNCTION VIOGetCurType(* ------------- *);
  247.     External 'VIOCalls' INDEX  27;
  248.   FUNCTION VIO16GetCurType(* ------------- *);
  249.     External 'VIOCalls' INDEX  27;
  250.  
  251.   FUNCTION VIOSavRedrawUnDo(* ------------- *);
  252.     External 'VIOCalls' INDEX  28;
  253.   FUNCTION VIO16SavRedrawUnDo(* ------------- *);
  254.     External 'VIOCalls' INDEX  28;
  255.  
  256.   FUNCTION VIOGetFont(* ------------- *);
  257.     External 'VIOCalls' INDEX  29;
  258.   FUNCTION VIO16GetFont(* ------------- *);
  259.     External 'VIOCalls' INDEX  29;
  260.  
  261.   FUNCTION VIOReadCharStr(* ------------- *);
  262.     External 'VIOCalls' INDEX  30;
  263.   FUNCTION VIO16ReadCharStr(* ------------- *);
  264.     External 'VIOCalls' INDEX  30;
  265.  
  266.   FUNCTION VIOGetBuf(* ------------- *);
  267.     External 'VIOCalls' INDEX  31;
  268.   FUNCTION VIO16GetBuf(* ------------- *);
  269.     External 'VIOCalls' INDEX  31;
  270.  
  271.   FUNCTION VIOSetCurType(* ------------- *);
  272.     External 'VIOCalls' INDEX  32;
  273.   FUNCTION VIO16SetCurType(* ------------- *);
  274.     External 'VIOCalls' INDEX  32;
  275.  
  276.   FUNCTION VIOSetFont(* ------------- *);
  277.     External 'VIOCalls' INDEX  33;
  278.   FUNCTION VIO16SetFont(* ------------- *);
  279.     External 'VIOCalls' INDEX  33;
  280.  
  281. (* ===================================================== *)
  282.  
  283.   FUNCTION VIOModeUnDo(* ------------- *);
  284.     External 'VIOCalls' INDEX  35;
  285.   FUNCTION VIO16ModeUnDo(* ------------- *);
  286.     External 'VIOCalls' INDEX  35;
  287.  
  288. (* ===================================================== *)
  289.  
  290.   FUNCTION VIOModeWait(* ------------- *);
  291.     External 'VIOCalls' INDEX  37;
  292.   FUNCTION VIO16ModeWait(* ------------- *);
  293.     External 'VIOCalls' INDEX  37;
  294.  
  295. (* ===================================================== *)
  296.  
  297.   FUNCTION VIOGetCP(* ------------- *);
  298.     External 'VIOCalls' INDEX  40;
  299.   FUNCTION VIO16GetCP(* ------------- *);
  300.     External 'VIOCalls' INDEX  40;
  301.  
  302. (* ===================================================== *)
  303.  
  304.   FUNCTION VIOSetCP(* ------------- *);
  305.     External 'VIOCalls' INDEX  42;
  306.   FUNCTION VIO16SetCP(* ------------- *);
  307.     External 'VIOCalls' INDEX  42;
  308.  
  309.   FUNCTION VIOShowBuf(* ------------- *);
  310.     External 'VIOCalls' INDEX  43;
  311.   FUNCTION VIO16ShowBuf(* ------------- *);
  312.     External 'VIOCalls' INDEX  43;
  313.  
  314.   FUNCTION VIOScrollLf(* ------------- *);
  315.     External 'VIOCalls' INDEX  44;
  316.   FUNCTION VIO16ScrollLf(* ------------- *);
  317.     External 'VIOCalls' INDEX  44;
  318.  
  319.   FUNCTION VIORegister(* ------------- *);
  320.     External 'VIOCalls' INDEX  45;
  321.   FUNCTION VIO16Register(* ------------- *);
  322.     External 'VIOCalls' INDEX  45;
  323.  
  324.   FUNCTION VIOGetConfig(* ------------- *);
  325.     External 'VIOCalls' INDEX  46;
  326.   FUNCTION VIO16GetConfig(* ------------- *);
  327.     External 'VIOCalls' INDEX  46;
  328.  
  329.   FUNCTION VIOScrollDn(* ------------- *);
  330.     External 'VIOCalls' INDEX  47;
  331.   FUNCTION VIO16ScrollDn(* ------------- *);
  332.     External 'VIOCalls' INDEX  47;
  333.  
  334.   FUNCTION VIOWRTCharStrAtt(* ------------- *);
  335.     External 'VIOCalls' INDEX  48;
  336.   FUNCTION VIO16WRTCharStrAtt(* ------------- *);
  337.     External 'VIOCalls' INDEX  48;
  338.  
  339.   FUNCTION VIOGetState(* ------------- *);
  340.     External 'VIOCalls' INDEX  49;
  341.   FUNCTION VIO16GetState(* ------------- *);
  342.     External 'VIOCalls' INDEX  49;
  343.  
  344.   FUNCTION VIOPrtSCToggle(* ------------- *);
  345.     External 'VIOCalls' INDEX  50;
  346.   FUNCTION VIO16PrtSCToggle(* ------------- *);
  347.     External 'VIOCalls' INDEX  50;
  348.  
  349.   FUNCTION VIOSetState(* ------------- *);
  350.     External 'VIOCalls' INDEX  51;
  351.   FUNCTION VIO16SetState(* ------------- *);
  352.     External 'VIOCalls' INDEX  51;
  353.  
  354.   FUNCTION VIOWrtNCell(* ------------- *);
  355.     External 'VIOCalls' INDEX  52;
  356.   FUNCTION VIO16WrtNCell(* ------------- *);
  357.     External 'VIOCalls' INDEX  52;
  358.  
  359.   FUNCTION VIOWrtNChar(* ------------- *);
  360.     External 'VIOCalls' INDEX  53;
  361.   FUNCTION VIO16WrtNChar(* ------------- *);
  362.     External 'VIOCalls' INDEX  53;
  363.  
  364. ********************************************************** }
  365.  
  366. (* ===================================================== *)
  367.  
  368.   FUNCTION VioAssociate;       EXTERNAL 'VIOCalls' INDEX 55;
  369.   FUNCTION Vio16Associate;     EXTERNAL 'VIOCalls' INDEX 55;
  370.  
  371.   FUNCTION VioCreatePS;        EXTERNAL 'VIOCalls' INDEX 56;
  372.   FUNCTION Vio16CreatePS;      EXTERNAL 'VIOCalls' INDEX 56;
  373.  
  374.   FUNCTION VioDeleteSetId;     EXTERNAL 'VIOCalls' INDEX 57;
  375.   FUNCTION Vio16DeleteSetId;   EXTERNAL 'VIOCalls' INDEX 57;
  376.  
  377.   FUNCTION VioGetDeviceCellSize;
  378.   EXTERNAL 'VIOCalls' INDEX 58;
  379.   FUNCTION Vio16GetDeviceCellSize;
  380.   EXTERNAL 'VIOCalls' INDEX 58;
  381.  
  382.   FUNCTION VioGetOrg;          EXTERNAL 'VIOCalls' INDEX 59;
  383.   FUNCTION Vio16GetOrg;        EXTERNAL 'VIOCalls' INDEX 59;
  384.  
  385.   FUNCTION VioCreateLogFont;   EXTERNAL 'VIOCalls' INDEX 60;
  386.   FUNCTION VIO16CreateLogFont; EXTERNAL 'VIOCalls' INDEX 60;
  387.  
  388.   FUNCTION VioDestroyPS;       EXTERNAL 'VIOCalls' INDEX 61;
  389.   FUNCTION Vio16DestroyPS;     EXTERNAL 'VIOCalls' INDEX 61;
  390.  
  391.   FUNCTION VioQuerySetIds;     EXTERNAL 'VIOCalls' INDEX 62;
  392.   FUNCTION Vio16QuerySetIds;   EXTERNAL 'VIOCalls' INDEX 62;
  393.  
  394.   FUNCTION VioSetOrg;          EXTERNAL 'VIOCalls' INDEX 63;
  395.   FUNCTION Vio16SetOrg;        EXTERNAL 'VIOCalls' INDEX 63;
  396.  
  397.   FUNCTION VioQueryFonts;      EXTERNAL 'VIOCalls' INDEX 64;
  398.   FUNCTION Vio16QueryFonts;    EXTERNAL 'VIOCalls' INDEX 64;
  399.  
  400.   FUNCTION VioSetDeviceCellSize;
  401.   EXTERNAL 'VIOCalls' INDEX 65;
  402.   FUNCTION Vio16SetDeviceCellSize;
  403.   EXTERNAL 'VIOCalls' INDEX 65;
  404.  
  405.   FUNCTION VioShowPS;         EXTERNAL 'VIOCalls' INDEX 66;
  406.   FUNCTION Vio16ShowPS;       EXTERNAL 'VIOCalls' INDEX 66;
  407.  
  408. { **********************************************************
  409.  
  410.   FUNCTION VIOGetPSAddress(* ------------- *);
  411.     External 'VIOCalls' INDEX  67;
  412.   FUNCTION VIO16GetPSAddress(* ------------- *);
  413.     External 'VIOCalls' INDEX  67;
  414.  
  415. (* ===================================================== *)
  416.  
  417.   FUNCTION VIOGlobalReg(* ------------- *);
  418.     External 'VIOCalls' INDEX  70;
  419.   FUNCTION VIO16GlobalReg(* ------------- *);
  420.     External 'VIOCalls' INDEX  70;
  421.  
  422.   FUNCTION XVIOSetCAState(* ------------- *);
  423.     External 'VIOCalls' INDEX  71;
  424.   FUNCTION XVIO16SetCAState(* ------------- *);
  425.     External 'VIOCalls' INDEX  71;
  426.  
  427.   FUNCTION XVIOCheckCharType(* ------------- *);
  428.     External 'VIOCalls' INDEX  72;
  429.   FUNCTION XVIO16CheckCharType(* ------------- *);
  430.     External 'VIOCalls' INDEX  72;
  431.  
  432.   FUNCTION XVIODestroyCA(* ------------- *);
  433.     External 'VIOCalls' INDEX  73;
  434.   FUNCTION XVIO16DestroyCA(* ------------- *);
  435.     External 'VIOCalls' INDEX  73;
  436.  
  437.   FUNCTION XVIOCreateCA(* ------------- *);
  438.     External 'VIOCalls' INDEX  74;
  439.   FUNCTION XVIO16CreateCA(* ------------- *);
  440.     External 'VIOCalls' INDEX  74;
  441.  
  442.   FUNCTION VIOCheckCharType(* ------------- *);
  443.     External 'VIOCalls' INDEX  75;
  444.   FUNCTION VIO16CheckCharType(* ------------- *);
  445.     External 'VIOCalls' INDEX  75;
  446.  
  447.   FUNCTION XVIOGetCAState(* ------------- *);
  448.     External 'VIOCalls' INDEX  76;
  449.   FUNCTION XVIO16GetCAState(* ------------- *);
  450.     External 'VIOCalls' INDEX  76;
  451. }
  452.  
  453. END.
  454.  
  455. (* ===================================================== *)
  456.