#include "PScript.ch" 
 #include "FileIO.ch" 
  
 #ifdef __XHARBOUR__ 
    // 02.06.2005 - IBTC - changed for xHarbour Builder: 
    #xtranslate Method <Classname>:<x> => Method <x> 
    #define DLL_STDCALL NIL 
  
    #include "hbclass.ch" 
 #else 
    #include "Xbp.ch" 
    #include "Dll.ch" 
 #endif 
  
 

 
 =============================================== 
 PAGESCRIPT 32 FOR (X)HARBOUR 
 =============================================== 
  
 This file contains important supplementary and  
 late-breaking information that may not appear  
 in the main product documentation. We recommend 
 that you read this file in its entirety. 
  
 In order to use PageScript 32 with (x)Harbour, 
 you'll need to distribute PSCRIPT.DLL with your 
 programs. We recommand that PSCRIPT.DLL be copied 
 in the application's folder in order to avoid 
 DLL versions conflicts. 
  
 Three files needs to be included in your (x)Harbour 
 projects : 
  
    1 - DLLCALL.C 
    2 - TPSCRIPT.PRG 
    3 - PSCRIPT.CH 
  
 DLLCALL.C gives PageScript a way to call DLL functions 
 in the same way as Xbase++ does. This interface is 
 contributed by Paul Tucker, Ontario, Canada. Many 
 thanks to him for this great contribution. 
  
 TPSCRIPT.PRG contains all the PageScript 32 functions 
 and one class, named TPageScript. You may either choose 
 to call PS functions or instantiate TPageScript and use 
 its methods. When you use functions, calling PSInit() 
 automaticaly instanciates a Static TPageScript object. 
  
 PSCRIPT.CH contains constants used by PageScript 32. 
  
 

 
 PAGESCRIPT 32 FOR (X)HARBOUR 
 =============================================== 
 Скрытый текст

 
 This file contains important supplementary and  
 late-breaking information that may not appear  
 in the main product documentation. We recommend 
 that you read this file in its entirety. 
  
 In order to use PageScript 32 with (x)Harbour, 
 you'll need to distribute PSCRIPT.DLL with your 
 programs. We recommand that PSCRIPT.DLL be copied 
 in the application's folder in order to avoid 
 DLL versions conflicts. 
  
 Three files needs to be included in your (x)Harbour 
 projects : 
  
    1 - DLLCALL.C 
    2 - TPSCRIPT.PRG 
    3 - PSCRIPT.CH 
  
 DLLCALL.C gives PageScript a way to call DLL functions 
 in the same way as Xbase++ does. This interface is 
 contributed by Paul Tucker, Ontario, Canada. Many 
 thanks to him for this great contribution. 
  
 TPSCRIPT.PRG contains all the PageScript 32 functions 
 and one class, named TPageScript. You may either choose 
 to call PS functions or instantiate TPageScript and use 
 its methods. When you use functions, calling PSInit() 
 automaticaly instanciates a Static TPageScript object. 
  
 PSCRIPT.CH contains constants used by PageScript 32. 
 
 
 

 
 METHOD TPageScript:Init() 
  
 ::bWaterMark  := NIL                   // Codeblock for Watermark function 
 ::nWaterMark  := AWM_NONE              // Indicates if the WaterMark is to be printed foreground or background 
 ::lFromDialog := .f.                   // Indicates if printer selected from printer dialog 
 ::lClipper    := .f.                   // Indicates if calls to TextOut and TextBox should be compatible with PageScript for Clipper 
 ::nUnit       := APS_MILL              // Default unit is MILLIMETERS 
 ::aPrinters   := {}                    // List of available printers 
 ::nError      := PSE_NOERROR           // Indicates an error condition, such as no printer available 
 ::aDocInfo    := {0, "", "", APS_PORTRAIT, 1, APS_COURIER} // Print job info array 
  
 ::hDll        := DllLoad("PScript.dll") // Handle of the .DLL 
  
 if ::hDll == nil//0 
  
    ::nError := PSE_DLLNOTLOADED        // DLL not loaded error 
 else 
    ::nError := DllCall(::hDll, DLL_STDCALL, "PSInit") 
  
    // No error, set the coordinate system to TOP/LEFT (Default) 
    if ::nError == PSE_NOERROR 
       DllCall(::hDll, DLL_STDCALL, "PSSetCoorSystem", APS_TOPLEFT) 
    endif 
 endif 
  
 Return Self 
 

 
 #ifdef __HARBOUR__ 
    // 02.06.2005 - IBTC - changed for xHarbour Builder: 
    #xtranslate Method <Classname>:<x> => Method <x> 
     #include "hbclass.ch" 
    #include "Dll.ch" 
 #else 
    #include "Xbp.ch" 
    #include "Dll.ch" 
 #endif