business-86-101-185-173.business.broadband.hu/business-86-101-185-173.business.broadband.hu.zip/business-86-101-185-173.business.broadband.hu/trans/foxypreviewer.app

MS Visual FoxPro App | 2013-03-13 | 4MB | 74,366 lines

PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _18P105OTS 956777596^
 COMMENT RESERVED
 WINDOWS _1DS143BJE1065463466
 COMMENT RESERVED
 WINDOWS _2FE0JKNKY1087704109
 COMMENT RESERVED
VERSION =   3.00
pdflistener
registry
hpdf_consts.h
enumregistrykey
enumvalue
Pixels
Provides read and write access to the  System Registry. The Functionality provided is greatly abstracted resulting in using a single method call to set and retrieve values from the registry.
Class
custom
registry
*readregistrystring Lee un Valor String del Registro de Windows
*readregistryint Lee un valor Integer (DWORD)  o Short en el registro de Windows
*writeregistrystring Escribe una valor String en el Registro de Windows
*writeregistryint Escribe una valor num
rico en el Registro de windows
*writeregistrybinary Escribe un valor binario en el registro de Windows
*deleteregistrykey Elimina una llave del registro de Windows
*enumregistrykey Retorna un valor del registro basado en un indice. Permite llamadas desde un ciclo FOR
*enumvalue Retorna el nombre de un valor del registro
*getenumvalues Retorna todos los valores de una llave en un array
*getenumkeys Retorna todas las subclaves de una clave especificada
*examples Ejemplos de Uso de la Clase
,Height = 19
Width = 35
Name = "registry"
custom
hpdf_consts.hf
hpdf_consts.h
nlastpageproccesed
lstarted
npageheight
lunderline
addpdfstandardfonts
findfontfilename
parseunderlinetext
processdynamics
getpicturehandle
Pixels
PDF Listener using HARU Library
Class
fxlistener
pdflistener
reportlistener
pr_reportlistener.vcx
hpdf_consts.hf
hpdf_consts.hN
pdfasimagelistener
hpdf_consts.h
Pixels
&Listener to Create PDF Files as Images
Class
fxlistener
FkPROCEDURE readregistrystring
************************************************************************
* Registry :: ReadRegistryString
*********************************
***  Function: Reads a string value from the registry.
***      Pass: tnHKEY    -  HKEY value (in CGIServ.h)
***            tcSubkey  -  The Registry subkey value
***            tcEntry   -  The actual Key to retrieve
***    Return: Registry String or .NULL. on error
************************************************************************
Lparameters tnHKey, tcSubkey, tcEntry
Local lnRegHandle, lnResult, lnSize, lcDataBuffer, tnType
tnHKey=Iif(Type("tnHKey")="N",tnHKey,HKEY_LOCAL_MACHINE)
lnRegHandle=0
*** Open the registry key
lnResult=RegOpenKey(tnHKey,tcSubkey,@lnRegHandle)
If lnResult#ERROR_SUCCESS
    Return .Null.
EndIf
*** Need to define here specifically for Return Type
*** for lpdData parameter or VFP will choke.
*** Here it's STRING.
Declare Integer RegQueryValueEx ;
    IN Win32API As RegQueryString;
    INTEGER nHKey,;
    STRING lpszValueName,;
    INTEGER dwReserved,;
    INTEGER @lpdwType,;
    STRING @lpbData,;
    INTEGER @lpcbData
*** Return buffer to receive value
lcDataBuffer=Space(MAX_INI_BUFFERSIZE)
lnSize=Len(lcDataBuffer)
lnType=0
lnResult=RegQueryString(lnRegHandle,tcEntry,0,@lnType,;
    @lcDataBuffer,@lnSize)
=RegCloseKey(lnRegHandle)
If lnResult#ERROR_SUCCESS
    Return .Null.
EndIf
If lnSize<2
    Return ""
EndIf
*** Return string based on length returned
Return Substr(lcDataBuffer,1,lnSize-1)
ENDPROC
PROCEDURE readregistryint
************************************************************************
* Registry :: ReadRegistryInt
*********************************
***  Function: Reads an integer (DWORD) or short (4 byte or less) binary
***            value from the registry.
***      Pass: tnHKEY    -  HKEY value (in CGIServ.h)
***            tcSubkey  -  The Registry subkey value
***            tcEntry   -  The actual Key to retrieve
***    Return: Registry String or .NULL. on error
************************************************************************
Lparameters tnHKey, tcSubkey, tcEntry
Local lnRegHandle, lnResult, lnSize, lcDataBuffer, tnType
tnHKey=Iif(Type("tnHKey")="N",tnHKey,HKEY_LOCAL_MACHINE)
lnRegHandle=0
lnResult=RegOpenKey(tnHKey,tcSubkey,@lnRegHandle)
If lnResult#ERROR_SUCCESS
    Return .Null.
EndIf
*** Need to define here specifically for Return Type
*** for lpdData parameter or VFP will choke.
*** Here's it's an INTEGER
Declare Integer RegQueryValueEx ;
    IN Win32API As RegQueryInt;
    INTEGER nHKey,;
    STRING lpszValueName,;
    INTEGER dwReserved,;
    Integer @lpdwType,;
    INTEGER @lpbData,;
    INTEGER @lpcbData
lnDataBuffer=0
lnSize=4
lnResult=RegQueryInt(lnRegHandle,tcEntry,0,@tnType,;
    @lnDataBuffer,@lnSize)
=RegCloseKey(lnRegHandle)
If lnResult#ERROR_SUCCESS
    Return .Null.
EndIf
Return lnDataBuffer
ENDPROC
PROCEDURE writeregistrystring
************************************************************************
* Registry :: WriteRegistryString
*********************************
***  Function: Reads a string value from the registry.
***      Pass: tnHKEY    -  HKEY value (in CGIServ.h)
***            tcSubkey  -  The Registry subkey value
***            tcEntry   -  The actual Key to write to
***            tcValue   -  Value to write or .NULL. to delete key
***            tlCreate  -  Create if it doesn't exist
***    Assume: Use with extreme caution!!! Blowing your registry can
***            hose your system!
***    Return: .T. or .NULL. on error
************************************************************************
Lparameters tnHKey, tcSubkey, tcEntry, tcValue,tlCreate
Local lnRegHandle, lnResult, lnSize, lcDataBuffer, tnType
tnHKey=Iif(Type("tnHKey")="N",tnHKey,HKEY_LOCAL_MACHINE)
lnRegHandle=0
lnResult=RegOpenKey(tnHKey,tcSubkey,@lnRegHandle)
If lnResult#ERROR_SUCCESS
    If !tlCreate
        Return .Null.
    Else
        lnResult=RegCreateKey(tnHKey,tcSubkey,@lnRegHandle)
        If lnResult#ERROR_SUCCESS
            Return .Null.
        EndIf
    EndIf
EndIf
*** Need to define here specifically for Return Type!
*** Here lpbData is STRING.
Declare Integer RegSetValueEx ;
    IN Win32API ;
    INTEGER nHKey,;
    STRING lpszEntry,;
    INTEGER dwReserved,;
    INTEGER fdwType,;
    STRING lpbData,;
    INTEGER cbData
*** Check for .NULL. which means delete key
If !Isnull(tcValue)
*** Nope - write new value
    lnSize=Len(tcValue)
    lnResult=RegSetValueEx(lnRegHandle,tcEntry,0,REG_SZ,;
        tcValue,lnSize)
*** DELETE THE KEY
    lnResult=RegDeleteValue(lnRegHandle,tcEntry)
EndIf
=RegCloseKey(lnRegHandle)
If lnResult#ERROR_SUCCESS
    Return .Null.
EndIf
Return .T.
ENDPROC
PROCEDURE writeregistryint
************************************************************************
* Registry :: WriteRegistryInt
*********************************
***  Function: Writes a numeric value to the registry.
***      Pass: tnHKEY    -  HKEY value (in CGIServ.h)
***            tcSubkey  -  The Registry subkey value
***            tcEntry   -  The actual Key to write to
***            tcValue   -  Value to write or .NULL. to delete key
***            tlCreate  -  Create if it doesn't exist
***    Assume: Use with extreme caution!!! Blowing your registry can
***            hose your system!
***    Return: .T. or .NULL. on error
************************************************************************
Lparameters tnHKey, tcSubkey, tcEntry, tnValue,tlCreate
Local lnRegHandle, lnResult, lnSize, lcDataBuffer, tnType
tnHKey=Iif(Type("tnHKey")="N",tnHKey,HKEY_LOCAL_MACHINE)
lnRegHandle=0
lnResult=RegOpenKey(tnHKey,tcSubkey,@lnRegHandle)
If lnResult#ERROR_SUCCESS
    If !tlCreate
        Return .Null.
    Else
        lnResult=RegCreateKey(tnHKey,tcSubkey,@lnRegHandle)
        If lnResult#ERROR_SUCCESS
            Return .Null.
        EndIf
    EndIf
EndIf
*** Need to define here specifically for Return Type!
*** Here lpbData is STRING.
Declare Integer RegSetValueEx ;
    IN Win32API ;
    INTEGER nHKey,;
    STRING lpszEntry,;
    INTEGER dwReserved,;
    INTEGER fdwType,;
    INTEGER @lpbData,;
    INTEGER cbData
*** Check for .NULL. which means delete key
If !Isnull(tnValue)
*** Nope - write new value
    lnSize=4
    lnResult=RegSetValueEx(lnRegHandle,tcEntry,0,REG_DWORD,;
        @tnValue,lnSize)
*** DELETE THE KEY
    lnResult=RegDeleteValue(lnRegHandle,tcEntry)
EndIf
=RegCloseKey(lnRegHandle)
If lnResult#ERROR_SUCCESS
    Return .Null.
EndIf
Return .T.
ENDPROC
PROCEDURE writeregistrybinary
************************************************************************
* Registry :: WriteRegistryBinary
*********************************
***  Function: Writes a binary value to the registry.
***            Binary must be written as character values:
***            chr(80)+chr(13)  will result in "50 1D"
***            for example.
***      Pass: tnHKEY    -  HKEY value (in CGIServ.h)
***            tcSubkey  -  The Registry subkey value
***            tcEntry   -  The actual Key to write to
***            tcValue   -  Value to write or .NULL. to delete key
***            tnLength  -  you have to supply the length
***            tlCreate  -  Create if it doesn't exist
***    Assume: Use with extreme caution!!! Blowing your registry can
***            hose your system!
***    Return: .T. or .NULL. on error
************************************************************************
Lparameters tnHKey, tcSubkey, tcEntry, tcValue,tnLength,tlCreate
Local lnRegHandle, lnResult, lnSize, lcDataBuffer, tnType
tnHKey=Iif(Type("tnHKey")="N",tnHKey,HKEY_LOCAL_MACHINE)
tnLength=Iif(Type("tnLength")="N",tnLength,Len(tcValue))
lnRegHandle=0
lnResult=RegOpenKey(tnHKey,tcSubkey,@lnRegHandle)
If lnResult#ERROR_SUCCESS
    If !tlCreate
        Return .Null.
    Else
        lnResult=RegCreateKey(tnHKey,tcSubkey,@lnRegHandle)
        If lnResult#ERROR_SUCCESS
            Return .Null.
        EndIf
    EndIf
EndIf
*** Need to define here specifically for Return Type!
*** Here lpbData is STRING.
Declare Integer RegSetValueEx ;
    IN Win32API ;
    INTEGER nHKey,;
    STRING lpszEntry,;
    INTEGER dwReserved,;
    INTEGER fdwType,;
    STRING @lpbData,;
    INTEGER cbData
*** Check for .NULL. which means delete key
If !Isnull(tcValue)
*** Nope - write new value
    lnResult=RegSetValueEx(lnRegHandle,tcEntry,0,REG_BINARY,;
        @tcValue,tnLength)
*** DELETE THE KEY
    lnResult=RegDeleteValue(lnRegHandle,tcEntry)
EndIf
=RegCloseKey(lnRegHandle)
If lnResult#ERROR_SUCCESS
    Return .Null.
EndIf
Return .T.
ENDPROC
PROCEDURE deleteregistrykey
************************************************************************
* Registry :: DeleteRegistryKey
*********************************
***  Function: Deletes a registry key. Note this does not delete
***            an entry but the key (ie. a path node).
***            Use WriteRegistryString/Int with a .NULL. to
***            Delete an entry.
***      Pass: tnHKey    -   Registry Root node key
***            tcSubkey  -   Path to clip
***    Return: .T. or .NULL.
************************************************************************
Lparameters tnHKEY,tcSubKey
Local lnResult, lnRegHandle
tnHKEY=Iif(Type("tnHKey")="N",tnHKEY,HKEY_LOCAL_MACHINE)
lnRegHandle=0
lnResult=RegOpenKey(tnHKEY,tcSubKey,@lnRegHandle)
If lnResult#ERROR_SUCCESS
*** Key doesn't exist or can't be opened
    Return .Null.
EndIf
lnResult=RegDeleteKey(tnHKEY,tcSubKey)
=RegCloseKey(lnRegHandle)
If lnResult#ERROR_SUCCESS
    Return .Null.
EndIf
Return .T.
ENDPROC
PROCEDURE enumregistrykey
************************************************************************
* wwAPI :: EnumRegistryKey
*********************************
***  Function: Returns a registry key name based on an index
***            Allows enumeration of keys in a FOR loop. If key
***            is empty end of list is reached or the key doesn't
***            exist or is empty.
***      Pass: tnHKey    -   HKEY_ root key
***            tcSubkey  -   Subkey string
***            tnIndex   -   Index of key name to get (0 based)
***    Return: "" on error - Key name otherwise
************************************************************************
Lparameters tnHKey, tcSubKey, tnIndex
Local lcSubKey, lcReturn, lnResult, lcDataBuffer
lnRegHandle=0
*** Open the registry key
lnResult=RegOpenKey(tnHKey,tcSubKey,@lnRegHandle)
If lnResult#ERROR_SUCCESS
*** Not Found
    Return .Null.
EndIf
Declare Integer RegEnumKey ;
    IN WIN32API ;
    INTEGER nHKey, ;
    INTEGER nIndex, ;
    STRING @cSubkey, ;
    INTEGER nSize
lcDataBuffer=Space(MAX_INI_BUFFERSIZE)
lnSize=MAX_INI_BUFFERSIZE
lnReturn=RegEnumKey(lnRegHandle, tnIndex, @lcDataBuffer, lnSize)
=RegCloseKey(lnRegHandle)
If lnResult#ERROR_SUCCESS
*** Not Found
    Return .Null.
EndIf
Return Trim(Chrtran(lcDataBuffer,Chr(0),""))
ENDPROC
PROCEDURE enumvalue
************************************************************************
* Registry :: EnumValue
*********************************
***  Function: Returns the name of a registry Value key. Note the actual
***            Value is not returned but just the key. This is done
***            so you can check the type first and use the appropriate
***            ReadRegistryX method. The type is returned by ref in the
***            last parameter.
***    Assume:
***      Pass: tnHKey   -   HKEY value
***            tcSubkey -   The key to enumerate valuekeys for
***            tnIndex  -   Index of key to work on
***            @tnType  -   Used to pass back the type of the value
***    Return: String of ValueKey or .NULL.
************************************************************************
Lparameters tnHKey, tcSubKey, tnIndex, tnType
Local lcSubKey, lcReturn, lnResult, lcDataBuffer
tnType=Iif(Type("tnType")="N",tnType,0)
lnRegHandle=0
*** Open the registry key
lnResult=RegOpenKey(tnHKey,tcSubKey,@lnRegHandle)
If lnResult#ERROR_SUCCESS
*** Not Found
    Return .Null.
EndIf
*** Need to define here specifically for Return Type
*** for lpdData parameter or VFP will choke.
*** Here it's STRING.
Declare Integer RegEnumValue ;
    IN Win32API ;
    INTEGER nHKey,;
    INTEGER nIndex,;
    STRING @lpszValueName,;
    INTEGER @lpdwSize,;
    INTEGER dwReserved,;
    INTEGER @lpdwType,;
    STRING @lpbData,;
    INTEGER @lpcbData
tcSubKey=Space(MAX_INI_BUFFERSIZE)
tcValue=Space(MAX_INI_BUFFERSIZE)
lnSize=MAX_INI_BUFFERSIZE
lnValSize=MAX_INI_BUFFERSIZE
lnReturn=RegEnumValue(lnRegHandle, tnIndex, @tcSubKey,@lnValSize, 0, @tnType, @tcValue, @lnSize)
=RegCloseKey(lnRegHandle)
If lnResult#ERROR_SUCCESS
*** Not Found
    Return .Null.
EndIf
Return Trim(Chrtran(tcSubKey,Chr(0),""))
ENDPROC
PROCEDURE getenumvalues
************************************************************************
* Registry :: GetEnumValues
*********************************
***  Function: Retrieves all Values off a key into an array. The
***            array is 2D and consists of: Key Name, Value
***    Assume: Not tested with non-string values
***      Pass: @taValues     -   Result Array: Pass by Reference
***            tnHKEY        -   ROOT KEY value
***            tcSubKey      -   SubKey to work on
***    Return: Count of Values retrieved
************************************************************************
Lparameters taValues, tnHKey, tcSubKey
Local x, lcKey
lcKey="x"
Do While !Empty(lcKey) Or Isnull(lcKey)
    lnType=0
    lcKey=This.EnumValue(tnHKey,tcSubKey,x,@lnType)
    If Isnull(lcKey) Or Empty(lcKey)
        Exit
    EndIf
    x=x+1
    Dimension  taValues[x,2]
    Do Case
    Case lnType=REG_SZ Or lnType=REG_BINARY Or lnType=REG_NONE
        lcValue=oRegistry.ReadRegistryString(tnHKey,tcSubKey,lcKey)
        taValues[x,1]=lcKey
        taValues[x,2]=lcValue
    Case lnType=REG_DWORD
        lnValue=oRegistry.ReadRegistryInt(tnHKey,tcSubKey,lcKey)
        taValues[x,1]=lcKey
        taValues[x,2]=lnValue
    Otherwise
        taValues[x,1]=lcKey
        taValues[x,2]=""
    EndCase
EndDo
Return x
ENDPROC
PROCEDURE getenumkeys
************************************************************************
* Registry :: GetEnumKeys
*********************************
***  Function: Returns an array of all subkeys for a given key
***            NOTE: This function does not return Value Keys only
***                  Tree Keys!!!!
***      Pass: @taKeys  -   An array that gets filled with key names
***            tnHKEY   -   Root Key
***            tcSubkey -   Subkey to enumerate for
***    Return: Number of keys or 0
************************************************************************
Lparameters taKeys, tnHKey, tcSubKey
Local x, lcKey
lcKey="x"
Do While !Empty(lcKey) Or Isnull(lcKey)
    lnType=0
    lcKey=This.EnumKey(tnHKey,tcSubKey,x)
    If Isnull(lcKey) Or Empty(lcKey)
        Exit
    EndIf
    x=x+1
    Dimension  taKeys[x]
    taKeys[x]=lcKey
EndDo
Return x
ENDPROC
PROCEDURE examples
*** Create a new Tree
? oRegistry.WriteRegistryString(HKEY_LOCAL_MACHINE,;
                               "SOFTWARE\West Wind Technologies",;
                               "","",.T.)
*** Now create a a key off the root and add a value
? oRegistry.WriteRegistryString(HKEY_LOCAL_MACHINE,;
                               "SOFTWARE\West Wind Technologies\WebConnection",;
                               "CurrentVersion","1.45",.T.)
*** Add another Value - numeric
? oRegistry.WriteRegistryInt  (HKEY_LOCAL_MACHINE,;
                               "SOFTWARE\West Wind Technologies\WebConnection",;
                               "Timeout",60,.T.)
*** Now Read the values back
? oRegistry.ReadRegistryString(HKEY_LOCAL_MACHINE,;
                               "SOFTWARE\West Wind Technologies\WebConnection",;
                               "CurrentVersion")
? oRegistry.ReadRegistryInt(HKEY_LOCAL_MACHINE,;
                               "SOFTWARE\West Wind Technologies\WebConnection",;
                               "Timeout")
*** Uncomment this code to delete the registry entries again
*-**** Now delete the value entries - Write with a NULL
*-*? oRegistry.WriteRegistryString(HKEY_LOCAL_MACHINE,;
*-*                               "SOFTWARE\West Wind Technologies\WebConection",;
*-*                               "CurrentVersion",.NULL.,.T.)
*-**** And the numeric entry - again with a .NULL.
*-*? oRegistry.WriteRegistryInt  (HKEY_LOCAL_MACHINE,;
*-*                               "SOFTWARE\West Wind Technologies\WebConection",;
*-*                               "Timeout",.NULL.,.T.)
*-**** Get rid of the keys - Web Connection
*-*? oRegistry.DeleteRegistryKey(HKEY_LOCAL_MACHINE,;
*-*                            "SOFTWARE\West Wind Technologies\WebConection")
*-**** Again the West Wind Technologies Key
*-*? oRegistry.DeleteRegistryKey(HKEY_LOCAL_MACHINE,;
*-*                              "SOFTWARE\West Wind Technologies")
*#ENDIF
ENDPROC
PROCEDURE Init
************************************************************************
* Registry :: Init
*********************************
***  Function: Loads required DLLs. Note Read and Write DLLs are
***            not loaded here since they need to be reloaded each
***            time depending on whether String or Integer values
***            are required
************************************************************************
*** Open Registry Key
Declare Integer RegOpenKey ;
    IN Win32API ;
    INTEGER nHKey,;
    STRING cSubKey,;
    INTEGER @nHandle
*** Create a new Key
Declare Integer RegCreateKey ;
    IN Win32API ;
    INTEGER nHKey,;
    STRING cSubKey,;
    INTEGER @nHandle
*** Close an open Key
Declare Integer RegCloseKey ;
    IN Win32API ;
    INTEGER nHKey
*** Delete a key (path)
Declare Integer RegDeleteKey ;
    IN Win32API ;
    INTEGER nHKEY,;
    STRING cSubkey
*** Delete a value from a key
Declare Integer RegDeleteValue ;
    IN Win32API ;
    INTEGER nHKEY,;
    STRING cEntry
ENDPROC
pdfasimagelistener
Ipdfhandle Handle for the Pdf Document To Generate
pageheight Height of The Report Pages
pagewidth Width of Report Pages
encryptdocument Property to Know if the Document Will Be Encrypted
oprogress Property to Store Progress Bar
oregistry
mergedocument
mergedocumentname
opage Property to Store the Page Object
oimagescollection Collection of images files used in the report
cpdfauthor Pdf Author
cuserpassword User Pasword of the Document
lencryptdocument
nencryptionlevel Accepts a Value of 0 Or 1, 0 = Standard 40-bit encryption. 1 = Advanced 128-bit encryption.
npageheight
lcanedit
lcancopy
lcanaddnotes
lcanprint If .T. User will be allowed to print the document, if 0 he won't
lopenviewer If .T. Adobe Reader will be opened
cmasterpassword Master Password of the Pdf Document
ctargetfilename
cpdfcreator Pdf Creator
cpdfkeywords Pdf Keywords
cpdfsubject Pdf Subject
cpdftitle Pdf Title
waitfornextreport
npgcounter
npagemode
lextended
ldefaultmode
npagewidth
lobjtypemode
_stat
lshowerrors
ncurrentpage
*addblankpage
*cleardlls
*encryptpdf Method to Encrypt the Pdf Document
*startpdfdocument Method to start pdf generation
*writepdfinformation Writes Information About the File
*declaredll Method to Start Dll Declarations
*makepdf
*outputfromdata
*updateproperties
*_stat_assign
*_errorinfo
LNWIDTH
LNHEIGHT
LDEFAULTMODE
GETPAGEWIDTH
GETPAGEHEIGHT
NPAGEWIDTH
NPAGEHEIGHT
OPAGE
HPDF_ADDPAGE
PDFHANDLE
_STAT
HPDF_PAGE_SETWIDTH
HPDF_PAGE_SETHEIGHT
HPDF_New,HPDF_Free
HPDF_SaveToFile
HPDF_SetPageMode
HPDF_AddPage
HPDF_Page_SetWidth
HPDF_Page_SetHeight
HPDF_LoadJpegImageFromFile
HPDF_SetInfoAttr
HPDF_SetPassword
HPDF_SetPermission
HPDF_SetEncryptionMode
HPDF_SetCompressionMode
HPDF_Page_Concat
HPDF_Page_DrawImage
HPDF_LoadPngImageFromFile
HPDF_GetError
HPDF_ResetError
INTEGER
LENCRYPTDOCUMENT
CMASTERPASSWORD
CUSERPASSWORD
_STAT
HPDF_SETPASSWORD
PDFHANDLE
LNPERMIT
LCANPRINT
LCANEDIT
LCANCOPY
LCANADDNOTES
HPDF_SETPERMISSION
NENCRIPTIONLEVEL
HPDF_SETENCRYPTIONMODE
Could not load the library LIBHPDF.DLL .C
The process can't continue. Make sure that you have the PDF library available, and that FoxyPreviewer is installed in a folder that has READ/WRITE access.
Error
DECLAREDLL
PDFHANDLE
HPDF_NEW
CANCELREPORT
_STAT
HPDF_SETCOMPRESSIONMODE
HPDF_SETPAGEMODE
NPAGEMODE
WRITEPDFINFORMATION
ENCRYPTPDF
ADDBLANKPAGE
CPDFAUTHOR
_STAT
HPDF_SETINFOATTR
PDFHANDLE
CPDFTITLE
CPDFSUBJECT
CPDFKEYWORDS
CPDFCREATOR
HPDF_New
libhpdf.dll
HPDF_Free
libhpdf.dll
HPDF_SaveToFile
libhpdf.dll
HPDF_SetPageMode
libhpdf.dll
HPDF_AddPage
libhpdf.dll
HPDF_Page_SetWidth
libhpdf.dll
HPDF_Page_SetHeight
libhpdf.dll
HPDF_LoadJpegImageFromFile
libhpdf.dll
HPDF_LoadPngImageFromFile
libhpdf.dll
HPDF_SetInfoAttr
libhpdf.dll
HPDF_SetPassword
libhpdf.dll
HPDF_SetPermission
libhpdf.dll
HPDF_SetEncryptionMode
libhpdf.dll
HPDF_SetCompressionMode
libhpdf.dll
HPDF_Page_Concat
libhpdf.dll
HPDF_Page_DrawImage
libhpdf.dll
HPDF_GetError
libhpdf.dll
HPDF_ResetError
libhpdf.dll
HPDF_NEW
LIBHPDF
HPDF_FREE
HPDF_SAVETOFILE
HPDF_SETPAGEMODE
HPDF_ADDPAGE
HPDF_PAGE_SETWIDTH
HPDF_PAGE_SETHEIGHT
HPDF_LOADJPEGIMAGEFROMFILE
HPDF_LOADPNGIMAGEFROMFILE
HPDF_SETINFOATTR
HPDF_SETPASSWORD
HPDF_SETPERMISSION
HPDF_SETENCRYPTIONMODE
HPDF_SETCOMPRESSIONMODE
HPDF_PAGE_CONCAT
HPDF_PAGE_DRAWIMAGE
HPDF_GETERROR
HPDF_RESETERROR&
REPORTLISTENER
Report Listener could not be accessed
%  -
TEMP5
Internal error loading the page image file from the report.
Error
100%  - CCC
TOLISTENER
TNWIDTH
TNHEIGHT
LLSHOWTHERM
THIS
QUIETMODE
LOBJTYPEMODE
LNSECS
DOFOXYTHERM
_GOHELPER
_INITSTATUSTEXT
LDEFAULTMODE
NPAGEWIDTH
NPAGEHEIGHT
BEFOREREPORT
STARTPDFDOCUMENT
LNPAGECOUNT
LNFILETYPE
LNDEVICETYPE
LNPAGENO
LCFILE
LNHANDLE
LNPERCENT
LNLASTPERCENT
LNDELAY
PAGETOTAL
_SECONDSTEXT
_RUNSTATUSTEXT
NCURRENTPAGE
ADDBLANKPAGE
OUTPUTPAGE
HPDF_LOADPNGIMAGEFROMFILE
PDFHANDLE
_STAT
HPDF_PAGE_DRAWIMAGE
OPAGE
OIMAGESCOLLECTION
AFTERREPORT
UNLOADREPORT]
LOBJTYPEMODE
OFOXYPREVIEWER
COMMANDCLAUSES
LOPENVIEWER
PREVIEW
TOFILE
CTARGETFILENAME
CDESTFILE
LCDESTFILE
COUTPUTPATH
LCFILE
_REPORTLISTENER
CANCELREPORT
QUIETMODE
LQUIETMODE
LCANPRINT
LPDFCANPRINT
LCANEDIT
LPDFCANEDIT
LCANCOPY
LPDFCANCOPY
LCANADDNOTES
LPDFCANADDNOTES
LENCRYPTDOCUMENT
LPDFENCRYPTDOCUMENT
CMASTERPASSWORD
CPDFMASTERPASSWORD
CUSERPASSWORD
CPDFUSERPASSWORD
CPDFAUTHOR
CPDFTITLE
CPDFSUBJECT
CPDFKEYWORDS
CPDFCREATOR
LNPGMODE
NPDFPAGEMODE
NPAGEMODE
LDEFAULTMODEM
PDFx error in CC
Error code :
Description:
Page:
Press 'Retry' to debug the application.
Error
PDFx error in CC
Error code  :
Description :
Object:
Error
TNSTATUS
_STAT
LNHPDF_ERR
LCHEX
HPDF_GETERROR
PDFHANDLE
HPDF_RESETERROR
LSHOWERRORS
STARTMODE
LNOPTION
_ERRORINFO
NCURRENTPAGE
COBJECTTORENDERC
HPDF_ARRAY_COUNT_ERR
HPDF_ARRAY_ITEM_NOT_FOUND
HPDF_ARRAY_ITEM_UNEXPECTED_TYPE
HPDF_BINARY_LENGTH_ERR
HPDF_CANNOT_GET_PALLET
HPDF_DICT_COUNT_ERR
HPDF_DICT_ITEM_NOT_FOUND
HPDF_DICT_ITEM_UNEXPECTED_TYPE
HPDF_DICT_STREAM_LENGTH_NOT_FOUND
HPDF_DOC_ENCRYPTDICT_NOT_FOUND
HPDF_DOC_INVALID_OBJECT
HPDF_DUPLICATE_REGISTRATION
HPDF_EXCEED_JWW_CODE_NUM_LIMIT
HPDF_ENCRYPT_INVALID_PASSWORD
HPDF_ERR_UNKNOWN_CLASS
HPDF_EXCEED_GSTATE_LIMIT
HPDF_FAILD_TO_ALLOC_MEM
HPDF_FILE_IO_ERROR
HPDF_FILE_OPEN_ERROR
HPDF_FONT_EXISTS
HPDF_FONT_INVALID_WIDTHS_TABLE
HPDF_INVALID_AFM_HEADER
HPDF_INVALID_ANNOTATION
HPDF_INVALID_BIT_PER_COMPONENT
HPDF_INVALID_CHAR_MATRICS_DATA
HPDF_INVALID_COLOR_SPACE
HPDF_INVALID_COMPRESSION_MODE
HPDF_INVALID_DATE_TIME
HPDF_INVALID_DESTINATION
HPDF_INVALID_DOCUMENT
HPDF_INVALID_DOCUMENT_STATE
HPDF_INVALID_ENCODER
HPDF_INVALID_ENCODER_TYPE
HPDF_INVALID_ENCODING_NAME
HPDF_INVALID_ENCRYPT_KEY_LEN
HPDF_INVALID_FONTDEF_DATA
HPDF_INVALID_FONTDEF_TYPE
HPDF_INVALID_FONT_NAME
HPDF_INVALID_IMAGE
HPDF_INVALID_JPEG_DATA
HPDF_INVALID_N_DATA
HPDF_INVALID_OBJECT
HPDF_INVALID_OBJ_ID
HPDF_INVALID_OPERATION
HPDF_INVALID_OUTLINE
HPDF_INVALID_PAGE
HPDF_INVALID_PAGES
HPDF_INVALID_PARAMETER
HPDF_INVALID_PNG_IMAGE
HPDF_INVALID_STREAM
HPDF_MISSING_FILE_NAME_ENTRY
HPDF_INVALID_TTC_FILE
HPDF_INVALID_TTC_INDEX
HPDF_INVALID_WX_DATA
HPDF_ITEM_NOT_FOUND
HPDF_LIBPNG_ERROR
HPDF_NAME_INVALID_VALUE
HPDF_NAME_OUT_OF_RANGE
HPDF_PAGE_INVALID_PARAM_COUNT
HPDF_PAGES_MISSING_KIDS_ENTRY
HPDF_PAGE_CANNOT_FIND_OBJECT
HPDF_PAGE_CANNOT_GET_ROOT_PAGES
HPDF_PAGE_CANNOT_RESTORE_GSTATE
HPDF_PAGE_CANNOT_SET_PARENT
HPDF_PAGE_FONT_NOT_FOUND
HPDF_PAGE_INVALID_FONT
HPDF_PAGE_INVALID_FONT_SIZE
HPDF_PAGE_INVALID_GMODE
HPDF_PAGE_INVALID_INDEX
HPDF_PAGE_INVALID_ROTATE_VALUE
HPDF_PAGE_INVALID_SIZE
HPDF_PAGE_INVALID_XOBJECT
HPDF_PAGE_OUT_OF_RANGE
HPDF_REAL_OUT_OF_RANGE
HPDF_STREAM_EOF
HPDF_STREAM_READLN_CONTINUE
HPDF_STRING_OUT_OF_RANGE
HPDF_THIS_FUNC_WAS_SKIPPED
HPDF_TTF_CANNOT_EMBEDDING_FONT
HPDF_TTF_INVALID_CMAP
HPDF_TTF_INVALID_FOMAT
HPDF_TTF_MISSING_TABLE
HPDF_UNSUPPORTED_FONT_TYPE
HPDF_UNSUPPORTED_FUNC
HPDF_UNSUPPORTED_JPEG_FORMAT
HPDF_UNSUPPORTED_TYPE1_FONT
HPDF_XREF_COUNT_ERR
HPDF_ZLIB_ERROR
HPDF_INVALID_PAGE_INDEX
HPDF_INVALID_URI
HPDF_PAGE_LAYOUT_OUT_OF_RANGE
HPDF_PAGE_MODE_OUT_OF_RANGE
HPDF_PAGE_NUM_STYLE_OUT_OF_RANGE
HPDF_ANNOT_INVALID_ICON
HPDF_ANNOT_INVALID_BORDER_STYLE
HPDF_PAGE_INVALID_DIRECTION
HPDF_INVALID_FONT
HPDF_PAGE_INSUFFICIENT_SPACE
HPDF_PAGE_INVALID_DISPLAY_TIME
HPDF_PAGE_INVALID_TRANSITION_TIME
HPDF_INVALID_PAGE_SLIDESHOW_TYPE
HPDF_EXT_GSTATE_OUT_OF_RANGE
HPDF_INVALID_EXT_GSTATE
HPDF_EXT_GSTATE_READ_ONLY
Unknown Error
TNSTATUS
UPDATEPROPERTIES
Collection
OIMAGESCOLLECTION
STRING
LDEFAULTMODE
WAITFORNEXTREPORT
OIMAGESCOLLECTION
LCITEM
LOEXC
LDEFAULTMODE
LOBJTYPEMODE
OUTPUTFROMDATA
GETPAGEWIDTH
GETPAGEHEIGHT
WAITFORNEXTREPORT
OFOXYPREVIEWER
CDESTFILE
CTARGETFILENAME
LCFILE
_STAT
HPDF_FREE
PDFHANDLE
HPDF_SAVETOFILE
LOPENVIEWER
SHELLEXEC
NPGCOUNTERn
INTEGER
STRING
TEMP5
NPAGENO
EDEVICE
NDEVICETYPE
NLEFT
NWIDTH
NHEIGHT
NCLIPLEFT
NCLIPTOP
NCLIPWIDTH
NCLIPHEIGHT
LNHANDLE
LCFILE
STARTPDFDOCUMENT
ADDBLANKPAGE
OUTPUTPAGE
HPDF_LOADPNGIMAGEFROMFILE
PDFHANDLE
_STAT
HPDF_PAGE_DRAWIMAGE
OPAGE
GETPAGEWIDTH
GETPAGEHEIGHT
OIMAGESCOLLECTION
THIS
CLEARDLLS
addblankpage,
cleardlls
encryptpdf0
startpdfdocument
writepdfinformation
declaredll@
outputfromdata
updateproperties
_stat_assignP
_errorinfoC
LoadReport
BeforeReport
UnloadReport
AfterReport
OutputPage
Destroy,?
reportlistener
pr_reportlistener.vcx
tnHKeyb
RegQueryValueEx
Win32APIQ
RegQueryString
TNHKEY
TCSUBKEY
TCENTRY
LNREGHANDLE
LNRESULT
LNSIZE
LCDATABUFFER
TNTYPE
REGOPENKEY
REGQUERYVALUEEX
WIN32API
REGQUERYSTRING
LNTYPE
REGCLOSEKEYI
tnHKeyb
RegQueryValueEx
Win32APIQ
RegQueryInt
TNHKEY
TCSUBKEY
TCENTRY
LNREGHANDLE
LNRESULT
LNSIZE
LCDATABUFFER
TNTYPE
REGOPENKEY
REGQUERYVALUEEX
WIN32API
REGQUERYINT
LNDATABUFFER
REGCLOSEKEY
tnHKeyb
RegSetValueEx
Win32API
TNHKEY
TCSUBKEY
TCENTRY
TCVALUE
TLCREATE
LNREGHANDLE
LNRESULT
LNSIZE
LCDATABUFFER
TNTYPE
REGOPENKEY
REGCREATEKEY
REGSETVALUEEX
WIN32API
REGDELETEVALUE
REGCLOSEKEY
tnHKeyb
RegSetValueEx
Win32API
TNHKEY
TCSUBKEY
TCENTRY
TNVALUE
TLCREATE
LNREGHANDLE
LNRESULT
LNSIZE
LCDATABUFFER
TNTYPE
REGOPENKEY
REGCREATEKEY
REGSETVALUEEX
WIN32API
REGDELETEVALUE
REGCLOSEKEY
tnHKeyb
tnLengthb
RegSetValueEx
Win32API
TNHKEY
TCSUBKEY
TCENTRY
TCVALUE
TNLENGTH
TLCREATE
LNREGHANDLE
LNRESULT
LNSIZE
LCDATABUFFER
TNTYPE
REGOPENKEY
REGCREATEKEY
REGSETVALUEEX
WIN32API
REGDELETEVALUE
REGCLOSEKEY
tnHKeyb
TNHKEY
TCSUBKEY
LNRESULT
LNREGHANDLE
REGOPENKEY
REGDELETEKEY
REGCLOSEKEY
RegEnumKey
WIN32API
TNHKEY
TCSUBKEY
TNINDEX
LCSUBKEY
LCRETURN
LNRESULT
LCDATABUFFER
LNREGHANDLE
REGOPENKEY
REGENUMKEY
WIN32API
LNSIZE
LNRETURN
REGCLOSEKEYp
tnTypeb
RegEnumValue
Win32API
TNHKEY
TCSUBKEY
TNINDEX
TNTYPE
LCSUBKEY
LCRETURN
LNRESULT
LCDATABUFFER
LNREGHANDLE
REGOPENKEY
REGENUMVALUE
WIN32API
TCVALUE
LNSIZE
LNVALSIZE
LNRETURN
REGCLOSEKEY
TAVALUES
TNHKEY
TCSUBKEY
LCKEY
LNTYPE
THIS
ENUMVALUE
LCVALUE
OREGISTRY
READREGISTRYSTRING
LNVALUE
READREGISTRYINT
TAKEYS
TNHKEY
TCSUBKEY
LCKEY
LNTYPE
ENUMKEY
SOFTWARE\West Wind Technologies
SOFTWARE\West Wind Technologies\WebConnection
CurrentVersion
1.45a
SOFTWARE\West Wind Technologies\WebConnection
Timeout
SOFTWARE\West Wind Technologies\WebConnection
CurrentVersion
SOFTWARE\West Wind Technologies\WebConnection
Timeout
OREGISTRY
WRITEREGISTRYSTRING
WRITEREGISTRYINT
READREGISTRYSTRING
READREGISTRYINT
RegOpenKey
Win32API
RegCreateKey
Win32API
RegCloseKey
Win32API
RegDeleteKey
Win32API
RegDeleteValue
Win32API
REGOPENKEY
WIN32API
REGCREATEKEY
REGCLOSEKEY
REGDELETEKEY
REGDELETEVALUE
readregistrystring,
readregistryintT
writeregistrystring@
writeregistryint
writeregistrybinary
deleteregistrykey
enumregistrykey
enumvalueg
getenumvalues
getenumkeys
examples
`)PROCEDURE addblankpage
WITH This
    LOCAL lnWidth, lnHeight
    IF This.lDefaultMode
        lnWidth  = .GetPageWidth()
        lnHeight = .GetPageHeight()
    ELSE
        lnWidth  = This.nPageWidth
        lnHeight = This.nPageHeight
    ENDIF
    .oPage=HPDF_AddPage(.pdfHandle) &&Add a New Page
    This._Stat = HPDF_Page_SetWidth(.oPage, (lnWidth/960)*72) &&Establish the Width of the page
    This._Stat = HPDF_Page_SetHeight(.oPage, (lnHeight/960)*72) &&Establish the Height of the page
ENDWITH
ENDPROC
PROCEDURE cleardlls
Clear Dlls "HPDF_New,HPDF_Free","HPDF_SaveToFile","HPDF_SetPageMode","HPDF_AddPage","HPDF_Page_SetWidth","HPDF_Page_SetHeight",;
"HPDF_LoadJpegImageFromFile","HPDF_SetInfoAttr","HPDF_SetPassword","HPDF_SetPermission","HPDF_SetEncryptionMode",;
"HPDF_SetCompressionMode","HPDF_Page_Concat","HPDF_Page_DrawImage","HPDF_LoadPngImageFromFile", "HPDF_GetError", "HPDF_ResetError"
ENDPROC
PROCEDURE encryptpdf
With This
    If .lEncryptDocument Then &&Protect the document with password
        If !Empty(.cMasterPassword) Then
            If .cMasterPassword!=.cUserPassword Then &&User Password and Master Password can't be the same
                This._Stat = HPDF_SetPassword(.pdfHandle, .cMasterPassword, .cUserPassword)
                Local lnPermit As Integer
                lnPermit=0
                &&Establish PDF files permissions
                If .lCanPrint Then
                    lnPermit = lnPermit + HPDF_ENABLE_PRINT
                EndIf
                If .lCanEdit Then
                    lnPermit = lnPermit + HPDF_ENABLE_EDIT_ALL
                EndIf
                If .lCanCopy Then
                    lnPermit = lnPermit + HPDF_ENABLE_COPY
                EndIf
                If .lCanAddNotes Then
                    lnPermit = lnPermit + HPDF_ENABLE_EDIT
                EndIf
                This._Stat = HPDF_SetPermission(This.pdfHandle, lnPermit)
                If .nEncriptionLevel!=5 Then
                    This._Stat = HPDF_SetEncryptionMode(.pdfHandle, HPDF_ENCRYPT_R3, .nEncriptionLevel)
                Else
                    This._Stat = HPDF_SetEncryptionMode(.pdfHandle, HPDF_ENCRYPT_R2, .nEncriptionLevel)
                EndIf
            EndIf
        EndIf
    EndIf
EndWith
ENDPROC
PROCEDURE startpdfdocument
This.DeclareDll()
With This
    .pdfHandle=HPDF_New(0, 0) &&Create a New Document
    IF .pdfHandle = 0
        * Check if the library HPDF.DLL is in the disk
        MESSAGEBOX("Could not load the library LIBHPDF.DLL ." + CHR(13) + ;
            "The process can't continue. Make sure that you have the PDF library available, and that FoxyPreviewer is installed in a folder that has READ/WRITE access.", 16, "Error")
        This.CancelReport()
        RETURN .F.
    ENDIF
    This._Stat = HPDF_SetCompressionMode(.pdfHandle, HPDF_COMP_ALL) &&Set Document Compression Method
    * KHentschel 2010-06-15
    * Added "nPageMode" property: how Document should be displayed HPDF_PAGE_MODE_USE_OUTLINE
    * HPDF_SetPageMode(.pdfHandle, HPDF_PAGE_MODE_USE_OUTLINE) &&Set the how Document should be displayed
    * Available possibilities:
    * #define    HPDF_PAGE_MODE_USE_NONE        0
    * #define    HPDF_PAGE_MODE_USE_OUTLINE        1
    * #define    HPDF_PAGE_MODE_USE_THUMBS        2
    * #define    HPDF_PAGE_MODE_FULL_SCREEN        3
    This._Stat = HPDF_SetPageMode(.pdfHandle, .nPageMode)
    .WritePdfInformation() &&Stablish PDF File Information
    .EncryptPdf()
    .AddBlankPage()
EndWith
ENDPROC
PROCEDURE writepdfinformation
With This
    If !Empty(.cPdfAuthor) Then
        This._Stat = HPDF_SetInfoAttr(.pdfHandle, HPDF_INFO_AUTHOR, .cPdfAuthor)
    EndIf
    If !Empty(.cPdfTitle) Then
        This._Stat = HPDF_SetInfoAttr(.pdfHandle, HPDF_INFO_TITLE, .cPdfTitle)
    EndIf
    If !Empty(.cPdfSubject) Then
        This._Stat = HPDF_SetInfoAttr(.pdfHandle, HPDF_INFO_SUBJECT, .cPdfSubject)
    EndIf
    If !Empty(.cPdfKeyWords) Then
        This._Stat = HPDF_SetInfoAttr(.pdfHandle, HPDF_INFO_KEYWORDS, .cPdfKeywords)
    EndIf
    If !Empty(.cPdfCreator) Then
        This._Stat = HPDF_SetInfoAttr(.pdfHandle, HPDF_INFO_CREATOR, .cPdfCreator)
    EndIf
EndWith
ENDPROC
PROCEDURE declaredll
*!*    * Check if the library HPDF.DLL is in the disk
*!*    LOCAL lcPDFFile
*!*    lcPDFFile = "libhpdf.dll"
*!*    IF EMPTY(SYS(2000,lcPDFFile))
*!*        MESSAGEBOX("Could not locate the library LIBHPDF.DLL ." + CHR(13) + ;
*!*                "The process can't continue. Make sure that you have the PDF library available, and that FoxyPreviewer is installed in a folder that has READ/WRITE access.", 16, "Error")
*!*        RETURN .F.
*!*    ENDIF
Declare Integer HPDF_New In libhpdf.dll Integer, Integer
Declare Integer HPDF_Free In libhpdf.dll Integer
Declare Integer HPDF_SaveToFile In libhpdf.dll Integer, String
Declare Integer HPDF_SetPageMode In libhpdf.dll Integer, Integer
Declare Integer HPDF_AddPage In libhpdf.dll Integer
Declare Integer HPDF_Page_SetWidth In libhpdf.dll Integer, Single
Declare Integer HPDF_Page_SetHeight In libhpdf.dll Integer, Single
Declare Integer HPDF_LoadJpegImageFromFile In libhpdf.dll Integer, String
Declare Integer HPDF_LoadPngImageFromFile In libhpdf.dll Integer, String
Declare Integer HPDF_SetInfoAttr In  libhpdf.dll Integer, Integer, String
Declare Integer HPDF_SetPassword In  libhpdf.dll Integer, String, String
Declare Integer HPDF_SetPermission In libhpdf.dll Integer, Integer
Declare Integer HPDF_SetEncryptionMode In libhpdf.dll Integer, Integer, Integer
Declare Integer HPDF_SetCompressionMode In libhpdf.dll Integer, Integer
Declare Integer HPDF_Page_Concat In libhpdf.dll Integer, Single, Single, Single, Single, Single, Single
Declare Integer HPDF_Page_DrawImage In libhpdf.dll Integer, Integer, Single, Single, Single, Single
Declare Integer HPDF_GetError In libhpdf.dll Integer
Declare Integer HPDF_ResetError In libhpdf.dll Integer
ENDPROC
PROCEDURE outputfromdata
LPARAMETERS toListener as ReportListener, tnWidth, tnHeight
LOCAL llShowTherm
llShowTherm = (This.QuietMode = .F.) AND (This.lObjTypeMode = .F.)
* =DoFoxyTherm(90, "Texto label", "Titulo")
* =DoFoxyTherm(-1, "Teste2", "Titulo") && Continuo
* =DoFoxyTherm() && Desliga
IF llShowTherm
    LOCAL lnSecs
    lnSecs = SECONDS()
    *!*    ._InitStatusText    = .GetLoc("INITSTATUS") + SPACE(1)
    *!*    ._RunStatusText     = .GetLoc("RUNSTATUS")  + SPACE(1)
    *!*    ._SecondsText       = .GetLoc("SECONDS")    + SPACE(1)
    =DoFoxyTherm(1, "0%", _goHelper._InitStatusText)
ENDIF
#DEFINE OutputJPEG     102
#DEFINE OutputPNG     104
This.lDefaultMode = .F.
This.nPageWidth   = tnWidth
This.nPageHeight  = tnHeight
IF VARTYPE(toListener) <> "O"
    ERROR "Report Listener could not be accessed"
    RETURN .F.
ENDIF
IF NOT This.lObjTypeMode
    This.BeforeReport()
ENDIF
This.StartPdfDocument()
LOCAL lnPageCount, lnFileType, lnDeviceType, lnPageNo, lcFile, lnDeviceType, lnHandle, lnPercent, lnLastPercent, lnDelay
lnDeviceType  = OutputPNG
lnPageCount   = toListener.PageTotal && _goHelper.nPageTotal && toListener.PageTotal
lnLastPercent = 0
lnDelay       = 5
FOR lnPageNo = 1 TO lnPageCount
    IF llShowTherm
        lnPercent = CEILING(100*lnPageNo/lnPageCount)
        IF (lnLastPercent > 0 AND ;
                lnPercent - lnLastPercent < lnDelay  AND ;
                lnPercent <> 100)
        ELSE
            =DoFoxyTherm(lnPercent, ;
                ALLTRIM(TRANSFORM(lnPercent)) + "%  - " + TRANSFORM(FLOOR(SECONDS() - lnSecs)) + " " + _goHelper._SecondsText , ;
                _goHelper._RunStatusText)
        ENDIF
    ENDIF
    This.nCurrentPage = lnPageNo
    IF lnPageNo > 1
        This.AddBlankPage()
    ENDIF
    lcFile = ADDBS(GETENV("TEMP")) + SYS(2015) + ".PNG"
    toListener.OutputPage(lnPageNo, lcFile, lnDeviceType)
*    lnHandle = HPDF_LoadJpegImageFromFile(This.pdfHandle, lcFile)
    lnHandle = HPDF_LoadPngImageFromFile(This.pdfHandle, lcFile)
    IF lnHandle = 0
        MESSAGEBOX("Internal error loading the page image file from the report.", 48, "Error")
        SET STEP ON
    ELSE
        This._Stat = HPDF_Page_DrawImage(This.oPage, lnHandle, 0, 0, (tnWidth/960)*72, (tnHeight/960)*72)
        This.oImagesCollection.Add(lcFile)
    ENDIF
ENDFOR
IF llShowTherm
    =DoFoxyTherm(100, ;
        "100%  - " + TRANSFORM(CEILING(SECONDS() - lnSecs)) + " " + _goHelper._SecondsText , ;
                _goHelper._RunStatusText)
ENDIF
IF NOT This.lObjTypeMode
    This.AfterReport()
    This.UnloadReport()
ENDIF
IF llShowTherm
    =DoFoxyTherm()
ENDIF
ENDPROC
PROCEDURE updateproperties
IF NOT This.lObjTypeMode OR (VARTYPE(_Screen.oFoxyPreviewer) <> "O")
    RETURN
ENDIF
LOCAL loFP
loFP = _Screen.oFoxyPreviewer
IF VARTYPE(This.CommandClauses) = "O"
    *!*    IF This.CommandClauses.Preview
    *!*        This.lOpenViewer = .T.
    *!*    ELSE
    *!*        This.lOpenViewer = NVL(loFP.lOpenViewer, .T.)
    *!*    ENDIF
    This.lOpenViewer = This.CommandClauses.Preview
    IF NOT EMPTY(This.CommandClauses.ToFile)
        This.cTargetFileName = This.CommandClauses.ToFile
    ELSE
        IF VARTYPE(_Screen.oFoxyPreviewer) = "O" AND ;
                NOT EMPTY(_Screen.oFoxyPreviewer.cDestFile) AND ;
                EMPTY(This.cTargetFileName)
            LOCAL lcDestFile
            lcDestFile = _Screen.oFoxyPreviewer.cDestFile
            IF NOT "\" $ lcDestFile
                lcDestFile = ALLTRIM(ADDBS(_Screen.oFoxyPreviewer.cOutputPath) + lcDestFile)
            ENDIF
            This.cTargetFileName = lcDestFile
        ELSE
            LOCAL lcFile
            lcFile = This.cTargetFileName
            IF EMPTY(lcFile)
                lcFile = PUTFILE("","","pdf")
            ENDIF
            IF EMPTY(lcFile)
                _ReportListener::CancelReport()
                * This.CancelReport()
                RETURN .F.
            ENDIF
            This.cTargetFileName = lcFile
        ENDIF
    ENDIF
ENDIF
This.QUIETMODE        = NVL(loFP.lQuietMode         , .F.)
*This.lEmbedFont       = NVL(loFP.lPDFEmbedFonts     , .T.)
This.lCanPrint        = NVL(loFP.lPDFCanPrint       , .T.)
This.lCanEdit         = NVL(loFP.lPDFCanEdit        , .T.)
This.lCanCopy         = NVL(loFP.lPDFCanCopy        , .T.)
This.lCanAddNotes     = NVL(loFP.lPDFCanAddNotes    , .T.)
This.lEncryptDocument = NVL(loFP.lPDFEncryptDocument, .T.)
This.cMasterPassword  = NVL(loFP.cPDFMasterPassword , "")
This.cUserPassword    = NVL(loFP.cPDFUserPassword   , "")
*This.lShowErrors      = NVL(loFP.lPDFShowErrors     , .F.)
*This.cSymbolFontsList = NVL(loFP.cPDFSymbolFontsList, "")
This.cPdfAuthor       = NVL(loFP.cPdfAuthor         , "")
This.cPdfTitle        = NVL(loFP.cPdfTitle          , "")
This.cPdfSubject      = NVL(loFP.cPdfSubject        , "")
This.cPdfKeyWords     = NVL(loFP.cPdfKeyWords       , "")
This.cPdfCreator      = NVL(loFP.cPdfCreator        , "")
*This.cDefaultFont     = NVL(loFP.cPDFDefaultFont    , "")
LOCAL lnPgMode
lnPgMode = MAX(NVL(loFP.nPDFPageMode, 0) - 1, 0)
lnPgMode = IIF(lnPgMode = 1, 2, lnPgMode)
This.nPageMode    = lnPgMode
This.lDefaultMode = .T.
This.QuietMode    = .T.
ENDPROC
PROCEDURE _stat_assign
LPARAMETERS tnStatus
This._Stat = tnStatus
IF tnStatus != 0
    * Clear existing the HPDF errors
    * Here we can see if an error occurred during the rendering process of the
    * current field
    LOCAL lnHPDF_err, lcHex
    lnHPDF_err = HPDF_GetError(This.pdfHandle)
    IF lnHPDF_err <> 0
        lcHex = TRANSFORM(lnHPDF_err, "@0")
        * SET STEP ON
        HPDF_ResetError(This.pdfHandle)
    ENDIF
    IF This.lShowErrors = .T. AND tnStatus > 1
        IF _VFP.StartMode = 0 && Development
            LOCAL lnOption
            lnOption = MESSAGEBOX("PDFx error in " + PROGRAM(PROGRAM(-1) - 1) + CHR(13);
                + "Error code : " + TRANSFORM(tnStatus) + CHR(13) ;
                + "Description: " + This._ErrorInfo(tnStatus) + CHR(13) ;
                + "Page: " + TRANSFORM(This.nCurrentPage) + CHR(13) ;
                + "Press 'Retry' to debug the application.", 16 + 2, "Error")
            IF lnOption = 3
                CANCEL
            ENDIF
            IF lnOption = 4
                SUSPEND
            ENDIF
        ELSE
            MESSAGEBOX("PDFx error in " + PROGRAM(PROGRAM(-1) - 1) + CHR(13);
                + "Error code  : " + TRANSFORM(tnStatus) + CHR(13) ;
                + "Description : " + This._ErrorInfo(tnStatus) + CHR(13) ;
                + "Object: " + This.cObjectToRender, 16, "Error")
        ENDIF
    ENDIF
ENDIF
ENDPROC
PROCEDURE _errorinfo
LPARAMETERS tnStatus
DO CASE
    CASE tnStatus = 0x1001
        RETURN "HPDF_ARRAY_COUNT_ERR                      "    &&  0x1001
    CASE tnStatus = 0x1002
        RETURN "HPDF_ARRAY_ITEM_NOT_FOUND                 "    &&  0x1002
    CASE tnStatus = 0x1003
        RETURN "HPDF_ARRAY_ITEM_UNEXPECTED_TYPE           "    &&  0x1003
    CASE tnStatus = 0x1004
        RETURN "HPDF_BINARY_LENGTH_ERR                    "    &&  0x1004
    CASE tnStatus = 0x1005
        RETURN "HPDF_CANNOT_GET_PALLET                    "    &&  0x1005
    CASE tnStatus = 0x1007
        RETURN "HPDF_DICT_COUNT_ERR                       "    &&  0x1007
    CASE tnStatus = 0x1008
        RETURN "HPDF_DICT_ITEM_NOT_FOUND                  "    &&  0x1008
    CASE tnStatus = 0x1009
        RETURN "HPDF_DICT_ITEM_UNEXPECTED_TYPE            "    &&  0x1009
    CASE tnStatus = 0x100A
        RETURN "HPDF_DICT_STREAM_LENGTH_NOT_FOUND         "    &&  0x100A
    CASE tnStatus = 0x100B
        RETURN "HPDF_DOC_ENCRYPTDICT_NOT_FOUND            "    &&  0x100B
    CASE tnStatus = 0x100C
        RETURN "HPDF_DOC_INVALID_OBJECT                   "    &&  0x100C
    CASE tnStatus = 0x100E
        RETURN "HPDF_DUPLICATE_REGISTRATION               "    &&  0x100E
    CASE tnStatus = 0x100F
        RETURN "HPDF_EXCEED_JWW_CODE_NUM_LIMIT            "    &&  0x100F
    CASE tnStatus = 0x10011
        RETURN "HPDF_ENCRYPT_INVALID_PASSWORD             "    &&  0x1011
    CASE tnStatus = 0x1013
        RETURN "HPDF_ERR_UNKNOWN_CLASS                    "    &&  0x1013
    CASE tnStatus = 0x1014
        RETURN "HPDF_EXCEED_GSTATE_LIMIT                  "    &&  0x1014
    CASE tnStatus = 0x1015
        RETURN "HPDF_FAILD_TO_ALLOC_MEM                   "    &&  0x1015
    CASE tnStatus = 0x1016
        RETURN "HPDF_FILE_IO_ERROR                        "    &&  0x1016
    CASE tnStatus = 0x1017
        RETURN "HPDF_FILE_OPEN_ERROR                      "    &&  0x1017
    CASE tnStatus = 0x1019
        RETURN "HPDF_FONT_EXISTS                          "    &&  0x1019
    CASE tnStatus = 0x101A
        RETURN "HPDF_FONT_INVALID_WIDTHS_TABLE            "    &&  0x101A
    CASE tnStatus = 0x101B
        RETURN "HPDF_INVALID_AFM_HEADER                   "    &&  0x101B
    CASE tnStatus = 0x101C
        RETURN "HPDF_INVALID_ANNOTATION                   "    &&  0x101C
    CASE tnStatus = 0x101E
        RETURN "HPDF_INVALID_BIT_PER_COMPONENT            "    &&  0x101E
    CASE tnStatus = 0x101F
        RETURN "HPDF_INVALID_CHAR_MATRICS_DATA            "    &&  0x101F
    CASE tnStatus = 0x1020
        RETURN "HPDF_INVALID_COLOR_SPACE                  "    &&  0x1020
    CASE tnStatus = 0x1021
        RETURN "HPDF_INVALID_COMPRESSION_MODE             "    &&  0x1021
    CASE tnStatus = 0x1022
        RETURN "HPDF_INVALID_DATE_TIME                    "    &&  0x1022
    CASE tnStatus = 0x1023
        RETURN "HPDF_INVALID_DESTINATION                  "    &&  0x1023
    CASE tnStatus = 0x1025
        RETURN "HPDF_INVALID_DOCUMENT                     "    &&  0x1025
    CASE tnStatus = 0x1026
        RETURN "HPDF_INVALID_DOCUMENT_STATE               "    &&  0x1026
    CASE tnStatus = 0x1027
        RETURN "HPDF_INVALID_ENCODER                      "    &&  0x1027
    CASE tnStatus = 0x1028
        RETURN "HPDF_INVALID_ENCODER_TYPE                 "    &&  0x1028
    CASE tnStatus = 0x102B
        RETURN "HPDF_INVALID_ENCODING_NAME                "    &&  0x102B
    CASE tnStatus = 0x102C
        RETURN "HPDF_INVALID_ENCRYPT_KEY_LEN              "    &&  0x102C
    CASE tnStatus = 0x102D
        RETURN "HPDF_INVALID_FONTDEF_DATA                 "    &&  0x102D
    CASE tnStatus = 0x102E
        RETURN "HPDF_INVALID_FONTDEF_TYPE                 "    &&  0x102E
    CASE tnStatus = 0x102F
        RETURN "HPDF_INVALID_FONT_NAME                    "    &&  0x102F
    CASE tnStatus = 0x1030
        RETURN "HPDF_INVALID_IMAGE                        "    &&  0x1030
    CASE tnStatus = 0x1031
        RETURN "HPDF_INVALID_JPEG_DATA                    "    &&  0x1031
    CASE tnStatus = 0x1032
        RETURN "HPDF_INVALID_N_DATA                       "    &&  0x1032
    CASE tnStatus = 0x1033
        RETURN "HPDF_INVALID_OBJECT                       "    &&  0x1033
    CASE tnStatus = 0x1034
        RETURN "HPDF_INVALID_OBJ_ID                       "    &&  0x1034
    CASE tnStatus = 0x1035
        RETURN "HPDF_INVALID_OPERATION                    "    &&  0x1035
    CASE tnStatus = 0x1036
        RETURN "HPDF_INVALID_OUTLINE                      "    &&  0x1036
    CASE tnStatus = 0x1037
        RETURN "HPDF_INVALID_PAGE                         "    &&  0x1037
    CASE tnStatus = 0x1038
        RETURN "HPDF_INVALID_PAGES                        "    &&  0x1038
    CASE tnStatus = 0x1039
        RETURN "HPDF_INVALID_PARAMETER                    "    &&  0x1039
    CASE tnStatus = 0x103B
        RETURN "HPDF_INVALID_PNG_IMAGE                    "    &&  0x103B
    CASE tnStatus = 0x103C
        RETURN "HPDF_INVALID_STREAM                       "    &&  0x103C
    CASE tnStatus = 0x103D
        RETURN "HPDF_MISSING_FILE_NAME_ENTRY              "    &&  0x103D
    CASE tnStatus = 0x103F
        RETURN "HPDF_INVALID_TTC_FILE                     "    &&  0x103F
    CASE tnStatus = 0x1040
        RETURN "HPDF_INVALID_TTC_INDEX                    "    &&  0x1040
    CASE tnStatus = 0x1041
        RETURN "HPDF_INVALID_WX_DATA                      "    &&  0x1041
    CASE tnStatus = 0x1042
        RETURN "HPDF_ITEM_NOT_FOUND                       "    &&  0x1042
    CASE tnStatus = 0x1043
        RETURN "HPDF_LIBPNG_ERROR                         "    &&  0x1043
    CASE tnStatus = 0x1044
        RETURN "HPDF_NAME_INVALID_VALUE                   "    &&  0x1044
    CASE tnStatus = 0x1045
        RETURN "HPDF_NAME_OUT_OF_RANGE                    "    &&  0x1045
    CASE tnStatus = 0x1048
        RETURN "HPDF_PAGE_INVALID_PARAM_COUNT             "    &&  0x1048
    CASE tnStatus = 0x1049
        RETURN "HPDF_PAGES_MISSING_KIDS_ENTRY             "    &&  0x1049
    CASE tnStatus = 0x104A
        RETURN "HPDF_PAGE_CANNOT_FIND_OBJECT              "    &&  0x104A
    CASE tnStatus = 0x104B
        RETURN "HPDF_PAGE_CANNOT_GET_ROOT_PAGES           "    &&  0x104B
    CASE tnStatus = 0x104C
        RETURN "HPDF_PAGE_CANNOT_RESTORE_GSTATE           "    &&  0x104C
    CASE tnStatus = 0x104D
        RETURN "HPDF_PAGE_CANNOT_SET_PARENT               "    &&  0x104D
    CASE tnStatus = 0x104E
        RETURN "HPDF_PAGE_FONT_NOT_FOUND                  "    &&  0x104E
    CASE tnStatus = 0x104F
        RETURN "HPDF_PAGE_INVALID_FONT                    "    &&  0x104F
    CASE tnStatus = 0x1050
        RETURN "HPDF_PAGE_INVALID_FONT_SIZE               "    &&  0x1050
    CASE tnStatus = 0x1051
        RETURN "HPDF_PAGE_INVALID_GMODE                   "    &&  0x1051
    CASE tnStatus = 0x1052
        RETURN "HPDF_PAGE_INVALID_INDEX                   "    &&  0x1052
    CASE tnStatus = 0x1053
        RETURN "HPDF_PAGE_INVALID_ROTATE_VALUE            "    &&  0x1053
    CASE tnStatus = 0x1054
        RETURN "HPDF_PAGE_INVALID_SIZE                    "    &&  0x1054
    CASE tnStatus = 0x1055
        RETURN "HPDF_PAGE_INVALID_XOBJECT                 "    &&  0x1055
    CASE tnStatus = 0x1056
        RETURN "HPDF_PAGE_OUT_OF_RANGE                    "    &&  0x1056
    CASE tnStatus = 0x1057
        RETURN "HPDF_REAL_OUT_OF_RANGE                    "    &&  0x1057
    CASE tnStatus = 0x1058
        RETURN "HPDF_STREAM_EOF                           "    &&  0x1058
    CASE tnStatus = 0x1059
        RETURN "HPDF_STREAM_READLN_CONTINUE               "    &&  0x1059
    CASE tnStatus = 0x105B
        RETURN "HPDF_STRING_OUT_OF_RANGE                  "    &&  0x105B
    CASE tnStatus = 0x105C
        RETURN "HPDF_THIS_FUNC_WAS_SKIPPED                "    &&  0x105C
    CASE tnStatus = 0x105D
        RETURN "HPDF_TTF_CANNOT_EMBEDDING_FONT            "    &&  0x105D
    CASE tnStatus = 0x105E
        RETURN "HPDF_TTF_INVALID_CMAP                     "    &&  0x105E
    CASE tnStatus = 0x105F
        RETURN "HPDF_TTF_INVALID_FOMAT                    "    &&  0x105F
    CASE tnStatus = 0x1060
        RETURN "HPDF_TTF_MISSING_TABLE                    "    &&  0x1060
    CASE tnStatus = 0x1061
        RETURN "HPDF_UNSUPPORTED_FONT_TYPE                "    &&  0x1061
    CASE tnStatus = 0x1062
        RETURN "HPDF_UNSUPPORTED_FUNC                     "    &&  0x1062
    CASE tnStatus = 0x1063
        RETURN "HPDF_UNSUPPORTED_JPEG_FORMAT              "    &&  0x1063
    CASE tnStatus = 0x1064
        RETURN "HPDF_UNSUPPORTED_TYPE1_FONT               "    &&  0x1064
    CASE tnStatus = 0x1065
        RETURN "HPDF_XREF_COUNT_ERR                       "    &&  0x1065
    CASE tnStatus = 0x1066
        RETURN "HPDF_ZLIB_ERROR                           "    &&  0x1066
    CASE tnStatus = 0x1067
        RETURN "HPDF_INVALID_PAGE_INDEX                   "    &&  0x1067
    CASE tnStatus = 0x1068
        RETURN "HPDF_INVALID_URI                          "    &&  0x1068
    CASE tnStatus = 0x1069
        RETURN "HPDF_PAGE_LAYOUT_OUT_OF_RANGE             "    &&  0x1069
    CASE tnStatus = 0x1070
        RETURN "HPDF_PAGE_MODE_OUT_OF_RANGE               "    &&  0x1070
    CASE tnStatus = 0x1071
        RETURN "HPDF_PAGE_NUM_STYLE_OUT_OF_RANGE          "    &&  0x1071
    CASE tnStatus = 0x1072
        RETURN "HPDF_ANNOT_INVALID_ICON                   "    &&  0x1072
    CASE tnStatus = 0x1073
        RETURN "HPDF_ANNOT_INVALID_BORDER_STYLE           "    &&  0x1073
    CASE tnStatus = 0x1074
        RETURN "HPDF_PAGE_INVALID_DIRECTION               "    &&  0x1074
    CASE tnStatus = 0x1075
        RETURN "HPDF_INVALID_FONT                         "    &&  0x1075
    CASE tnStatus = 0x1076
        RETURN "HPDF_PAGE_INSUFFICIENT_SPACE              "    &&  0x1076
    CASE tnStatus = 0x1077
        RETURN "HPDF_PAGE_INVALID_DISPLAY_TIME            "    &&  0x1077
    CASE tnStatus = 0x1078
        RETURN "HPDF_PAGE_INVALID_TRANSITION_TIME         "    &&  0x1078
    CASE tnStatus = 0x1079
        RETURN "HPDF_INVALID_PAGE_SLIDESHOW_TYPE          "    &&  0x1079
    CASE tnStatus = 0x1080
        RETURN "HPDF_EXT_GSTATE_OUT_OF_RANGE              "    &&  0x1080
    CASE tnStatus = 0x1081
        RETURN "HPDF_INVALID_EXT_GSTATE                   "    &&  0x1081
    CASE tnStatus = 0x1082
        RETURN "HPDF_EXT_GSTATE_READ_ONLY                 "    &&  0x1082
    OTHERWISE
        RETURN "Unknown Error"
ENDCASE
ENDPROC
PROCEDURE LoadReport
This.UpdateProperties()
DODEFAULT()
ENDPROC
PROCEDURE BeforeReport
This.oImagesCollection=CreateObject("Collection")
ENDPROC
PROCEDURE UnloadReport
IF This.lDefaultMode
    DODEFAULT()
ENDIF
With This
    * CChalom 2010-01-20
    * Added "WaitForNextReport" property in order to allow merging reports
    * If another report is expected to come, don't close the objects and handles
    IF Not .WaitForNextReport
        If Vartype(.oImagesCollection)="O" Then &&Cleanup Temporary Images Files
            Local lcItem As String
            For Each lcItem In .oImagesCollection FOXOBJECT
                TRY
                    Delete File (lcItem)
                CATCH TO loexc
                    SET STEP ON
                ENDTRY
            EndFor
            .oImagesCollection=Null
        EndIf
    ENDIF
ENDWITH
ENDPROC
PROCEDURE AfterReport
IF This.lDefaultMode
    DODEFAULT()
ENDIF
IF This.lObjTypeMode
    This.OutputFromData(This, This.GetPageWidth(), This.GetPageHeight())
ENDIF
WITH This
    IF NOT .WaitForNextReport
        IF This.lObjTypeMode AND VARTYPE(_Screen.oFoxyPreviewer) = "O" AND ;
                NOT EMPTY(_Screen.oFoxyPreviewer.cDestFile)
            This.cTargetFileName = _Screen.oFoxyPreviewer.cDestFile
        ENDIF
        LOCAL lcFile
        lcFile = This.cTargetFileName
        IF EMPTY(lcFile)
            lcFile = PUTFILE("","","pdf")
        ENDIF
        IF EMPTY(lcFile)
            This._Stat = HPDF_Free(.pdfHandle)
            RETURN
        ELSE
            This._Stat = HPDF_SaveToFile(.pdfHandle, lcFile)
            This._Stat = HPDF_Free(.pdfHandle)
            If .lOpenViewer Then
                .ShellExec(lcFile)
            EndIf
        ENDIF
    ENDIF
    * Reset the report page counter
    This.nPgCounter = 0
ENDWITH
ENDPROC
PROCEDURE OutputPage
Lparameters nPageNo, eDevice, nDeviceType, nLeft, nTop, nWidth, nHeight, nClipLeft, nClipTop, nClipWidth, nClipHeight
#Define OutputNothing -1
#Define OutputTIFF 101
#Define OutputTIFFAdditive (OutputTIFF+100)
#Define OutPutJPEG 102
#Define OutPutPNG  104
#Define COULDNTCREATE "Could Not Create PDF Document"
Local lnHandle As Integer, lcFile As String
With This
    If (nDeviceType == OutputNothing) Then
        If nPageNo == 1 Then
            * nDeviceType = OutputJPEG && Start JPEG Generation Process
            nDeviceType = OutputPNG && Start PNG Generation Process
            .StartPdfDocument()
        Else
            .AddBlankPage()
            * nDeviceType = OutputJPEG && Start JPEG Generation Process
            nDeviceType = OutputPNG && Start PNG Generation Process
        EndIf
        * lcFile=GetEnv("TEMP")+"\"+Sys(2015)+".Jpg"
        lcFile=GetEnv("TEMP")+"\"+Sys(2015)+".Png"
        .OutputPage(nPageNo, lcFile, nDeviceType)
        * lnHandle=LoadJpegImageFromFile(.pdfHandle, lcFile)
        lnHandle=HPDF_LoadPNGImageFromFile(.pdfHandle, lcFile)
        This._Stat = HPDF_Page_DrawImage(.oPage, lnHandle, 0, 0, (.GetPageWidth()/960)*72, (.GetPageHeight()/960)*72)
        .oImagesCollection.Add(lcFile)
        NoDefault
    EndIf
EndWith
ENDPROC
PROCEDURE Destroy
This.ClearDLLS()
DODEFAULT()
ENDPROC
EHeight = 23
Width = 23
ListenerType = 2
FRXDataSession = -1
pdfhandle = 0
pageheight = 0
pagewidth = 0
encryptdocument = .F.
oprogress = .F.
oregistry = .F.
mergedocument = .F.
mergedocumentname =
opage = .NULL.
oimagescollection = .NULL.
cpdfauthor =
cuserpassword =
lencryptdocument = .F.
nencryptionlevel = 5
npageheight = 0
lcanedit = .F.
lcancopy = .T.
lcanaddnotes = .F.
lcanprint = .T.
lopenviewer = .F.
cmasterpassword =
ctargetfilename =
cpdfcreator =
cpdfkeywords =
cpdfsubject =
cpdftitle =
waitfornextreport = .F.
npgcounter = 0
npagemode = 0
lextended = .T.
ldefaultmode = .F.
npagewidth = 0
lobjtypemode = .F.
_stat = 0
lshowerrors = .T.
ncurrentpage = 0
_memberdata =
    3133<VFPData><memberdata name="pdfhandle" type="property" display="PdfHandle"/><memberdata name="pageheight" type="property" display="PageHeight"/><memberdata name="pagewidth" type="property" display="PageWidth"/><memberdata name="encryptdocument" type="property" display="EncryptDocument"/><memberdata name="oprogress" type="property" display="oProgress"/><memberdata name="oregistry" type="property" display="oRegistry"/><memberdata name="mergedocument" type="property" display="MergeDocument"/><memberdata name="mergedocumentname" type="property" display="MergeDocumentName"/><memberdata name="opage" type="property" display="oPage"/><memberdata name="oimagescollection" type="property" display="oImagesCollection"/><memberdata name="cpdfauthor" type="property" display="cPdfAuthor"/><memberdata name="cuserpassword" type="property" display="cUserPassword"/><memberdata name="lencryptdocument" type="property" display="lEncryptDocument"/><memberdata name="nencryptionlevel" type="property" display="nEncryptionLevel"/><memberdata name="addblankpage" type="method" display="AddBlankPage"/><memberdata name="npageheight" type="property" display="nPageHeight"/><memberdata name="lcanedit" type="property" display="lCanEdit"/><memberdata name="lcancopy" type="property" display="lCanCopy"/><memberdata name="lcanaddnotes" type="property" display="lCanAddNotes"/><memberdata name="lcanprint" type="property" display="lCanPrint"/><memberdata name="cleardlls" type="method" display="ClearDLLS"/><memberdata name="encryptpdf" type="method" display="EncryptPdf"/><memberdata name="shellexec" type="method" display="ShellExec"/><memberdata name="startpdfdocument" type="method" display="StartPdfDocument"/><memberdata name="writepdfinformation" type="method" display="WritePdfInformation"/><memberdata name="lopenviewer" type="property" display="lOpenViewer"/><memberdata name="cmasterpassword" type="property" display="cMasterPassword"/><memberdata name="ctargetfilename" type="property" display="cTargetFileName"/><memberdata name="declaredll" type="method" display="DeclareDll"/><memberdata name="cpdfcreator" type="property" display="cPdfCreator"/><memberdata name="cpdfkeywords" type="property" display="cPdfKeyWords"/><memberdata name="cpdfsubject" type="property" display="cPdfSubject"/><memberdata name="cpdftitle" type="property" display="cPdfTitle"/><memberdata name="previewcontainer" type="property" display="PreviewContainer"/><memberdata name="npagemode" display="nPageMode"/><memberdata name="lextended" display="lExtended"/><memberdata name="makepdf" display="MakePDF"/><memberdata name="outputfromdata" display="OutputFromData"/><memberdata name="ldefaultmode" display="lDefaultMode"/><memberdata name="npagewidth" display="nPageWidth"/><memberdata name="lobjtypemode" display="lObjTypeMode"/><memberdata name="updateproperties" display="UpdateProperties"/><memberdata name="_stat" display="_Stat"/><memberdata name="_stat_assign" display="_Stat_Assign"/><memberdata name="lshowerrors" display="lShowErrors"/><memberdata name="_errorinfo" display="_ErrorInfo"/><memberdata name="ncurrentpage" display="nCurrentPage"/></VFPData>
Name = "pdfasimagelistener"
pdfhandle Handle to the PDF file to create by the DLL
nlastpageproccesed Number of the last page proccesed by the system
ndivisionfactor Factor to be used for the conversion between unit of measures
cpdfauthor Author of the Pdf File
cpdftitle Title of the PDF Document
cpdfsubject Subject of the PDF File
cpdfkeywords Keywords of the PDF Document
cpdfcreator Name of the Pdf Creator
lcanprint Property to know if user can print or can't print the document
lcancopy Property to know if user can copy the document contents
lcanedit Property to know if user can Edit the contents of the document
lcanaddnotes Property to know if the user can add or modify annotations
lencryptdocument Property to know if the document should be Encripted
cuserpassword User Password for the PDF document
cmasterpassword Master Password for the PDF document
nencriptionlevel A Value Between 5(40bit) and 16(128bit) can be specified for length of the key
opage Current Page object returned by the library
lstarted Property to know if the conversion procces has started
ctargetfilename Name of the PDF File to create
lopenviewer Flag to execute the default PDF reader of the pc
ofonts Fonts Collection used in the library
oregistry Property to store the Registry Object, this object will provide access to windows registry
npageheight Height of the page, used to invert the coordinate system of the pdf library
nspacesfortab Number of Spaces per TAB character
lembedfont Property to Know if the font is Embedded into the document, if .T. file size will increase
ccodepage Code Page to be used by the pdf listener when loading fonts
lunderline Property to know if the text being draw should use underline style
ctextstyle Internal to the Class
odynamics Property to store the object used to store temporary values of the dynamics properties
waitfornextreport Logical, keep the PDF handles opened, waiting for a new report to be joined.
npgcounter
nglobalpgcounter
otempimagescollection Property to store the collection of temporary Images used in the PDF Generation
opicturehandles Used to store the handle of pictures used in the PDF generation
_lsetconsole
_lsettalk
npagemode How the document should be displayed - 0 = USE_NONE; 1 = USE_OUTLINE; 2 = USE_THUMBS; 3 = FULL_SCREEN
lextended
ldefaultmode
npagewidth
_cwinfolder
_ctempfolder
_stat
lshowerrors
csymbolfontslist
cobjecttorender
_stat2
ncurrentpage
oactivelistener
cdefaultfont
lobjtypemode
_lschinese
lrighttoleft
lreplacefonts Replaces some fonts using some generic fonts that are stored inside the DLL
_ltchinese
_lkorean
_ljapanese
nwmwidthratio
nwmheightratio
nwmwidth
nwmheight
cwmpicture
hwmpdfhandle
_cwmpicture
_nwmy
_nwmx
_nwmw
_nwmh
lusingwatermark
nsystemlangid
lhasuserfld
*declaredll Method to Declare all DLL required for the Job
*writepdfinformation
*searchfont
*startpdfdocument
*cleardlls Method to Clear from Memory all the DLL Calls
*encryptpdf
*addblankpage Method to add a Blank Page to the document
*addpdfstandardfonts
*findfontfilename Method to find the real filename of a True Type Font, it will look in the Registry for it
*cropimage Method to Crop an Image, uses code from Cesar Chalom Samples
*parseunderlinetext Method to prepare the text to be drawed as underline
*processdynamics Method to process the dynamics properties of VFP9 SP2
*processfields
*processshapes
*processlabel
*processpictures
*processlines
*getpicturehandle Used to get the picture handle when pictures are not in general fields
^aspawnobj[1,1]
*ispixelalpha
*outputfromdata
*getparheight
^afontsreplaced[1,0]
*stringtopic
*processpictures2
^afontssymbol[1,0]
*_stat_assign
*_errorinfo
*_stat2_assign
*getpicturefromlistener
*getpageimg
^apagesimgs[1,0]
*clearpdferrors
*getimgtype
*getdefaultfont
*updateproperties
*filesize Returns the file size
*getfonthandle
*getfontstylename
*gettempfile
*istempfile
*getwatermarkobject
*getwatermark
*getlanguagefromsystem
HPDF_New
libhpdf.dll
HPDF_Free
libhpdf.dll
HPDF_SaveToFile
libhpdf.dll
HPDF_GetError
libhpdf.dll
HPDF_ResetError
libhpdf.dll
HPDF_SetPageMode
libhpdf.dll
HPDF_GetCurrentPage
libhpdf.dll
HPDF_AddPage
libhpdf.dll
HPDF_Page_SetWidth
libhpdf.dll
HPDF_Page_SetHeight
libhpdf.dll
HPDF_GetFont
libhpdf.dll
HPDF_LoadTTFontFromFile
libhpdf.dll
HPDF_GetEncoder
libhpdf.dll
HPDF_GetCurrentEncoder
libhpdf.dll
HPDF_SetCurrentEncoder
libhpdf.dll
HPDF_Encoder_GetType
libhpdf.dll
HPDF_Encoder_GetByteType
libhpdf.dll
HPDF_Encoder_GetUnicode
libhpdf.dll
HPDF_Encoder_GetWritingMode
libhpdf.dll
HPDF_UseJPEncodings
libhpdf.dll
HPDF_UseKREncodings
libhpdf.dll
HPDF_UseCNSEncodings
libhpdf.dll
HPDF_UseCNTEncodings
libhpdf.dll
HPDF_UseJPFonts
libhpdf.dll
HPDF_UseKRFonts
libhpdf.dll
HPDF_UseCNSFonts
libhpdf.dll
HPDF_UseCNTFonts
libhpdf.dll
HPDF_LoadPngImageFromFile
libhpdf.dll
HPDF_LoadJpegImageFromFile
libhpdf.dll
HPDF_Image_GetWidth
libhpdf.dll
HPDF_Image_GetHeight
libhpdf.dll
HPDF_SetInfoAttr
libhpdf.dll
HPDF_SetPassword
libhpdf.dll
HPDF_SetPermission
libhpdf.dll
HPDF_SetEncryptionMode
libhpdf.dll
HPDF_SetCompressionMode
libhpdf.dll
HPDF_Font_MeasureText
libhpdf.dll
HPDF_Page_GetWidth
libhpdf.dll
HPDF_Page_GetHeight
libhpdf.dll
HPDF_Page_TextWidth
libhpdf.dll
HPDF_Page_GetCurrentFont
libhpdf.dll
HPDF_Page_MeasureText
libhpdf.dll
HPDF_Page_GetRGBFill
libhpdf.dll
HPDF_Page_GetCurrentFont
libhpdf.dll
HPDF_Page_GetCurrentFontSize
libhpdf.dll
HPDF_Page_SetLineWidth
libhpdf.dll
HPDF_Page_SetDash
libhpdf.dll
HPDF_Page_MoveTo
libhpdf.dll
HPDF_Page_LineTo
libhpdf.dll
HPDF_Page_ClosePath
libhpdf.dll
HPDF_Page_Rectangle
libhpdf.dll
HPDF_Page_Concat
libhpdf.dll
HPDF_Page_SetCharSpace
libhpdf.dll
HPDF_Page_SetWordSpace
libhpdf.dll
HPDF_Page_SetHorizontalScalling
libhpdf.dll
HPDF_Page_SetTextLeading
libhpdf.dll
HPDF_Page_SetTextRise
libhpdf.dll
HPDF_Page_Stroke
libhpdf.dll
HPDF_Page_ClosePathStroke
libhpdf.dll
HPDF_Page_Fill
libhpdf.dll
HPDF_Page_FillStroke
libhpdf.dll
HPDF_Page_EndPath
libhpdf.dll
HPDF_Page_BeginText
libhpdf.dll
HPDF_Page_EndText
libhpdf.dll
HPDF_Page_SetFontAndSize
libhpdf.dll
HPDF_Page_SetTextRenderingMode
libhpdf.dll
HPDF_Page_MoveTextPos
libhpdf.dll
HPDF_Page_MoveToNextLine
libhpdf.dll
HPDF_Page_SetRGBFill
libhpdf.dll
HPDF_Page_SetRGBStroke
libhpdf.dll
HPDF_Page_Ellipse
libhpdf.dll
HPDF_Page_DrawImage
libhpdf.dll
HPDF_Page_TextRect
libhpdf.dll
HPDF_Page_TextOut
libhpdf.dll
HPDF_Page_SetTextMatrix
libhpdf.dll
HPDF_Page_ShowText
libhpdf.dll
HPDF_Page_CurveTo
libhpdf.dll
GdipCloneBitmapAreaI
GDIPLUS.DLLQ
pdfxGdipCloneBitmapAreaI
_strrev
msvcrt20.dllQ
xfcRevertString
HPDF_NEW
LIBHPDF
HPDF_FREE
HPDF_SAVETOFILE
HPDF_GETERROR
HPDF_RESETERROR
HPDF_SETPAGEMODE
HPDF_GETCURRENTPAGE
HPDF_ADDPAGE
HPDF_PAGE_SETWIDTH
HPDF_PAGE_SETHEIGHT
HPDF_GETFONT
HPDF_LOADTTFONTFROMFILE
HPDF_GETENCODER
HPDF_GETCURRENTENCODER
HPDF_SETCURRENTENCODER
HPDF_ENCODER_GETTYPE
HPDF_ENCODER_GETBYTETYPE
HPDF_ENCODER_GETUNICODE
HPDF_ENCODER_GETWRITINGMODE
HPDF_USEJPENCODINGS
HPDF_USEKRENCODINGS
HPDF_USECNSENCODINGS
HPDF_USECNTENCODINGS
HPDF_USEJPFONTS
HPDF_USEKRFONTS
HPDF_USECNSFONTS
HPDF_USECNTFONTS
HPDF_LOADPNGIMAGEFROMFILE
HPDF_LOADJPEGIMAGEFROMFILE
HPDF_IMAGE_GETWIDTH
HPDF_IMAGE_GETHEIGHT
HPDF_SETINFOATTR
HPDF_SETPASSWORD
HPDF_SETPERMISSION
HPDF_SETENCRYPTIONMODE
HPDF_SETCOMPRESSIONMODE
HPDF_FONT_MEASURETEXT
HPDF_PAGE_GETWIDTH
HPDF_PAGE_GETHEIGHT
HPDF_PAGE_TEXTWIDTH
HPDF_PAGE_GETCURRENTFONT
HPDF_PAGE_MEASURETEXT
HPDF_PAGE_GETRGBFILL
HPDF_PAGE_GETCURRENTFONTSIZE
HPDF_PAGE_SETLINEWIDTH
HPDF_PAGE_SETDASH
HPDF_PAGE_MOVETO
HPDF_PAGE_LINETO
HPDF_PAGE_CLOSEPATH
HPDF_PAGE_RECTANGLE
HPDF_PAGE_CONCAT
HPDF_PAGE_SETCHARSPACE
HPDF_PAGE_SETWORDSPACE
HPDF_PAGE_SETHORIZONTALSCALLING
HPDF_PAGE_SETTEXTLEADING
HPDF_PAGE_SETTEXTRISE
HPDF_PAGE_STROKE
HPDF_PAGE_CLOSEPATHSTROKE
HPDF_PAGE_FILL
HPDF_PAGE_FILLSTROKE
HPDF_PAGE_ENDPATH
HPDF_PAGE_BEGINTEXT
HPDF_PAGE_ENDTEXT
HPDF_PAGE_SETFONTANDSIZE
HPDF_PAGE_SETTEXTRENDERINGMODE
HPDF_PAGE_MOVETEXTPOS
HPDF_PAGE_MOVETONEXTLINE
HPDF_PAGE_SETRGBFILL
HPDF_PAGE_SETRGBSTROKE
HPDF_PAGE_ELLIPSE
HPDF_PAGE_DRAWIMAGE
HPDF_PAGE_TEXTRECT
HPDF_PAGE_TEXTOUT
HPDF_PAGE_SETTEXTMATRIX
HPDF_PAGE_SHOWTEXT
HPDF_PAGE_CURVETO
GDIPCLONEBITMAPAREAI
GDIPLUS
PDFXGDIPCLONEBITMAPAREAI
_STRREV
MSVCRT20
XFCREVERTSTRING
CPDFAUTHOR
_STAT
HPDF_SETINFOATTR
PDFHANDLE
CPDFTITLE
CPDFSUBJECT
CPDFKEYWORDS
CPDFCREATOR
STRING
INTEGER
STRING
STRING
STRING
 Bold
 Italic
BOOLEAN
INTEGER
STRING
LCFONTNAME
LNSTYLE
LNPOS0
AFONTSSYMBOL
LCRETORNO
LCFONTREGULAR
LCFONTSTYLE
CTEXTSTYLE
LBRESULT
OFONTS
COUNT
GETKEY
LNREPLCOUNT
LNPOS
AFONTSREPLACED
LCKEY
LCNEWFONT
FINDFONTFILENAME
GETDEFAULTFONT
Could not load the library LIBHPDF.DLL .C
The process can't continue. Make sure that you have the PDF library available, and that FoxyPreviewer is installed in a folder that has READ/WRITE access.
Error
GB-EUC-H
GB-EUC-V
GBK-EUC-H
GBK-EUC-V
CP936
EUC-CN
SimSun
GBK-EUC-H
ETEN-B5-H
ETEN-B5-V
CP950
MingLiU
ETen-B5-H
90MS-RKSJ-H
90MS-RKSJ-V
90MSP-RKSJ-H
EUC-H
EUC-V
CP932
MS-Mincyo
90ms-RKSJ-H
EUC-H
EUC-V
KSC-EUC-H
KSC-EUC-V
KSCMS-UHC-H
KSCMS-UHC-HW-H
KSCMS-UHC-HW-V
CP949
DotumChe
KSC-EUC-H
CP1256
ISO8859-6
THIS
PDFHANDLE
LSTARTED
LLERROR
HPDF_NEW
CANCELREPORT
_STAT
HPDF_SETCOMPRESSIONMODE
HPDF_SETPAGEMODE
NPAGEMODE
WRITEPDFINFORMATION
ENCRYPTPDF
CLEARPDFERRORS
ADDBLANKPAGE
LCCODEPAGE
CCODEPAGE
_LSCHINESE
CDEFAULTFONT
HPDF_USECNSFONTS
HPDF_USECNSENCODINGS
_LTCHINESE
HPDF_USECNTFONTS
HPDF_USECNTENCODINGS
_LJAPANESE
HPDF_USEJPFONTS
HPDF_USEJPENCODINGS
_LKOREAN
HPDF_USEKRFONTS
HPDF_USEKRENCODINGS
LRIGHTTOLEFT
HPDF_New
HPDF_Free
HPDF_SaveToFile
HPDF_GetError
HPDF_ResetError
HPDF_SetPageMode
HPDF_GetCurrentPage
HPDF_AddPage
HPDF_Page_SetWidth
HPDF_Page_SetHeight
HPDF_GetFont
HPDF_LoadTTFontFromFile
HPDF_GetEncoder
HPDF_GetCurrentEncoder
HPDF_SetCurrentEncoder
HPDF_Encoder_GetType
HPDF_Encoder_GetByteType
HPDF_Encoder_GetUnicode
HPDF_Encoder_GetWritingMode
HPDF_UseJPEncodings
HPDF_UseKREncodings
HPDF_UseCNSEncodings
HPDF_UseCNTEncodings
HPDF_LoadPngImageFromFile
HPDF_LoadJpegImageFromFile
HPDF_Image_GetWidth
HPDF_Image_GetHeight
HPDF_SetInfoAttr
HPDF_SetPassword
HPDF_SetPermission
HPDF_SetEncryptionMode
HPDF_SetCompressionMode
HPDF_Font_MeasureText
HPDF_Page_GetWidth
HPDF_Page_GetHeight
HPDF_Page_TextWidth
HPDF_Page_GetCurrentFont
HPDF_Page_MeasureText
HPDF_Page_GetRGBFill
HPDF_Page_GetCurrentFont
HPDF_Page_GetCurrentFontSize
HPDF_Page_SetLineWidth
HPDF_Page_SetDash
HPDF_Page_MoveTo
HPDF_Page_LineTo
HPDF_Page_ClosePath
HPDF_Page_Rectangle
HPDF_Page_Concat
HPDF_Page_SetCharSpace
HPDF_Page_SetWordSpace
HPDF_Page_SetHorizontalScalling
HPDF_Page_SetTextLeading
HPDF_Page_SetTextRise
HPDF_Page_Stroke
HPDF_Page_ClosePathStroke
HPDF_Page_Fill
HPDF_Page_FillStroke
HPDF_Page_EndPath
HPDF_Page_BeginText
HPDF_Page_EndText
HPDF_Page_SetFontAndSize
HPDF_Page_SetTextRenderingMode
HPDF_Page_MoveTextPos
HPDF_Page_MoveToNextLine
HPDF_Page_SetRGBFill
HPDF_Page_SetRGBStroke
HPDF_Page_Ellipse
HPDF_Page_DrawImage
HPDF_Page_TextRect
HPDF_Page_TextOut
HPDF_Page_SetTextMatrix
HPDF_Page_ShowText
HPDF_Page_CurveTo
INTEGER
LENCRYPTDOCUMENT
CMASTERPASSWORD
CUSERPASSWORD
HPDF_SETPASSWORD
PDFHANDLE
LNPERMIT
LCANPRINT
LCANEDIT
LCANCOPY
LCANADDNOTES
_STAT
HPDF_SETPERMISSION
NENCRIPTIONLEVEL
HPDF_SETENCRYPTIONMODE0
LDEFAULTMODE
LNWIDTH
LNHEIGHT
GETPAGEWIDTH
GETPAGEHEIGHT
NPAGEHEIGHT
NPAGEWIDTH
OPAGE
HPDF_ADDPAGE
PDFHANDLE
_STAT
HPDF_PAGE_SETWIDTH
HPDF_PAGE_SETHEIGHT
_CWMPICTURE
_NWMW
_NWMH
PROCESSPICTURES
_NWMY
_NWMXo
Courier
Courier
Courier-Bold
Courier-Bold
Courier-Oblique
Courier-Oblique
Courier-BoldOblique
Courier-BoldOblique
Helvetica
Helvetica
Helvetica-Bold
Helvetica-Bold
Helvetica-Oblique
Helvetica-Oblique
Helvetica-BoldOblique
Helvetica-BoldOblique
Times-Roman
Times-Roman
Times-Bold
Times-Bold
Times-Italic
Times-Italic
Times-BoldItalic
Times-BoldItalic
Symbol
Symbol
ZapfDingbats
ZapfDingbats
OFONTS
STRING
STRING
STRING
SOFTWARE\Microsoft\Windows\CurrentVersion\Fonts
Software\Microsoft\Windows NT\CurrentVersion\Fonts6
Registry
Fonts\
 (TrueType)
Fonts\
Negrito
Italic
negrita
Italic
cursiva
Italic
Italique
Fonts\
 (TrueType)
LCFONTNAME
LCFILENAME
LCFOLDER
THIS
OREGISTRY
CLASSLIBRARY
_CWINFOLDER
READREGISTRYSTRING
LNLANGID
NSYSTEMLANGID
LURETURN
HPDF_LOADTTFONTFROMFILE
PDFHANDLE
LEMBEDFONT
LOEXC
CLEARPDFERRORSw
STRING
INTEGER
INTEGER
GPBITMAP
ffc\_gdiplus.vcx
GpBitmap
_GdiPlus.vcx
GPBITMAP
ffc\_gdiplus.vcx
GpBitmap
_GdiPlus.vcx
image/png
image/jpeg6
LCFILE
TNWIDTH
TNHEIGHT
TLFILE
LOBMP
CREATEFROMFILE
IMAGEHEIGHT
IMAGEWIDTH
LHBITMAP
LNSTATUS
PDFXGDIPCLONEBITMAPAREAI
PIXELFORMAT
GETHANDLE
LNHANDLE
LOCROPPED
SETHANDLE
SETRESOLUTION
HORIZONTALRESOLUTION
VERTICALRESOLUTION
LCEXT
LCENCODER
LCCROPPEDFILE
GETTEMPFILE
SAVETOFILE
HPDF_LOADPNGIMAGEFROMFILE
PDFHANDLE
HPDF_LOADJPEGIMAGEFROMFILE
ISTEMPFILE
LOEXC-
STRING
NUMBER
NUMBER
INTEGER
STRING
INTEGER
STRING
LCTEXT
NWIDTH
LNANCHO
LCTEMP
LNLEN
LCRETORNO
HPDF_PAGE_TEXTWIDTH
OPAGE
STRING
STRING
BOOLEAN
STRING
_TempDynamics
_TempDynamics
_TempDynamicsN
Empty
FIELD
SHAPE
PICTURE
FIELD
cValue
cExecWhen
cFontName
nFontSizeCC
nFontStyleCC
nPenRedCCCC
nPenGreenCCCC
nPenBlueCCCC
nPenRed
nPenGreen
nPenBlue
nFillRedCCCC
nFillGreenCCCC
nFillBlueCCCC
nFillRed
nFillGreen
nFillBlue
SHAPE
IMAGE
cExecWhen
nWidthCC
nHeightCC
Microsoft.VFP.Reporting.Builder.Rotate
nRotationDegreeCC
LCSTYLE
LCTYPE
LBRETURN
LCCURSOR
THIS
ODYNAMICS
_TEMPDYNAMICS
EXECWHEN
SCRIPT
FNAME
FSIZE
FSTYLE
PENRGB
FILLRGB
WIDTH
HEIGHT
EXECUTE
STRING
INTEGER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
STRING
STRING
INTEGER
BOOLEAN
INTEGER
NUMBER
INTEGER
STRING
INTEGER
STRING
INTEGER
INTEGER
INTEGER
INTEGER
STRING
INTEGER
INTEGER
FIELD
cFontName
nFontSize
nFontStyle
cValue
nPenRed
nPenBlue
nPenGreen
nFillRed
nFillBlue
nFillGreen
nRotationDegree
NUMBER
LCFONTFACE
LIFONTSTYLE
LNFONTSIZE
LNPENRED
LNPENGREEN
LNPENBLUE
LNFILLRED
LNFILLGREEN
LNFILLBLUE
NLEFT
LCCONTENTS
LCFILLCHAR
LNOFFSET
LBSTRETCH
LNCODEPAGE
NHEIGHT
NWIDTH
LCSTYLE
LNMODE
LCUSER
LCORIGCONTENTS
LNTIMES
LCTABREPL
LRIGHTTOLEFT
XFCREVERTSTRING
LNOCURRENCES
LNANCHO
LNFONTHANDLE
LNALTO
LCUNDERLINETEXT
LNROTATE
LNCHARWIDTH
LDEFAULTMODE
_GOHELPER
OLISTENER
CMAINALIAS
LCALIAS
LCMAINALIAS
LNREC
DBFRECNO
PROCESSDYNAMICS
ODYNAMICS
CFONTNAME
NFONTSIZE
NFONTSTYLE
CVALUE
NPENRED
NPENBLUE
NPENGREEN
NFILLRED
NFILLBLUE
NFILLGREEN
NROTATIONDEGREE
LOEXC
LNPENSIZE
LNPENPAT
LNFILLPAT
LNOBJCONTTYPE
PROCESSSHAPES
NPAGEHEIGHT
GETFONTHANDLE
LCIMAGE
LNTXTW
LNTXTH
STRINGTOPIC
PROCESSPICTURES2
_STAT
HPDF_PAGE_BEGINTEXT
OPAGE
HPDF_PAGE_SETFONTANDSIZE
CTEXTSTYLE
HPDF_PAGE_TEXTWIDTH
HPDF_PAGE_GETCURRENTFONTSIZE
LNFONTHEIGHT2
PARSEUNDERLINETEXT
LUNDERLINE
HPDF_PAGE_SETRGBFILL
HPDF_PAGE_SETTEXTLEADING
LNLEN
LNCHARS
LNREALWIDTH
LCCURRTEXT
LCREMAININGTEXT
LNLINEHEIGHT
LNLINESAVAIL
LNCURRLINE
GETPARHEIGHT
HPDF_FONT_MEASURETEXT
_STAT2
HPDF_PAGE_TEXTRECT
LNRAD
HPDF_PAGE_SETTEXTMATRIX
HPDF_PAGE_SHOWTEXT
HPDF_PAGE_ENDTEXT
LLSUCCESS
INTEGER
INTEGER
INTEGER
INTEGER
INTEGER
INTEGER
NUMBER
NUMBER
NUMBER
NUMBER
INTEGER
INTEGER
INTEGER
INTEGER
STRING
INTEGER
INTEGER
lnObjectContinuationTypeb
STRING
INTEGER
BOOLEAN
BOOLEAN
BOOLEAN
BOOLEAN
BOOLEAN
INTEGER
INTEGER
INTEGER
SHAPE
nHeight
nWidth
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
LNFILLRED
LNFILLGREEN
LNFILLBLUE
LNPENRED
LNPENGREEN
LNPENBLUE
NLEFT
NWIDTH
NHEIGHT
LNOFFSET
LNPENSIZE
LNPENPAT
LNFILLPAT
LCSTYLE
LNMODE
LNOBJECTCONTINUATIONTYPE
TLSKIPBORDER
LCDASH
NTOP2
LDECOMPOSERECT
LDOTOPLINE
LDOLEFTLINE
LDORIGHTLINE
LDOBOTTOMLINE
LINE_LNPENRED
LINE_LNPENGREEN
LINE_LNPENBLUE
PROCESSDYNAMICS
ODYNAMICS
NPAGEHEIGHT
_STAT
HPDF_PAGE_SETRGBFILL
OPAGE
HPDF_PAGE_SETRGBSTROKE
HPDF_PAGE_SETLINEWIDTH
HPDF_PAGE_SETDASH
HPDF_PAGE_RECTANGLE
HPDF_PAGE_MOVETO
HPDF_PAGE_LINETO
HPDF_PAGE_CURVETO
HPDF_PAGE_ELLIPSE
HPDF_PAGE_STROKE
HPDF_PAGE_FILLSTROKE
PROCESSLINES
STRING
INTEGER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
STRING
STRING
INTEGER
INTEGER
INTEGER
NUMBER
STRING
STRING
INTEGER
NUMBER
STRING
INTEGER
STRING
INTEGER
INTEGER
LABEL
nRotationDegree
333333
NUMBER
LCFONTFACE
LIFONTSTYLE
LNFONTSIZE
LNPENRED
LNPENGREEN
LNPENBLUE
LNFILLRED
LNFILLGREEN
LNFILLBLUE
NLEFT
LCCONTENTS
LCFILLCHAR
LNOFFSET
NWIDTH
LNCODEPAGE
NHEIGHT
LCPICTURE
LCSTYLE
LNMODE
LNALTO
LNTXTWIDTH
LNFONTHANDLE
LCUNDERLINETEXT
LNROTATE
LNCHARWIDTH
PROCESSDYNAMICS
ODYNAMICS
NROTATIONDEGREE
LNPENSIZE
LNPENPAT
LNFILLPAT
PROCESSSHAPES
NPAGEHEIGHT
GETFONTHANDLE
LCIMAGE
LNTXTW
LNTXTH
STRINGTOPIC
PROCESSPICTURES2
CTEXTSTYLE
_STAT
HPDF_PAGE_BEGINTEXT
OPAGE
HPDF_PAGE_SETFONTANDSIZE
HPDF_PAGE_TEXTWIDTH
HPDF_PAGE_SETRGBSTROKE
HPDF_PAGE_SETRGBFILL
LUNDERLINE
LCORIGCONTENTS
LNPARAG
LNPARHEIGHT
LCPAR
LNPARTOP
LNALIGNMODE
LNPARWIDTH
GETPARHEIGHT
HPDF_PAGE_TEXTRECT
LNRAD
HPDF_PAGE_SETTEXTMATRIX
HPDF_PAGE_SHOWTEXT
HPDF_PAGE_ENDTEXT{
NUMBER
NUMBER
NUMBER
NUMBER
STRING
NUMBER
INTEGER
INTEGER
STRING
STRING
STRING
INTEGER
GPIMAGE
FFC\_GdiPlus.vcx
GpImage
_GdiPlus.vcx
image/png
IMAGE
Image
Collection
NLEFT
NWIDTH
NHEIGHT
LCCONTENTS
GDIPLUSIMAGE
LNOFFSET
LIPICTUREMODE
LCSTYLE
LCFILE
LCFILE2
LNHANDLE
NPAGEHEIGHT
LNPICWIDTH
LNPICHEIGHT
GETTEMPFILE
LOIMAGE
SETHANDLE
IMAGEWIDTH
IMAGEHEIGHT
SAVETOFILE
HPDF_LOADPNGIMAGEFROMFILE
PDFHANDLE
GETPICTUREHANDLE
CROPIMAGE
_STAT
HPDF_PAGE_DRAWIMAGE
OPAGE
LOVFPIMG
PICTURE
WIDTH
HEIGHT
LNHORFACTOR
LNVERTFACTOR
LNRESIZEFACTOR
LNISOWIDTH
LNISOHEIGHT
OTEMPIMAGESCOLLECTION
INTEGER
INTEGER
INTEGER
NUMBER
NUMBER
NUMBER
NUMBER
INTEGER
NUMBER
INTEGER
STRING
STRING
LNPENRED
LNPENGREEN
LNPENBLUE
NLEFT
NWIDTH
NHEIGHT
LNPENSIZE
LNOFFSET
LNPENPAT
LCSTYLE
LCDASH
_STAT
HPDF_PAGE_SETRGBSTROKE
OPAGE
NPAGEHEIGHT
HPDF_PAGE_SETDASH
HPDF_PAGE_SETLINEWIDTH
HPDF_PAGE_MOVETO
HPDF_PAGE_LINETO
HPDF_PAGE_STROKE
STRING
STRING
INTEGER
INTEGER
STRING
INTEGER
STRING
Collection
Image
GpBitmap
_GdiPlus.vcx
image/jpeg
GPBITMAP
GpBitmap
_GdiPlus.vcx
GPBITMAP
STRING
STRING
GpBitmap
_GdiPlus.vcx
GPBITMAP
\ffc\_Gdiplus.vcx
GpBitmap
_GdiPlus.vcx
GPGRAPHICS
\ffc\_Gdiplus.vcx
GpGraphics
_GdiPlus.vcx
image/png
LCINTERNALNAME
LCEXTERNALNAME
LNPICWIDTH
LNPICHEIGHT
LCFILESTREAM
LNHANDLE
LCEXTENSION
OPICTUREHANDLES
GETKEY
LOEXC
LOVFPIMG
LCFILE
PICTURE
GETTEMPFILE
LOIMAGE
CREATEFROMFILE
SETRESOLUTION
WIDTH
HEIGHT
SAVETOFILE
FILESIZE
ISTEMPFILE
HPDF_LOADJPEGIMAGEFROMFILE
PDFHANDLE
LOBMPTMP
IMAGEWIDTH
IMAGEHEIGHT
ISPIXELALPHA
GETPIXEL
HPDF_LOADPNGIMAGEFROMFILE
CLEARPDFERRORS
LOBMP2
LCFILE2
LOBMP3
CREATE
HORIZONTALRESOLUTION
VERTICALRESOLUTION
LOGFX
CREATEFROMIMAGE
CLEAR
DRAWIMAGEAT
ITEMj
TNARGB
TLALPHAISUSEDg
REPORTLISTENER
Invalid parameter. Report listener not available
Error
GPIMAGE
\FFC\_Gdiplus.vcx
TEMP5
Temp_WM_
image/
%  -
100%  - CCC
TOLISTENER
TCOUTPUTDBF
TNWIDTH
TNHEIGHT
OACTIVELISTENER
QUIETMODE
LNSECS
DOFOXYTHERM
_GOHELPER
_INITSTATUSTEXT
LISTENERDATASESSION
LNSELECT
LLEXIT
LDEFAULTMODE
NPAGEWIDTH
NPAGEHEIGHT
LNPGFROM
LNPGTO
_CLAUSENRANGEFROM
_CLAUSENRANGETO
LUSINGWATERMARK
LCTEMPFILE
LCTYPE
LOBMP
CWATERMARKIMAGE
OWATERMARKBMP
SAVETOFILE
_CWMPICTURE
LNWIDTH
LNHEIGHT
NWATERMARKWIDTHRATIO
NWATERMARKHEIGHTRATIO
_NWMX
_NWMY
_NWMW
_NWMH
BEFOREREPORT
RENDER
FRXRECNO
WIDTH
HEIGHT
CONTTYPE
UNCONTENTS
LNPERCENT
LNLASTPERCENT
LNDELAY
LNTOTRECS
LNREC
_SECONDSTEXT
_RUNSTATUSTEXT
AFTERREPORT
UNLOADREPORT
GPRECTANGLE
\ffc\_Gdiplus.vcx
GPRectangle
_Gdiplus.vcx
GPFont
_Gdiplus.vcx
GPGRAPHICS
\ffc\_Gdiplus.vcx
GpGraphics
_Gdiplus.vcx
333333
GPSIZE
\ffc\_Gdiplus.vcx
TCTEXT
TCFONTNAME
TNSIZE
TCSTYLE
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
LNFACTOR
LOFONT
LNCHARS
LNLINES
LNHEIGHT
LNWIDTH
LORECT
CREATE
LOGFX
LDEFAULTMODE
SETHANDLE
ISSUCCESSOR
SHAREDGDIPLUSGRAPHICS
GDIPLUSGRAPHICS
CREATEFROMHWND
PAGEUNIT
PAGESCALE
LOSIZE
MEASURESTRINGA
GDIPRECTF>
GPRECTANGLE
\ffc\_Gdiplus.vcx
GPRectangle
GPGRAPHICS
ffc\_gdiplus.vcx
gpGraphics
_gdiplus.vcx
333333
GPFONT
ffc\_gdiplus.vcx
gpFont
_gdiplus.vcx
GPSTRINGFORMAT
ffc\_gdiplus.vcx
gpStringFormat
_gdiplus.vcx
GPCOLOR
ffc\_gdiplus.vcx
gpColor
_gdiplus.vcx
GPSOLIDBRUSH
ffc\_gdiplus.vcx
gpSolidBrush
_gdiplus.vcx
GPSIZE
ffc\_gdiplus.vcx
GPBITMAP
ffc\_gdiplus.vcx
gpBitmap
_gdiplus.vcx
GPGRAPHICS
ffc\_gdiplus.vcx
gpGraphics
_gdiplus.vcx
333333
image/png
TCSTRING
TCFONT
TNSIZE
TNALIGN
LNFACTOR
LORECT
LOGFX0
CREATEFROMHWND
PAGEUNIT
PAGESCALE
LOFONT
CREATE
LOSTRFMT
LOCOLOR
LOBRUSH
LOSIZE
MEASURESTRINGA
GDIPRECTF
LOBMP
LOGFX
CREATEFROMIMAGE
CLEAR
DRAWSTRINGA
LCTEMPFILE
GETTEMPFILE
SAVETOFILE
TCFILE
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
LNHANDLE
HPDF_LOADPNGIMAGEFROMFILE
THIS
PDFHANDLE
_STAT
HPDF_PAGE_DRAWIMAGE
OPAGE
ISTEMPFILE
LCFILEa
PDFx error in CC
Error code :
Description:
Page:
Object:
Press 'Retry' to debug the application.
Error
PDFx error in CC
Error code  :
Description :
Object:
Error
TNSTATUS
_STAT
LNHPDF_ERR
LCHEX
HPDF_GETERROR
PDFHANDLE
HPDF_RESETERROR
LSHOWERRORS
STARTMODE
LNOPTION
_ERRORINFO
NCURRENTPAGE
COBJECTTORENDERC
HPDF_ARRAY_COUNT_ERR
HPDF_ARRAY_ITEM_NOT_FOUND
HPDF_ARRAY_ITEM_UNEXPECTED_TYPE
HPDF_BINARY_LENGTH_ERR
HPDF_CANNOT_GET_PALLET
HPDF_DICT_COUNT_ERR
HPDF_DICT_ITEM_NOT_FOUND
HPDF_DICT_ITEM_UNEXPECTED_TYPE
HPDF_DICT_STREAM_LENGTH_NOT_FOUND
HPDF_DOC_ENCRYPTDICT_NOT_FOUND
HPDF_DOC_INVALID_OBJECT
HPDF_DUPLICATE_REGISTRATION
HPDF_EXCEED_JWW_CODE_NUM_LIMIT
HPDF_ENCRYPT_INVALID_PASSWORD
HPDF_ERR_UNKNOWN_CLASS
HPDF_EXCEED_GSTATE_LIMIT
HPDF_FAILD_TO_ALLOC_MEM
HPDF_FILE_IO_ERROR
HPDF_FILE_OPEN_ERROR
HPDF_FONT_EXISTS
HPDF_FONT_INVALID_WIDTHS_TABLE
HPDF_INVALID_AFM_HEADER
HPDF_INVALID_ANNOTATION
HPDF_INVALID_BIT_PER_COMPONENT
HPDF_INVALID_CHAR_MATRICS_DATA
HPDF_INVALID_COLOR_SPACE
HPDF_INVALID_COMPRESSION_MODE
HPDF_INVALID_DATE_TIME
HPDF_INVALID_DESTINATION
HPDF_INVALID_DOCUMENT
HPDF_INVALID_DOCUMENT_STATE
HPDF_INVALID_ENCODER
HPDF_INVALID_ENCODER_TYPE
HPDF_INVALID_ENCODING_NAME
HPDF_INVALID_ENCRYPT_KEY_LEN
HPDF_INVALID_FONTDEF_DATA
HPDF_INVALID_FONTDEF_TYPE
HPDF_INVALID_FONT_NAME
HPDF_INVALID_IMAGE
HPDF_INVALID_JPEG_DATA
HPDF_INVALID_N_DATA
HPDF_INVALID_OBJECT
HPDF_INVALID_OBJ_ID
HPDF_INVALID_OPERATION
HPDF_INVALID_OUTLINE
HPDF_INVALID_PAGE
HPDF_INVALID_PAGES
HPDF_INVALID_PARAMETER
HPDF_INVALID_PNG_IMAGE
HPDF_INVALID_STREAM
HPDF_MISSING_FILE_NAME_ENTRY
HPDF_INVALID_TTC_FILE
HPDF_INVALID_TTC_INDEX
HPDF_INVALID_WX_DATA
HPDF_ITEM_NOT_FOUND
HPDF_LIBPNG_ERROR
HPDF_NAME_INVALID_VALUE
HPDF_NAME_OUT_OF_RANGE
HPDF_PAGE_INVALID_PARAM_COUNT
HPDF_PAGES_MISSING_KIDS_ENTRY
HPDF_PAGE_CANNOT_FIND_OBJECT
HPDF_PAGE_CANNOT_GET_ROOT_PAGES
HPDF_PAGE_CANNOT_RESTORE_GSTATE
HPDF_PAGE_CANNOT_SET_PARENT
HPDF_PAGE_FONT_NOT_FOUND
HPDF_PAGE_INVALID_FONT
HPDF_PAGE_INVALID_FONT_SIZE
HPDF_PAGE_INVALID_GMODE
HPDF_PAGE_INVALID_INDEX
HPDF_PAGE_INVALID_ROTATE_VALUE
HPDF_PAGE_INVALID_SIZE
HPDF_PAGE_INVALID_XOBJECT
HPDF_PAGE_OUT_OF_RANGE
HPDF_REAL_OUT_OF_RANGE
HPDF_STREAM_EOF
HPDF_STREAM_READLN_CONTINUE
HPDF_STRING_OUT_OF_RANGE
HPDF_THIS_FUNC_WAS_SKIPPED
HPDF_TTF_CANNOT_EMBEDDING_FONT
HPDF_TTF_INVALID_CMAP
HPDF_TTF_INVALID_FOMAT
HPDF_TTF_MISSING_TABLE
HPDF_UNSUPPORTED_FONT_TYPE
HPDF_UNSUPPORTED_FUNC
HPDF_UNSUPPORTED_JPEG_FORMAT
HPDF_UNSUPPORTED_TYPE1_FONT
HPDF_XREF_COUNT_ERR
HPDF_ZLIB_ERROR
HPDF_INVALID_PAGE_INDEX
HPDF_INVALID_URI
HPDF_PAGE_LAYOUT_OUT_OF_RANGE
HPDF_PAGE_MODE_OUT_OF_RANGE
HPDF_PAGE_NUM_STYLE_OUT_OF_RANGE
HPDF_ANNOT_INVALID_ICON
HPDF_ANNOT_INVALID_BORDER_STYLE
HPDF_PAGE_INVALID_DIRECTION
HPDF_INVALID_FONT
HPDF_PAGE_INSUFFICIENT_SPACE
HPDF_PAGE_INVALID_DISPLAY_TIME
HPDF_PAGE_INVALID_TRANSITION_TIME
HPDF_INVALID_PAGE_SLIDESHOW_TYPE
HPDF_EXT_GSTATE_OUT_OF_RANGE
HPDF_INVALID_EXT_GSTATE
HPDF_EXT_GSTATE_READ_ONLY
Unknown Error
TNSTATUS*
TNSTATUS
_STAT2
_STAT
fffff
fffff
Collection
TNWIDTH
TNHEIGHT
CLEARPDFERRORS
LCFILE
GETPAGEIMG
LNHOR
LNVERT
LCNEWFILE
CROPIMAGE
PROCESSPICTURES
OTEMPIMAGESCOLLECTION
REPORTLISTENER
LOLISTENER
OACTIVELISTENER
LNPAGE
NCURRENTPAGE
COMMANDCLAUSES
RANGEFROM
APAGESIMGS
LNDEVICETYPE
LCFILE
LNHANDLE
GETTEMPFILE
OUTPUTPAGE[
LNHPDF_ERR
LCHEX
HPDF_GETERROR
THIS
PDFHANDLE
HPDF_RESETERROR
LCDATA
LCRETURN
LCCONTENTS
LADUMMY
TCFONTSTYLE
LCNEWFONT
LNPOS
AFONTSREPLACED
CDEFAULTFONTm
LOBJTYPEMODE
OFOXYPREVIEWER
COMMANDCLAUSES
LOPENVIEWER
PREVIEW
TOFILE
CTARGETFILENAME
CDESTFILE
LCDESTFILE
COUTPUTPATH
LCFILE
_REPORTLISTENER
CANCELREPORT
QUIETMODE
LQUIETMODE
LEMBEDFONT
LPDFEMBEDFONTS
LCANPRINT
LPDFCANPRINT
LCANEDIT
LPDFCANEDIT
LCANCOPY
LPDFCANCOPY
LCANADDNOTES
LPDFCANADDNOTES
LENCRYPTDOCUMENT
LPDFENCRYPTDOCUMENT
CMASTERPASSWORD
CPDFMASTERPASSWORD
CUSERPASSWORD
CPDFUSERPASSWORD
LSHOWERRORS
LPDFSHOWERRORS
CSYMBOLFONTSLIST
CPDFSYMBOLFONTSLIST
CPDFAUTHOR
CPDFTITLE
CPDFSUBJECT
CPDFKEYWORDS
CPDFCREATOR
CDEFAULTFONT
CPDFDEFAULTFONT
CCODEPAGE
LNPGMODE
NPDFPAGEMODE
NPAGEMODE
GETWATERMARK0
LCFILE
LASIZEARRAY
LCFONTFACE
LIFONTSTYLE
_LSCHINESE
_LTCHINESE
_LJAPANESE
_LKOREAN
LNFONTHANDLE
HPDF_GETFONT
PDFHANDLE
CDEFAULTFONT
GETFONTSTYLENAME
CCODEPAGE
LCPDFFONT
SEARCHFONT
CLEARPDFERRORS
STRING
Italic
TISTYLE
LCFONTSTYLEW
FP_TMP_
TCTYPE
_CTEMPFOLDERF
FP_TMP_
TCFILE
_CTEMPFOLDER
GPBITMAP
\ffc\_gdiplus.vcx
GpBitmap
COLORMATRIX
PR_GdiplusHelper.Prg
GpAttrib
PR_GdiplusHelper.Prg
333333
333333
333333
TEMP5
Temp_WM_
image/
OFOXYPREVIEWER
LCWATERMARKIMAGE
LNWATERMARKTYPE
LNWATERMARKTRANSPARENCY
LNWATERMARKWIDTHRATIO
LNWATERMARKHEIGHTRATIO
CWATERMARKIMAGE
NWATERMARKTYPE
NWATERMARKTRANSPARENCY
NWATERMARKWIDTHRATIO
NWATERMARKHEIGHTRATIO
LUSINGWATERMARK
LOBMP
CREATEFROMFILE
LOATT
LCMATRIX
COLORMATRIX
APPLYCOLORMATRIX
LCTEMPFILE
LCTYPE
SAVETOFILE
_CWMPICTURE
LNWIDTH
LNHEIGHT
LNPGWIDTH
LNPGHEIGHT
GETPAGEWIDTH
GETPAGEHEIGHT
NPAGEHEIGHT
NPAGEWIDTH
_NWMX
_NWMY
_NWMW
_NWMH2
GetSystemDefaultLangID
kernel32
GETSYSTEMDEFAULTLANGID
KERNEL32
LNLANGID
NSYSTEMLANGID
GETLANGUAGEFROMSYSTEM
THIS
CLEARDLLS
UPDATEPROPERTIES3
STRING
EXCEPTION
_TempDynamics
_TempDynamics
SET CONSOLE &llConsole.
SET TALK &llTalk.
LDEFAULTMODE
WAITFORNEXTREPORT
OTEMPIMAGESCOLLECTION
LCITEM
LOEXC
ISTEMPFILE
ODYNAMICS
LLCONSOLE
LLTALK
_LSETCONSOLE
_LSETTALK
LCFILE
APAGESIMGS
Collection
Courier New
Courier
Courier New Bold
Courier-Bold
Courier New Italic
Courier-Oblique
Courier New Bold Italic
Courier-BoldOblique
Monotype Sorts
ZapfDingbats
Wingdings
ZapfDingbats
Arial
Helvetica
Arial Bold
Helvetica-Bold
Arial Italic
Helvetica-Oblique
Arial Bold Italic
Helvetica-BoldOblique
Times New Roman
Times-Roman
Times New Roman Bold
Times-Bold
Times New Roman Italic
Times-Italic
Times New Roman Bold Italic
Times-BoldItalic
Courier
Courier
Courier Bold
Courier-Bold
Courier Italic
Courier-Oblique
Courier Bold Italic
Courier-BoldOblique
Helvetica
Helvetica
Helvetica Bold
Helvetica-Bold
Helvetica Italic
Helvetica-Oblique
Helvetica Bold Italic
Helvetica-BoldOblique
Times-Roman
Times-Roman
Times-Roman Bold
Times-Bold
Times-Roman Italic
Times-Italic
Times-Roman Bold Italic
Times-BoldItalic
Consolev
Talkv
WING-DINGS
WEBDINGS
BARRAS BIRO
PF BARCODE 128
BARRA25
BARRA25I
BARRA39
BARRAEAN8
BARRAEAN13
BARRA128B
IDAUTOMATIONHC39M
PF BARCODE 39
PF EAN P36
PF EAN P72
PF INTERLEAVED 2 of 5
PF INTERLEAVED 2 OF 5 WIDE
PF INTERLEAVED 2 OF 5 TEXT
CODE 128AB
CODE 128AB SHORT
CODE 128AB TALL
CODE 128AB HR
CODE 128AB SHORT
CODE 128AB TALL HR
CODE 128C
CODE 128C SHORT
CODE 128C TALL
CODE 128C HR
CODE 128C HR SHORT
CODE 128C HR TALL
CODIGO DE BARRAS CYT
C39HRP24DHTT
C39HRP48DHTT
INTERLEAVED 2OF5 NT
3 of 9 Barcode
windir5
Courier
Helvetica
Times-Roman
Helvetica
LDEFAULTMODE
OACTIVELISTENER
OFONTS
AFONTSSYMBOL
ADDPDFSTANDARDFONTS
DECLAREDLL
CCODEPAGE
LREPLACEFONTS
AFONTSREPLACED
_LSETCONSOLE
_LSETTALK
LNFONTS
LNFONTSTOADD
CSYMBOLFONTSLIST
_CTEMPFOLDER
_CWINFOLDER
LCDEFAULTFONT
CDEFAULTFONT
STRING
EXCEPTION
LABEL:
FIELD:
PICTURE:
RECTANGLE
NFRXRECNO
NLEFT
NWIDTH
NHEIGHT
NOBJECTCONTINUATIONTYPE
CCONTENTSTOBERENDERED
GDIPLUSIMAGE
TWOPASSPROCESS
CURRENTPASS
LDEFAULTMODE
PAGENO
NGLOBALPGCOUNTER
NPGCOUNTER
LNRANGETO
COMMANDCLAUSES
RANGETO
RANGEFROM
NLEFT0
NTOP0
NWIDTH0
NHEIGHT0
LCCONTENTS
LOERROR
NPDFLEFT
NPDFTOP
NPDFWIDTH
NPDFHEIGHT
LNPAGENO
SETFRXDATASESSION
NCURRENTPAGE
LSTARTED
STARTPDFDOCUMENT
NLASTPAGEPROCCESED
ADDBLANKPAGE
NPAGEWIDTH
NPAGEHEIGHT
OFRX
LLSUCCESS
RESETDATASESSION
OBJTYPE
RESOID
COBJECTTORENDER
PROCESSLABEL
FONTFACE
FONTSTYLE
FONTSIZE
PENRED
PENGREEN
PENBLUE
FILLRED
FILLGREEN
FILLBLUE
FILLCHAR
OFFSET
PICTURE
STYLE
GETPICTUREFROMLISTENER
PROCESSFIELDS
STRETCH
_STAT2
LNWORDS
LNCHARWIDTH
LNLEN
LNCHARSALLOWED
LNCHARSTOINSERT
LCTEXT
CTEXTSTYLE
LNTXTWIDTH
PROCESSLINES
PENSIZE
PENPAT
PROCESSPICTURES
GENERAL
LCPICVAL
LCTMPIMG
FOXYGETIMAGE
_CTEMPFOLDER
LOEXC
CLEARPDFERRORS
PROCESSSHAPES
FILLPAT
LDEFAULTMODE
_CWMPICTURE
LOBJTYPEMODE
WAITFORNEXTREPORT
COMMANDCLAUSES
NOPAGEEJECT
LCFILE
CTARGETFILENAME
HPDF_FREE
PDFHANDLE
LSTARTED
_STAT
HPDF_SAVETOFILE
NPGCOUNTER
APAGESIMGS
CTEXTSTYLE
NCURRENTPAGE
NDIVISIONFACTOR
NGLOBALPGCOUNTER
NLASTPAGEPROCCESED
OPICTUREHANDLES
ODYNAMICS
OTEMPIMAGESCOLLECTION
LLSAVED
OFOXYPREVIEWER
LSAVED
LOPENVIEWER
SHELLEXEC
OACTIVELISTENER*
CURRENTDATASESSION
DATASESSIONv
FRXDataSession
FRXDATASESSION
RESETTODEFAULT
RESETDATASESSION
declaredll,
writepdfinformation[
searchfont
startpdfdocumentM
cleardlls
encryptpdf
addblankpage7,
addpdfstandardfontsR.
findfontfilename
cropimageD5
parseunderlinetextP:
processdynamics
processfieldsmC
processshapes!W
processlabel
processpicturesmw
processlines
getpicturehandle=
ispixelalpha
outputfromdata
getparheight
stringtopic
processpictures2t
_stat_assign
_errorinfo
_stat2_assign,
getpicturefromlistenery
getpageimg
clearpdferrors`
getimgtype
getdefaultfont
updateproperties
filesize
getfonthandle
getfontstylename
gettempfile
istempfile
getwatermarkx
getlanguagefromsystem
Destroy@
LoadReportn
UnloadReport
BeforeReport
Render
AfterReport
resetdatasession
setfrxdatasession
@PROCEDURE declaredll
*!*    * Check if the library HPDF.DLL is in the disk
*!*    LOCAL lcPDFFile
*!*    lcPDFFile = "libhpdf.dll"
*!*    IF EMPTY(SYS(2000,lcPDFFile))
*!*        MESSAGEBOX("Could not locate the library LIBHPDF.DLL ." + CHR(13) + ;
*!*                "The process can't continue. Make sure that you have the PDF library available, and that FoxyPreviewer is installed in a folder that has READ/WRITE access.", 16, "Error")
*!*        RETURN .F.
*!*    ENDIF
Declare Integer HPDF_New In libhpdf.dll Integer, Integer
Declare Integer HPDF_Free In libhpdf.dll Integer
Declare Integer HPDF_SaveToFile In libhpdf.dll Integer, String
Declare Integer HPDF_GetError In libhpdf.dll Integer
Declare Integer HPDF_ResetError In libhpdf.dll Integer
Declare Integer HPDF_SetPageMode In libhpdf.dll Integer, Integer
Declare Integer HPDF_GetCurrentPage In libhpdf.dll Integer
Declare Integer HPDF_AddPage In libhpdf.dll Integer
Declare Integer HPDF_Page_SetWidth In libhpdf.dll Integer, Single
Declare Integer HPDF_Page_SetHeight In libhpdf.dll Integer, Single
Declare Integer HPDF_GetFont In libhpdf.dll Integer, String, String
Declare String  HPDF_LoadTTFontFromFile In libhpdf.dll Integer, String, Integer
Declare Integer HPDF_GetEncoder In libhpdf.dll Integer, String
Declare Integer HPDF_GetCurrentEncoder In libhpdf.dll Integer
Declare Integer HPDF_SetCurrentEncoder In libhpdf.dll Integer, String
Declare Integer HPDF_Encoder_GetType In libhpdf.dll Integer
Declare Integer HPDF_Encoder_GetByteType In libhpdf.dll Integer, String, Integer
Declare String  HPDF_Encoder_GetUnicode In libhpdf.dll Integer, String
Declare Integer HPDF_Encoder_GetWritingMode In libhpdf.dll Integer
Declare Integer HPDF_UseJPEncodings In libhpdf.dll Integer
Declare Integer HPDF_UseKREncodings In libhpdf.dll Integer
Declare Integer HPDF_UseCNSEncodings In libhpdf.dll Integer
Declare Integer HPDF_UseCNTEncodings In libhpdf.dll Integer
Declare Integer HPDF_UseJPFonts In libhpdf.dll Integer
Declare Integer HPDF_UseKRFonts In libhpdf.dll Integer
Declare Integer HPDF_UseCNSFonts In libhpdf.dll Integer
Declare Integer HPDF_UseCNTFonts In libhpdf.dll Integer
Declare Integer HPDF_LoadPngImageFromFile In libhpdf.dll Integer, String
Declare Integer HPDF_LoadJpegImageFromFile In libhpdf.dll Integer, String
Declare Integer HPDF_Image_GetWidth In libhpdf.dll Integer
Declare Integer HPDF_Image_GetHeight In libhpdf.dll Integer
Declare Integer HPDF_SetInfoAttr In libhpdf.dll Integer, Integer, String
Declare Integer HPDF_SetPassword In libhpdf.dll Integer, String, String
Declare Integer HPDF_SetPermission In libhpdf.dll Integer, Integer
Declare Integer HPDF_SetEncryptionMode In libhpdf.dll Integer, Integer, Integer
Declare Integer HPDF_SetCompressionMode In libhpdf.dll Integer, Integer
Declare Integer HPDF_Font_MeasureText In libhpdf.dll Integer, String, Integer, Single, Single, Single, Single, Integer, Single @
Declare Single  HPDF_Page_GetWidth In libhpdf.dll Integer
Declare Single  HPDF_Page_GetHeight In libhpdf.dll Integer
Declare Single  HPDF_Page_TextWidth In libhpdf.dll Integer, String
Declare Integer HPDF_Page_GetCurrentFont In libhpdf.dll Integer
Declare Integer HPDF_Page_MeasureText In libhpdf.dll Integer, String, Single, Integer, Single @
Declare Integer HPDF_Page_GetRGBFill In libhpdf.dll Integer
Declare Integer HPDF_Page_GetCurrentFont In libhpdf.dll Integer
Declare Single  HPDF_Page_GetCurrentFontSize In libhpdf.dll Integer
Declare Integer HPDF_Page_SetLineWidth In libhpdf.dll Integer, Single
Declare Integer HPDF_Page_SetDash In libhpdf.dll Integer, String, Integer, Integer
Declare Integer HPDF_Page_MoveTo In libhpdf.dll Integer, Single, Single
Declare Integer HPDF_Page_LineTo In libhpdf.dll Integer, Single, Single
Declare Integer HPDF_Page_ClosePath In libhpdf.dll Integer
Declare Integer HPDF_Page_Rectangle In libhpdf.dll Integer, Single, Single, Single, Single
Declare Integer HPDF_Page_Concat In libhpdf.dll Integer, Single, Single, Single, Single, Single, Single
Declare Integer HPDF_Page_SetCharSpace In libhpdf.dll Integer, Single
Declare Integer HPDF_Page_SetWordSpace In libhpdf.dll Integer, Single
Declare Integer HPDF_Page_SetHorizontalScalling In libhpdf.dll Integer, Single
Declare Integer HPDF_Page_SetTextLeading In libhpdf.dll Integer, Single
Declare Integer HPDF_Page_SetTextRise In libhpdf.dll Integer, Single
Declare Integer HPDF_Page_Stroke In libhpdf.dll Integer
Declare Integer HPDF_Page_ClosePathStroke In libhpdf.dll Integer
Declare Integer HPDF_Page_Fill In libhpdf.dll Integer
Declare Integer HPDF_Page_FillStroke In libhpdf.dll Integer
Declare Integer HPDF_Page_EndPath In libhpdf.dll Integer
Declare Integer HPDF_Page_BeginText In libhpdf.dll Integer
Declare Integer HPDF_Page_EndText In libhpdf.dll Integer
Declare Integer HPDF_Page_SetFontAndSize In libhpdf.dll Integer, Integer, Single
Declare Integer HPDF_Page_SetTextRenderingMode In libhpdf.dll Integer, Integer
Declare Integer HPDF_Page_MoveTextPos In libhpdf.dll Integer, Single, Single
Declare Integer HPDF_Page_MoveToNextLine In libhpdf.dll Integer
Declare Integer HPDF_Page_SetRGBFill In libhpdf.dll Integer, Single, Single, Single
Declare Integer HPDF_Page_SetRGBStroke In libhpdf.dll Integer, Single, Single, Single
Declare Integer HPDF_Page_Ellipse In libhpdf.dll Integer, Single, Single, Single, Single
Declare Integer HPDF_Page_DrawImage In libhpdf.dll Integer, Integer, Single, Single, Single, Single
Declare Integer HPDF_Page_TextRect In libhpdf.dll Integer, Single, Single, Single, Single, String, Integer, Integer
Declare Integer HPDF_Page_TextOut In libhpdf.dll Integer, Single, Single, String
Declare Integer HPDF_Page_SetTextMatrix In libhpdf.dll Integer ,Single, Single, Single, Single, Single, Single
Declare Integer HPDF_Page_ShowText In libhpdf.dll Integer, String
Declare Integer HPDF_Page_CurveTo In libhpdf.dll Integer, Single, Single, Single, Single, Single, Single
* CChalom 2010-01-17
* Removed the dependance of having "System.App" from GdiPlusX
* Now using _Gdiplus.vcx that is already embedded in ReportOutput.App
* Added a GdiPlus.dll declaration missing in the embedded classes
* Function used in the CropImage method
DECLARE Long GdipCloneBitmapAreaI IN GDIPLUS.DLL AS pdfxGdipCloneBitmapAreaI Long x, Long y, Long nWidth, Long Height, Long PixelFormat, Long srcBitmap, Long @dstBitmap
* Function to revert strings
DECLARE STRING _strrev IN msvcrt20.dll as xfcRevertString STRING @
ENDPROC
PROCEDURE writepdfinformation
With This
    If !Empty(.cPdfAuthor) Then
        This._Stat = HPDF_SetInfoAttr(.pdfHandle, HPDF_INFO_AUTHOR, .cPdfAuthor)
    EndIf
    If !Empty(.cPdfTitle) Then
        This._Stat = HPDF_SetInfoAttr(.pdfHandle, HPDF_INFO_TITLE, .cPdfTitle)
    EndIf
    If !Empty(.cPdfSubject) Then
        This._Stat = HPDF_SetInfoAttr(.pdfHandle, HPDF_INFO_SUBJECT, .cPdfSubject)
    EndIf
    If !Empty(.cPdfKeyWords) Then
        This._Stat = HPDF_SetInfoAttr(.pdfHandle, HPDF_INFO_KEYWORDS, .cPdfKeywords)
    EndIf
    If !Empty(.cPdfCreator) Then
        This._Stat = HPDF_SetInfoAttr(.pdfHandle, HPDF_INFO_CREATOR, .cPdfCreator)
    EndIf
EndWith
ENDPROC
PROCEDURE searchfont
LPARAMETERS lcFontName As String, lnStyle As Integer &&, lnCodePage As Integer
LOCAL lnPos0
lnPos0 = ASCAN(This.aFontsSymbol, UPPER(lcFontName))
IF lnPos0 > 0
    RETURN ""
ENDIF
LOCAL lcRetorno As String, lcFontRegular as String, lcFontStyle as String
lcFontRegular = lcFontName
lcFontStyle   = ""
WITH This
    .cTextStyle=""
    If Bittest(lnStyle, 0) Then &&Bold
        lcFontStyle  = lcFontStyle + " Bold"
        * lcFontName = lcFontName + " Bold"
        .cTextStyle="B"
    EndIf
    If Bittest(lnStyle, 1) Then &&Italic
        lcFontStyle  = lcFontStyle + " Italic"
        * lcFontName = lcFontName + " Italic"
        .cTextStyle = .cTextStyle + "I"
    EndIf
    Local lbResult As Boolean, lnI As Integer
    *!* Look for the font in the current collection
    lcFontName = lcFontName + lcFontStyle
    For lnI=1 To .oFonts.Count
        If This.oFonts.GetKey(lnI)==lcFontName Then
            lbResult = .T.
            Exit
        EndIf
    EndFor
    * Check if the font is at the replacement list
    LOCAL lnReplCount, lnPos
    lnReplCount = ALEN(This.aFontsReplaced, 1)
    lnPos       = ASCAN(This.aFontsReplaced, lcFontName)
    IF lnPos > 0
        lnPos = (lnPos + 1) / 2
        lcFontName = This.aFontsReplaced(lnPos, 2)
        lbResult = .T.
    ENDIF
    IF !lbResult THEN && Font does NOT exist, let's add it to the collection
        LOCAL lcKey AS String, lcNewFont
        lcKey = .FindFontFileName(lcFontName)
        && If it didnt find the full name of the font, with style,
        && try at least to get the regular font
        IF EMPTY(lcKey)
            lcKey = .FindFontFileName(lcFontRegular)
            lcFontName = lcFontRegular
        ENDIF
        IF !Empty(lcKey) THEN
            .oFonts.Add(lcKey, lcFontName)
        ELSE && Can't add fonts
            lcNewFont  = This.GetDefaultFont(lcFontStyle) && "Times-Roman"
            DIMENSION This.aFontsReplaced(lnReplCount + 1, 2)
            This.aFontsReplaced(lnReplCount + 1, 1) = lcFontName
            This.aFontsReplaced(lnReplCount + 1, 2) = lcNewFont
            lcFontName = lcNewFont
        ENDIF
    ENDIF
    lcRetorno = .oFonts.Item(.oFonts.GetKey(lcFontName))
ENDWITH
RETURN lcRetorno
ENDPROC
PROCEDURE startpdfdocument
WITH This
    * CChalom 2010-01-20
    * Added "lStarted" property in order to allow merging reports
    SET TALK OFF
    SET CONSOLE OFF
    IF .pdfHandle = 0 AND NOT .lStarted
        LOCAL llError
        TRY
            .pdfHandle = HPDF_New(0, 0) && Create a New Document
            llError = .F.
        CATCH
            llError = .T.
        ENDTRY
        IF .pdfHandle = 0 OR llError
            * Check if the library HPDF.DLL is in the disk
            MESSAGEBOX("Could not load the library LIBHPDF.DLL ." + CHR(13) + ;
                "The process can't continue. Make sure that you have the PDF library available, and that FoxyPreviewer is installed in a folder that has READ/WRITE access.", 16, "Error")
            This.CancelReport()
            RETURN .F.
        ENDIF
        This._Stat = HPDF_SetCompressionMode(.pdfHandle, HPDF_COMP_ALL) &&Set Document Compression Method
        * KHentschel 2010-06-15
        * Added "nPageMode" property: how Document should be displayed HPDF_PAGE_MODE_USE_OUTLINE
        * HPDF_SetPageMode(.pdfHandle, HPDF_PAGE_MODE_USE_OUTLINE) &&Set the how Document should be displayed
        * Available possibilities:
        * #define    HPDF_PAGE_MODE_USE_NONE        0
        * #define    HPDF_PAGE_MODE_USE_OUTLINE        1
        * #define    HPDF_PAGE_MODE_USE_THUMBS        2
        * #define    HPDF_PAGE_MODE_FULL_SCREEN        3
        * Make a special call to enable the Chinese characters
        * http://libharu.sourceforge.net/fonts.html
        * GB-EUC-H    EUC-CN encoding
        * GB-EUC-V    Vertical writing virsion of GB-EUC-H
        * GBK-EUC-H   Microsoft Code Page 936 (lfCharSet 0x86) GBK encoding
        * GBK-EUC-V   Vertical writing virsion of GBK-EUC-H
        This._Stat = HPDF_SetPageMode(.pdfHandle, .nPageMode)
        .WritePdfInformation() &&Stablish PDF File Information
        .EncryptPdf()
        * Clear existing HPDF errors
        This.ClearPDFErrors()
        .AddBlankPage()
        * Clear existing HPDF errors
        This.ClearPDFErrors()
        * Identify Double-Byte languages
        * And prepare HPDF to use specific encodings, with some specific fonts
        LOCAL lcCodePage
        lcCodePage = UPPER(ALLTRIM(This.cCodePage))
        DO CASE
        CASE INLIST(lcCodePage, "GB-EUC-H", "GB-EUC-V", "GBK-EUC-H", "GBK-EUC-V", "CP936", "936", "EUC-CN")
            This._lSChinese = .T. && Simplified Chinese
            This.cDefaultFont = "SimSun"
            This._Stat = HPDF_UseCNSFonts(.pdfHandle)
            This._Stat = HPDF_UseCNSEncodings(.pdfHandle)
            IF "936" $ lcCodePage
                This.cCodePage = "GBK-EUC-H"
            ENDIF
        CASE INLIST(lcCodePage, "ETEN-B5-H", "ETEN-B5-V", "CP950", "950")
            This._lTChinese = .T. && Traditional Chinese
            This.cDefaultFont = "MingLiU"
            This._Stat = HPDF_UseCNTFonts(.pdfHandle)
            This._Stat = HPDF_UseCNTEncodings(.pdfHandle)
            IF "950" $ lcCodePage
                This.cCodePage = "ETen-B5-H"
            ENDIF
        CASE INLIST(lcCodePage, "90MS-RKSJ-H", "90MS-RKSJ-V", "90MSP-RKSJ-H", "EUC-H", "EUC-V", "CP932", "932")
            This._lJapanese = .T. && Japanese
            This.cDefaultFont = "MS-Mincyo"
            This._Stat = HPDF_UseJPFonts(.pdfHandle)
            This._Stat = HPDF_UseJPEncodings(.pdfHandle)
            IF "932" $ lcCodePage
                This.cCodePage = "90ms-RKSJ-H"   && 90ms-RKSJ-H, 90ms-RKSJ-V, 90msp-RKSJ-H
            ENDIF
        CASE INLIST(lcCodePage, "EUC-H", "EUC-V", "KSC-EUC-H", "KSC-EUC-V", "KSCMS-UHC-H", "KSCMS-UHC-HW-H", "KSCMS-UHC-HW-V", "CP949", "949")
            This._lKorean = .T. && Korean
            This.cDefaultFont = "DotumChe"
            This._Stat = HPDF_UseKRFonts(.pdfHandle)
            This._Stat = HPDF_UseKREncodings(.pdfHandle)
            IF "949" $ lcCodePage
                This.cCodePage = "KSC-EUC-H" && KSC-EUC-H, KSC-EUC-V, KSCms-UHC-H, KSCms-UHC-HW-H, KSCms-UHC-HW-V
            ENDIF
        CASE INLIST(lcCodePage, "CP1256", "1256") && Arabic
            This.cCodePage = "ISO8859-6"
            This.lRightToLeft = .T.
        OTHERWISE
            IF VAL(lcCodePage) > 0
                This.cCodePage = "CP" + lcCodePage
            ENDIF
        ENDCASE
        *!*    1 - "Simplified Chinese Encodings"
        *!*        CodePages: GB-EUC-H, GB-EUC-V, GBK-EUC-H, GBK-EUC-V, CP936
        *!*             SIMSUN Font as Default
        *!*             SIMHEI font will be available, but used only if selected, with these variations:
        *!*                    SimSun
        *!*                    SimSun,Bold
        *!*                    SimSun,Italic
        *!*                    SimSun,BoldItalic
        *!*                    SimHei
        *!*                    SimHei,Bold
        *!*                    SimHei,Italic
        *!*                    SimHei,BoldItalic
        *!*    2 - "Traditional Chinese Encodings"
        *!*        CodePages: ETen-B5-H, ETen-B5-V, CP950
        *!*            MINGLIU will be the ONLY font available, with these variations:
        *!*                   MingLiU
        *!*                   MingLiU,Bold
        *!*                   MingLiU,Italic
        *!*                   MingLiU,BoldItalic
        *!*
        *!*    3 - "Japanese Encodings"
        *!*        CodePages: 90ms-RKSJ-H, 90ms-RKSJ-V, 90msp-RKSJ-H, EUC-H, EUC-V, CP932
        *!*            MS-MINCYO as Default, with these variations:
        *!*                   MS-Mincyo
        *!*                   MS-Mincyo,Bold
        *!*                   MS-Mincyo,Italic
        *!*                   MS-Mincyo,BoldItalic
        *!*                   MS-Gothic
        *!*                   MS-Gothic,Bold
        *!*                   MS-Gothic,Italic
        *!*                   MS-Gothic,BoldItalic
        *!*                   MS-PMincyo
        *!*                   MS-PMincyo,Bold
        *!*                   MS-PMincyo,Italic
        *!*                   MS-PMincyo,BoldItalic
        *!*                   MS-PGothic
        *!*                   MS-PGothic,Bold
        *!*                   MS-PGothic,Italic
        *!*                   MS-PGothic,BoldItalic
        *!*
        *!*    4 - "Korean Encodings"
        *!*        CodePages: KSC-EUC-H, KSC-EUC-V, KSCms-UHC-H, KSCms-UHC-HW-H, KSCms-UHC-HW-V, CP949
        *!*            DOTUMCHE as Default, with these variations:
        *!*                   DotumChe
        *!*                   DotumChe,Bold
        *!*                   DotumChe,Italic
        *!*                   DotumChe,BoldItalic
        *!*                   Dotum
        *!*                   Dotum,Bold
        *!*                   Dotum,Italic
        *!*                   Dotum,BoldItalic
        *!*                   BatangChe
        *!*                   BatangChe,Bold
        *!*                   BatangChe,Italic
        *!*                   BatangChe,BoldItalic
        *!*                   Batang
        *!*                   Batang,Bold
        *!*                   Batang,Italic
        *!*                   Batang,BoldItalic
        .lStarted=.T.
    ENDIF
ENDWITH
ENDPROC
PROCEDURE cleardlls
Clear Dlls "HPDF_New","HPDF_Free","HPDF_SaveToFile","HPDF_GetError","HPDF_ResetError","HPDF_SetPageMode",;
"HPDF_GetCurrentPage","HPDF_AddPage","HPDF_Page_SetWidth","HPDF_Page_SetHeight","HPDF_GetFont","HPDF_LoadTTFontFromFile",;
"HPDF_GetEncoder","HPDF_GetCurrentEncoder","HPDF_SetCurrentEncoder","HPDF_Encoder_GetType","HPDF_Encoder_GetByteType",;
"HPDF_Encoder_GetUnicode","HPDF_Encoder_GetWritingMode","HPDF_UseJPEncodings","HPDF_UseKREncodings","HPDF_UseCNSEncodings",;
"HPDF_UseCNTEncodings","HPDF_LoadPngImageFromFile","HPDF_LoadJpegImageFromFile","HPDF_Image_GetWidth","HPDF_Image_GetHeight",;
"HPDF_SetInfoAttr","HPDF_SetPassword","HPDF_SetPermission","HPDF_SetEncryptionMode","HPDF_SetCompressionMode",;
"HPDF_Font_MeasureText","HPDF_Page_GetWidth","HPDF_Page_GetHeight","HPDF_Page_TextWidth","HPDF_Page_GetCurrentFont",;
"HPDF_Page_MeasureText","HPDF_Page_GetRGBFill","HPDF_Page_GetCurrentFont","HPDF_Page_GetCurrentFontSize","HPDF_Page_SetLineWidth",;
"HPDF_Page_SetDash","HPDF_Page_MoveTo","HPDF_Page_LineTo","HPDF_Page_ClosePath","HPDF_Page_Rectangle","HPDF_Page_Concat",;
"HPDF_Page_SetCharSpace","HPDF_Page_SetWordSpace","HPDF_Page_SetHorizontalScalling","HPDF_Page_SetTextLeading",;
"HPDF_Page_SetTextRise","HPDF_Page_Stroke","HPDF_Page_ClosePathStroke","HPDF_Page_Fill","HPDF_Page_FillStroke",;
"HPDF_Page_EndPath","HPDF_Page_BeginText","HPDF_Page_EndText","HPDF_Page_SetFontAndSize","HPDF_Page_SetTextRenderingMode",;
"HPDF_Page_MoveTextPos","HPDF_Page_MoveToNextLine","HPDF_Page_SetRGBFill","HPDF_Page_SetRGBStroke","HPDF_Page_Ellipse",;
"HPDF_Page_DrawImage","HPDF_Page_TextRect","HPDF_Page_TextOut","HPDF_Page_SetTextMatrix","HPDF_Page_ShowText","HPDF_Page_CurveTo"
ENDPROC
PROCEDURE encryptpdf
With This
    If .lEncryptDocument Then &&Protect the document with password
        If !Empty(.cMasterPassword) Then
            If .cMasterPassword!=.cUserPassword Then &&User Password and Master Password can't be the same
                HPDF_SetPassword(.pdfHandle, .cMasterPassword, .cUserPassword)
                Local lnPermit As Integer
                lnPermit=0
                && Establish PDF files permissions
                If .lCanPrint Then
                    lnPermit = lnPermit + HPDF_ENABLE_PRINT
                EndIf
                If .lCanEdit Then
                    lnPermit = lnPermit + HPDF_ENABLE_EDIT_ALL
                EndIf
                If .lCanCopy Then
                    lnPermit = lnPermit + HPDF_ENABLE_COPY
                EndIf
                If .lCanAddNotes Then
                    lnPermit = lnPermit + HPDF_ENABLE_EDIT
                EndIf
                This._Stat = HPDF_SetPermission(.pdfHandle, lnPermit)
                If .nEncriptionLevel!=5 Then
                    This._Stat = HPDF_SetEncryptionMode(.pdfHandle, HPDF_ENCRYPT_R3, .nEncriptionLevel)
                Else
                    This._Stat = HPDF_SetEncryptionMode(.pdfHandle, HPDF_ENCRYPT_R2, .nEncriptionLevel)
                EndIf
            EndIf
        EndIf
    ENDIF
EndWith
ENDPROC
PROCEDURE addblankpage
*!* Change page coordinates and measure system
WITH This
    IF .lDefaultMode
        LOCAL lnWidth, lnHeight
        lnWidth = .GetPageWidth()
        lnHeight = .GetPageHeight()
        .nPageHeight = (lnHeight / 960) * 72
        .nPageWidth  = (lnWidth  / 960) * 72
    ENDIF
    .oPage = HPDF_AddPage(.pdfHandle) && Add a New Page
    This._Stat = HPDF_Page_SetWidth(.oPage,  .nPageWidth ) && Establish the Width of the page
    This._Stat = HPDF_Page_SetHeight(.oPage, .nPageHeight) && Establish the Height of the page
ENDWITH
* Draw watermark
IF NOT EMPTY(This._cWMpicture) AND (This._nWmw > 20) AND (This._nWmh > 20)
    This.ProcessPictures(This._nwmy, This._nWmx, This._nWmw, This._nWmh, This._cWMpicture,;
        0, 0, 2, "")
*Lparameters nTop As Number,nLeft As Number,nWidth As Number,nHeight As Number,lcContents As String,;
*    GDIPlusImage As Number, lnOffset As Integer, liPictureMode As Integer, lcStyle As String
ENDIF
ENDPROC
PROCEDURE addpdfstandardfonts
With This.oFonts
    .Add("Courier", "Courier")
    .Add("Courier-Bold", "Courier-Bold")
    .Add("Courier-Oblique", "Courier-Oblique")
    .Add("Courier-BoldOblique", "Courier-BoldOblique")
    .Add("Helvetica", "Helvetica")
    .Add("Helvetica-Bold", "Helvetica-Bold")
    .Add("Helvetica-Oblique", "Helvetica-Oblique")
    .Add("Helvetica-BoldOblique", "Helvetica-BoldOblique")
    .Add("Times-Roman", "Times-Roman")
    .Add("Times-Bold", "Times-Bold")
    .Add("Times-Italic", "Times-Italic")
    .Add("Times-BoldItalic", "Times-BoldItalic")
    .Add("Symbol", "Symbol")
    .Add("ZapfDingbats", "ZapfDingbats")
EndWith
ENDPROC
PROCEDURE findfontfilename
LPARAMETERS lcFontName As String
Local lcFileName As String, lcFolder As String
lcFolder = Iif(Os(3) < "5","SOFTWARE\Microsoft\Windows\CurrentVersion\Fonts","Software\Microsoft\Windows NT\CurrentVersion\Fonts")
IF VARTYPE(This.oRegistry)!="O" THEN
    This.oRegistry = NewObject("Registry", This.ClassLibrary)
ENDIF
lcFileName = This._cWinFolder + "Fonts\" + This.oRegistry.ReadRegistryString(HKEY_LOCAL_MACHINE,lcFolder,ALLTRIM(lcFontName) + " (TrueType)")
IF ISNULL(lcFileName)
    lcFileName = This._cWinFolder + "Fonts\" + This.oRegistry.ReadRegistryString(HKEY_LOCAL_MACHINE,lcFolder,ALLTRIM(lcFontName))
    IF ISNULL(lcFileName)
        LOCAL lnLangID
        lnLangID = This.nSystemLangID
        *!* 1029 Czech
        *!* 1031 German
        *!* 1033 English (Default)
        *!* 1034 Spanish
        *!* 1036 French
        *!* 1040 Italian
        *!* 1045 Polish
        *!* 1046 Portuguese (Brazilian)
        * http://www.science.co.il/language/locale-codes.asp
        DO CASE
        CASE lnLangID = 1046 && Portuguese
            lcFontName = STRTRAN(lcFontName, "Bold" , "Negrito")
            lcFontName = STRTRAN(lcFontName, "Italic", "It
lico")
        CASE lnLangID = 1034 && Spanish
            lcFontName = STRTRAN(lcFontName, "Bold" , "negrita")
            lcFontName = STRTRAN(lcFontName, "Italic", "cursiva")
        CASE lnLangID = 1036 && French
            lcFontName = STRTRAN(lcFontName, "Bold" , "Gras")
            lcFontName = STRTRAN(lcFontName, "Italic", "Italique")
        OTHERWISE
        ENDCASE
        lcFileName = This._cWinFolder + "Fonts\" + This.oRegistry.ReadRegistryString(HKEY_LOCAL_MACHINE,lcFolder,ALLTRIM(lcFontName) + " (TrueType)")
    ENDIF
ENDIF
LOCAL luReturn
luReturn = ""
If !ISNULL(lcFileName) THEN
        luReturn = HPDF_LoadTTFontFromFile(This.pdfHandle, lcFileName, IIF(This.lEmbedFont,1,0))
    CATCH TO loExc
        * SET STEP ON
    ENDTRY
ENDIF
DEBUGOUT lcFontName, lcFileName, luReturn
This.ClearPDFErrors()
RETURN luReturn
*********************************************
*!*            TRY
*!*                Declare String  HPDF_LoadType1FontFromFile In libhpdf.dll Integer, String, String
*!*                luReturn =      HPDF_LoadType1FontFromFile(This.pdfHandle, lcFileName, NULL)
*!*            CATCH TO loExc2
*!*                * SET STEP ON
*!*            ENDTRY
*********************************************
*!*    LOCAL lcRegKey
*!*    lcRegKey = ;
*!*        "HKEY_LOCAL_MACHINE\" + ;
*!*        ADDBS(lcFolder) + ;
*!*        lcFontName + " (TrueType)"
*!*    LOCAL loWSH AS wscript.shell
*!*    loWSH = CREATEOBJECT("wscript.shell")
*!*    lcFileName = loWSH.RegRead(lcRegKey)
*!*    * ? loWSH.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId")
*!*    lcFileName = GETENV("windir") + "\Fonts\" + lcFileName
ENDPROC
PROCEDURE cropimage
LPARAMETERS lcFile As String, tnX, tnY, tnWidth As Integer, tnHeight As Integer, tlFile
* CChalom 2010-01-17
* Removed the dependance of having "System.App" from GdiPlusX
* Now using _Gdiplus.vcx that is already embedded in ReportOutput.App
*!* Original code
*!*    If Vartype(_Screen.System)!="O" Then
*!*        Do System.App &&Initializes GDIPLUSX
*!*    EndIf
*!*    With _Screen.System.Drawing
*!*        .Graphics.PageUnit = .GraphicsUnit.Point
*!*        Local loBmp As xfcBitmap
*!*        loBmp = .Bitmap.FromFile(lcFile)
*!*        * Crop Image
*!*        Local loCropped As xfcBitmap, loRect As xfcRectangle
*!*        loRect = .Rectangle.New(0, 0, tnWidth, tnHeight)
*!*        loCropped = loBmp.Clone(loRect)
*!*        lcFile = Substr(lcFile, 1, Len(lcFile)-3)+"Png"
*!*        loCropped.Save(lcFile, .Imaging.ImageFormat.Png)
*!*        Return lcFile
*!*    ENDWITH
IF NOT FILE(lcFile)
    RETURN .F.
ENDIF
Local loBmp As gpBitmap OF HOME() + "ffc\_gdiplus.vcx"
loBmp = NEWOBJECT("GpBitmap", "_GdiPlus.vcx")
loBmp.CreateFromFile(lcFile)
tnHeight = MIN(tnHeight, loBmp.ImageHeight)
tnWidth  = MIN(tnWidth , loBmp.ImageWidth)
LOCAL lhBitmap, lnStatus
lhBitmap = 0
lnStatus = pdfxGdipCloneBitmapAreaI(tnX, tnY, CEILING(tnWidth), CEILING(tnHeight), loBmp.PixelFormat, loBmp.GetHandle(), @lhBitmap)
IF (lhBitmap = 0) OR (lnStatus <> 0)
    loBmp = NULL
    lnHandle = 0
    RETURN lnHandle
ENDIF
Local loCropped As gpBitmap OF HOME() + "ffc\_gdiplus.vcx"
loCropped = NEWOBJECT("GpBitmap", "_GdiPlus.vcx")
loCropped.SetHandle(lhBitmap, .T.)  && Owns handle, please destroy the Bmp object when releasing
loCropped.SetResolution(loBmp.HorizontalResolution, loBmp.VerticalResolution)
LOCAL lcEXT, lcEncoder
lcEXT = UPPER(JUSTEXT(lcFile))
lcEncoder = IIF(lcEXT = "PNG", "image/png", "image/jpeg")
LOCAL lcCroppedFile
lcCroppedFile = This.GetTempFile(lcEXT)
loCropped.SaveToFile(lcCroppedFile, lcEncoder)
loCropped = NULL
loBMP     = NULL
IF tlFile
    RETURN lcCroppedFile
ENDIF
IF lcEXT = "PNG"
    lnHandle = HPDF_LoadPngImageFromFile(This.pdfHandle, lcCroppedFile)
    lnHandle = HPDF_LoadJpegImageFromFile(This.pdfHandle, lcCroppedFile)
ENDIF
    IF This.IsTempFile(lcFile)
        DELETE FILE (lcFile)
    ENDIF
CATCH TO loExc
    * SET STEP ON
ENDTRY
    IF This.IsTempFile(lcCroppedFile)
        DELETE FILE (lcCroppedFile)
    ENDIF
CATCH TO loExc
    * SET STEP ON
ENDTRY
RETURN lnHandle
ENDPROC
PROCEDURE parseunderlinetext
Lparameters lcText As String, nWidth As Number, lnAncho As Number
Local lnI As Integer, lcTemp As String, lnLen As Integer, lcRetorno As String
lnLen = Len(lcText)
lcTemp = ""
lcRetorno = ""
For lnI=1 To lnLen
    If HPDF_Page_TextWidth(This.oPage, lcTemp + Substr(lcText, lnI, 1)) < nWidth Then
        lcTemp = lcTemp + Substr(lcText, lnI, 1)
    Else
        lcRetorno = lcRetorno + lcTemp + " "
        lcTemp = ""
    EndIf
EndFor
Return lcRetorno + lcTemp
ENDPROC
PROCEDURE processdynamics
LParameters lcStyle As String, lcType As String
Local lbReturn As Boolean, lcCursor As String
lcCursor=Select()
    XMLToCursor(lcStyle, "_TempDynamics")
Catch
    lbReturn = .F.
EndTry
This.oDynamics = Null
* CChalom 2010-06-15
* Included verification for IF USED("_TempDynamics")
* for the case of an invalid XML
IF USED("_TempDynamics") AND Reccount("_TempDynamics") > 0 Then
    This.oDynamics = CreateObject("Empty")
    Select _TempDynamics
    If InList(lcType,"FIELD","SHAPE","PICTURE")
        Scan For !Empty(_TempDynamics.ExecWhen)
            Try
                If Evaluate(_TempDynamics.ExecWhen)
                    Do Case
                        Case lcType="FIELD"
                            AddProperty(This.oDynamics, "cValue", _TempDynamics.Script) &&Corresponds to the Replace Expression With
                            AddProperty(This.oDynamics, "cExecWhen", _TempDynamics.ExecWhen) &&Corresponds to the expresion to be evaluate it
                            AddProperty(This.oDynamics, "cFontName", _TempDynamics.FName) &&Corresponds to the font name applied if expresion is true
                            AddProperty(This.oDynamics, "nFontSize", Iif(Vartype(_TempDynamics.FSize)="N", _TempDynamics.FSize, 0)) &&Corresponds to the font size applied if expresion is true
                            AddProperty(This.oDynamics, "nFontStyle",Iif(Vartype(_TempDynamics.FStyle)="N", _TempDynamics.FStyle, 0)) &&Corresponds to the font style applied if expresion is true
                            If Cast(_TempDynamics.PenRgb As I)!= -1 Then
                                *!* This color transformation was taken from samples provided by
etin Bas
                                AddProperty(This.oDynamics, "nPenRed", Bitrshift(Bitand(Iif(Vartype(_TempDynamics.PenRgb)="C", Int(Val(_TempDynamics.PenRgb)), _TempDynamics.PenRgb), 0x0000FF),0))
                                AddProperty(This.oDynamics, "nPenGreen", Bitrshift(Bitand(Iif(Vartype(_TempDynamics.PenRgb)="C", Int(Val(_TempDynamics.PenRgb)), _TempDynamics.PenRgb), 0x00FF00),8))
                                AddProperty(This.oDynamics, "nPenBlue", Bitrshift(Bitand(Iif(Vartype(_TempDynamics.PenRgb)="C", Int(Val(_TempDynamics.PenRgb)), _TempDynamics.PenRgb), 0xFF0000),16))
                            Else
                                AddProperty(This.oDynamics, "nPenRed", -1)
                                AddProperty(This.oDynamics, "nPenGreen", -1)
                                AddProperty(This.oDynamics, "nPenBlue", -1)
                            EndIf
                            If Cast(_TempDynamics.FillRgb As I)!= -1 Then
                                AddProperty(This.oDynamics, "nFillRed", Bitrshift(Bitand(Iif(Vartype(_TempDynamics.FillRgb)="C", Int(Val(_TempDynamics.FillRgb)), _TempDynamics.FillRgb), 0x0000FF),0))
                                AddProperty(This.oDynamics, "nFillGreen", Bitrshift(Bitand(Iif(Vartype(_TempDynamics.FillRgb)="C", Int(Val(_TempDynamics.FillRgb)), _TempDynamics.FillRgb), 0x00FF00),8))
                                AddProperty(This.oDynamics, "nFillBlue", Bitrshift(Bitand(Iif(Vartype(_TempDynamics.FillRgb)="C", Int(Val(_TempDynamics.FillRgb)), _TempDynamics.FillRgb), 0xFF0000),16))
                            Else
                                AddProperty(This.oDynamics, "nFillRed", -1)
                                AddProperty(This.oDynamics, "nFillGreen", -1)
                                AddProperty(This.oDynamics, "nFillBlue", -1)
                            EndIf
                            lbReturn = .T.
                            Exit
                        Case lcType="SHAPE" Or lcType="IMAGE"
                            AddProperty(This.oDynamics, "cExecWhen", _TempDynamics.ExecWhen) &&Corresponds to the expresion to be evaluate it
                            AddProperty(This.oDynamics, "nWidth", Iif(Vartype(_TempDynamics.Width)="C", Int(Val(_TempDynamics.Width)), _TempDynamics.Width)) &&Corresponds to the width assigned
                            AddProperty(This.oDynamics, "nHeight", Iif(Vartype(_TempDynamics.Height)="C", Int(Val(_TempDynamics.Height)), _TempDynamics.Height)) &&Corresponds to the width assigned
                            lbReturn = .T.
                            Exit
                    EndCase
                EndIf
            Catch
                lbReturn = .F.
            EndTry
        EndScan
    EndIf
    *!* No check for Rotation Values
    Scan For _TempDynamics.Name="Microsoft.VFP.Reporting.Builder.Rotate"
        AddProperty(This.oDynamics, "nRotationDegree", Iif(Vartype(_TempDynamics.Execute)="C", Int(Val(_TempDynamics.Execute)), _TempDynamics.Execute))
        lbReturn = .T.
    EndScan
    Select (lcCursor)
    Return lbReturn
    lbReturn = .F.
EndIf
Select (lcCursor)
Return lbReturn
ENDPROC
PROCEDURE processfields
LPARAMETERS lcFontFace As String, liFontStyle As Integer, lnFontSize As Number, lnPenRed As Number, lnPenGreen As Number,;
    lnPenBlue As Number, lnFillRed As Number, lnFillGreen As Number, lnFillBlue As Number, nLeft As Number, nTop As Number,;
    lcContents As String, lcFillChar As String, lnOffset As Integer, lbStretch As Boolean, lnCodePage As Integer, nHeight As Number, ;
    nWidth As Integer, lcStyle As String, lnMode As Integer, lcUser As String
IF EMPTY(lcContents)
    RETURN .T.
ENDIF
LOCAL lcOrigContents, lnTimes, lcTabRepl
lnTimes        = 8
lcTabRepl      = REPLICATE(CHR(160),lnTimes)
lcOrigContents = lcContents
lcOrigContents = STRTRAN(lcOrigContents,CHR(9), lcTabRepl) && Replaces the <TAB> With a CHR(160) to keep paragraphs
lcContents     = STRTRAN(lcContents, CHR(9), lcTabRepl)
IF This.lRightToLeft
    lcContents = xfcRevertString(lcContents + CHR(0))
ENDIF
LOCAL lnOcurrences As Integer, lnAncho As Integer, lnFontHandle As Integer, lnAlto As Integer, lcUnderLineText As String, lnRotate As Integer, lnCharWidth As Integer
lnRotate = 0
WITH This
    *!* Code to handle the Dynamic Options added in SP2
    IF !Empty(lcStyle) ;
            AND (This.lDefaultMode OR (VARTYPE(_goHelper) = "O" AND USED(_goHelper.oListener.cMainAlias)))
        && AND This.lDefaultMode Then && Dynamic Properties are stored here as xml
        TRY
            * Get the current field data
            IF NOT This.lDefaultMode
                LOCAL lcAlias, lcMainAlias, lnRec
                lnRec = DBFRECNO
                lcAlias = ALIAS()
                lcMainAlias = _goHelper.oListener.cMainAlias
                SELECT(lcMainAlias)
                GO (lnRec)
            ENDIF
            If .ProcessDynamics(lcStyle, "FIELD") Then
                lcFontFace = Iif(PemStatus(.oDynamics, "cFontName", 5), .oDynamics.cFontName, lcFontFace)
                lnFontSize = Iif(PemStatus(.oDynamics, "nFontSize",5),  Iif(.oDynamics.nFontSize!=0, .oDynamics.nFontSize, lnFontSize), lnFontSize)
                liFontStyle = Iif(PemStatus(.oDynamics, "nFontStyle",5), Iif(.oDynamics.nFontStyle!=0, .oDynamics.nFontStyle, liFontStyle), liFontStyle)
                lcContents = Iif(PemStatus(.oDynamics, "cValue",5), Iif(!Empty(.oDynamics.cValue), .oDynamics.cValue, lcContents), lcContents)
                lnPenRed = Iif(PemStatus(.oDynamics, "nPenRed",5), .oDynamics.nPenRed, lnPenRed)
                lnPenBlue = Iif(PemStatus(.oDynamics, "nPenBlue",5), .oDynamics.nPenBlue, lnPenBlue)
                lnPenGreen = Iif(PemStatus(.oDynamics, "nPenGreen",5), .oDynamics.nPenGreen, lnPenGreen)
                lnFillRed = Iif(PemStatus(.oDynamics, "nFillRed",5), .oDynamics.nFillRed, lnFillRed)
                lnFillBlue = Iif(PemStatus(.oDynamics, "nFillBlue",5), .oDynamics.nFillBlue, lnFillBlue)
                lnFillGreen = Iif(PemStatus(.oDynamics, "nFillGreen",5), .oDynamics.nFillGreen, lnFillGreen)
                lnRotate = Iif(PemStatus(.oDynamics, "nRotationDegree", 5), .oDynamics.nRotationDegree, 0)
            EndIf
            * Restore the driving table
            IF NOT This.lDefaultMode
                SELECT(lcAlias)
            ENDIF
        CATCH TO loExc
            * SET STEP ON
        ENDTRY
    ENDIF
    If lnFillRed=-1 And lnFillBlue=-1 And lnFillGreen=-1 Then &&Default Colors of VFP Report Designer
        Store 255 To lnFillRed, lnFillBlue, lnFillGreen
    EndIf
    * Draw the field background
    IF lnMode = 0 && Mode: 0 = Opaque background; 1 = Transparent
        lnPenSize = 0
        lnPenPat  = 0
        lnFillPat = 1
        lcStyle   = ""
        LOCAL lnObjContType
        lnObjContType = 0
        This.ProcessShapes(lnFillRed, lnFillGreen, lnFillBlue, ;
            lnFillRed, lnFillGreen, lnFillBlue, ;
            nLeft, nTop, nWidth, nHeight, lnOffset, ;
            lnPenSize, lnPenPat, lnFillPat, lcStyle, lnMode, lnObjContType, .T.)
        && Last parameter is to inform 'ProcessShapes' not to draw a line border
    ENDIF
    nTop = .nPageHeight - nTop && Change the Top Coordinates Because of the PDF Coordinate System
    * Get the font Handle
    * If no font is retrieved, then draw the string as an image
    lnFontHandle = This.Getfonthandle(lcFontFace, liFontStyle)
    IF lnFontHandle = 0
        LOCAL lcImage, lnTxtW, lnTxtH
        lnTxtW  = nWidth
        lnTxtH  = nHeight
        lcImage = This.StringToPic(lcContents, lcFontFace, lnFontSize, ;
            IIF(lnPenRed   = -1, 0, lnPenRed), ;
            IIF(lnPenGreen = -1, 0, lnPenGreen), ;
            IIF(lnPenBlue  = -1, 0, lnPenBlue), ;
            0, @lnTxtW, @lnTxtH)
        This.ProcessPictures2(lcImage, nLeft, nTop, lnTxtW, lnTxtH)
        RETURN
    ENDIF
    This._Stat = HPDF_Page_BeginText(.oPage) &&Change to Text Mode
    This._Stat = HPDF_Page_SetFontAndSize(.oPage, lnFontHandle, lnFontSize) &&Find and choose the font
    lnCharWidth = FontMetric(7, lcFontFace, lnFontSize, .cTextStyle)
    IF lnPenRed=-1 And lnPenBlue=-1 And lnPenGreen=-1 Then &&Default Colors of VFP Report Designer
        STORE 0 TO lnPenBlue, lnPenRed, lnPenGreen
    ENDIF
    lnAncho = HPDF_Page_TextWidth(.oPage, lcContents) &&Get the size of the text width
    lnAlto  = HPDF_Page_GetCurrentFontSize(.oPage) && Get the height of the current font
    * Not precise at all
    LOCAL lnFontHeight2
    lnFontHeight2 = FontMetric(1, lcFontFace, lnFontSize, .cTextStyle)
    * Process Underline, currently being tested
    IF BITTEST(liFontStyle, 2) THEN
        lcUnderLineText = REPLICATE("_", ROUND(lnAncho / HPDF_Page_TextWidth(.oPage, "_"), 0))
        IF HPDF_Page_TextWidth(.oPage, lcUnderLineText) > nWidth THEN
            lcUnderLineText = .ParseUnderLineText(lcUnderLineText, nWidth, lnAncho)
        ENDIF
        .lUnderline = .T.
    ELSE
        .lUnderline = .F.
    ENDIF
    This._Stat = HPDF_Page_SetRGBFill(.oPage, lnPenRed / 255, lnPenGreen / 255, lnPenBlue / 255) &&Convert colors to PDF mode
    This._Stat = HPDF_Page_SetTextLeading(.oPage, lnFontSize) && Space between lines
    IF lnRotate = 0 THEN && No Text Rotation
*!*            LOCAL lnLines
*!*            lnLines = CEILING(nHeight / lnFontHeight2)
*!*            IF lbStretch OR (CHR(10) $ lcContents) && OR (lnLines > 1)
*!*                nHeight = This.GetParHeight(lcContents, lcFontFace, lnFontSize, liFontStyle, nLeft, nTop, nWidth, nHeight)
*!*            ELSE
*!*                * 2010-12-19 - by Fabio Vieira
*!*                DO WHILE HPDF_Page_TextWidth(.oPage, lcContents) > nWidth
*!*                    lcContents = PADR(lcContents,LEN(lcContents)-1)
*!*                ENDDO
*!*                lnAlto = 0
*!*            ENDIF
        *!*    HPDF_Font_MeasureText()
        *!*    HPDF_UINT HPDF_Font_MeasureText (HPDF_Font          font,
        *!*                                     const HPDF_BYTE   *text,
        *!*                                     HPDF_UINT          len,
        *!*                                     HPDF_REAL          width,
        *!*                                     HPDF_REAL          font_size,
        *!*                                     HPDF_REAL          char_space,
        *!*                                     HPDF_REAL          word_space,
        *!*                                     HPDF_BOOL          wordwrap,
        *!*                                     HPDF_REAL         *real_width);
        *!*
        *!* Declare Integer HPDF_Font_MeasureText In libhpdf.dll
        *!*         Integer, String, Integer, Single, Single, Single, Single, Integer, Single @
        *!*
        *!*    calculates the byte length which can be included within the specified width.
        *!*
        *!*    Parameters
        *!*     font - Specify the handle of a font object.
        *!*     text - The text to use for calculation.
        *!*     len - The length of the text.
        *!*     width - The width of the area to put the text.
        *!*     font_size  - The size of the font.
        *!*     char_space - The character spacing.
        *!*     word_space - The word spacing.
        *!*     wordwrap - Suppose there are three words: "ABCDE", "FGH", and "IJKL".
        *!*     Also, suppose the substring until "J" can be included within the width (12 bytes).
        *!*     If word_wrap is HPDF_FALSE the function returns 12. If word_wrap parameter is HPDF_TRUE, it returns 10 (the end of the previous word).
        LOCAL lnLen, lnChars, lnRealWidth, lcCurrText, lcRemainingText, lnLineHeight, lnLinesAvail, lnCurrLine
        STORE "" TO lcCurrText
        STORE  0 TO lnLen, lnChars, lnRealWidth
        lcRemainingText = lcOrigContents
        lnLineHeight = This.GetParHeight("AB", lcFontFace, lnFontSize, liFontStyle, 0, 0, 10000, 10000)
        lnLinesAvail = ROUND(nHeight / lnLineHeight, 0)
        lnCurrLine   = 1
        DO WHILE .T.
            lnRealWidth = 0
            lnLen = LEN(lcRemainingText)
            lnChars = HPDF_Font_MeasureText( lnFontHandle, ;
                lcRemainingText, ;
                LEN(lcRemainingText), ;
                nWidth, ;
                lnFontSize, ;
                0, ;
                0, ;
                1, ;
                @lnRealWidth)
            IF lnChars = 0 && it seems that we had one single word, so we'll cut the word in the middle
                && Changing the WordWrap parameter to 0
                lnChars = HPDF_Font_MeasureText( lnFontHandle, ;
                    lcRemainingText, ;
                    LEN(lcRemainingText), ;
                    nWidth, ;
                    lnFontSize, ;
                    0, ;
                    0, ;
                    0, ;
                    @lnRealWidth)
            ENDIF
            lcCurrText = LEFT(lcRemainingText, lnChars)
            lcRemainingText = ALLTRIM(SUBSTR(lcRemainingText, lnChars + 1))
            IF NOT "<FJ>" $ lcUser
                lcCurrText = ALLTRIM(lcCurrText)
                * lcCurrText = CHRTRAN(lcCurrText, CHR(10), CHR(13))
                lcCurrText = CHRTRAN(lcCurrText, CHR(10), "")
                lcCurrText = CHRTRAN(lcCurrText, CHR(13), "")
            ELSE
                IF (CHR(10) $ lcCurrText) OR (EMPTY(lcRemainingText))
                    lcCurrText = ALLTRIM(lcCurrText)
                ELSE
                    && Trick to force the justification, telling the HPDF engine that we'll have a next line, forcing it to continue justifying
                    lcCurrText = ALLTRIM(lcCurrText) + CHR(10) + CHR(10)
                ENDIF
            ENDIF
            lcContents = lcCurrText
            DO CASE
            CASE "<FJ>" $ lcUser
                This._Stat2 = HPDF_Page_TextRect(.oPage, nLeft, nTop, nLeft + nWidth, nTop - nHeight - lnAlto, lcContents, HPDF_TALIGN_JUSTIFY, 0)
            CASE lnOffset = 0 && Left Aligned
                This._Stat2 = HPDF_Page_TextRect(.oPage, nLeft, nTop, nLeft + nWidth, nTop - nHeight - lnAlto, lcContents, HPDF_TALIGN_LEFT, 0)
                IF .lUnderline Then &&Draw fake underline text
                    This._Stat = HPDF_Page_TextRect(.oPage, nLeft, nTop, nLeft + nWidth , nTop - nHeight - lnAlto, lcUnderLineText, HPDF_TALIGN_LEFT, 0)
                ENDIF
            CASE lnOffset = 1 && Right Aligned
                This._Stat2 = HPDF_Page_TextRect(.oPage, nLeft, nTop, nLeft + nWidth, nTop - nHeight - lnAlto, lcContents, HPDF_TALIGN_RIGHT, 0)
                If .lUnderline Then &&Draw fake underline text
                    This._Stat = HPDF_Page_TextRect(.oPage, nLeft, nTop, nLeft + nWidth, nTop - nHeight - lnAlto, lcUnderLineText, HPDF_TALIGN_RIGHT, 0)
                EndIf
            Case lnOffset = 2 && Center Aligned
                This._Stat2 = HPDF_Page_TextRect(.oPage, nLeft, nTop, nLeft + nWidth, nTop - nHeight - lnAlto, lcContents, HPDF_TALIGN_CENTER, 0)
                If .lUnderline Then &&Draw fake underline text
                    This._Stat = HPDF_Page_TextRect(.oPage, nLeft, nTop, nLeft + nWidth, nTop - nHeight - lnAlto, lcUnderLineText, HPDF_TALIGN_CENTER, 0)
                EndIf
            EndCase
            nTop = nTop - lnLineHeight
            lnCurrLine = lnCurrLine + 1
            IF (NOT lbStretch) AND (lnCurrLine > lnLinesAvail)
                EXIT
            ENDIF
            IF (EMPTY(lcRemainingText))
                EXIT
            ENDIF
        ENDDO
    Else
        *!* Let's Draw the rotated text
        Local lnRad As Number
        lnRad = ((lnRotate * -1) / 180) * Pi()
        This._Stat = HPDF_Page_SetTextMatrix(.oPage, Cos(lnRad), Sin(lnRad), -Sin(lnRad), Cos(lnRad), nLeft, nTop)
        This._Stat2 = HPDF_Page_ShowText(.oPage, lcContents)
    EndIf
    This._Stat = HPDF_Page_EndText(.oPage)
ENDWITH
LOCAL llSuccess
llSuccess = This._Stat2 = 0
RETURN llSuccess
ENDPROC
PROCEDURE processshapes
LPARAMETERS lnFillRed As Integer,lnFillGreen As Integer,lnFillBlue As Integer,lnPenRed As Integer,lnPenGreen As Integer,;
    lnPenBlue As Integer,nLeft As Number,nTop As Number,nWidth As Number,nHeight As Number,lnOffset As Integer, ;
    lnPenSize As Integer, lnPenPat As Integer, lnFillPat As Integer, lcStyle As String, lnMode as Integer, lnObjectContinuationType as Integer, ;
    tlSkipBorder
*!*    Value    Continuation Type
*!*    ------- --------------------------------------------------------------------------
*!*    0        Complete (no continuation).
*!*    1        Start of layout element occurrence, will not finish on the current page.
*!*    2        Mid-element, neither started nor finished on the current page.
*!*    3        End of element, completed on the current page.
IF TYPE("lnObjectContinuationType") <> "N"
    lnObjectContinuationType = 0
ENDIF
LOCAL lcDash As String, nTop2 As Integer
LOCAL lDecomposeRect as Boolean, lDoTopLine as Boolean, lDoLeftLine as Boolean, lDoRightLine as Boolean, ;
      lDoBottomLine as Boolean, Line_lnPenRed as Integer, Line_lnPenGreen as Integer, Line_lnPenBlue as Integer
*!* 2010-08-25 - Jacques Parent - Let multiple band shape be printed correctly
DO CASE
*    CASE lnOffSet <> 0
        *!* Other than rectangle...
        *!* OK, we proceed!
*        lDecomposeRect = .F.
    CASE lnObjectContinuationType == 0
        *!* No continuation
        *!* OK, we proceed!
        lDecomposeRect = .F.
    CASE lnObjectContinuationType == 1
        *!* Top element
        *!* OK, we proceed!
        lDecomposeRect     = .T.
        lDoTopLine         = .T.
        lDoLeftLine        = .T.
        lDoRightLine    = .T.
        lDoBottomLine    = .F.
    CASE lnObjectContinuationType == 2
        *!* Mid element...
        lDecomposeRect     = .T.
        lDoTopLine        = .F.
        lDoLeftLine        = .T.
        lDoRightLine    = .T.
        lDoBottomLine    = .F.
    CASE lnObjectContinuationType == 3
        *!* Bottom element
        *!* OK, we proceed!
        lDecomposeRect     = .T.
        lDoTopLine        = .F.
        lDoLeftLine        = .T.
        lDoRightLine    = .T.
        lDoBottomLine    = .T.
ENDCASE
With This
    *!* Code to handle the Dynamic Options added in SP2
    IF !EMPTY(lcStyle) THEN &&Dynamic Properties are stored here as xml
        If .ProcessDynamics(lcStyle, "SHAPE") Then
            nHeight = Iif(PemStatus(.oDynamics, "nHeight",5), Iif(.oDynamics.nHeight!=-1, (.oDynamics.nHeight / 960) * 72, nHeight), nHeight)
            nWidth = Iif(PemStatus(.oDynamics, "nWidth",5), Iif(.oDynamics.nWidth!=-1, (.oDynamics.nWidth / 960) * 72, nWidth), nWidth)
        EndIf
    EndIf
    nTop2 = nTop
    nTop = .nPageHeight - nTop
    If lnFillRed = -1
        lnFillRed     = 255
        lnFillGreen = 255
        lnFillBlue     = 255
    ENDIF
*    IF lnMode = 0 OR lnFillPat > 0 && Opaque
    IF lnFillPat > 0 && Opaque    => 2010-08-25 - Jacques Parent - Let transparent be transparent, not RGB(255,255,255)
        This._Stat = HPDF_Page_SetRGBFill(This.oPage, lnFillRed / 255, lnFillGreen / 255, lnFillBlue / 255)
        lnMode = 0
    ELSE
        lnMode = 1
    ENDIF
    IF lDecomposeRect
        *!* The rectangle that will be traced will have border same color as the filling!
        Line_lnPenRed     = lnPenRed
        Line_lnPenGreen = lnPenGreen
        Line_lnPenBlue     = lnPenBlue
        IF lnMode == 0
            lnPenRed     = lnFillRed
            lnPenGreen     = lnFillGreen
            lnPenBlue     = lnFillBlue
        ENDIF
    ELSE
        If lnPenRed = -1
            IF lnPenPat = 0
                lnPenRed     = 255
                lnPenGreen     = 255
                lnPenBlue     = 255
            ELSE
                lnPenRed     = 0
                lnPenGreen     = 0
                lnPenBlue     = 0
            ENDIF
        ENDIF
    ENDIF
* From CChalom to JParent
* Jacques,
* Please check the lines below. I didn't apply any major change cause you did a big
* refactoring in this method months ago.
* A "hidden" error was happening if the value lnPenRed, lnPenGreen or lnPenBlue is -1
* I've included a basic checking, just skipping this line for now
* Please revise this, the recommended is to change from -1 to 0 or 255,
* depending on the situation.
IF lnPenRed <> -1 && AND lnPenPat <> 0 && None
    This._Stat = HPDF_Page_SetRGBStroke(.oPage, lnPenRed / 255, lnPenGreen / 255, lnPenBlue / 255)
ENDIF
*!*    * Check if we are done
*!*    IF tlSkipBorder ;   && Called from ProcessFields
*!*        OR lnPenPat = 0 && Don't need to draw border
*!*        RETURN
*!*    ENDIF
    IF (lnPenSize >= 1) AND (lnPenPat > 0) AND (NOT tlSkipBorder)
        This._Stat = HPDF_Page_SetLineWidth(.oPage, lnPenSize)
    ELSE
        This._Stat = HPDF_Page_SetLineWidth(.oPage, 0)
    ENDIF
    DO CASE
        Case lnPenPat=8 &&Normal Mode
            This._Stat = HPDF_Page_SetDash(.oPage, Null, 0, 0)
        Case lnPenPat=1 &&Dotted
            lcDash=Chr(3) + Chr(0) + Chr(0)
            This._Stat = HPDF_Page_SetDash(.oPage, lcDash, 1, 1)
        Case lnPenPat=2 &&Dashed
            lcDash = Chr(18)+Chr(0)+Chr(6)+Chr(0)+Chr(0)
            This._Stat = HPDF_Page_SetDash(.oPage, lcDash, 2, 2)
        Case lnPenPat=3 &&Dash-dot
            lcDash = Chr(9)+Chr(0)+Chr(6)+Chr(0)+Chr(3)+Chr(0)+Chr(6)+Chr(0)+Chr(0)
            This._Stat = HPDF_Page_SetDash(.oPage, lcDash, 4, 0)
        Case lnPenPat=4 &&Dash-dot-dot
            lcDash = Chr(9)+Chr(0)+Chr(3)+Chr(0)+Chr(3)+Chr(0)+Chr(3)+Chr(0)+Chr(3)+Chr(0)+Chr(3)+Chr(0)+Chr(0)
            This._Stat = HPDF_Page_SetDash(.oPage, lcDash, 6, 0)
    ENDCASE
    IF NOT lDecomposeRect OR (lnMode==0 AND lDecomposeRect)    && If mode == 1, then there is no reason to draw a rectangle!
        *!* Draw the rectangle
        Do Case
            Case lnOffSet=0 &&Normal Rectangle
                This._Stat = HPDF_Page_Rectangle(.oPage, nLeft, nTop - nHeight, nWidth, nHeight)
            Case Between(lnOffSet, 1, 98) &&Rounded Rectangle
                *!* Code to Draw Rounded Rectangle Courtesy of Dorin Vasilescu
                Local nRay As Number, nb As Number
                nRay = Round(Iif(nWidth > nHeight, Min(lnOffSet, Int(nHeight / 2)), Min(lnOffSet, Int(nWidth / 2))), 0)
                  nB = .nPageHeight - (nTop2 + nHeight)
                This._Stat = HPDF_Page_MoveTo(.oPage, nLeft + nRay, nB)
                This._Stat = HPDF_Page_LineTo(.oPage, (nLeft + nWidth) - nRay, nB)
                This._Stat = HPDF_Page_CurveTo(.oPage, (nLeft + nWidth), nB, (nLeft + nWidth), nB, (nLeft + nWidth), nB + nRay)
                This._Stat = HPDF_Page_LineTo(.oPage, (nLeft + nWidth), nTop - nRay)
                This._Stat = HPDF_Page_CurveTo(.oPage, (nLeft + nWidth), nTop, (nLeft + nWidth), nTop, (nLeft + nWidth) - nRay, nTop)
                This._Stat = HPDF_Page_LineTo(.oPage, nLeft + nRay, nTop)
                This._Stat = HPDF_Page_CurveTo(.oPage, nLeft, nTop, nLeft, nTop, nLeft, nTop - nRay)
                This._Stat = HPDF_Page_LineTo(.oPage, nLeft , nB + nRay)
                This._Stat = HPDF_Page_CurveTo(.oPage, nLeft, nB , nLeft, nB, nLeft + nRay, nB)
            Case lnOffSet=99 &&Ellipsis
                This._Stat = HPDF_Page_Ellipse(.oPage, nLeft + (nWidth / 2), nTop - (nHeight / 2), nWidth / 2, nHeight / 2)
        EndCase
        *!* Refresh page
        * Mode: 0 = Opaque background; 1 = Transparent
        IF lnMode = 1 && Transparent
            This._Stat = HPDF_Page_Stroke(.oPage)
        ELSE && 0 = Opaque
            This._Stat = HPDF_Page_FillStroke(.oPage)
        ENDIF
    ENDIF
    IF lDecomposeRect AND Line_lnPenRed <> lnFillRed AND Line_lnPenGreen <> lnFillGreen AND Line_lnPenBlue <> lnFillBlue
        *!* Draw the necessary lines
        IF Between(lnOffSet, 1, 98) &&Rounded Rectangle
*!*                    Local nRay As Number, nb As Number
*!*                    nRay = Round(Iif(nWidth > nHeight, Min(lnOffSet, Int(nHeight / 2)), Min(lnOffSet, Int(nWidth / 2))), 0)
*!*                      nB = .nPageHeight - (nTop2 + nHeight)
*!*                    This._Stat = HPDF_Page_MoveTo(.oPage, nLeft + nRay, nB)
*!*                    This._Stat = HPDF_Page_LineTo(.oPage, (nLeft + nWidth) - nRay, nB)
*!*                    This._Stat = HPDF_Page_CurveTo(.oPage, (nLeft + nWidth), nB, (nLeft + nWidth), nB, (nLeft + nWidth), nB + nRay)
*!*                    This._Stat = HPDF_Page_LineTo(.oPage, (nLeft + nWidth), nTop - nRay)
*!*                    This._Stat = HPDF_Page_CurveTo(.oPage, (nLeft + nWidth), nTop, (nLeft + nWidth), nTop, (nLeft + nWidth) - nRay, nTop)
*!*                    This._Stat = HPDF_Page_LineTo(.oPage, nLeft + nRay, nTop)
*!*                    This._Stat = HPDF_Page_CurveTo(.oPage, nLeft, nTop, nLeft, nTop, nLeft, nTop - nRay)
*!*                    This._Stat = HPDF_Page_LineTo(.oPage, nLeft , nB + nRay)
*!*                    This._Stat = HPDF_Page_CurveTo(.oPage, nLeft, nB , nLeft, nB, nLeft + nRay, nB)
            IF lDoTopLine
                Local nRay As Number, nb As Number
                nRay = Round(Iif(nWidth > nHeight, Min(lnOffSet, Int(nHeight / 1)), Min(lnOffSet, Int(nWidth / 2))), 0) * 1
                  nB = .nPageHeight - (nTop2 + nHeight)
                This._Stat = HPDF_Page_MoveTo(.oPage, nLeft + nRay, nB)
***                This._Stat = HPDF_Page_LineTo(.oPage, (nLeft + nWidth) - nRay, nB)
*                This._Stat = HPDF_Page_CurveTo(.oPage, (nLeft + nWidth), nB, (nLeft + nWidth), nB, (nLeft + nWidth), nB + nRay) && Inferior
*                This._Stat = HPDF_Page_LineTo(.oPage, (nLeft + nWidth), nTop - nRay)
                This._Stat = HPDF_Page_MoveTo(.oPage, (nLeft + nWidth), nTop - nRay)
                This._Stat = HPDF_Page_CurveTo(.oPage, (nLeft + nWidth), nTop, (nLeft + nWidth), nTop, (nLeft + nWidth) - nRay, nTop)
*                This._Stat = HPDF_Page_LineTo(.oPage, nLeft + nRay, nTop)
                This._Stat = HPDF_Page_MoveTo(.oPage, nLeft + nRay, nTop)
                This._Stat = HPDF_Page_CurveTo(.oPage, nLeft, nTop, nLeft, nTop, nLeft, nTop - nRay)
*                This._Stat = HPDF_Page_LineTo(.oPage, nLeft , nB + nRay)
*                This._Stat = HPDF_Page_CurveTo(.oPage, nLeft, nB , nLeft, nB, nLeft + nRay, nB)
                This.ProcessLines(Line_lnPenRed, Line_lnPenGreen, Line_lnPenBlue, nTop2, nLeft-0.5 + nRay, nWidth+0.5 - nRay - nRay,;
                              0, lnPenSize, 1, lnPenPat, lcStyle)
            ENDIF
            IF lDoBottomLine
                Local nRay As Number, nb As Number
                nRay = Round(Iif(nWidth > nHeight, Min(lnOffSet, Int(nHeight / 1)), Min(lnOffSet, Int(nWidth / 2))), 0) * 1
                  nB = .nPageHeight - (nTop2 + nHeight)
                This._Stat = HPDF_Page_MoveTo(.oPage, nLeft + nRay, nB)
*                This._Stat = HPDF_Page_LineTo(.oPage, (nLeft + nWidth) - nRay, nB)
                This._Stat = HPDF_Page_MoveTo(.oPage, (nLeft + nWidth) - nRay, nB)
                This._Stat = HPDF_Page_CurveTo(.oPage, (nLeft + nWidth), nB, (nLeft + nWidth), nB, (nLeft + nWidth), nB + nRay) && Inferior direito
*                This._Stat = HPDF_Page_LineTo(.oPage, (nLeft + nWidth), nTop - nRay)
                This._Stat = HPDF_Page_MoveTo(.oPage, (nLeft + nWidth), nTop - nRay)
*                This._Stat = HPDF_Page_CurveTo(.oPage, (nLeft + nWidth), nTop, (nLeft + nWidth), nTop, (nLeft + nWidth) - nRay, nTop) && Superior direito
****                This._Stat = HPDF_Page_LineTo(.oPage, nLeft + nRay, nTop)
*                This._Stat = HPDF_Page_MoveTo(.oPage, nLeft + nRay, nTop)
*                This._Stat = HPDF_Page_CurveTo(.oPage, nLeft, nTop, nLeft, nTop, nLeft, nTop - nRay)
*                This._Stat = HPDF_Page_LineTo(.oPage, nLeft , nB + nRay)
                This._Stat = HPDF_Page_MoveTo(.oPage, nLeft , nB + nRay)
                This._Stat = HPDF_Page_CurveTo(.oPage, nLeft, nB , nLeft, nB, nLeft + nRay, nB)
                This.ProcessLines(Line_lnPenRed, Line_lnPenGreen, Line_lnPenBlue, nTop2 + nHeight, nLeft-0.5 + nRay, nWidth+0.5 -nRay -nRay,;
                              0, lnPenSize, 1, lnPenPat, lcStyle)
            ENDIF
            IF lDoLeftLine AND (lDoBottomLine = .F.) AND (lDoTopLine = .F.) && AND (lDoRightLine = .F.)
                This.ProcessLines(Line_lnPenRed, Line_lnPenGreen, Line_lnPenBlue, nTop2-0.5, nLeft, 0,;
                              nHeight+0.5, lnPenSize, 0, lnPenPat, lcStyle)
                This.ProcessLines(Line_lnPenRed, Line_lnPenGreen, Line_lnPenBlue, nTop2-0.5, nLeft+nWidth, 0,;
                              nHeight+0.5, lnPenSize, 0, lnPenPat, lcStyle)
            ENDIF
*!*                IF lDoRightLine AND (lDoBottomLine = .F.) AND (lDoTopLine = .F.) AND (lDoLeftLine = .F.)
*!*                    This.ProcessLines(Line_lnPenRed, Line_lnPenGreen, Line_lnPenBlue, nTop2-0.5, nLeft+nWidth, 0,;
*!*                                  nHeight+0.5, lnPenSize, 0, lnPenPat, lcStyle)
*!*                ENDIF
        ELSE
            IF lDoTopLine
                This.ProcessLines(Line_lnPenRed, Line_lnPenGreen, Line_lnPenBlue, nTop2, nLeft-0.5, nWidth+0.5,;
                              0, lnPenSize, 1, lnPenPat, lcStyle)
            ENDIF
            IF lDoLeftLine
                This.ProcessLines(Line_lnPenRed, Line_lnPenGreen, Line_lnPenBlue, nTop2-0.5, nLeft, 0,;
                              nHeight+0.5, lnPenSize, 0, lnPenPat, lcStyle)
            ENDIF
            IF lDoRightLine
                This.ProcessLines(Line_lnPenRed, Line_lnPenGreen, Line_lnPenBlue, nTop2-0.5, nLeft+nWidth, 0,;
                              nHeight+0.5, lnPenSize, 0, lnPenPat, lcStyle)
            ENDIF
            IF lDoBottomLine
                This.ProcessLines(Line_lnPenRed, Line_lnPenGreen, Line_lnPenBlue, nTop2 + nHeight, nLeft-0.5, nWidth+0.5,;
                              0, lnPenSize, 1, lnPenPat, lcStyle)
            ENDIF
        ENDIF
    ENDIF
ENDWITH
ENDPROC
PROCEDURE processlabel
Lparameters lcFontFace As String, liFontStyle As Integer, lnFontSize As Number, lnPenRed As Number, lnPenGreen As Number,;
    lnPenBlue As Number, lnFillRed As Number, lnFillGreen As Number, lnFillBlue As Number, nLeft As Number, nTop As Number,;
    lcContents As String, lcFillChar As String, lnOffset As Integer, nWidth As Integer, lnCodePage As Integer, nHeight As Number,;
    lcPicture As String, lcStyle As String, lnMode as Integer
Local lnAlto As Number, lnTxtWidth As String, lnFontHandle As Integer, lcUnderLineText As String, lnRotate As Integer, lnCharWidth As Integer
lnRotate = 0
With This
    If !Empty(lcStyle) Then &&Dynamic Properties are stored here as xml
        If .ProcessDynamics(lcStyle, "LABEL") Then
            lnRotate = Iif(PemStatus(.oDynamics, "nRotationDegree", 5),. oDynamics.nRotationDegree, 0)
        EndIf
    EndIf
    If lnPenRed=-1 And lnPenBlue=-1 And lnPenGreen=-1 Then &&Replace the Default forecolor of VFP with Black
        Store 0 To lnPenBlue, lnPenRed, lnPenGreen
    EndIf
    If lnFillRed=-1 And lnFillBlue=-1 And lnFillGreen=-1 Then &&Default Colors of VFP Report Designer
        Store 255 To lnFillRed, lnFillBlue, lnFillGreen
    EndIf
    * Draw the field background
    IF lnMode = 0 && Mode: 0 = Opaque background; 1 = Transparent
        lnPenSize = 0
        lnPenPat = 0
        lnFillPat = 1
        lcStyle = ""
        This.ProcessShapes(lnFillRed, lnFillGreen, lnFillBlue, ;
                lnFillRed, lnFillGreen, lnFillBlue, ;
                nLeft, nTop, nWidth + 5, nHeight, lnOffset, ;
                lnPenSize, lnPenPat, lnFillPat, lcStyle, lnMode)
    ENDIF
    nTop = .nPageHeight - nTop &&Change the Top Coordinates Because of the PDF Coordinate System
* Get the font Handle
* If no font is retrieved, then draw the string as an image
lnFontHandle = This.Getfonthandle(lcFontFace, liFontStyle)
IF lnFontHandle = 0
    LOCAL lcImage, lnTxtW, lnTxtH
    lnTxtW  = nWidth
    lnTxtH  = nHeight
    lcImage = This.StringToPic(lcContents, lcFontFace, lnFontSize, ;
        IIF(lnPenRed   = -1, 0, lnPenRed), ;
        IIF(lnPenGreen = -1, 0, lnPenGreen), ;
        IIF(lnPenBlue  = -1, 0, lnPenBlue), ;
        0, @lnTxtW, @lnTxtH)
    This.ProcessPictures2(lcImage, nLeft, nTop, lnTxtW, lnTxtH)
    RETURN
ENDIF
*    lnFontHandle = HPDF_GetFont(.pdfHandle, .SearchFont(lcFontFace, liFontStyle), Iif(Empty(.cCodePage), NULL, .cCodePage)) &&Find and select the font
    lnCharWidth = FontMetric(6, lcFontFace, lnFontSize, .cTextStyle)
    This._Stat = HPDF_Page_BeginText(.oPage) &&Start text proccesing mode
    This._Stat = HPDF_Page_SetFontAndSize(.oPage, lnFontHandle, lnFontSize)
    lnTxtWidth = HPDF_Page_TextWidth(.oPage, lcContents) &&Get the size of the text width
*    lnAlto = HPDF_Page_GetCurrentFontSize(.oPage)
    lnAlto = FontMetric(1, lcFontFace, lnFontSize, .cTextStyle)
    This._Stat = HPDF_Page_SetRGBStroke(.oPage, lnFillRed / 255, lnFillGreen / 255, lnFillBlue / 255) &&Set Forecolor of the text
    This._Stat = HPDF_Page_SetRGBFill(.oPage, lnPenRed / 255, lnPenGreen / 255, lnPenBlue / 255) &&Set Forecolor of the text
    If Bittest(liFontStyle, 2) Then
        lcUnderLineText=Replicate("_", Round(lnTxtWidth/HPDF_Page_TextWidth(.oPage, "_"), 0))
        .lUnderline= .T.
    Else
        .lUnderline= .F.
    EndIf
    If lnRotate=0 Then
        LOCAL lcOrigContents
        lcOrigContents = lcContents
        LOCAL lnParag, lnParHeight, n, lcPar, lnParTop, lnAlignMode, lnParWidth
        lnParTop = 0
        lnParag  = GETWORDCOUNT(lcContents, CHR(10))
        DO CASE
        CASE EMPTY(lcPicture)  && Left aligned
            lnAlignMode = HPDF_TALIGN_LEFT
        CASE lcPicture = '"@I"'  && Center aligned
            lnAlignMode = HPDF_TALIGN_CENTER
        OTHERWISE && Right aligned
            lnAlignMode = HPDF_TALIGN_RIGHT
        ENDCASE
        FOR m.n = 1 TO lnParag
            lcPar = GETWORDNUM(lcOrigContents, m.n, CHR(10))
            IF .lUnderline
                lnParWidth = HPDF_Page_TextWidth(.oPage, lcPar) && Get the size of the text width
                lcUnderLineText = Replicate("_", Round(lnParWidth/HPDF_Page_TextWidth(.oPage, "_"), 0) + 0.3)
            ENDIF
            * Because in labels we don't have a width limit,
            * here we multiply by 1000 the width, to make sure the text for that line
            * will fit
            lnParHeight = This.GetParHeight(lcPar, lcFontFace, lnFontSize, liFontStyle, nLeft, nTop, nWidth * 1000, nHeight)
            DO CASE
            CASE lnAlignMode = HPDF_TALIGN_CENTER
                This._Stat = HPDF_Page_TextRect(.oPage, nLeft - 20, nTop - lnParTop, nLeft + nWidth + 20, nTop - nHeight - lnAlto, lcPar, lnAlignMode,0)
                If .lUnderline Then
                    This._Stat = HPDF_Page_TextRect(.oPage, nLeft - 20, nTop - lnParTop, nLeft + nWidth + 20, nTop - nHeight - lnAlto, lcUnderLineText, lnAlignMode, 0)
                EndIf
            CASE lnAlignMode = HPDF_TALIGN_RIGHT
                This._Stat = HPDF_Page_TextRect(.oPage, nLeft - 20, nTop - lnParTop, nLeft + nWidth, nTop - nHeight - lnAlto, lcPar, lnAlignMode,0)
                If .lUnderline Then
                    This._Stat = HPDF_Page_TextRect(.oPage, nLeft - 20, nTop - lnParTop, nLeft + nWidth, nTop - nHeight - lnAlto, lcUnderLineText, lnAlignMode, 0)
                EndIf
            OTHERWISE
                This._Stat = HPDF_Page_TextRect(.oPage, nLeft, nTop - lnParTop, nLeft + lnTxtWidth + lnCharWidth, nTop - nHeight - lnAlto, lcPar, lnAlignMode,0)
                If .lUnderline Then
                    This._Stat = HPDF_Page_TextRect(.oPage, nLeft, nTop - lnParTop, nLeft + lnTxtWidth + lnCharWidth, nTop - nHeight - lnAlto, lcUnderLineText, lnAlignMode, 0)
                EndIf
            ENDCASE
            lnParTop    = lnParTop + lnParHeight
        ENDFOR
    Else
        *!* Let's Draw the rotated text
        Local lnRad As Number
        lnRad = ((lnRotate * -1) / 180) * Pi()
        This._Stat = HPDF_Page_SetTextMatrix (.oPage, Cos(lnRad), Sin(lnRad), -Sin(lnRad), Cos(lnRad), nLeft, nTop)
        This._Stat = HPDF_Page_ShowText (.oPage, lcContents)
    EndIf
    This._Stat = HPDF_Page_EndText(.oPage)
ENDWITH
ENDPROC
PROCEDURE processpictures
Lparameters nTop As Number,nLeft As Number,nWidth As Number,nHeight As Number,lcContents As String,;
    GDIPlusImage As Number, lnOffset As Integer, liPictureMode As Integer, lcStyle As String
#Define PICTURE_SOURCE_FILENAME         0  && stored in PICTURE column
#Define PICTURE_SOURCE_GENERAL          1  && stored in NAME    column
#Define PICTURE_SOURCE_EXPRESSION       2  && stored in NAME    column
IF EMPTY(GDIPlusImage) AND EMPTY(lcContents) && Nothing to render
                    && try drawing directly, from the original canvas
    RETURN .F.
ENDIF
Local lcFile As String, lcFile2 As String, lnHandle As Integer
nTop = This.nPageHeight - nTop
lnHandle = 0
Local lnPicWidth, lnPicHeight
Store 0 TO lnPicWidth, lnPicHeight
* liPictureMode = MAX(liPictureMode, 1)
If GDIPlusImage != 0 Then &&General Field or Expresion
    * CChalom 2010-01-17
    * Removed the dependance of having "System.App" from GdiPlusX
    * Now using _Gdiplus.vcx that is already embedded in ReportOutput.App
    *!* Original code
    *!*        Do System.App &&Initialize GDIPLUSX library
    *!*        Local loImage As xfcBitmap
    *!*        With _Screen.System.Drawing
    *!*            loImage = .Bitmap.New()
    *!*            loImage.Handle = GDIPlusImage
    *!*            lcFile = This._cTempFolder + Sys(2015) + ".Png"
    *!*            loImage.Save(lcFile, .Imaging.Imageformat.Png)
    *!*        EndWith
        lcFile = This.GetTempFile("Png")
        Local loImage As GpImage Of (ADDBS(HOME()) + "FFC\_GdiPlus.vcx")
        loImage = NEWOBJECT("GpImage", "_GdiPlus.vcx")
        loImage.SetHandle(GDIPlusImage)
        lnPicWidth = loImage.ImageWidth
        lnPicHeight = loImage.ImageHeight
        loImage.SaveToFile(lcFile,"image/png")
        loImage = NULL
    *---
        lnHandle = HPDF_LoadPngImageFromFile(This.pdfHandle, lcFile)
Else &&File Name
    *!* 10/03/2010 Change to reuse image handles
    IF FILE(lcContents) AND (liPictureMode <> 0) THEN && If using 'CLIP'
                                            && We wont store the image handle
        * lcFile = lcContents
        lcFile = This.GetTempFile(JustExt(lcContents))
*        lcFile = This._cTempFolder + Sys(2015) + "." + JustExt(lcContents)
        ** lnHandle = This.GetPictureHandle(lcContents, lcFile, @lnPicWidth, @lnPicHeight)
        *!* 2010-08-25 - Jacques Parent
        *!* Add @ to lcFile parameters so the new lcFile can be updated by the GetPictureHandle method
        *!* The lcFile will then be added to oTempImagesCollection and will be cleaned up later.
        lnHandle = This.GetPictureHandle(lcContents, @lcFile, @lnPicWidth, @lnPicHeight)
    ENDIF
    IF FILE(lcContents) AND (liPictureMode = 0) THEN && If using 'CLIP'
        lcFile = lcContents
    ENDIF
ENDIF
IF (!ISNULL(lnHandle) And lnHandle > 0) ; && Valid Image Handle
            OR (liPictureMode = 0) &&Clip
    DO CASE
        CASE liPictureMode = 0 AND (NOT EMPTY(lcFile)) && 0 &&Clip
            lnHandle = This.CropImage(lcFile, 0, 0, @nWidth, @nHeight)
*!*                IF lcFile = lcContents
*!*                    lcFile = ""
*!*                ENDIF
            IF lnHandle > 0
                This._Stat = HPDF_Page_DrawImage(This.oPage, lnHandle, nLeft, nTop - nHeight, nWidth, nHeight)
            ELSE
                RETURN .F.
            ENDIF
        Case liPictureMode = 1 &&Scale Keeping the Shape
            * CChalom
            * Calculating the image size for isometric images
            If lnPicWidth = 0
                Local loVFPImg as Image
                loVFPImg = CreateObject("Image")
                *!* loVFPImg.Picture = lcFile
                loVFPImg.Picture = lcContents    && 2010-09-17 - Jacques Parent - If lnPicWidth  = 0, then the lcFile does not point to the actual temporary file.  Take then the original one.
                lnPicWidth = loVFPImg.Width
                lnPicHeight = loVFPImg.Height
                loVFPImg = NULL
            EndIf
            lnPicWidth = (lnPicWidth / 960) * 72
            lnPicHeight = (lnPicHeight / 960) * 72
            * Isometric Adjustment
            Local lnHorFactor, lnVertFactor, lnResizeFactor, lnIsoWidth, lnIsoHeight
            m.lnHorFactor = m.nWidth / m.lnPicWidth
            m.lnVertFactor = m.nHeight / m.lnPicHeight
            m.lnResizeFactor = MIN(m.lnHorFactor, m.lnVertFactor)
            m.lnIsoWidth = m.lnPicWidth * m.lnResizeFactor
            m.lnIsoHeight = m.lnPicHeight * m.lnResizeFactor
            This._Stat = HPDF_Page_DrawImage(This.oPage, lnHandle, nLeft, nTop - lnIsoHeight, lnIsoWidth, lnIsoHeight)
            * ---
        Otherwise &&Stretch
            IF lnHandle <= 0
                RETURN .F.
            ENDIF
            This._Stat = HPDF_Page_DrawImage(This.oPage, lnHandle, nLeft, nTop - nHeight, nWidth, nHeight)
    ENDCASE
ELSE
    RETURN .F.  && did not succeed to load the image, so try from the report canvas
EndIf
*!* 10/03/2010 Luis Navas
*!* Changed the name of this property from oImagesCollection to oTempImagesCollection to avoid confusion of users
If Vartype(This.oTempImagesCollection) != "O" Then
    This.oTempImagesCollection= CreateObject("Collection")
EndIf
This.oTempImagesCollection.Add(lcFile)
ENDPROC
PROCEDURE processlines
Lparameters lnPenRed As Integer,lnPenGreen As Integer,lnPenBlue As Integer,nTop As Number,nLeft As Number,nWidth As Number,;
nHeight As Number, lnPenSize As Integer, lnOffSet As Number, lnPenPat As Integer, lcStyle As String
Local lcDash As String
With This
    If lnPenRed!=-1 And lnPenGreen!=-1 And lnPenBlue!=-1 Then
        This._Stat = HPDF_Page_SetRGBStroke(.oPage, lnPenRed / 255, lnPenGreen / 255, lnPenBlue / 255)
    Else
        This._Stat = HPDF_Page_SetRGBStroke(.oPage, 0, 0, 0)
    EndIf
    nTop = .nPageHeight - nTop
    Do Case
        Case lnPenPat=8 &&Normal Mode
            This._Stat = HPDF_Page_SetDash(.oPage, Null, 0, 0)
        Case lnPenPat=1 &&Dotted
            lcDash=Chr(3) + Chr(0) + Chr(0)
            This._Stat = HPDF_Page_SetDash(.oPage, lcDash, 1, 1)
        Case lnPenPat=2 &&Dashed
            lcDash = Chr(18)+Chr(0)+Chr(6)+Chr(0)+Chr(0)
            This._Stat = HPDF_Page_SetDash(.oPage, lcDash, 2, 2)
        Case lnPenPat=3 &&Dash-dot
            lcDash = Chr(9)+Chr(0)+Chr(6)+Chr(0)+Chr(3)+Chr(0)+Chr(6)+Chr(0)+Chr(0)
            This._Stat = HPDF_Page_SetDash(.oPage, lcDash, 4, 0)
        Case lnPenPat=4 &&Dash-dot-dot
            lcDash = Chr(9)+Chr(0)+Chr(3)+Chr(0)+Chr(3)+Chr(0)+Chr(3)+Chr(0)+Chr(3)+Chr(0)+Chr(3)+Chr(0)+Chr(0)
            This._Stat = HPDF_Page_SetDash(.oPage, lcDash, 6, 0)
    EndCase
    If lnOffSet=1 Then &&Horizontal Line
        If lnPenSize>=1 Then
            This._Stat = HPDF_Page_SetLineWidth(.oPage, lnPenSize)
        Else
            This._Stat = HPDF_Page_SetLineWidth(.oPage, 0)
        EndIf
        This._Stat = HPDF_Page_MoveTo(.oPage, nLeft, nTop) &&Move to the screen position
        This._Stat = HPDF_Page_LineTo(.oPage, nLeft + nWidth, nTop)
    Else &&Vertical Line
        If lnPenSize>=1 Then
            This._Stat = HPDF_Page_SetLineWidth(.oPage, lnPenSize)
        Else
            This._Stat = HPDF_Page_SetLineWidth(.oPage, 0)
        EndIf
        This._Stat = HPDF_Page_MoveTo(.oPage, nLeft, nTop - nHeight)
        This._Stat = HPDF_Page_LineTo(.oPage, nLeft, nTop )
    EndIf
    This._Stat = HPDF_Page_Stroke(.oPage)
EndWith
ENDPROC
PROCEDURE getpicturehandle
LPARAMETERS lcInternalName As String, lcExternalName As String, lnPicWidth As Integer, lnPicHeight As Integer
LOCAL lcFileStream As String, lnHandle As Integer, lcExtension As String
IF VARTYPE(This.oPictureHandles) != "O" Then
    This.oPictureHandles = CreateObject("Collection")
ENDIF
lnHandle = This.oPictureHandles.GetKey(lcInternalName)
If lnHandle = 0 Then
    lcFileStream = FILETOSTR(lcInternalName)
    TRY
        STRTOFILE(lcFileStream, lcExternalName, 0)
    CATCH TO loExc
        * SET STEP ON
    ENDTRY
    lcExtension = Upper(JustExt(lcExternalName))
    Do Case
        *!* 2011-04-22 - Fabio Vieira
        *!* <Begin
        *!* Picture recompresion
        *!* Case lcExtension = "JPG" Or lcExtension = "JPEG"
        *!*     lnHandle = HPDF_LoadJpegImageFromFile(This.pdfHandle, lcExternalName)
        Case lcExtension = "JPG" Or lcExtension = "JPEG" Or lcExtension = "BMP"
            Local loVfpImg, lcFile
            loVFPImg = CreateObject("Image")
            loVFPImg.Picture = lcExternalName
            lcFile = This.GetTempFile("JPG")
*            lcFile = This._cTempFolder + "FP_Tmp_" + Sys(2015) + ".jpg"
            loImage = NEWOBJECT("GpBitmap", "_GdiPlus.vcx")
            loImage.CreateFromFile(lcExternalName)
            loImage.SetResolution(m.loVFPImg.Width,m.loVFPImg.Height)
            loImage.SaveToFile(m.lcFile ,"image/jpeg")
            If  this.FileSize(m.lcFile) < this.FileSize(m.lcExternalName)
                lcExternalName = m.lcFile
            ELSE
                IF This.IsTempFile(lcFile)
                    DELETE FILE (lcFile)
                ENDIF
            EndIf
            loImage = NULL
            loVFPImg = null
        *!* End>
            lnHandle = HPDF_LoadJpegImageFromFile(This.pdfHandle, m.lcExternalName)
        Case lcExtension = "PNG"
            *!* 2010-09-27 - Jacques Parent - Checking for transparency
            Local loBmpTmp as GpBitmap
            loBmpTmp = NewObject("GpBitmap", "_GdiPlus.vcx")
            loBmpTmp.CreateFromFile(lcExternalName)
            lnPicWidth = loBmpTmp.ImageWidth
            lnPicHeight = loBmpTmp.ImageHeight
            IF     This.IsPixelALPHA(loBmpTmp.GetPixel(0              , 0               ));
                    OR     This.IsPixelALPHA(loBmpTmp.GetPixel(0              , lnPicHeight - 1));
                    OR     This.IsPixelALPHA(loBmpTmp.GetPixel(lnPicWidth - 1, 0               ));
                    OR     This.IsPixelALPHA(loBmpTmp.GetPixel(lnPicWidth - 1, lnPicHeight - 1))
                *!* Then, we will convert the file as if it were a GIF
                *!* This will let the transparency to be converted with a white background.
                *!* To do this, simply do not call the HPDF_LoadPngImageFromFile function.
            ELSE
                *!* Treat as normal PNG
                lnHandle = HPDF_LoadPngImageFromFile(This.pdfHandle, lcExternalName)
            ENDIF
            loBmpTmp = NULL
            *!* Original code
            *!*                lnHandle = HPDF_LoadPngImageFromFile(This.pdfHandle, lcExternalName)
        Otherwise
    EndCase
    IF lnHandle = 0
        * CChalom
        * This is being done outside the DOCASE statement because sometimes HARU may fail loading the image
        * So, here we give it another chance to load the image, this time using a converted image by GdiPlus
        * Clear the existing HPDF errors
        * As the image could not be loaded, we probably have an error, that needs to be cleared
        * Here we can see if an error occurred during the rendering process of the
        * current field
        This.ClearPDFErrors()
        * Not Supported Format, will never happen when is a general field
        * Convert all images to PNG, that is a safer image type for HPDF
        Local loBmp2 as GpBitmap, lcFile as String, lcFile2 As String
        lcFile  = lcExternalName
        lcFile2 = This.GetTempFile("PNG")
*        lcFile2 = This._cTempFolder + "FP_Tmp_" + Sys(2015) + ".PNG"
        loBmp2 = NewObject("GpBitmap", "_GdiPlus.vcx")
        loBmp2.CreateFromFile(lcFile)
        lnPicWidth = loBmp2.ImageWidth
        lnPicHeight = loBmp2.ImageHeight
        * Check if we have an invalid size
        IF lnPicWidth = 0 OR lnPicHeight = 0
            RETURN 0
        ENDIF
        LOCAL loBmp3 as GpBitmap OF HOME() + "\ffc\_Gdiplus.vcx"
        loBmp3 = NewObject("GpBitmap", "_GdiPlus.vcx") &&, "", lnPicWidth, lnPicHeight)
        loBmp3.Create(lnPicWidth, lnPicHeight)
        loBmp3.SetResolution(loBmp2.HorizontalResolution, loBmp2.VerticalResolution)    && Jacques Parent - 2010-12-01 - Set original resolution of the file
        LOCAL loGfx as GpGraphics OF HOME() + "\ffc\_Gdiplus.vcx"
        loGfx  = NewObject("GpGraphics", "_GdiPlus.vcx")
        loGfx.CreateFromImage(loBmp3)
        loGfx.Clear(0xFFFFFFFF)
        loGfx.DrawImageAt(loBmp2, 0, 0)
        loBmp3.SaveToFile(lcFile2, "image/png")
        loBmp2 = Null
        loBmp3 = NULL
        IF This.IsTempFile(lcFile)
            DELETE FILE (lcFile)
        ENDIF
        lcFile = lcFile2
        * Try loading the image
        lnHandle = HPDF_LoadPngImageFromFile(This.pdfHandle, lcFile)
        *!* 2010-08-25 - Jacques Parent - Update the image filename
        lcExternalName = lcFile
    ENDIF
    This.oPictureHandles.Add(lnHandle, lcInternalName)
    lnHandle = This.oPictureHandles.Item(lnHandle)
EndIf
Return lnHandle
ENDPROC
PROCEDURE ispixelalpha
LPARAMETERS tnARGB
IF ISNULL(tnARGB)
    tnARGB = 0xFF000000    && OPAQUE BLACK
ENDIF
LOCAL tlAlphaIsUsed
tlAlphaIsUsed = .T.
*!* Alpha = BITAND(BITRSHIFT(tnARGB, 24), 0xFF)
*!* Red   = BITAND(BITRSHIFT(tnARGB, 16), 0xFF)
*!* Green = BITAND(BITRSHIFT(tnARGB,  8), 0xFF)
*!* Blue  = BITAND(BITRSHIFT(tnARGB,  0), 0xFF)
*!*    tlAlphaIsUsed = (BITAND(tnARGB, 0xFF000000) / 16^6) < 255
tlAlphaIsUsed = BITAND(BITRSHIFT(tnARGB, 24), 0xFF) < 255
RETURN tlAlphaIsUsed
ENDPROC
PROCEDURE outputfromdata
LPARAMETERS toListener as ReportListener, tcOutputDBF, tnWidth, tnHeight
* lnSecs = SECONDS()
IF VARTYPE(toListener) <> "O"
    MESSAGEBOX("Invalid parameter. Report listener not available", 16, "Error")
    RETURN
ENDIF
This.oActiveListener = toListener
* =DoFoxyTherm(90, "Texto label", "Titulo")
* =DoFoxyTherm(-1, "Teste2", "Titulo") && Continuo
* =DoFoxyTherm() && Desliga
IF NOT This.QuietMode
    LOCAL lnSecs
    lnSecs = SECONDS()
    *!*    ._InitStatusText    = .GetLoc("INITSTATUS") + SPACE(1)
    *!*    ._RunStatusText     = .GetLoc("RUNSTATUS")  + SPACE(1)
    *!*    ._SecondsText       = .GetLoc("SECONDS")    + SPACE(1)
    =DoFoxyTherm(1, "0%", _goHelper._InitStatusText)
ENDIF
* Ensure we are at the correct DataSession
* SET DATASESSION TO (toListener.CurrentDataSession)
SET DATASESSION TO (toListener.ListenerDataSession)
* toListener.SetCurrentDataSession()
LOCAL lnSelect,llExit
lnSelect = SELECT()
llExit   = .F.
SELECT (tcOutputDBF)
* Generate PDF using the stored information
This.lDefaultMode = .F.
This.nPageWidth  = (tnWidth / 960) * 72
This.nPageHeight = (tnHeight / 960) * 72
LOCAL lnPgFrom, lnPgTo
lnPgFrom = _goHelper._ClausenRangeFrom && = loListener.COMMANDCLAUSES.RangeFrom
lnPgTo   = IIF(_goHelper._ClausenRangeTo = -1, 999999, _goHelper._ClausenRangeTo) && = loListener.COMMANDCLAUSES.RangeTo && -1 = All pages
* Prepare Watermark
IF toListener.lUsingWaterMark
    LOCAL lnX, lnY, lnW, lnH, lcTempFile, lcType
    LOCAL loBmp as GpImage OF HOME() + "\FFC\_Gdiplus.vcx"
    lcType = LOWER(JUSTEXT(toListener.cWatermarkImage))
    DO CASE
    CASE INLIST(lcType, "jpg", "jpeg", "tif", "tiff")
        lcType = "jpeg"
    OTHERWISE
        lcType = "png"
    ENDCASE
    lcTempFile = ADDBS(GETENV("TEMP")) + "Temp_WM_" + SYS(2015) + "." + lcType
    IF VARTYPE(toListener.oWaterMarkBmp) = "O"
        toListener.oWaterMarkBmp.SaveToFile(lcTempFile, "image/" + lcType)
        This._cWMpicture = lcTempFile
    ENDIF
    LOCAL lnX, lnY, lnWidth, lnHeight
    lnX = (1 - toListener.nWatermarkWidthRatio) / 2
    lnY = (1 - toListener.nWatermarkHeightRatio) / 2
    lnWidth  = toListener.nWatermarkWidthRatio
    lnHeight = toListener.nWatermarkHeightRatio
    This._nWMx = lnx * This.nPageWidth
    This._nWMy = lnY * This.nPageHeight
    This._nWMw = This.nPageWidth * lnWidth
    This._nWMh = This.nPageHeight * lnHeight
ENDIF
* Initialize class
This.BeforeReport()
IF This.QuietMode
    SCAN
        IF BETWEEN(Page, lnPgFrom, lnPgTo)
            IF NOT This.Render(FRXRECNO, Left, Top, Width, Height, ContType, UNContents, 0)
                llExit = .T.
                EXIT
            ENDIF
        ENDIF
    ENDSCAN
ELSE
    LOCAL lnPercent, lnLastPercent, lnDelay, lnTotRecs, lnRec
    lnLastPercent = 0
    lnDelay       = 1
    lnTotRecs     = RECCOUNT()
    lnRec         = 0
    SCAN
        IF BETWEEN(Page, lnPgFrom, lnPgTo)
            lnRec = lnRec + 1
            lnPercent = CEILING(100*lnRec/lnTotRecs)
            IF (lnLastPercent > 0 AND ;
                    lnPercent - lnLastPercent < lnDelay  AND ;
                    lnPercent <> 100)
            ELSE
                =DoFoxyTherm(lnPercent, ;
                    ALLTRIM(TRANSFORM(lnPercent)) + "%  - " + TRANSFORM(FLOOR(SECONDS() - lnSecs)) + " " + _goHelper._SecondsText , ;
                    _goHelper._RunStatusText)
            ENDIF
            IF NOT This.Render(FRXRECNO, Left, Top, Width, Height, ContType, UNContents, 0)
                llExit = .T.
                EXIT
            ENDIF
        ENDIF
    ENDSCAN
    =DoFoxyTherm(100, ;
        "100%  - " + TRANSFORM(CEILING(SECONDS() - lnSecs)) + " " + _goHelper._SecondsText , ;
                _goHelper._RunStatusText)
ENDIF
IF NOT llExit
    * Finalize
    This.AfterReport()
    This.UnloadReport()
ENDIF
USE IN SELECT (tcOutputDBF)
SELECT (lnSelect)
* MESSAGEBOX("Elapsed " + TRANSFORM(SECONDS() - lnSecs) + " secs.")
* Delete temp watermark image
IF toListener.lUsingWaterMark AND FILE(lcTempFile)
    TRY
        DELETE FILE (lcTempFile)
    CATCH
    ENDTRY
ENDIF
IF NOT This.QuietMode
    =DoFoxyTherm()
ENDIF
RETURN
ENDPROC
PROCEDURE getparheight
LPARAMETERS tcText, tcFontName, tnSize, tcStyle, tnLeft, tnTop, tnWidth, tnHeight
LOCAL lnX0, lnY0, lnW0, lnH0, lnFactor
lnX0 = tnLeft   * 960 / 72
lnY0 = tnTop    * 960 / 72
lnW0 = tnWidth  * 960 / 72
lnH0 = tnHeight * 960 / 72
LOCAL loFont, lnChars, lnLines, lnHeight, lnWidth
LOCAL loRect as GpRectangle OF HOME() + "\ffc\_Gdiplus.vcx"
loRect = NEWOBJECT("GPRectangle", "_Gdiplus.vcx", "", lnX0, lnY0, lnW0, lnH0)
* Create a font object using the text object's settings.
loFont = NEWOBJECT("GPFont", "_Gdiplus.vcx")
loFont.Create(tcFontName, tnSize, tcStyle, 3)
LOCAL loGfx as GpGraphics OF HOME() + "\ffc\_Gdiplus.vcx"
loGfx  = NEWOBJECT("GpGraphics", "_Gdiplus.vcx")
IF This.lDefaultMode
    lnFactor = 1
    loGfx.SetHandle(IIF(This.IsSuccessor, ;
        This.SharedGDIPlusGraphics, This.GDIPlusGraphics))
ELSE
    lnFactor = 10
    loGfx.CreateFromHWND(_Screen.HWnd)
    loGfx.PageUnit  = 1
    loGfx.PageScale = 0.3
    loRect.w = lnW0 / lnFactor
    loRect.h = lnH0 / lnFactor
ENDIF
LOCAL loSize as GpSize OF HOME() + "\ffc\_Gdiplus.vcx"
loSize = loGfx.MeasureStringA(tcText, loFont, loRect.GdipRectF, .F., @lnChars, @lnLines)
lnWidth  = loSize.w
lnHeight = loSize.h
* loGfx.SetHandle(0)
RETURN (lnHeight / 960) * 72 * lnFactor
ENDPROC
PROCEDURE stringtopic
* CChalom 2010-12-18
* Converts the string to image
LPARAMETERS tcString, tcFont, tnSize, tnR, tnG, tnB, tnAlign, tnW, tnH
#define GDIPLUS_Unit_Point            3
#define GDIPLUS_FontStyle_Regular     0
LOCAL lnW0, lnH0, lnFactor
lnW0 = tnW * 960 / 72
lnH0 = tnH * 960 / 72
lnFactor = 10
LOCAL loRect as GpRectangle OF HOME() + "\ffc\_Gdiplus.vcx"
loRect = NEWOBJECT("GPRectangle")
loRect.w = lnW0 / lnFactor
loRect.h = lnH0 / lnFactor
LOCAL loGfx0 as GpGraphics OF HOME(1) + "ffc\_gdiplus.vcx"
loGfx0 = NEWOBJECT("gpGraphics", "_gdiplus.vcx")
loGfx0.CreateFromHWND(_Screen.HWnd)
loGfx0.PageUnit  = 1
loGfx0.PageScale = 0.3
LOCAL loFont as GpFont OF HOME(1) + "ffc\_gdiplus.vcx"
loFont = NEWOBJECT("gpFont", "_gdiplus.vcx")
loFont.Create(tcFont, tnSize, GDIPLUS_FontStyle_Regular, GDIPLUS_Unit_Point)
LOCAL loStrFmt as GpStringFormat OF HOME(1) + "ffc\_gdiplus.vcx"
loStrFmt = NEWOBJECT("gpStringFormat", "_gdiplus.vcx")
loStrFmt.Create()
LOCAL loColor as GpColor OF HOME(1) + "ffc\_gdiplus.vcx"
loColor = NEWOBJECT("gpColor", "_gdiplus.vcx", "", tnR, tnG, tnB)
LOCAL loBrush as GpSolidBrush OF HOME(1) + "ffc\_gdiplus.vcx"
loBrush = NEWOBJECT("gpSolidBrush", "_gdiplus.vcx")
loBrush.Create(loColor)
LOCAL loSize as GpSize OF HOME(1) + "ffc\_gdiplus.vcx"
loSize = loGfx0.MeasureStringA(tcString, loFont, loRect.GdipRectF)
tnW = loSize.W
tnH = loSize.H
IF EMPTY(tnH) OR EMPTY(tnW)
    RETURN ""
ENDIF
LOCAL loBmp as GpBitmap OF HOME(1) + "ffc\_gdiplus.vcx"
loBmp = NEWOBJECT("gpBitmap", "_gdiplus.vcx", "", tnW, tnH)
* loBmp.SetResolution(loBmp2.HorizontalResolution, loBmp2.VerticalResolution)
LOCAL loGfx as GpGraphics OF HOME(1) + "ffc\_gdiplus.vcx"
loGfx = NEWOBJECT("gpGraphics", "_gdiplus.vcx")
loGfx.CreateFromImage(loBmp)
loGfx.PageUnit  = 1
loGfx.PageScale = 0.3
loGfx.Clear(0xFFFFFFFF)
loGfx.DrawStringA(tcString, loFont, 0h0000000000000000, loStrFmt, loBrush)
lcTempFile = This.GetTempFile("png")
* lcTempFile = This._cTempFolder + SYS(2015) + ".png"
loBmp.SaveToFile(lcTempFile, "image/png")
loBmp = NULL
RETURN lcTempFile
*!*    lcCommand = "RUN /N6 Explorer.Exe " + lcTempFile
*!*    &lcCommand.
ENDPROC
PROCEDURE processpictures2
* CChalom 2010-12-18
* Draws the image of the string in the PDF document
LPARAMETERS tcFile, tnLeft, tnTop, tnWidth, tnHeight
*tnWidth  = (tnWidth  / 960) * 72
*tnHeight = (tnHeight / 960) * 72
tnWidth  = tnWidth  * .75
tnHeight = tnHeight &&* .75
LOCAL lnHandle
lnHandle = HPDF_LoadPngImageFromFile(This.pdfHandle, tcFile)
This._Stat = HPDF_Page_DrawImage(This.oPage, lnHandle, tnLeft, tnTop - tnHeight, tnWidth, tnHeight)
    IF This.IsTempFile(lcFile)
        DELETE FILE (lcFile)
    ENDIF
CATCH
ENDTRY
ENDPROC
PROCEDURE _stat_assign
LPARAMETERS tnStatus
This._Stat = tnStatus
IF tnStatus != 0
    * Clear existing the HPDF errors
    * Here we can see if an error occurred during the rendering process of the
    * current field
    LOCAL lnHPDF_err, lcHex
    lnHPDF_err = HPDF_GetError(This.pdfHandle)
    IF lnHPDF_err <> 0
        lcHex = TRANSFORM(lnHPDF_err, "@0")
        * SET STEP ON
        HPDF_ResetError(This.pdfHandle)
    ENDIF
    IF This.lShowErrors = .T.
        IF _VFP.StartMode = 0 && Development
            LOCAL lnOption
            lnOption = MESSAGEBOX("PDFx error in " + PROGRAM(PROGRAM(-1) - 1) + CHR(13);
                + "Error code : " + TRANSFORM(tnStatus) + CHR(13) ;
                + "Description: " + This._ErrorInfo(tnStatus) + CHR(13) ;
                + "Page: " + TRANSFORM(This.nCurrentPage) + CHR(13) ;
                + "Object: " + This.cObjectToRender + CHR(13) + CHR(13) ;
                + "Press 'Retry' to debug the application.", 16 + 2, "Error")
            IF lnOption = 3
                CANCEL
            ENDIF
            IF lnOption = 4
                SUSPEND
            ENDIF
        ELSE
            MESSAGEBOX("PDFx error in " + PROGRAM(PROGRAM(-1) - 1) + CHR(13);
                + "Error code  : " + TRANSFORM(tnStatus) + CHR(13) ;
                + "Description : " + This._ErrorInfo(tnStatus) + CHR(13) ;
                + "Object: " + This.cObjectToRender, 16, "Error")
        ENDIF
    ENDIF
ENDIF
ENDPROC
PROCEDURE _errorinfo
LPARAMETERS tnStatus
DO CASE
    CASE tnStatus = 0x1001
        RETURN "HPDF_ARRAY_COUNT_ERR                      "    &&  0x1001
    CASE tnStatus = 0x1002
        RETURN "HPDF_ARRAY_ITEM_NOT_FOUND                 "    &&  0x1002
    CASE tnStatus = 0x1003
        RETURN "HPDF_ARRAY_ITEM_UNEXPECTED_TYPE           "    &&  0x1003
    CASE tnStatus = 0x1004
        RETURN "HPDF_BINARY_LENGTH_ERR                    "    &&  0x1004
    CASE tnStatus = 0x1005
        RETURN "HPDF_CANNOT_GET_PALLET                    "    &&  0x1005
    CASE tnStatus = 0x1007
        RETURN "HPDF_DICT_COUNT_ERR                       "    &&  0x1007
    CASE tnStatus = 0x1008
        RETURN "HPDF_DICT_ITEM_NOT_FOUND                  "    &&  0x1008
    CASE tnStatus = 0x1009
        RETURN "HPDF_DICT_ITEM_UNEXPECTED_TYPE            "    &&  0x1009
    CASE tnStatus = 0x100A
        RETURN "HPDF_DICT_STREAM_LENGTH_NOT_FOUND         "    &&  0x100A
    CASE tnStatus = 0x100B
        RETURN "HPDF_DOC_ENCRYPTDICT_NOT_FOUND            "    &&  0x100B
    CASE tnStatus = 0x100C
        RETURN "HPDF_DOC_INVALID_OBJECT                   "    &&  0x100C
    CASE tnStatus = 0x100E
        RETURN "HPDF_DUPLICATE_REGISTRATION               "    &&  0x100E
    CASE tnStatus = 0x100F
        RETURN "HPDF_EXCEED_JWW_CODE_NUM_LIMIT            "    &&  0x100F
    CASE tnStatus = 0x10011
        RETURN "HPDF_ENCRYPT_INVALID_PASSWORD             "    &&  0x1011
    CASE tnStatus = 0x1013
        RETURN "HPDF_ERR_UNKNOWN_CLASS                    "    &&  0x1013
    CASE tnStatus = 0x1014
        RETURN "HPDF_EXCEED_GSTATE_LIMIT                  "    &&  0x1014
    CASE tnStatus = 0x1015
        RETURN "HPDF_FAILD_TO_ALLOC_MEM                   "    &&  0x1015
    CASE tnStatus = 0x1016
        RETURN "HPDF_FILE_IO_ERROR                        "    &&  0x1016
    CASE tnStatus = 0x1017
        RETURN "HPDF_FILE_OPEN_ERROR                      "    &&  0x1017
    CASE tnStatus = 0x1019
        RETURN "HPDF_FONT_EXISTS                          "    &&  0x1019
    CASE tnStatus = 0x101A
        RETURN "HPDF_FONT_INVALID_WIDTHS_TABLE            "    &&  0x101A
    CASE tnStatus = 0x101B
        RETURN "HPDF_INVALID_AFM_HEADER                   "    &&  0x101B
    CASE tnStatus = 0x101C
        RETURN "HPDF_INVALID_ANNOTATION                   "    &&  0x101C
    CASE tnStatus = 0x101E
        RETURN "HPDF_INVALID_BIT_PER_COMPONENT            "    &&  0x101E
    CASE tnStatus = 0x101F
        RETURN "HPDF_INVALID_CHAR_MATRICS_DATA            "    &&  0x101F
    CASE tnStatus = 0x1020
        RETURN "HPDF_INVALID_COLOR_SPACE                  "    &&  0x1020
    CASE tnStatus = 0x1021
        RETURN "HPDF_INVALID_COMPRESSION_MODE             "    &&  0x1021
    CASE tnStatus = 0x1022
        RETURN "HPDF_INVALID_DATE_TIME                    "    &&  0x1022
    CASE tnStatus = 0x1023
        RETURN "HPDF_INVALID_DESTINATION                  "    &&  0x1023
    CASE tnStatus = 0x1025
        RETURN "HPDF_INVALID_DOCUMENT                     "    &&  0x1025
    CASE tnStatus = 0x1026
        RETURN "HPDF_INVALID_DOCUMENT_STATE               "    &&  0x1026
    CASE tnStatus = 0x1027
        RETURN "HPDF_INVALID_ENCODER                      "    &&  0x1027
    CASE tnStatus = 0x1028
        RETURN "HPDF_INVALID_ENCODER_TYPE                 "    &&  0x1028
    CASE tnStatus = 0x102B
        RETURN "HPDF_INVALID_ENCODING_NAME                "    &&  0x102B
    CASE tnStatus = 0x102C
        RETURN "HPDF_INVALID_ENCRYPT_KEY_LEN              "    &&  0x102C
    CASE tnStatus = 0x102D
        RETURN "HPDF_INVALID_FONTDEF_DATA                 "    &&  0x102D
    CASE tnStatus = 0x102E
        RETURN "HPDF_INVALID_FONTDEF_TYPE                 "    &&  0x102E
    CASE tnStatus = 0x102F
        RETURN "HPDF_INVALID_FONT_NAME                    "    &&  0x102F
    CASE tnStatus = 0x1030
        RETURN "HPDF_INVALID_IMAGE                        "    &&  0x1030
    CASE tnStatus = 0x1031
        RETURN "HPDF_INVALID_JPEG_DATA                    "    &&  0x1031
    CASE tnStatus = 0x1032
        RETURN "HPDF_INVALID_N_DATA                       "    &&  0x1032
    CASE tnStatus = 0x1033
        RETURN "HPDF_INVALID_OBJECT                       "    &&  0x1033
    CASE tnStatus = 0x1034
        RETURN "HPDF_INVALID_OBJ_ID                       "    &&  0x1034
    CASE tnStatus = 0x1035
        RETURN "HPDF_INVALID_OPERATION                    "    &&  0x1035
    CASE tnStatus = 0x1036
        RETURN "HPDF_INVALID_OUTLINE                      "    &&  0x1036
    CASE tnStatus = 0x1037
        RETURN "HPDF_INVALID_PAGE                         "    &&  0x1037
    CASE tnStatus = 0x1038
        RETURN "HPDF_INVALID_PAGES                        "    &&  0x1038
    CASE tnStatus = 0x1039
        RETURN "HPDF_INVALID_PARAMETER                    "    &&  0x1039
    CASE tnStatus = 0x103B
        RETURN "HPDF_INVALID_PNG_IMAGE                    "    &&  0x103B
    CASE tnStatus = 0x103C
        RETURN "HPDF_INVALID_STREAM                       "    &&  0x103C
    CASE tnStatus = 0x103D
        RETURN "HPDF_MISSING_FILE_NAME_ENTRY              "    &&  0x103D
    CASE tnStatus = 0x103F
        RETURN "HPDF_INVALID_TTC_FILE                     "    &&  0x103F
    CASE tnStatus = 0x1040
        RETURN "HPDF_INVALID_TTC_INDEX                    "    &&  0x1040
    CASE tnStatus = 0x1041
        RETURN "HPDF_INVALID_WX_DATA                      "    &&  0x1041
    CASE tnStatus = 0x1042
        RETURN "HPDF_ITEM_NOT_FOUND                       "    &&  0x1042
    CASE tnStatus = 0x1043
        RETURN "HPDF_LIBPNG_ERROR                         "    &&  0x1043
    CASE tnStatus = 0x1044
        RETURN "HPDF_NAME_INVALID_VALUE                   "    &&  0x1044
    CASE tnStatus = 0x1045
        RETURN "HPDF_NAME_OUT_OF_RANGE                    "    &&  0x1045
    CASE tnStatus = 0x1048
        RETURN "HPDF_PAGE_INVALID_PARAM_COUNT             "    &&  0x1048
    CASE tnStatus = 0x1049
        RETURN "HPDF_PAGES_MISSING_KIDS_ENTRY             "    &&  0x1049
    CASE tnStatus = 0x104A
        RETURN "HPDF_PAGE_CANNOT_FIND_OBJECT              "    &&  0x104A
    CASE tnStatus = 0x104B
        RETURN "HPDF_PAGE_CANNOT_GET_ROOT_PAGES           "    &&  0x104B
    CASE tnStatus = 0x104C
        RETURN "HPDF_PAGE_CANNOT_RESTORE_GSTATE           "    &&  0x104C
    CASE tnStatus = 0x104D
        RETURN "HPDF_PAGE_CANNOT_SET_PARENT               "    &&  0x104D
    CASE tnStatus = 0x104E
        RETURN "HPDF_PAGE_FONT_NOT_FOUND                  "    &&  0x104E
    CASE tnStatus = 0x104F
        RETURN "HPDF_PAGE_INVALID_FONT                    "    &&  0x104F
    CASE tnStatus = 0x1050
        RETURN "HPDF_PAGE_INVALID_FONT_SIZE               "    &&  0x1050
    CASE tnStatus = 0x1051
        RETURN "HPDF_PAGE_INVALID_GMODE                   "    &&  0x1051
    CASE tnStatus = 0x1052
        RETURN "HPDF_PAGE_INVALID_INDEX                   "    &&  0x1052
    CASE tnStatus = 0x1053
        RETURN "HPDF_PAGE_INVALID_ROTATE_VALUE            "    &&  0x1053
    CASE tnStatus = 0x1054
        RETURN "HPDF_PAGE_INVALID_SIZE                    "    &&  0x1054
    CASE tnStatus = 0x1055
        RETURN "HPDF_PAGE_INVALID_XOBJECT                 "    &&  0x1055
    CASE tnStatus = 0x1056
        RETURN "HPDF_PAGE_OUT_OF_RANGE                    "    &&  0x1056
    CASE tnStatus = 0x1057
        RETURN "HPDF_REAL_OUT_OF_RANGE                    "    &&  0x1057
    CASE tnStatus = 0x1058
        RETURN "HPDF_STREAM_EOF                           "    &&  0x1058
    CASE tnStatus = 0x1059
        RETURN "HPDF_STREAM_READLN_CONTINUE               "    &&  0x1059
    CASE tnStatus = 0x105B
        RETURN "HPDF_STRING_OUT_OF_RANGE                  "    &&  0x105B
    CASE tnStatus = 0x105C
        RETURN "HPDF_THIS_FUNC_WAS_SKIPPED                "    &&  0x105C
    CASE tnStatus = 0x105D
        RETURN "HPDF_TTF_CANNOT_EMBEDDING_FONT            "    &&  0x105D
    CASE tnStatus = 0x105E
        RETURN "HPDF_TTF_INVALID_CMAP                     "    &&  0x105E
    CASE tnStatus = 0x105F
        RETURN "HPDF_TTF_INVALID_FOMAT                    "    &&  0x105F
    CASE tnStatus = 0x1060
        RETURN "HPDF_TTF_MISSING_TABLE                    "    &&  0x1060
    CASE tnStatus = 0x1061
        RETURN "HPDF_UNSUPPORTED_FONT_TYPE                "    &&  0x1061
    CASE tnStatus = 0x1062
        RETURN "HPDF_UNSUPPORTED_FUNC                     "    &&  0x1062
    CASE tnStatus = 0x1063
        RETURN "HPDF_UNSUPPORTED_JPEG_FORMAT              "    &&  0x1063
    CASE tnStatus = 0x1064
        RETURN "HPDF_UNSUPPORTED_TYPE1_FONT               "    &&  0x1064
    CASE tnStatus = 0x1065
        RETURN "HPDF_XREF_COUNT_ERR                       "    &&  0x1065
    CASE tnStatus = 0x1066
        RETURN "HPDF_ZLIB_ERROR                           "    &&  0x1066
    CASE tnStatus = 0x1067
        RETURN "HPDF_INVALID_PAGE_INDEX                   "    &&  0x1067
    CASE tnStatus = 0x1068
        RETURN "HPDF_INVALID_URI                          "    &&  0x1068
    CASE tnStatus = 0x1069
        RETURN "HPDF_PAGE_LAYOUT_OUT_OF_RANGE             "    &&  0x1069
    CASE tnStatus = 0x1070
        RETURN "HPDF_PAGE_MODE_OUT_OF_RANGE               "    &&  0x1070
    CASE tnStatus = 0x1071
        RETURN "HPDF_PAGE_NUM_STYLE_OUT_OF_RANGE          "    &&  0x1071
    CASE tnStatus = 0x1072
        RETURN "HPDF_ANNOT_INVALID_ICON                   "    &&  0x1072
    CASE tnStatus = 0x1073
        RETURN "HPDF_ANNOT_INVALID_BORDER_STYLE           "    &&  0x1073
    CASE tnStatus = 0x1074
        RETURN "HPDF_PAGE_INVALID_DIRECTION               "    &&  0x1074
    CASE tnStatus = 0x1075
        RETURN "HPDF_INVALID_FONT                         "    &&  0x1075
    CASE tnStatus = 0x1076
        RETURN "HPDF_PAGE_INSUFFICIENT_SPACE              "    &&  0x1076
    CASE tnStatus = 0x1077
        RETURN "HPDF_PAGE_INVALID_DISPLAY_TIME            "    &&  0x1077
    CASE tnStatus = 0x1078
        RETURN "HPDF_PAGE_INVALID_TRANSITION_TIME         "    &&  0x1078
    CASE tnStatus = 0x1079
        RETURN "HPDF_INVALID_PAGE_SLIDESHOW_TYPE          "    &&  0x1079
    CASE tnStatus = 0x1080
        RETURN "HPDF_EXT_GSTATE_OUT_OF_RANGE              "    &&  0x1080
    CASE tnStatus = 0x1081
        RETURN "HPDF_INVALID_EXT_GSTATE                   "    &&  0x1081
    CASE tnStatus = 0x1082
        RETURN "HPDF_EXT_GSTATE_READ_ONLY                 "    &&  0x1082
    OTHERWISE
        RETURN "Unknown Error"
ENDCASE
ENDPROC
PROCEDURE _stat2_assign
LPARAMETERS tnStatus
This._Stat2 = tnStatus
This._Stat = tnStatus
ENDPROC
PROCEDURE getpicturefromlistener
*!* 2011/02/25 CChalom
*!* When we can't render the PDF text or image correctly, we still can get
        * an image of the object, and draw it to the PDF document
LPARAMETERS tnX, tnY, tnWidth, tnHeight
* Clear any existing HPDF errors
* Here we can see if an error occurred during the rendering process of the
* current field
This.ClearPDFErrors()
LOCAL lcFile
lcFile = This.GetPageImg()
* RUN /n explorer.exe &lcFile.
IF EMPTY(lcFile)
    RETURN .F. && Could not load image
ENDIF
* Horizontal and Vertical factors to divide to convert to the correct coordinate
LOCAL lnHor, lnVert
lnHor  = 9.972
lnVert = 9.996
lcNewFile = This.CropImage(lcFile, tnX / lnHor, tnY / lnVert, tnWidth / lnHor, tnHeight / lnVert, .T.)
* RUN /n explorer.exe &lcNewFile.
lnHor  = 13.45
lnVert = 13.45
This.ProcessPictures(tnY / lnVert, tnX / lnHor, tnWidth / lnHor, tnHeight / lnVert, ;
        lcNewFile, 0, 0, 2, "")
IF VARTYPE(This.oTempImagesCollection) != "O" THEN
    This.oTempImagesCollection = CreateObject("Collection")
ENDIF
This.oTempImagesCollection.Add(lcNewFile)
This.oTempImagesCollection.Add(lcFile)
ENDPROC
PROCEDURE getpageimg
#DEFINE OutputJPEG     102
#DEFINE OutputPNG     104
LOCAL loListener as ReportListener
loListener = IIF(VARTYPE(This.oActiveListener)="O", This.oActiveListener, This)
LOCAL lnPage
lnPage = This.nCurrentPage - loListener.CommandClauses.RangeFrom + 1
DIMENSION This.aPagesImgs(lnPage)
IF EMPTY(This.aPagesImgs(lnPage))
    LOCAL lnDeviceType, lcFile, lnDeviceType, lnHandle
    lnDeviceType = OutputPNG
    lcFile = This.GetTempFile("PNG")
    TRY
        loListener.OutputPage(lnPage, lcFile, lnDeviceType)
    CATCH
        lcFile = ""
    ENDTRY
    This.aPagesImgs(lnPage) = lcFile
ENDIF
RETURN This.aPagesImgs(lnPage)
ENDPROC
PROCEDURE clearpdferrors
* Clear any existing HPDF errors
* Here we can see if an error occurred during the rendering process of the
* current field
LOCAL lnHPDF_err, lcHex
lnHPDF_err = HPDF_GetError(This.pdfHandle)
IF lnHPDF_err <> 0
    lcHex = TRANSFORM(lnHPDF_err, "@0")
    * MESSAGEBOX("PDFx error in " + PROGRAM(PROGRAM(-1) - 1) + CHR(13);
        + "Error code : " + TRANSFORM(lnHPDF_err) + CHR(13) ;
        + "Description: " + This._ErrorInfo(lnHPDF_err) + CHR(13) ;
        + "Page: " + TRANSFORM(This.nCurrentPage) + CHR(13) ;
        + "Object: " + This.cObjectToRender, ;
        16, "Error")
    HPDF_ResetError(This.pdfHandle)
ENDIF
ENDPROC
PROCEDURE getimgtype
LPARAMETERS lcData
LOCAL lcReturn,lcContents
IF PCOUNT()=0 OR VARTYPE(lcData)#'C'
   lcReturn=''
   IF ADIR(laDummy,lcData)>0 && File
      lcContents=FILETOSTR(lcData)
   ELSE && Memory variable
      lcContents=lcData
   ENDIF
   DO CASE
   CASE LEN(lcContents)<4
      lcReturn=''
   CASE LEFT(lcContents,3)=CHR(0xFF)+CHR(0xD8)+CHR(0xFF)
      lcReturn='JPG'
   CASE LEFT(lcContents,3)='GIF'
      lcReturn='GIF'
   CASE SUBSTR(lcContents,42,3)='EMF'
      lcReturn='EMF'
   CASE LEFT(lcContents,4)=CHR(0xD7)+CHR(0xCD)+CHR(0xC6)+CHR(0x9A)
      lcReturn='WMF'
   CASE LEFT(lcContents,4)=CHR(0x4D)+CHR(0x4D)+CHR(0x00)+CHR(0x2A)
      lcReturn='TIF'
   CASE LEFT(lcContents,4)=CHR(0x89)+'PNG'
      lcReturn='PNG'
   CASE LEFT(lcContents,2)='BM'
      lcReturn='BMP'
   CASE LEFT(lcContents,3)='CWS' AND ASC(SUBSTR(lcContents,4,1))<16
      lcReturn='SWF'
   CASE LEFT(lcContents,3)='FWS' AND ASC(SUBSTR(lcContents,4,1))<16
      lcReturn='SWF'
   OTHERWISE
      lcReturn=''
   ENDCASE
ENDIF
RETURN lcReturn
ENDPROC
PROCEDURE getdefaultfont
LPARAMETERS tcFontStyle
LOCAL lcNewFont, lnPos
lnPos  = ASCAN(This.aFontsReplaced, This.cDefaultFont + tcFontStyle)
IF lnPos > 0
    lnPos = (lnPos + 1) / 2
    lcNewFont = This.aFontsReplaced(lnPos, 2)
ELSE
    lcNewFont = This.cDefaultFont
ENDIF
RETURN lcNewFont
ENDPROC
PROCEDURE updateproperties
IF NOT This.lObjTypeMode OR (VARTYPE(_Screen.oFoxyPreviewer) <> "O")
    RETURN
ENDIF
LOCAL loFP
loFP = _Screen.oFoxyPreviewer
IF VARTYPE(This.CommandClauses) = "O"
    *!*    IF This.CommandClauses.Preview
    *!*        This.lOpenViewer = .T.
    *!*    ELSE
    *!*        This.lOpenViewer = NVL(loFP.lOpenViewer, .T.)
    *!*    ENDIF
    This.lOpenViewer = This.CommandClauses.Preview
    IF NOT EMPTY(This.CommandClauses.ToFile)
        This.cTargetFileName = This.CommandClauses.ToFile
    ELSE
        IF VARTYPE(_Screen.oFoxyPreviewer) = "O" AND ;
                NOT EMPTY(_Screen.oFoxyPreviewer.cDestFile) AND ;
                EMPTY(This.cTargetFileName)
            LOCAL lcDestFile
            lcDestFile = _Screen.oFoxyPreviewer.cDestFile
            IF NOT "\" $ lcDestFile
                lcDestFile = ALLTRIM(ADDBS(_Screen.oFoxyPreviewer.cOutputPath) + lcDestFile)
            ENDIF
            This.cTargetFileName = lcDestFile
        ELSE
            LOCAL lcFile
            lcFile = This.cTargetFileName
            IF EMPTY(lcFile)
                lcFile = PUTFILE("","","pdf")
            ENDIF
            IF EMPTY(lcFile)
                _ReportListener::CancelReport()
                * This.CancelReport()
                RETURN .F.
            ENDIF
            This.cTargetFileName = lcFile
        ENDIF
    ENDIF
ENDIF
This.QUIETMODE        = NVL(loFP.lQuietMode         , .F.)
This.lEmbedFont       = NVL(loFP.lPDFEmbedFonts     , .F.)
This.lCanPrint        = NVL(loFP.lPDFCanPrint       , .T.)
This.lCanEdit         = NVL(loFP.lPDFCanEdit        , .T.)
This.lCanCopy         = NVL(loFP.lPDFCanCopy        , .T.)
This.lCanAddNotes     = NVL(loFP.lPDFCanAddNotes    , .T.)
This.lEncryptDocument = NVL(loFP.lPDFEncryptDocument, .T.)
This.cMasterPassword  = NVL(loFP.cPDFMasterPassword , "")
This.cUserPassword    = NVL(loFP.cPDFUserPassword   , "")
This.lShowErrors      = NVL(loFP.lPDFShowErrors     , .F.)
This.cSymbolFontsList = NVL(loFP.cPDFSymbolFontsList, "")
This.cPdfAuthor       = NVL(loFP.cPdfAuthor         , "")
This.cPdfTitle        = NVL(loFP.cPdfTitle          , "")
This.cPdfSubject      = NVL(loFP.cPdfSubject        , "")
This.cPdfKeyWords     = NVL(loFP.cPdfKeyWords       , "")
This.cPdfCreator      = NVL(loFP.cPdfCreator        , "")
This.cDefaultFont     = NVL(loFP.cPDFDefaultFont    , "")
IF This.lObjTypeMode
    This.cCodePage    = NVL(This.cCodePage          , loFP.cCodePage)
ELSE
    This.cCodePage    = NVL(loFP.cCodePage          , This.cCodePage)
ENDIF
*!*    This.nWMheight        = loFp.nWATERMARKHEIGHTRATIO
*!*    This.nWMheightratio   = lofp.nwaTERMARKHEIGHTRATIO
*!*    This.nWMWidth         = lofp.nwaTERMARKWIDTHRATIO
*!*    This.nWMWidthratio    = lofp.nwaTERMARKWIDTHRATIO
*!*    This.cWMpicture       = lofp.cwaTERMARKIMAGE
*!*    This.hWMpdfhandle     =
LOCAL lnPgMode
lnPgMode = MAX(NVL(loFP.nPDFPageMode, 0) - 1, 0)
lnPgMode = IIF(lnPgMode = 1, 2, lnPgMode)
This.nPageMode = lnPgMode
IF VARTYPE(This.CommandClauses) = "O"
    IF This.CommandClauses.Preview
        This.lOpenViewer = .T.
    ENDIF
    IF NOT EMPTY(This.CommandClauses.ToFile)
        This.cTargetFileName = This.CommandClauses.ToFile
    ENDIF
ENDIF
This.GetWatermark()
ENDPROC
PROCEDURE filesize
LPARAMETERS lcFile
LOCAL ARRAY laSizeArray(1)
RETURN laSizeArray(ADIR(laSizeArray,lcFile)+1)
*!*    lParameters lcFileName && File to be checked
*!*    Local lnAcFiles
*!*    Local Array laSizeArray(1)
*!*    lnAcFiles = adir(laSizeArray,m.lcFilename)
*!*    Return iif(m.lnAcFiles>0,laSizeArray(2),-1)
*!*    Local lnHandle,lnSize
*!*    lnHandle = Fopen(m.lcFile,10)
*!*    lnSize = Fseek(m.lnHandle,0,2)
*!*    Fclose(m.lnHandle)
*!*    Return m.lnSize
ENDPROC
PROCEDURE getfonthandle
LPARAMETERS lcFontFace, liFontStyle
IF This._lSChinese OR This._lTChinese OR This._lJapanese OR This._lKorean
    lnFontHandle = HPDF_GetFont (.pdfHandle, This.cDefaultFont + This.GetFontStyleName(liFontStyle), .cCodePage)
ELSE
    LOCAL lcPDFFont
    lcPDFFont = .SearchFont(lcFontFace, liFontStyle)
    IF EMPTY(lcPDFFont)
        RETURN 0
    ENDIF
    lnFontHandle = HPDF_GetFont(.pdfHandle, lcPDFFont, IIF(Empty(.cCodePage), Null, .cCodePage)) && Find and select the font
ENDIF
IF lnFontHandle = 0
    This.ClearPdfErrors()
ENDIF
RETURN lnFontHandle
ENDPROC
PROCEDURE getfontstylename
LPARAMETERS tiStyle
LOCAL lcFontStyle as String
lcFontStyle   = ""
If Bittest(tiStyle, 0) Then &&Bold
    lcFontStyle  = lcFontStyle + "Bold"
EndIf
If Bittest(tiStyle, 1) Then &&Italic
    lcFontStyle  = lcFontStyle + "Italic"
EndIf
lcFontStyle = IIF(EMPTY(lcFontStyle), "", "," + lcFontStyle)
RETURN lcFontStyle
ENDPROC
PROCEDURE gettempfile
LPARAMETERS tcType
IF EMPTY(tcType)
    tcType = "JPG"
ENDIF
RETURN ADDBS(This._cTempFolder) + "FP_TMP_" + SYS(2015) + "." + tcType
ENDPROC
PROCEDURE istempfile
LPARAMETERS tcFile
IF EMPTY(tcFile)
    RETURN .F.
ENDIF
RETURN UPPER(ADDBS(This._cTempFolder) + "FP_TMP_") $ UPPER(tcFile)
ENDPROC
PROCEDURE getwatermark
* Prepare the watermarks stuff
*!*        .AddProperty("lUsingWatermark", .F.)
*!*        .AddProperty("cWatermarkImage"       , "") && loFP.cWaterMarkImage
*!*        .AddProperty("nWatermarkType"        , 1)  && 1 = colored ; 2 = greyscale  (1)
*!*        .AddProperty("nWatermarkTransparency", 0)  && 0 = transparent ; 1 = opaque (.25)
*!*        .AddProperty("nWatermarkWidthRatio"  , 0)  && 0 - 1 (.75)
*!*        .AddProperty("nWatermarkHeightRatio" , 0)  && 0 - 1 (.75)
*!*        .AddProperty("oWatermarkBmp"         , NULL)
* Watermarks
IF VARTYPE(_Screen.oFoxyPreviewer) = "O"
    LOCAL loFP
    loFP = _Screen.oFoxyPreviewer
    LOCAL lcWatermarkImage, lnWatermarkType, lnWatermarkTransparency, lnWatermarkWidthRatio, lnWatermarkHeightRatio
    lcWatermarkImage        = loFP.cWaterMarkImage
    lnWatermarkType         = loFP.nWatermarkType         && 1 = colored ; 2 = greyscale  (1)
    lnWatermarkTransparency = loFP.nWatermarkTransparency && 0 = transparent ; 1 = opaque (.25)
    lnWatermarkWidthRatio   = loFP.nWatermarkWidthRatio   && 0 - 1 (.75)
    lnWatermarkHeightRatio  = loFP.nWatermarkHeightRatio  && 0 - 1 (.75)
    IF (NOT FILE(lcWatermarkImage)) OR ;
            (lnWatermarkTransparency = 0) OR ;
            (lnWatermarkWidthRatio   = 0) OR ;
            (lnWatermarkHeightRatio  = 0)
        This.lUsingWatermark = .F.
    ELSE
        This.lUsingWatermark = .T.
        LOCAL loBmp AS GpBitmap OF HOME() + "\ffc\_gdiplus.vcx"
        loBmp = CREATEOBJECT("GpBitmap")
        loBmp.CreateFromFile(lcWatermarkImage)
        IF (lnWatermarkTransparency < 1) OR ;
                (lnWatermarkType = 2) && 1 = colored ; 2 = greyscale
            * Applying the effects if necessary
            LOCAL loAtt   &&  AS GPATTRIB    OF "PR_GdiplusHelper.Prg"
            LOCAL lcMatrix AS COLORMATRIX OF "PR_GdiplusHelper.Prg"
            loAtt = NEWOBJECT("GpAttrib", "PR_GdiplusHelper.Prg")
            IF lnWatermarkType = 2 && 1 = colored ; 2 = greyscale
                lcMatrix = loAtt.COLORMATRIX(;
                    .30, .30, .30,  0,  0, ;
                    .59, .59, .59,  0,  0, ;
                    .11, .11, .11,  0,  0, ;
                    0,   0,   0,  lnWatermarkTransparency,  0, ;
                    0,   0,   0,  0,  1)
            ELSE
                lcMatrix = loAtt.COLORMATRIX(;
                    1,   0,   0,  0,  0, ;
                    0,   1,   0,  0,  0, ;
                    0,   0,   1,  0,  0, ;
                    0,   0,   0,  lnWatermarkTransparency,  0, ;
                    0,   0,   0,  0,  1)
            ENDIF
            loAtt.ApplyColorMatrix(lcMatrix, loBmp, .F., 0xFFFFFF)
            loAtt = NULL
        ENDIF
        * Prepare Watermark
        LOCAL lcTempFile, lcType
        lcType = LOWER(JUSTEXT(lcWatermarkImage))
        DO CASE
        CASE INLIST(lcType, "jpg", "jpeg", "tif", "tiff")
            lcType = "jpeg"
        OTHERWISE
            lcType = "png"
        ENDCASE
        lcTempFile = ADDBS(GETENV("TEMP")) + "Temp_WM_" + SYS(2015) + "." + lcType
        loBmp.SaveToFile(lcTempFile, "image/" + lcType)
        This._cWMpicture = lcTempFile
        LOCAL lnX, lnY, lnWidth, lnHeight
        lnX = (1 - lnWatermarkWidthRatio) / 2
        lnY = (1 - lnWatermarkHeightRatio) / 2
        lnWidth  = lnWatermarkWidthRatio
        lnHeight = lnWatermarkHeightRatio
        LOCAL lnPgWidth, lnPgHeight
        lnPgWidth  = This.GetPageWidth()
        lnPgHeight = This.GetPageHeight()
        This.nPageHeight = (lnPgHeight / 960) * 72
        This.nPageWidth  = (lnPgWidth  / 960) * 72
        This._nWMx = CEILING(lnX * This.nPageWidth)
        This._nWMy = CEILING(lnY * This.nPageHeight)
        This._nWMw = CEILING(This.nPageWidth * lnWidth)
        This._nWMh = CEILING(This.nPageHeight * lnHeight)
    ENDIF
ENDIF
ENDPROC
PROCEDURE getlanguagefromsystem
DECLARE SHORT GetSystemDefaultLangID IN kernel32
LOCAL lnLangID
lnLangID = GetSystemDefaultLangID()
* We'll use the most common Language IDs used
DO CASE
CASE INLIST(lnLangID, 1046, 2070) && Portuguese
    lnLangID = 1046
CASE INLIST(lnLangID, 1034, 2058, 3082, 4106, 5130, 6154, 7178, 8202, 9226, 10250, 11274, 12298, 13322, 14346, 15370, 16394, 17418, 17529, 18442, 19466, 20490) && Spanish
    lnLangID = 1034
CASE INLIST(lnLangID, 1036, 2060, 3084, 4108, 5132) && French
    lnLangID = 1036
OTHERWISE
ENDCASE
This.nSystemLangID = lnLangID
ENDPROC
PROCEDURE Init
DODEFAULT()
This.GetLanguageFromSystem()
ENDPROC
PROCEDURE Destroy
This.ClearDLLS()
DODEFAULT()
ENDPROC
PROCEDURE LoadReport
This.UpdateProperties()
DODEFAULT()
ENDPROC
PROCEDURE UnloadReport
IF This.lDefaultMode
    DODEFAULT()
ENDIF
WITH This
    * CChalom 2010-01-20
    * Added "WaitForNextReport" property in order to allow merging reports
    * If another report is expected to come, don't close the objects and handles
    If Not .WaitForNextReport
        If VARTYPE(.oTempImagesCollection) = "O" Then && Cleanup Temporary Images Files
            LOCAL lcItem AS String
            FOR EACH lcItem IN .oTempImagesCollection FOXOBJECT
                *!* 2010-08-25 - Jacques Parent - Add TRY CATCH ENDTRY to catch error message
                IF VARTYPE(lcItem) = "C" AND FILE(lcItem)
                    LOCAL loExc as Exception
                    TRY
                        IF This.IsTempFile(lcItem)
                            DELETE FILE (lcItem)
                        ENDIF
                    CATCH TO loExc
                        * SET STEP ON
                    ENDTRY
                ENDIF
            ENDFOR
            .oTempImagesCollection = Null
        ENDIF
        .oDynamics = NULL
        If Used("_TempDynamics") Then
            Use In "_TempDynamics"
        EndIf
        LOCAL llConsole, llTalk
        llConsole = This._lSetConsole
        llTalk = This._lSetTalk
        SET CONSOLE &llConsole.
        SET TALK &llTalk.
    ENDIF
    * Delete the pages files
    LOCAL n, lcFile
    FOR m.n = 1 TO ALEN(This.aPagesImgs,1)
        lcFile = This.aPagesImgs(m.n)
        IF NOT EMPTY(lcFile)
            TRY
                IF This.IsTempFile(lcFile)
                    DELETE FILE (lcFile)
                ENDIF
            CATCH
            ENDTRY
        ENDIF
    ENDFOR
ENDWITH
ENDPROC
PROCEDURE BeforeReport
IF This.lDefaultMode
    This.oActiveListener = This
    DODEFAULT()
ENDIF
WITH This
* Reset values, just for security
.oFonts = NULL
DIMENSION .aFontsSymbol(1)
.aFontsSymbol = .F.
        .oFonts = CREATEOBJECT("Collection")
        .AddPDFStandardFonts()
        .DeclareDLL()
        IF "1252" $ This.cCodePage
        ELSE
            This.lReplaceFonts = .F.
        ENDIF
        IF This.lReplaceFonts
            DIMENSION This.aFontsReplaced(26,2)
            .aFontsReplaced(1,1) = "Courier New"
            .aFontsReplaced(1,2) = "Courier"
            .aFontsReplaced(2,1) = "Courier New Bold"
            .aFontsReplaced(2,2) = "Courier-Bold"
            .aFontsReplaced(3,1) = "Courier New Italic"
            .aFontsReplaced(3,2) = "Courier-Oblique"
            .aFontsReplaced(4,1) = "Courier New Bold Italic"
            .aFontsReplaced(4,2) = "Courier-BoldOblique"
            .aFontsReplaced(5,1) = "Monotype Sorts"
            .aFontsReplaced(5,2) = "ZapfDingbats"
            .aFontsReplaced(6,1) = "Wingdings"
            .aFontsReplaced(6,2) = "ZapfDingbats"
            .aFontsReplaced(7,1) = "Arial"
            .aFontsReplaced(7,2) = "Helvetica"
            .aFontsReplaced(8,1) = "Arial Bold"
            .aFontsReplaced(8,2) = "Helvetica-Bold"
            .aFontsReplaced(9,1) = "Arial Italic"
            .aFontsReplaced(9,2) = "Helvetica-Oblique"
            .aFontsReplaced(10,1) = "Arial Bold Italic"
            .aFontsReplaced(10,2) = "Helvetica-BoldOblique"
            .aFontsReplaced(11,1) = "Times New Roman"
            .aFontsReplaced(11,2) = "Times-Roman"
            .aFontsReplaced(12,1) = "Times New Roman Bold"
            .aFontsReplaced(12,2) = "Times-Bold"
            .aFontsReplaced(13,1) = "Times New Roman Italic"
            .aFontsReplaced(13,2) = "Times-Italic"
            .aFontsReplaced(14,1) = "Times New Roman Bold Italic"
            .aFontsReplaced(14,2) = "Times-BoldItalic"
            * Other compatible possibilities
            .aFontsReplaced(15,1) = "Courier"
            .aFontsReplaced(15,2) = "Courier"
            .aFontsReplaced(16,1) = "Courier Bold"
            .aFontsReplaced(16,2) = "Courier-Bold"
            .aFontsReplaced(17,1) = "Courier Italic"
            .aFontsReplaced(17,2) = "Courier-Oblique"
            .aFontsReplaced(18,1) = "Courier Bold Italic"
            .aFontsReplaced(18,2) = "Courier-BoldOblique"
            .aFontsReplaced(19,1) = "Helvetica"
            .aFontsReplaced(19,2) = "Helvetica"
            .aFontsReplaced(20,1) = "Helvetica Bold"
            .aFontsReplaced(20,2) = "Helvetica-Bold"
            .aFontsReplaced(21,1) = "Helvetica Italic"
            .aFontsReplaced(21,2) = "Helvetica-Oblique"
            .aFontsReplaced(22,1) = "Helvetica Bold Italic"
            .aFontsReplaced(22,2) = "Helvetica-BoldOblique"
            .aFontsReplaced(23,1) = "Times-Roman"
            .aFontsReplaced(23,2) = "Times-Roman"
            .aFontsReplaced(24,1) = "Times-Roman Bold"
            .aFontsReplaced(24,2) = "Times-Bold"
            .aFontsReplaced(25,1) = "Times-Roman Italic"
            .aFontsReplaced(25,2) = "Times-Italic"
            .aFontsReplaced(26,1) = "Times-Roman Bold Italic"
            .aFontsReplaced(26,2) = "Times-BoldItalic"
        ENDIF
        * Missing to add to corresponding fonts array
        *!*        .Add("Symbol", "Symbol")
        ._lSetConsole   = Set("Console")
        ._lSetTalk      = Set("Talk")
        Set Talk Off
        Set Console Off
        Local lnFonts, lnFontstoAdd
        lnFonts = 34
        lnFontstoAdd = Getwordcount(This.cSymbolFontsList, ",")
        Dimension .aFontsSymbol(lnFonts + lnFontstoAdd)
        .aFontsSymbol(1)  = "WING-DINGS"
        .aFontsSymbol(2)  = "WEBDINGS"
        .aFontsSymbol(3)  = "BARRAS BIRO"
        .aFontsSymbol(4)  = "PF BARCODE 128"
        .aFontsSymbol(5)  = "BARRA25"
        .aFontsSymbol(6)  = "BARRA25I"
        .aFontsSymbol(7)  = "BARRA39"
        .aFontsSymbol(8)  = "BARRAEAN8"
        .aFontsSymbol(9)  = "BARRAEAN13"
        .aFontsSymbol(10) = "BARRA128B"
        .aFontsSymbol(11) = "IDAUTOMATIONHC39M"
        .aFontsSymbol(12) = "PF BARCODE 39"
        .aFontsSymbol(13) = "PF EAN P36"
        .aFontsSymbol(14) = "PF EAN P72"
        .aFontsSymbol(15) = "PF INTERLEAVED 2 of 5"
        .aFontsSymbol(16) = "PF INTERLEAVED 2 OF 5 WIDE"
        .aFontsSymbol(17) = "PF INTERLEAVED 2 OF 5 TEXT"
        .aFontsSymbol(18) = "CODE 128AB"
        .aFontsSymbol(19) = "CODE 128AB SHORT"
        .aFontsSymbol(20) = "CODE 128AB TALL"
        .aFontsSymbol(21) = "CODE 128AB HR"
        .aFontsSymbol(22) = "CODE 128AB SHORT"
        .aFontsSymbol(23) = "CODE 128AB TALL HR"
        .aFontsSymbol(24) = "CODE 128C"
        .aFontsSymbol(25) = "CODE 128C SHORT"
        .aFontsSymbol(26) = "CODE 128C TALL"
        .aFontsSymbol(27) = "CODE 128C HR"
        .aFontsSymbol(28) = "CODE 128C HR SHORT"
        .aFontsSymbol(29) = "CODE 128C HR TALL"
        .aFontsSymbol(30) = "CODIGO DE BARRAS CYT"
        .aFontsSymbol(31) = "C39HRP24DHTT"
        .aFontsSymbol(32) = "C39HRP48DHTT"
        .aFontsSymbol(33) = "INTERLEAVED 2OF5 NT"
        .aFontsSymbol(34) = "3 of 9 Barcode"
        If lnFontstoAdd > 0
            Local N
            For m.N = 1 To lnFontstoAdd
                .aFontsSymbol(lnFonts + m.N) = GETWORDNUM(.cSymbolFontsList, m.N, ",")
            Endfor
        Endif
        ._cTempFolder = Addbs(Sys(2023)) && ADDBS(GETENV("TEMP"))
        ._cWinFolder  = Addbs(Getenv("windir"))
*    ENDIF
ENDWITH
* Checking the default font
LOCAL lcDefaultFont
lcDefaultFont = ALLTRIM(This.cDefaultFont)
IF EMPTY(lcDefaultFont) OR NOT INLIST(lcDefaultFont, "Courier", "Helvetica", "Times-Roman")
    This.cDefaultFont = "Helvetica"
ENDIF
ENDPROC
PROCEDURE Render
LPARAMETERS nFRXRecno, nLeft, nTop, nWidth, nHeight, nObjectContinuationType, cContentsToBeRendered, GDIPlusImage
IF This.TwoPassProcess And This.CurrentPass=0 Then &&Code to detect if report will run twice because of use of _PAGETOTAL
    DODEFAULT(nFRXRecno, nLeft, nTop, nWidth, nHeight, nObjectContinuationType, cContentsToBeRendered, GDIPlusImage)
    RETURN
ENDIF
* CChalom 2010-01-25
* If the report page is not between the page ranges asked, just skip
IF This.lDefaultMode
    IF This.PageNo > This.nGlobalPgCounter OR This.nPgCounter = 0
        This.nPgCounter = This.nPgCounter + 1
        This.nGlobalPgCounter = This.nGlobalPgCounter + 1
    ENDIF
    LOCAL lnRangeTo
    lnRangeTo = This.CommandClauses.RangeTo
    IF lnRangeTo <> -1 AND NOT BETWEEN(This.nPgCounter, This.CommandClauses.RangeFrom, lnRangeTo)
        NODEFAULT
        RETURN
    ENDIF
ENDIF
#Define OBJ_COMMENT                  0
#Define OBJ_LABEL                    5
#Define OBJ_LINE                     6
#Define OBJ_RECTANGLE                7
#Define OBJ_FIELD                    8
#Define OBJ_PICTURE                 17
#Define OBJ_VARIABLE                18
nLeft0   = nLeft
nTop0    = nTop
nWidth0  = nWidth
nHeight0 = nHeight
LOCAL lcContents AS String, loError AS Exception
*!* Modify the measures according to the PDF library
LOCAL nPDFLeft, nPDFTop, nPDFWidth, nPDFHeight
nPDFLeft   = (nLeft   / 960) * 72
nPDFTop    = (nTop    / 960) * 72
nPDFWidth  = (nWidth  / 960) * 72
nPDFHeight = (nHeight / 960) * 72
WITH This
    LOCAL lnPageNo
    IF This.lDefaultMode
        .SetFRXDataSession()
        lnPageNo = .PageNo
    ELSE
        lnPageNo = PAGE
    ENDIF
    .nCurrentPage = lnPageNo
    If !.lStarted Then &&Start PDF Document
        IF NOT .StartPdfDocument() &&Method Called to Start the PDF Generation
            RETURN .F.
        ENDIF
        .nLastPageProccesed = lnPageNo
    EndIf
    If lnPageNo!=.nLastPageProccesed Then &&Add a New Page
        .AddBlankPage()
        .nLastPageProccesed = lnPageNo
    EndIf
    If Empty(cContentsToBeRendered) Then
        lcContents = ''
    EndIf
EndWith
IF (nPdfLeft < 0) OR (nPDFLeft > This.nPageWidth) OR ;
        (nPDFTop < 0) OR (nPdfTop > This.nPageHeight)
    * SET STEP ON
    RETURN
ENDIF
*!* Change to FRX Datasession and take out the important values
IF This.lDefaultMode
    Go nFRXRecno In FRX
ENDIF
Scatter Memo Name oFrx
LOCAL llSuccess
With oFrx
    *!* Restore Report Datasession
    IF This.lDefaultMode
        This.ResetDataSession()
    ENDIF
    *!* Start Generation Proccess depending of Object Type
    Do Case
        Case .ObjType=OBJ_LABEL &&Label
            If !Empty(.ResoId) And .ResoId!=1 Then
                &&Convert from Unicode
                lcContents = Strconv(cContentsToBeRendered, 6, .ResoId, 2)
                This.Tag = lcContents
            Else
                &&Convert from Unicode
                lcContents = Strconv(cContentsToBeRendered, 6)
                This.Tag = ""
            EndIf
            Try
                This.cObjectToRender = "LABEL: " + lcContents
                llSuccess = This.ProcessLabel(.FontFace, .FontStyle,.FontSize,.PenRed,.PenGreen,.PenBlue,.FillRed,.FillGreen,.FillBlue,nPDFLeft,nPDFTop,lcContents,.FillChar,.Offset,nPDFWidth, ;
                    .ResoId,nPDFHeight,.Picture,.Style, .Mode)
                IF NOT llSuccess
                    This.GetPictureFromListener(nLeft, nTop, nWidth, nHeight)
                ENDIF
            Catch To loError
                *!* Handle Error Here
            EndTry
        Case .ObjType=OBJ_FIELD &&Field
            If !Empty(.ResoId) And .ResoId!=1 Then
                &&Convert from Unicode
                lcContents = Strconv(cContentsToBeRendered, 6, .ResoId, 2)
                This.Tag = lcContents
            Else
                &&Convert from Unicode
                lcContents = Strconv(cContentsToBeRendered, 6)
                This.Tag = ""
            EndIf
            Try
                This.cObjectToRender = "FIELD: " + lcContents
                llSuccess = This.ProcessFields(.FontFace,.FontStyle,.FontSize,.PenRed,.PenGreen,.PenBlue, ;
                    .FillRed,.FillGreen,.FillBlue,;
                    nPDFLeft,nPDFTop,;
                    lcContents,.FillChar,.Offset, ;
                    .Stretch,.ResoId,nPDFHeight,nPDFWidth,.Style, .Mode, .User)
                IF NOT llSuccess
                    IF This._Stat2 = 4214 && Could not fit in space
                        LOCAL lnWords, lnCharWidth, n, lnLen, lnCharsAllowed, ;
                            lnCharsToInsert, lcText
                        lnWords = GETWORDCOUNT(lcContents)
                        IF lnWords = 1 && Add some spaces in the string to allow wordwrap
                            lnCharWidth = FONTMETRIC(6, .FontFace, .FontSize, This.cTextStyle) * 10
                            lnTxtWidth  = TXTWIDTH(lcContents,.FontFace,.FontSize, This.cTextStyle) * ;
                                lnCharWidth && * 104.166
                            lnLen = LEN(lcContents)
                            * IF (lnTxtWidth * .70) > nWidth
                                lnCharsAllowed = CEILING((nWidth / lnCharWidth) * 0.73)
                                lnCharsToInsert = FLOOR(lnLen / lnCharsAllowed)
                                lcText = lcContents
                                FOR m.n = 1 TO lnCharsToInsert
                                    lcText = STUFF(lcText, (lnCharsAllowed * m.n) + m.n, 0, " ")
                                ENDFOR
                                llSuccess = This.ProcessFields(.FontFace,.FontStyle,.FontSize,.PenRed,.PenGreen,.PenBlue, ;
                                    .FillRed,.FillGreen,.FillBlue,;
                                    nPDFLeft,nPDFTop,;
                                    lcText,.FillChar,.Offset, ;
                                    .Stretch,.ResoId,nPDFHeight,nPDFWidth,.Style, .Mode, .User)
                            * ENDIF
                        ENDIF
                    ENDIF
                    IF NOT llSuccess
                        This.GetPictureFromListener(nLeft, nTop, nWidth, nHeight)
                    ENDIF
                ENDIF
* Another possible way to get the width of the text
*!*    loFRXCursor = newobject('FRXCursor', home() + 'FFC\_FRXCursor.vcx')
*!*    lnWidth = loFRXCursor.GetFRUTextWidth(lcText, lcFontName, lnFontSize, lcFontStyle)
            Catch To loError
                * SET STEP ON
                *!* Handle Error Here
            EndTry
        Case .ObjType=OBJ_LINE  &&Line
            Try
                This.cObjectToRender = "LINE"
                This.ProcessLines(.PenRed, .PenGreen, .PenBlue, nPDFTop, nPDFLeft, nPDFWidth, nPDFHeight, .PenSize, .Offset, .PenPat, .Style)
            Catch To loError
                *!* Handle Error Here
            EndTry
        Case .ObjType=OBJ_PICTURE &&Picture or General Field
            IF nPdfWidth = 0 OR nPdfHeight = 0
                * Nothing to render
                RETURN
            ENDIF
            lcContents = cContentsToBeRendered
            Try
                This.cObjectToRender = "PICTURE: " + lcContents
                llSuccess = This.ProcessPictures(nPDFTop, nPDFLeft, nPDFWidth, nPDFHeight, lcContents, GDIPlusImage, .Offset, .General, .Style)
                IF NOT llSuccess AND (NOT EMPTY(lcContents)) && image is in General field
                    TRY
                        LOCAL lcPicVal, lcTmpImg
                        lcPicVal = FOXYGETIMAGE(lcContents)

                        IF NOT EMPTY(lcPicVal)
                            lcTmpImg = ADDBS(This._cTempFolder) + JUSTFNAME(lcContents)
                            STRTOFILE(lcPicVal, lcTmpImg)
                            llSuccess = This.ProcessPictures(nPDFTop, nPDFLeft, nPDFWidth, nPDFHeight, lcTmpImg, GDIPlusImage, .Offset, .General, .Style)
                            TRY
                                DELETE FILE (lcTmpImg)
                            CATCH
                            ENDTRY
                        ENDIF
                    CATCH TO loExc
                        * Clear existing the HPDF errors
                        This.ClearPDFErrors()
                    ENDTRY
                ENDIF
                IF NOT llSuccess
                    This.GetPictureFromListener(nLeft, nTop, nWidth, nHeight)
                    * Clear existing the HPDF errors
                    This.ClearPDFErrors()
                ENDIF
            CATCH TO loError
                * SET STEP ON
                *!* Handle Error Here
            EndTry
        Case .ObjType=OBJ_RECTANGLE &&Rectangle
            TRY
                *!* 2010-08-25 - Jacques Parent - Add nObjectContinuationType to the call
                This.cObjectToRender = "RECTANGLE"
                This.ProcessShapes(.FillRed, .FillGreen, .FillBlue, .PenRed, .PenGreen, .PenBlue, nPDFLeft, nPDFTop, nPDFWidth, nPDFHeight, .Offset, .PenSize, .PenPat, .FillPat, .Style, .Mode, nObjectContinuationType)
            CATCH TO loError
                * SET STEP ON
                *!* Handle Error Here
                *!*    IF VERSION(2) = 2
                *!*        MESSAGEBOX(loError.Message)
                *!*    ENDIF
            ENDTRY
    ENDCASE
* Clear existing the HPDF errors
This.ClearPDFErrors()
DODEFAULT(nFRXRecno, nLeft, nTop, nWidth, nHeight, nObjectContinuationType, cContentsToBeRendered, GDIPlusImage)
ENDWITH
ENDPROC
PROCEDURE AfterReport
IF This.lDefaultMode
    DODEFAULT()
ENDIF
* Delete watermark temp image file
IF NOT EMPTY(This._cWMpicture)
    TRY
        DELETE FILE (This._cWMpicture)
    CATCH
    ENDTRY
ENDIF
* Determine the ".WaitForNextReport" status if using "lObjTypeMode"
IF This.lObjTypeMode
    TRY
        This.WaitForNextReport = This.CommandClauses.NoPageEject
    CATCH
    ENDTRY
ENDIF
With This
    IF NOT .WaitForNextReport
        LOCAL lcFile
        lcFile = This.cTargetFileName
        IF EMPTY(lcFile)
            HPDF_Free(.pdfHandle)
            .pdfHandle = 0
            .lStarted  = .F.
        ELSE
            ._Stat = HPDF_SaveToFile(.pdfHandle, lcFile)
            HPDF_Free(.pdfHandle)
            INKEY(.1)
            .pdfHandle  = 0
            .lStarted   = .F.
            .nPgCounter = 0
            .aPagesImgs = ""
            .cTextStyle = ""
            .nCurrentPage = 0
            .nDivisionFactor = 0
            .nGlobalPgCounter = 0
            .nLastPageProccesed = 0
            .nPgCounter = 0
            This.oPictureHandles = ""
            This.oDynamics = ""
            This.oTempImagesCollection = ""
            LOCAL llSaved
            llSaved = FILE(lcFile)
            IF llSaved
                IF This.lObjTypeMode
                    _Screen.oFoxyPreviewer.lSaved = llSaved
                ENDIF
                IF .lOpenViewer THEN
                    .ShellExec(This.cTargetFileName)
                ENDIF
            ENDIF
        ENDIF
    ENDIF
    * CChalom
    * Reset the report page counter
    This.nPgCounter = 0
ENDWITH
This.oActiveListener = ""
ENDPROC
PROCEDURE resetdatasession
    Set DataSession To (This.CurrentDataSession)
Catch When .T.
    *Can't Return DataSession to do: handle this
EndTry
ENDPROC
PROCEDURE setfrxdatasession
With This
    If (.FRXDatasession > -1) And (.FRXDatasession # Set("DATASESSION")) Then
        Try
            Set DataSession To (.FRXDatasession)
        Catch When .T.
            .ResetToDefault("FRXDataSession")
            .ResetDataSession()
        EndTry
    EndIf
EndWith
ENDPROC
Height = 23
Width = 23
ListenerType = -1
FRXDataSession = -1
SendGDIPlusImage = 1
pdfhandle = 0
nlastpageproccesed = 0
ndivisionfactor = 0
cpdfauthor =
cpdftitle =
cpdfsubject =
cpdfkeywords =
cpdfcreator =
lcanprint = .T.
lcancopy = .T.
lcanedit = .F.
lcanaddnotes = .F.
lencryptdocument = .F.
cuserpassword =
cmasterpassword =
nencriptionlevel = 5
opage = .NULL.
lstarted = .F.
ctargetfilename =
lopenviewer = .F.
ofonts = .NULL.
oregistry = .NULL.
npageheight = 0
nspacesfortab = 4
lembedfont = .T.
ccodepage = CP1252
lunderline = .F.
ctextstyle =
odynamics = .NULL.
waitfornextreport = .F.
npgcounter = 0
nglobalpgcounter = 0
otempimagescollection = .NULL.
opicturehandles = .NULL.
_lsetconsole = .F.
_lsettalk = .F.
npagemode = 0
lextended = .T.
ldefaultmode = .T.
npagewidth = 0
_cwinfolder =
_ctempfolder =
_stat = .F.
lshowerrors = .F.
csymbolfontslist =
cobjecttorender =
_stat2 = 0
ncurrentpage = 0
oactivelistener = .NULL.
cdefaultfont = Helvetica
lobjtypemode = .F.
_lschinese = .F.
lrighttoleft = .F.
lreplacefonts = .T.
_ltchinese = .F.
_lkorean = .F.
_ljapanese = .F.
nwmwidthratio = 0
nwmheightratio = 0
nwmwidth = 0
nwmheight = 0
cwmpicture =
hwmpdfhandle = 0
_cwmpicture =
_nwmy = 0
_nwmx = 0
_nwmw = 0
_nwmh = 0
lusingwatermark = .F.
nsystemlangid = 0
lhasuserfld = .F.
_memberdata = .T.
Name = "pdflistener"
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _1TF0Z2JS31087744875
 COMMENT RESERVED
VERSION =   3.00
rtfreportlistener
Pixels
* VFP reports to rtf converter
* Class is based on report listener clas.
* It permits to see VFP reports in MS Word
* Authors -Vladimir Zhuravlev, Dmitriy Petrov, Valeriy Lifshits
* with help of Vadim Pirozhkov and Andrey Petrov
Class
fxlistener
rtfreportlistener
paper_letter
handle
code_page
oldpageno
borderwidth
lofrxrecord
waitfornextreport
npgcounter
nglobalpgcounter
orecord
targetfilename
lstarted
_llandscape
npagewidth
npageheight
ldefaultmode
nmarginleft
nmarginright
nmargintop
nmarginbottom
ncurrentpage
oactivelistener
_ctempfolder
oimages
lobjtypemode
lopenviewer
ctempfrx
cfrxalias
*getfrxrecord
*fontstyleconvert
*pagesetup
*twips
*rtf_create
^arfont[1,0]
*himetrictortf
*dectoproc
*mabout
^arcolors[1,4]
*frxtotwips
*outputfromdata
*renderrtf
*getpageimg
^apagesimgs[1,0]
*getpicturefromlistener
*cropimage
^aimgs[1,0]
*updateproperties
*stringfromunicode
PNFRXRECNO
LOFRX
SETFRXDATASESSION
RESETDATASESSION
\strike
\plain
TNFONTSTYLE
LCSTYLE
TCEXPR
LNPGWIDTH
LNPGHEIGHT
GETPAGEWIDTH
GETPAGEHEIGHT
_LLANDSCAPE
NPAGEWIDTH
FRXTOTWIPS
NPAGEHEIGHT&
Collection
CopyFRX
\redCC
\green
\blue
\redCC
\green
\blue
TempColors
TempColors
\red0\green0\blue0
TempColors
\red255\green255\blue255
TempColors
\red0\green0\blue0
{\colortbl;
{\fonttbl{
\fnil\fcharset
Error creating file:
Error
\paperwCC
\paperh
\margl
\margr
\margt
\margb
\landscape
{\rtf1\ansi\ansicpgCC
\uc1 \deff0\deflang1049\deflangfe1049
_CTEMPFOLDER
OIMAGES
HANDLE
LCFRXALIAS
LDEFAULTMODE
LOBJTYPEMODE
SETFRXDATASESSION
CTEMPFRX
CFRXALIAS
_GOHELPER
OLISTENER
FONTFACE
ARFONT
LNSELECT
DISTINCT
PENRED
PENGREEN
PENBLUE
OBJTYPE
FILLRED
FILLGREEN
FILLBLUE
TEMPCOLORS
ARCOLORS
RESETDATASESSION
LCCOLORTABLE
LCFONTTABLE
LNFCS
TARGETFILENAME
LCPAPER
LCOUTSTR
NPAGEWIDTH
NPAGEHEIGHT
NMARGINLEFT
NMARGINRIGHT
NMARGINTOP
_LLANDSCAPE
CODE_PAGE
HIMETRICVALUE
LNDEC
TNFRX[
Invalid parameter. Report listener not available
Error
The helper FRX table is not available. Output can't be created
Error
Datasessionv
%  -
100%  - CCC
TOLISTENER
TCOUTPUTDBF
TNWIDTH
TNHEIGHT
OACTIVELISTENER
CFRXALIAS
LNSELECT
LNORIGDATASESSION
LISTENERDATASESSION
QUIETMODE
LNSECS
DOFOXYTHERM
_GOHELPER
_INITSTATUSTEXT
LDEFAULTMODE
NPAGEWIDTH
FRXTOTWIPS
NPAGEHEIGHT
LNPGFROM
LNPGTO
_CLAUSENRANGEFROM
_CLAUSENRANGETO
RTF_CREATE
RENDER
FRXRECNO
WIDTH
HEIGHT
CONTTYPE
UNCONTENTS
LNPERCENT
LNLASTPERCENT
LNDELAY
LNTOTRECS
LNREC
_SECONDSTEXT
_RUNSTATUSTEXT
AFTERREPORTq
<_CR_>
<_CR_>
<_CR_>
<_CR_>
 \par
 \par
{\sp{\sn WrapText}{\sv 2}}
{\sp{\sn lineColor}{\sv CC
{\sp{\sn fillColor}{\sv C
{\sp{\sn fRecolorFillAsPicture}{\sv 0}}{\sp{\sn fFilled}{\sv 1}}
{\shp{\*\shpinst
\shpleft
\shptop
\shpright
\shpbottom
\shpfhdr0
\shpbxmargin
\shpbxignore
\shpbymargin
\shpbyignore
{\sp{\sn fline}{\sv 1}}{\sp{\sn fFlipH}{\sv 0}}{\sp{\sn fFilled}{\sv 0}}
{\sp{\sn lineWidth}{\sv
\red0\green0\blue0
\redCC
\green
\blue
{\shp{\*\shpinst
\shpleft
\shptop
\shpright
\shpbottom
\shpfhdr0
{\sp{\sn fline}{\sv 0}}
{\sp{\sn dxTextLeft}{\sv 0}}
{\sp{\sn dyTextTop}{\sv 0}}
{\sp{\sn dxTextRight}{\sv 0}}
{\sp{\sn dyTextBottom}{\sv 0}}
{\sp{\sn fFilled}{\sv 0}}
{\sp{\sn fFitShapeToText}{\sv 1}}
{ \shptxt\pard
{\sp{\sn lineColor}{\sv CC
{\shp{\*\shpinst
\shpleft
\shptop
\shpright
\shpbottom
\shpfhdr0
{\sp{\sn fline}{\sv 1}}
{\sp{\sn ShapeType}{\sv 20}}
{\sp{\sn lineWidth}{\sv
{\shp{\*\shpinst
\shpleft
\shptop
\shpright
\shpbottom
\shpfhdr0
{\sp{\sn fline}{\sv 1}}
{\sp{\sn ShapeType}{\sv 20}}
{\sp{\sn lineWidth}{\sv
{\sp{\sn lineColor}{\sv CC
{\sp{\sn lineColor}{\sv CC
{\sp{\sn lineColor}{\sv CC
{\sp{\sn lineColor}{\sv CC
{\sp{\sn fillColor}{\sv C
{\sp{\sn fRecolorFillAsPicture}{\sv 0}}{\sp{\sn fFilled}{\sv 1}}
{\sp{\sn shapeType}{\sv 2}}6
{\shp{\*\shpinst
\shpleft
\shptop
\shpright
\shpbottom
\shpfhdr0
\shpbxmargin
\shpbxignore
\shpbymargin
\shpbyignore
{\sp{\sn fline}{\sv 1}}{\sp{\sn fFlipH}{\sv 0}}{\sp{\sn fFilled}{\sv 0}}
{\sp{\sn lineWidth}{\sv
TEMP5
GPIMAGE
GpImage
_GdiPlus.vcx
image/jpeg
IMAGE
Image
{\shp{\*\shpinst
\shpleft
\shptop
\shpright
\shpbottom
{\sp{\sn ShapeType}{\sv 75}}
{\sp{\sn fline}{\sv 0}}
{\sp{\sn fLockAspectRatio}{\sv
{\sp{\sn cropFromBottom}{\sv
{\sp{\sn cropFromRight} {\sv
{\sp{\sn pib}
{\sv
{\pict
\wmetafile8\pic
\picbpp4
{\sp{\sn pibFlags}{\sv 2}}
{\sp{\sn fUseShapeAnchor}{\sv 0}}
LOFRXRECORD
NLEFT
NWIDTH
NHEIGHT
NOBJECTCONTINUATIONTYPE
CCONTENTSTOBERENDERED
GDIPLUSIMAGE
_TFORCEOBJECTTYPE
_TFORCELINEOFSET
FONTNUM
FONT_ID
_FONTSTYLE
LCRTF
_ALLG
LCPENSIZE
LCTEXT
LLDBLBYTE
OBJTYPE
LCWRAPTEXT
STRINGFROMUNICODE
PICTURE
OFFSET
LCCOLORRTF
LNCLRINDEX
LCCOLORTAG
LCBACKCOLORRTF
LNBACKCLRINDEX
PENSIZE
LCPENCOLOR
LCFILLCOLOR
FILLRED
FILLGREEN
FILLBLUE
LNRGB
FRXTOTWIPS
PENRED
PENGREEN
PENBLUE
ARCOLORS
ARFONT
FONTFACE
FONTSTYLECONVERT
FONTSTYLE
LNBORDER
FONTSIZE
FILLPAT
PENPAT
LCROUNDED
HANDLE
RENDERRTF
HDPICT
STRFILE
LNFILESIZE
LHFILE
OBJPICT
LNPICTWIDTH
LNPICTHEIGHT
LNWIDTH
LNHEIGHT
LLLOCK
LNCROPR
LNCROPB
LCTEMPIMGFILE
LOIMAGE
SETHANDLE
SAVETOFILE
GETPICTUREFROMLISTENER
LCEXT
LOVFPIMG
WIDTH
HEIGHT
HIMETRICTORTF
GENERAL
DECTOPROC
LNHORFACTOR
LNVERTFACTOR
LNRESIZEFACTOR
LOEXC
REPORTLISTENER
TEMP5
LOLISTENER
OACTIVELISTENER
LNPAGE
NCURRENTPAGE
COMMANDCLAUSES
RANGEFROM
APAGESIMGS
LNDEVICETYPE
LCFILE
LNHANDLE
OUTPUTPAGE
TNWIDTH
TNHEIGHT
LDEFAULTMODE
LCFILE
GETPAGEIMG
LNHOR
LNVERT
LCNEWFILE
CROPIMAGE
STRING
INTEGER
INTEGER
GPBITMAP
ffc\_gdiplus.vcx
GpBitmap
_GdiPlus.vcx
GdipCloneBitmapAreaI
GDIPLUS.DLLQ
pdfxGdipCloneBitmapAreaI
GPBITMAP
ffc\_gdiplus.vcx
GpBitmap
_GdiPlus.vcx
image/png
image/jpeg6
LCFILE
LNWIDTH
LNHEIGHT
TLFILE
LOBMP
CREATEFROMFILE
IMAGEHEIGHT
IMAGEWIDTH
LHBITMAP
LNSTATUS
GDIPCLONEBITMAPAREAI
GDIPLUS
PDFXGDIPCLONEBITMAPAREAI
PIXELFORMAT
GETHANDLE
LOCROPPED
SETHANDLE
SETRESOLUTION
HORIZONTALRESOLUTION
VERTICALRESOLUTION
LCEXT
LCENCODER
LCCROPPEDFILE
_CTEMPFOLDER
SAVETOFILE
OIMAGES
LOBJTYPEMODE
OFOXYPREVIEWER
COMMANDCLAUSES
LOPENVIEWER
PREVIEW
TOFILE
TARGETFILENAME
CDESTFILE
LCDESTFILE
COUTPUTPATH
LCFILE
_REPORTLISTENER
CANCELREPORT
QUIETMODE
LQUIETMODE
 \par
TCUNICODE
LCUNVALUE
LNUNVALUE
LCNEWCONTENTS
LNCHARS
LDEFAULTMODE
STRING
EXCEPTION
LDEFAULTMODE
LOBJTYPEMODE
WAITFORNEXTREPORT
COMMANDCLAUSES
NOPAGEEJECT
HANDLE
LLSAVED
OFOXYPREVIEWER
LSAVED
LOPENVIEWER
SHELLEXEC
TARGETFILENAME
NPGCOUNTER
LCFILE
APAGESIMGS
OIMAGES
LCITEM
LOEXC
OACTIVELISTENER
CFRXALIAS
CTEMPFRX
\page
\page
NFRXRECNO
NLEFT
NWIDTH
NHEIGHT
NOBJECTCONTINUATIONTYPE
CCONTENTSTOBERENDERED
GDIPLUSIMAGE
LNPAGENO
PAGENO
LDEFAULTMODE
LNRANGETO
TLNEWPAGE
NGLOBALPGCOUNTER
NPGCOUNTER
COMMANDCLAUSES
RANGETO
RANGEFROM
OLDPAGENO
LSTARTED
HANDLE
NCURRENTPAGE
TWOPASSPROCESS
CURRENTPASS
LOFRXRECORD
GETFRXRECORD
LOFRX
RENDERRTFT
LDEFAULTMODE
LOBJTYPEMODE
OACTIVELISTENER
PAGESETUP
RTF_CREATE
TCRTFFILENAME
TARGETFILENAME
NPGCOUNTER
LDEFAULTMODE
LOBJTYPEMODE
UPDATEPROPERTIES
getfrxrecord,
fontstyleconvert
pagesetup
twips
rtf_create
himetrictortf
dectoproc
mabout
frxtotwips
outputfromdata%
renderrtf]
getpageimg[1
getpicturefromlistener
cropimageC4
updateproperties
stringfromunicode
Destroy
AfterReport%=
Render
BeforeReport
LoadReportvF
PROCEDURE getfrxrecord
LPARAMETERS pnFRXRecNo
LOCAL loFRX
*-- Switch to the FRX
This.setFRXDataSession()
SET TALK OFF
*-- Goto the record
GOTO pnFRXRecNo
*-- Get the data
SCATTER MEMO NAME loFRX
This.resetDataSession()
*-- Return the data
RETURN loFRX
ENDPROC
PROCEDURE fontstyleconvert
*-- Convert FontStyle from numeric value
*-- to character codes
LPARAMETERS tnFontStyle
LOCAL lcStyle
lcStyle = ''
IF BITTEST(tnFontStyle, 0)
   lcStyle = lcStyle + '\b'
ENDIF
IF BITTEST(tnFontStyle, 1)
   lcStyle = lcStyle + '\i'
ENDIF
IF BITTEST(tnFontStyle, 2)
   lcStyle = lcStyle + '\ulw'
ENDIF
IF BITTEST(tnFontStyle, 7)
   lcStyle = lcStyle + '\strike'
ENDIF
IF EMPTY(lcStyle)
   lcStyle = '\plain'
ENDIF
RETURN lcStyle
ENDPROC
PROCEDURE pagesetup
LPARAMETERS tcExpr
LOCAL lnPgWidth, lnPgHeight
lnPgWidth  = This.GetPageWidth()
lnPgHeight = This.GetPageHeight()
This._lLandscape = lnPgWidth > lnPgHeight
WITH This
    .nPageWidth  = This.FrxToTwips(lnPgWidth)
    .nPageHeight = This.FrxToTwips(lnPgHeight)
ENDWITH
ENDPROC
PROCEDURE twips
 LParameters nCm_
* making Twip
  Return Int(nCm_ * 1440 / 2.54)
ENDPROC
PROCEDURE rtf_create
This._cTempFolder = ADDBS(SYS(2023)) && ADDBS(GETENV("TEMP"))
This.oImages = CREATEOBJECT("Collection")
WITH This
* Creating rtf file
IF NOT EMPTY(.handle)
    RETURN
ENDIF
LOCAL lcFRXAlias
IF This.lDefaultMode OR This.lObjTypeMode
    This.setFRXDataSession()
    SET TALK OFF
    This.cTempFRX  = ADDBS(SYS(2023)) + "FRX_" + SYS(2015) + '.dbf'
    This.cFRXAlias = "CopyFRX"
    lcFRXAlias = This.cFRXAlias
    * Make a copy of the FRX table and manipulate it
    SELECT FRX
    COPY TO (This.cTempFRX)
    USE (This.cTempFRX) SHARED AGAIN IN 0 ALIAS (This.cFRXalias)
    lcFRXAlias = _goHelper.oListener.cFRXAlias
*    USE (_goHelper.oListener.cFRXDBF) AGAIN ALIAS FRX IN 0
ENDIF
* Getting all fonts sizes
SELECT ALLTRIM(Padr(Mline(fontface,1),30));
    FROM (lcFRXAlias) ;
    INTO ARRAY .arFont;
    WHERE NOT EMPTY(fontface);
    GROUP By 1
* CChalom 2010-01-23
* Creating the Color table
LOCAL lnSelect
lnSelect = SELECT()
SELECT ;
    DISTINCT ("\red" + ALLTRIM(STR(penRed)) + "\green" + ALLTRIM(STR(penGreen)) + "\blue" + ALLTRIM(STR(penBlue))) as RTF, ;
        PenRed, PenGreen, PenBlue ;
    FROM (lcFRXAlias);
    WHERE INLIST(ObjType, 5, 8) ;
        AND NOT INLIST(-1, PenRed, PenGreen, PenBlue) ;
UNION ;
SELECT;
    DISTINCT ("\red" + ALLTRIM(STR(FillRed)) + "\green" + ALLTRIM(STR(FillGreen)) + "\blue" + ALLTRIM(STR(FillBlue))) as RTF, ;
        FillRed AS PenRed, FillGreen AS PenGreen, FillBlue AS PenBlue ;
    FROM (lcFRXAlias);
    WHERE INLIST(ObjType, 5, 8) ;
        AND NOT INLIST(-1, FillRed, FillGreen, FillBlue) ;
    INTO CURSOR TempColors ;
    READWRITE
* Check if we have the two basic colors, white and black
INSERT INTO TempColors VALUES ("\red0\green0\blue0", 0, 0, 0)
INSERT INTO TempColors VALUES ("\red255\green255\blue255", 255, 255, 255)
* Urrutia 2010-02-05
* initialize the array property in case all colors are Default
If _Tally > 0
    SELECT Distinct RTF, penRed, penGreen, penBlue ;
        FROM TempColors Into Array .ArColors NOFILTER
ELSE
    .ArColors(1,1)="\red0\green0\blue0"
    .ArColors(1,2)=0
    .ArColors(1,3)=0
    .ArColors(1,4)=0
Endif
USE IN TempColors
SELECT (lnSelect)
*-- Restore the datasession
IF This.lDefaultMode
    This.ResetDataSession()
ENDIF
********** Making Color table
* {\colortbl;\red0\green0\blue0;\red255\green0\blue0;}
LOCAL lcColorTable
lcColorTable = '{\colortbl;'
FOR m.i = 1 TO (ALEN(.arColors) / 4)
    lcColorTable = lcColorTable + ALLTRIM(.arColors(m.i, 1)) + ";"
NEXT i
lcColorTable = lcColorTable + "}"
********** Making font RTF features
LOCAL lcFontTable, lnFcs
lcFontTable = ""
lcFontTable = '{\fonttbl{'
FOR m.i = 1 TO ALEN(.arFont)
    lnFcs = FONTMETRIC(17, .arfont[m.i], 10)
    lcFontTable = lcFontTable+'\f' + Alltrim(Str(m.i,2,0)) + '\fnil\fcharset' + Alltrim(Str(lnFcs)) + ' ' + Alltrim(.arfont[m.i])+';'
NEXT i
lcFontTable = SUBSTR(lcFontTable, 1, LEN(lcFontTable)-1) + '}}'
.handle = FCREATE(.TargetFileName)
IF .handle <= 0
    = MESSAGEBOX("Error creating file: " + .TargetFileName, "Error")
    RETURN
ENDIF
LOCAL lcPaper, lcOutStr
* Storing paper information
lcPaper = '\paperw' + Alltrim(Str(.nPageWidth))+;
        '\paperh' + Alltrim(Str(.nPageHeight))+;
        '\margl' + Alltrim(Str(.nMarginLeft))+;
        '\margr' + Alltrim(Str(.nMarginRight))+;
        '\margt' + Alltrim(Str(.nMarginTop))+;
        '\margb' + Alltrim(Str(.nMarginTop))+;
        IIF(._lLandscape, '\landscape', '')
*        IIF(.paper_letter, '\landscape', '')
lcOutStr = "{\rtf1\ansi\ansicpg" + Alltrim(Str(.code_page)) + ;
    '\uc1 \deff0\deflang1049\deflangfe1049' +;
    lcFontTable + lcPaper + lcColorTable
= FPUTS(.handle, lcOutStr)
ENDWITH
ENDPROC
PROCEDURE himetrictortf
LPARAMETERS HiMetricValue
* metric transformation
RETURN INT(HiMetricValue*240/635)
ENDPROC
PROCEDURE dectoproc
LPARAMETERS lnDec
RETURN ROUND(lnDec*65536, 0)
ENDPROC
PROCEDURE mabout
* VFP reports to rtf converter
* Class is based on report listener class.
* It permits to see VFP reports in MS Word
* Authors: Vladimir Zhuravlev, Dmitriy Petrov, Valeriy Lifshits
* with help of Vadim Pirozhkov and Andrey Petrov
* Received improvements and fixes from Cesar Chalom
* - Fixed the calculated fields
* - Allowed general image fields to be printed
* - Enabled colors and backcolors in texts, and colors and backcolors in shapes and lines
* - Allowed generating a determined range of pages
* - Allowed merging more tan one report together
* Usage:
* SET CLASSLIB TO  frx_rtf
* LOCAL loRTFListener as ReportListener
* loRTFListener = CREATEOBJECT('RtfReportListener')
* loRTFListener.TargetFileName = "MyRTFReport.RTF"
* REPORT FORM MyReport OBJECT loRTFListener
* CChalom comments
* All changed codes in this class are preceeded with comments
*!*    Removed methods, that are not used any more:
*!*    1 - PutPageBreak()
*!*    2 - DoBeforeRender
*!* 3 - GetBandName
*!* 4 - GetFormatCode
*!* 5 - GetNextNumber
*!* 6 - Pix2FRX
*!* 7 - StrTransform
*!*    8 - CalcAgrVal
*!*    9 - CommaTran
*!*    10 - CreateAgrProp
*!*    11 - ExprChange
*!*    12 - MEval
*!*    13 - StrTransform
*!*    14 - Thistran
*!*    Removed properties
*!*    This.cReportName
*!*    New properties
*!*    WaitForNextReport - logical determines if the listener object will keep
*!*    the file handles opened in order to get the next report pages
*!*    Renamed property:
*!*    "RTF_filename" to "TargetFileName"
*!*    in order to use the same property name from HTMLListener
*!*    Method Init()
*!*    Removed the need of all parameters
*!*    Just one parameter is allowed, the destination RTF file name
*!* This will fill the "TargetFileName" property
*!* Original comments from Vladimir Zhuravlev - original usage has changed !
* Not valid anymore
*    SET CLASSLIB TO  frx_rtf
*    loObjectList = CREATEOBJECT('rtfreportlistener', 'report1.frx', 'newrep.rtf', '', '')
*    loObjectList.OutputType = 1
*    REPORT FORM report1 OBJECT loObjectList PREVIEW noconsole
* in CREATEOBJECT('rtfreportlistener', 'report1.frx', 'newrep.rtf', '', '')
* first parameter is class name, second is report name to be converted, third parameters is
* MS Word document name. To This document VFP report will be converted
* Two optional parameters can be 'ThisForm','This'
* These for reports, where ThisForm or This are used in expresions
* Class does not cover General fields, if they were in report expresions
* Comments for future implementation
*!*    * Get color attributes
*!*    IF VARTYPE(This.oRecord) = "O"
*!*        SET STEP ON
*!*        LOCAL lnRed, lnGreen, lnBlue, lnColorIndex
*!*        lnRed   = This.oRecord.PenRed
*!*        lnGreen = This.oRecord.PenGreen
*!*        lnBlue  = This.oRecord.PenBlue
*!*        lnColorIndex = This.AddColor(lnRed, lnGreen, lnBlue)
*!*    ELSE
*!*    ENDIF
ENDPROC
PROCEDURE frxtotwips
LPARAMETERS tnFrx
*/  inches to  twip
RETURN  INT(tnFrx / 960 * 1440)
ENDPROC
PROCEDURE outputfromdata
LPARAMETERS toListener, tcOutputDBF, tnWidth, tnHeight
IF VARTYPE(toListener) <> "O"
    MESSAGEBOX("Invalid parameter. Report listener not available", 16, "Error")
    RETURN
ENDIF
This.oActiveListener = toListener
IF EMPTY(toListener.cFRXAlias)
    MESSAGEBOX("The helper FRX table is not available. Output can't be created", 16, "Error")
    RETURN
ENDIF
LOCAL lnSelect, lnOrigDataSession
lnSelect          = SELECT()
lnOrigDataSession = SET("Datasession")
* Ensure we are at the correct DataSession
SET DATASESSION TO (toListener.ListenerDataSession)
* SET DATASESSION TO (toListener.CurrentDataSession)
SELECT (tcOutputDBF)
* =DoFoxyTherm(90, "Texto label", "Titulo")
* =DoFoxyTherm(-1, "Teste2", "Titulo") && Continuo
* =DoFoxyTherm() && Desliga
IF NOT This.QuietMode
    LOCAL lnSecs
    lnSecs = SECONDS()
    *!*    ._InitStatusText    = .GetLoc("INITSTATUS") + SPACE(1)
    *!*    ._RunStatusText     = .GetLoc("RUNSTATUS")  + SPACE(1)
    *!*    ._SecondsText       = .GetLoc("SECONDS")    + SPACE(1)
    =DoFoxyTherm(1, "0%", _goHelper._InitStatusText)
ENDIF
* Generate RTF using the stored information
This.lDefaultMode = .F.
This.nPageWidth  = This.FrxToTwips(tnWidth)
This.nPageHeight = This.FrxToTwips(tnHeight)
LOCAL lnPgFrom, lnPgTo
lnPgFrom = _goHelper._ClausenRangeFrom && = loListener.COMMANDCLAUSES.RangeFrom
lnPgTo   = IIF(_goHelper._ClausenRangeTo = -1, 999999, _goHelper._ClausenRangeTo) && = loListener.COMMANDCLAUSES.RangeTo && -1 = All pages
* Initialize class
* This.BeforeReport()
This.RTF_Create()
SELECT (tcOutputDBF)
IF This.QuietMode
    SCAN
        IF BETWEEN(Page, lnPgFrom, lnPgTo)
            This.Render(FRXRECNO, Left, Top, Width, Height, ContType, UNContents, 0)
        ENDIF
    ENDSCAN
ELSE
    LOCAL lnPercent, lnLastPercent, lnDelay, lnTotRecs, lnRec
    lnLastPercent = 0
    lnDelay       = 1
    lnTotRecs     = RECCOUNT()
    lnRec         = 0
    SCAN
        IF BETWEEN(Page, lnPgFrom, lnPgTo)
            IF NOT This.QuietMode
                lnRec = lnRec + 1
                lnPercent = CEILING(100*lnRec/lnTotRecs)
                IF (lnLastPercent > 0 AND ;
                        lnPercent - lnLastPercent < lnDelay  AND ;
                        lnPercent <> 100)
                ELSE
                    =DoFoxyTherm(lnPercent, ;
                        ALLTRIM(TRANSFORM(lnPercent)) + "%  - " + TRANSFORM(FLOOR(SECONDS() - lnSecs)) + " " + _goHelper._SecondsText , ;
                        _goHelper._RunStatusText)
                ENDIF
            ENDIF
            This.Render(FRXRECNO, Left, Top, Width, Height, ContType, UNContents, 0)
        ENDIF
    ENDSCAN
    =DoFoxyTherm(100, ;
        "100%  - " + TRANSFORM(CEILING(SECONDS() - lnSecs)) + " " + _goHelper._SecondsText , ;
                _goHelper._RunStatusText)
ENDIF
* Finalize
This.AfterReport()
USE IN SELECT(tcOutputDBF)
* Restore DataSession, Alias
SET DATASESSION TO (lnOrigDataSession)
SELECT (lnSelect)
IF NOT This.QuietMode
    =DoFoxyTherm()
ENDIF
RETURN
ENDPROC
PROCEDURE renderrtf
LPARAMETERS loFRXrecord, nleft, ntop, nwidth, nheight, nobjectcontinuationtype, ccontentstoberendered, gdiplusimage, _tForceObjectType, _tForceLineOfset
*!* 2011-08-12 - Jacques Parent
*!* _tForceObjectType, _tForceLineOfset are used in cate there is a continuation for boxes
*!* Boxes are then decomposed into lines.
#Define OBJ_COMMENT                  0
#Define OBJ_LABEL                    5
#Define OBJ_LINE                     6
#Define OBJ_RECTANGLE                7
#Define OBJ_FIELD                    8
#Define OBJ_PICTURE                 17
#Define OBJ_VARIABLE                18
*!* 2011-08-12 - Jacques Parent - Some constants
#DEFINE tnConstVerticalLine            0
#DEFINE tnConstHorizontalLine        1
IF VARTYPE(_tForceObjectType) <> "N"
    _tForceObjectType = -1
ENDIF
IF VARTYPE(_tForceLineOfset) <> "N"
    _tForceLineOfset = -1
ENDIF
WITH loFrxRecord
*******
* OUTPUT
*******
******************************************
    Local fontnum, font_id, _fontstyle, lcRTF, _allg, lcpensize
    lcRTF = ''
    LOCAL lcText, llDblByte
    lcText = STRCONV(cContentsToBeRendered,6)
    IF LEN(lcText) <> LENC(lcText) && Double-Byte characters
        llDblByte = .T.
    ELSE
        llDblByte = .F.
    ENDIF
    Do Case
*************************************************************************
***  Field or label into textbox
*************************************************************************
    Case _tForceObjectType == OBJ_FIELD OR _tForceObjectType == OBJ_LABEL OR (_tForceObjectType==-1 AND (.ObjType = OBJ_FIELD OR .ObjType = OBJ_LABEL))
        LOCAL lcWrapText
        lcWrapText = ""
        IF .ObjType = OBJ_FIELD
            IF llDblByte = .T.
                lcText = This.StringFromUnicode(cContentsToBeRendered)
                .Expr = lcText
*!*                    .Expr = STRCONV(cContentsToBeRendered,6)
*!*                    .Expr = STRTRAN(.Expr, CHR(13) + CHR(10), "<_CR_>")
*!*                    .Expr = STRTRAN(.Expr, CHR(13), "<_CR_>")
*!*                    .Expr = STRTRAN(.Expr, CHR(10), "<_CR_>")
*!*                    .Expr = STRTRAN(.Expr, "<_CR_>", " \par ")
            ELSE && Single-byte
                .Expr = STRCONV(cContentsToBeRendered,6)
                .Expr = STRTRAN(.Expr, CHR(13) + CHR(10), "<_CR_>")
                .Expr = STRTRAN(.Expr, CHR(13), "<_CR_>")
                .Expr = STRTRAN(.Expr, CHR(10), "<_CR_>")
                .Expr = STRTRAN(.Expr, "<_CR_>", " \par ")
            ENDIF
*!*                .Expr = STRCONV(cContentsToBeRendered,6)
*!*                .Expr = STRTRAN(.Expr, CHR(13) + CHR(10), "<_CR_>")
*!*                .Expr = STRTRAN(.Expr, CHR(13), "<_CR_>")
*!*                .Expr = STRTRAN(.Expr, CHR(10), "<_CR_>")
*!*                .Expr = STRTRAN(.Expr, "<_CR_>", " \par ")
        ELSE
            IF llDblByte
                .Expr = This.StringFromUnicode(cContentsToBeRendered)
            ELSE
                .Expr = CHRTRAN(loFRXRecord.Expr, ["], [])
                * Removing CHR(13) from texts
                IF CHR(13) $ .Expr
                    .Expr=Strtran(.Expr, Chr(13), ' \par ')
                    * .Expr=Strtran(.Expr, Chr(13), ' \line ')
                    nWidth = nWidth + 150
                ELSE
                    lcWrapText = '{\sp{\sn WrapText}{\sv 2}}'
                ENDIF
            ENDIF
        ENDIF
************* Making allign
*!*            If .ObjType = OBJ_LABEL
*!*                _allg = '\ql '
*!*            Else
            If  Left(.Picture, 1) = '@'
                Do Case
                Case 'J'$.Picture
                    _allg = '\qr '
                Case 'I'$.Picture
                    _allg = '\qc '
                Otherwise
                    _allg = '\ql '
                Endcase
            Else
                Do Case
                * CChalom 2010-09-28
                * Included the Full Justify option, when the tag "<FJ>" is found in the USER field
                CASE "<FJ>" $ .User
                    _allg = '\qj '
                *-
                Case .offset = 0
                    _allg = '\ql '
                Case .offset = 2
                    _allg = '\qc '
                Case .offset = 1
                    _allg = '\qr '
                Otherwise
                    _allg = '\ql '
                Endcase
            Endif
*!*            Endif
* CChalom 2010-01-21
* Included color tags for "Fields" and "Labels"
********* Color attributes
        LOCAL lcColorRTF, lnClrIndex, lcColorTag, lcBackColorRTF, lnBackClrIndex
        lcColorTag = ""
    * Draw a box as a background for the texts
        * Create a border color with the same color of the backcolor
        lcpensize = Alltrim(Str(9525*.pensize))
        LOCAL lcPenColor, lcFillColor
        IF .FillRed <> -1 && Not default
            lcPenColor = '{\sp{\sn lineColor}{\sv ' + TRANSFORM(RGB(.FillRed, .FillGreen, .FillBlue)) + '}}'
        ELSE
            lcPenColor = ""
        ENDIF
        IF .Mode = 0 AND .FillRed <> -1 && Mode: 0 = Opaque background; 1 = Transparent
            LOCAL lnRGB
            IF .FillRed = -1
                lnRGB = RGB(255,255,255)
            ELSE
                lnRGB = RGB(.FillRed, .FillGreen, .FillBlue)
            ENDIF
            lcFillColor = '{\sp{\sn fillColor}{\sv ' + TRANSFORM(lnRGB) + '}}' + ;
                '{\sp{\sn fRecolorFillAsPicture}{\sv 0}}{\sp{\sn fFilled}{\sv 1}}'
        ELSE
            lcFillColor = ""
        ENDIF
        IF EMPTY(lcFillColor)
            lcRTF = ""
        ELSE
            lcRTF = '{\shp{\*\shpinst' + ;
                '\shpleft' + Alltrim(Str(This.FrxToTwips(nleft)))+;
                '\shptop' + Alltrim(Str(This.FrxToTwips(ntop)))+;
                '\shpright' + Alltrim(Str(This.FrxToTwips(nleft + nwidth)))+;
                '\shpbottom' + Alltrim(Str(This.FrxToTwips(ntop + nheight)))+;
                '\shpfhdr0' + ;
                '\shpbxmargin' + ;
                '\shpbxignore' + ;
                '\shpbymargin' + ;
                '\shpbyignore' + ;
                '{\sp{\sn fline}{\sv 1}}{\sp{\sn fFlipH}{\sv 0}}{\sp{\sn fFilled}{\sv 0}}'+;
                '{\sp{\sn lineWidth}{\sv ' + lcpensize + '}}'+;
                lcFillColor + ;
                lcPenColor + ;
                '}}'
        ENDIF
        IF .PenRed = -1 && Default Black
            lcColorRTF = "\red0\green0\blue0"
        ELSE
            lcColorRTF = "\red" + ALLTRIM(STR(.penRed)) + "\green" + ALLTRIM(STR(.penGreen)) + "\blue" + ALLTRIM(STR(.penBlue))
        ENDIF
        lnClrIndex = Ascan(This.arColors, lcColorRTF) &&, 1, 1, 1, 1)
        IF lnClrIndex = 0
            lnClrIndex = 1
        ELSE
            lnClrIndex = ((lnClrIndex -1) / 4) + 1
        ENDIF
        lcColorTag = lcColorTag + "\cf" + ALLTRIM(STR(lnClrIndex)) + " "
********* Font number
        fontnum = Ascan(This.arfont,Alltrim(.fontface),1)
        font_id = Iif(fontnum = 0, '0', Alltrim(Str(fontnum)))
*********** FONT features
        _fontstyle = This.fontstyleconvert(.fontstyle)
        LOCAL lnBorder
        lnBorder = 8
            lcRTF = lcRTF + '{\shp{\*\shpinst'+;
                '\shpleft' + Alltrim(Str(This.FrxToTwips(nleft)))+;
                '\shptop' + Alltrim(Str(This.FrxToTwips(ntop)))+;
                '\shpright' + Alltrim(Str(This.FrxToTwips(nleft+nwidth+lnBorder)))+;
                '\shpbottom' + Alltrim(Str(This.FrxToTwips(ntop+nheight+lnBorder)))+;
                '\shpfhdr0' + ;
                '{\sp{\sn fline}{\sv 0}}'+;
                '{\sp{\sn dxTextLeft}{\sv 0}}'+;
                '{\sp{\sn dyTextTop}{\sv 0}}'+;
                '{\sp{\sn dxTextRight}{\sv 0}}'+;
                '{\sp{\sn dyTextBottom}{\sv 0}}'+;
                '{\sp{\sn fFilled}{\sv 0}}'+;
                '{\sp{\sn fFitShapeToText}{\sv 1}}'+;
                lcWrapText + ;
                '{ \shptxt\pard' + _fontstyle + '\f' + m.font_id + '\fs' + Alltrim(Str(.FontSize*2))+;
                _allg + lcColorTag + .Expr + ' '+'}}}'
***********************************************************
* Line
***************************************************************
    Case _tForceObjectType == OBJ_LINE OR (_tForceObjectType==-1 AND .ObjType = OBJ_LINE)
        lcpensize = Alltrim(Str(9525*.pensize))
        * CChalom 2010-01-21
        * Included color tags for "Lines"
        LOCAL lcPenColor, lcFillColor
        IF .PenRed <> -1 && Not default
            lcPenColor = '{\sp{\sn lineColor}{\sv ' + TRANSFORM(RGB(.PenRed, .PenGreen, .PenBlue)) + '}}'
        ELSE
            lcPenColor = ""
        ENDIF
        *---
        If _tForceLineOfset == 1 OR (_tForceLineOfset==-1 AND .offset = 1) && horizontal
            lcRTF = '{\shp{\*\shpinst'+;
                '\shpleft' + Alltrim(Str(This.FrxToTwips(nleft)))+;
                '\shptop' + Alltrim(Str(This.FrxToTwips(ntop)))+;
                '\shpright' + Alltrim(Str(This.FrxToTwips(nleft+nwidth)))+;
                '\shpbottom' + Alltrim(Str(This.FrxToTwips(ntop)))+;
                '\shpfhdr0'+;
                '{\sp{\sn fline}{\sv 1}}' + '{\sp{\sn ShapeType}{\sv 20}}'+;
                '{\sp{\sn lineWidth}{\sv ' + lcpensize + '}}'+;
                lcPenColor + ;
                '}}'
        ELSE && Vertical
            lcRTF = '{\shp{\*\shpinst' + ;
                '\shpleft' + Alltrim(Str(This.FrxToTwips(nleft+nwidth)))+;
                '\shptop' + Alltrim(Str(This.FrxToTwips(ntop)))+;
                '\shpright' + Alltrim(Str(This.FrxToTwips(nleft+nwidth)))+;
                '\shpbottom' + Alltrim(Str(This.FrxToTwips(ntop+nheight)))+;
                '\shpfhdr0' + ;
                '{\sp{\sn fline}{\sv 1}}' + '{\sp{\sn ShapeType}{\sv 20}}'+;
                '{\sp{\sn lineWidth}{\sv ' + lcpensize + '}}'+;
                lcPenColor + ;
                '}}'
        Endif
    * Shape
    Case _tForceObjectType == OBJ_RECTANGLE OR (_tForceObjectType==-1 AND .ObjType = OBJ_RECTANGLE) && Rectangle, Box
        *!* --------------------------------------------------------
        *!* --------------------------------------------------------
        *!* --------------------------------------------------------
        *!* 2011-08-12 - Jacques Parent
        *!* Let boxes be printed correctly on multiple lines
        *!* Not sure how it would react with rounded corners...
        IF nobjectcontinuationtype == 0 OR (.FillPat = 1 AND .Mode = 0)
            *!* Either the continuation is COMPLETE (0) OR the box must be filled.
            lcpensize = Alltrim(Str(9525*.pensize))
            * CChalom 2010-01-21
            * Included color tags for "Shapes"
            LOCAL lcPenColor, lcFillColor
            IF nobjectcontinuationtype == 0
                If .PenRed = -1
                    IF .PenPat = 0
                        lcPenColor = '{\sp{\sn lineColor}{\sv ' + TRANSFORM(RGB(255, 255, 255)) + '}}'
                    ELSE
                        lcPenColor = ""
                    ENDIF
                ELSE
                    lcPenColor = '{\sp{\sn lineColor}{\sv ' + TRANSFORM(RGB(.PenRed, .PenGreen, .PenBlue)) + '}}'
                ENDIF
            ELSE
                *!* Set the pen color to the fill color!
                IF .FillRed = -1
                    IF .PenPat = 0
                        lcPenColor = '{\sp{\sn lineColor}{\sv ' + TRANSFORM(RGB(255, 255, 255)) + '}}'
                    ELSE
                        lcPenColor = ""
                    ENDIF
                ELSE
                    lcPenColor = '{\sp{\sn lineColor}{\sv ' + TRANSFORM(RGB(.FillRed, .FillGreen, .FillBlue)) + '}}'
                ENDIF
            ENDIF
            IF .FillPat = 1 AND (.Mode = 0 OR .FillRed <> -1) && Mode: 0 = Opaque background; 1 = Transparent
                LOCAL lnRGB
                IF .FillRed = -1
                    lnRGB = RGB(255,255,255)
                ELSE
                    lnRGB = RGB(.FillRed, .FillGreen, .FillBlue)
                ENDIF
                lcFillColor = '{\sp{\sn fillColor}{\sv ' + TRANSFORM(lnRGB) + '}}' + ;
                    '{\sp{\sn fRecolorFillAsPicture}{\sv 0}}{\sp{\sn fFilled}{\sv 1}}'
            ELSE
                lcFillColor = ""
            ENDIF
            *---
            * CChalom 2010-07-20
            * Included code for generic rounded shapes
            LOCAL lcRounded
            lcRounded = IIF(.OffSet = 0, ;
                "", ;
                '{\sp{\sn shapeType}{\sv 2}}')
            * Not used, allows setting the curvature parameter, change the value 40
            * lcRounded = IIF(.OffSet = 0, ;
                "", ;
                '{\sp{\sn shapeType}{\sv 2}}' + ;
                '{\sp{\sn adjustValue}{\sv ' + ALLTRIM(TRANSFORM(.OffSet * 40)) + '}}')
            lcRTF = '{\shp{\*\shpinst' + ;
                '\shpleft' + Alltrim(Str(This.FrxToTwips(nleft)))+;
                '\shptop' + Alltrim(Str(This.FrxToTwips(ntop)))+;
                '\shpright' + Alltrim(Str(This.FrxToTwips(nleft + nwidth)))+;
                '\shpbottom' + Alltrim(Str(This.FrxToTwips(ntop + nheight)))+;
                '\shpfhdr0' + ;
                '\shpbxmargin' + ;
                '\shpbxignore' + ;
                '\shpbymargin' + ;
                '\shpbyignore' + ;
                lcRounded + ;
                '{\sp{\sn fline}{\sv 1}}{\sp{\sn fFlipH}{\sv 0}}{\sp{\sn fFilled}{\sv 0}}'+;
                '{\sp{\sn lineWidth}{\sv ' + lcpensize + '}}'+;
                lcFillColor + ;
                lcPenColor + ;
                '}}'
        ENDIF
        IF !EMPTY(lcRTF)
            = Fputs(This.handle, lcRTF)
            lcRTF = ""
        ENDIF
        *!* In case there is a continuation <> 0...
        DO CASE
            CASE nobjectcontinuationtype == 1    && Top
                *!* Translate into lines
                ** Top line
                This.RenderRTF(loFRXrecord, nleft, ntop, nwidth, 0, nobjectcontinuationtype, ccontentstoberendered, gdiplusimage, OBJ_LINE, tnConstHorizontalLine)
                ** Left line
                This.RenderRTF(loFRXrecord, nleft, ntop, 0, nheight, nobjectcontinuationtype, ccontentstoberendered, gdiplusimage, OBJ_LINE, tnConstVerticalLine)
                ** Right line
                This.RenderRTF(loFRXrecord, nleft + nwidth, ntop, 0, nheight, nobjectcontinuationtype, ccontentstoberendered, gdiplusimage, OBJ_LINE, tnConstVerticalLine)
            CASE nobjectcontinuationtype == 2    && Middle
                *!* Translate into lines
                ** Left line
                This.RenderRTF(loFRXrecord, nleft, ntop, 0, nheight, nobjectcontinuationtype, ccontentstoberendered, gdiplusimage, OBJ_LINE, tnConstVerticalLine)
                ** Right line
                This.RenderRTF(loFRXrecord, nleft + nwidth, ntop, 0, nheight, nobjectcontinuationtype, ccontentstoberendered, gdiplusimage, OBJ_LINE, tnConstVerticalLine)
            CASE nobjectcontinuationtype == 3    && Bottom
                *!* Translate into lines
                ** Bottom line
                This.RenderRTF(loFRXrecord, nleft, ntop + nheight, nwidth, 0, nobjectcontinuationtype, ccontentstoberendered, gdiplusimage, OBJ_LINE, tnConstHorizontalLine)
                ** Left line
                This.RenderRTF(loFRXrecord, nleft, ntop, 0, nheight, nobjectcontinuationtype, ccontentstoberendered, gdiplusimage, OBJ_LINE, tnConstVerticalLine)
                ** Right line
                This.RenderRTF(loFRXrecord, nleft + nwidth, ntop, 0, nheight, nobjectcontinuationtype, ccontentstoberendered, gdiplusimage, OBJ_LINE, tnConstVerticalLine)
        ENDCASE
        *!* --------------------------------------------------------
        *!* --------------------------------------------------------
        *!* --------------------------------------------------------
    Case _tForceObjectType == OBJ_PICTURE OR (_tForceObjectType == -1 AND .ObjType = OBJ_PICTURE)
        LOCAL hdPict, strFile, lnFileSize, lhFile, objPict,;
            lnPictWidth, lnPictHeight, lnWidth, lnHeight, llLock, lncropr, lncropb
        * CChalom 2010-01-17
        * Dealing with images in General fields
        * Saving the image to the disk in a Temp file
        * Using _Gdiplus.vcx that is already embedded in ReportOutput.App
        LOCAL lcTempImgFile
        IF GDIPlusImage!=0 && General field
            lcTempImgFile = GetEnv("TEMP") + "\" + Sys(2015) + ".Png"
            LOCAL loImage AS GpImage OF (HOME() + _ReportOutput)
            loImage = NEWOBJECT("GpImage", "_GdiPlus.vcx")
            loImage.SetHandle(GDIPlusImage)
            loImage.SaveToFile(lcTempImgFile,"image/jpeg")
            loImage = NULL
            * Replace the original empty file
            cContentsTobeRendered = lcTempImgFile
        ENDIF
        IF EMPTY(GDIPlusImage) AND EMPTY(cContentsTobeRendered) && Nothing to render
                    && try drawing directly, from the original canvas
            lcTempImgFile = This.GetPictureFromListener(nLeft, nTop, nWidth, nHeight)
            cContentsTobeRendered = lcTempImgFile
        ENDIF
        *---
        IF NOT EMPTY(cContentsTobeRendered) AND FILE(cContentsTobeRendered)
            * Picture size
            lcExt = JUSTEXT(cContentsTobeRendered)
            * CChalom 2010-02-19
            * Changed the way to get the image dimensions and load its binaries
            LOCAL lnWidth, lnHeight
            LOCAL loVFPImg as Image
            loVFPImg = CREATEOBJECT("Image")
            loVFPImg.Picture = cContentsTobeRendered
            lnWidth = loVFPImg.Width * 7276 / 275
            lnHeight = loVFPImg.Height * 7276 / 275
            loVFPImg = NULL
            lnPictWidth = This.HiMetricToRTF(lnWidth)
            lnPictHeight = This.HiMetricToRTF(lnHeight)
            strFile = FILETOSTR(cContentsTobeRendered)
            CLEAR RESOURCES (cContentsTobeRendered)
            lhFile = STRCONV(strFile, 15)
            DO CASE
            CASE .General = 0        && Clip
                    llLock = 1
                    lnWidth = MIN(nWidth, lnPictWidth)
                    lnHeight = MIN(nHeight, lnPictHeight)
                    lncropr = This.DecToProc(MAX(lnPictWidth - nWidth, 0)/lnPictWidth)
                    lncropb = This.DecToProc(MAX(lnPictHeight - nHeight, 0)/lnPictHeight)
            CASE .General = 1    && Isometric
                    llLock = 1
                    * Isometric Adjustment
                    LOCAL lnHorFactor, lnVertFactor, lnResizeFactor
                    m.lnHorFactor = m.nWidth / m.lnPictWidth
                    m.lnVertFactor = m.nHeight / m.lnPictHeight
                    m.lnResizeFactor = MIN(m.lnHorFactor, m.lnVertFactor)
                    m.lnWidth = m.lnPictWidth * m.lnResizeFactor
                    m.lnHeight = m.lnPictHeight * m.lnResizeFactor
                    * lnWidth  = MIN(nWidth, lnPictWidth)
                    * lnHeight = MIN(nHeight, lnPictHeight)
                    lncropb = 0
                    lncropr = 0
            CASE .General = 2    && Stretch
                    llLock = 0
                    lnWidth = nWidth
                    lnHeight = nHeight
                    lncropb = 0
                    lncropr = 0
            ENDCASE

            lcRTF = '{\shp{\*\shpinst' + ;
                    '\shpleft'+Alltrim(Str(This.FrxToTwips(nleft)))+;
                    '\shptop'+Alltrim(Str(This.FrxToTwips(ntop)))+;
                    '\shpright'+Alltrim(Str(This.FrxToTwips(nleft+lnWidth)))+;
                    '\shpbottom'+Alltrim(Str(This.FrxToTwips(ntop+lnHeight)))+;
                    '{\sp{\sn ShapeType}{\sv 75}}'+;
                    '{\sp{\sn fline}{\sv 0}}'+;
                    '{\sp{\sn fLockAspectRatio}{\sv '+STR(llLock,1)+'}}'+;
                    '{\sp{\sn cropFromBottom}{\sv '+ALLTRIM(STR(lncropb))+'}}'+;
                    '{\sp{\sn cropFromRight} {\sv '+ALLTRIM(STR(lncropr))+'}}'+;
                    '{\sp{\sn pib}' + ;
                    '{\sv ' + ;
                    '{\pict' + ;
                    '\wmetafile8\pic' + lcExt + '\picbpp4' + CHR(13)+;
                    lhFile +'}'+;
                    '}' + ;
                    '}' +  ;
                    '{\sp{\sn pibFlags}{\sv 2}}' + ;
                    '{\sp{\sn fUseShapeAnchor}{\sv 0}}' + ;
                    '}}'
        ENDIF
        IF NOT EMPTY(lcTempImgFile)
            TRY
                DELETE FILE(lcTempImgFile)
            CATCH TO loExc
                SET STEP ON
            ENDTRY
        ENDIF
    OTHERWISE
        SET STEP ON
    Endcase
***************
ENDWITH
IF !EMPTY(lcRTF)
    = Fputs(This.handle, lcRTF)
ENDIF
ENDPROC
PROCEDURE getpageimg
#DEFINE OutputJPEG     102
#DEFINE OutputPNG     104
LOCAL loListener as ReportListener
loListener = IIF(VARTYPE(This.oActiveListener)="O", This.oActiveListener, This)
LOCAL lnPage
lnPage = This.nCurrentPage - loListener.CommandClauses.RangeFrom + 1
DIMENSION This.aPagesImgs(lnPage)
IF EMPTY(This.aPagesImgs(lnPage))
    LOCAL lnDeviceType, lcFile, lnDeviceType, lnHandle
    lnDeviceType = OutputPNG
    lcFile = ADDBS(GETENV("TEMP")) + SYS(2015) + ".PNG"
    loListener.OutputPage(lnPage, lcFile, lnDeviceType)
    This.aPagesImgs(lnPage) = lcFile
ENDIF
RETURN This.aPagesImgs(lnPage)
ENDPROC
PROCEDURE getpicturefromlistener
*!* 2011/02/25 CChalom
*!* When we can't render the PDF text or image correctly, we still can get
        * an image of the object, and draw it to the PDF document
LPARAMETERS tnX, tnY, tnWidth, tnHeight
IF This.lDefaultMode
    RETURN
ENDIF
LOCAL lcFile
lcFile = This.GetPageImg()
IF EMPTY(lcFile)
    RETURN .F. && Could not load image
ENDIF
* Horizontal and Vertical factors to divide to convert to the correct coordinate
LOCAL lnHor, lnVert
lnHor  = 9.972
lnVert = 9.996
lcNewFile = This.CropImage(lcFile, tnX / lnHor, tnY / lnVert, tnWidth / lnHor, tnHeight / lnVert, .T.)
RETURN lcNewFile
ENDPROC
PROCEDURE cropimage
Lparameters lcFile As String, tnX, tnY, lnWidth As Integer, lnHeight As Integer, tlFile
Local loBmp As gpBitmap OF HOME() + "ffc\_gdiplus.vcx"
loBmp = NEWOBJECT("GpBitmap", "_GdiPlus.vcx")
loBmp.CreateFromFile(lcFile)
lnHeight = MIN(lnHeight, loBmp.ImageHeight)
lnWidth  = MIN(lnWidth , loBmp.ImageWidth)
LOCAL lhBitmap, lnStatus
lhBitmap = 0
* Function used in the CropImage method
DECLARE Long GdipCloneBitmapAreaI IN GDIPLUS.DLL AS pdfxGdipCloneBitmapAreaI Long x, Long y, Long nWidth, Long Height, Long PixelFormat, Long srcBitmap, Long @dstBitmap
lnStatus = pdfxGdipCloneBitmapAreaI(tnX, tnY, lnWidth, lnHeight, loBmp.PixelFormat, loBmp.GetHandle(), @lhBitmap)
IF (lnStatus <> 0) OR (lhBitmap = 0)
    loBmp = NULL
    * lnHandle = 0
    RETURN ""
ENDIF
LOCAL loCropped As gpBitmap OF HOME() + "ffc\_gdiplus.vcx"
loCropped = NEWOBJECT("GpBitmap", "_GdiPlus.vcx")
loCropped.SetHandle(lhBitmap, .T.)  && Owns handle, please destroy the Bmp object when releasing
loCropped.SetResolution(loBmp.HorizontalResolution, loBmp.VerticalResolution)
LOCAL lcEXT, lcEncoder
lcEXT = UPPER(JUSTEXT(lcFile))
lcEncoder = IIF(lcEXT = "PNG", "image/png", "image/jpeg")
LOCAL lcCroppedFile
lcCroppedFile = FORCEEXT(This._cTempFolder + Sys(2015), lcEXT)
loCropped.SaveToFile(lcCroppedFile, lcEncoder)
loCropped = NULL
loBMP     = NULL
This.oImages.Add(lcCroppedFile)
RETURN lcCroppedFile
ENDPROC
PROCEDURE updateproperties
IF NOT This.lObjTypeMode OR (VARTYPE(_Screen.oFoxyPreviewer) <> "O")
    RETURN
ENDIF
LOCAL loFP
loFP = _Screen.oFoxyPreviewer
IF VARTYPE(This.CommandClauses) = "O"
    *!*    IF This.CommandClauses.Preview
    *!*        This.lOpenViewer = .T.
    *!*    ELSE
    *!*        This.lOpenViewer = NVL(loFP.lOpenViewer, .T.)
    *!*    ENDIF
    This.lOpenViewer = This.CommandClauses.Preview
    IF NOT EMPTY(This.CommandClauses.ToFile)
        This.TargetFileName = This.CommandClauses.ToFile
    ELSE
        IF VARTYPE(_Screen.oFoxyPreviewer) = "O" AND ;
                NOT EMPTY(_Screen.oFoxyPreviewer.cDestFile) AND ;
                EMPTY(This.TargetFileName)
            LOCAL lcDestFile
            lcDestFile = _Screen.oFoxyPreviewer.cDestFile
            IF NOT "\" $ lcDestFile
                lcDestFile = ALLTRIM(ADDBS(_Screen.oFoxyPreviewer.cOutputPath) + lcDestFile)
            ENDIF
            This.TargetFileName = lcDestFile
        ELSE
            LOCAL lcFile
            lcFile = This.TargetFileName
            IF EMPTY(lcFile)
                lcFile = PUTFILE("","","rtf")
            ENDIF
            IF EMPTY(lcFile)
                _ReportListener::CancelReport()
                * This.CancelReport()
                RETURN .F.
            ENDIF
            This.TargetFileName = lcFile
        ENDIF
    ENDIF
ENDIF
This.QUIETMODE        = NVL(loFP.lQuietMode         , .F.)
IF VARTYPE(This.CommandClauses) = "O"
    IF This.CommandClauses.Preview
        This.lOpenViewer = .T.
    ENDIF
    IF NOT EMPTY(This.CommandClauses.ToFile)
        This.TargetFileName = This.CommandClauses.ToFile
    ENDIF
ENDIF
ENDPROC
PROCEDURE stringfromunicode
LPARAMETERS tcUnicode
    LOCAL n, lcUNValue, lnUNValue, lcNewContents
    lcUnValue     = ""
    lcNewContents = ""
*   {\uc1\u20013 ?\u25991 ?\u31616 ?\u20307 ?\u27721 ?\u23383 ?-\u28436 ?\u31034 ?-Demo}
YE_-Demo
*                .Expr = STRCONV(cContentsToBeRendered,6)
*                .Expr = STRTRAN(.Expr, CHR(13) + CHR(10), "<_CR_>")
*                .Expr = STRTRAN(.Expr, CHR(13), "<_CR_>")
*                .Expr = STRTRAN(.Expr, CHR(10), "<_CR_>")
*                .Expr = STRTRAN(.Expr, "<_CR_>", " \par ")
    LOCAL lnChars
    lnChars = LEN(tcUnicode)
    FOR n = 1 TO lnChars STEP 2
        lcUNValue = SUBSTR(tcUnicode, n, 2)
        IF EMPTY(lcUNValue)
            EXIT
        ENDIF
        lnUNValue = CTOBIN(0h+lcUNValue,"2RS")
        IF lnUNValue = 10 && Carriage return - CHR(10)
            lcNewContents = lcNewContents + " \par "
            LOOP
        ENDIF
        lcNewContents = lcNewContents + '\u' + ALLTRIM(TRANSFORM(lnUNValue)) + ' ?'
    ENDFOR
RETURN lcNewContents
ENDPROC
PROCEDURE Destroy
IF This.lDefaultMode
    DODEFAULT()
ENDIF
ENDPROC
PROCEDURE AfterReport
IF This.lDefaultMode OR This.lObjTypeMode
    DODEFAULT()
ELSE
    NODEFAULT
ENDIF
* Determine the ".WaitForNextReport" status if using "lObjTypeMode"
IF This.lObjTypeMode
    TRY
        This.WaitForNextReport = This.CommandClauses.NoPageEject
    CATCH
    ENDTRY
ENDIF
** Save the document to RTF
IF NOT This.WaitForNextReport
    =FPUTS(This.Handle, '}')
    LOCAL llSaved
    llSaved = FCLOSE(This.Handle)
    IF llSaved
        IF This.lObjTypeMode
            _Screen.oFoxyPreviewer.lSaved = llSaved
        ENDIF
        IF This.lOpenViewer
            This.ShellExec(This.TargetFileName)
        ENDIF
    ENDIF
ENDIF
* CChalom
* Reset the report page counter
This.nPgCounter = 0
* Delete the pages files
LOCAL n, lcFile
FOR m.n = 1 TO ALEN(This.aPagesImgs,1)
    lcFile = This.aPagesImgs(m.n)
    IF NOT EMPTY(lcFile)
        TRY
            DELETE FILE (lcFile)
        CATCH
        ENDTRY
    ENDIF
ENDFOR
IF VARTYPE(This.oImages) = "O" && Cleanup Temporary Images Files
    LOCAL lcItem AS String
    FOR EACH lcItem IN This.oImages FOXOBJECT
        IF FILE(lcItem)
            LOCAL loExc as Exception
            TRY
                DELETE FILE (lcItem)
            CATCH TO loExc
                SET STEP ON
            ENDTRY
        ENDIF
    ENDFOR
    This.oImages = NULL
ENDIF
This.oActiveListener = ""
* Delete the temporary copy of the FRX we created
IF This.lObjTypeMode OR This.lDefaultMode
    USE IN SELECT(This.cFRXalias)
    TRY
        DELETE FILE (This.cTempFRX)
    CATCH
    ENDTRY
ENDIF
ENDPROC
PROCEDURE Render
LPARAMETERS nFRXRecno, nLeft, nTop, nWidth, nHeight, nObjectContinuationType, cContentsToBeRendered, GDIPlusImage
LOCAL lnPageNo
lnPageNo = This.PageNo
IF This.lDefaultMode
    * CChalom 2010-01-25
    * If the report page is not between the page ranges asked, just skip
    LOCAL lnRangeTo, tlNewPage
    tlNewPage = .F.
    IF This.PageNo > This.nGlobalPgCounter OR This.nPgCounter = 0
        This.nPgCounter = This.nPgCounter + 1
        This.nGlobalPgCounter = This.nGlobalPgCounter + 1
        tlNewPage = .T.
    ENDIF
    lnRangeTo = This.CommandClauses.RangeTo
    IF lnRangeTo <> -1 AND NOT BETWEEN(This.nPgCounter, This.CommandClauses.RangeFrom, lnRangeTo)
        IF tlNewPage
            This.OldPageNo = This.PageNo &&_PageNo
        ENDIF
        NODEFAULT
        RETURN
    ENDIF
    * Moved the page change to the render method
    If This.OldPageNo != This.PageNo &&_PageNo
        This.OldPageNo = This.PageNo &&_PageNo
        IF This.lStarted && add a new page only if the report has already started
            = Fputs(This.handle,'\page')
        ENDIF
    Endif
    This.nCurrentPage = This.PageNo
ELSE
    If This.OldPageNo != PAGE
        This.OldPageNo = PAGE
        IF This.lStarted && add a new page only if the report has already started
            = Fputs(This.handle,'\page')
        ENDIF
    Endif
    This.nCurrentPage = PAGE
ENDIF
* From PDFx by Luis Navas
* Code to detect if report will run twice because of use of _PAGETOTAL
If This.TwoPassProcess And This.CurrentPass=0 Then
    NODEFAULT
    RETURN
EndIf
This.lStarted = .T.
IF This.lDefaultMode
    This.loFRXRecord = This.Getfrxrecord(nFRXRecno)
ELSE
    LOCAL loFRX
    SCATTER MEMO NAME loFRX
    This.loFRXRecord = loFRX
ENDIF
* Here is calling to RTF output
This.RenderRTF(This.loFRXRecord, nLeft, nTop, nWidth, nHeight, ;
        nObjectContinuationType, cContentsToBeRendered, GDIPlusImage)
* CChalom 2010-01-17
* No need to call the default render event, because we'll passing everything to RTF
NODEFAULT
ENDPROC
PROCEDURE BeforeReport
IF This.lDefaultMode OR This.lObjTypeMode
    This.oActiveListener = This
    DODEFAULT()
ENDIF
This.PageSetup()
This.RTF_Create()
ENDPROC
PROCEDURE Init
LPARAMETERS tcRTFFileName
IF VARTYPE(tcRTFFileName) = "C" AND FILE(tcRTFFileName)
    DELETE FILE(tcRTFFileName)
ENDIF
This.TargetFileName = tcRTFFileName
This.nPgCounter = 0
IF This.lDefaultMode OR This.lObjTypeMode
    DODEFAULT()
ELSE
    NODEFAULT
ENDIF
ENDPROC
PROCEDURE LoadReport
This.UpdateProperties()
DODEFAULT()
ENDPROC
reportlistener
pr_reportlistener.vcx
Height = 23
Width = 23
FRXDataSession = -1
SendGDIPlusImage = 1
paper_letter = .F.
handle =
code_page = 1251
oldpageno = 1
borderwidth = 0
lofrxrecord = .NULL.
waitfornextreport = .F.
npgcounter = 0
nglobalpgcounter = 0
orecord = .NULL.
targetfilename =
lstarted = .F.
_llandscape = .F.
npagewidth = 0
npageheight = 0
ldefaultmode = .T.
nmarginleft = 0
nmarginright = 0
nmargintop = 0
nmarginbottom = 0
ncurrentpage = 0
oactivelistener = .NULL.
_ctempfolder =
oimages = .NULL.
lobjtypemode = .F.
lopenviewer = .F.
ctempfrx =
cfrxalias =
_memberdata =
     551<VFPData><memberdata name="_ctempfolder" display="_cTempFolder"/><memberdata name="aimgs" display="aImgs"/><memberdata name="oimages" display="oImages"/><memberdata name="lobjtypemode" display="lObjTypeMode"/><memberdata name="updateproperties" display="UpdateProperties"/><memberdata name="lopenviewer" display="lOpenViewer"/><memberdata name="shellexec" display="ShellExec"/><memberdata name="ctempfrx" display="cTempFRX"/><memberdata name="cfrxalias" display="cFRXAlias"/><memberdata name="stringfromunicode" <VFPData><memberdata name="_ctempfolder
Name = "rtfreportlistener"
The enhanced reporting experience provided by FoxyPreviewer can't run because there are no printers installed on this computer.C
Please install a printer and try again!
Install a printer
WScript.Shell
rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter
Fixedv
RELEASE
FoxypreviewerPath
FoxypreviewerPath
FoxypreviewerOrigPreview
FoxypreviewerOrigPreview
FoxypreviewerOrigOutput
FoxypreviewerOrigOutput
FoxypreviewerOrigReportBehavior
FoxypreviewerOrigReportBehaviorC
ReportBehaviorv
_oReportOutput("1")b
_oReportOutput("0")b
_oReportOutput("10")b
_oReportOutput("11")b
_oReportOutput("12")b
_oReportOutput("13")b
_oReportOutput("14")b
_oReportOutput("14")b
FOXYPREVIEWERC
FoxypreviewerOrigPreview
PR_FRXOUTPUTC
FoxypreviewerOrigOutput
SET REPORTBEHAVIOR &lcRepBehavior.
FoxypreviewerOrigReportBehavior
oFoxyPreviewer
_oLang
oFoxyPreviewer
SET FIXED &lcSetFixed.
_ReportListener
pr_ReportListener
_GdiPlus
Datasessionv
FoxyInitForm
PreviewHelper
REPORTLISTENER
EXTENSIONHANDLER
PR_FRXPreview.Prg
FOXYLISTENER
PR_ReportListener.vcx
FOXYLISTENER
ExtensionHandler
LOPREVIEWCONTAINER
LCTYPE
GAPRINTERS
LOSHELL
LCSETFIXED
LCSYS16
LCLOCALPATH
LLRELEASE
ADDPROPERTY
_FOXYPDF
_FOXYPDFASIMAGE
_FOXYRTF
_FOXYHTML
_FOXYXLS
_OREPORTOUTPUT
PREVIEWCONTAINER
LOEXC
REMOVE
FOXYPREVIEWERORIGPREVIEW
FOXYPREVIEWERORIGOUTPUT
LCREPBEHAVIOR
FOXYPREVIEWERORIGREPORTBEHAVIOR
_FOXYHTML2
OFOXYPREVIEWER
_OLANG
DESTROY
CLEARSETPROC
CLEARSETCLASSLIB
LOHELPER
LNDATASESSION
LNSELECT
LNRECNO
LOHELPERFORM
LNSELECT0
_GOHELPER
LEXTENDED
LOLISTENER
LOEXHANDLER
LCPREVIEWAPP
LISTENERTYPE
QUIETMODE
LQUIETMODE
FXFEEDBACKCLASS
_CTHERMCLASS
LEXPANDFIELDS
_OEXHANDLER
UPDATEPROPERTIES
SETEXTENSIONHANDLER
SETZOOMLEVEL
NZOOMLEVEL
SETCANVASCOUNT
NCANVASCOUNTK
TLVALUE
OFOXYPREVIEWER
LPRINTED
THISK
TLVALUE
OFOXYPREVIEWER
LSAVED
THISK
TLVALUE
OFOXYPREVIEWER
LEMAILED
THISK
TCDESTFILE
OFOXYPREVIEWER
CDESTFILE
THISy
RETURN &lcEncrProc.(m.tcString)
TCSTRING
LCENCRPROC
CENCRYPTPROCEDURE
CCRYPTKEYy
RETURN &lcDecrProc.(m.tcString)
TCSTRING
LCDECRPROC
CDECRYPTPROCEDURE
CCRYPTKEY
STRING
STRING
STRING
ShellExecute
SHELL32.Dll
FindWindow
WIN32API
Could not locate the file or link: C
Internal error
TCLINK
TCACTION
TCPARMS
LLSUCCESS
SHELLEXECUTE
SHELL32
FINDWINDOW
WIN32API
_LALREADYOPENED
CAPTION
_Screen.oFoxyPreviewer.
This.&lcProperty. = m.luValue
Error in method 'UpdateProperties'C
Line:
LNPROPS
LCPROPERTY
LUVALUE
OFOXYPREVIEWER
LAPROPS
LOEXC
ERRORNO
MESSAGE
LINENO
LINECONTENTS
Udfparmsv
Images
_GDIPLUS.VCXC
Classlibv
_GdiPlus.vcx
PR_REPORTLISTENER.VCXC
Classlibv
PR_ReportListener.vcx
PR_FRXOUTPUT
_GDIPLUS.VCXC
Classlibv
_GdiPlus.vcx
PR_REPORTLISTENER.VCXC
Classlibv
PR_ReportListener.vcx
PR_FRXOUTPUT
FoxypreviewerPath
Pathv
libhpdf.dll
INITSTATUS
PREPSTATUS
RUNSTATUS
SECONDS
CANCELINST
CANCELQUER
REPINCOMPL
ATTENTION
TLLOCAL
_SETUDFPARMS
CERRORS
STARTMODE
LCPATH
CLASSLIBRARY
PR_REPORTLISTENER
LCLOCALFOXYPATH
FOXYPREVIEWERPATH
LEXTENDED
_GOHELPER
LCCLASSPATH
LCPDFFILE
LCTESTPATH
PR_PATHFILEEXISTS
_SYS16
UPDATESETTINGS
_INITSTATUSTEXT
GETLOC
_PREPASSSTATUSTEXT
_RUNSTATUSTEXT
_SECONDSTEXT
_CANCELINSTRTEXT
_CANCELQUERYTEXT
_REPORTINCOMPLETETEXT
_ATTENTIONTEXTr
FoxypreviewerPath
FoxyPreviewer_Settings.dbf
FoxyPreviewer_DefaultSettings.dbf
_Screen.oFoxyPreviewer._cLocalPathb
Safetyv
SET SAFETY &lcSetSafety.
.Property
Value
IF VARTYPE(This.&lcProp.) = [U]
_Screen.oFoxyPreviewer.
This.&lcProp. = m.luValue
Could not locate the settings table.C
Please check the folder permissions of the folder where you saved 'FoxyPreviewer.App', because this utility needs Read/Write permission in that folder.
You may need to move the APP from that folder.
Loading default preview settings
Error in UpdateSettingsC
Line:
.F..F..F..F..F..F..F.
TLINSESSION
LCLOCALFOXYPATH
FOXYPREVIEWERPATH
LCCLASSPATH
LCFILE
LCUSERSETFILE
LCDEFAULTSETFILE
LCNEWFILE
CLASSLIBRARY
LEXTENDED
OFOXYPREVIEWER
_CLOCALPATH
PR_PATHFILEEXISTS
PR_CPZERO
LCSETSAFETY
LNSELECT
LCALIAS
_SETTINGSFILE
LCPROP
LCTYPE
LUVALUE
LUVALUE2
LOEXC
ERRORNO
SETERROR
MESSAGE
LINENO
LINECONTENTS
LSAVEASIMAGE
LSAVEASPDF
LSAVEASRTF
LSAVEASXLS
LSAVEASHTML
LSAVEASTXT
LSAVEASMHT
LSAVETOFILE
FXTHERM
FOXYTHERM
TNTYPE
LCTHERMCLASS
_CTHERMCLASS
NTHERMTYPE
ENGLISH
ESPANIOL
SPANISH
TCLANGUAGE
THIS
CLANGUAGE
_OLANG
SETLANGUAGE?
FoxyPreviewer_Locs.dbf
Could not load the localizations table.
Collection
Collection
LANGNOTFOU
Make sure that the desired language is available in FoxyPreviewer_Locs.dbf
TCLANGUAGE
LCDBFFILE
LNSELECT
SETERROR
_ALANGUAGES
_ALANGLOCAL
LANGUAGE
LOCALLANG
GETLOC
_LANGINDEX
CCODEPAGE
OLANG
_OLANG*
ERROR
ERROR
TCERRMSG
TCTITLE
CERRORS
LSILENT
LCERRCAPTION
GETLOC
CVERSIONi
This._oLang.
ERROR
** ERROR **
Could not locate the string '
' in the localizations table.
Please make sure that you have the latest version available of 'FoxyPreviewer_locs.dbf'.
TCSTRING
LCTRANSL
SETERROR
SET UDFPARMS TO &lcUDFPar.
CUSTOM
Error updating the caller class.C
Check if the file FOXUPREVIEWERCALLER.PRG matches the APP version.
LCUDFPAR
_SETUDFPARMS
LOPARENT
_OCALLER
LSAVED
LPRINTED
CDESTFILE
LEMAILED
CERRORS
NVERSION
CVERSION
LOEXC
SETERROR
_OREPORT
OLISTENER
_OREPORTS
_OCLAUSES
_OALIASES
_ONAMES
_OPROOFSHEET
_OSETTINGSSHEET
_OEMAILSHEET
_OEXHANDLER
_OPARENTFORM
_OLANG
CLEARCACHE
_GOHELPER
_OPROOFSHEET
RELEASE
_OSETTINGSSHEET
_OEMAILSHEET
DOFOXYTHERM3
Collection
Collection
Collection
Collection
TCREPORT
TCCLAUSES
TCALIAS
TCNAME
THIS
_OREPORTS
_OCLAUSES
_OALIASES
_ONAMES
REPORTLISTENER
REPORTLISTENER
Printer
LABEL FORM (m.lcReport) OBJECT m.loListener &lcClauses.
NOPAGEEJECT
WaitForNextReport
REPNOTFOUN
LABEL FORM (m.lcReport) &lcClauses. &lcUser. TO PRINTER NOCONSOLE
REPORT FORM (m.lcReport) &lcClauses. &lcUser. TO PRINTER NOCONSOLE
LABEL FORM (m.lcReport) OBJECT m.loListener &lcClauses. &lcUser.
REPORT FORM (m.lcReport) OBJECT m.loListener &lcClauses. &lcUser.
TOLISTENER
TLKEEPHANDLE
LCREPORT
LCCLAUSES
LCALIAS
LCTYPE
LOLISTENER
THIS
OLISTENER
CPRINTERNAME
SETPRINTER
_OREPORTS
PRINTJOBNAME
_ONAMES
_OCLAUSES
_OALIASES
LCUSER
LNCOUNT
COUNT
_NINDEX
WAITFORNEXTREPORT
SETERROR
GETLOC
LUSELISTENER
_LSENDTOPRINTER
_LISDOTMATRIX
LDIRECTPRINT
CLEANCLAUSESM
Printer
_CORIGINALPRINTER
SETPRINTERt
ERRNOPRINTER
FOXYLISTENER
PR_ReportListener.vcx
PR_ReportListener.vcx
PR_ReportListener.vcx
REPORTLISTENER
_REPORTLISTENER
FXLISTENER
DBFLISTENER
FULLJUSTIFYLISTENER
FOXYLISTENER
FOXYLISTENER
SYS(16) : C
GetCurPath() :
File('PR_ReportListener.vcx') :
PR_ReportListener.vcx0_
This.ClassLibrary :
Error loading FoxyListener!C
Line:
FXLISTENER
PR_ReportListener.vcx
lStoreData
PR_FRXPreview.Prg
EXTENSIONHANDLER
ExtensionHandler
TOPARENT
GAPRINTERS
SETERROR
GETLOC
LPRINTED
_OCALLER
OLISTENER
LCLISTENERCLASS
LEXTENDED
CDEFAULTLISTENER
STARTMODE
GETCURPATH
CLASSLIBRARY
FXFEEDBACKCLASS
_CTHERMCLASS
LEXPANDFIELDS
LCSUCCESSOR
CSUCCESSOR
SUCCESSOR
LOEXC
LCMSG
ERRORNO
MESSAGE
LINENO
LINECONTENTS
LDIRECTPRINT
OUTPUTTYPE
LSTOREDATA
DOOUTPUT
_OLANG
SETLANGUAGE
CLANGUAGE
CDESTFILE
LISTENERTYPE
LOPREVIEWCONTAINER
LCPREVIEWAPP
LOEXHANDLER
SETEXTENSIONHANDLER
_OEXHANDLER
ZOOMLEVEL
NZOOMLEVEL
CANVASCOUNT
NCANVASCOUNT
PREVIEWCONTAINER
CALLREPORT
_LNOWAIT
PdfListener
PR_PDFx.vcx
PdfListener
PR_PDFx.vcx
PDFasImageListener
PR_Pdfx.vcx
PDFasImageListener
PR_PDFx.vcx
ERR_CREATI
MSXML2.XSLTEMPLATE.4.0
ERR_CREATI
The MSXML4.0 library could not be loaded. Please check if it was properly installed.
HTMLListener
PR_HTMLListener
PR_ReportListener.vcx
ERR_CREATI
RTFreportlistener
PR_RTFListener
ERR_CREATI
ExcelListener
ExcelListener
pr_ExcelListener.vcx
Sheet
ERR_CREATI
ERR_CREATI
REPORTLISTENER
ExportListener
ERR_CREATI
REPORTLISTENER
FOXYLISTENER
PR_ReportListener.vcx
ERR_CREATI
FOXYLISTENERC
PR_ReportListener.vcx
FOXYLISTENER
PR_ReportListener.vcx
FOXYLISTENER
PR_ReportListener.vcx
REPORTLISTENER
_REPORTLISTENER
FXLISTENER
DBFLISTENER
FULLJUSTIFYLISTENER
FOXYLISTENER
FOXYLISTENER
FXLISTENER
PR_ReportListener.vcx
TLEMAIL
LCFILEFORMAT
CDESTFILE
LSAVED
COUTPUTPATH
LSAVETOFILE
LNTYPE
LPDFASIMAGE
LOLISTENER
CCODEPAGE
LEMBEDFONT
LPDFEMBEDFONTS
CSYMBOLFONTSLIST
CPDFSYMBOLFONTSLIST
CDEFAULTFONT
CPDFDEFAULTFONT
LREPLACEFONTS
LPDFREPLACEFONTS
CTARGETFILENAME
QUIETMODE
LQUIETMODE
FXFEEDBACKCLASS
_CTHERMCLASS
LCANPRINT
LPDFCANPRINT
LCANEDIT
LPDFCANEDIT
LCANCOPY
LPDFCANCOPY
LCANADDNOTES
LPDFCANADDNOTES
LENCRYPTDOCUMENT
LPDFENCRYPTDOCUMENT
CMASTERPASSWORD
CPDFMASTERPASSWORD
CUSERPASSWORD
CPDFUSERPASSWORD
LSHOWERRORS
LPDFSHOWERRORS
CPDFAUTHOR
CPDFTITLE
CPDFSUBJECT
CPDFKEYWORDS
CPDFCREATOR
LOPENVIEWER
LNPGMODE
NPDFPAGEMODE
NPAGEMODE
LEXTENDED
LDEFAULTMODE
CALLREPORT
LCFULLOUTPUTALIAS
LNWIDTH
LNHEIGHT
OLISTENER
GETFULLFRXDATA
GETPAGEWIDTH
GETPAGEHEIGHT
OUTPUTFROMDATA
SETERROR
GETLOC
LLERROR
LOTESTXML4
WINDOW_HTML
TARGETFILENAME$
COPYIMAGEFILESTOEXTERNALFILELOCATION
LORTFLISTENER
LCOUTPUTALIAS
LOREPORTLISTENER
LISTENERTYPE
LOUTPUTTOCURSOR
CWORKBOOKFILE
CWORKSHEETNAME
LCONVERTTOXLS
LEXCELCONVERTTOXLS
LREPEATHEADERS
LEXCELREPEATHEADERS
LREPEATFOOTERS
LEXCELREPEATFOOTERS
LHIDEPAGENO
LEXCELHIDEPAGENO
LALIGNLEFT
LEXCELALIGNLEFT
NEXCELSAVEFORMAT
_OREPORTS
REPORT2PIC
LDIRECTPRINT
NCOPIES
LPRINTED
RESTOREPRINTER
_LSENDTOPRINTER
STARTMODE
GETCURPATH
CLASSLIBRARY
LCSUCCESSOR
CDEFAULTLISTENER
SUCCESSOR
LOEXC
LOEXCEPTION
_LSENDINGEMAIL
LAUTOSENDMAIL
SENDREPORTTOEMAIL
_CDEFAULTFOLDER
_LALREADYOPENED
OPENFILE
REPORTRELEASEDD
ERR_CREATI
BADCONFIG
ERRSENDMAI
MSGNOTSENT
ERROR
OFOXYPREVIEWER
THIS
CDESTFILE
CEMAILPRG
NEMAILMODE
SETERROR
GETLOC
LEMAILED
LAUTOSENDMAIL
SENDCDOMAIL
PR_SENDMAILEX
HWINDOW
LCDELIMITER
LCFILES
LCMSGSUBJ
LNMAPIRETURN
PR_GETACTIVEWINDOW
PR_MAPISENDDOCUMENTS
PR_MAPISHOWMESSAGE
_CDEFAULTFOLDER
LOMAILEX
LEMAILAUTO
LSAVED
_LSENDINGEMAIL
DefaultvC
TOEXT
THIS
OLISTENER
ERASETEMPFILES
_CORIGINALPRINTER
CPRINTERNAME
SETPRINTER
CLOSESHEETS
_GOHELPER
_CDEFAULTFOLDER
CLEARCACHE
DESTROY2
_OREPORTOUTPUT
PREVIEWCONTAINER
LOEXC>
EXCEPTION
SET PRINTER TO NAME '&lcPrinter'
Could not change the current printer.C
Current Printer:
Printer
Failed Printer:
TCPRINTERNAME
LCPRINTER
LLRETURN
LOEXC
SETERROR@
LENABLED
PREVIEWFORM
TOOLBAR
REFRESH
CAPTION
FORMCAPTIONf
MENUTOP
MENUPREV
MENUNEXT
MENULAST
MENUGOTO
MENUSHOWPA
MENUTOOLB
CBOZOOMTTI
CBOZOOMTTI
m.oRef.ExtensionHandler.ActionGotoPage()
m.oRef.ExtensionHandler.actionToolbarVisibility()
MENUPRINT
m.oRef.ExtensionHandler.ActionPrintEx()
PRINTINGPR
m.oRef.ExtensionHandler.DoCustomPrint()
SAVEREPORT
ON BAR 17 OF (m.cPopup) ACTIVATE POPUP &lcSaveMenu.
SAVEASIMAG
pr_Img.bmp
m.oRef.ExtensionHandler.DoSaveType(1)
SAVEASPDF
pr_Pdf.bmp
m.oRef.ExtensionHandler.DoSaveType(2)
SAVEASHTML
pr_Html.bmp
m.oRef.ExtensionHandler.DoSaveType(3)
SAVEASMHT
pr_MHT.bmp
m.oRef.ExtensionHandler.DoSaveType(8)
SAVEASRTF
pr_Word.bmp
m.oRef.ExtensionHandler.DoSaveType(4)
SAVEASXLS
pr_Excel.bmp
m.oRef.ExtensionHandler.DoSaveType(5)
m.oRef.ExtensionHandler.DoSaveType(1)
ON BAR 17 OF (m.cPopup) ACTIVATE POPUP &lcSaveMenu.
SAVEASIMAG
pr_Img.bmp
m.oRef.ExtensionHandler.DoSaveType(1)
SAVEASPDF
pr_Pdf.bmp
m.oRef.ExtensionHandler.DoSaveType(2)
SAVEASHTML
pr_Html.bmp
m.oRef.ExtensionHandler.DoSaveType(3)
SAVEASMHT
pr_MHT.bmp
m.oRef.ExtensionHandler.DoSaveType(8)
SAVEASRTF
pr_Word.bmp
m.oRef.ExtensionHandler.DoSaveType(4)
SAVEASXLS
pr_Excel.bmp
m.oRef.ExtensionHandler.DoSaveType(5)
SAVEASTXT
pr_1page.bmp
m.oRef.ExtensionHandler.DoSaveType(6)
SENDTOEMAI
m.oRef.ExtensionHandler.DoSendEmail()
MENUPROOF
m.oRef.ExtensionHandler.DoProof()
m.oRef.ExtensionHandler.DoSearch()
FINDBACK
FINDNEXT
m.oRef.ExtensionHandler.DoSearchBack()
m.oRef.ExtensionHandler.DoSearchAgain()
SETUP
m.oRef.ExtensionHandler.DoSetup()
MENUCLOSE
m.oRef.ExtensionHandler.ActionClose()
LANGUAGE
ENGLISH
ON BAR 7 OF (m.cPopup) ACTIVATE POPUP &lcZoom2
ON BAR 8 OF (m.cPopup) ACTIVATE POPUP &lcPages2
whole page
CBOZOOMWHO
fit to width
CBOZOOMPGW
m.oRef.actionSetZoom( BAR() )
ONEPGMENU
TWOPGMENU
TWOPGMENU
FOURPGMENU
FOURPGMENU
m.oRef.actionSetCanvasCount(1)
m.oRef.actionSetCanvasCount(2)
m.oRef.actionSetCanvasCount(4)
CPOPUP
INEXTBAR
_GOHELPER
GETLOC
IMGBTN_TOP
IMGBTN_PREV
IMGBTN_NEXT
IMGBTN_BOTT
IMGBTN_GOTOPG
LSHOWPAGECOUNT
LPRINTVISIBLE
LSHOWPRINTBTN
IMGBTN_PRINT
LPRINTERPREF
LCIMGPRINTPREF
IMGBTN_PRINTPREF
LSAVETOFILE
IMGBTN_SAVE
LCSAVEMENU
LEXTENDED
_LCANSEARCH
LSAVEASIMAGE
LSAVEASPDF
LSAVEASHTML
LSAVEASMHT
LSAVEASRTF
LSAVEASXLS
LSAVEASTXT
LSENDTOEMAIL
IMGBTN_EMAIL
LSHOWMINIATURES
IMGBTN_MINI
LSHOWSEARCH
IMGBTN_SEARCH
_LSHOWSEARCHAGAIN
IMGBTN_SEARCHBACK
IMGBTN_SEARCHAGAIN
LSHOWSETUP
IMGBTN_SETUP
IMGBTN_CLOSE
LCZOOM2
LCPAGES2
LCITEM
ZOOMLEVELS
ZOOMLEVEL
IPAGESALLOWED
CANVASCOUNT}
PreviewHelper
_GOHELPER
LEXTENDED
_OLANG
SETLANGUAGE
CLANGUAGE
TNVISIBLE
PREVIEWFORM
TOOLBAR
TOOLBARISVISIBLE
CREATETOOLBAR
UPDATETOOLBAR
SHOWTOOLBAR
PREVIEWFORM
TOOLBAR
TOOLBARISVISIBLE
CREATETOOLBAR
UPDATETOOLBAR
SHOWTOOLBARP
CustomFrxGotoPageForm
LOFORM
IPAGENO
OPARENTFORM
PREVIEWFORM
TOOLBAR
SHOWTOOLBAR
PAGENO
CURRENTPAGE
SETCURRENTPAGEq
REPORTLISTENER
OutputPage
DialogPrinting
_GOHELPER
NPRINTERPROPTYPE
_CORIGINALPRINTER
CPRINTERNAME
SETPRINTER
SETPRINTERPROPS
CLOSESHEETS
PREVIEWFORM
OREPORT
COMMANDCLAUSES
PROMPT
PRINTPAGECURRENT
CURRENTPAGE
LOLISTENER
ONPREVIEWCLOSE
LEXTENDED
CLEARCACHE
RESTOREPARENT<
NPAGENO
EDEVICE
NDEVICETYPE
THIS
_GOHELPER
LPRINTED
_GOHELPER
LEXTENDED
REPORTRELEASED
LCALIAS
LNSESSION
LNRECNO
PREVIEWFORM
OREPORT
CSTARTINGALIAS
NSTARTINGSESSION
NSTARTINGRECNO
ERASETEMPFILES
RELEASE
LOEXC
DESTROY
ONPREVIEWCLOSE
CLEARCACHE
RESTOREPARENT
HIDEFORM
LCALIAS
LNSESSION
LNRECNO
PREVIEWFORM
OREPORT
CSTARTINGALIAS
NSTARTINGSESSION
NSTARTINGRECNO
ERASETEMPFILES
RELEASE
LOEXC
_GOHELPER
DESTROY
RESTOREPARENT
LCALIAS
LNSESSION
LNRECNO
PREVIEWFORM
OREPORT
CSTARTINGALIAS
NSTARTINGSESSION
NSTARTINGRECNO
ERASETEMPFILES
RELEASE
LOEXC{
PREVIEWFORM
VISIBLE
LOEXC
HIDEFORM
_GOHELPER
_OPARENTFORM
LOFORM
CONTROLBOX
TITLEBAR
CLOSABLE
PAINT
PREVIEWFORM
OREPORT
ONPREVIEWCLOSEM
REPORTLISTENER
winspool
CreateDC
WIN32APIQ
PR_CreateDC
STRING
PCHAR
FoxyPreviewer Report
PChar
Printing
Error trying to send the output to an alternate printer!C
Please report to [e-mail]
Error
LNPAGE
LNPRINTWIDTH
LNPRINTHEIGHT
LNMAXWIDTH
LNMAXHEIGHT
LNHORMARGIN
LNVERTMARGIN
LNHORRES
LNVERTRES
LNPAPERFORM
_GOHELPER
OLISTENER
NPRTPAPERSIZE
GETFORMDIMENSIONS
CPRINTERNAME
CLOSESHEETS
_LISDOTMATRIX
ISDOTMATRIX
CPRINTJOBNAME
PRINTJOBNAME
LLCHANGEDPRINTER
_CORIGINALPRINTER
LEXTENDED
NCOPIES
LREPEATINPAGE
LCPRINTER
LHPRINTER
LOLISTENER
LCDRIVER
CREATEDC
WIN32API
PR_CREATEDC
LNPRINTERDC
LCDOCINFO
LODOCNAME
LCPRINTJOB
GETADDR
XFCSTARTDOC
THIS
SIZEPAGES
OUTPUTPAGECOUNT
XFCSTARTPAGE
OUTPUTPAGE
XFCENDPAGE
XFCENDDOC
XFCDELETEDC
PREVIEWFORM
OREPORT
ONPREVIEWCLOSE
LOEXC
VISIBLE
LPRINTED
_LSENDTOPRINTER
LUSELISTENER
SETPRINTER
ACTIONCLOSE
_LNOWAIT
DOOUTPUTp
REPORTLISTENER
TNHDC
TNHORRES
TNVERTRES
LLSCALEADJUST
LOLISTENER
_GOHELPER
OLISTENER
LNHDC
GETPAGEWIDTH
GETPAGEHEIGHT
XFCGETDEVICECAPS
PR_Settings.scxJ
PR_Settings.scxJ
_GOHELPER
CLOSESHEETS
PREVIEWFORM
TOOLBAR
LLOLDVISIBLE
VISIBLE
SHOWTOOLBAR
PR_SETTINGS
_OSETTINGSSHEET
NAME5
pr_previous.bmp
pr_next.bmp
pr_top.bmp
pr_bottom.bmp
pr_Locate.bmp
pr_Print.bmp
pr_PrintPref.bmp
pr_gotopage.bmp
pr_1page.bmp
pr_2page.bmp
pr_4page.bmp
pr_close.bmp
pr_close2.bmp
pr_Save.bmp
pr_Mail.bmp
pr_Gear.bmp
pr_Search.bmp
pr_SearchAgain.bmp
pr_SearchBack.bmp
pr_previous_32.bmp
pr_next_32.bmp
pr_top_32.bmp
pr_bottom_32.bmp
pr_Locate_32.bmp
pr_Print_32.bmp
pr_PrintPref_32.bmp
pr_gotopage_32.bmp
pr_1page_32.bmp
pr_2page_32.bmp
pr_4page_32.bmp
pr_close_32.bmp
pr_close2_32.bmp
pr_Save_32.bmp
pr_Mail_32.bmp
pr_Gear_32.bmp
pr_Search_32.bmp
pr_SearchAgain_32.bmp
pr_SearchBack_32.bmp
THIS
_GOHELPER
NBUTTONSIZE
IMGBTN_PREV
IMGBTN_NEXT
IMGBTN_TOP
IMGBTN_BOTT
IMGBTN_MINI
CIMGMINIATURES
IMGBTN_PRINT
CIMGPRINT
IMGBTN_PRINTPREF
CIMGPRINTPREF
IMGBTN_GOTOPG
IMGBTN_1PG
IMGBTN_2PG
IMGBTN_4PG
IMGBTN_CLOSE
CIMGCLOSE
IMGBTN_CLOSE2
CIMGCLOSE2
IMGBTN_SAVE
CIMGSAVE
IMGBTN_EMAIL
CIMGEMAIL
IMGBTN_SETUP
CIMGSETUP
IMGBTN_SEARCH
CIMGSEARCH
IMGBTN_SEARCHAGAIN
CIMGSEARCHAGAIN
IMGBTN_SEARCHBACK
CIMGSEARCHBACK
CIMGMINIATURESBIG
CIMGPRINTBIG
CIMGPRINTPREFBIG
CIMGCLOSEBIG
CIMGCLOSE2BIG
CIMGSAVEBIG
CIMGEMAILBIG
CIMGSETUPBIG
CIMGSEARCHBIG
CIMGSEARCHAGAINBIG
CIMGSEARCHBACKBIG
TOOLBAR
lStarted
lStarted-
GetParent
WIN32API
SetParent
WIN32API
SetWindowPos
WIN32API
SynchPageNo
SynchPageNo
Refresh
RefreshToolbar
RenderPage
RenderPage
RestoreFromResource
RestoreFromResource_Bind
QueryUnload
PreviewUnload2
Destroy
PreviewUnload2
QueryUnload
PreviewUnload
REPORTLISTENER
cOutputAlias
ISTYLE
LOTOOLBAR
LLTOOLBARVISIBLE
PREVIEWFORM
TOOLBAR
VISIBLE
LOPREVIEWFORM
ADDPROPERTY
CHECKHELPERCLASS
_GOHELPER
OLISTENER
OREPORT
_NBTSIZE
NBUTTONSIZE
LABEL1
_PREVIEWVERSION
CAPTION
SETIMAGES
DESKTOP
GETPARENT
WIN32API
SETPARENT
SETWINDOWPOS
LNOLDPARENT
DOCKED
WIDTH
MOVABLE
SIZABLE
LLNOWAIT
LLTOPFORM
TOPFORM
_TOPFORM
ICON
CFORMICON
ALLOWPRINTFROMPREVIEW
SHOWWINDOW
LCPARENTTITLE
LCCAPTION
LOFORM
GETPARENTWINDOW
FORMS
CLOSABLE
_OPARENTFORM
COMMANDCLAUSES
NOWAIT
_LNOWAIT
NDOCKTYPE
INWINDOW
WINDOWSTATE
NWINDOWSTATE
LOLISTENER
NPAGETOTAL
PAGETOTAL
_CFRXNAME
FRXFILENAME
_CLAUSENRANGEFROM
RANGEFROM
_CLAUSENRANGETO
RANGETO
_CLAUSELSUMMARY
SUMMARY
_CLAUSECHEADING
HEADING
_LCANSEARCH
LSTARTED
UPDATETOOLBAR
ACTIONSHOWTOOLBAR
NSHOWTOOLBARF
PREVIEWFORM
TOOLBAR
CREATETOOLBAR
VISIBLEk
FRXPREVIEWFORM.NEWOBJECT
Canvas1
FoxyPreviewer CC
   VFP
Complete mode
Simplified mode6
.pageTotal   =
.currentPage =
_PAGENO      =
.canvasCount =
.pageHeight  =
.pageWidth   =
Report Clauses:
.oReport.commandClauses.C
Error #C
Line
Internal Error -
IERROR
CMETHOD
ILINE
PREVIEWFORM
LLHASERROR
LCHEADER
LCMODE
LCTEXT
LCFIELD
_GOHELPER
LCVERSIONTEXT
GETVFPVERSION
CVERSION
LEXTENDED
LCPROPERTY
LUVALUE
PAGETOTAL
CURRENTPAGE
CANVASCOUNT
PAGEHEIGHT
PAGEWIDTH
OREPORT
COMMANDCLAUSES
LCERRORMSG
CANCELLED
SUSPENDED5
REPPREVIEW
MINILABEL
%FP%C
%LP%C
PAGECAPTIO
ICURRENTPAGE
CMESSAGE
LCREPORTNAME
LCFORMCAPTION
PREVIEWFORM
CURRENTPAGE
STARTOFFSET
_GOHELPER
LEXTENDED
_CFRXNAME
_ONAMES
CTITLE
LCTITLE
GETLOC
OREPORT
COMMANDCLAUSES
WINDOW
CANVASCOUNT
LNLASTPAGE
PAGETOTAL
CAPTION
TOOLBAR
AutoSizea
AutoSize-
Height
commandbutton
combobox
spinner
cntsearch1
REPPREVIEW
PREVIEWFORM
TOOLBAR
LOCKSCREEN
SETALL
_GOHELPER
_NBTSIZE
LOCONTROL
CONTROLS
BASECLASS
WIDTH
HEIGHT
CMDSEARCHVISIBILITY
LCREPORTNAME
_CFRXNAME
CAPTION
CTOOLBARTITLE
GETLOC
TOOLBAR
MENUNEXT
MENULAST
MENUTOP
MENUPREV
COMMANDBUTTON
LANGUAGE
ENGLISH
cmdGoto1
cmdGotoEx
MENUGOTO
cmdProof1
cmdProof
MINIATURES
COMBOBOX
LANGUAGE
ENGLISH
CBOZOOMTTI
CBOZOOMTTI
whole page
CBOZOOMWHO
fit to width
CBOZOOMPGW
ONEPGTTIP
TWOPGTTIP
FOURPGTTIP
OPTIONGROUP
cmbPrinters1
cmbPrinters
AVAILABLEP
cPrtPrinterName
cntCopies1
cntCopies
cmdSave1
cmdSave
SAVEREPORT
cmbSave1
cmbSave
SAVEASIMAG
pr_Img.bmp
SAVEASPDF
pr_Pdf.bmp
SAVEASRTF
pr_Word.bmp
SAVEASXLS
pr_Excel.bmp
SAVEASHTML
pr_HTML.bmp
SAVEASMHT
pr_MHT.bmp
SAVEASTXT
pr_1page.bmp
cmdEmail1
cmdEmail
SENDTOEMAI
cmdPrinterProps1
cmdPrinterProps
PRINTINGPR
cmdPrint1
cmdPrintEx
PRINTREPOR
cmdSetup1
cmdSetup
SETUP
cntSearch1
cntSearch
FINDBACK
FINDNEXT
cmdExit1
cmdExit
CLOSEREPOR
Destroy
ReportReleased
TLVISIBLE
PREVIEWFORM
ALLOWPRINTFROMPREVIEW
TOOLBAR
LOCKSCREEN
LNSIZE
_GOHELPER
_NBTSIZE
CNTNEXT
WIDTH
HEIGHT
CMDFORWARD
PICTURE
IMGBTN_NEXT
TOOLTIPTEXT
GETLOC
CMDBOTTOM
IMGBTN_BOTT
CNTPREV
CMDTOP
IMGBTN_TOP
CMDBACK
IMGBTN_PREV
LOCMDGOTO
CMDGOTOPAGE
VISIBLE
ADDOBJECT
CMDGOTO1
IMGBTN_GOTOPG
LSHOWMINIATURES
CMDPROOF1
LOCOMBO
CBOZOOM
LCITEM
LISTCOUNT
LISTITEM
OPGPAGECOUNT
LSHOWPAGECOUNT
IMGBTN_1PG
IMGBTN_2PG
IMGBTN_4PG
LPRINTVISIBLE
LSHOWPRINTERS
CMBPRINTERS1
FONTSIZE
OREPORT
CPRTPRINTERNAME
VALUE
DISPLAYVALUE
LISTINDEX
LSHOWCOPIES
LSAVETOFILE
CMDSAVE1
LNCMBINDEX
CMBSAVE1
LSAVEASIMAGE
ADDITEM
NEWINDEX
LEXTENDED
_LCANSEARCH
LSAVEASPDF
LSAVEASRTF
LSAVEASXLS
LSAVEASHTML
LSAVEASMHT
LSAVEASTXT
LSENDTOEMAIL
CMDEMAIL1
LPRINTERPREF
CMDPRINTERPROPS1
CMDPRINT
LSHOWPRINTBTN
CMDPRINT1
LSHOWSETUP
CMDSETUP1
LSHOWSEARCH
CNTSEARCH1
CMDSEARCH1
CMDSEARCHBACK1
CMDSEARCHAGAIN1
CMDCLOSE
LSHOWCLOSE
CMDEXIT1
NBUTTONSIZE
CNTCOPIES1
SPNCOPIES1
LBLCOPIES1
ADJUSTCONTROLS
REFRESH
LCREPORTNAME
LCTITLE
_CFRXNAME
_ONAMES
SYNCHPAGENO-
ACTIONCLOSE
_GOHELPER
REPORTRELEASED-
ProofSheet
GLOBALPREV
EXCEPTION
_GOHELPER
CLOSESHEETS
LLSHOWTOOLBAR
PREVIEWFORM
TOOLBAR
VISIBLE
SHOWTOOLBAR
_OPROOFSHEET
SETREPORT
OREPORT
CAPTION
GETLOC
NMAXMINIATUREITEM
NMAXMINIATUREDISPLAY
_OPARENTFORM
SETPROOFCAPTION
LOEXC
LNPAGE
CURRENTPAGE
SETCURRENTPAGE6
TOOLBAR
FINDBACK
FINDNEXT
TLVISIBLE
LOTOOLBAR
PREVIEWFORM
TOOLBAR
CNTSEARCH1
CMDSEARCHAGAIN1
VISIBLE
LNWIDTH
_GOHELPER
_NBTSIZE
CMDSEARCH1
WIDTH
CMDSEARCHBACK1
LCTEXT
LNSIZE
_CTEXTTOFIND
TOOLTIPTEXT
GETLOC
_LSHOWSEARCHAGAIN
Search feature is currently unavailable for this report.
FoxyPreviewer error
PR_Search.scx
PR_Search.scx
Search feature is currently unavailable for this report.
FoxyPreviewer error
_GOHELPER
CLOSESHEETS
CLEARBOX
LCTEXT
LCREPORTALIAS
LCALIAS
PREVIEWFORM
OREPORT
COUTPUTALIAS
TOOLBAR
SHOWTOOLBAR
PR_SEARCH
_CTEXTTOFIND
VISIBLE
LLERROR
CONTENTS
HANDLEFIND
CMDSEARCHVISIBILITY
CLEARBOX
LCTEXT
LCALIAS
LCREPORTALIAS
PREVIEWFORM
OREPORT
COUTPUTALIAS
_GOHELPER
_CTEXTTOFIND
CONTENTS
HANDLEFIND
CLEARBOX
LCTEXT
LCALIAS
LCREPORTALIAS
PREVIEWFORM
OREPORT
COUTPUTALIAS
_GOHELPER
_CTEXTTOFIND
CONTENTS
HANDLEFINDc
NOTFOUND
FINDTEXT
TLFOUND
TLAGAIN
LHIGHLIGHTTEXT
CMDSEARCHVISIBILITY
_GOHELPER
GETLOC
PREVIEWFORM
CURRENTPAGE
TEMPSTOPREPAINT
SETCURRENTPAGE
SCROLLTOOBJECT
WIDTH
HEIGHT
RENDERPAGES
lineTop
lineBott
lineLeft
lineRight
LOFORM
PREVIEWFORM
LINETOP
REMOVEOBJECT
LINEBOTT
LINELEFT
LINERIGHT
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
LNNEWTOP
LNNEWLEFT
LNVPOS
LNHPOS
LNVPTOP
LNVPLEFT
LNVPWIDTH
LNVPHEIGHT
PREVIEWFORM
VIEWPORTTOP
VIEWPORTLEFT
VIEWPORTWIDTH
VIEWPORTHEIGHT
CANVAS1
SETVIEWPORT
lineTop
lineBott
lineLeft
lineRight
LNPIXELSPERDPI960
LNHWND
LNWIDTH
LNHEIGHT
PREVIEWFORM
GETPIXELSPERDPI960
CANVAS1
LOFORM
ADDOBJECT
LNCOLOR
TEMPSTOPREPAINT
LINETOP
WIDTH
BORDERCOLOR
BORDERWIDTH
HEIGHT
VISIBLE
LINEBOTT
LINELEFT
LINERIGHT
LHIGHLIGHTTEXTu
TIPAGE
TOCANVAS
CLEARBOX
LHIGHLIGHTTEXT
PREVIEWFORM
OREPORT
COUTPUTALIAS
HIGHLIGHTOBJECT
WIDTH
HEIGHT
TNINDEX
DOSAVETYPE
_GOHELPER
_LNOWAIT
CDESTFILE
LSAVED
LEXTENDED
DOOUTPUT<
SAVEASIMAG
Png;Bmp;Jpg;Gif;Tif;Emf
SAVEASPDF
SAVEASHTML
Htm;Html
SAVEASHTML
Mht;Mhtml
TEMP5
_IMAGES
Safetyv
SET SAFETY &lcSetSafe.
SAVEASRTF
Rtf;Doc
Xml;Xls
Xls;Xml
SAVEASXLS
SAVEASTXT
Txt;Csv;Xl5
TNTYPE
_GOHELPER
LSAVED
OLISTENER
PREVIEWFORM
OREPORT
LCFILE
LCREPORTNAME
PRINTJOBNAME
COUTPUTPATH
CSAVEDEFNAME
GETLOC
LOLISTENER
REPORT2PIC
LOPENVIEWER
_LSENDINGEMAIL
OPENFILE
DOMAKEPDFOFFLINE
LEXTENDED
DOMAKEHTMLOFFLINE
LCTEMPHTMLFILE
LCIMGPATH
TOMHTML
LCSETSAFE
DOMAKERTFOFFLINE
LCFILEEXT
CEXCELDEFAULTEXTENSION
DOMAKEXLSOFFLINE
CDESTFILE
ACTIONCLOSE
PdfListener
PR_PDFx.vcx
PdfListener
PR_PDFx.vcx
PDFasImageListener
PR_Pdfx.vcx
PDFasImageListener
PR_PDFx.vcx
ERR_CREATI
TCFILE
_GOHELPER
CDESTFILE
LNPGMODE
NPDFPAGEMODE
LNTYPE
LPDFASIMAGE
LOLISTENER
CCODEPAGE
CTARGETFILENAME
LEMBEDFONT
LPDFEMBEDFONTS
LCANPRINT
LPDFCANPRINT
LCANEDIT
LPDFCANEDIT
LCANCOPY
LPDFCANCOPY
LCANADDNOTES
LPDFCANADDNOTES
LENCRYPTDOCUMENT
LPDFENCRYPTDOCUMENT
CMASTERPASSWORD
CPDFMASTERPASSWORD
CUSERPASSWORD
CPDFUSERPASSWORD
LSHOWERRORS
LPDFSHOWERRORS
CSYMBOLFONTSLIST
CPDFSYMBOLFONTSLIST
CPDFAUTHOR
CPDFTITLE
CPDFSUBJECT
CPDFKEYWORDS
CPDFCREATOR
LREPLACEFONTS
LPDFREPLACEFONTS
NPAGEMODE
CDEFAULTFONT
CPDFDEFAULTFONT
QUIETMODE
LQUIETMODE
LCOUTPUTDBF
LNWIDTH
LNHEIGHT
LLHASFJ
OLISTENER
GETFULLFRXDATA
LHASFJ
GETPAGEWIDTH
GETPAGEHEIGHT
OUTPUTFROMDATA
DOFOXYTHERM
LSAVED
SETERROR
GETLOC
LOPENVIEWER
_LSENDINGEMAIL
OPENFILE
REPORTLISTENER
RTFreportlistener
PR_RTFListener
ERR_CREATI
TCFILE
_GOHELPER
CDESTFILE
LORTFLISTENER
TARGETFILENAME
QUIETMODE
LQUIETMODE
LCOUTPUTDBF
LNWIDTH
LNHEIGHT
OLISTENER
GETFULLFRXDATA
GETPAGEWIDTH
GETPAGEHEIGHT
OUTPUTFROMDATA
DOFOXYTHERM
LSAVED
SETERROR
GETLOC
LOPENVIEWER
_LSENDINGEMAIL
OPENFILE
ExcelListener
ExcelListener
pr_ExcelListener.vcx
Sheet
PREPDATA
PLEASEWAIT
ERR_CREATI
TCFILE
_GOHELPER
CDESTFILE
LOXLSLISTENER
CWORKBOOKFILE
CWORKSHEETNAME
CCODEPAGE
LCONVERTTOXLS
LEXCELCONVERTTOXLS
LREPEATHEADERS
LEXCELREPEATHEADERS
LREPEATFOOTERS
LEXCELREPEATFOOTERS
LHIDEPAGENO
LEXCELHIDEPAGENO
LALIGNLEFT
LEXCELALIGNLEFT
NEXCELSAVEFORMAT
LQUIETMODE
DOFOXYTHERM
GETLOC
_RUNSTATUSTEXT
LCOUTPUTDBF
LNWIDTH
LNHEIGHT
OLISTENER
GETFULLFRXDATA
OUTPUTFROMDATA
LSAVED
SETERROR
LOPENVIEWER
_LSENDINGEMAIL
OPENFILE
HTMLListener
PR_HTMLListener
PR_ReportListener.vcx
ERR_CREATI
TCFILE
_GOHELPER
CDESTFILE
LOLISTENER
TARGETFILENAME
QUIETMODE
LQUIETMODE
FXFEEDBACKCLASS
_CTHERMCLASS
LCOUTPUTDBF
LNWIDTH
LNHEIGHT
OLISTENER
GETFULLFRXDATA
GETPAGEWIDTH
GETPAGEHEIGHT
OUTPUTFROMDATA
LSAVED
SETERROR
GETLOC
LOPENVIEWER
_LSENDINGEMAIL
OPENFILE$
REPORTLISTENER
pr_HTMLListener2
PR_HTMLListener2
ERR_CREATI
TCFILE
TLTEMP
_GOHELPER
CDESTFILE
LOHTMLLISTENER
CTARGETFILENAME
QUIETMODE
LQUIETMODE
LCOUTPUTDBF
LNWIDTH
LNHEIGHT
OLISTENER
GETFULLFRXDATA
GETPAGEWIDTH
GETPAGEHEIGHT
OUTPUTFROMDATA
DOFOXYTHERM
LSAVED
SETERROR
GETLOC
LOPENVIEWER
_LSENDINGEMAIL
OPENFILE
Pdf;Rtf;Xls;Xml;Png;Tiff;Bmp;Gif;Emf;Jpg;Htm
Pdf;Rtf;Xls;Xml;Png;Tiff;Bmp;Gif;Emf;Jpg;Htm
TEMP5
SAVEAS
ERR_CREATI
_GOHELPER
CLOSESHEETS
LCFILE
LCFOLDER
LCEXTENSIONS
LEXTENDED
LEMAILAUTO
CSAVEDEFNAME
OLISTENER
PRINTJOBNAME
CEMAILTYPE
_CFRXNAME
GETLOC
LSAVED
CDESTFILE
_LSENDINGEMAIL
LCFILEFORMAT
LOLISTENER
PREVIEWFORM
OREPORT
REPORT2PIC
SETERROR
SENDREPORTTOEMAIL
DOMAKEPDFOFFLINE
DOMAKERTFOFFLINE
DOMAKEXLSOFFLINE
ACTIONCLOSE
_LNOWAIT
DOOUTPUT
NKEYCODE
NSHIFTALTCTRL
COPIES
LCCOPIESCAPTION
_GOHELPER
GETLOC
LBLCOPIES1
CAPTION
AUTOSIZE
_NBTSIZE
HEIGHT
TOOLTIPTEXT
SPNCOPIES1
LNTXTWIDTH
FONTNAME
FONTSIZE
WIDTHN
COMMANDBUTTON
TLENABLED
LOCONTROL
CONTROLS
ENABLED
VALUE
_GOHELPER
NCOPIES
_GOHELPER
NCOPIES
VALUE
Keycompv
{ENTER}
CHINESE
JAPANESE
KOREAN
{ALT+DNARROW}
PARENT
CMBSAVE1
VALUE
SETFOCUS
_GOHELPER
CLANGUAGE
PICTURE
PARENT
PREVIEWFORM
EXTENSIONHANDLER
IMGBTN_SAVE#
VALUE
NINDEX}
VALUE
LNINDEX
LIST
LISTINDEX
NINDEX
PARENT
PREVIEWFORM
EXTENSIONHANDLER
DOSAVE
PARENT
PREVIEWFORM
EXTENSIONHANDLER
DOCUSTOMPRINT
PICTURE
PARENT
PREVIEWFORM
EXTENSIONHANDLER
IMGBTN_PRINTPREF
PARENT
PREVIEWFORM
EXTENSIONHANDLER
DOSETUP
PICTURE
PARENT
PREVIEWFORM
EXTENSIONHANDLER
IMGBTN_SETUP
PARENT
PREVIEWFORM
EXTENSIONHANDLER
DOSENDEMAIL
PICTURE
PARENT
PREVIEWFORM
EXTENSIONHANDLER
IMGBTN_EMAILa
PARENT
PREVIEWFORM
VISIBLE
_GOHELPER
LPRINTED
CLOSESHEETS
EXTENSIONHANDLER
ACTIONCLOSE2
NBUTTON
NSHIFT
NXCOORD
NYCOORD
PICTURE
PARENT
PREVIEWFORM
EXTENSIONHANDLER
IMGBTN_CLOSE22
NBUTTON
NSHIFT
NXCOORD
NYCOORD
PICTURE
PARENT
PREVIEWFORM
EXTENSIONHANDLER
IMGBTN_CLOSE
PICTURE
PARENT
PREVIEWFORM
EXTENSIONHANDLER
IMGBTN_CLOSE
TOOLTIPTEXT
PR_PRINTREPOR
PARENT
PREVIEWFORM
EXTENSIONHANDLER
ACTIONPRINTEX
PICTURE
PARENT
PREVIEWFORM
EXTENSIONHANDLER
IMGBTN_PRINT
PARENT
PREVIEWFORM
EXTENSIONHANDLER
ACTIONGOTOPAGE
COMMANDBUTTON
TLENABLED
LOCONTROL
CONTROLS
ENABLED
PARENT
PREVIEWFORM
EXTENSIONHANDLER
DOSEARCH"
PICTURE
PARENT
PREVIEWFORM
EXTENSIONHANDLER
IMGBTN_SEARCH
PARENT
PREVIEWFORM
EXTENSIONHANDLER
DOSEARCHAGAIN"
PICTURE
PARENT
PREVIEWFORM
EXTENSIONHANDLER
IMGBTN_SEARCHAGAIN
PARENT
PREVIEWFORM
EXTENSIONHANDLER
DOSEARCHBACK"
PICTURE
PARENT
PREVIEWFORM
EXTENSIONHANDLER
IMGBTN_SEARCHBACK
Printer
COMBOBOX
LCDEFPRINTER
LCCURRPRINTER
LNPRINTERS
LAPRINTERS
ADDITEM
NEWINDEX
LISTINDEX
_CORIGINALPRINTER
LCITEM
LISTCOUNT
LCVALUE
LCORIGPRINTER
VALUE
_GOHELPER
_CORIGINALPRINTER
CPRINTERNAME
PARENT
PREVIEWFORM
EXTENSIONHANDLER
DOPROOF
PICTURE
PARENT
PREVIEWFORM
EXTENSIONHANDLER
IMGBTN_MINI
REPORTTITL
GOTOPG_CAP
NSTYLE
PAGENO
OPARENTFORM
CURRENTPAGE
PAGETOTAL
CAPTION
_GOHELPER
GETLOC
LBLCAPTION
SHOWWINDOW
AUTOCENTER
VIEWPORTLEFT
WIDTH
VIEWPORTTOP
HEIGHT
SPNPAGENO
SPINNERLOWVALUE
SPINNERHIGHVALUE
KEYBOARDLOWVALUE
KEYBOARDHIGHVALUE
VALUE_
GOTOPG_OK
CANCEL
CMDOK
CAPTION
_GOHELPER
GETLOC
CMDCANCELe
VALUE
SPINNERLOWVALUE
SPINNERHIGHVALUE/
PARENT
PAGENO
SPNPAGENO
VALUE
HIDE
PARENT
THISFORM
RELEASEF
_GOHELPER
CFORMICON
ICON&
NBUTTON
NSHIFT
NXCOORD
NYCOORD
MOUSEPOINTER<
NBUTTON
NSHIFT
NXCOORD
NYCOORD
MOUSEPOINTER
PARENT
NCURRSHAPE
PAGENO(
THISFORM
CURRENTPAGE
PAGENO
FIRST
CTYPE
PARENT
NPAGESET
NPAGES
NMAXMINIATUREITEM
REFRESHPAGEBTN
FIRST
CTYPE
ENABLED
PARENT
NPAGESET
NPAGES
NMAXMINIATUREITEM
PageSetFirst
PageSetBtn
pr_top.bmp
MINIFIRSTT
FIRST
PageSetPrev
PageSetBtn
pr_previous.bmp
MINIPREVTI
PageSetNext
PageSetBtn
pr_next.bmp
MININEXTTI
PageSetLast
PageSetBtn
pr_bottom.bmp
MINILASTTI
PageSetCaption
Label
Arial
ESCAPE
ESCAPE
_VFP.ACTIVEFORM.RELEASE()
THIS
ADDOBJECT
NOTHERTHENPROOFOBJ
PAGESETFIRST
CAPTION
PICTURE
TOOLTIPTEXT
_GOHELPER
GETLOC
CTYPE
VISIBLE
PAGESETPREV
WIDTH
PAGESETNEXT
PAGESETLAST
PAGESETCAPTION
AUTOSIZE
FONTNAME
FONTSIZE
FONTBOLD
HEIGHT
OLDESCFUNCTION
ESCAPE#
PAGESETNEXT
REFRESH
PAGESETPREV1
OREPORT
REPORTLISTENER
NPAGES
OUTPUTPAGECOUNT}
WINDOWSTATE
LINACTIVE
LSHOWDONE
PAINT
THIS
LSHOWDONE
VNEWVALUE
NPAGESET
NPAGES
NMAXMINIATUREITEM
NOTHERTHENPROOFOBJ
OBJECTS
COUNT
VISIBLE
SETPROOFCAPTION
MINILABEL
%FP%C
%LP%C
CMESSAGE
NFIRSTPAGE
NLASTPAGE
NPAGESET
NMAXMINIATUREITEM
NPAGES
_GOHELPER
GETLOC
PAGESETCAPTION
CAPTION)
ONEWVALUE
REPORTLISTENER
DORESIZEPROOFSHEET)
NNEWITEM
NMAXMINIATUREITEM
DORESIZEPROOFSHEET
REPORTLISTENER
NPROOFWIDTH
GETPAGEWIDTH
NPROOFHEIGHT
GETPAGEHEIGHT
NMAXSCREENWTOCONSIDERE
WIDTH
NMAXSCREENHTOCONSIDERE
HEIGHT
NNBCOL
NPAGES
NNBROW
NMAXMINIATUREITEM
NBASEHEIGHT
_GOHELPER
_NBTSIZE
AUTOCENTER
This.Objects[m.i - ((This.nPageSet - 1) * This.nMaxMiniatureItem) + This.nOtherThenProofObj]b
PAGECAPTIO
REPORTLISTENER
LSHOWDONE
NPAGESET
NMAXMINIATUREITEM
NPAGES
OBJECTS
NOTHERTHENPROOFOBJ
TOOLTIPTEXT
_GOHELPER
GETLOC
OUTPUTPAGE
ProofShape
NSTYLE
NPAGES
NMAXMINIATUREITEM
LSTARTED
PAGESETFIRST
VISIBLE
PAGESETPREV
PAGESETNEXT
PAGESETLAST
PAGESETCAPTION
IROWOFFSET
_GOHELPER
_NBTSIZE
ICOLOFFSET
NPROOFWIDTH
REPORTLISTENER
GETPAGEWIDTH
NPROOFHEIGHT
GETPAGEHEIGHT
ICOLCOUNT
THISFORM
WIDTH
NCURCOL
LSHOWDONE
NPAGESET
NOBJECTID
NOTHERTHENPROOFOBJ
ADDOBJECT
OBJECTS
HEIGHT
PAGENOL
ON KEY LABEL ESCAPE &EscFUNCTION
CESCFUNCTION
REPORTLISTENER
ESCFUNCTION
OLDESCFUNCTION]
ScreenToClient
user32Q
PR_ScreenToClient
CPOINT
SCREENTOCLIENT
USER32
PR_SCREENTOCLIENTM
GetCursorPos
user32Q
PR_GetCursorPos
CPOINT
GETCURSORPOS
USER32
PR_GETCURSORPOSQ
PathFileExists
shlwapiQ
PR_PathFileExists
PSZPATH
PATHFILEEXISTS
SHLWAPI
PR_PATHFILEEXISTS6
GetFocus
user32Q
PR_GetFocus
GETFOCUS
USER32
PR_GETFOCUSg
GetWindowText
user32Q
PR_GetWindowText
LPSTRING
GETWINDOWTEXT
USER32
PR_GETWINDOWTEXTD
GetActiveWindow
user32Q
PR_GetActiveWindow
GETACTIVEWINDOW
USER32
PR_GETACTIVEWINDOW
MAPISendDocuments
mapi32Q
PR_MAPISendDocuments
ULUIPARAM
LPSZDELIMCHAR
LPSZFULLPATHS
LPSZFILENAMES
ULRESERVED
MAPISENDDOCUMENTS
MAPI32
PR_MAPISENDDOCUMENTS
NOCONSOLE
noconsole
PREVIEW
preview
TCCLAUSES
LCCLAUSES
TCPRINTER
LNBINS
LCBUFF
LLDOTMATRIX
PR_DEVICECAPABILITIES
LOEXC
DeviceCapabilities
WinSpool.drvQ
PR_DeviceCapabilities
SPRINTER
SPORT
NCAPABILITY
SRETURN
PDEVMODE
DEVICECAPABILITIES
WINSPOOL
PR_DEVICECAPABILITIESL
MessageBeep
Win32APIQ
PR_MessageBeep
NTYPE
MESSAGEBEEP
WIN32API
PR_MESSAGEBEEP*
HWINDOW
PR_GETFOCUS
GETWINTEXT
HWINDOW
LNBUFSIZE
LCBUFFER
PR_GETWINDOWTEXT
PChar
PCharC
PChar
PChar
PChar
PChar
PChar
PCharCC
TCATTACHMENT
TCRECIPIENT
TCSUBJECT
TCTEXT
LCATTACHMENT
LCRECIPIENT
LCSUBJECT
LCTEXT
DECLMAPI
HSESSION
GETNEWSESSION
LORCPEMAIL
LOSNDBUF
LCRCPBUF
LOSUBJECT
LONOTETEXT
LORCPBUF
LCMAPIMESSAGE
LNRESULT
LOATTACH
LOATTPATH
LOATTNAME
LCATTSTRUCT
NUM2DWORD
GETADDR
MAPISENDMAIL
LLSUCCESS
PR_MAPISHOWMESSAGE
MAPILOGOFF
LNRESULT
LNSESSION
LCSTOREDPATH
MAPILOGON
PR_MAPISHOWMESSAGE
_GOHELPER
LEMAILED
LNVALUEC
LCSTRING
SETVALUE
RELEASESTRING
RtlMoveMemory
kernel32Q
Heap2Str
LNSIZE
LCBUFFER
GETALLOCSIZE
RTLMOVEMEMORY
KERNEL32
HEAP2STRG
GlobalSize
kernel32
GLOBALSIZE
KERNEL32
GlobalAlloc
kernel32
RtlMoveMemory
kernel32Q
Str2Heap
LCSTRING
RELEASESTRING
GLOBALALLOC
KERNEL32
RTLMOVEMEMORY
STR2HEAP
LNSIZE
HMEMZ
GlobalFree
kernel32
GLOBALFREE
KERNEL32y
MAPILogon
mapi32
MAPILogoff
mapi32
MAPISendMail
mapi32
MAPILOGON
MAPI32
MAPILOGOFF
MAPISENDMAIL%
ENGLISH
FRENCH
PORTUGUESE
ALBANIAN
CATALAN
DANISH
DUTCH
FAEROESE
FINNISH
GALICIAN
GERMAN
ICELANDIC
ITALIAN
NORWEGIAN
SPANISH
SWEDISH
windows-CC
AERRORS
LCCHARSET
_GOHELPER
CLANGUAGE
CCODEPAGE
CCHARSETC
CDO.Configuration
CDO.Message
ERROR : From is Empty.
ERROR : Subject is Empty.
ERROR : To,CC and BCC all are Empty.
ATACHNOTFO
urn:schemas:mailheader:disposition-notification-to
urn:schemas:mailheader:return-receipt-to
Priority
urn:schemas:mailheader:X-Priority
urn:schemas:httpmail:importance
CLEARERRORS
CONFIGURATION
LNIND
LALIST
LOHEADER
LADUMMY
SETCONFIGURATION
GETERRORCOUNT
CFROM
ADDERROR
CSUBJECT
CBCC
SETHEADER
REPLYTO
CREPLYTO
SUBJECT
CHTMLBODYURL
CREATEMHTMLBODY
CHTMLBODY
HTMLBODY
CTEXTBODY
TEXTBODY
HTMLBODYPART
CHARSET
CCHARSET
TEXTBODYPART
CATTACHMENT
LCATTACHMENT
_GOHELPER
GETLOC
ADDATTACHMENT
LREADRECEIPT
FIELDS
UPDATE
LPRIORITY
VALUE
BODYPART
SHOWTHERM
CLEARTHERMC
NERRORCOUNT
AERRORS
NERRORCOUNTG
TNERRORNO
GETERRORCOUNT
AERRORS%
SMTPNOTSPE
BADAUTHPRO
INFOREQUIR
http://schemas.microsoft.com/cdo/configuration/sendusing
http://schemas.microsoft.com/cdo/configuration/smtpserver
http://schemas.microsoft.com/cdo/configuration/smtpserverport
http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout
http://schemas.microsoft.com/cdo/configuration/smtpauthenticate
http://schemas.microsoft.com/cdo/configuration/sendusername
http://schemas.microsoft.com/cdo/configuration/sendpassword
http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion
http://schemas.microsoft.com/cdo/configuration/smtpusessl
CSERVER
ADDERROR
_GOHELPER
GETLOC
NAUTHENTICATE
CUSERNAME
CPASSWORD
GETERRORCOUNT
FIELDS
NSERVERPORT
NCONNECTIONTIMEOUT
LURLGETLATESTVERSION
LUSESSL
UPDATE[
TCERRORMSG
NERRORCOUNT
AERRORS
TCPREFIX
TNERROR
TCMETHOD
TNLINE
LCERRORMSG
LALIST
ADDERROR
NERRORCOUNT@
TNERROR
TCMETHOD
TNLINE
ADDONEERROR
NERRORCOUNT
urn:schemas:mailheader:x-mailer
LOHEADER
CXMAILER
FIELDS
UPDATE/
OTHERMFORM
ITLFForm
Therm
ctl32_progressbar
pr_ctl32_progressbar
MSGSENDING
_GOHELPER
LQUIETMODE
LOTHERMFORM
LNTHERMMARGIN
LITHERMHEIGHT
LITHERMWIDTH
LITHERMTOP
LITHERMLEFT
SCALEMODE
HEIGHT
HALFHEIGHTCAPTION
WIDTH
AUTOCENTER
BORDERSTYLE
CONTROLBOX
CLOSABLE
MAXBUTTON
MINBUTTON
MOVABLE
ALWAYSONTOP
ALLOWOUTPUT
NEWOBJECT
CAPTION
GETLOC
VISIBLE
THERM
MARQUEE
MARQUEEANIMATIONSPEED
MARQUEESPEED
OTHERMFORM
LCTYPE
THIS
CDESTFILE
DESTROY
Report Listener could not be accessed
bitmap
TOLISTENER
TCDESTFILE
TCFILEFORMAT
LNPAGECOUNT
LNFILETYPE
LNDEVICETYPE
_GOHELPER
NPAGETOTAL
PAGETOTAL
LNPAGENO
OUTPUTPAGE
LCPATHFILE
LCDESTFILE
LCINDEX
LLSUCCESSM
PR_SendMail2.scx
PR_SendMail.scx
PR_SendMail2.scx
DESTNOTDEF
BADCONFIG
SMTPNOTSPE
BADCONFIG
FROMEMPTY
BADCONFIG
SUBJEMPTY
BADCONFIG
CDO2000
Cdo2000
<HTML><BR></HTML>
<HTML>
ERRSENDMAI
MSGNOTSENT
ERRSENDMAI
MSGSUCCESS
SENDEMAIL
TCFILE
TLDONOTEDITMESSAGE
OFOXYPREVIEWER
LOFP
_GOHELPER
CCODEPAGE
CEMAILTO
CSMTPSERVER
LEMAILAUTO
CEMAILTYPE
CEMAILPRG
NSMTPPORT
LSMTPUSESSL
CSMTPUSERNAME
CSMTPPASSWORD
CEMAILFROM
CEMAILCC
CEMAILBCC
CEMAILSUBJECT
CEMAILREPLYTO
CEMAILBODY
LREADRECEIPT
LPRIORITY
LEMAILED
LLCANCELLED
CLOSESHEETS
LLVISIBLE
LOTOOLBAR
LOFORM
_OEXHANDLER
PREVIEWFORM
TOOLBAR
VISIBLE
LCEMAILFORM
NEMAILMODE
SHOWTOOLBAR
_OEMAILSHEET
SETERROR
GETLOC
LOMAIL
CSERVER
NSERVERPORT
LUSESSL
NAUTHENTICATE
CUSERNAME
LAUTOSENDMAIL
CPASSWORD
DODECRYPT
CFROM
CSUBJECT
CREPLYTO
CHTMLBODY
CTEXTBODY
_CATTACHMENT
CATTACHMENT
CATTACHMENTS
SEND
LCMAILERR
GETERRORCOUNT
GETERROR
LSILENTf
OpenPrinter
winspool.drv
GetActiveWindow
user32
DocumentProperties
winspool.drv
ClosePrinter
winspool.drv
Printer
Could not open printer.
Error
TempCur
TempCur
RptFile
LCRPTFILE
LHWINDOW
LCORIGDEVMODE
LCMODIFIEDDEVMODE
LCPRINTER
LHPRINTER
OPENPRINTER
WINSPOOL
GETACTIVEWINDOW
USER32
DOCUMENTPROPERTIES
CLOSEPRINTER
TEMPCUR
RPTFILE
LCOLDEXPR
LCOLDTAG
LCOLDTAG2
TAG2
LCDEVMODE
LNRESULT
IDCANCEL
LOEXCEPTION
GdipDrawString
GDIPLUS.DLLQ
xfcGdipDrawString
GRAPHICS
LENGTH
THEFONT
LAYOUTRECT
STRINGFORMAT
BRUSH
GDIPDRAWSTRING
GDIPLUS
XFCGDIPDRAWSTRING
GdipMeasureString
GDIPLUS.DLLQ
xfcGdipMeasureString
GRAPHICS
LENGTH
THEFONT
LAYOUTRECT
STRINGFORMAT
BOUNDINGBOX
CODEPOINTSFITTED
LINESFILLED
GDIPMEASURESTRING
GDIPLUS
XFCGDIPMEASURESTRINGk
GdipRestoreGraphics
GDIPLUS.DLLQ
xfcGdipRestoreGraphics
GRAPHICS
STATE
GDIPRESTOREGRAPHICS
GDIPLUS
XFCGDIPRESTOREGRAPHICSf
GdipSaveGraphics
GDIPLUS.DLLQ
xfcGdipSaveGraphics
GRAPHICS
STATE
GDIPSAVEGRAPHICS
GDIPLUS
XFCGDIPSAVEGRAPHICSq
GdipSetPixelOffsetMode
GDIPLUS.DLLQ
xfcGdipSetPixelOffsetMode
GRAPHICS
PIXOFFSETMODE
GDIPSETPIXELOFFSETMODE
GDIPLUS
XFCGDIPSETPIXELOFFSETMODE}
GdipSetRenderingOrigin
GDIPLUS.DLLQ
xfcGdipSetRenderingOrigin
GRAPHICS
GDIPSETRENDERINGORIGIN
GDIPLUS
XFCGDIPSETRENDERINGORIGINm
GdipSetSmoothingMode
GDIPLUS.DLLQ
xfcGdipSetSmoothingMode
GRAPHICS
SMOOTHINGMD
GDIPSETSMOOTHINGMODE
GDIPLUS
XFCGDIPSETSMOOTHINGMODEu
GdipSetStringFormatAlign
GDIPLUS.DLLQ
xfcGdipSetStringFormatAlign
STRINGFORMAT
ALIGN
GDIPSETSTRINGFORMATALIGN
GDIPLUS
XFCGDIPSETSTRINGFORMATALIGNu
GdipSetStringFormatFlags
GDIPLUS.DLLQ
xfcGdipSetStringFormatFlags
STRINGFORMAT
FLAGS
GDIPSETSTRINGFORMATFLAGS
GDIPLUS
XFCGDIPSETSTRINGFORMATFLAGSu
GdipSetTextRenderingHint
GDIPLUS.DLLQ
xfcGdipSetTextRenderingHint
GRAPHICS
GDIPSETTEXTRENDERINGHINT
GDIPLUS
XFCGDIPSETTEXTRENDERINGHINTo
GdipSetWorldTransform
GDIPLUS.DLLQ
xfcGdipSetWorldTransform
GRAPHICS
MATRIX
GDIPSETWORLDTRANSFORM
GDIPLUS
XFCGDIPSETWORLDTRANSFORM
GdipStringFormatGetGenericTypographic
GDIPLUS.DLLQ
xfcGdipStringFormatGetGenericTypographic
STRINGFORMAT%
GDIPSTRINGFORMATGETGENERICTYPOGRAPHIC
GDIPLUS
XFCGDIPSTRINGFORMATGETGENERICTYPOGRAPHIC
GdipTransformPoints
GDIPLUS.DLLQ
xfcGdipTransformPoints
GRAPHICS
DESTSPACE
SRCSPACE
PPOINT
COUNT
GDIPTRANSFORMPOINTS
GDIPLUS
XFCGDIPTRANSFORMPOINTS
GdipTransformPointsI
GDIPLUS.DLLQ
xfcGdipTransformPointsI
GRAPHICS
DESTSPACE
SRCSPACE
PPOINT
COUNT
GDIPTRANSFORMPOINTSI
GDIPLUS
XFCGDIPTRANSFORMPOINTSIs
GdipTranslateClip
GDIPLUS.DLLQ
xfcGdipTranslateClip
GRAPHICS
GDIPTRANSLATECLIP
GDIPLUS
XFCGDIPTRANSLATECLIPp
GdipCloneStringFormat
GDIPLUS.DLLQ
xfcGdipCloneStringFormat
STRINGFORMAT
NEWFORMAT
GDIPCLONESTRINGFORMAT
GDIPLUS
XFCGDIPCLONESTRINGFORMAT~
GdipCreateStringFormat
GDIPLUS.DLLQ
xfcGdipCreateStringFormat
FORMATATTRIBUTES
LANGUAGE
STRINGFORMAT
GDIPCREATESTRINGFORMAT
GDIPLUS
XFCGDIPCREATESTRINGFORMATe
GdipDeleteStringFormat
GDIPLUS.DLLQ
xfcGdipDeleteStringFormat
STRINGFORMAT
GDIPDELETESTRINGFORMAT
GDIPLUS
XFCGDIPDELETESTRINGFORMATv
GdipGetStringFormatAlign
GDIPLUS.DLLQ
xfcGdipGetStringFormatAlign
STRINGFORMAT
ALIGN
GDIPGETSTRINGFORMATALIGN
GDIPLUS
XFCGDIPGETSTRINGFORMATALIGN
GdipGetStringFormatDigitSubstitution
GDIPLUS.DLLQ
xfcGdipGetStringFormatDigitSubstitution
STRINGFORMAT
LANGUAGE
SUBSTITUTE$
GDIPGETSTRINGFORMATDIGITSUBSTITUTION
GDIPLUS
XFCGDIPGETSTRINGFORMATDIGITSUBSTITUTIONv
GdipGetStringFormatFlags
GDIPLUS.DLLQ
xfcGdipGetStringFormatFlags
STRINGFORMAT
FLAGS
GDIPGETSTRINGFORMATFLAGS
GDIPLUS
XFCGDIPGETSTRINGFORMATFLAGS
GdipGetStringFormatHotkeyPrefix
GDIPLUS.DLLQ
xfcGdipGetStringFormatHotkeyPrefix
STRINGFORMAT
HKPREFIX
GDIPGETSTRINGFORMATHOTKEYPREFIX
GDIPLUS
XFCGDIPGETSTRINGFORMATHOTKEYPREFIX~
GdipGetStringFormatLineAlign
GDIPLUS.DLLQ
xfcGdipGetStringFormatLineAlign
STRINGFORMAT
ALIGN
GDIPGETSTRINGFORMATLINEALIGN
GDIPLUS
XFCGDIPGETSTRINGFORMATLINEALIGN
GdipGetStringFormatTabStopCount
GDIPLUS.DLLQ
xfcGdipGetStringFormatTabStopCount
STRINGFORMAT
COUNT
GDIPGETSTRINGFORMATTABSTOPCOUNT
GDIPLUS
XFCGDIPGETSTRINGFORMATTABSTOPCOUNT
GdipGetStringFormatTabStops
GDIPLUS.DLLQ
xfcGdipGetStringFormatTabStops
STRINGFORMAT
COUNT
FIRSTTABOFFSET
TABSTOPS
GDIPGETSTRINGFORMATTABSTOPS
GDIPLUS
XFCGDIPGETSTRINGFORMATTABSTOPS|
GdipGetStringFormatTrimming
GDIPLUS.DLLQ
xfcGdipGetStringFormatTrimming
STRINGFORMAT
TRIMMING
GDIPGETSTRINGFORMATTRIMMING
GDIPLUS
XFCGDIPGETSTRINGFORMATTRIMMINGu
GdipSetStringFormatAlign
GDIPLUS.DLLQ
xfcGdipSetStringFormatAlign
STRINGFORMAT
ALIGN
GDIPSETSTRINGFORMATALIGN
GDIPLUS
XFCGDIPSETSTRINGFORMATALIGN
GdipSetStringFormatDigitSubstitution
GDIPLUS.DLLQ
xfcGdipSetStringFormatDigitSubstitution
STRINGFORMAT
LANGUAGE
SUBSTITUTE$
GDIPSETSTRINGFORMATDIGITSUBSTITUTION
GDIPLUS
XFCGDIPSETSTRINGFORMATDIGITSUBSTITUTIONu
GdipSetStringFormatFlags
GDIPLUS.DLLQ
xfcGdipSetStringFormatFlags
STRINGFORMAT
FLAGS
GDIPSETSTRINGFORMATFLAGS
GDIPLUS
XFCGDIPSETSTRINGFORMATFLAGS
GdipSetStringFormatHotkeyPrefix
GDIPLUS.DLLQ
xfcGdipSetStringFormatHotkeyPrefix
STRINGFORMAT
HKPREFIX
GDIPSETSTRINGFORMATHOTKEYPREFIX
GDIPLUS
XFCGDIPSETSTRINGFORMATHOTKEYPREFIX}
GdipSetStringFormatLineAlign
GDIPLUS.DLLQ
xfcGdipSetStringFormatLineAlign
STRINGFORMAT
ALIGN
GDIPSETSTRINGFORMATLINEALIGN
GDIPLUS
XFCGDIPSETSTRINGFORMATLINEALIGN
GdipSetStringFormatMeasurableCharacterRanges
GDIPLUS.DLLQ
xfcGdipSetStringFormatMeasurableCharacterRanges
STRINGFORMAT
RANGECOUNT
RANGES,
GDIPSETSTRINGFORMATMEASURABLECHARACTERRANGES
GDIPLUS
XFCGDIPSETSTRINGFORMATMEASURABLECHARACTERRANGES
GdipSetStringFormatTabStops
GDIPLUS.DLLQ
xfcGdipSetStringFormatTabStops
STRINGFORMAT
FIRSTTABOFFSET
COUNT
TABSTOPS
GDIPSETSTRINGFORMATTABSTOPS
GDIPLUS
XFCGDIPSETSTRINGFORMATTABSTOPS{
GdipSetStringFormatTrimming
GDIPLUS.DLLQ
xfcGdipSetStringFormatTrimming
STRINGFORMAT
TRIMMING
GDIPSETSTRINGFORMATTRIMMING
GDIPLUS
XFCGDIPSETSTRINGFORMATTRIMMING|
GdipStringFormatGetGenericDefault
GDIPLUS.DLLQ
xfcGdipStringFormatGetGenericDefault
STRINGFORMAT!
GDIPSTRINGFORMATGETGENERICDEFAULT
GDIPLUS
XFCGDIPSTRINGFORMATGETGENERICDEFAULT
GdipStringFormatGetGenericTypographic
GDIPLUS.DLLQ
xfcGdipStringFormatGetGenericTypographic
STRINGFORMAT%
GDIPSTRINGFORMATGETGENERICTYPOGRAPHIC
GDIPLUS
XFCGDIPSTRINGFORMATGETGENERICTYPOGRAPHICk
CreateDC
WIN32APIQ
xfcCreateDC
CDRIVER
CDEVICE
LPSZOUTPUT
LPINITDATA
CREATEDC
WIN32API
XFCCREATEDCF
DeleteDC
WIN32APIQ
xfcDeleteDC
DELETEDC
WIN32API
XFCDELETEDCE
StartPage
gdi32Q
xfcStartPage
STARTPAGE
GDI32
XFCSTARTPAGEA
EndPage
gdi32Q
xfcEndPage
ENDPAGE
GDI32
XFCENDPAGEP
StartDoc
gdi32Q
xfcStartDoc
STARTDOC
GDI32
XFCSTARTDOC?
EndDoc
gdi32Q
xfcEndDoc
ENDDOC
GDI32
XFCENDDOCY
GetDeviceCaps
gdi32Q
xfcGetDeviceCaps
NINDEX
GETDEVICECAPS
GDI32
XFCGETDEVICECAPS
PROCEDURE
LCPROC
LNPOS
LCFILE
LCPATH
CTEXTE
CCLEF
NLONGCLEF
CRESULT
ENGLISH
ESPANIOL
SPANISH
FoxyPreviewer_Locs.dbf
Could not load the localizations table.
Error
Language
 was not found!
Make sure that the desired language is available in FoxyPreviewer_Locs.dbf
Error
TCLANGUAGE
LCDBFFILE
LNSELECT
LANGUAGE
LOCALLANG
OFOXYPREVIEWER
CCODEPAGE
_INITSTATUSTEXT
INITSTATUS
_PREPASSSTATUSTEXT
PREPSTATUS
_RUNSTATUSTEXT
RUNSTATUS
_SECONDSTEXT
SECONDS
_CANCELINSTRTEXT
CANCELINST
_CANCELQUERYTEXT
CANCELQUER
_REPORTINCOMPLETETEXT
REPINCOMPL
_ATTENTIONTEXT
ATTENTION
LOLANG
_OLANG
_CLANGLOADED
_Screen.oFoxyPreviewer._oLang.
Could not locate the string '
' in the localizations table.
Please make sure that you have the latest version available of 'FoxyPreviewer_locs.dbf'.
Error
TCSTRING
LCTRANSLL
internetexplorer.application
internetexplorer.application
TCFILE
LODOC
VISIBLE
NAVIGATE
LNSECS
LCINNERTEXT
READYSTATE
DOCUMENT
BODY
INNERTEXT
EnumPrinterForms
Internal
Envelope
Error loading printer information
Printer:
Form #
Width:
Height:
Printer Info
TCPRINTER
TNWIDTH
TNHEIGHT
LLSHOWRESULT
LOPRINTFORMS
CUNIT
NROUND
LCPRINTER
GETFORMLIST
CERRORMESSAGE
STARTMODE
CAPIERRORMESSAGE
LOONEFORM
LCFORMNAME
OFORMLIST
COUNT
FORMID
WIDTH
HEIGHT
FORMNAME
Collection
WinApiSupport
TCUNIT
TNROUND
CUNIT
NROUND
OFORMLIST
LOADAPIDLLS
HHEAP
HEAPCREATE
English
Metric
Internal
English
Metric
Internal
TCUNIT
CUNIT
NCOEFFICIENT
NINCH2MM
NCM2MM+
HHEAP
HEAPDESTROY
Unable to get printer handle for '
Unable to Enumerate Forms
Unable to Enumerate Forms.
TCPRINTERNAME
TCFORMNAME
LHPRINTER
LLSUCCESS
LNNEEDED
LNNUMBEROFFORMS
LNBUFFER
LCFORMNAME
CPRINTERNAME
CFORMNAME
CLEARERRORS
NFORMNUMBER
OFORMLIST
REMOVE
LNRESULT
OPENPRINTER
CERRORMESSAGE
CAPIERRORMESSAGE
WINAPIERRMSG
GETLASTERROR
ENUMFORMS
HEAPALLOC
HHEAP
LOONEFORM
ONEFORMOBJ
LNPOINTER
FORMID
FORMFLAGS
LONG2NUMFROMBUFFER
FORMNAME
STRZFROMBUFFER
WIDTH
CONVERTFORMDIMENSION
HEIGHT
RIGHT
BOTTOM
MARKSUPPORTEDFORMS
HEAPFREE
CLOSEPRINTER/
TNPOINTER
LONG2NUMFROMBUFFER
NCOEFFICIENT
NROUNDi
DeviceCapabilities failed.
LNCOUNT
LCBUFFERPAPERS
LNINDEX
LCSTR
LNFORMID
LOONEFORM
DEVICECAPABILITIES
CPRINTERNAME
CERRORMESSAGE
CAPIERRORMESSAGE
WINAPIERRMSG
GETLASTERROR
OWAS
SHORT2NUM
OFORMLIST
GETKEY
ISSUPPORTED1
Empty
FormFlags
FormId
FormName
Width
Height
Right
Bottom
IsSupported-
LOONEFORM#
CERRORMESSAGE
CAPIERRORMESSAGE
HeapCreate
WIN32API
HeapAlloc
WIN32API
HeapFree
WIN32API
HeapDestroy
WIN32API
GetLastError
kernel32
HEAPCREATE
WIN32API
HEAPALLOC
HEAPFREE
HEAPDESTROY
GETLASTERROR
KERNEL32W
OpenPrinter
WinSpool.Drv
TCPRINTERNAME
THPRINTER
TCDEFAULT
OPENPRINTER
WINSPOOL
ClosePrinter
WinSpool.Drv
THPRINTER
CLOSEPRINTER
WINSPOOL
EnumForms
winspool.drv
THPRINTER
TNLEVEL
TNFORM
TNBUF
TNNEEDED
TNRETURNED
ENUMFORMS
WINSPOOL
DeviceCapabilities
winspool.drv
PDEVICE
PPORT
FWCAPABILITY
POUTPUT
PDEVMODE
DEVICECAPABILITIES
WINSPOOL
TNNUM
LCSTRING
RTLPL2PSD
TCLONG
LNNUM
RTLS2PLD
TNPOINTER
LNNUM
RTLP2PLD
TCLONG
LNNUM
RTLS2PL
TNPOINTER
LCSTR
LNSTRPOINTER
RTLP2PL
LSTRCPY
TNPOINTER
LCRESULT
LNSTRPOINTER
LNLEN
LONG2NUMFROMBUFFER
LSTRLENW
RTLP2PSZ
TNPOINTER
LCSTR
LNSTRPOINTER
LSTRCPYa
RtlMoveMemory
WIN32APIQ
RtlPL2PS
TCDEST
TNSRC
TNLEN
RTLMOVEMEMORY
WIN32API
RTLPL2PS_
RtlMoveMemory
WIN32APIQ
RtlS2PL
TNDEST
TCSRC
TNLEN
RTLMOVEMEMORY
WIN32API
RTLS2PL_
RtlMoveMemory
WIN32APIQ
RtlP2PL
TNDEST
TNSRC
TNLEN
RTLMOVEMEMORY
WIN32API
RTLP2PL_
RtlMoveMemory
WIN32APIQ
RtlP2PS
TCDEST
TNSRC
TNLEN
RTLMOVEMEMORY
WIN32API
RTLP2PSB
lstrcpy
WIN32API
TCDEST
TNSRC
LSTRCPY
WIN32API7
lstrlenW
WIN32API
TNSRC
LSTRLENW
WIN32API6
lstrlen
WIN32API
TNSRC
LSTRLEN
WIN32API
FormatMessage
kernel32
TNERRORCODE
FORMATMESSAGE
KERNEL32
LCERRBUFFER
LNNEWERR
LNFLAG
LCERRORMESSAGE
09.00.0000.2412
09.00.0000.3504
09.00.0000.5721
09.00.0000.5815
09.00.0000.6303
SP2 HF1
09.00.0000.6602
SP2 HF2
09.00.0000.7423
SP2 HF3
LCVERSION
oFoxyThermForm
oFoxyThermForm
oFoxyThermForm
_Screen.oFoxyThermForm.Thermb
TNPERCENT
TCLABELTEXT
TCTITLETEXT
ADDPROPERTY
OFOXYTHERMFORM
RELEASE
CREATETHERM
LOTHERMFORM
THERMLABEL
CAPTION
THERM
MARQUEE
VALUE
VISIBLE
ATLForm
Therm
ctl32_progressbar
PR_ctl32_progressbar.vcx
ThermLabel
Label
LOFORM
OFOXYTHERMFORM
LNBORDER
LITHERMHEIGHT
LITHERMWIDTH
LITHERMTOP
LITHERMLEFT
SCALEMODE
HEIGHT
HALFHEIGHTCAPTION
WIDTH
AUTOCENTER
BORDERSTYLE
CONTROLBOX
CLOSABLE
MAXBUTTON
MINBUTTON
MOVABLE
ALWAYSONTOP
ALLOWOUTPUT
NEWOBJECT
THERMLABEL
VISIBLE
FONTBOLD
ALIGNMENT
THERM
MARQUEESPEED
MARQUEEANIMATIONSPEED
CAPTIOND
BringWindowToTop
Win32API
ShowWindow
Win32API
GetCurrentThreadId
kernel32
GetWindowThreadProcessId
user32
GetCurrentThreadId
kernel32
AttachThreadInput
user32
GetForegroundWindow
user32
FindWindow
Win32API
TOFORM
BRINGWINDOWTOTOP
WIN32API
SHOWWINDOW
GETCURRENTTHREADID
KERNEL32
GETWINDOWTHREADPROCESSID
USER32
ATTACHTHREADINPUT
GETFOREGROUNDWINDOW
FINDWINDOW
LNHWND
LNFORETHREAD
LNAPPTHREAD
Datasessionv
Fixedv
PreviewHelpera
ERRNOPRINTER
SET FIXED &lcSetFixed.
pr_FRXOutput.Prg
FXLISTENER
PR_ReportListener.vcx
FOXYLISTENER
PR_ReportListener.vcx
_GDIPLUS.VCXC
Classlibv
_GdiPlus.vcx
FOXYLISTENERCC
PR_ReportListener.vcx
_GDIPLUS.VCXC
Classlibv
_GdiPlus.vcx
PROCEDUREv
_oReportOutput("1")b
pr_FRXOutput
Could not find the 'ReportOutput.App' file. This file is needed to have the new features of FoxyPreviewer.C
Please make sure to set the global variable '_REPORTOUTPUT' with the full path of this file
or save it in a folder that your app can reach
FoxyPreviewer not loaded!
cSuccessor
lQuietMode
lShowSearch
lShowClose
lShowSetup
nThermType
lOpenViewer
lPrintVisible
lShowPrintBtn
lShowPageCount
lSaveToFile
_cLanguageFromDBF
_cOrigRepPreview
_cLocalPath
lSendToEmail
lShowMiniatures
lPrinterPref
lSaveAsImage
lSaveAsHTML
lSaveAsMHT
lSaveAsRTF
lSaveAsXLS
lSaveAsPDF
lSaveAsTXT
nCanvasCount
lEmailAuto
cEmailType
cEmailPRG
lShowPrinters
nEmailMode
cSMTPUserName
cSMTPPassword
nSMTPPort
cSMTPServer
lSMTPUseSSL
cEmailTo
cEmailSubject
cEmailBody
cEmailFrom
cEmailBodyFile
cAttachments
cSaveDefName
cEmailCC
cEmailBCC
cEmailReplyTo
cVersion
v2.99 RC 2012.06.20
nVersion
lSilent
nButtonSize
cOutputPath
nPrinterPropType
lDirectPrint
nSearchPages
nZoomLevel
nWindowState
nDockType
nMaxMiniatureDisplay
nShowToolBar
cFormIcon
cTitle
cToolbarTitle
lPrinted-
lEmailed-
lSaved-
cDestFile-
cAdressTable
cAdressSearch
cImgPrint
cImgPrintPref
cImgSave
cImgClose
cImgClose2
cImgEmail
cImgSetup
cImgMiniatures
cImgSearch
cImgSearchAgain
cImgSearchBack
cImgPrintBig
cImgPrintPrefBig
cImgSaveBig
cImgCloseBig
cImgClose2Big
cImgEmailBig
cImgSetupBig
cImgMiniaturesBig
cImgSearchBig
cImgSearchAgainBig
cImgSearchBackBig
lPDFEmbedFonts
lPDFCanPrint
lPDFCanEdit
lPDFCanCopy
lPDFCanAddNotes
lPDFEncryptDocument
lPDFAsImage
cPDFMasterPassword
cPDFUserPassword
cPDFAuthor
cPDFTitle
cPDFSubject
cPDFKeywords
cPDFCreator
lPDFShowErrors
cPDFSymbolFontsList
cPDFDefaultFont
nPDFPageMode
lPDFReplaceFonts
lExpandFields
cPrintJobName
lShowCopies
nCopies
lReadReceipt
lPriority
cEncryptPROCEDURE
cDecryptPROCEDURE
cCryptKey
cExcelDefaultExtension
lExcelConvertToXLS
lExcelRepeatHeaders
lExcelRepeatFooters
lExcelHidePageNo
lExcelAlignLeft
nExcelSaveFormat
cCodePage
lRepeatInPage
cWatermarkImage
nWatermarkType
nWatermarkTransparency
nWatermarkWidthRatio
nWatermarkHeightRatio
_MemberData
_MemberData
<VFPData>
<memberdata name="ofoxypreviewer" type="Property" display="oFoxyPreviewer"/>
</VFPData>
_MemberData
<VFPData>
<memberdata name="lquietmode" type="Property" display="lQuietMode"/>
<memberdata name="lshowsearch" type="Property" display="lShowSearch"/>
<memberdata name="lshowclose" type="Property" display="lShowClose"/>
<memberdata name="lshowsetup" type="Property" display="lShowSetup"/>
<memberdata name="nthermtype" type="Property" display="nThermType"/>
<memberdata name="lopenviewer" type="Property" display="lOpenViewer"/>
<memberdata name="lprintvisible" type="Property" display="lPrintVisible"/>
<memberdata name="lshowprintbtn" type="Property" display="lShowPrintBtn"/>
<memberdata name="lshowpagecount" type="Property" display="lShowPageCount"/>
<memberdata name="lsavetofile" type="Property" display="lSaveToFile"/>
<memberdata name="clanguage" type="Property" display="cLanguage"/>
<memberdata name="lsendtoemail" type="Property" display="lSendToEmail"/>
<memberdata name="lshowminiatures" type="Property" display="lShowMiniatures"/>
<memberdata name="lprinterpref" type="Property" display="lPrinterPref"/>
<memberdata name="lsaveasimage" type="Property" display="lSaveAsImage"/>
<memberdata name="lsaveashtml" type="Property" display="lSaveAsHTML"/>
<memberdata name="lsaveasmht" type="Property" display="lSaveAsMHT"/>
<memberdata name="lsaveasrtf" type="Property" display="lSaveAsRTF"/>
<memberdata name="lsaveasxls" type="Property" display="lSaveAsXLS"/>
<memberdata name="lsaveaspdf" type="Property" display="lSaveAsPDF"/>
<memberdata name="lsaveastxt" type="Property" display="lSaveAsTXT"/>
<memberdata name="ncanvascount" type="Property" display="nCanvasCount"/>
<memberdata name="lemailauto" type="Property" display="lEmailAuto"/>
<memberdata name="cemailprg" type="Property" display="cEmailPRG"/>
<memberdata name="cemailtype" type="Property" display="cEmailType"/>
<memberdata name="cemailbodyfile" type="Property" display="cEmailBodyFile"/>
<memberdata name="lshowprinters" type="Property" display="lShowPrinters"/>
<memberdata name="nemailmode" type="Property" display="nEmailMode"/>
<memberdata name="csmtpusername" type="Property" display="cSMTPUserName"/>
<memberdata name="csmtppassword" type="Property" display="cSMTPPassword"/>
<memberdata name="csavedefname" type="Property" display="cSaveDefName"/>
<memberdata name="nsmtpport" type="Property" display="nSMTPPort"/>
<memberdata name="csmtpserver" type="Property" display="cSMTPServer"/>
<memberdata name="lsmtpusessl" type="Property" display="lSMTPUseSSL"/>
<memberdata name="cemailto" type="Property" display="cEmailTo"/>
<memberdata name="cemailsubject" type="Property" display="cEmailSubject"/>
<memberdata name="cemailbody" type="Property" display="cEmailBody"/>
<memberdata name="cemailfrom" type="Property" display="cEmailFrom"/>
<memberdata name="cemailcc" type="Property" display="cEmailCC"/>
<memberdata name="cemailbcc" type="Property" display="cEmailBCC"/>
<memberdata name="cemailreplyto" type="Property" display="cEmailReplyTo"/>
<memberdata name="cattachments" type="Property" display="cAttachments"/>
<memberdata name="cversion" type="Property" display="cVersion"/>
<memberdata name="nversion" type="Property" display="nVersion"/>
<memberdata name="nbuttonsize" type="Property" display="nButtonSize"/>
<memberdata name="coutputpath" type="Property" display="cOutputPath"/>
<memberdata name="nprinterproptype" type="Property" display="nPrinterPropType"/>
<memberdata name="ldirectprint" type="Property" display="lDirectPrint"/>
<memberdata name="nzoomlevel" type="Property" display="nZoomLevel"/>
<memberdata name="nwindowstate" type="Property" display="nWindowState"/>
<memberdata name="ndocktype" type="Property" display="nDockType"/>
<memberdata name="nmaxminiaturedisplay" type="Property" display="nMaxMiniatureDisplay"/>
<memberdata name="nshowtoolbar" type="Property" display="nShowToolbar"/>
<memberdata name="lprinted" type="Property" display="lPrinted"/>
<memberdata name="lemailed" type="Property" display="lEmailed"/>
<memberdata name="lsaved" type="Property" display="lSaved"/>
<memberdata name="cdestfile" type="Property" display="cDestFile"/>
<memberdata name="cformicon" type="Property" display="cFormIcon"/>
<memberdata name="ctitle" type="Property" display="cTitle"/>
<memberdata name="ctoolbartitle" type="Property" display="cToolbarTitle"/>
<memberdata name="cadresstable" type="Property" display="cAdressTable"/>
<memberdata name="ccodepage" type="Property" display="cCodePage"/>
<memberdata name="cadresssearch" type="Property" display="cAdressSearch"/>
<memberdata name="lrepeatinpage" type="Property" display="lRepeatInPage"/>
<memberdata name="cwatermarkimage" type="Property" display="cWatermarkImage"/>
<memberdata name="nwatermarktype" type="Property" display="nWatermarkType"/>
<memberdata name="nwatermarktransparency" type="Property" display="nWatermarkTransparency"/>
<memberdata name="nwatermarkwidthratio" type="Property" display="nWatermarkWidthRatio"/>
<memberdata name="nwatermarkheightratio" type="Property" display="nWatermarkHeightRatio"/>
<memberdata name="cimgprint" type="Property" display="cImgPrint"/>
<memberdata name="cimgprintpref" type="Property" display="cImgPrintPref"/>
<memberdata name="cimgsave" type="Property" display="cImgSave"/>
<memberdata name="cimgclose" type="Property" display="cImgClose"/>
<memberdata name="cimgclose2" type="Property" display="cImgClose2"/>
<memberdata name="cimgemail" type="Property" display="cImgEmail"/>
<memberdata name="cimgsetup" type="Property" display="cImgSetup"/>
<memberdata name="cimgminiatures" type="Property" display="cImgMiniatures"/>
<memberdata name="cimgsearch" type="Property" display="cImgSearch"/>
<memberdata name="cimgsearchagain" type="Property" display="cImgSearchAgain"/>
<memberdata name="cimgsearchback" type="Property" display="cImgSearchBack"/>
<memberdata name="cimgprintbig" type="Property" display="cImgPrintBig"/>
<memberdata name="cimgprintprefbig" type="Property" display="cImgPrintPrefBig"/>
<memberdata name="cimgsavebig" type="Property" display="cImgSaveBig"/>
<memberdata name="cimgclosebig" type="Property" display="cImgCloseBig"/>
<memberdata name="cimgclose2big" type="Property" display="cImgClose2Big"/>
<memberdata name="cimgemailbig" type="Property" display="cImgEmailBig"/>
<memberdata name="cimgsetupbig" type="Property" display="cImgSetupBig"/>
<memberdata name="cimgminiaturesbig" type="Property" display="cImgMiniaturesBig"/>
<memberdata name="cimgsearchbig" type="Property" display="cImgSearchBig"/>
<memberdata name="cimgsearchagainbig" type="Property" display="cImgSearchAgainBig"/>
<memberdata name="cimgsearchbackbig" type="Property" display="cImgSearchBackBig"/>
<memberdata name="lpdfembedfonts" type="Property" display="lPDFEmbedFonts"/>
<memberdata name="lpdfcanprint" type="Property" display="lPDFCanPrint"/>
<memberdata name="lpdfcanedit" type="Property" display="lPDFCanEdit"/>
<memberdata name="lpdfcancopy" type="Property" display="lPDFCanCopy"/>
<memberdata name="lpdfcanaddnotes" type="Property" display="lPDFCanAddNotes"/>
<memberdata name="lpdfencryptdocument" type="Property" display="lPDFEncryptDocument"/>
<memberdata name="lpdfasimage" type="Property" display="lPDFAsImage"/>
<memberdata name="cpdfmasterpassword" type="Property" display="cPDFMasterPassword"/>
<memberdata name="cpdfuserpassword" type="Property" display="cPDFUserPassword"/>
<memberdata name="cpdfauthor" type="Property" display="cPDFAuthor"/>
<memberdata name="cpdftitle" type="Property" display="cPDFTitle"/>
<memberdata name="cpdfsubject" type="Property" display="cPDFSubject"/>
<memberdata name="cpdfkeywords" type="Property" display="cPDFKeywords"/>
<memberdata name="cpdfcreator" type="Property" display="cPDFCreator"/>
<memberdata name="lpdfshowerrors" type="Property" display="lPDFShowErrors"/>
<memberdata name="lpdfreplacefonts" type="Property" display="lPDFReplaceFonts"/>
<memberdata name="cpdfsymbolfontslist"  type="Property" display="cPDFSymbolFontsList"/>
<memberdata name="cpdfdefaultfont" type="Property" display="cPDFDefaultFont"/>
<memberdata name="npdfpagemode" type="Property" display="nPDFPageMode"/>
<memberdata name="osettingsdlg" type="Property" display="oSettingsDlg"/>
<memberdata name="lexpandfields" type="Property" display="lExpandFields"/>
<memberdata name="cprintjobname" type="Property" display="cPrintJobName"/>
<memberdata name="ncopies" type="Property" display="nCopies"/>
<memberdata name="lshowcopies" type="Property" display="lShowCopies"/>
<memberdata name="lreadreceipt" type="Property" display="lReadReceipt"/>
<memberdata name="lpriority" type="Property" display="lPriority"/>
<memberdata name="cexceldefaultextension" type="Property" display="cExcelDefaultExtension"/>
<memberdata name="lexcelconverttoxls" type="Property" display="lExcelConvertToXLS"/>
<memberdata name="lexcelrepeatheaders" type="Property" display="lExcelRepeatHeaders"/>
<memberdata name="lexcelrepeatfooters" type="Property" display="lExcelRepeatFooters"/>
<memberdata name="lexcelhidepageno" type="Property" display="lExcelHidePageNo"/>
<memberdata name="lexcelalignleft" type="Property" display="lExcelAlignLeft"/>
<memberdata name="nexcelsaveformat" type="Property" display="nExcelSaveFormat"/>
</VFPData>
_InitStatusTextC
INITSTATUS
_PrepassStatusTextC
PREPSTATUS
_RunStatusTextC
RUNSTATUS
_SecondsTextC
SECONDS
_CancelInstrTextC
CANCELINST
_CancelQueryTextC
CANCELQUER
_ReportIncompleteTextC
REPINCOMPL
_AttentionTextC
ATTENTION
CCODEPAGE
_oLang
_cLangLoaded
ENGLISH
_oDestScreen
Empty
lEnableLanguagea
lEnableTabGenerala
lEnableTabControlsa
lEnableTabOutputa
lEnableTabEmaila
lEnableTabPDFa
lEnableTabXLSa
lEnableChkPrintPrefa
lEnableCmbPrintPrefTypea
lEnableChkCopiesa
lEnableChkSavetoFilea
lEnableChkPrintersa
lEnableChkEmaila
lEnableChkMiniaturesa
lEnableChkSearcha
lEnableChkSettingsa
lEnableChkSaveAsImagea
lEnableChkSaveAsPDFa
lEnableChkSaveAsRTFa
lEnableChkSaveAsHTMLa
lEnableChkSaveAsMHTa
lEnableChkSaveAsXLSa
lEnableChkSaveAsTXTa
lEnableCmbEmailTypea
lEnableCmbAttachmentTypea
lEnableChkEmbedFontsa
lEnableChkPDFasImagea
lShowLanguagea
lShowTabGenerala
lShowTabControlsa
lShowTabOutputa
lShowTabEmaila
lShowTabPDFa
lShowTabXLSa
lShowTabXLSa
oSettingsDlg
oFoxyPreviewer
oFoxyPreviewer
oFoxyPreviewer
_oReportOutput("1")b
Could not load the FOXYPREVIEWER report factory
Error
SET FIXED &lcSetFixed.
_oReportOutput("1")
FOXYLISTENER
_oReportOutput("1")
FOXYLISTENER
Could not load the FOXYPREVIEWER report factory (2)C
Please check the version of your 'REPORTOUTPUT.APP' file, and make sure to be using the latest version released in VFP9 SP2.
Replace your current version with the new one.
Error
SET FIXED &lcSetFixed.
_oReportOutput("10")b
PdfListener
PR_PDFX.vcx
PdfListener
PR_PDFX.vcx
PdfListenerCC
PR_PDFX.vcx
_oReportOutput("11")b
PdfasImageListener
PR_PDFX.vcx
PdfasImageListener
PR_PDFX.vcx
PdfasImageListenerCC
PR_PDFX.vcx
_oReportOutput("12")b
PdfasImageListener
PR_PDFX.vcx
RTFreportlistener
PR_RTFListener
RTFreportlistenerCC
PR_RTFListener
_oReportOutput("13")b
REPORTLISTENER
ExcelListener
pr_ExcelListener.vcx
ExcelListenerCC
pr_ExcelListener.vcx
Sheet
_oReportOutput("14")b
MSXML2.XSLTEMPLATE.4.0
REPORTLISTENER
pr_HTMLListener
pr_reportlistener.vcx
pr_HTMLListenerCC
pr_ReportListener.vcx
_oReportOutput("15")b
REPORTLISTENER
pr_HTMLListener15
pr_reportlistener.vcx
pr_HTMLListener15CC
pr_ReportListener.vcx
_oReportOutput("0")b
FXLISTENER
PR_ReportListener.vcx
FOXYLISTENER
PR_ReportListener.vcx
FOXYLISTENERCC
PR_ReportListener.vcx
TCSYS16
TCLOCALPATH
LNSESSION
LCSETFIXED
LOHELPER
LEXTENDED
GAPRINTERS
SETERROR
GETLOC
LOLISTENER
FXFEEDBACKCLASS
_CTHERMCLASS
QUIETMODE
LQUIETMODE
_OREPORTOUTPUT
REMOVE
LCREPORTOUTPUT
LOSETTINGS
LCDEFAULTSETFILE
CLANGUAGE
STARTMODE
ADDPROPERTY
_MEMBERDATA
CCODEPAGE
LOSETDLG
OFOXYPREVIEWER
LOPREVLISTENER
CLASS
LOPDFLISTENER
LOBJTYPEMODE
LOPDFLISTENER2
LISTENERTYPE
LORTFLISTENER
LOXLSLISTENER
LOUTPUTTOCURSOR
CWORKSHEETNAME
LCONVERTTOXLS
LEXCELCONVERTTOXLS
LREPEATHEADERS
LEXCELREPEATHEADERS
LREPEATFOOTERS
LEXCELREPEATFOOTERS
LHIDEPAGENO
LEXCELHIDEPAGENO
LALIGNLEFT
LEXCELALIGNLEFT
LLXLSERROR
LOTESTXML4
LOHTMLLISTENER$
COPYIMAGEFILESTOEXTERNALFILELOCATION
LOPRINTLISTENER
PROCEDUREvf
FOXYPREVIEWER.
LCPROC
LNPROCS
LCCURPROC
PR_REPORTLISTENERCC
Classlibvf
PR_REPORTLISTENER
_GDIPLUSCC
Classlibvf
_GDIPLUS
PR_REPORTLISTENER
_GDIPLUSl
CDO.Message
file://
Source file does not exist!
Error
CDO.Configuration
CDO.Message
TCSOURCE
TCDESTINATION
LCFILENAME
LOSTREAM
LOMSG
LOCONFIG
CONFIGURATION
CREATEMHTMLBODY
GETSTREAM
SAVETOFILEg
_ReportOutputConfig
TALKv
DATASESSIONv
TALKv
ReportListener
OutputConfig
 AND (C
LOCATE FOR ObjType = 100 AND  (ObjCode = m.iType)   &cFilter. AND (NOT DELETED())
Exception
Configuration table specified to
VFP Report Output Application
is not found or is in the wrong format.
OutputConfig
ListenerType
PUBLIC &tvReference.
IF PEMSTATUS(&tvReference.,"ListenerType",5) AND  UPPER(m.oTemp.BaseClass) == UPPER(m.oTemp.Class)
&tvReference..ListenerType = m.iType
ListenerType
TVTYPE
TVREFERENCE
TVUNLOAD
OTEMP
ITYPE
IINDEX
CTYPE
CCONFIGTABLE
LSUCCESS
LSETTALKBACKON
LSAFETY
CFILTER
CCLASS
CMODULE
OCONFIG
OERROR
LSTRINGVAR
LOBJECTMEMBER
IPARAMS
IUNLOAD
ISELECT
ISESSION
LSETTALKBACKONDEFAULTSESSION
VRETURN
EXECUTE
REPORTOUTPUTCONFIG
REPORTOUTPUTCLEANUP
UNLOADLISTENER
REPORTOUTPUTDECLAREREFERENCE
CHECKPUBLICLISTENERCOLLECTION
_OREPORTOUTPUT
TESTLISTENERREFERENCE
GETCONFIGOBJECT
GETCONFIGTABLE
OUTPUTCONFIG
VERIFYCONFIGTABLE
OBJTYPE
OBJCODE
OBJINFO
OBJNAME
OBJVALUE
GETSUPPORTEDLISTENERINFO
MESSAGE
HANDLEERROR
BASECLASS
CLASS
LISTENERTYPE
OUTPUTTYPE
TISELECT
TLRESETTALKDEFAULTSESSION
TISESSION
TLRESETTALK
EXECUTE
TOREF!
PR_FXListener
PR_ReportListener.VCX
PR_FXListener
PR_ReportListener.VCX
ReportListener
PR_HTMLListener
PR_ReportListener.VCX
PR_XMLListener
PR_ReportListener.VCX
PR_DebugListener
PR_ReportListener.VCX
TITYPE
TCCLASS
TCLIB
TCMODULE
DATASESSIONv
session
SAFETYv
OutputConfigCC
DEBUGLISTENER
PR_ReportListener.VCX
DebugListener
PR_ReportListener.VCX
Output Configuration Table
Output Configuration Table
TNTYPE
TVREFERENCE
TVUNLOAD
ISESSION
OSESSION
OERROR
OCONFIG
LSUCCESS
CTYPE
IINDEX
CHECKPUBLICLISTENERCOLLECTION
_OREPORTOUTPUT
REMOVE
LSAFETY
EXECUTE
DATASESSIONID
GETCONFIGOBJECT
CREATECONFIGTABLE
OBJTYPE
OBJCODE
OBJNAME
OBJVALUE
GETCONFIGTABLE
HANDLEERROR
PR_XMLListener
PR_ReportListener.VCX
PR_UtilityReportListener
PR_ReportListener.VCX
VFP Report Output Application
TOCFG
LCMODULE
QUIETMODE
APPNAME9
m.tvReferenceb
TIPARAMS
TVREFERENCE
TLOBJECTMEMBER
TLSTRINGVAR
IDOTPOS
Collectionf
TITYPE
LUNLOAD
CTYPE
_OREPORTOUTPUT
CLASS
IINDEX
COUNT
GETKEY
REMOVE
An unknown error has occurred in
VFP Report Output Application
ERRORNO
MESSAGE
DETAILS
Collectionf
Collection
_oReportOutput
TCTYPE
TIINDEX
IINDEX
_OREPORTOUTPUT
CLASS
COUNT
GETKEY
TISESSION
TCLANGUAGE
PR_SETLANGUAGE$
ERRSENDMAI
MSGNOTSENT
ERROR
Error sending emailC
Message was not sent
Error
TNMAPIERRNO
LCMESSAGE
LCMAPIMSG
PR_MAPI_GETMESSAGETEXT
_GOHELPER
GETLOCx
One or more files could not be located. No message was sent.
An attachment could not be written to a temporary file. Check directory permissions.
One or more unspecified errors occurred while sending the message. It is not known if the message was sent.
There was insufficient memory to proceed.
There was no default logon, and the user failed to log on successfully when the logon dialog box was displayed. No message was sent.
The user canceled one of the dialog boxes. No message was sent.
The user had too many sessions open simultaneously. No session handle was returned.
A recipient matched more than one of the recipient descriptor structures and MAPI_DIALOG was not set. No message was sent.
The specified attachment was not found. No message was sent.
The type of a recipient was not MAPI_TO, MAPI_CC, or MAPI_BCC. No message was sent.
One or more recipients were invalid or did not resolve to any address.
The text in the message was too large. No message was sent.
There were too many file attachments. No message was sent.
There were too many recipients. No message was sent.
A recipient did not appear in the address list. No message was sent.
TNERR
LCRET
lPrinted_Assign%
lSaved_Assign
lEmailed_Assign
cDestFile_Assign
DoEncrypt
DoDecrypt
OpenFile
UpdateProperties
UpdateSettings
nThermType_AssignK(
cLanguage_Assign
SetLanguage
SetError
GetLocQ.
DESTROY
CloseSheets
AddReport
CallReportJ6
RestorePrinterA=
RunReport
DoOutputkF
SendReportToEmail
ReportReleased|b
ClearCache1d
SetPrinter
STB_Handler
AddBarsToMenu
CheckHelperClass}~
ActionShowToolbar4
actionToolbarVisibilityx
ActionGotoPage
DoCustomPrintZ
DialogPrinting
ActionClose^
PreviewUnload
PreviewUnload2
HideFormM
RestoreParent
ActionPrint
ActionPrintExg
SizePages
DoSetup
SetImagesH
RestoreFromResource_Bind"
HandledError
SynchPageNo:
RefreshToolbarf
UpdateToolbar
ParentClosed]
DoProof
CmdSearchVisibility
DoSearch
DoSearchAgain
DoSearchBack}
HandleFind
ClearBox
ScrollToObject
HighLightObject)
RenderPageL
PAINTF
DoSaveM
DoSaveType
DoMakePDFOffline
DoMakeRTFOffline
DoMakeXLSOffline
DoMakeHTMLOffline_old-
DoMakeHTMLOfflineF
DoSendEmail
HandledKeyPress
RELEASE
DESTROY
AdjustControls
Enabled_Assign"
INTERACTIVECHANGE
CLICK
INIT"
DROPDOWN
VALID
CLICK
CLICKg
CLICK!
INITx
CLICK
MOUSEENTER
MOUSELEAVEG
INITK
RIGHTCLICK
CLICK
CLICKK
AdjustControls
Enabled_Assign
CLICK7
CLICK
INITU!
CLICK
INIT "
VALID
CLICK
INIT:'
INITW*
spnpageno.LOSTFOCUS
cmdok.CLICK
cmdcancel.CLICK
Init3,
MOUSELEAVE
MOUSEENTER
CLICK
CLICK
REFRESH//
RefreshPageBtnm6
SetReport
RESIZE*7
ACTIVATE
QUERYUNLOAD
nPageSet_assign,8
SetProofCaptionM:
ReportListener_Assigns;
nMaxMiniatureItem_Assign
DoResizeProofSheet9<
PAINT
SHOW1A
DESTROY
PR_ScreenToClienteF
PR_GetCursorPos
PR_PathFileExists
PR_GetFocus    H
PR_GetWindowTextbH
PR_GetActiveWindow
PR_MAPISendDocuments
CleanClauses
IsDotMatrix9K
PR_DeviceCapabilities,L
PR_MessageBeep-M
GetParentWindow
GetWinText
PR_SendMailEx
getNewSession
num2dwordRU
INIT}U
DESTROY
getAddr
getValue)V
getAllocSize!W
setValue
ReleaseString
DeclMapiRY
SENDj[
ClearErrors
GetErrorCount
GetError"d
SetConfiguration
AddError{i
AddOneError
ERRORbk
SetHeader
ClearTherm
ShowTherm
BEFOREREPORT
Report2Pic
SendCDOMail!v
SetPrinterPropsN
xfcGdipDrawString
xfcGdipMeasureString
xfcGdipRestoreGraphicsE
xfcGdipSaveGraphics
xfcGdipSetPixelOffsetMode
xfcGdipSetRenderingOrigin
xfcGdipSetSmoothingModeQ
xfcGdipSetStringFormatAlign
xfcGdipSetStringFormatFlags
xfcGdipSetTextRenderingHint
xfcGdipSetWorldTransform
xfcGdipStringFormatGetGenericTypographicN
xfcGdipTransformPointsC
xfcGdipTransformPointsI@
xfcGdipTranslateClipA
xfcGdipCloneStringFormat
xfcGdipCreateStringFormat
xfcGdipDeleteStringFormat
xfcGdipGetStringFormatAlignr
xfcGdipGetStringFormatDigitSubstitutionF
xfcGdipGetStringFormatFlagsf
xfcGdipGetStringFormatHotkeyPrefix:
xfcGdipGetStringFormatLineAlign-
xfcGdipGetStringFormatTabStopCount
xfcGdipGetStringFormatTabStops
xfcGdipGetStringFormatTrimming
xfcGdipSetStringFormatAlign
xfcGdipSetStringFormatDigitSubstitution
xfcGdipSetStringFormatFlags
xfcGdipSetStringFormatHotkeyPrefix
xfcGdipSetStringFormatLineAlign
xfcGdipSetStringFormatMeasurableCharacterRanges
xfcGdipSetStringFormatTabStops
xfcGdipSetStringFormatTrimming
xfcGdipStringFormatGetGenericDefault
xfcGdipStringFormatGetGenericTypographic
xfcCreateDC
xfcDeleteDCS
xfcStartPage
xfcEndPage1
xfcStartDoc
xfcEndDoc
xfcGetDeviceCapsv
GetCurPath
PR_SetLanguage
PR_GetLoc
GetInnerTextFromHTML(
GetFormDimensions
cUnit_Assign
Destroy>
GetFormList
ConvertFormDimension.
MarkSupportedForms
OneFormObj
ClearErrors)
LoadApiDllsw
OpenPrinters
ClosePrinter
EnumFormsz
DeviceCapabilitiesK
Num2Long
Long2Num
Long2NumFromBuffer
Short2NumD
StrZFromBuffer
StrZFromBufferW\
StrZCopy_
RtlPL2PS
RtlS2PL
RtlP2PL
RtlP2PS
lstrcpyU
lstrlenW
lstrlen
WinApiErrMsgg
GetVfpVersion
DoFoxyTherm:
CreateTherm
BringWindowToFront1
LoadF
InitY
Destroy"4
ClearSetProc>4
ClearSetClassLib,5
ToMHTML
PR_FRXOUTPUT
ReportOutputCleanup
TestListenerReference
GetSupportedListenerInfo
ReportOutputConfig>J
GetConfigObject
ReportOutputDeclareReference
UnloadListenerWT
HandleError
CheckPublicListenerCollection
Execute
cLanguage_Assign
PR_MAPIShowMessage
PR_MAPI_GetMessageText
Printer
FOXYLISTENER
wwrite.ico
ENGLISH
Printer
v2.99 RC 2012.06.20
FOXYTHERM
?GotData?9FoxIt!!!
PDFx / FoxyPreviewer
Helvetica
CPRINTERNAME
LSAVETOFILE
LSENDTOEMAIL
LPRINTVISIBLE
LSHOWCOPIES
LSHOWMINIATURES
LSHOWCLOSE
LSHOWPRINTBTN
LSHOWPAGECOUNT
LPRINTERPREF
LSAVEASIMAGE
LSAVEASHTML
LSAVEASRTF
LSAVEASXLS
LSAVEASPDF
LSAVEASTXT
LSAVEASMHT
LQUIETMODE
CDESTFILE
LPRINTED
LSAVED
LEMAILED
NPAGETOTAL
NCOPIES
CTITLE
CTOOLBARTITLE
OLISTENER
CDEFAULTLISTENER
CSUCCESSOR
NCANVASCOUNT
NZOOMLEVEL
NWINDOWSTATE
NDOCKTYPE
CFORMICON
LUSELISTENER
LEMAILAUTO
CEMAILTYPE
CEMAILPRG
CSAVEDEFNAME
CSMTPSERVER
NSMTPPORT
LSMTPUSESSL
CSMTPUSERNAME
CSMTPPASSWORD
CEMAILTO
CEMAILSUBJECT
CEMAILBODY
CEMAILFROM
CEMAILCC
CEMAILBCC
CEMAILREPLYTO
LAUTOSENDMAIL
NBUTTONSIZE
CCODEPAGE
LPDFASIMAGE
NMAXMINIATUREDISPLAY
CLANGUAGE
NSHOWTOOLBAR
LSHOWSETUP
LSHOWPRINTERS
LSHOWSEARCH
LSILENT
CERRORS
LEXTENDED
_CLAUSENRANGEFROM
_CLAUSENRANGETO
_CLAUSENPRINTRANGEFROM
_CLAUSENPRINTRANGETO
_CLAUSELSUMMARY
_CLAUSECHEADING
_CFRXNAME
_CFRXFULLNAME
_OREPORTS
_OCLAUSES
_OALIASES
_ONAMES
_OPROOFSHEET
_OSETTINGSSHEET
_OEMAILSHEET
_CORIGINALPRINTER
_LSENDTOPRINTER
_LNOWAIT
_OLDREPORTOUTPUT
_OEXHANDLER
_OCALLER
_OPARENTFORM
_DE_NAME
_OREPORT
_LSENDINGEMAIL
_CDEFAULTFOLDER
_LISDOTMATRIX
_OLANG
_NBTSIZE
_ALANGUAGES
_ALANGLOCAL
_LANGINDEX
COUTPUTPATH
_COUTPUTALIAS
_CTEXTTOFIND
_NINDEX
_LCANSEARCH
_LSHOWSEARCHAGAIN
NPRINTERPROPTYPE
LDIRECTPRINT
_TOPFORM
NVERSION
CVERSION
NSEARCHPAGES
_CTHERMCLASS
NTHERMTYPE
CDECRYPTPROCEDURE
CENCRYPTPROCEDURE
CCRYPTKEY
_CATTACHMENT
CATTACHMENTS
LREADRECEIPT
LPRIORITY
NEMAILMODE
CEMAILBODYFILE
LPDFEMBEDFONTS
LPDFCANPRINT
LPDFCANEDIT
LPDFCANCOPY
LPDFCANADDNOTES
LPDFENCRYPTDOCUMENT
CPDFMASTERPASSWORD
CPDFUSERPASSWORD
LOPENVIEWER
NPDFPAGEMODE
LPDFSHOWERRORS
CPDFSYMBOLFONTSLIST
CPDFAUTHOR
CPDFTITLE
CPDFSUBJECT
CPDFKEYWORDS
CPDFCREATOR
CPDFDEFAULTFONT
LPDFREPLACEFONTS
CADRESSTABLE
CADRESSSEARCH
LEXCELCONVERTTOXLS
LEXCELREPEATHEADERS
LEXCELREPEATFOOTERS
LEXCELHIDEPAGENO
LEXCELALIGNLEFT
NEXCELSAVEFORMAT
_SETUDFPARMS
CIMGPRINT
CIMGPRINTPREF
CIMGSAVE
CIMGCLOSE
CIMGCLOSE2
CIMGEMAIL
CIMGSETUP
CIMGMINIATURES
CIMGSEARCH
CIMGSEARCHAGAIN
CIMGSEARCHBACK
CIMGPRINTBIG
CIMGPRINTPREFBIG
CIMGSAVEBIG
CIMGCLOSEBIG
CIMGCLOSE2BIG
CIMGEMAILBIG
CIMGSETUPBIG
CIMGMINIATURESBIG
CIMGSEARCHBIG
CIMGSEARCHAGAINBIG
CIMGSEARCHBACKBIG
_SETTINGSFILE
_LALREADYOPENED
_SYS16
_CLOCALPATH
_CORIGREPPREVIEW
_CLANGLOADED
_PREVIEWVERSION
OSETTINGSDLG
LEXPANDFIELDS
CPRINTJOBNAME
CEXCELDEFAULTEXTENSION
_INITSTATUSTEXT
_PREPASSSTATUSTEXT
_RUNSTATUSTEXT
_SECONDSTEXT
_CANCELINSTRTEXT
_CANCELQUERYTEXT
_REPORTINCOMPLETETEXT
_ATTENTIONTEXT
LREPEATINPAGE
CWATERMARKIMAGE
NWATERMARKTYPE
NWATERMARKTRANSPARENCY
NWATERMARKWIDTHRATIO
NWATERMARKHEIGHTRATIO
pr_previous.bmp
pr_next.bmp
pr_top.bmp
pr_bottom.bmp
pr_Locate.bmp
pr_Print.bmp
pr_PrintPref.bmp
pr_gotopage.bmp
pr_1page.bmp
pr_2page.bmp
pr_4page.bmp
pr_close.bmp
pr_close2.bmp
pr_Save.bmp
pr_Mail.bmp
pr_Gear.bmp
pr_Search.bmp
pr_SearchAgain.bmp
pr_SearchBack.bmp
PREVIEWFORM
LHIGHLIGHTTEXT
_CREATINGCANVASES
IMGBTN_PREV
IMGBTN_NEXT
IMGBTN_TOP
IMGBTN_BOTT
IMGBTN_MINI
IMGBTN_PRINT
IMGBTN_PRINTPREF
IMGBTN_GOTOPG
IMGBTN_1PG
IMGBTN_2PG
IMGBTN_4PG
IMGBTN_CLOSE
IMGBTN_CLOSE2
IMGBTN_SAVE
IMGBTN_EMAIL
IMGBTN_SETUP
IMGBTN_SEARCH
IMGBTN_SEARCHAGAIN
IMGBTN_SEARCHBACK9
WIDTH
BORDERWIDTH
HEIGHT
VISIBLEA
CAPTION
WIDTH
_GOHELPER
_NBTSIZE
HEIGHT
SPECIALEFFECTx
BACKSTYLE
BORDERWIDTH
HEIGHT
WIDTH
VISIBLE
SPNCOPIES1
SPNCOPIES
LBLCOPIES1
LBLCOPIES
WIDTH
HEIGHT
SPECIALEFFECT
INCREMENT
SPINNERHIGHVALUE
SPINNERLOWVALUE
KEYBOARDHIGHVALUE
KEYBOARDLOWVALUE
VISIBLE3
AUTOSIZE
BACKSTYLE
VISIBLE:
pr_Save.bmp
PICTURE
VISIBLEI
HEIGHT
WIDTH
VISIBLE
NINDEX?
pr_PrintPref.bmp
PICTURE
VISIBLE:
pr_Gear.bmp
PICTURE
VISIBLE:
pr_Mail.bmp
PICTURE
VISIBLEO
pr_close.bmp
PICTURE
VISIBLEO
pr_Print.bmp
PICTURE
VISIBLE>
pr_gotopage.bmp
PICTURE
VISIBLEz
BACKSTYLE
BORDERWIDTH
HEIGHT
WIDTH
VISIBLE
CMDSEARCH1
CMDSEARCH
CMDSEARCHAGAIN1
CMDSEARCHAGAIN
CMDSEARCHBACK1
CMDSEARCHBACK<
pr_Search.bmp
PICTURE
VISIBLEA
pr_SearchAgain.bmp
PICTURE
VISIBLE@
pr_SearchBack.bmp
PICTURE
VISIBLE
220,140
WIDTH
COLUMNCOUNT
COLUMNLINES
ROWSOURCETYPE
COLUMNWIDTHS
STYLE
VISIBLE
_CORIGINALPRINTER<
pr_Locate.bmp
PICTURE
VISIBLE
BACKSTYLE
BORDERWIDTH
frxgotopageform
spnPageno
lblCaption
cmdOK
cmdCancel
DESKTOP
HEIGHT
WIDTH
SHOWWINDOW
DOCREATE
AUTOCENTER
BORDERSTYLE
CLOSABLE
MAXBUTTON
MINBUTTON
ALWAYSONTOP
ALLOWOUTPUT
PAGENO
PAGETOTAL
OPARENTFORM
SHAPE
LEFT
BACKSTYLE
ZORDERSET
STYLE
SPNPAGENO
SPINNER
INPUTMASK
LBLCAPTION
LABEL
AUTOSIZE
CMDOK
CMDREPORT
DEFAULT
SPECIALEFFECT
CMDCANCEL
CANCEL/
wwrite.ico
SHOWTIPS_
proofshape
HEIGHT
WIDTH
PAGENO
NAMEU
HEIGHT
_GOHELPER
_NBTSIZE
WIDTH
CAPTION
CTYPE
proofsheet
HEIGHT
WIDTH
SCROLLBARS
DOCREATE
AUTOCENTER
SHOWWINDOW
DESKTOP
CURRENTPAGE
REPORTLISTENER
LSTARTED
NPAGES
LPAINTED
NCURRSHAPE
NPAGESET
LSHOWDONE
LINACTIVE
NOTHERTHENPROOFOBJ
NMAXMINIATUREITEM
OLDESCFUNCTIONP
VFP CDO 2000(CDOSYS) mailer Ver 1.1 2009
AERRORS
NERRORCOUNT
CXMAILER
CFROM
CREPLYTO
CATTACHMENT
CSUBJECT
CHTMLBODY
CTEXTBODY
CHTMLBODYURL
CCHARSET
CSERVER
NSERVERPORT
LUSESSL
NCONNECTIONTIMEOUT
NAUTHENTICATE
CUSERNAME
CPASSWORD
LURLGETLATESTVERSION
LREADRECEIPT
LPRIORITY
OTHERMFORM
SHOWWINDOW'
CDESTFILE
LISTENERTYPE%
Internal
ffffff9@
HHEAP
NINCH2MM
NCM2MM
NCOEFFICIENT
CPRINTERNAME
CUNIT
NROUND
CAPIERRORMESSAGE
CERRORMESSAGE
OFORMLIST
OWAS
CFORMNAME
NFORMNUMBERI
SHOWWINDOW
SHOWINTASKBARD
DATASESSION
VISIBLE
ALLOWOUTPUT
CLANGUAGE
PreviewHelper
CUSTOM)y
ExtensionHandler
CUSTOM1
BoxLine
Line\
cmdReport
COMMANDBUTTON
cntCopies
CONTAINER?
spnCopies
SPINNER
lblCopies
LABEL!
cmdSave
cmdReport{
cmbSave
COMBOBOX
cmdPrinterProps
cmdReport8
cmdSetup
cmdReport
cmdEmail
cmdReport
cmdExit
cmdReport-
cmdPrintEx
cmdReport
cmdGotoEx
cmdReport
cntSearch
CONTAINERK
cmdSearch
cmdReportP
cmdSearchAgain
cmdReport
cmdSearchBack
cmdReport
cmbPrinters
COMBOBOXO
cmdProof
cmdReport6
cntCanvas
Container
CustomFrxGotoPageForm
frmReport
frmReport
proofshape
SHAPE2
PageSetBtn
COMMANDBUTTON
proofsheet
frmReport?
PChar
CUSTOM
cdo2000
CUSTOM
ITLFForm
FormC
ExportListener
REPORTLISTENERc
EnumPrinterForms
Custom
WinApiSupport
Custom^
ATLForm
FoxyInitForm
CustomP
Customa
EXCEPTION
OBJECT
ENDTEXT
LPARAMETERS oFoxcode
LOCAL lcPurpose
IF oFoxcode.Location = 0
   RETURN "FoxyPreview"
ENDIF
oFoxcode.valuetype = "V"
<<lcText>> TO lcScript TEXTMERGE NOSHOW
**********************************************************************
* FoxyPreview sample script
SET PROCEDURE TO FoxyPreviewer.prg ADDITIVE
LOCAL loReport AS ReportHelper OF FoxyPreviewer.prg
loReport = CREATEOBJECT("PreviewHelper")
WITH loReport as ReportHelper
    * Add the FRX and clauses here
    .AddReport(_Samples + "\Solution\Reports\colors.frx")
*    .AddReport(_Samples + "\Solution\Reports\wrapping.frx", "NODIALOG FOR title = [S]")
    * Optional available parameters
    .cDestFile       = ""  && the destination file (image, htm, pdf, etc)
            && if using this property, the preview window will not open, and the
            && output file will be automatically generated
    .cTitle = "Report custom title" && The preview window title
    .lSendToEmail     = .T. && adds the send to email button
    .lSaveToFile      = .T. && adds the save to file button
    .lShowCopies      = .T. && shows the copies spinner
    .lShowMiniatures  = .T. && shows the miniatures page
    .lShowSearch      = .T. && shows the search buttons
    .nCopies          = 3 && The quantity of copies to be printed
    .lPrintVisible    = .T. && shows the print button in the toolbar
    .lPrinterPref     = .T. && shows the Printer preferences button
    .nShowToolBar = 1 && 1 = Visible (default), 2 = Invisible, 3 = Use resource
    .lShowSetup  = .T.
    .lShowPrinters  = .T. && determines if the available printers combo will be shown
    * Output types allowed in the "Save as..." button from the toolbar
    .lSaveAsImage        = .T.
    .lSaveAsHTML        = .T.
    .lSaveAsRTF            = .T.
    .lSaveAsXLS            = .T.
    .lSaveAsPDF            = .T.
    .lSaveAsTXT            = .T.
    .nCanvasCount     = 1 && initial nr of pages rendered on the preview form.
            && Valid values are 1 (default), 2, or 4.
    .nZoomLevel        = 5 && initial zoom level of the preview window. Possible values are:
            && 1-10%, 2-25%, 3-50%, 4-75%, 5-100% default, 6-150% ;
            && 7-200%, 8-300%, 9-500%, 10-whole page
    .nDockType        = .F. && Default = False - means to keep the current dock settings from the resource
            *
1 Undocks the toolbar or form.
            *     0 Positions the toolbar or form at the top of the main Visual FoxPro window.
            *     1 Positions the toolbar or form at the left side of the main Visual FoxPro window.
            *     2 Positions the toolbar or form at the right side of the main Visual FoxPro window.
            *     3 Positions the toolbar or form at the bottom of the main Visual FoxPro window.
    .cFormIcon = "" && the icon used in the dialogs
    .lUseListener = .T. && Determines if ReportBehavior80 will be used for printing (dotmatrix)
    .cLanguage = "SPANISH"
    .nButtonSize   = 1 && 1=16x16 pixels (default), 2=32x32 pixels
    * PDF options
    .lPDFasImage     = .F.
    .nPDFPageMode = 0 && Default = 0, 0 = Normal view, 1 = Show the outlines pane, 2 = Show the thumbnails pane
    * Email options
    .lEmailAuto = .T.         && Automatically generates the report output file
    .cEmailType = "PDF"         && The file type to be used in Emails (PDF, RTF, HTML, XML or XLS)
    .cEmailPRG  = ""
    .nEmailMode = 1          && 1 = MAPI, 2 = CDOSYS, 3 = Custom procedure
    .cSMTPServer   = ""
    .nSMTPPort     = 25
    .lSMTPUseSSL   = .F.
    .cSMTPUserName = ""
    .cSMTPPassword = ""
    .cEmailTo      = ""
    .cEmailSubject = ""
    .cEmailBody    = ""
    .cEmailFrom    = ""
    .cEmailCC         = ""
    .cEmailBCC         = ""
    .cEmailReplyTo    = ""
    .lAutoSendMail= .F.        && Send an email automatically when processing the report
    * Execute the report preview
    .RunReport()
    MESSAGEBOX("Report was " + IIF(.lPrinted, "", "NOT ") + "printed !",64, "Attention !")
    * Check also .lSaved and .lEmailed
ENDWITH
loReport = NULL
RELEASE loReport
**********************************************************************
<<lcEndText>>
RETURN lcScript
FoxyPreview
FOXYPREVIEW
LNSELECT
LOEXC
LCFOXCODE
LCSYSTEMFOXCODE
LODATA
LCTEXT
LCENDTEXT
LCSCRIPT
ABBREV
aWM_J6_K8_L9_M:_M;_M<^L8\^`


u5s5s-3-3m
V
^[
AAx;<x;<r99n67
D$G2!
91r99
q[KG<4
=5x;<
G<4G<4
B<}>>
q[Kq[Kq[Kq[Kq[Kq[KvbR}j[
R?g33
opBM6
'Cv%H
\deDl
???%%%%%%%%%%%%%%%%%%%%%%%%
xuuuss
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
bH4bH4bH4bH4bH4bH4bH4bH4bH4bH4bH4bH4bH4
Y0k<&
cI5cI5cI5
teKg|~
!This program cannot be run in DOS mode.
.text
`.rdata
@.data
.rsrc
@.reloc
T$$A;
T$    ~s
F<!r4<~w0<\t,<%t(<#t$</t <(t
r4<~w0<\t,<%t(<#t$</t <(t
L$ QW
T$ RW
T$TRU
L$PQV
D$TPU
L$PQV
8MRTSu
tHj0j
t:j0j
VWj0S
L$/QR@P
L$;QhD
T$(RP
T$(QRP
u%j W
L$(QW
T$<RW
D$PPW
t@j0j
y#^][
]_^[Y
]_^[Y
]_^[Y
V$UQSR
]_^[Y
L$$SQ
T$WRh
D$DPW
L$CQRP
T$[Rh
D$HPW
D$DPW
t ^[_
D$0PS
8DCNEu
@Af;F
8DCNEu
8DCNEt
?DCNEt
8DCNEt
8DCNEu
Pt<It'It
VWt    S
L$4j<U
T$,RP
L$$QR
D$ r7
T$<RP
D$<PQ
VWj!S
Ws/Qj
D$0j
t$dWj
D$$vT2
D$(vT2
D$\vT2
D$$PV
D$ vT2
~,PQV
D$(PQ
uH+|$
L$ VQ
T$3UR
D$8PW
0^_][
][_^Y
t-[_^]
L$<QR
t+[_^]
L$$QW
L$<QW
L$TQW
D$ PW
D$8PW
D$PPW
L$ PW
D$8PW
D$PPW
L$LQR
L$LQR
D$4PV
D$LPV
D$4PV
D$LPV
D$4PV
D$LPV
D$4PV
D$LPV
L$$QS
L$<QS
L$,QS
D$(u V
L$<QR
L$$QV
D$$PV
T$ RV
L$0QV
L$(QV
D$,SUVW
\$ t;j
D$ f=
T$$VRf
D$ ;D$
t$<    t <
D$ hT4
tO<    tK<
t?< t;
L$$hH4
L$$h@4
T$$h04
D$$h$4
u0QRP
SUVW3
T$0RP
t$(VR
T$(RP
SVWu4
QSUVW
_^][Y
T$ VR
_^][Y
_^][Y
_^][Y
_^][Y
_^][Y
_^][Y
T$8RW
D$8PW
D$ PW
D$ PW
D$8PhH4
_^][Y
D$$PU
L$$QU
L$0UQ
T$$WR
T$0VR
L$4QhH4
U$WhL
D$(SUVW
D$<VP
L$(QU
T$ RU
|$DSW
D$4PU
T$,GRU
L$H@;
T$4Ph
L$8h@
D$XPQ
D$ h0
D$4PQ
D$@hp
D$(h`
D$TPQ
D$ h@
T$@RP
D$@PQ
T$XRP
T$@RP
D$8PQ
L$(QR
T$4RP
T$DRP
D$(PQ
L$(QR
D$DPQ
D$ hd
D$(PQ
D$ hT
T$ UR
T$ VR
T$8RQ
L$(WU
T$(h$
8FDPAu
8FDPAu)
>FDPAu$
N`RPQ
8FDPAu$
>FDPAt
>FDPAu!
>FDPAu$
>FDPAu$
8FDPAu!
8FDPAuN
>FDPAu$
>FDPAu$
V$WSR
8FDPAt
WLSVR
?FDPAu$
WPSVR
?FDPAu$
8FDPAu!
SUVW3
>FDPAu(
HtGHt
>FDPAu$
^Du!j
^Du!j
>FDPAu$
>FDPAu$
>FDPAu$
8FDPAu!
8FDPAu$
8FDPAu!
8FDPAu$
>FDPAu$
8FDPAu!
8FDPAu$
>FDPAu$
>FDPAu!
L$8QP
>FDPAu$
8FDPAu$
8FDPAt
8FDPAt
8FDPAt
8FDPAu
>FDPA
;FDPAu1S
>FDPAu$
^h[_3
V`QPR
F(_^[
>FDPAu$
>FDPAu$
>FDPAu$
t ;Flw
>FDPAu*
=FDPAt
>FDPAu(
_[t    U
>FDPAu$
>FDPAu$
>FDPAt
L$,RPQ
L$<PQV
t!_^[
t!_^[
O,WSP
SWUh\
ttWhX
D$(PQ
D$(PQ
D$(PQ
\$@VS
t$0Wh
T$(RP
D$$t,
D$(PQ
T$8RP
T$8RP
T$8RP
T$ RP
T$0RP
T$8RP
T$8RP
T$ RP
T$DRP
T$DRP
|$$WP
|$$WP
|$$WP
|$$WP
F,SUWh
D$ PQ
T$0RP
|$ WP
|$ WP
F,SUWh
D$ PQ
@SUWQ
T$HRP
VLSWR
NLPSWQ
^(^_[
N,_]3
N0_]3
QRWUP
VRPWUQ
u    _^]
T$LQRV
T$TRj
D$dPUV
T$,RW
L$$QW
D$LPV
D$PPV
L$PQV
D$TPj
D$(PV
L$4QV
D$(PV
L$4QV
T$@RV
D$(PV
L$4QV
T$@RV
T$ Rh
T$$QRW
L$$QW
T$ RU
D$ PU
L$ QU
\$ uR
L$(Rhx
V$PQR
T$$RV
D$0PV
L$<QV
T$HRV
D$TPV
 SUW3
F$QRP
N$SPQ
tQVhx
L$(IQV
L$ PQ
D$$PS
Sj VW
0:@j?Q
)QWh`
SVWPQj
_^][Y
_^][Y
Eh_^][Y
El@u    U
MxQRU
BPARQVU
@PQRU
SUVW3
_^][Y
\$HUVWt
l$(u[
HtpHtAHt
T$0t^Ht/Hur
Fp@t=
\$,v~
HHIIN
T$0W3
:D$$u
:D$,u
D$$GH
f;D$,
f;D$(u
D$(FH
D$@GFH
|$4u    f;
D$,FGH
D$HFA
f;t$ u
L$Df3
L$4f3
L$$f;q
u8f;y
u2f;i
u9f;U
u3f;u
_^][Y
\$ HIK
_^][Y
_^][Y
_^][Y
_^][Y
_^][Y
D$ w93
GTPVj
|$PVU
L$TQU
|$Lu&VU
T$TRU
D$TPU
T$DQURV
$_^][
_^][Y
_^][Y
_^][Y
_^][Y
_^][Y
 t h@
D$L=x
L$$UR
D$`QRPV
QSUVW
_^][Y
_^][Y
_^][Y
_^][Y
_^][Y
D$ VUSPW
_^][Y
_^][Y
l$,VUW
RPWSV
RPWSV
T$0RS
;t$(w
;t$(w
t$0UQ
T$<PQVRS
D$$PQ
D$$GPW
L$4RPQS
L$ QS
QSUVW
_^][Y
_^][Y
QVRSUW
_^][Y
_^][Y
\$ UV
 u'US
D$4PS
t$4VS
t$ VPS
 u+US
<ArE<zwA<Zv
<Ar2<zw.<Zv
SUVWuV
D$,VW3
ExPRU
Eh_^][Y
Fl_^][
8U    uA
L$Th\
T$Th(
t$(VU
L$(@;
W(9W$u
tv9_ tq9_$tl
U0PQR
U0PQR
U0PQR
U0PQR
S0UQR
K0UPQ
_^][Y
_^][Y
l$ VW
D$(8D
Nxf+Fd
_^][Y
_^][Y
~(9~$u
N(h0%
D$(PQ
D$(PQ
D$(PQ
T$8t=
L$,t,
T$8t!
S@;Q
L$,t,
T$8t!
S@;Q(
KpPQj
DSpQPj
T$,AB
L$(Pt
L$8;K
D$TRP
D$4_^][
9s4u(
K,_^][
K,_^]3
|$ WUSV
@APQV
T$ RV
D$$SUV
D$0tc
_^][Y
D$DSU
L$Xt5;
L$XJ#
l$XI;
;l$(s^;t$,sX
DDLJu
L\Lf9t\L
|$ AB
u.;5l
YYt,V
C =02CVu
B 02CV
VC20XC00U
YYt-V
    9x4t
    9x0t
    9x@t
YYt+V
btFHt+
u79=P
Y]_^[
QQSVW3
@PVSS
t#SSUP
t$$VSS
_^][YY
HHt`HHt\
SVWUj
t.;t$$t(
HHtjHHtF
VWj Y
SVWj ^
F,98uX
VWumh`M
t|hDM
v    N+D$
t]HtN
t:Ht+
t5Ht&Ht
t5Ht&-=
t6Ht*Ht
t+Ht$Ht
+t"HHt
    j    XO
j8h0S
u8SS3
FVh,S
t!SS9]
u.hdS
PPPPPPPP
GWh,S
PPPPPPPP
wLVWP
It    Iu*
WWWWVSW
t2WWVPVSW
LSVWj
xd;=L
F1.2.3
false
Length
endstream
stream
DCTDecode
FlateDecode
Filter
%%EOF
startxref
trailer
endobj
   !
 &   !
 &   !
 &   !
 &   !
 &   !
 &   !
 &   !
 &   !
 &   !
 &   !
%$%,%4%<%
"H"d"e"
P%Q%R%Q
S%T%U%V%W%X%Y%Z%[%\%]%^%_%`%a%
b%c%d%e%f%g%h%i%j%k%l%
KOI8-R
CP1258
CP1257
CP1256
CP1255
CP1254
CP1253
CP1252
CP1251
CP1250
ISO8859-16
ISO8859-15
ISO8859-14
ISO8859-13
ISO8859-11
ISO8859-10
ISO8859-9
ISO8859-8
ISO8859-7
ISO8859-6
ISO8859-5
ISO8859-4
ISO8859-3
ISO8859-2
WinAnsiEncoding
MacRomanEncoding
StandardEncoding
FontSpecific
afii57700
afii57723
afii57695
afii57694
afii57705
bracerightbt
bracerightmid
bracerighttp
bracketrightbt
bracketrightex
bracketrighttp
parenrightbt
parenrightex
parenrighttp
integralex
braceex
braceleftbt
braceleftmid
bracelefttp
bracketleftbt
bracketleftex
bracketlefttp
parenleftbt
parenleftex
parenlefttp
trademarksans
copyrightsans
registersans
arrowhorizex
arrowvertex
radicalex
Ydieresissmall
Thornsmall
Yacutesmall
Udieresissmall
Ucircumflexsmall
Uacutesmall
Ugravesmall
Oslashsmall
Odieresissmall
Otildesmall
Ocircumflexsmall
Oacutesmall
Ogravesmall
Ntildesmall
Ethsmall
Idieresissmall
Icircumflexsmall
Iacutesmall
Igravesmall
Edieresissmall
Ecircumflexsmall
Eacutesmall
Egravesmall
Ccedillasmall
AEsmall
Aringsmall
Adieresissmall
Atildesmall
Acircumflexsmall
Aacutesmall
Agravesmall
questiondownsmall
Cedillasmall
Acutesmall
Macronsmall
Dieresissmall
centoldstyle
exclamdownsmall
Zsmall
Ysmall
Xsmall
Wsmall
Vsmall
Usmall
Tsmall
Ssmall
Rsmall
Qsmall
Psmall
Osmall
Nsmall
Msmall
Lsmall
Ksmall
Jsmall
Ismall
Hsmall
Gsmall
Fsmall
Esmall
Dsmall
Csmall
Bsmall
Asmall
Gravesmall
questionsmall
nineoldstyle
eightoldstyle
sevenoldstyle
sixoldstyle
fiveoldstyle
fouroldstyle
threeoldstyle
twooldstyle
oneoldstyle
zerooldstyle
ampersandsmall
dollaroldstyle
exclamsmall
Zcaronsmall
Tildesmall
Scaronsmall
Ringsmall
Ogoneksmall
OEsmall
Lslashsmall
Hungarumlautsmall
Dotaccentsmall
Circumflexsmall
Caronsmall
Brevesmall
tsuperior
ssuperior
rsuperior
osuperior
msuperior
lsuperior
isuperior
esuperior
dsuperior
bsuperior
asuperior
periodsuperior
periodinferior
hyphensuperior
hypheninferior
dollarsuperior
dollarinferior
commasuperior
commainferior
centsuperior
centinferior
threequartersemdash
rupiah
onefitted
trademarkserif
registerserif
copyrightserif
dieresisgrave
dieresisacute
dblgrave
cyrflex
cyrbreve
dblGrave
cyrFlex
cyrBreve
Macron
Hungarumlaut
Grave
DieresisGrave
DieresisAcute
Dieresis
Caron
Acute
afii10832
afii10831
afii10192
afii10064
afii10063
commaaccent
dotlessj
musicalnotedbl
musicalnote
diamond
heart
spade
female
invsmileface
smileface
openbullet
invcircle
invbullet
H18533
circle
lozenge
triaglf
triagdn
triagrt
triagup
filledrect
H18551
H18543
H22073
filledbox
dkshade
shade
ltshade
rtblock
lfblock
block
dnblock
upblock
SF440000
SF530000
SF540000
SF400000
SF460000
SF450000
SF410000
SF480000
SF470000
SF230000
SF200000
SF190000
SF420000
SF370000
SF360000
SF260000
SF270000
SF280000
SF380000
SF490000
SF500000
SF250000
SF210000
SF220000
SF390000
SF520000
SF510000
SF240000
SF430000
SF050000
SF070000
SF060000
SF090000
SF080000
SF040000
SF020000
SF030000
SF010000
SF110000
SF100000
angleright
angleleft
integralbt
integraltp
revlogicalnot
house
dotmath
perpendicular
circlemultiply
circleplus
reflexsuperset
reflexsubset
notsubset
propersuperset
propersubset
greaterequal
lessequal
equivalence
notequal
approxequal
congruent
similar
therefore
integral
union
intersection
logicalor
logicaland
angle
orthogonal
infinity
proportional
radical
asteriskmath
minus
summation
product
suchthat
notelement
element
gradient
emptyset
existential
partialdiff
universal
arrowdblboth
arrowdbldown
arrowdblright
arrowdblup
arrowdblleft
carriagereturn
arrowupdnbse
arrowupdn
arrowboth
arrowdown
arrowright
arrowup
arrowleft
seveneighths
fiveeighths
threeeighths
oneeighth
twothirds
onethird
aleph
estimated
trademark
prescription
Rfraktur
weierstrass
afii61352
afii61289
Ifraktur
afii61248
afii57636
peseta
franc
colonmonetary
parenrightinferior
parenleftinferior
nineinferior
eightinferior
seveninferior
sixinferior
fiveinferior
fourinferior
threeinferior
twoinferior
oneinferior
zeroinferior
nsuperior
parenrightsuperior
parenleftsuperior
ninesuperior
eightsuperior
sevensuperior
sixsuperior
fivesuperior
foursuperior
zerosuperior
fraction
exclamdbl
guilsinglright
guilsinglleft
second
minute
perthousand
afii61575
afii61574
afii61573
ellipsis
twodotenleader
onedotenleader
bullet
daggerdbl
dagger
quotedblbase
quotedblright
quotedblleft
quotereversed
quotesinglbase
quoteright
quoteleft
underscoredbl
afii00208
emdash
endash
figuredash
afii300
afii299
afii301
afii61664
ygrave
Ygrave
wdieresis
Wdieresis
wacute
Wacute
wgrave
Wgrave
afii57534
afii57519
afii57514
afii57509
afii57505
afii57508
afii57513
afii57512
afii57507
afii57506
afii57511
afii63167
afii57381
afii57401
afii57400
afii57399
afii57398
afii57397
afii57396
afii57395
afii57394
afii57393
afii57392
afii57458
afii57457
afii57456
afii57455
afii57454
afii57453
afii57452
afii57451
afii57450
afii57449
afii57448
afii57470
afii57446
afii57445
afii57444
afii57443
afii57442
afii57441
afii57440
afii57434
afii57433
afii57432
afii57431
afii57430
afii57429
afii57428
afii57427
afii57426
afii57425
afii57424
afii57423
afii57422
afii57421
afii57420
afii57419
afii57418
afii57417
afii57416
afii57415
afii57414
afii57413
afii57412
afii57411
afii57410
afii57409
afii57407
afii57403
afii57388
afii57718
afii57717
afii57716
afii57690
afii57689
afii57688
afii57687
afii57686
afii57685
afii57684
afii57683
afii57682
afii57681
afii57680
afii57679
afii57678
afii57677
afii57676
afii57675
afii57674
afii57673
afii57672
afii57671
afii57670
afii57669
afii57668
afii57667
afii57666
afii57665
afii57664
afii57658
afii57803
afii57804
afii57842
afii57841
afii57645
afii57839
afii57807
afii57796
afii57806
afii57797
afii57798
afii57795
afii57794
afii57793
afii57802
afii57800
afii57801
afii57799
afii10846
afii10098
afii10050
afii10196
afii10148
afii10195
afii10147
afii10194
afii10146
afii10193
afii10110
afii10109
afii10108
afii10107
afii10106
afii10105
afii10104
afii10103
afii10102
afii10101
afii10100
afii10099
afii10071
afii10097
afii10096
afii10095
afii10094
afii10093
afii10092
afii10091
afii10090
afii10089
afii10088
afii10087
afii10086
afii10085
afii10084
afii10083
afii10082
afii10081
afii10080
afii10079
afii10078
afii10077
afii10076
afii10075
afii10074
afii10073
afii10072
afii10070
afii10069
afii10068
afii10067
afii10066
afii10065
afii10049
afii10048
afii10047
afii10046
afii10045
afii10044
afii10043
afii10042
afii10041
afii10040
afii10039
afii10038
afii10037
afii10036
afii10035
afii10034
afii10033
afii10032
afii10031
afii10030
afii10029
afii10028
afii10027
afii10026
afii10025
afii10024
afii10022
afii10021
afii10020
afii10019
afii10018
afii10017
afii10145
afii10062
afii10061
afii10060
afii10059
afii10058
afii10057
afii10056
afii10055
afii10054
afii10053
afii10052
afii10051
afii10023
omega1
Upsilon1
theta1
omegatonos
upsilontonos
omicrontonos
upsilondieresis
iotadieresis
omega
upsilon
sigma
sigma1
omicron
lambda
kappa
theta
epsilon
delta
gamma
alpha
upsilondieresistonos
iotatonos
etatonos
epsilontonos
alphatonos
Upsilondieresis
Iotadieresis
Omega
Upsilon
Sigma
Omicron
Lambda
Kappa
Theta
Epsilon
Delta
Gamma
Alpha
iotadieresistonos
Omegatonos
Upsilontonos
Omicrontonos
Iotatonos
Etatonos
Epsilontonos
anoteleia
Alphatonos
dieresistonos
tonos
dotbelowcomb
hookabovecomb
tildecomb
acutecomb
gravecomb
hungarumlaut
tilde
ogonek
dotaccent
breve
caron
circumflex
afii64937
afii57929
scommaaccent
Scommaaccent
oslashacute
Oslashacute
aeacute
AEacute
aringacute
Aringacute
gcaron
Gcaron
uhorn
Uhorn
ohorn
Ohorn
florin
longs
zcaron
Zcaron
zdotaccent
Zdotaccent
zacute
Zacute
Ydieresis
ycircumflex
Ycircumflex
wcircumflex
Wcircumflex
uogonek
Uogonek
uhungarumlaut
Uhungarumlaut
uring
Uring
ubreve
Ubreve
umacron
Umacron
utilde
Utilde
tcaron
Tcaron
tcommaaccent
Tcommaaccent
scaron
Scaron
scedilla
Scedilla
scircumflex
Scircumflex
sacute
Sacute
rcaron
Rcaron
rcommaaccent
Rcommaaccent
racute
Racute
ohungarumlaut
Ohungarumlaut
obreve
Obreve
omacron
Omacron
napostrophe
ncaron
Ncaron
ncommaaccent
Ncommaaccent
nacute
Nacute
lslash
Lslash
lcaron
Lcaron
lcommaaccent
Lcommaaccent
lacute
Lacute
kgreenlandic
kcommaaccent
Kcommaaccent
jcircumflex
Jcircumflex
dotlessi
Idotaccent
iogonek
Iogonek
ibreve
Ibreve
imacron
Imacron
itilde
Itilde
hcircumflex
Hcircumflex
gcommaaccent
Gcommaaccent
gdotaccent
Gdotaccent
gbreve
Gbreve
gcircumflex
Gcircumflex
ecaron
Ecaron
eogonek
Eogonek
edotaccent
Edotaccent
ebreve
Ebreve
emacron
Emacron
dcroat
Dcroat
dcaron
Dcaron
ccaron
Ccaron
cdotaccent
Cdotaccent
ccircumflex
Ccircumflex
cacute
Cacute
aogonek
Aogonek
abreve
Abreve
amacron
Amacron
ydieresis
thorn
yacute
udieresis
ucircumflex
uacute
ugrave
oslash
divide
odieresis
otilde
ocircumflex
oacute
ograve
ntilde
idieresis
icircumflex
iacute
igrave
edieresis
ecircumflex
eacute
egrave
ccedilla
aring
adieresis
atilde
acircumflex
aacute
agrave
germandbls
Thorn
Yacute
Udieresis
Ucircumflex
Uacute
Ugrave
Oslash
multiply
Odieresis
Otilde
Ocircumflex
Oacute
Ograve
Ntilde
Idieresis
Icircumflex
Iacute
Igrave
Edieresis
Ecircumflex
Eacute
Egrave
Ccedilla
Aring
Adieresis
Atilde
Acircumflex
Aacute
Agrave
questiondown
threequarters
onehalf
onequarter
guillemotright
ordmasculine
onesuperior
cedilla
periodcentered
paragraph
acute
threesuperior
twosuperior
plusminus
degree
macron
registered
logicalnot
guillemotleft
ordfeminine
copyright
dieresis
section
brokenbar
currency
sterling
exclamdown
asciitilde
braceright
braceleft
grave
underscore
asciicircum
bracketright
backslash
bracketleft
question
greater
equal
semicolon
colon
eight
seven
three
slash
period
hyphen
comma
asterisk
parenright
parenleft
quotesingle
ampersand
percent
dollar
numbersign
quotedbl
exclam
space
.notdef
/Differences [
/Encoding
/Encoding <<
/Type /Encoding
/BaseEncoding
dSizStandard
Italic
Regular
StartCharMetrics
STDHV
STDHW
Descender
Ascender
CapHeight
EncodingScheme
FontBBox
CharacterSet
ItalicAngle
IsFixedPitch
Weight
FontName
StartFontMetrics
cleartomark
eexec
ZapfDingbats
Symbol
Times-BoldItalic
Times-Italic
Times-Bold
Times-Roman
Helvetica-BoldOblique
Helvetica-Oblique
Helvetica-Bold
Helvetica
Courier-BoldOblique
Courier-Oblique
Courier-Bold
Courier
Length3
Length2
Length1
FontFile
CharSet
XHeight
StemV
Flags
Descent
Ascent
FontDescriptor
Widths
/LastChar
/FirstChar
MissingWidth
Subtype
Type1
BaseFont
FontFile2
LastChar
FirstChar
TrueType
Supplement
Ordering
Registry
CIDSystemInfo
CIDFontType0
%%EOF
%%EndResource
CMapName currentdict /CMap defineresource pop
endcmap
endcidrange
endcidrange
 begincidrange
endnotdefrange
 beginnotdefrange
endcodespacerange
 begincodespacerange
/WMode
] def
/XUID [
/UIDOffset
/CMapType 1 def
/CMapVersion 1.0 def
/CMapName /
end def
  /Supplement
  /Ordering (
) def
  /Registry (
/CIDSystemInfo 3 dict dup begin
begincmap
12 dict begin
/CIDInit /ProcSet findresource begin
%%EndComments
%%Version: 1.0
%%Title: (
%%BeginResource: CMap (
%%IncludeResource: ProcSet (CIDInit)
%%DocumentNeededResources: ProcSet (CIDInit)
%!PS-Adobe-3.0 Resource-CMap
WMode
CMapName
CIDToGIDMap
CIDFontType2
DescendantFonts
Encoding
Type0
%PDF-1.6
%PDF-1.5
%PDF-1.4
%PDF-1.3
%PDF-1.2
2.0.8
Encrypt
HPDFAA
Outlines
Haru Free PDF Library
Keywords
Subject
Title
Producer
Creator
Author
ModDate
CreationDate
UseAttachments
UseOC
FullScreen
UseThumbs
UseOutlines
UseNone
TwoColumnRight
TwoColumnLeft
OneColumn
SinglePage
Pages
Catalog
PageLayout
PageMode
OpenAction
PageLabels
CenterWindow
FitWindow
HideWindowUI
HideMenubar
HideToolbar
ViewerPreferences
Rotate
CropBox
MediaBox
Resources
Parent
ImageI
ImageC
ImageB
ProcSet
XObject
ExtGState
Annots
Count
Contents
@UUUUUU
Glitter
Dissolve
Blinds
Split
Trans
?FitBV
FitBH
?Insert
Paragraph
NewParagraph
Comment
Popup
FileAttachment
Underline
Highlight
StrikeOut
Circle
Square
Stamp
FreeText
Sound
Annot
Border
Action
First
_OPENED
Outline
DeviceGray
DeviceRGB
DeviceCMYK
BitsPerComponent
ColorSpace
Decode
Width
Height
Image
AImageMask
Japan1
Adobe
EUC-V
EUC-H
90msp-RKSJ-H
90ms-RKSJ-V
90ms-RKSJ-H
Korea1
KSC-EUC-V
KSC-EUC-H
KSCms-UHC-HW-V
KSCms-UHC-HW-H
KSCms-UHC-H
GB-EUC-V
GB-EUC-H
GBK-EUC-V
GBK-EUC-H
ETen-B5-V
ETen-B5-H
MS-PMincyo,BoldItalic
MS-PMincyo,Italic
MS-PMincyo,Bold
MS-PMincyo
MS-Mincyo,BoldItalic
MS-Mincyo,Italic
MS-Mincyo,Bold
MS-Mincyo
MS-PGothic,BoldItalic
MS-PGothic,Italic
MS-PGothic,Bold
MS-PGothic
MS-Gothic,BoldItalic
MS-Gothic,Italic
MS-Gothic,Bold
MS-Gothic
Batang,BoldItalic
Batang,Italic
Batang,Bold
Batang
BatangChe,BoldItalic
BatangChe,Italic
BatangChe,Bold
BatangChe
Dotum,BoldItalic
Dotum,Italic
Dotum,Bold
Dotum
DotumChe,BoldItalic
DotumChe,Italic
DotumChe,Bold
DotumChe
SimHei,BoldItalic
SimHei,Italic
SimHei,Bold
SimHei
SimSun,BoldItalic
SimSun,Italic
SimSun,Bold
SimSun
MingLiU,BoldItalic
MingLiU,Italic
MingLiU,Bold
MingLiU
Indexed
1.2.10
_FILE_NAME
Exclusion
Difference
SoftLight
HardLight
ColorBurn
ColorDodge
Lighten
Darken
Overlay
Screen
Multiply
Normal
1.2.10
0123456789ABCDEF
 0@P`p
!1AQaq
"2BRbr
#3CScs
$4DTdt
%5EUeu
&6FVfv
'7GWgw
(8HXhx
)9IYiy
*:JZjz
+;K[k{
,<L\l|
-=M]m}
.>N^n~
/?O_o
> deflate 1.2.3 Copyright 1995-2005 Jean-loup Gailly
1.2.3
Qkkbal
wn>Jj
Z* ,
    #jT$
[-&LMb#{'
w+OQvr
R1h58
)\ZEo^m/
H*0"ZOW
l!;b    F
mj>zjZ
l6qnk
IiGM>nw
1A26b
ewh/?y
1wsHp
#bML"
vQO+t
^oEZ_
OZw3(?
V_:X1:
NJ2"v
O*9y]

 inflate 1.2.3 Copyright 1995-2005 Mark Adler
e+000
GAIsProcessorFeaturePresent
KERNEL32
FlsFree
FlsSetValue
FlsGetValue
FlsAlloc
kernel32.dll
CorExitProcess
mscoree.dll
runtime error
TLOSS error
SING error
DOMAIN error
R6029
- This application cannot run using the active version of the Microsoft .NET Runtime
Please contact the application's support team for more information.
R6028
- unable to initialize heap
R6027
- not enough space for lowio initialization
R6026
- not enough space for stdio initialization
R6025
- pure virtual function call
R6024
- not enough space for _onexit/atexit table
R6019
- unable to open console device
R6018
- unexpected heap error
R6017
- unexpected multithread lock error
R6016
- not enough space for thread data
This application has requested the Runtime to terminate it in an unusual way.
Please contact the application's support team for more information.
R6009
- not enough space for environment
R6008
- not enough space for arguments
R6002
- floating point not loaded
Microsoft Visual C++ Runtime Library
Runtime Error!
Program:
<program name unknown>
 (8PX
700WP
`h````
ppxxxx
(null)
AuthenticAMD
?X&eB
?h6_~
?7Tf(
=\uI=
]vQ<)8
|)P!?Ua0
Eb2]A=
hb?O2
2ieO=
|W8A=
np?z
u?^p?o4
Pex?0
y1~?|"
V%A+=
?|I7Z#
>,'1D=
?g)([|X>=
?IT$7
:h"?bC
@H#?43
Ax#?uN}*
r7Yr7=
.K="=
F0$?3=1
H`$?h|
&?~YK|
sU0&?W
:]=O>
CqTR;
AiFC.
<{Q}<
hI{L[
<8bunz8
?(FN\
K<<H!
m1WY$
?#%X.y
F||<##
T~OXu
<@En[vP
InitializeCriticalSectionAndSpinCount
 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
GetProcessWindowStation
GetUserObjectInformationA
GetLastActivePopup
GetActiveWindow
MessageBoxA
user32.dll
floor
exp10
log10
1#QNAN
1#INF
1#IND
1#SNAN
Program:
A buffer overrun has been detected which has corrupted the program's
internal state.  The program cannot safely continue execution and must
now be terminated.
Buffer overrun detected!
A security error of unknown cause has been detected which has
corrupted the program's internal state.  The program cannot safely
continue execution and must now be terminated.
Unknown security failure detected!
HH:mm:ss
dddd, MMMM dd, yyyy
MM/dd/yy
December
November
October
September
August
April
March
February
January
Saturday
Friday
Thursday
Wednesday
Tuesday
Monday
Sunday
_nextafter
_logb
frexp
_hypot
_cabs
ldexp
atan2
SunMonTueWedThuFriSat
JanFebMarAprMayJunJulAugSepOctNovDec
HeapAlloc
HeapFree
GetSystemTimeAsFileTime
GetCurrentThreadId
GetCommandLineA
GetVersionExA
EnterCriticalSection
LeaveCriticalSection
GetProcAddress
GetModuleHandleA
DeleteCriticalSection
HeapDestroy
HeapCreate
VirtualFree
VirtualAlloc
HeapReAlloc
GetLastError
ReadFile
SetFilePointer
SetHandleCount
GetStdHandle
GetFileType
GetStartupInfoA
WriteFile
CloseHandle
TlsAlloc
SetLastError
TlsFree
TlsSetValue
TlsGetValue
ExitProcess
TerminateProcess
GetCurrentProcess
GetModuleFileNameA
FreeEnvironmentStringsA
GetEnvironmentStrings
FreeEnvironmentStringsW
WideCharToMultiByte
GetEnvironmentStringsW
UnhandledExceptionFilter
RtlUnwind
InitializeCriticalSection
InterlockedExchange
VirtualQuery
SetStdHandle
FlushFileBuffers
GetACP
GetOEMCP
GetCPInfo
CreateFileA
LoadLibraryA
LCMapStringA
MultiByteToWideChar
LCMapStringW
QueryPerformanceCounter
GetTickCount
GetCurrentProcessId
GetLocaleInfoA
GetStringTypeA
GetStringTypeW
SetEndOfFile
HeapSize
RaiseException
VirtualProtect
GetSystemInfo
KERNEL32.dll
LIBHPDF.DLL
HPDF_AddPage
HPDF_AddPageLabel
HPDF_CreateExtGState
HPDF_CreateOutline
HPDF_Destination_SetFit
HPDF_Destination_SetFitB
HPDF_Destination_SetFitBH
HPDF_Destination_SetFitBV
HPDF_Destination_SetFitH
HPDF_Destination_SetFitR
HPDF_Destination_SetFitV
HPDF_Destination_SetXYZ
HPDF_Encoder_GetByteType
HPDF_Encoder_GetType
HPDF_Encoder_GetUnicode
HPDF_Encoder_GetWritingMode
HPDF_ExtGState_SetAlphaFill
HPDF_ExtGState_SetAlphaStroke
HPDF_ExtGState_SetBlendMode
HPDF_Font_GetAscent
HPDF_Font_GetBBox
HPDF_Font_GetCapHeight
HPDF_Font_GetDescent
HPDF_Font_GetEncodingName
HPDF_Font_GetFontName
HPDF_Font_GetUnicodeWidth
HPDF_Font_GetXHeight
HPDF_Font_MeasureText
HPDF_Font_TextWidth
HPDF_Free
HPDF_FreeDoc
HPDF_FreeDocAll
HPDF_GetCurrentEncoder
HPDF_GetCurrentPage
HPDF_GetEncoder
HPDF_GetError
HPDF_GetErrorDetail
HPDF_GetFont
HPDF_GetInfoAttr
HPDF_GetPageByIndex
HPDF_GetPageLayout
HPDF_GetPageMode
HPDF_GetStreamSize
HPDF_GetVersion
HPDF_GetViewerPreference
HPDF_HasDoc
HPDF_Image_GetBitsPerComponent
HPDF_Image_GetColorSpace
HPDF_Image_GetHeight
HPDF_Image_GetSize2
HPDF_Image_GetSize
HPDF_Image_GetWidth
HPDF_Image_SetColorMask
HPDF_Image_SetMaskImage
HPDF_InsertPage
HPDF_LinkAnnot_SetBorderStyle
HPDF_LinkAnnot_SetHighlightMode
HPDF_LoadJpegImageFromFile
HPDF_LoadPngImageFromFile2
HPDF_LoadPngImageFromFile
HPDF_LoadRawImageFromFile
HPDF_LoadRawImageFromMem
HPDF_LoadTTFontFromFile2
HPDF_LoadTTFontFromFile
HPDF_LoadType1FontFromFile
HPDF_New
HPDF_NewDoc
HPDF_NewEx
HPDF_Outline_SetDestination
HPDF_Outline_SetOpened
HPDF_Page_Arc
HPDF_Page_BeginText
HPDF_Page_Circle
HPDF_Page_Clip
HPDF_Page_ClosePath
HPDF_Page_ClosePathEofillStroke
HPDF_Page_ClosePathFillStroke
HPDF_Page_ClosePathStroke
HPDF_Page_Concat
HPDF_Page_CreateDestination
HPDF_Page_CreateLinkAnnot
HPDF_Page_CreateTextAnnot
HPDF_Page_CreateURILinkAnnot
HPDF_Page_CurveTo2
HPDF_Page_CurveTo3
HPDF_Page_CurveTo
HPDF_Page_DrawImage
HPDF_Page_Ellipse
HPDF_Page_EndPath
HPDF_Page_EndText
HPDF_Page_Eoclip
HPDF_Page_Eofill
HPDF_Page_EofillStroke
HPDF_Page_ExecuteXObject
HPDF_Page_Fill
HPDF_Page_FillStroke
HPDF_Page_GRestore
HPDF_Page_GSave
HPDF_Page_GetCMYKFill
HPDF_Page_GetCMYKStroke
HPDF_Page_GetCharSpace
HPDF_Page_GetCurrentFont
HPDF_Page_GetCurrentFontSize
HPDF_Page_GetCurrentPos2
HPDF_Page_GetCurrentPos
HPDF_Page_GetCurrentTextPos2
HPDF_Page_GetCurrentTextPos
HPDF_Page_GetDash
HPDF_Page_GetFillingColorSpace
HPDF_Page_GetFlat
HPDF_Page_GetGMode
HPDF_Page_GetGStateDepth
HPDF_Page_GetGrayFill
HPDF_Page_GetGrayStroke
HPDF_Page_GetHeight
HPDF_Page_GetHorizontalScalling
HPDF_Page_GetLineCap
HPDF_Page_GetLineJoin
HPDF_Page_GetLineWidth
HPDF_Page_GetMiterLimit
HPDF_Page_GetRGBFill
HPDF_Page_GetRGBStroke
HPDF_Page_GetStrokingColorSpace
HPDF_Page_GetTextLeading
HPDF_Page_GetTextMatrix
HPDF_Page_GetTextRaise
HPDF_Page_GetTextRenderingMode
HPDF_Page_GetTextRise
HPDF_Page_GetTransMatrix
HPDF_Page_GetWidth
HPDF_Page_GetWordSpace
HPDF_Page_LineTo
HPDF_Page_MeasureText
HPDF_Page_MoveTextPos2
HPDF_Page_MoveTextPos
HPDF_Page_MoveTo
HPDF_Page_MoveToNextLine
HPDF_Page_Rectangle
HPDF_Page_SetCMYKFill
HPDF_Page_SetCMYKStroke
HPDF_Page_SetCharSpace
HPDF_Page_SetDash
HPDF_Page_SetExtGState
HPDF_Page_SetFlat
HPDF_Page_SetFontAndSize
HPDF_Page_SetGrayFill
HPDF_Page_SetGrayStroke
HPDF_Page_SetHeight
HPDF_Page_SetHorizontalScalling
HPDF_Page_SetLineCap
HPDF_Page_SetLineJoin
HPDF_Page_SetLineWidth
HPDF_Page_SetMiterLimit
HPDF_Page_SetRGBFill
HPDF_Page_SetRGBStroke
HPDF_Page_SetRotate
HPDF_Page_SetSize
HPDF_Page_SetSlideShow
HPDF_Page_SetTextLeading
HPDF_Page_SetTextMatrix
HPDF_Page_SetTextRaise
HPDF_Page_SetTextRenderingMode
HPDF_Page_SetTextRise
HPDF_Page_SetWidth
HPDF_Page_SetWordSpace
HPDF_Page_ShowText
HPDF_Page_ShowTextNextLine
HPDF_Page_ShowTextNextLineEx
HPDF_Page_Stroke
HPDF_Page_TextOut
HPDF_Page_TextRect
HPDF_Page_TextWidth
HPDF_ReadFromStream
HPDF_ResetError
HPDF_ResetStream
HPDF_SaveToFile
HPDF_SaveToStream
HPDF_SetCompressionMode
HPDF_SetCurrentEncoder
HPDF_SetEncryptionMode
HPDF_SetErrorHandler
HPDF_SetInfoAttr
HPDF_SetInfoDateAttr
HPDF_SetOpenAction
HPDF_SetPageLayout
HPDF_SetPageMode
HPDF_SetPagesConfiguration
HPDF_SetPassword
HPDF_SetPermission
HPDF_SetViewerPreference
HPDF_TextAnnot_SetIcon
HPDF_TextAnnot_SetOpened
HPDF_UseCNSEncodings
HPDF_UseCNSFonts
HPDF_UseCNTEncodings
HPDF_UseCNTFonts
HPDF_UseJPEncodings
HPDF_UseJPFonts
HPDF_UseKREncodings
HPDF_UseKRFonts
DN*1DR(zD
CN*1D
Too many bytes for PNG signature.
Potential overflow in png_zalloc()
libpng error: %s
libpng error: %s, offset=%d
libpng error no. %s: %s
libpng warning: %s
libpng warning no. %s: %s
Unknown zlib error
zlib version error
zlib memory error
1.2.3
Incompatible libpng version in application and library
Application  is  running with png.c from libpng-%.20s
Application was compiled with png.h from libpng-%.20s
Missing PLTE before IDAT
Missing IHDR before IDAT
PNG file corrupted by ASCII conversion
Not a PNG file
Ignoring extra png_read_update_info() call; row buffer not reallocated
Extra compressed data
Decompression error
Not enough image data
Invalid attempt to read row data
png_do_dither returned rowbytes=0
png_do_rgb_to_gray found nongray pixel
NULL row buffer for row %ld, pass %d
Call to NULL read function
Read Error
same structure.  Resetting write_data_fn to NULL.
It's an error to set both read_data_fn and write_data_fn in the
Out of Memory!
Error decoding compressed text
PNG unsigned integer out of range.
CRC error
Unknown zTXt compression type %d
Not enough memory for text.
Incomplete compressed datastream in %s chunk
Data error in compressed datastream in %s chunk
Buffer error in compressed datastream in %s chunk
Not enough memory to decompress chunk
Not enough memory to decompress chunk..
Not enough memory to decompress chunk.
Invalid IHDR chunk
Out of place IHDR
Truncating incorrect info tRNS chunk length
Truncating incorrect tRNS chunk length
Invalid palette chunk
Ignoring PLTE chunk in grayscale PNG
Duplicate PLTE chunk
Invalid PLTE after IDAT
Missing IHDR before PLTE
Incorrect IEND chunk length
No image in file
gamma = (%d/100000)
Ignoring incorrect gAMA value when sRGB is also present
Ignoring gAMA chunk with gamma=0
Incorrect gAMA chunk length
Duplicate gAMA chunk
Out of place gAMA chunk
Invalid gAMA after IDAT
Missing IHDR before gAMA
Incorrect sBIT chunk length
Duplicate sBIT chunk
Out of place sBIT chunk
Invalid sBIT after IDAT
Missing IHDR before sBIT
Invalid cHRM white point
gx=%f, gy=%f, bx=%f, by=%f
wx=%f, wy=%f, rx=%f, ry=%f
Ignoring incorrect cHRM value when sRGB is also present
Invalid cHRM blue point
Invalid cHRM green point
Invalid cHRM red point
Incorrect cHRM chunk length
Duplicate cHRM chunk
Missing PLTE before cHRM
Invalid cHRM after IDAT
Missing IHDR before cHRM
incorrect gamma=(%d/100000)
Unknown sRGB intent
Incorrect sRGB chunk length
Duplicate sRGB chunk
Out of place sRGB chunk
Invalid sRGB after IDAT
Missing IHDR before sRGB
Profile size field missing from iCCP chunk
Ignoring truncated iCCP profile.
Ignoring nonzero compression type in iCCP chunk
Malformed iCCP chunk
Duplicate iCCP chunk
Out of place iCCP chunk
Invalid iCCP after IDAT
Missing IHDR before iCCP
Invalid sPLT after IDAT
sPLT chunk requires too much memory
sPLT chunk too long
sPLT chunk has bad length
malformed sPLT chunk
Missing IHDR before sPLT
Duplicate tRNS chunk
Invalid tRNS after IDAT
tRNS chunk not allowed with alpha channel
Zero length tRNS chunk
Missing PLTE before tRNS
Incorrect tRNS chunk length
Missing IHDR before tRNS
Duplicate bKGD chunk
Missing PLTE before bKGD
Invalid bKGD after IDAT
Incorrect bKGD chunk index value
Incorrect bKGD chunk length
Missing IHDR before bKGD
Duplicate hIST chunk
Missing PLTE before hIST
Invalid hIST after IDAT
Incorrect hIST chunk length
Missing IHDR before hIST
Duplicate pHYs chunk
Invalid pHYs after IDAT
Incorrect pHYs chunk length
Missing IHDR before pHYs
Duplicate oFFs chunk
Invalid oFFs after IDAT
Incorrect oFFs chunk length
Missing IHDR before oFFs
Duplicate pCAL chunk
Invalid pCAL after IDAT
No memory for pCAL params.
Unrecognized equation type for pCAL chunk
Invalid pCAL parameters for equation type
Invalid pCAL data
No memory for pCAL purpose.
Missing IHDR before pCAL
Duplicate sCAL chunk
Invalid sCAL after IDAT
Invalid sCAL data
malformed height string in sCAL chunk
malformed width string in sCAL chunk
Out of memory while processing sCAL chunk
Missing IHDR before sCAL
Duplicate tIME chunk
Incorrect tIME chunk length
Out of place tIME chunk
Insufficient memory to process text chunk.
Not enough memory to process text chunk.
No memory to process text chunk.
Missing IHDR before tEXt
Insufficient memory to store zTXt chunk.
Not enough memory to process zTXt chunk.
Unknown compression type in zTXt chunk
Zero length zTXt chunk
Out of memory processing zTXt chunk.
Missing IHDR before zTXt
unknown critical chunk
invalid chunk type
Ignoring bad adaptive filter type
Extra compression data
Extra compressed data.
Decompression Error
Row has too many bytes to allocate in memory.
Ignoring attempt to set negative chromaticity value
Ignoring attempt to set chromaticity value exceeding 21474.83
Setting gamma=0
Limiting gamma to 21474.83
Setting negative gamma to zero
Invalid palette size, hIST allocation skipped.
Insufficient memory for hIST chunk data.
Invalid filter method in IHDR
Unknown filter method in IHDR
MNG features are not allowed in a PNG datastream
Unknown compression method in IHDR
Unknown interlace method in IHDR
Invalid color type/bit depth combination in IHDR
Invalid color type in IHDR
Invalid bit depth in IHDR
Width is too large for libpng to process pixels
Invalid image size in IHDR
image size exceeds user limits in IHDR
Image width or height is zero in IHDR
Insufficient memory for pCAL parameter.
Insufficient memory for pCAL params.
Insufficient memory for pCAL units.
Insufficient memory for pCAL purpose.
Invalid palette length
Insufficient memory to process iCCP profile.
Insufficient memory to process iCCP chunk.
iTXt chunk not supported.
No memory for sPLT palettes.
Out of memory processing unknown chunk.
Out of memory while processing unknown chunk.
too many length or distance symbols
incorrect length check
incorrect data check
invalid distance too far back
invalid distance code
invalid literal/length code
invalid distances set
invalid literal/lengths set
invalid bit length repeat
invalid code lengths set
invalid stored block lengths
invalid block type
header crc mismatch
unknown header flags set
incorrect header check
invalid window size
unknown compression method
incompatible version
buffer error
insufficient memory
data error
stream error
file error
stream end
need dictionary
z?aUY
zc%C1
-64OS
0u0|0
1.252l2p2t2x2|2
3(3,3034383<3@3D3H3L3P3T3X3\3`3d3$4
3;3Q3
406P6b6
7*8~8
9A:R:
566A6H6S6Z6e6l6w6
7 7*7
1*1C1P1d1}1
2i9s9
>)?U?
:5:p:
;$<L<t<
,0w0E3
=1=F=`=x=
>">8>J>
151V1l1
3#3M3T3
5I5[5n5
5 686E6T6
8U9w9
:a;h;o;
<-<@<b<
=*=;=h=
?+?@?W?l?
0I0m0
222n2~2
849f9
:2:\:
;&;8;O;v;
<*<T<z<
< =z=
061y1
222E2
3'3V3M4M5
606B6@7i7p7
3V4{4
=G>8?<?@?
040?0
1-1C1i1
1.2m2
343J3j3
4 4>4
44585<5@5D5
===h=
>(?a?
3@4E4
556u6
1&272O2
2D3R3j3z3
4/4H4
8_9s9
<b>B?
4,5O5U5
7%7\7
8,9O9U9
9O:c:
;#;X;
<k=M>
0S1m1
1n2<3
4:5R5j5
727J7b7
9*9B9
;2;J;b;
=.>H>
2'2v2
2N3g3
9:9S9
;";-;2;?;D;[;`;k;p;};
<4<9<D<I<`<e<p<u<
=-=@=D=H=L=P=T=X=\=`=d=h=l=p=t=x=|=
>9>&?
0*0B0!1O2
565R5i5w5
:4:r:.;
0:1o1
1*2>3R3Y3`3e3
3C4f4s4
4    5#5J5
5=6e6
7>7a7t7y7
818>8C8
<g<l<~<
>0>C>W>/?4???D?p?
0(0?0V0
0)161
3Z3{3
8%858
9*949K9[9
;+;;;
<,<7<A<X<h<
=6=;=W=\=N>y>
1'2?2J2T2k2
2%3,3T3l3w3
41464R4W4s4x4
898?8g8
9;9e9l9
9L:Q:m:r:
=(>H?
1o2t2
3(3-3M3R3r3w3
4+404L4Q4m4r4
5(6H7h8L9Q9q9v9
:*:/:O:T:t:y:
;);.;J;O;k;p;
>6>;>[>`>
<0A0]0b0~0
3e4o4u4
6&6A6
;&;7;
5*5/5?5D5
5    797J7e7
8 8p8t8x8|8
:E:[:
;-;W;
;)<S<}<
=6=Q=e=
=#>B>o>
1X2\2`2d2h2l2p2
: ;(;i;x;~;
<C<P<V<z<
%0H0k0
5]5j5p5
6)6I6V6\6
;,<8<M<
5X6\6`6d6h6l6p6
8B8a8
:$:J:f:R;
>'>3>;>I>
?T?Y?
0I1}1
4B4w4
4/5U5
9:9m9
<><z<
2F2e2v2
3Y3|3
4L5p5
4W4^4
41575<7
<$<9<N<c<x<
= =5=J=_=
>#>/>>>J>Y>e>t>
>I?b?{?
+030;0C0K0S0[0c0
181D1P1a1k1{1
3+3I3_3
4*4`4v4
=$=.=B=N=j=q=
>,>6>J>V>r>|>
?&?/?R?
0'0]1F2y2
9);e;
;R>i>
2y3W5
5_7h7l7p7t7x7|7
<a>o>
3;4I4
1$191
2"2f2y2
:0:8:A:S:a:m:
:6;<;M;~;
;"<`<o<
?"?0?>?E?T?]?n?
0$0G0
2'242
3N4k4
4k5w5
6C7A8J8e8z8
979I9O9X9g9
:(:1:S:Z:i:
;&;3;:;@;H;N;Y;a;
>(>3>9>>>D>Q>n>t>
?,?2?C?
6!656
9c:q:
:H;`;g;o;t;x;|;
<V<\<`<d<h<
=)=S=
0(0I0
141i1p1
112_2m2
3t3|3
4"5K5
777E7S7
8'878=8E8f8l8w8
:.:4:@:E:M:S:Z:`:g:m:u:{:
;W<t<
=/=?=Q=V=    >
>3>c>u>z>
?$?*?;?@?K?P?j?
-030?0o0~0
1(1z1P2i2
2-343B3L3e3q3}3
4T4d4p4w4
4o5t5
5D6}6
607E7d7v7
<$=?=P=
0^1x1
3'3V3
3E4N4T4
5P5W5u5{5
5,656@6{6
8Y8e8}8
9/:7:
:?;l;
2H2e2y2
6+7e7
8%838f8y8
9/:1;B>X>t>
>(?@?G?O?T?X?\?
60<0@0D0H0
0    131e1l1p1t1x1|1
7&7+74797l7
9+929C9J9X9l9
:>:k:{:
:(;D;
;#<5<
=f=t=
=%>9>
?G?p?
0%040K0`0
2!2;2G2Y2g2
3#3C3I3j3p3
4+494C4P4Z4g4p4y4
5#5/5^5o5
6Y7f7q7w7
9%9-9D9R9W9a9
:$:):F:V:n:
<Z<m<y<
<%=s=
>%>4>=>F>s>
?%?-?
6    8$8u8
9 9B9}9
3!3%3)3-3135393=3A3
4+4Z4~4
5"6/6
7Y7Y879
<*<4<<<l<v<
<!=-=W=    ?
?%?0?A?L?m?x?
2$2N2r2
3$313v3
4$5Y5
6T6Z6j6
6$7*7>9{:
:0;s;};
0 1G1
2>2C2d2
2U3@5
2$2,242<2D2L2T2\2d2l2t2|2
3$3,343<3D3L3T3\3d3l3t3|3
4$4,444<4D4L4T4\4d4l4t4|4
5$5,545<5D5L5T5\5d5l5t5|5
6$6,646<6D6L6T6\6d6l6t6|6
7$7,747<7D7L7T7\7d7l7t7|7
8$8,848<8D8L8T8\8d8l8t8|8
9$9,949<9D9L9T9\9d9l9t9|9
:$:,:4:<:D:L:T:\:d:l:t:|:
;$;,;4;<;D;L;T;\;d;l;t;|;
<$<,<4<<<D<L<T<\<d<l<t<|<
=$=,=4=<=D=L=T=\=d=l=t=|=
>$>,>4><>D>L>T>\>d>l>t>|>
?$?,?4?<?D?L?T?\?d?l?t?|?
0$0,040<0D0L0T0\0d0l0t0|0
1$1,141<1D1L1T1\1d1l1t1|1
2$2,242<2D2L2T2\2d2l2t2|2
3$3,343<3D3L3T3\3d3l3t3|3
4$4,444<4D4L4T4\4d4l4t4|4
5$5,545<5D5L5T5\5d5l5t5|5
6$6,646<6D6L6T6\6d6l6t6|6
7$7,747<7D7L7T7\7d7l7t7|7
8$8,848<8D8L8T8\8d8l8t8|8
9$9,949<9D9L9T9\9d9l9t9|9
:$:,:4:<:D:L:T:\:d:l:t:|:
;$;,;4;<;D;L;T;\;d;l;t;|;
<$<,<4<<<D<L<T<\<d<l<t<|<
=$=,=4=<=D=L=T=\=d=l=t=|=
>$>,>4><>D>L>T>\>d>l>t>|>
?$?,?4?<?D?L?T?\?d?l?t?|?
0$0,040<0D0L0T0\0d0l0t0|0
1$1,141<1D1L1T1\1d1l1t1|1
2$2,242<2D2L2T2\2d2l2t2|2
4$4(40444<4@4H4L4T4X4`4d4l4p4x4|4
5 5$5,5
70747T7X7x7|7
8,808P8T8t8x8
:P;`;p;
<8<H<T<X<d<h<
1$1(1
; ;,;8;
4383@3D3L3P3
5 5T6X6h6x6
0(0@0D0H0L0P0T0X0\0`0d0h0l0p0t0x0|0
0@1D1H1L1T1X1\1`1d1h1l1p1x1|1
<$<<<@<D<
L0P0T0X0\0`0L2T2\2d2l2t2|2
2J3N3R3V304@4D4L4
7"7&7*7.72767:7>7B7F7J7N7R7V7Z7^7b7f7j7n7r7v7z7~7
7(8084888<8@8D8H8L8P8T8X8\8`8d8h8l8p8t8x8|8
9<9D9L9T9\9d9l9t9|9
gggg`
vvvvp
gggg`
vvvvp
gggg`
vvvvp
gggg`
gggg`
wwwwwwwwwwwp
gggggggggg`p
vvvvvvvvvvpp
gggggggggg`p
vvvvvvvvvvpp
gggggggggg`p
vvvvvvvvvvpp
gggggggggg`p
vvvvvvvvvvpp
gggggggggg`p
vvvvvvvvvvpp
gggggggggg`p
vvvvvvvvvvpp
gggggggggg`p
vvvvvvvvvvpp
gggggggggg`p
vvvvvvvvvvpp
gggggggggg`p
wwwww
wwwww
wwwww
gggggggggg`p
vvvvvvvvvvpp
gggggggggg`p
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _1WE14QM5X1087766862
 COMMENT RESERVED
VERSION =   3.00
frxpreview.hf;
foxpro_reporting.hn<
frxpreview_loc.hv=}GO7
excellistener
frxpreview.h
Pixels
Class
fxlistener
excellistener
coutputalias
coutputdbf
loutputtocursor
closeondeactivate
nlastpercent
cworkbookfile
cworksheetname
applyexcelstyleprogram
cexcelstyle
waitfornextreport
ldefaultmode
cfrxalias
lobjtypemode
targetfilename
lopenviewer
ccodepage
ctempfrx
lalignleft
nexcelsaveformat
setstrictdate
*isnumber
*xml_numberformat
*xml_file_header
*xml_style
*xml_workbook_header
*xml_worksheet_header
*xml_row_header
*xml_row_footer
*xml_cell
*xml_table_header
*xml_workbook_footer
*xml_worksheet_footer
*xml_stylenumber
*xml_type
*xml_styles_header
*xml_styles_footer
*xml_table_footer
*xml_encode
*calcbandnumbers
*xextractexcelcol
*applyexcelstyle
*islonghorizontalline
*isshorthorizontalline
*calcbasefilename
*calcnextfilename
*xml_names_header
*xml_name
*xml_names_footer
*outputfromdata
*updateproperties
*topurexlsusingexcel
*topurexlsusingoo
*showtherm
0123456789.,$
0123456789.,$
TCCONTENTS
LLISNUMBER
LCALIAS
LLALLDIGITS
LCTEST
LNTIMES
LNPOS
LNOLDPOS
LNLOOP
SETPOINT
SETSEPARATOR`
NUMBER
###,###,##0
########0
DATETIME
Short Date
String
TCCONTENTS
LCTYPE
XML_TYPE
LCPOINT
LCSEPAR
SETPOINT
SETSEPARATOR
LCFORMAT
ISO-8859-1
CP950
CP936
UTF-8
Windows-CC
<?xml version="1.0" encoding="<<lcEncoding>>"?>
<?mso-application progid="Excel.Sheet"?>
LCRETVAL
LCCODEPAGE
LCENCODING
THIS
CCODEPAGE
LCONVERTTOUTF8
 ss:FontName="CC
 ss:Size="CCC
000000
 ss:Color="#
 ss:Bold="1"
 ss:Italic="1"
 ss:Format="C
LEFTCC
 ss:Horizontal="Left"
CENTERCC
 ss:Horizontal="Center"
RIGHTCC
 ss:Horizontal="Right"
<Borders/>
<Borders>
"Bottom"
SINGLE
"Continuous"
<Border ss:Position=
 ss:LineStyle=
 ss:Weight=
</Borders>
FFFFFF
<Interior/>
 ss:Pattern=CCC
"Solid"
 ss:Color=CCC
"#FFFFFF"
 ss:PatternColor=
<Interior
  <Style ss:ID="<<'s' + TRANSFORM(tnID,'@L 99')>>">
   <Alignment ss:Vertical="Bottom" <<lcHorizontalAlignment>>/>
   <<lcBorders>>
   <Font<<lcFont>>/>
   <<lcInterior>>
   <NumberFormat<<lcNumberFormat>>/>
   <Protection/>
  </Style>
LCFONT
PASTYLES
LCTEXTCOLOR
LCBOLD
LCITALIC
LCFAMILY
LCNUMBERFORMAT
LCHORIZONTALALIGNMENT
LABORDERS
LABORDER
LCPOSITION
LCLINESTYLE
LCWEIGHT
LCBORDER
LCBORDERS
LAINTERIOR
LCINTERIOR
LCPATTERN
LCCOLOR
LCPATTERNCOLOR
LCRETVALW
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o="urn:schemas-microsoft-com:office:office"
 xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:html="http://www.w3.org/TR/REC-html40">
LCRETVALi
<Worksheet ss:Name="<<tcWorksheetName>>">
TCWORKSHEETNAME
LCRETVAL
<Row ss:Index="<<ALLTRIM(TRANSFORM(ExcelRow))>>" ss:AutoFitHeight="1">
LCRETVAL
</Row>C
DATETIME
STRING
@L 9999_
@L 99_
@L 99_
T00:00:00.000
NUMBER
Currency
STRING
STRING
 ss:MergeAcross="CC
99999
STRING
<Data ss:Type="C
</Data>
 ss:Formula="C
<NamedCell ss:Name="C
=Sheet1!R
<Cell  ss:Index="CC
 ss:StyleID="s
@L 99_
</Cell>
TCCONTENTS
TCUNICODE
TNSTYLENUMBER
LCORIGCONTENTS
LCSTYLE
PASTYLES
LCRETVAL
SETSEPARATOR
SETPOINT
LLUSEUNICODE
LLCHINESE
CCODEPAGE
LCUNVALUE
LNUNVALUE
LCNEWCONTENTS
LNCHARS
LCMERGEACROSS
NEXCELMERGEACROSS
LCDATA
LCINSERTFORMULA
LCNAMEDCELL
CEXCELINSERTFORMULA
CEXCELNAMEDCELL
CEXCELNAMEDRANGE
EXCELROW
EXCELCOLE
<Column ss:Index="
 ss:AutoFitWidth="
 ss:Width="
<Table ss:ExpandedColumnCount="<<ja[1]>>" ss:ExpandedRowCount="<<ja[2]>>" x:FullColumns="1"
 x:FullRows="1" ss:StyleID="s21"><<lcColumns>>
TNROWS
TNCOLS
LCRETVAL
LCCOLUMNS
EXCELCOL
EXCELROW
COUTPUTALIAS
PACOLDATA#
</Workbook>C
 </Worksheet>
LCRETVAL@
Number
DateTime
Short Date
TCCONTENTS
LCTYPE
LCNUMBERFORMAT
LCKEY
XML_TYPE
XML_NUMBERFORMAT
FONTFACE
FONTSIZE
FONTSTYLE
CEXCELALIGNMENT
CEXCELBORDER
CEXCELINTERIOR
PASTYLES
String
DateTime
Number
DateTime
String
String
TCCONTENTS
LCTYPE
LCSETDATE
SETDATEANSI
ISNUMBER
<Styles>C
</Styles>C
</Table>C
TCCONTENTS
TCCHAR
LCVALUE
WINDOWS
WINDOWS
LABANDS
LNVPOS
LNSELECT
G_PIXELSIZE
G_BANDHEIGHT
G_BANDFUDGE
OBJCODE
HEIGHT
THIS
CFRXALIAS
PLATFORM
OBJTYPE
LNVPOSBOTTOM
0000000
TCCOMMENTT
&tcExcelStyle.(tnOption,This)
TCEXCELSTYLE
TNOPTION
COUTPUTALIAS;
TCEXPR9
TCEXPR
REP_C
@L 99_
REP_C
@L 99_
REP_??.
TCWORKBOOK
LCFILENAME
LADIR
TCEXTENSION
@L 99_
@L 99_
TCWORKBOOK
LCBASENAME
LCFILENAME
LADIR
<Names>C
  <NamedRange ss:Name="
" ss:RefersTo="
LCRETVAL
LAITEMS
PANAMES
</Names>C
Invalid parameter. Report listener not available
Error
The helper FRX table is not available. Output can't be created
Error
Datasessionv
FRXCopy
FRXCopy
REPLACE ALL Contents WITH  strt(strt(strt(STRCONV(Contents, 6),'&','&'),'>','>' ),'<','<')
TOLISTENER
TCOUTPUTDBF
THIS
SHOWTHERM
CFRXALIAS
LNSELECT
LNORIGDATASESSION
LISTENERDATASESSION
LDEFAULTMODE
FRXCOPY
COUTPUTDBF
COUTPUTALIAS
CALCBANDNUMBERS
NOREPEAT
OBJTYPE
OBJCODE
LCRENDERALIAS
LNPGFROM
LNPGTO
_GOHELPER
_CLAUSENRANGEFROM
_CLAUSENRANGETO
FRXRECNO
NFRXRECNO
NLEFT
WIDTH
NWIDTH
HEIGHT
NHEIGHT
UNCONTENTS
CONTENTS
NPAGENO
AFTERREPORT
LOEXCL
xls;xml
LOBJTYPEMODE
OFOXYPREVIEWER
COMMANDCLAUSES
LOPENVIEWER
PREVIEW
TOFILE
TARGETFILENAME
CDESTFILE
LCDESTFILE
COUTPUTPATH
LCFILE
_REPORTLISTENER
CANCELREPORT
QUIETMODE
LQUIETMODE
Spreadsheet file
excel.application
LOGICAL
excel.application
TCSOURCE
TCDESTINATION
LOEXCEL
LLRETURN
ALERTBEFOREOVERWRITING
DISPLAYALERTS
WORKBOOKS
ACTIVEWORKBOOK
SAVEAS
NEXCELSAVEFORMAT
ACTIVEWINDOW
CLOSE
LOEXC
Spreadsheet file
TCSOURCE
TCDESTINATION
LLRETURN
PR_OOXML2XLS
PLEASEWAIT
TNVALUE
TCTEXT
TCTITLE
_GOHELPER
LQUIETMODE
DOFOXYTHERM
_RUNSTATUSTEXT
GETLOC
lDefaultMode
DATASESSIONv
FRXDataSession
LDEFAULTMODE
FRXDATASESSION
RESETTODEFAULT
RESETDATASESSION
UPDATEPROPERTIESo!
SELECT 00000 AS ExcelRow,000 AS ExcelCol,  UPPER(PADR(Expr,100)) AS cExpr,PADR(User,3) AS cUser,PADR(UPPER(Contents),100) AS cContents,  OA.*,  00000 AS nExcelColRequest,00000 AS nExcelSpecialColRequest,00000 AS nExcelMergeAcross,  00000.00 AS nExcelColWidth,SPACE(50) AS cExcelAlignment,  SPACE(100) AS cExcelBorder,SPACE(100) AS cExcelInterior,  SPACE(100) AS cExcelInsertFormula,SPACE(100) AS cExcelNamedRange,SPACE(100) AS cExcelNamedCell,  0 AS nUnderlinedColCount,  .F. AS lDelete,  &lcFRXAlias..*  FROM (this.cOutputAlias) OA  JOIN (This.cFRXalias) ON (OA.nFrxRecno = &lcFRXalias..nRecno  AND NOT INLIST(ObjType, 6, 7, 17))  INTO CURSOR (this.cOutputAlias) READWRITE
@L 999999_C
@L 999999_
@L 999999_C
@L 999999_
@L 999999_
_PAGENOC
Widths
Solid,CCCC
Horizontal,Left
Horizontal,Right
Horizontal,Center66
Horizontal,Left
<data> <datos>
</datos> </data>
PageTop
@L 999999_C
@L 999999_
@L 999999_C
@L 999999_
Lefts
@L 999999_
Sheet1
ADDITIVE
ADDITIVE
WINDOWS
Lucida Console
RowCol
TEMP5
Error creating file:
Error
Safetyv
SET SAFETY &lcOldSetSafe.
xlConv2xls
Report is too big to be exported to the Excel format.C
Please revise the created document because it will be incomplete!
Attention
XLTOOBIG
ATTENTION
LEFTSW
PAGETOPW
THIS
SHOWTHERM
LDEFAULTMODE
SETFRXDATASESSION
CFRXALIAS
NRECNO
NSECS
LCFRXALIAS
NFRXRECNO
OBJTYPE
EXCELROW
EXCELCOL
NPAGENO
CEXPR
CUSER
ROWCOL
PAGROWCOL
LREPEATHEADERS
LREPEATFOOTERS
LNMINPAGE
LNMAXPAGE
COUTPUTALIAS
LAPAGES
LHIDEPAGENO
EXPR
CCONTENTS
PNROWHEIGHT
PNCOLWIDTH
NWIDTH
WIDTHS
FILLRED
PENRED
PENGREEN
PENBLUE
FILLGREEN
FILLBLUE
CEXCELINTERIOR
LALIGNLEFT
CEXCELALIGNMENT
OFFSET
APPLYEXCELSTYLE
CEXCELSTYLE
LCCOMMENT
COMMENT
NEXCELCOLREQUEST
XMLRESULT
NEXCELSPECIALCOLREQUEST
EXCELSPECIALCOL
EXCELDELETE
NEXCELCOLWIDTH
EXCELCOLWIDTH
EXCELALIGNMENT
EXCELALIGN
NEXCELMERGEACROSS
EXCELMERGEACROSS
CEXCELBORDER
EXCELBORDER
EXCELINTERIOR
NEXCELUNDERLINEDCOLCOUNT
EXCELUNDERLINEDCOLCOUNT
CEXCELINSERTFORMULA
EXCELINSERTFORMULA
CEXCELNAMEDRANGE
EXCELNAMEDRANGE
CEXCELNAMEDCELL
EXCELNAMEDCELL
DISTINCT
PAGETOP
PAGTOP
LNLASTTOP
LNLASTROW
LNLASTPAGENO
LLSKIPPED
LNOLDPAGE
LLNEWPAGE
LNLASTLEFT
LNLASTCOL
LLASSIGNEDCOL
LNEXCELCOL
NLEFT
CPARSEORDER
LEFTS
LEFORD
LACOUNT
LNTHISLEFT
COUNT
PNMAXCOL
PACOLDATA
LNCOLDATA
CWORKBOOKFILE
LUWORKBOOK
CALCBASEFILENAME
LCWORKSHEETNAME
CWORKSHEETNAME
LCOPCIONES
LLERASEOK
CALCNEXTFILENAME
PASTYLES
FONTFACE
FONTSIZE
FONTSTYLE
PLATFORM
OBJCODE
LCXMLTABLE
LCCRLF
XML_TABLE_HEADER
LILASTROW
LILASTCOL
LICURRROW
LICURRCOL
LIREC
LCPREVCONTENTS
CONTENTS
LLINCOMPLETE
LNRECS
LN100
XML_ROW_FOOTER
XML_ROW_HEADER
LNSTYLENUMBER
XML_STYLENUMBER
XML_CELL
UNCONTENTS
XML_TABLE_FOOTER
LCXML
XML_FILE_HEADER
XML_WORKBOOK_HEADER
XML_STYLES_HEADER
XML_STYLE
XML_STYLES_FOOTER
PANAMES
XML_NAMES_HEADER
XML_NAME
XML_NAMES_FOOTER
XML_WORKSHEET_HEADER
SETSTRICTDATE
LCTEMPFILE
LNHANDLE
XML_WORKSHEET_FOOTER
XML_WORKBOOK_FOOTER
LLSAVED
LCONVERTTOUTF8
LCXMLWKS
LCOLDSETSAFE
TARGETFILENAME
LCONVERTTOXLS
_GOHELPER
GETLOC
TOPUREXLSUSINGEXCEL
TOPUREXLSUSINGOO
LOBJTYPEMODE
OFOXYPREVIEWER
LSAVED
LOPENVIEWER
SHELLEXEC
SETCURRENTDATASESSION
CTEMPFRX
GetDeviceCaps
WIN32API
GetDC
WIN32API
ReleaseDC
WIN32API
GetWindowDC
WIN32API
SetSeparatorC
Separatorv
SetPointC
Pointv
SetDateC
Datev
SetDateAnsiCC
Datev
GERMAN
lConvertToXLSa
lRepeatHeadersa
lRepeatFootersa
lHidePageNo-
lUseUnicode-
lConvertToUTF8-
GETDEVICECAPS
WIN32API
GETDC
RELEASEDC
GETWINDOWDC
ADDPROPERTY<
CopyFRX
Datev
Strictdatev
LDEFAULTMODE
LOBJTYPEMODE
LOUTPUTTOCURSOR
COUTPUTDBF
COUTPUTALIAS
SETFRXDATASESSION
CTEMPFRX
CFRXALIAS
CALCBANDNUMBERS
NOREPEAT
OBJTYPE
OBJCODE
NFRXRECNO
NLEFT
NWIDTH
NHEIGHT
CONTENTS
UNCONTENTS
NPAGENO
SETCURRENTDATASESSION
SETDATE
SETSTRICTDATE
cContents = strt(strt(strt(lcTmpContent,'&','&'),'>','>' ),'<','<')
NFRXRECNO
NLEFT
NWIDTH
NHEIGHT
NOBJECTCONTINUATIONTYPE
CCONTENTSTOBERENDERED
GDIPLUSIMAGE
TWOPASSPROCESS
CURRENTPASS
LOUTPUTTOCURSOR
CCONTENTS
LCTMPCONTENT
SETFRXDATASESSION
COUTPUTALIAS
CONTENTS
UNCONTENTS
NPAGENO
PAGENO
SETCURRENTDATASESSION
DRIVINGALIAS
MACDESKTOP
SCREEN
MACDESKTOP
SCREEN
CMESSAGE
LOPARENTFORM
LCCAPTION
LCPARENTFORMNAME
THIS
QUIETMODE
ISRUNNING
COMMANDCLAUSES
NODIALOG
NLASTPERCENT
PERCENTDONE
THERMCAPTION
THERMFORM
CREATETHERM
CLOSABLE
MOVABLE
THERM
VALUE
THERMLABEL
CAPTION
VISIBLE
GETPARENTWINDOWREF
DESKTOP
MACDESKTOP
SHOWWINDOW
ALWAYSONTOP
AUTOCENTER8
SETFRXDATASESSION
SETSEPARATOR
SETPOINT
isnumber,
xml_numberformat\
xml_file_header
xml_style
xml_workbook_header"
xml_worksheet_header
xml_row_header
xml_row_footer
xml_cell
xml_table_headerA
xml_workbook_footer
xml_worksheet_footer
xml_stylenumberc
xml_typeO
xml_styles_headerI"
xml_styles_footerm"
xml_table_footer
xml_encode
calcbandnumbers3#
xextractexcelcol
applyexcelstyle    &
islonghorizontalline
isshorthorizontalline
calcbasefilename
calcnextfilename
xml_names_header
xml_name
xml_names_footer
outputfromdata
updateproperties
topurexlsusingexcel
topurexlsusingoo
showtherm
setfrxdatasession
LoadReport#:
AfterReportX:
BeforeReport(f
Render
Destroy
DoStatus
setfrxdatasessionenvironment
(}PROCEDURE isnumber
LPARAMETERS tcContents
LOCAL llIsNumber, lcAlias, llAllDigits
tcContents  = ALLTRIM(tcContents)
llAllDigits = LEN(CHRTRAN(tcContents, '0123456789.,$', "")) = 0
IF llAllDigits
    * Preliminary test
    * Check if the separator symbols have a distance of 3 chars
    LOCAL lcTest, lnTimes, lnPos, lnOldPos, lnLoop
    lcTest = tcContents
    IF OCCURS(This.SetPoint, lcTest) = 1
        lcTest = LEFT(lcTest, AT(This.SetPoint, lcTest) - 1)
    ENDIF
    lnTimes = OCCURS(This.SetSeparator, lcTest)
    lnOldPos = 0
    IF lnTimes > 0
        FOR lnLoop = 1 TO lnTimes
            lnPos = AT(This.SetSeparator, lcTest, lnLoop)
            IF lnLoop > 1
                IF lnPos - lnOldPos <> 4
                    RETURN .F. && Not a number
                ENDIF
            ENDIF
            lnOldPos = lnPos
        ENDFOR
        IF LEN(lcTest) - AT(This.SetSeparator, lcTest, lnTimes) <> 3
            RETURN .F. && Not a number
        ENDIF
    ENDIF
ENDIF
* 06/09/09 Generic method using value of FillChar in report file!
*!*        lcAlias = ALIAS()
*!*        llIsNumber = &lcAlias..FillChar = 'N'
DO CASE
    *!*            CASE &lcAlias..FillChar = 'N'
    *!*                llIsNumber = .T.
    *!*            CASE &lcAlias..FillChar = 'C'
    *!*                llIsNumber = .F.
    * 02/01/07 Case added by Andrus Moor to handle dd.mm.yyyy date format.
    * Not very satisfying...  need to devise something more explicit and general.
    *        CASE OCCURS('.', tcContents) > 1
    * CChalom - Check XML_Type method, a new checking was added there
    * 2010/08/08 Fix by Jaketon / CChalom, when SET("POINT") = ","
    *!*            CASE FillChar = "N"
    *!*                llIsNumber = .T.
CASE (" " $ tcContents) OR ("%" $ tcContents)
    llIsNumber = .F.
CASE llAllDigits AND LEN(CHRTRAN(tcContents, ".,$", "")) > 15 && Excel can't deal with numbers of more than 15 positions
    llIsNumber = .F.
CASE OCCURS(This.SetPoint, tcContents) > 0 AND ;
        OCCURS(This.SetSeparator, tcContents) > 0 AND ;
        (AT(This.SetPoint, tcContents) < AT(This.SetSeparator, tcContents))
    llIsNumber = .F.
CASE OCCURS(This.SetPoint, tcContents) > 1
    llIsNumber = .F.
CASE LEN(tcContents) = 0
    llIsNumber = .F.
    * 2011-02-23 Fix by Julio Laborin (Mexico)
    * CASE LEN(CHRTRAN(tcContents, '0123456789.,$', '')) = 0
CASE llAllDigits AND LEFT(tcContents, 2) = "0" + This.SetPoint
    llIsNumber = .T.
CASE LEFT(tcContents, 1) = "0" AND NOT EMPTY(SUBSTR(tcContents,2,1)) AND (SUBSTR(tcContents,2,1) <> This.SetPoint)
    llIsNumber = .F.
CASE llAllDigits AND SUBSTR(tcContents,1,1) <> "0"
    llIsNumber = .T.
CASE llAllDigits AND VAL(tcContents) = 0
    llIsNumber = .T.
OTHERWISE
    llIsNumber = (LEFT(tcContents,1) = '-' AND LEN(CHRTRAN(SUBSTR(tcContents,2),'0123456789.,$','')) = 0)
ENDCASE
RETURN llIsNumber
ENDPROC
PROCEDURE xml_numberformat
LPARAMETERS tcContents
LOCAL lcType
lcType = UPPER(This.Xml_Type(tcContents))
DO CASE
    CASE lcType = 'NUMBER'
        *    IF AT(',',tcContents) > 0
        *        lcFormat = '###,###,##0'
        *    ELSE
        *        lcFormat = '########0'
        *    ENDIF
        *    IF AT('.',tcContents) > 0
        *        lcFormat = lcFormat + '.' + REPLICATE('0',LEN(tcContents) - AT('.',tcContents))
        *    ENDIF
        *    2010/08/08 Fix by Jaketon / CChalom, when SET("POINT") = ","
        LOCAL lcPoint, lcSepar
        lcPoint = This.SetPoint
        lcSepar = This.SetSeparator
        IF AT(lcSepar, tcContents) > 0
            lcFormat = '###,###,##0'
*            lcFormat = '###' + lcSepar + '###' + lcSepar + '##0'
        ELSE
            lcFormat = '########0'
        ENDIF
        IF AT(lcPoint, tcContents) > 0
*            lcFormat = lcFormat + lcPoint + REPLICATE('0',LEN(tcContents) - AT(lcPoint, tcContents))
            lcFormat = lcFormat + "." + REPLICATE('0',LEN(tcContents) - AT(lcPoint, tcContents))
        ENDIF
    CASE lcType = 'DATETIME'
        lcFormat = 'Short Date'
    OTHERWISE
        lcFormat = 'String'
ENDCASE
RETURN lcFormat
ENDPROC
PROCEDURE xml_file_header
LOCAL lcRetVal, lcCodePage, lcEncoding
IF EMPTY(This.cCodePage)
    lcCodePage = TRANSFORM(CPCURRENT())
ELSE
    lcCodePage = ALLTRIM(This.cCodePage)
ENDIF
* Let's use ISO-8859-1 instead of Windows-1252, to make it compatible with LibreOffice
* Still need checking from people that use different CodePages
DO CASE
CASE "1252" $ lcCodePage
    lcEncoding = "ISO-8859-1"
CASE INLIST(lcCodePage, "CP950", "CP936", "950", "936")  && Chinese
    lcEncoding = "UTF-8"
    This.lConvertToUTF8    = .T.
*    lcEncoding = "GB2312"
OTHERWISE
    * lcEncoding = "Windows-" + IIF("CP" $ lcCodePage, "", "CP") + lcCodePage && comment by amaximum
    lcEncoding = "Windows-" + IIF(LEFT(lcCodePage, 2) = "CP", SUBSTR(lcCodePage, 3), lcCodePage)
ENDCASE
TEXT TO lcRetVal TEXTMERGE NOSHOW PRETEXT 2
<?xml version="1.0" encoding="<<lcEncoding>>"?>
<?mso-application progid="Excel.Sheet"?>
ENDTEXT
*!*    * Original code from Alejandro Sosa
*!*    TEXT TO lcRetVal NOSHOW PRETEXT 2
*!*    <?xml version="1.0"?>
*!*    <?mso-application progid="Excel.Sheet"?>
*!*    ENDTEXT
* Cancelled Andrus Moor'update because the resulting header would not allow the
* XML to be opened by LIBREOFFICE
* 02/01/07 Change by andrus Moor
*!*    TEXT TO lcRetVal TEXTMERGE NOSHOW PRETEXT 2
*!*    <?xml version="1.0" encoding="Windows-<<TRANSFORM(CPCURRENT())>>"?>
*!*    <?mso-application progid="Excel.Sheet"?>
*!*    ENDTEXT
RETURN lcRetVal + CHR(13) + CHR(10)
*!*    Microsoft's
*!*    ISO Code Page Charts
*!*    Globalization site: GlobalDev
*!*    ISO Code Pages at Microsoft's site
*!*    ISO/IEC 8859-1 (Latin 1)
*!*    ISO/IEC 8859-2 (Latin 2)
*!*    ISO/IEC 8859-3 (Latin 3)
*!*    ISO/IEC 8859-4 (Baltic)
*!*    ISO/IEC 8859-5 (Cyrillic)
*!*    ISO/IEC 8859-6 (Arabic)
*!*    ISO/IEC 8859-7 (Greek)
*!*    ISO/IEC 8859-8 (Hebrew)
*!*    ISO/IEC 8859-9 (Turkish)
*!*    ISO/IEC 8859-15 (Latin 9)
ENDPROC
PROCEDURE xml_style
LPARAMETERS tnID
*!*    IF "936" $ This.cCodepage && We are not setting fonts for Chinese
*!*                                && Let's allow Excel to use the one it has default for the language
*!*        lcFont = ""
*!*    ELSE
*!*        lcFont     = IIF(EMPTY(paStyles[tnId-20,2]),'',[ ss:FontName="] + ALLTRIM(paStyles[tnId-20,2]) + ["])
*!*    ENDIF
lcFont     = IIF(EMPTY(paStyles[tnId-20,2]),'',[ ss:FontName="] + ALLTRIM(paStyles[tnId-20,2]) + ["])
* 2010.01.30 - CChalom: Fix in the name of the field, correct = "Size"
lcFont     = lcFont + IIF(EMPTY(paStyles[tnId-20,3]),'',[ ss:Size="] + ALLTRIM(TRANSFORM(paStyles[tnId-20,3])) + ["])
*lcFont     = lcFont + IIF(EMPTY(paStyles[tnId-20,3]),'',[ ss:FontSize="] + ALLTRIM(TRANSFORM(paStyles[tnId-20,3])) + ["])
* 2010.01.30 - CChalom: Create a tag for the text color
LOCAL lcTextColor
lcTextColor = ALLTRIM(GETWORDNUM(paStyles[tnId-20,9],3,","))
IF NOT EMPTY(lcTextColor) AND lcTextColor <> "000000"
    lcFont     = lcFont + IIF(EMPTY(lcTextColor),'',[ ss:Color="#] + lcTextColor + ["])
ENDIF
lcBold     = IIF(BITTEST(paStyles[tnId-20,4],0), [ ss:Bold="1"],'')
lcItalic = IIF(BITTEST(paStyles[tnId-20,4],1), [ ss:Italic="1"],'')
lcFamily = ''  && IIF(EMPTY(lcBold) AND EMPTY(lcItalic),'',[ x:Family="Modern"])
lcFont   = lcFont + lcFamily + lcBold + lcItalic
lcNumberFormat = IIF(EMPTY(paStyles[tnId-20,6]),'',[ ss:Format="] + paStyles[tnId-20,6] + ["])
*lcHorizontalAlignment = IIF(paStyles[tnId-20,7] = 2,[ ss:Horizontal="Center"],'')
DO CASE
    CASE 'LEFT' $ UPPER(paStyles[tnId-20,7])
        lcHorizontalAlignment = [ ss:Horizontal="Left"]
    CASE 'CENTER' $ UPPER(paStyles[tnId-20,7])
        lcHorizontalAlignment = [ ss:Horizontal="Center"]
    CASE 'RIGHT' $ UPPER(paStyles[tnId-20,7])
        lcHorizontalAlignment = [ ss:Horizontal="Right"]
    OTHERWISE
        lcHorizontalAlignment = ''
ENDCASE
*!* ExcelBorders format: <ExcelBorders>Top,Single,1;Bottom,Double,3</ExcelBorders>
*!*       <Borders>
*!*        <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>
*!*        <Border ss:Position="Bottom" ss:LineStyle="Double" ss:Weight="3"/>
*!*       </Borders>
LOCAL laBorders[1],laBorder[1],i,j,lcPosition,lcLineStyle,lcWeight,lcBorder,lcBorders
ALINES(laBorders,paStyles[tnId-20,8],1,';')
IF EMPTY(laBorders[1])
    lcBorders = '<Borders/>'
    lcBorders = '<Borders>'
    FOR m.i = 1 TO ALEN(laBorders,1)
        ALINES(laBorder,laBorders[m.i],1,',')
        DIMENSION laBorder[3]
        IF EMPTY(laBorder[1])
            LOOP
        ENDIF
        lcPosition  = IIF(EMPTY(laBorder[1]),["Bottom"],["]+laBorder[1]+["])
        lcLineStyle = IIF(EMPTY(laBorder[2]) OR UPPER(laBorder[2]) = 'SINGLE',["Continuous"],["]+laBorder[2]+["])
        lcWeight    = IIF(EMPTY(laBorder[3]),["1"],["]+laBorder[3]+["])
        lcBorder    = [<Border ss:Position=]+lcPosition+[ ss:LineStyle=]+lcLineStyle + [ ss:Weight=] + lcWeight + [/>]
        lcBorders = lcBorders + lcBorder
    ENDFOR
    lcBorders = lcBorders + '</Borders>'
ENDIF
*!* Interior properties.
*!*        Color         = Background Color
*!*        Pattern         = "Solid" --> no pattern, "Gray125", "ThinVert ss:Pattern="Solid"Stripe"
*!*        PatternColor
*!* Samples:
*!*    <ExcelInterior>Solid,FFFF00</ExcelInterior>
*!*        <Interior ss:Color="#FFFF00" ss:Pattern="Gray125"/>
*!*    <ExcelInterior>Gray125,FFFFFF,000000</ExcelInterior>
*!*        <Interior ss:Color="#FFFFFF" ss:Pattern="Gray125" ss:PatternColor="#000000"/>
*!*    <ExcelInterior>ThinVertStripe,FFFF00,00FF00</ExcelInterior>
*!*        <Interior ss:Color="#FFFF00" ss:Pattern="ThinVertStripe" ss:PatternColor="#00FF00"/>
LOCAL laInterior[1],lcPosition,lcLineStyle,lcWeight,lcInterior
ALINES(laInterior,paStyles[tnId-20,9],1,',')
DIMENSION laInterior[3]
* 2010.01.30 - CChalom: Modified to create the tag only for non white background
IF EMPTY(laInterior[1]) OR laInterior[2] = "FFFFFF"
    lcInterior = '<Interior/>'
    lcPattern       = [ ss:Pattern=] + IIF(EMPTY(laInterior[1]),["Solid"],["]+laInterior[1]+["])
    lcColor           = [ ss:Color=] + IIF(EMPTY(laInterior[2]),["#FFFFFF"],["#]+laInterior[2]+["])
    lcPatternColor = IIF(EMPTY(laInterior[3]),[],[ ss:PatternColor=] + ["#]+laInterior[3]+["])
    lcInterior = '<Interior ' + lcColor + lcPattern + lcPatternColor + '/>'
ENDIF
TEXT TO lcRetVal NOSHOW TEXTMERGE PRETEXT 2
  <Style ss:ID="<<'s' + TRANSFORM(tnID,'@L 99')>>">
   <Alignment ss:Vertical="Bottom" <<lcHorizontalAlignment>>/>
   <<lcBorders>>
   <Font<<lcFont>>/>
   <<lcInterior>>
   <NumberFormat<<lcNumberFormat>>/>
   <Protection/>
  </Style>
ENDTEXT
RETURN lcRetVal + CHR(13) + CHR(10)
ENDPROC
PROCEDURE xml_workbook_header
LOCAL lcRetVal
TEXT TO lcRetVal NOSHOW PRETEXT 2
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o="urn:schemas-microsoft-com:office:office"
 xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:html="http://www.w3.org/TR/REC-html40">
ENDTEXT
RETURN lcRetVal + CHR(13) + CHR(10)
ENDPROC
PROCEDURE xml_worksheet_header
LPARAMETERS tcWorksheetName
LOCAL lcRetVal
TEXT TO lcRetVal NOSHOW TEXTMERGE PRETEXT 2
<Worksheet ss:Name="<<tcWorksheetName>>">
ENDTEXT
RETURN lcRetVal + CHR(13) + CHR(10)
ENDPROC
PROCEDURE xml_row_header
LOCAL lcRetVal
TEXT TO lcRetVal TEXTMERGE NOSHOW PRETEXT 2
<Row ss:Index="<<ALLTRIM(TRANSFORM(ExcelRow))>>" ss:AutoFitHeight="1">
ENDTEXT
RETURN lcRetVal + CHR(13) + CHR(10)
ENDPROC
PROCEDURE xml_row_footer
RETURN '</Row>' + CHR(13) + CHR(10)
ENDPROC
PROCEDURE xml_cell
LPARAMETERS tcContents, tcUnicode, tnStyleNumber
tcContents = ALLTRIM(tcContents)
LOCAL lcOrigContents, lcStyle
lcOrigContents = tcContents
lcStyle = UPPER(paStyles[tnStyleNumber-20,5])
LOCAL lcRetVal
IF lcStyle = 'DATETIME'
*    lcSetDate = SET("Date")
*    SET DATE (This.SetDate)
    tcContents = CTOD(tcContents)
*    SET DATE TO BRITISH
    IF EMPTY(tcContents)
        lcStyle = "STRING"
        tcContents = lcOrigContents
    ELSE
        *1899-12-31T14:49:56.000
        tcContents = TRANSFORM(YEAR(tcContents),'@L 9999') ;
                 + '-' + TRANSFORM(MONTH(tcContents),'@L 99') ;
                 + '-' + TRANSFORM(DAY(tcContents),'@L 99') ;
                 + 'T00:00:00.000'
    ENDIF
*    SET DATE TO &lcSetDate
ENDIF
* 2010/08/08 Fix by Jaketon / CChalom, when SET("POINT") = ","
IF lcStyle = 'NUMBER'
      tcContents = CHRTRAN(tcContents, This.SetSeparator, '') && quito simbolos de separaci
      tcContents = CHRTRAN(tcContents, This.SetPoint    ,'.') && Reemplazo , por puntos
* 2012/05/30 Fix by RGBean to allow flexible Currency and ()'s for Negative
*-- tcContents = CHRTRAN(tcContents,'$+','+')
      tcContents =  CHRTRAN(tcContents, SET('Currency',1), '')    && Kill any Currency character(s)
      IF AT('(', tcContents) > 0 AND AT(')', tcContents) > 0      && ()'s used for negative
            tcContents = CHRTRAN(tcContents,'()','')              && Kill the ()'s
            tcContents = '-'+ALLTRIM(tcContents)                  && Make it a negative value
      ENDIF
ENDIF
LOCAL llUseUnicode
llUseUnicode = (lcStyle = 'STRING') and ("?" $ tcContents)
*!*    IF (This.lUseUnicode = .F.) AND (lcStyle = 'STRING')
*!*        IF (NOT EMPTY(tcContents)) AND (NOT EMPTY(CHRTRANC(tcContents, "?", "")))
*!*            This.lUseUnicode = .T.
*!*        ENDIF
*!*    ENDIF
LOCAL llChinese
llChinese = ("936" $ This.cCodePage)
* IF lcStyle = 'STRING' AND (This.lUseUnicode OR ("?" $ tcContents)) AND (NOT llChinese)
IF lcStyle = 'STRING' AND (llUseUnicode) AND (NOT llChinese)
    LOCAL n, lcUNValue, lnUNValue, lcNewContents
    lcUnValue     = ""
    lcNewContents = ""
    LOCAL lnChars
    lnChars = (LEN(tcContents) * 2)
    FOR n = 1 TO lnChars STEP 2
        lcUNValue = SUBSTR(tcUnicode, n, 2)
        IF EMPTY(lcUNValue)
            EXIT
        ENDIF
        lnUNValue = CTOBIN(0h+lcUNValue,"2RS")
        lcNewContents = lcNewContents + '&#' + ALLTRIM(TRANSFORM(lnUNValue)) + ';'
    ENDFOR
    tcContents = lcNewContents
ENDIF
*!*    IF UPPER(paStyles[tnStyleNumber-20,5]) = 'STRING' AND (NOT "1251" $ This.cCodePage) AND (This.lUseUnicode = .F.)
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*        tcContents = This.Xml_Encode(tcContents,'
*!*    ENDIF
LOCAL lcMergeAcross
lcMergeAcross = IIF(EMPTY(nExcelMergeAcross),'',[ ss:MergeAcross="] + ALLTRIM(TRANSFORM(nExcelMergeAcross),'99999') + ["])
lcData = IIF(lcStyle = 'STRING' AND EMPTY(tcContents),'', ;
             '<Data ss:Type="' + paStyles[tnStyleNumber-20,5] + '">' + tcContents + '</Data>')
* 21/06/08 ExcelInsertFormula    <Cell ss:Index="7" ss:StyleID="s68" ss:Formula="=+R[-4]C-R[-3]C">
*TEXT TO lcRetVal TEXTMERGE NOSHOW PRETEXT 2
*<Cell  ss:Index="<<ALLTRIM(TRANSFORM(ExcelCol))>>" <<lcMergeAcross>> ss:StyleID="<<'s'+TRANSFORM(tnStyleNumber,'@L 99')>>"><<lcData>></Cell>
*ENDTEXT
LOCAL lcInsertFormula,lcNamedCell
lcInsertFormula = IIF(EMPTY(cExcelInsertFormula),'',[ ss:Formula="] + ALLTRIM(cExcelInsertFormula) + ["])
* 21/06/08 ExcelNamedCell    <Cell ss:Index="13" ss:StyleID="s67"><Data ss:Type="Number">17832.98</Data><NamedCell ss:Name="Cajas_Per2"/></Cell>
lcNamedCell = ''
IF !EMPTY(cExcelNamedCell)
    lcNamedCell = [<NamedCell ss:Name="] + ALLTRIM(cExcelNamedCell) + ["/>]
*  <NamedRange ss:Name="Cajas_Per1" ss:RefersTo="=Sheet1!R10C7"/>
    REPLACE cExcelNamedRange WITH ALLTRIM(cExcelNamedCell) + [;] ;
                                  + [=Sheet1!R] + ALLTRIM(TRANSFORM(ExcelRow)) ;
                                  + [C] + ALLTRIM(TRANSFORM(ExcelCol))
ENDIF
*TEXT TO lcRetVal TEXTMERGE NOSHOW PRETEXT 2
*<Cell  ss:Index="<<ALLTRIM(TRANSFORM(ExcelCol))>>" <<lcMergeAcross>> ss:StyleID="<<'s'+TRANSFORM(tnStyleNumber,'@L 99')>>" <<lcInsertFormula>> ><<lcData>></Cell>
*ENDTEXT
lcRetVal = [<Cell  ss:Index="] + ALLTRIM(TRANSFORM(ExcelCol)) + ["] ;
           + lcMergeAcross + [ ss:StyleID="s] + TRANSFORM(tnStyleNumber,'@L 99') + ["] ;
           + lcInsertFormula + [>] + lcData ;
           + lcNamedCell + [</Cell>]
RETURN lcRetVal + CHR(13) + CHR(10)
*!*       <Row ss:AutoFitHeight="0">
*!*        <Cell ss:StyleID="s27"><Data ss:Type="DateTime">2006-10-05T00:00:00.000</Data></Cell>
*!*       </Row>
*!*       <Row ss:AutoFitHeight="0">
*!*        <Cell ss:StyleID="s22"><Data ss:Type="String">Puro texto Bold</Data></Cell>
*!*       </Row>
ENDPROC
PROCEDURE xml_table_header
LPARAMETERS tnRows,tnCols
LOCAL lcRetVal,ja[1],i,lcColumns
*   <Column ss:StyleID="s21" ss:AutoFitWidth="0" ss:Width="91.5"/>
*   <Column ss:Index="4" ss:StyleID="s21" ss:AutoFitWidth="0" ss:Width="71.25"/>
SELECT MAX(ExcelCol),MAX(ExcelRow) ;
  FROM (This.cOutputAlias) ;
  INTO ARRAY ja
lcColumns = ''
ASORT(paColData,1,ALEN(paColData),0)
FOR m.i = 1 TO ALEN(paColData,1)
    IF EMPTY(paColData[m.i,1])
        LOOP
    ENDIF
    * Column1 = Column number
    * Column2 = AutoFitWidth (.T. / .F.)
    * Column3 = Column width
    lcColumns = lcColumns + CHR(13) + CHR(10) + [<Column ss:Index="] + TRANSFORM(paColData[i,1]) + ["]
    lcColumns = lcColumns + [ ss:AutoFitWidth="] + IIF(paColData[m.i,2],'1','0') + ["]
    * The stored width is screen width / 1.33333.  Screen pixels are screen width * 7 + 5.
    lcColumns = lcColumns + [ ss:Width="] + TRANSFORM(((paColData[m.i,3]*7+5)/1.333333)) + ["/>]
ENDFOR
*!*    TEXT TO lcRetVal TEXTMERGE NOSHOW PRETEXT 2
*!*    <Table ss:ExpandedColumnCount="<<ja[1]>>" ss:ExpandedRowCount="<<ja[2]>>" x:FullColumns="1"
*!*     x:FullRows="1" ss:StyleID="s21" ss:DefaultRowHeight="14.25"><<lcColumns>>
*!*    ENDTEXT
TEXT TO lcRetVal TEXTMERGE NOSHOW PRETEXT 2
<Table ss:ExpandedColumnCount="<<ja[1]>>" ss:ExpandedRowCount="<<ja[2]>>" x:FullColumns="1"
 x:FullRows="1" ss:StyleID="s21"><<lcColumns>>
ENDTEXT
RETURN lcRetVal + CHR(13) + CHR(10)
ENDPROC
PROCEDURE xml_workbook_footer
RETURN '</Workbook>' + CHR(13) + CHR(10)
ENDPROC
PROCEDURE xml_worksheet_footer
LOCAL lcRetVal
TEXT TO lcRetVal NOSHOW PRETEXT 2
 </Worksheet>
ENDTEXT
RETURN lcRetVal + CHR(13) + CHR(10)
ENDPROC
PROCEDURE xml_stylenumber
LPARAMETERS tcContents
LOCAL lcType,lcNumberFormat,lcKey,i
lcType           = This.Xml_Type(tcContents)
lcNumberFormat = IIF(lcType = 'Number',This.Xml_NumberFormat(tcContents),'')
lcNumberFormat = IIF(lcType = 'DateTime','Short Date',lcNumberFormat)
lcKey           = UPPER(PADR(FontFace,20)+TRAN(FontSize,'99')+TRAN(FontStyle,'99') ;
                + PADR(lcType,10) + PADR(lcNumberFormat,20)) + PADR(cExcelAlignment,30) ;
                + PADR(cExcelBorder,50) + PADR(cExcelInterior,50)
i = ASCAN(paStyles,lcKey,1,ALEN(paStyles,1),1,1 + 2 + 4 + 8)
IF i = 0
    i = ALEN(paStyles,1)+1
    DIMENSION paStyles[i,ALEN(paStyles,2)]
    paStyles[i,2] = FontFace
    paStyles[i,3] = FontSize
    paStyles[i,4] = FontStyle
    paStyles[i,5] = lcType
    paStyles[i,6] = lcNumberFormat
    paStyles[i,7] = cExcelAlignment    && Alignment
    paStyles[i,8] = cExcelBorder    && Border
    paStyles[i,9] = cExcelInterior    && Interior color and pattern
    paStyles[i,1] = lcKey
ENDIF
RETURN 20 + i
ENDPROC
PROCEDURE xml_type
LPARAMETERS tcContents
tcContents = ALLTRIM(tcContents)
LOCAL lcType,lcSetDate
*lcSetDate = SET("Date")
*SET DATE TO BRITISH
DO CASE
    * CChalom - Check XML_Type method, a new checking was added there
    * Checks if the date type is ANSI
    CASE (OCCURS('.', tcContents) = 2) AND ;
            This.SetDateAnsi AND ;
            (OCCURS(':', tcContents) = 2) && Probably a DateTime, NOT a Number !
        lcType = 'String'
    CASE (OCCURS('.', tcContents) = 2) AND ;
            This.SetDateAnsi AND ;
            (LEN(GETWORDNUM(tcContents, 2, ".")) = 2) AND CTOD(tcContents) # {} && updated 2012/02/07 - aMaximum
        lcType = 'DateTime'
    CASE This.IsNumber(tcContents)
        lcType = 'Number'
    CASE AT('/',tcContents,2) > 0 AND AT('/',tcContents,3) = 0
        * Make sure a string with two slashes is not interpreted as a date unless it is a date
        tcContents = CTOD(tcContents)
        IF VARTYPE(tcContents) = 'D' AND !EMPTY(tcContents)
            lcType = 'DateTime'
        ELSE
            lcType = 'String'
        endif
    OTHERWISE
        lcType = 'String'
ENDCASE
*SET DATE TO &lcSetDate
RETURN lcType
ENDPROC
PROCEDURE xml_styles_header
RETURN '<Styles>' + CHR(13) + CHR(10)
ENDPROC
PROCEDURE xml_styles_footer
RETURN '</Styles>' + CHR(13) + CHR(10)
ENDPROC
PROCEDURE xml_table_footer
RETURN '</Table>' + CHR(13) + CHR(10)
ENDPROC
PROCEDURE xml_encode
LPARAMETERS tcContents,tcChar
* tcContents = STRTRAN(tcContents,tcChar,'&#' + ALLTRIM(TRANSFORM(ASC(tcChar))) + ';')
lcValue = CTOBIN(0h+STRCONV(tcChar,5),"2RS")
tcContents = STRTRAN(tcContents,tcChar,'&#' + ALLTRIM(TRANSFORM( lcValue)) + ';')
RETURN tcContents
ENDPROC
PROCEDURE calcbandnumbers
* This routine places in frx.User the number of the report band to which each element belongs
*  When OBJTYPE = 9 (a band), the following values are used:
*  0 = Title
*  1 = Page header
*  2 = Column header
*  3 = Group header
*  4 = Detail
*  5 = Group footer
*  6 = Column footer
*  7 = Page footer
*  8 = Summary
* NOTES:
* Frx.VPos contains the vertical position of the report elements AS THEY APPEAR IN REPORT DESIGNER
* In order to determine the band to which report elements belong we need to know the top of each band IN REPORT DESIGNER
* Frx.Height contains the height of report bands, but we must calculate VPos for each band.
* "Report Bands" refer to report designer areas that contain fields and labels.  They are numbered as above.
* "Title Bands" refer to report designer areas that contain titles such as Detail, Page Header
* Procedure:
* Store VPos of "title bands" in array.
* Store in User field the number of the report band to which each report element belongs
    LOCAL laBands[1],lnVpos,i,lnSelect
    * These constants come from VFP program convert.prg
    m.g_pixelsize  = 96       && logical pixels per inch
    m.g_bandheight = ((19/m.g_pixelsize) * 10000)
    m.g_bandfudge  =  4350
    * Metrics for various objects, report bands, etc.
    #DEFINE c_radhght      1.308
    #DEFINE c_chkhght      1.308
    #DEFINE c_listht       1.000
    #DEFINE c_adjfld       0.125
    #DEFINE c_adjlist      0.125
    #DEFINE c_adjtbtn      0.769
    #DEFINE c_adjrbtn      0.308
    #DEFINE c_vchkbox      0.154
    #DEFINE c_vradbtn      0.154
    #DEFINE c_vlist        0.500
    #DEFINE c_hpopup       1.000
    #DEFINE c_adjbox       0.500
    #DEFINE c_chkpixel        12
    laBands = 0
    SELECT RECNO(),ObjCode,000000.000,Height ;
      FROM (This.cFRXalias) ;
     WHERE Platform = 'WINDOWS' ;
            AND ObjType = 9 ;
      INTO ARRAY laBands
    lnVPosBottom = - m.g_bandheight && - (m.g_bandfudge/m.g_pixelsize)
     FOR m.i = 1 TO ALEN(laBands,1)
        lnVPosBottom = lnVPosBottom + laBands[m.i,4] + m.g_bandheight + (m.g_bandfudge/m.g_pixelsize)
        laBands[m.i,3] = lnVPosBottom
    ENDFOR
    * Make cursor readwrite
    SELECT * ;
      FROM (This.cFRXalias) ;
      INTO CURSOR Frx1 READWRITE
    USE IN (This.cFRXalias)
    SELECT * ;
      FROM Frx1 ;
      INTO CURSOR (This.cFRXalias) READWRITE
    USE IN Frx1
    SCAN FOR Platform = 'WINDOWS' AND (ObjType = 5 OR ObjType = 8)
         FOR m.i = 1 TO ALEN(laBands,1)
             IF VPos < laBands[m.i,3]
                 * Store in User the number of the band to which report element belongs
                 REPLACE User WITH TRANSFORM(laBands[m.i,2],'999')
                 EXIT
             ENDIF
        ENDFOR
    ENDSCAN
ENDPROC
PROCEDURE xextractexcelcol
LPARAMETERS tcComment
RETURN '0000000'
ENDPROC
PROCEDURE applyexcelstyle
LPARAMETERS tcExcelStyle,tnOption
SELECT (this.cOutputAlias)
IF !EMPTY(tcExcelStyle)
    &tcExcelStyle.(tnOption,This)
ENDIF
RETURN
*!*    **** Moved to an outside procedure ****
*!*    * My Default ExcelStyle
*!*    *  0 = Title
*!*    *  1 = Page header
*!*    *  2 = Column header
*!*    *  3 = Group header
*!*    *  4 = Detail
*!*    *  5 = Group footer
*!*    *  6 = Column footer
*!*    *  7 = Page footer
*!*    *  8 = Summary
*!*    tcOutputAlias = This.cOutputAlias
*!*    DO CASE
*!*        CASE tnOption = 1    && Before extracting comments
*!*        CASE tnOption = 2    && Before assigning row
*!*            DELETE ALL FOR (cUser = '  0' OR cUser = '  1') ;
*!*                            AND ('FECHA DE IMPRESION:' $ cExpr OR 'FECHA DE IMPRESI
N:' $ cExpr ;
*!*                                 OR 'PAGINA:' $ cExpr OR 'P
GINA:' $ cExpr ;
*!*                                 OR cExpr = 'DATE()' OR cExpr = 'DATETIME()' OR cExpr = 'TIME()' OR cExpr = '_PAGENO')
*!*    *        DELETE ALL FOR (cUser = '  0' OR cUser = '  1') ;
*!*                            AND ('PAGINA:' $ cExpr OR 'P
GINA:' $ cExpr OR cExpr = '_PAGENO')
*!*    *        DELETE ALL FOR (cUser = '  0' OR cUser = '  1') ;
*!*                            AND ('FECHA DE IMPRESION:' $ cExpr OR 'FECHA DE IMPRESI
N:' $ cExpr ;
*!*                                 OR cExpr = 'DATE()' OR cExpr = 'TIME()') ;
*!*                            AND nPageNo > 1
*!*        CASE tnOption = 3    && Before assigning col
*!*        CASE tnOption = 4    && After assigning row and column
*!*            * Cursores con las filas y columnas
*!*            SELECT DISTINCT ExcelRow,LEFT(User,3) AS User ;
*!*              FROM (tcOutputAlias) ;
*!*              INTO ARRAY laRowUser
*!*            CREATE CURSOR ExcelCols (ExcelCol N(3))
*!*            FOR i = 1 TO pnMaxCol
*!*                INSERT INTO ExcelCols (ExcelCol) VALUES(i)
*!*            ENDFOR
*!*            * Lista de celdas con ----- or =====
*!*            SELECT ExcelRow,ExcelCol,Contents,User,nExcelUnderlinedColCount ;
*!*              FROM (tcOutputAlias) ;
*!*             WHERE LEFT(cContents,5) = '=====' OR LEFT(cContents,5) = '-----' ;
*!*              INTO CURSOR DashedCells READWRITE
*!*            * Borramos celdas con ----- or =====
*!*            DELETE &tcOutputAlias ;
*!*              FROM DashedCells ;
*!*             WHERE &tcOutputAlias..ExcelRow = DashedCells.ExcelRow AND &tcOutputAlias..ExcelCol = DashedCells.ExcelCol
*!*            * Cells to underline (one line above ----- or =====)
*!*            SELECT ExcelRow - 1 AS ExcelRow,ExcelCol,Contents,User,nExcelUnderlinedColCount,.F. AS lNueva ;
*!*              FROM DashedCells ;
*!*              INTO CURSOR UnderlinedCells READWRITE
*!*            * Add line extensions
*!*            SCAN FOR INT(LEN(ALLTRIM(Contents)) / 8) > 1 AND !lNueva
*!*                lnRecno       = RECNO()
*!*                lnExcelRow = ExcelRow
*!*                lcContents = LEFT(Contents,5)
*!*                FOR i = 1 TO MIN(INT(LEN(ALLTRIM(Contents)) / 8),MAX(1,nExcelUnderlinedColCount))
*!*                    lnExcelCol = UnderlinedCells.ExcelCol + i
*!*                    IF lnExcelCol > pnMaxCol
*!*                        EXIT
*!*                    ENDIF
*!*    *!*                    SELECT (tcOutputAlias)
*!*    *!*                    LOCATE FOR ExcelRow = lnExcelRow AND ExcelCol = lnExcelCol
*!*    *!*                    IF EOF()
*!*    *!*                        SELECT UnderlinedCells
*!*    *!*                        LOCATE FOR ExcelRow = lnExcelRow AND ExcelCol = lnExcelCol
*!*    *!*                        IF EOF()
*!*    *!*                            j = ASCAN(laRowUser,lnExcelRow,1,ALEN(laRowUser,1),1,8)
*!*    *!*                            lcUser = IIF(j > 0,laRowUser[j,2],User)
*!*    *!*                            INSERT INTO UnderlinedCells (ExcelRow,ExcelCol,Contents,User) VALUES (lnExcelRow,lnExcelCol,lcContents,lcUser)
*!*    *!*                            GOTO (lnRecno) IN UnderlinedCells
*!*    *!*                        ENDIF
*!*    *!*                    ENDIF
*!*                    LOCATE FOR ExcelRow = lnExcelRow AND ExcelCol = lnExcelCol
*!*                    IF EOF()
*!*                        j = ASCAN(laRowUser,lnExcelRow,1,ALEN(laRowUser,1),1,8)
*!*                        lcUser = IIF(j > 0,laRowUser[j,2],User)
*!*                        INSERT INTO UnderlinedCells (ExcelRow,ExcelCol,Contents,User,lNueva) VALUES (lnExcelRow,lnExcelCol,lcContents,lcUser,.T.)
*!*                    ENDIF
*!*                    GOTO (lnRecno) IN UnderlinedCells
*!*                ENDFOR
*!*            ENDSCAN
*!*
*!*            * Add missing cells that need to be underlined
*!*            SELECT U.* ;
*!*              FROM UnderlinedCells U ;
*!*             WHERE NOT EXISTS (SELECT OA.ExcelRow,OA.ExcelCol ;
*!*                                  FROM (tcOutputAlias) OA ;
*!*                                 WHERE OA.ExcelRow = U.ExcelRow ;
*!*                                       AND OA.ExcelCol = U.ExcelCol) ;
*!*              INTO CURSOR MissingCells
*!*            SELECT (tcOutputAlias)
*!*            APPEND FROM DBF('MissingCells') FIELDS ExcelRow,ExcelCol,User
*!*            SET ORDER TO RowCol
*!*            * Perform underline
*!*            SELECT UnderlinedCells
*!*            SET RELATION TO TRANSFORM(ExcelRow,'@L 999999') + TRANSFORM(ExcelCol,'@L 999999') INTO (tcOutputAlias)
*!*            REPLACE ALL &tcOutputAlias..cExcelBorder WITH 'Bottom,' ;
*!*                        + IIF(LEFT(ALLTRIM(Contents),5)='=====','Double,3','')
*!*            SET RELATION TO
*!*            * Eliminate dashed Excel rows that became empty (move up following cells)
*!*            SELECT (tcOutputAlias)
*!*            SET ORDER TO
*!*            SELECT DISTINCT ExcelRow + 0000000 AS ExcelRow ;
*!*              FROM DashedCells ;
*!*             WHERE ExcelRow NOT IN (SELECT ExcelRow ;
*!*                                       FROM (tcOutputAlias)) ;
*!*             GROUP BY 1 ;
*!*             ORDER BY 1 ;
*!*              INTO CURSOR RenglonesParaEliminar READWRITE
*!*            APPEND BLANK
*!*            REPLACE ExcelRow WITH 9999999
*!*            GO TOP
*!*            lnFirstRow = 0
*!*            SCAN
*!*                SELECT (tcOutputAlias)
*!*                REPLACE ALL ExcelRow WITH ExcelRow - RECNO('RenglonesParaEliminar') + 1 ;
*!*                        FOR BETWEEN(ExcelRow,lnFirstRow,RenglonesParaEliminar.ExcelRow)
*!*                lnFirstRow = RenglonesParaEliminar.ExcelRow
*!*            ENDSCAN
*!*            * If nExcelMergeAcross >=99 merges to rightmost column
*!*            SELECT (tcOutputAlias)
*!*            REPLACE ALL nExcelMergeAcross WITH pnMaxCol - ExcelCol ;
*!*                    FOR nExcelMergeAcross >=99
*!*            * Font
*!*            REPLACE ALL FontFace WITH 'Arial', ;
*!*                        FontSize WITH MAX(FontSize,10)        && Minimum font is 10
*!*            REPLACE ALL FontSize WITH 16 ;
*!*                    FOR (cUser = '  0' OR cUser = '  1') ;
*!*                        AND ObjType = 8 ;
*!*                        AND 'SIS.CNOMBRE' $ cExpr
*!*            REPLACE ALL FontStyle WITH 1 ;
*!*                    FOR cUser <= '  2' ;
*!*                        AND (ObjType = 5 OR ObjType = 8)
*!*            REPLACE ALL FontStyle WITH 1 + 2 ;
*!*                    FOR cUser = '  3' ;
*!*                        AND (ObjType = 5 OR ObjType = 8)
*!*            * Group Footer
*!*            * Creamos celdas vacias que faltan
*!*            LOCAL laRowsGroupFooter[1]
*!*            laRowsGroupFooter = 0
*!*            lcCols = 0
*!*            SELECT DISTINCT ExcelRow ;
*!*              FROM (tcOutputAlias) ;
*!*             WHERE cUser = '  5' ;
*!*              INTO ARRAY laRowsGroupFooter
*!*            FOR i = 1 TO ALEN(laRowsGroupFooter,1)
*!*                IF EMPTY(laRowsGroupFooter[i])
*!*                    LOOP
*!*                ENDIF
*!*                lnRow = laRowsGroupFooter[i]
*!*                FOR lnCol = 1 TO pnMaxCol
*!*                    LOCATE FOR ExcelRow = lnRow AND ExcelCol = lnCol
*!*                    IF EOF()
*!*                        APPEND BLANK
*!*                        REPLACE ExcelRow WITH lnRow, ;
*!*                                ExcelCol WITH lnCol, ;
*!*                                User     WITH '  5', ;
*!*                                cUser     WITH '  5'
*!*                    ENDIF
*!*                ENDFOR
*!*            ENDFOR
*!*
*!*            * Decoramos GroupFooter ( User = '  5')
*!*            * Font y background
*!*            REPLACE ALL FontStyle WITH 1 ;
*!*                    FOR cUser = '  5' ;
*!*                        AND (ObjType = 5 OR ObjType = 8)
*!*            REPLACE ALL cExcelInterior WITH 'Solid,';
*!*                                            + RIGHT(TRANSFORM(RGB(192,192,192),'@0'),6) + ',' ;
*!*                                            + RIGHT(TRANSFORM(RGB(0,0,0),'@0'),6) ;
*!*                    FOR cUser = '  5'
*!*            * Bordes arriba y abajo
*!*            LOCAL laGroupFooters[1,2]
*!*            laGroupFooters[1,1] = 0
*!*            laGroupFooters[1,2] = ''
*!*            SELECT DISTINCT ExcelRow,SPACE(8) AS cExcelBorder ;
*!*              FROM (tcOutputAlias) ;
*!*             WHERE cUser = '  5' ;
*!*              INTO ARRAY laGroupFooters
*!*            lnLastRow      = 0
*!*            FOR i = 1 TO ALEN(laGroupFooters,1)
*!*                IF EMPTY(laGroupFooters[i,1])
*!*                    LOOP
*!*                ENDIF
*!*                DO CASE
*!*                    CASE lnLastRow = 0
*!*                        laGroupFooters[i,2] = 'Top,Single,1'
*!*                    CASE laGroupFooters[i,1] = lnLastRow + 1
*!*                        laGroupFooters[i,2] = 'Top,Single,1'
*!*                    OTHERWISE    && laGroupFooters[i,1] > lnLastRow + 1
*!*                        laGroupFooters[i-1,2] = laGroupFooters[i-1,2] ;
*!*                                               + IIF(EMPTY(laGroupFooters[i-1,2]),'',';') ;
*!*                                               + 'Bottom,Double,3'
*!*                        laGroupFooters[i,2]   = 'Top,Single,1'
*!*                ENDCASE
*!*                lnLastRow = laGroupFooters[i,1]
*!*            ENDFOR
*!*            laGroupFooters[ALEN(laGroupFooters,1),2] = laGroupFooters[ALEN(laGroupFooters,1),2] ;
*!*                                   + IIF(EMPTY(laGroupFooters[ALEN(laGroupFooters,1),2]),'',';') ;
*!*                                   + 'Bottom,Double,3'
*!*
*!*            lnRecno          = 0
*!*            SCAN FOR User = '  5'
*!*                i = ASCAN(laGroupFooters,ExcelRow,1,ALEN(laGroupFooters,1),1,8)
*!*                IF i = 0
*!*                    LOOP
*!*                ENDIF
*!*                REPLACE cExcelBorder WITH laGroupFooters[i,2]
*!*                lnRecno = RECNO()
*!*            ENDSCAN
*!*    ENDCASE
ENDPROC
PROCEDURE islonghorizontalline
LPARAMETERS tcExpr
RETURN !EMPTY(tcExpr) AND EMPTY(CHRTRAN(ALLTRIM(tcExpr),[=-"],[])) AND LEN(ALLTRIM(tcExpr)) > 15
ENDPROC
PROCEDURE isshorthorizontalline
LPARAMETERS tcExpr
RETURN !EMPTY(tcExpr) AND EMPTY(CHRTRAN(ALLTRIM(tcExpr),[=-"],[])) AND LEN(tcExpr) < 15
ENDPROC
PROCEDURE calcbasefilename
LPARAMETERS tcWorkbook
LOCAL i,lcFileName
IF EMPTY(tcWorkbook)
    * Calc default name
    FOR m.i = 1 TO 9
        IF !FILE(FORCEEXT('REP_'+TRANSFORM(m.i,'@L 99'),'xls'))
            lcFileName = FORCEEXT('REP_'+TRANSFORM(m.i,'@L 99'),'xls')
            EXIT
        ENDIF
    ENDFOR
    IF EMPTY(lcFileName)
        LOCAL laDir[1,3]
        ADIR(laDir,'REP_??.'+tcExtension)
        FOR m.i = 1 TO ALEN(laDir,1)
            laDir[m.i,3] = DTOS(laDir[m.i,3])
        ENDFOR
        ASORT(laDir,3)
        lcFileName = FORCEEXT(PADR(laDir[1,1],50),'xls')
    ENDIF
    lcFileName = FORCEEXT(JUSTFNAME(tcWorkbook),'xls')
ENDIF
RETURN lcFileName
ENDPROC
PROCEDURE calcnextfilename
LPARAMETERS tcWorkbook
LOCAL lcBaseName,lcFileName,i
lcBaseName = JUSTSTEM(tcWorkbook)
IF AT(lcBaseName,'_',2) > 0
    lcBaseName = LEFT(lcBaseName,AT(lcBaseName,'_',2) - 1)
ENDIF
lcFileName = ''
FOR m.i = 1 TO 9
    IF !FILE(lcBaseName + '_' + TRANSFORM(i,'@L 99') + '.xls')
        lcFileName = lcBaseName + '_' + TRANSFORM(i,'@L 99') + '.xls'
        EXIT
    ENDIF
ENDFOR
IF EMPTY(lcFileName)
    LOCAL laDir[1,3]
    ADIR(laDir,lcBaseName + '_??' + '.XLS')
    FOR m.i = 1 TO ALEN(laDir,1)
        laDir[m.i,3] = DTOS(laDir[m.i,3])
    ENDFOR
    ASORT(laDir,3)
    lcFileName = FORCEEXT(laDir[1,1],'xls')
ENDIF
RETURN lcFileName
ENDPROC
PROCEDURE xml_names_header
* 21/06/08 Added
RETURN '<Names>' + CHR(13) + CHR(10)
ENDPROC
PROCEDURE xml_name
LPARAMETERS tnID
* 21/06/08 Added
*  <NamedRange ss:Name="Cajas_Per1" ss:RefersTo="=Sheet1!R10C7"/>
*  <NamedRange ss:Name="Cajas_Per2" ss:RefersTo="=Sheet1!R10C13"/>
LOCAL lcRetVal,laItems[1]
lcRetVal = ''
*SET STEP ON
ALINES(laItems,paNames[tnID],1 + 2,';')
IF !EMPTY(laItems[1]) AND !EMPTY(laItems[2])
    lcRetVal = lcRetVal + [  <NamedRange ss:Name="] + ALLTRIM(laItems[1]) ;
                        + [" ss:RefersTo="] + ALLTRIM(laItems[2]) + ["/>] + CHR(13) + CHR(10)
ENDIF
RETURN lcRetVal
ENDPROC
PROCEDURE xml_names_footer
* 21/06/08 Added
RETURN '</Names>' + CHR(13) + CHR(10)
ENDPROC
PROCEDURE outputfromdata
LPARAMETERS toListener, tcOutputDBF &&, tnWidth, tnHeight
This.ShowTherm(1)
IF VARTYPE(toListener) <> "O"
    MESSAGEBOX("Invalid parameter. Report listener not available", 16, "Error")
    RETURN
ENDIF
IF EMPTY(toListener.cFRXAlias)
    MESSAGEBOX("The helper FRX table is not available. Output can't be created", 16, "Error")
    RETURN
ENDIF
LOCAL lnSelect, lnOrigDataSession
lnSelect          = SELECT()
lnOrigDataSession = SET("Datasession")
* Ensure we are at the correct DataSession
SET DATASESSION TO (toListener.ListenerDataSession)
* SET DATASESSION TO (toListener.CurrentDataSession)
* Generate XLS using the stored information
This.lDefaultMode = .F.
* Make a copy of the FRX table and manipulate it
SELECT * FROM (toListener.cFRXAlias) INTO CURSOR FRXCopy READWRITE
SELECT FRXCopy
This.cFRXalias = "FRXCopy"
* Initialize class
* "BeforeReport"
IF  EMPTY(this.cOutputDBF)
    this.cOutputDBF = ADDBS(SYS(2023)) + SYS(2015) + '.dbf'
ENDIF
IF EMPTY(this.cOutputAlias)
    this.cOutputAlias = STRTRAN(JUSTSTEM(this.cOutputDBF), ' ', '_')
ENDIF
* Store in Frx.User the number of the band to which each field belongs
This.CalcBandNumbers()
* Don't reprint group header on each page (not working yet)
REPLACE ALL NoRepeat WITH .F. ;
        FOR objType = 9 AND (ObjCode = 3 OR ObjCode = 5)
GO TOP
LOCAL lcRenderAlias
lcRenderAlias = toListener.cOutputAlias
LOCAL lnPgFrom, lnPgTo
lnPgFrom = _goHelper._ClausenRangeFrom && = loListener.COMMANDCLAUSES.RangeFrom
lnPgTo   = IIF(_goHelper._ClausenRangeTo = -1, 999999, _goHelper._ClausenRangeTo) && = loListener.COMMANDCLAUSES.RangeTo && -1 = All pages
SELECT FRXRECNO as nFRXRecno, ;
            RA.LEFT as nLeft, ;
            TOP as nTop, ;
            WIDTH as nWidth, ;
            HEIGHT as nHeight, ;
            UNCONTENTS as Contents, ;
            UNCONTENTS as UNContents, ;
            PAGE as nPageNo ;
        FROM (lcRenderAlias) RA ;
        WHERE BETWEEN(Page, lnPgFrom, lnPgTo) ;
        INTO CURSOR (This.cOutputAlias) ;
        READWRITE
INDEX ON nFrxRecno TAG nFrxRecno
* REPLACE ALL Contents WITH STRCONV(CONTENTS,6 ,1256)
* Replacing the Render event
REPLACE ALL Contents WITH ;
    strt(strt(strt(STRCONV(Contents, 6),'&','&'),'>','>' ),'<','<')
*!*    SELECT (This.cOutputAlias)
*!*    BROWSE
* Finalize
This.AfterReport()
* Clean up
    USE IN SELECT(This.cOutputAlias)
    USE IN SELECT(This.cFRXalias)
CATCH TO loExc
    SET STEP ON
ENDTRY
* Restore DataSession and Alias
SET DATASESSION TO (lnOrigDataSession)
SELECT (lnSelect)
This.ShowTherm()
ENDPROC
PROCEDURE updateproperties
IF NOT This.lObjTypeMode OR (VARTYPE(_Screen.oFoxyPreviewer) <> "O")
    RETURN
ENDIF
LOCAL loFP
loFP = _Screen.oFoxyPreviewer
IF VARTYPE(This.CommandClauses) = "O"
    *!*    IF This.CommandClauses.Preview
    *!*        This.lOpenViewer = .T.
    *!*    ELSE
    *!*        This.lOpenViewer = NVL(loFP.lOpenViewer, .T.)
    *!*    ENDIF
    This.lOpenViewer = This.CommandClauses.Preview
    IF NOT EMPTY(This.CommandClauses.ToFile)
        This.TargetFileName = This.CommandClauses.ToFile
    ELSE
        IF VARTYPE(_Screen.oFoxyPreviewer) = "O" AND ;
                NOT EMPTY(_Screen.oFoxyPreviewer.cDestFile) AND ;
                EMPTY(This.TargetFileName)
            LOCAL lcDestFile
            lcDestFile = _Screen.oFoxyPreviewer.cDestFile
            IF NOT "\" $ lcDestFile
                lcDestFile = ALLTRIM(ADDBS(_Screen.oFoxyPreviewer.cOutputPath) + lcDestFile)
            ENDIF
            This.TargetFileName = lcDestFile
        ELSE
            LOCAL lcFile
            lcFile = This.TargetFileName
            IF EMPTY(lcFile)
                lcFile = PUTFILE("","","xls;xml")
            ENDIF
            IF EMPTY(lcFile)
                _ReportListener::CancelReport()
                * This.CancelReport()
                RETURN .F.
            ENDIF
            This.TargetFileName = lcFile
        ENDIF
    ENDIF
ENDIF
This.QUIETMODE        = NVL(loFP.lQuietMode         , .F.)
IF VARTYPE(This.CommandClauses) = "O"
    IF This.CommandClauses.Preview
        This.lOpenViewer = .T.
    ENDIF
    IF NOT EMPTY(This.CommandClauses.ToFile)
        This.TargetFileName = This.CommandClauses.ToFile
    ENDIF
ENDIF
ENDPROC
PROCEDURE topurexlsusingexcel
LPARAMETERS tcSource, tcDestination
* File format specific
* http://support.sas.com/documentation/cdl/en/acpcref/63184/HTML/default/viewer.htm#a003103761.htm
*!*        Excel 4 files, only one spreadsheet is allowed per file
*!*        Excel 4, Excel 5, and Excel 95 limits are 256 columns, and 16,384 rows
*!*        Excel 97, 2000, 2002, 2003 limits are 256 columns, and 65,536 rows
*!*        Excel 2007 limits are 16,384 columns, and 1,048,576 rows.
*!*        Excel 95 files are treated as the same format as Excel 5 files.
*!*        Excel 2000, 2002, and 2003 files with an .xls file extension are treated as the same format as Excel 97 files.
*!*        Excel 2007 has three different file extensions, .xlsb, .xlsm, and .xlsx.
*!* See also: http://www.rondebruin.nl/saveas.htm
#DEFINE xlAddIn         18
#DEFINE xlCSV            6
#DEFINE xlCSVMac        22
#DEFINE xlCSVMSDOS      24
#DEFINE xlCSVWindows    23
#DEFINE xlDBF2             7
#DEFINE xlDBF3             8
#DEFINE xlDBF4            11
#DEFINE xlDIF             9
#DEFINE xlExcel2         16
#DEFINE xlExcel2FarEast 27
#DEFINE xlExcel3         29
#DEFINE xlExcel5         39
#DEFINE xlExcel7         39
#DEFINE xlExcel8         56
#DEFINE xlExcel9795     43
#DEFINE xlExcel4Workbook    35
#DEFINE xlIntlAddIn     26
#DEFINE xlIntlMacro     25
#DEFINE xlWorkbookNormal -4143
#DEFINE xlSYLK             2
#DEFINE xlTemplate        17
#DEFINE xlCurrentPlatformText -4158
#DEFINE xlTextMac         19
#DEFINE xlTextMSDOS     21
#DEFINE xlTextPrinter   36
#DEFINE xlTextWindows   20
#DEFINE xlWJ2WD1         14
#DEFINE xlWK1             5
#DEFINE xlWK1ALL         31
#DEFINE xlWK1FMT         30
#DEFINE xlWK3             15
#DEFINE xlWK4             38
#DEFINE xlWK3FM3         32
#DEFINE xlWKS             4
#DEFINE xlWorks2FarEast 28
#DEFINE xlWQ1             34
#DEFINE xlWJ3             40
#DEFINE xlWJ3FJ3         41
#DEFINE xlUnicodeText   42
#DEFINE xlHtml             44
IF EMPTY(tcSource)
    tcSource = GETFILE("xml", "Spreadsheet file")
ENDIF
IF EMPTY(tcSource)
    RETURN .F.
ENDIF
IF EMPTY(tcDestination)
    tcDestination = FORCEEXT(tcSource, "xls")
ENDIF
LOCAL loExcel AS "excel.application"
LOCAL llReturn AS Logical
    loExcel = CREATEOBJECT("excel.application")
    loExcel.AlertBeforeOverwriting = .F.
    loExcel.DisplayAlerts = .F.
    * http://msdn.microsoft.com/en-us/library/bb179167(v=office.12).aspx
    * http://msdn.microsoft.com/en-us/library/bb214129%28v=office.12%29.aspx
    loExcel.Workbooks.Open(tcSource)
    loExcel.ActiveWorkbook.SaveAs(tcDestination, This.nExcelSaveFormat) && Excel 97 type
        && The file format to use when you save the file.
        && For a list of valid choices, see the XlFileFormat enumeration.
        && For an existing file, the default format is the last file format specified;
        && for a new file, the default is the format of the version of Excel being used.
    loExcel.ActiveWindow.Close(.T.)
    loExcel.Quit
    loExcel = NULL
    llReturn = .T.
CATCH TO loExc
    llReturn = .F.
ENDTRY
RETURN llReturn
ENDPROC
PROCEDURE topurexlsusingoo
LPARAMETERS tcSource, tcDestination
IF EMPTY(tcSource)
    tcSource = GETFILE("xml", "Spreadsheet file")
ENDIF
IF EMPTY(tcSource)
    RETURN
ENDIF
IF EMPTY(tcDestination)
    tcDestination = FORCEEXT(tcSource, "xls")
ENDIF
LOCAL llReturn
    llReturn = PR_OOXML2XLS(tcSource, tcDestination)
CATCH
    llReturn = .F.
ENDTRY
RETURN llReturn
ENDPROC
PROCEDURE showtherm
LPARAMETERS tnValue, tcText, tcTitle
IF VARTYPE(_goHelper) = "O"
    IF NOT _goHelper.lQuietMode
        IF EMPTY(tnValue)
            =DoFoxyTherm()
            RETURN
        ENDIF
        IF EMPTY(tcTitle)
            tcTitle = _goHelper._RunStatusText
        ENDIF
        IF EMPTY(tcText)
            tcText = _goHelper.GetLoc("PLEASEWAIT") + "    " + TRANSFORM(tnValue)+ "%"
        ENDIF
        =DoFoxyTherm(tnValue, tcText, tcTitle)
    ENDIF
ENDIF
ENDPROC
PROCEDURE setfrxdatasession
IF PEMSTATUS(This, "lDefaultMode", 5) AND (This.lDefaultMode = .F.)
    RETURN
ENDIF
IF (THIS.FRXDataSession > -1) AND (THIS.FRXDataSession # SET("DATASESSION"))
   TRY
      SET DATASESSION TO (THIS.FRXDataSession)
   CATCH WHEN .T.
      THIS.ResetToDefault("FRXDataSession")
      THIS.resetDataSession()
   ENDTRY
ENDIF
ENDPROC
PROCEDURE LoadReport
This.UpdateProperties()
DODEFAULT()
ENDPROC
PROCEDURE AfterReport
This.ShowTherm(3)
IF This.lDefaultMode
* Setup</Row>
    This.setFRXDataSession()
    SET SAFETY OFF    && FrxDataSession has safety on
    SET DELETED ON
ENDIF
* Add field to Frx with RECNO()
    SELECT (This.cFRXalias)
    ALTER TABLE (This.cFRXalias) ADD COLUMN nRecno N(5)
    REPLACE ALL nRecno WITH RECNO()
    INDEX ON nRecno TAG nRECNO
* Add fields from Frx and other fields to (this.cOutputAlias)
* 21/06/08 Add <ExcelInsertFormula>, <ExcelNamedCell> and <ExcelNamedRange> options
*    SELECT 00000 AS ExcelRow,000 AS ExcelCol, ;
           UPPER(PADR(Expr,100)) AS cExpr,PADR(User,3) AS cUser,PADR(UPPER(Contents),100) AS cContents, ;
           OA.*, ;
           00000 AS nExcelColRequest,00000 AS nExcelSpecialColRequest,00000 AS nExcelMergeAcross, ;
           00000.00 AS nExcelColWidth,SPACE(50) AS cExcelAlignment, ;
           SPACE(100) AS cExcelBorder,SPACE(100) AS cExcelInterior, ;
           0 AS nUnderlinedColCount, ;
           .F. AS lDelete, ;
           Frx.* ;
      FROM (this.cOutputAlias) OA ;
      JOIN Frx ON OA.nFrxRecno = Frx.nRecno ;
      INTO CURSOR (this.cOutputAlias) READWRITE
nSecs = SECONDS()
    LOCAL lcFRXalias
    lcFRXAlias = This.cFRXalias
    SELECT 00000 AS ExcelRow,000 AS ExcelCol, ;
           UPPER(PADR(Expr,100)) AS cExpr,PADR(User,3) AS cUser,PADR(UPPER(Contents),100) AS cContents, ;
           OA.*, ;
           00000 AS nExcelColRequest,00000 AS nExcelSpecialColRequest,00000 AS nExcelMergeAcross, ;
           00000.00 AS nExcelColWidth,SPACE(50) AS cExcelAlignment, ;
           SPACE(100) AS cExcelBorder,SPACE(100) AS cExcelInterior, ;
           SPACE(100) AS cExcelInsertFormula,SPACE(100) AS cExcelNamedRange,SPACE(100) AS cExcelNamedCell, ;
           0 AS nUnderlinedColCount, ;
           .F. AS lDelete, ;
           &lcFRXAlias..* ;
      FROM (this.cOutputAlias) OA ;
      JOIN (This.cFRXalias) ON (OA.nFrxRecno = &lcFRXalias..nRecno ;
            AND NOT INLIST(ObjType, 6, 7, 17)) ; && skip Line, Shape, Picture
      INTO CURSOR (this.cOutputAlias) READWRITE
    INDEX ON nFrxRecno TAG nFrxRecno
    INDEX ON ObjType TAG ObjType ADDITIVE
    INDEX ON ExcelRow TAG ExcelRow ADDITIVE
    INDEX ON ExcelCol TAG ExcelCol ADDITIVE
    INDEX ON nPageNo TAG nPageNo ADDITIVE
    INDEX ON cExpr TAG cExpr ADDITIVE
    INDEX ON cUser TAG cUser ADDITIVE
    INDEX ON TRANSFORM(ExcelRow,'@L 999999') + TRANSFORM(ExcelCol,'@L 999999') TAG RowCol ADDITIVE
    INDEX ON TRANSFORM(nPageNo,'@L 999999') + TRANSFORM(ExcelRow,'@L 999999') + TRANSFORM(ExcelCol,'@L 999999') ;
         TAG PagRowCol ADDITIVE
IF (NOT This.lRepeatHeaders) OR (NOT This.lRepeatFooters)
    LOCAL lnMinPage, lnMaxPage
    SELECT MIN(nPageNo), MAX(nPageNo) FROM (this.cOutputAlias) INTO ARRAY laPages
    lnMinPage = laPages(1)
    lnMaxPage = laPages(2)
    * Header = 1
    * Footer = 7
    * Eliminate all page headers except from the 1st page
    IF NOT This.lRepeatHeaders
        DELETE ALL FOR (cUser = '  1' AND nPageNo > lnMinPage)
    ENDIF
    * Eliminate all page headers footers except from the last page
    IF NOT This.lRepeatFooters
        DELETE ALL FOR (cUser = '  7' AND nPageNo < lnMaxPage)
    ENDIF
ENDIF
* Ommit Page numbers, because we have a single document
IF NOT This.lHidePageNo
    DELETE ALL FOR ("_PAGENO" $ UPPER(EXPR))
ENDIF
* Eliminate items in bands 0,1,2 if nPage > 1
    DELETE ALL FOR (cUser < '  3' AND nPageNo > 1) OR ;
        (EMPTY(cContents) AND INLIST(ObjType, 5, 8)) && Label or Field
* Determine row height and col width in report (not Excel)
    PRIVATE pnRowHeight,pnColWidth
    pnRowHeight  = 120        && Should be calculated
    SELECT nWidth,COUNT(nWidth) ;
        FROM (This.cOutputAlias) ;
        WHERE ObjType = 8 ;
        GROUP BY 1 ;
        ORDER BY 2 DESC ;
        INTO CURSOR Widths
    pnColWidth = IIF(_TALLY > 0,nWidth,400)
    SELECT (this.cOutputAlias)
* Codify report colors as <ExcelInterior>Solid,xxxxxx</ExcelInterior> and store in cExcelInterior
* 01/01/07 Correction by Andrus Moor, since color columns in frx file can have value -1
*    REPLACE ALL cExcelInterior WITH 'Solid,';
                                    + RIGHT(TRANSFORM(RGB(FillRed,FillGreen,FillBlue),'@0'),6) + ',' ;
                                    + RIGHT(TRANSFORM(RGB(PenRed,PenGreen,PenBlue),'@0'),6) ;
            FOR FillRed # 255 OR FillGreen # 255 OR FillBlue # 255 ;
                OR PenRed # 0 OR PenGreen # 0 OR PenBlue # 0
*    REPLACE ALL cExcelInterior WITH 'Solid,';
                                    + RIGHT(TRANSFORM(RGB(FillBlue,FillGreen,FillRed),'@0'),6) + ',' ;
                                    + RIGHT(TRANSFORM(RGB(PenBlue,PenGreen,PenRed),'@0'),6) ;
            FOR ( FillRed # 255 OR FillGreen # 255 OR FillBlue # 255 ;
                 OR PenRed # 0 OR PenGreen # 0 OR PenBlue # 0 ) ;
                AND FillRed # -1 AND FillGreen # -1 AND FillBlue #-1 ;
                AND PenRed # -1 AND PenGreen # -1 AND PenBlue # -1
* 2010.01.30 - CChalom: Check if the color of the current field is not default
* 2010.01.30 - CChalom: Fix the color generation was inverted values
*!*            * Mode: 0 = Opaque background; 1 = Transparent
*!*            IF lnMode = 1 && Transparent
*!*                This._Stat = HPDF_Page_Stroke(.oPage)
*!*            ELSE && 0 = Opaque
*!*                This._Stat = HPDF_Page_FillStroke(.oPage)
*!*            ENDIF
SCAN FOR ((FillRed > -1 OR PenRed > -1) AND (Mode = 0))  && Opaque
    IF (PenRed + PenGreen + PenBlue <> 0) OR ;
            (FillRed + FillGreen + FillBlue <> 765)
        REPLACE cExcelInterior WITH ('Solid,' ;
            + RIGHT(TRANSFORM(RGB(IIF(FillBlue=-1,255,FillBlue), ;
                IIF(FillGreen=-1,255,FillGreen), IIF(FillRed=-1,255,FillRed)),'@0'),6) + ',' ;
            + RIGHT(TRANSFORM(RGB(MAX(PenBlue,0),MAX(PenGreen,0),MAX(PenRed,0)),'@0'),6))
    ENDIF
ENDSCAN
* Codify Offset as Horizontal Alignment for fields
IF This.lAlignLeft
ELSE
    REPLACE ALL cExcelAlignment WITH IIF(Offset=0,'Horizontal,Left',IIF(Offset=1,'Horizontal,Right','Horizontal,Center')) ;
            FOR ObjType = 8
*    REPLACE ALL cExcelAlignment WITH IIF(EMPTY(Picture),'Horizontal,Left',IIF(Picture=["@J"],'Horizontal,Right', ;
                                         IIF(Picture=["@I"],'Horizontal,Center','Horizontal,Left'))) ;
            FOR ObjType = 5
    REPLACE ALL cExcelAlignment WITH 'Horizontal,Left' FOR ObjType = 5 && Label
ENDIF
* Run ExcelStyle routine (1 - Before extracting comments)
    This.ApplyExcelStyle(This.cExcelStyle,1)
* Developer can indicate properties by placing values in Comment field in this format: <ExcelCol>18</ExcelCol>
* To get numeric 1 or 0 must write it as 1. or 0., otherwise Fox interprets as .T. / .F.
    * <ExcelCol>18</ExcelCol>                - Indicates ExcelCol for this and other items with same Left
    * <ExcelSpecialCol>18</ExcelSpecialCol> - Indicates ExcelCol for one item only
    * <ExcelNamedRange>Cajas_Per1;=Sheet1!R10C7</ExcelNamedRange> - Indicates NameOfRange,Range, as defined by Excel
    * <ExcelInsertFormula>=+(RC[-4]+RC[-3]) / Cajas_Per2</ExcelInsertFormula> - Indicates formula to insert
This.ShowTherm(15)
nSecs = SECONDS()
    LOCAL lcComment
    SCAN FOR !EMPTY(Comment)
        lcComment = ''
        TRY
            lcComment  = '<data> <datos>' + Comment + '</datos> </data>'
            lcComment  = XMLTOCURSOR(lcComment)
        CATCH
        ENDTRY
        SELECT (this.cOutputAlias)
        TRY
            REPLACE nExcelColRequest WITH XMLResult.ExcelCol
        CATCH
        ENDTRY
        TRY
            REPLACE nExcelSpecialColRequest WITH XMLResult.ExcelSpecialCol
        CATCH
        ENDTRY
        TRY
            IF (VARTYPE(XMLResult.ExcelDelete) = 'C' AND UPPER(XMLResult.ExcelDelete) = '.T.') ;
               OR XMLResult.ExcelDelete
                DELETE
            ENDIF
        CATCH
        ENDTRY
        TRY
            REPLACE nExcelColWidth WITH XMLResult.ExcelColWidth
        CATCH
        ENDTRY
        TRY
            REPLACE cExcelAlignment WITH XMLResult.ExcelAlignment
        CATCH
        ENDTRY
        TRY
            REPLACE cExcelAlignment WITH XMLResult.ExcelAlign
        CATCH
        ENDTRY
        TRY
            REPLACE nExcelMergeAcross WITH XMLResult.ExcelMergeAcross
        CATCH
        ENDTRY
        TRY
            REPLACE cExcelBorder WITH XMLResult.ExcelBorder
        CATCH
        ENDTRY
        TRY
            REPLACE cExcelInterior WITH XMLResult.ExcelInterior
        CATCH
        ENDTRY
        TRY
            REPLACE nExcelUnderlinedColCount WITH XMLResult.ExcelUnderlinedColCount
        CATCH
        ENDTRY
* 21/06/08 Add ExcelInsertFormula, ExcelNamedCell and ExcelNamedRange options
* cExcelInsertFormula
        TRY
            REPLACE cExcelInsertFormula WITH XMLResult.ExcelInsertFormula
        CATCH
        ENDTRY
        TRY
            REPLACE cExcelNamedRange WITH XMLResult.ExcelNamedRange
        CATCH
        ENDTRY
        TRY
            REPLACE cExcelNamedCell WITH XMLResult.ExcelNamedCell
        CATCH
        ENDTRY
        TRY
            USE IN XMLResult
        CATCH
        ENDTRY
    ENDSCAN
* Run ExcelStyle routine (2 - Before assigning row)
    This.ApplyExcelStyle(This.cExcelStyle,2)
* Calc rows ExcelRow
    * User contains band number
    SELECT DISTINCT nPageNo,nTop,LEFT(User,3) AS User,0000000 AS ExcelRow ;
        FROM (this.cOutputAlias) ;
        INTO CURSOR PageTop READWRITE
    INDEX ON TRANSFORM(nPageNo,'@L 999999') + TRANSFORM(nTop,'@L 999999') TAG PagTop
    LOCAL lnLastTop,lnLastRow,lnLastPageNo, llSkipped, lnOldPage, llNewPage
    lnLastTop     = 0
    lnLastRow    = 1
    lnLastPageNo = 1
    lnOldPage    = 1
    SCAN
        * Page header is ignored after page 1
        llSkipped = .F.
        llNewPage = .F.
        * 2010.01.30 - CChalom: Skip one line if new page
        IF nPageNo > lnOldPage
            lnOldPage = nPageNo
            lnLastRow = lnLastRow + 1
            llNewPage = .T.
        ENDIF
        IF nPageNo > 1 && # lnLastPageNo
            IF VAL(User) < 3
                LOOP
            ELSE
                * If new page adjust last top
                lnLastPageNo = nPageNo
                IF llNewPage
                    lnLastTop = nTop - pnRowHeight
                ENDIF
            ENDIF
        ENDIF
        * There may be empty rows above this one
        DO WHILE nTop > lnLastTop + pnRowHeight
            lnLastTop = lnLastTop + pnRowHeight
            lnLastRow = lnLastRow + 1
            llSkipped = .T.
        ENDDO
        * nTop may be so close that is is considered same row
        IF nTop < lnLastTop + .5 * pnRowHeight
            * No change in lnLastTop
        ELSE
            IF NOT llSkipped && Only if we are already in the page
                lnLastRow = lnLastRow + 1
            ENDIF
        ENDIF
        lnLastTop = nTop
        REPLACE ExcelRow WITH lnLastRow
        * WAIT WINDOW NOWAIT 'Calculando renglones...'
    ENDSCAN
    SELECT (This.cOutputAlias)
    SET RELATION TO TRANSFORM(nPageNo,'@L 999999') + TRANSFORM(nTop,'@L 999999') INTO PageTop
    REPLACE ALL ExcelRow WITH PageTop.ExcelRow
This.ShowTherm(25)
* Run ExcelStyle routine (3 - Before assigning col)
    This.ApplyExcelStyle(This.cExcelStyle,3)
* Calc cols
    LOCAL lnLastLeft,lnLastCol,llAssignedCol,lnExcelCol
    * cParseOrder indicates parsing order for two cells with same nLeft
    * Parse from report top
*                    TRANSFORM(100-nExcelColRequest-nExcelSpecialColRequest,'@L 999') AS cParseOrder ;
    SELECT DISTINCT nLeft,0000000 AS ExcelCol,nExcelColRequest,nExcelSpecialColRequest, ;
                    '9' AS cParseOrder ;
            FROM (This.cOutputAlias) ;
            INTO CURSOR Lefts READWRITE
    REPLACE ALL cParseOrder WITH '2' ;
            FOR nExcelColRequest > 0
    REPLACE ALL cParseOrder WITH '1' ;
            FOR nExcelSpecialColRequest > 0
    INDEX ON TRANSFORM(nLeft,'@L 999999') + cParseOrder TAG LefOrd
    lnLastLeft = 0
    lnLastCol  = 0
    LOCAL laCount[1]
    SCAN
        IF nLeft = lnLastLeft
*            DELETE
*            LOOP
        ENDIF
        * WAIT WINDOW NOWAIT 'Calculando columnas...'
        lnThisLeft      = nLeft
        llAssignedCol = .F.
        lnExcelCol      = 0
        * Lefts.nExcelSpecialColRequest is col request for this item only
        IF Lefts.nExcelSpecialColRequest > 0
            * Make sure that requested cell is not occupied
            lnExcelCol = Lefts.nExcelSpecialColRequest
            SELECT COUNT(*) ;
              FROM (this.cOutputAlias) A ;
              JOIN (this.cOutputAlias) B  ON A.ExcelRow = B.ExcelRow ;
             WHERE A.ExcelCol = lnExcelCol ;
                    AND B.ExcelCol = 0 ;
                    AND B.nLeft = lnThisLeft ;
                    AND B.nExcelSpecialColRequest = lnExcelCol ;
              INTO ARRAY laCount
            IF laCount > 0
                * There was a clash.  Don't assign.
                * SET STEP ON
            ELSE
                * Accept request
                REPLACE ExcelCol WITH lnExcelCol
                REPLACE ALL ExcelCol WITH lnExcelCol ;
                        FOR nLeft = lnThisLeft ;
                            AND nExcelSpecialColRequest = lnExcelCol ;
                         IN (this.cOutputAlias)
                LOOP
            ENDIF
        ENDIF
        IF Lefts.nExcelColRequest > 0
            * Make sure that cell is not occupied
            lnExcelCol = Lefts.nExcelColRequest
            SELECT COUNT(*) ;
              FROM (this.cOutputAlias) A ;
              JOIN (this.cOutputAlias) B  ON A.ExcelRow = B.ExcelRow ;
             WHERE A.ExcelCol = lnExcelCol ;
                    AND B.nLeft = lnThisLeft ;
              INTO ARRAY laCount
            IF laCount > 0
                * There was a clash.  Don't assign.
            ELSE
                * Accept request
                lnLastCol  = MAX(lnExcelCol,lnLastCol)
                lnLastLeft = nLeft
                REPLACE ExcelCol WITH lnExcelCol
                REPLACE ALL ExcelCol WITH lnExcelCol ;
                        FOR nLeft = lnThisLeft ;
                            AND EMPTY(ExcelCol) ;
                         IN (this.cOutputAlias)
                LOOP
            ENDIF
        ENDIF
        * Haven't assigned Excel column yet, so do it here
        * If Left is very close it may be considered same col, except if it causes overlap
        IF nLeft < lnLastLeft + .75 * pnColWidth AND lnLastCol # 0
            * Make sure it doesn't cause two fields in same cell
            SELECT COUNT(*) ;
              FROM (this.cOutputAlias) A ;
              JOIN (this.cOutputAlias) B  ON A.ExcelRow = B.ExcelRow ;
             WHERE A.ExcelCol = lnLastCol ;
                    AND B.nLeft = lnThisLeft ;
                    AND EMPTY(B.ExcelCol) ;
              INTO ARRAY laCount
            IF laCount > 0
                lnLastCol  = lnLastCol + 1
                lnLastLeft = nLeft
            ELSE
                * No change either in lnLastCol or lnLastLeft
            ENDIF
        ELSE
            lnLastCol  = lnLastCol + 1
            lnLastLeft = nLeft
        ENDIF
        REPLACE ExcelCol WITH lnLastCol
        REPLACE ALL ExcelCol WITH lnLastCol ;
                FOR nLeft    = lnThisLeft ;
                    AND EMPTY(ExcelCol) ;
                 IN (this.cOutputAlias)
    ENDSCAN
This.ShowTherm(30)
nSecs = SECONDS()
* Calc how many columns exist
    LOCAL ja[1]
    SELECT MAX(ExcelCol) ;
      FROM (this.cOutputAlias) ;
      INTO ARRAY ja
    PRIVATE pnMaxCol
    pnMaxCol = ja
* Extract ExcelColWidths requested
    PRIVATE paColData
    DIMENSION paColData[1,2]
    lnColData = 0
    SELECT (this.cOutputAlias)
    * This could follow the real Width of the fields, but does not provide a good result
    * REPLACE ALL nexcelcolwidth WITH CEILING(nWidth / 70)
    SCAN FOR !EMPTY(nExcelColWidth)
        IF ASCAN(paColData,ExcelCol,1,ALEN(paColData,1),1,8) > 0
            LOOP
        ENDIF
        lnColData = lnColData + 1
        DIMENSION paColData[lnColData,3]
        paColData[lnColData,1] = ExcelCol
        paColData[lnColData,2] = .F.            && AutoFitWidth
        paColData[lnColData,3] = nExcelColWidth
    ENDSCAN
* Run ExcelStyle routine (4 - After assigning row and column)
    This.ApplyExcelStyle(This.cExcelStyle,4)
    This.cWorkbookFile = ALLTRIM(This.cWorkbookFile)
    luWorkbook        = FORCEPATH(This.CalcBaseFileName(This.cWorkbookFile), ;
                                IIF(EMPTY(JUSTPATH(This.cWorkbookFile)),FULLPATH(CURDIR()),FULLPATH(JUSTPATH(This.cWorkbookFile))))
    lcWorkSheetName = IIF(EMPTY(This.cWorksheetName),'Sheet1',This.cWorksheetName)
    lcOpciones = ''
    * Erase previous file if not ADDITIVE
    llEraseOK = .T.
    IF NOT EMPTY(luWorkbook) AND NOT 'ADDITIVE' $ lcOpciones AND FILE(luWorkbook)
        * Erase inside TRY/CATCH because it may be in use
        TRY
            ERASE (luWorkbook)
        CATCH
            * Couldn't erase file, so leave a workbook open without saving
            * WAIT WINDOW NOWAIT 'No pude borrar copia anterior de ' + luWorkbook
            llEraseOK = .F.
        ENDTRY
    ENDIF
    IF !llEraseOK
        luWorkbook = FORCEPATH(This.CalcNextFileName(luWorkbook),FULLPATH(CURDIR()))
        IF NOT EMPTY(luWorkbook) AND NOT 'ADDITIVE' $ lcOpciones AND FILE(luWorkbook)
            * Erase inside TRY/CATCH because it may be in use
            TRY
                ERASE (luWorkbook)
            CATCH
                * Couldn't erase file, so leave a workbook open without saving
                * WAIT WINDOW NOWAIT 'No pude borrar copia anterior de ' + luWorkbook
                llEraseOK = .F.
            ENDTRY
        ENDIF
    ENDIF
* Place data in Excel by writing file in XML format
    DIMENSION paStyles[1,10]        && Array to save styles
    * Column1  = Key
    * Column2  = FontFace
    * Column3  = FontSize
    * Column4  = FontStyle
    * Column5  = DataType
    * Column6  = NumberFormat
    * Column7  = HorizontalAlignment
    * Column8  = Borders
    * Column9  = Colors
    * Key = PADR(FontFace,20)+TRAN(FontSize,'99') + PADR(DataType,10) + PADR(NumberFormat,20)
    SELECT FontFace,FontSize,FontStyle ;
        FROM (This.cFRXalias) ;    && (this.cOutputAlias) does not contain ObjType = 1 AND ObjCode = 53
        WHERE Platform = 'WINDOWS ' ;
            AND ObjType = 1 AND ObjCode = 53 ;
        INTO ARRAY ja
    paStyles[1,2]  = IIF(EMPTY(ja[1]),'Lucida Console',ja[1])
    paStyles[1,3]  = IIF(EMPTY(ja[2]),10,MIN(ja[2] + 3,10))    && 3 points larger that in report up to 10
    paStyles[1,4]  = ja[3]
    paStyles[1,5]  = ''
    paStyles[1,6]  = ''
    paStyles[1,7]  = '' && Alignment
    paStyles[1,8]  = ''    && Border
    paStyles[1,9]  = ''    && Colors
    paStyles[1,1]  = UPPER(PADR(paStyles[1,2],20)+TRAN(paStyles[1,3],'99')+TRAN(paStyles[1,4],'99') ;
        + PADR(paStyles[1,5],10) + PADR(paStyles[1,6],20)) + PADR(paStyles[1,7],30) ;
        + PADR(paStyles[1,8],50) + PADR(paStyles[1,9],50)
    * Create styles array and XML for table items
    LOCAL lcXmlTable,lcCRLF,lnLastRow
    lcXmlTable = This.xml_Table_Header()
    lcCRLF       = CHR(13)+CHR(10)
    lnLastRow  = 0
    SELECT (This.cOutputAlias)
    SET ORDER TO RowCol
    LOCAL liLastRow, liLastCol, liCurrRow, liCurrCol, liRec
    STORE 0 TO liLastRow, liLastCol, liCurrRow, liCurrCol
    SCAN
        liRec     = RECNO()
        liCurrRow = ExcelRow
        liCurrCol = ExcelCol
        IF liCurrRow = liLastRow AND liCurrCol = liLastCol && 2 elements in the same cell
            IF liRec > 1
                SKIP -1
                lcPrevContents = Contents
                DELETE
                SKIP + 1
                REPLACE Contents WITH (ALLTRIM(lcPrevContents) + " / " + Contents)
            ENDIF
        ENDIF
        liLastRow = ExcelRow
        liLastCol = ExcelCol
    ENDSCAN
    LOCAL llIncomplete
    llIncomplete = liLastRow > 65530
*MESSAGEBOX("Step 6 - " + TRANSFORM(SECONDS() - nSecs))
nSecs = SECONDS()
This.ShowTherm(40)
LOCAL lnRecs, ln12, ln25, ln37, ln50, ln62, ln75, ln87, ln100
lnRecs = RECCOUNT()
ln25 = INT(lnRecs/4)
ln12 = INT(ln25/2)
ln37 = ln25 + ln12
ln50 = INT(lnrecs/2)
ln62 = ln50 + ln12
ln75 = ln25 + ln50
ln87 = ln75 + ln12
    SCAN FOR NOT DELETED()
        * WAIT WINDOW NOWAIT 'Preparando para guardar... (' + TRANSFORM(ExcelRow) + ',' + TRANSFORM(ExcelCol) + ')'
        * If ExcelRow = 0 element belongs to page header of later page
        IF ExcelRow = 0 OR ExcelRow > 65530
            LOOP
        ENDIF
        * If new row, close last row (if open) and open new.
        IF lnLastRow # ExcelRow
            IF lnLastRow # 0
                lcXmlTable = lcXmlTable + This.Xml_Row_Footer()
            ENDIF
            lnLastRow = ExcelRow
            lcXmlTable = lcXmlTable + This.Xml_Row_Header()
        ENDIF
        lnStyleNumber = This.Xml_StyleNumber(Contents)
        lcXmlTable      = lcXmlTable + This.Xml_Cell(Contents, UNCONTENTS, lnStyleNumber) && 2011-12-29 Passing the Unicode as well
        IF RECNO() = ln12
            This.ShowTherm(48)
        ENDIF
        IF RECNO() = ln25
            This.ShowTherm(55)
        ENDIF
        IF RECNO() = ln37
            This.ShowTherm(62)
        ENDIF
        IF RECNO() = ln50
            This.ShowTherm(70)
        ENDIF
        IF RECNO() = ln62
            This.ShowTherm(77)
        ENDIF
        IF RECNO() = ln75
            This.ShowTherm(85)
        ENDIF
        IF RECNO() = ln87
            This.ShowTherm(92)
        ENDIF
    ENDSCAN
    This.ShowTherm(97)
    lcXmlTable = lcXmlTable + This.Xml_Row_Footer()
    lcXmlTable = lcXmlTable + This.xml_Table_Footer()
    LOCAL lcXML
    lcXML = This.Xml_File_Header()
    lcXML = lcXML + This.Xml_Workbook_Header()
    lcXML = lcXML + This.Xml_Styles_Header()
    FOR m.i = 21 TO 20 + ALEN(paStyles,1)
        lcXML = lcXML + This.Xml_Style(m.i)
    ENDFOR
    lcXML = lcXML + This.Xml_Styles_Footer()
* 21/06/08 Adding NamedRange(s)
*<ExcelNamedRange>Cajas_Per2,=Sheet1!R10C13</ExcelNamedRange>
    DIMENSION paNames[1]        && Array to save NamedRanges
    paNames = ''
    SELECT DISTINCT cExcelNamedRange ;
        FROM (this.cOutputAlias) ;
        WHERE !EMPTY(cExcelNamedRange) ;
        INTO ARRAY paNames
    IF !EMPTY(paNames)
        lcXML = lcXML + This.Xml_Names_Header()
        FOR m.i = 1 TO ALEN(paNames,1)
            lcXML = lcXML + This.Xml_Name(m.i)
        ENDFOR
        lcXML = lcXML + This.Xml_Names_Footer()
    ENDIF
    lcXML = lcXML + This.Xml_Worksheet_Header(lcWorkSheetName)
* Since we finished processing, now it's nice to set the StrictDate back to the original
SET STRICTDATE TO (This.SetStrictDate)
LOCAL lcTempFile, lnHandle
lcTempFile = ADDBS(GETENV("TEMP")) + "FP_" + SYS(2015) + ".XML"
lnHandle = FCREATE(lcTempFile)
IF lnHandle <= 0
    =MESSAGEBOX("Error creating file: " + lcTempFile, "Error")
    RETURN
ENDIF
=FPUTS(lnHandle, lcXML)
*    lcXML = lcXML + lcXmlTable
=FPUTS(lnHandle, lcXMLTable)
*    lcXML = lcXML + This.Xml_Worksheet_Footer()
=FPUTS(lnHandle, This.Xml_Worksheet_Footer())
*    lcXML = lcXML + This.Xml_Workbook_Footer()
=FPUTS(lnHandle, This.Xml_Workbook_Footer())
    This.ShowTherm(99)
    LOCAL llSaved
    llSaved = FCLOSE(lnHandle)
    * Check if we need to convert to UTF-8
    IF This.lConvertToUTF8
        TRY
            LOCAL lcXMLWks, lcOldSetSafe
            lcXMLWKS = FILETOSTR(lcTempFile)
            lcOldSetSafe = SET("Safety")
            SET SAFETY OFF
            =STRTOFILE(STRCONV(lcXMLWKS,9) , lcTempFile, 4)
            SET SAFETY &lcOldSetSafe.
        CATCH
        ENDTRY
    ENDIF
    * Save sheet
    IF NOT EMPTY(This.TargetFileName)
        This.cWorkbookFile = This.TargetFileName
    ENDIF
    IF (UPPER(JUSTEXT(This.cWorkbookFile)) = "XML") OR ;
            (NOT This.lConvertToXLS)
        llSaved = .F.
        TRY
            RENAME (lcTempFile) TO (This.cWorkbookFile)
            * llSaved = (STRTOFILE(lcXml, This.cWorkbookFile)) > 0
            INKEY(.1)
            llSaved = .T.
        CATCH
        ENDTRY
    ELSE
*!*            LOCAL lcTempFile
*!*            lcTempFile = ADDBS(GETENV("TEMP")) + "FP_" + SYS(2015) + ".XML"
*!*            llSaved = (STRTOFILE(lcXml, lcTempFile)) > 0
        This.ShowTherm(100, IIF(VARTYPE(_goHelper)="O", _goHelper.GetLoc("xlConv2xls"), ""))
        INKEY(.1)
        IF llSaved
            llSaved = .F.
            llSaved = This.ToPureXLSUsingExcel(lcTempFile, This.cWorkbookFile) && 1st try, using Excel automation
            IF NOT llSaved
                llSaved = This.ToPureXLSUsingOO(lcTempFile, This.cWorkbookFile) && 2nd try, using OpenOffice automation
            ENDIF
            IF NOT llSaved && If we didnt manage to use Excel or OO automation to convert, then
                           && we'll keep it as XML
                TRY
                    RENAME (lcTempFile) TO (This.cWorkbookFile)
                    llSaved = .T.
                CATCH
                    llSaved = (STRTOFILE(FILETOSTR(lcTempFile), This.cWorkbookFile)) > 0
                ENDTRY
                INKEY(.1)
            ENDIF
            * Erase the temp file
            IF FILE(lcTempFile)
                TRY
                    ERASE (lcTempFile)
                CATCH
                ENDTRY
            ENDIF
        ENDIF
    ENDIF
    IF llSaved
        IF This.lObjTypeMode
            _Screen.oFoxyPreviewer.lSaved = llSaved
        ENDIF
        IF This.lOpenViewer AND NOT EMPTY(This.TargetFileName)
            This.ShellExec(This.TargetFileName)
        ENDIF
    ENDIF
    IF llIncomplete
        IF VARTYPE(_goHelper) <> "O"
            MESSAGEBOX("Report is too big to be exported to the Excel format." + CHR(13) + ;
                "Please revise the created document because it will be incomplete!", 48, "Attention")
        ELSE
            MESSAGEBOX(_goHelper.GetLoc("XLTOOBIG"), 48, _goHelper.GetLoc("ATTENTION"))
        ENDIF
    ENDIF
IF This.lDefaultMode
    THIS.setCurrentDataSession()
    DODEFAULT()
ENDIF
* Delete the temporary copy of the FRX we created
IF This.lObjTypeMode
    USE IN SELECT(This.cFRXalias)
    TRY
        DELETE FILE (This.cTempFRX)
    CATCH
    ENDTRY
ENDIF
    USE IN SELECT("LEFTS")
    USE IN SELECT("PAGETOP")
CATCH
ENDTRY
ENDPROC
PROCEDURE Init
declare integer GetDeviceCaps in WIN32API integer HDC, integer item
declare integer GetDC         in WIN32API integer hWnd
declare integer ReleaseDC     in WIN32API integer hWnd, integer HDC
DECLARE INTEGER GetWindowDC      IN WIN32API INTEGER hwnd
DODEFAULT()
* 2010/08/08 Fix by Jaketon / CChalom, when set point = ","
* I needed to store the original settings because the ReportListener class
* changes the settings during run
This.AddProperty("SetSeparator", SET("Separator"))
This.AddProperty("SetPoint", SET("Point"))
This.AddProperty("SetDate", SET("Date"))
This.AddProperty("SetDateAnsi", INLIST(SET("Date"),"ANSI","GERMAN"))
This.AddProperty("lConvertToXLS" , .T.)
This.AddProperty("lRepeatHeaders", .T.)
This.AddProperty("lRepeatFooters", .T.)
This.AddProperty("lHidePageNo"   , .F.)
This.AddProperty("lUseUnicode"   , .F.) && 2011-12-29
This.AddProperty("lConvertToUTF8", .F.) && 2011-12-31
* Developer can indicate properties by placing values in Comment field in this format: <ExcelCol>18</ExcelCol>
* To get numeric 1 or 0 must write it as 1. or 0., otherwise Fox interprets as .T. / .F.
    * <ExcelCol>18</ExcelCol>                - Indicates ExcelCol for this and other items with same Left
    * <ExcelSpecialCol>18</ExcelSpecialCol> - Indicates ExcelCol for one item only
    * <ExcelNamedRange>Cajas_Per1;=Sheet1!R10C7</ExcelNamedRange> - Indicates NameOfRange,Range, as defined by Excel
    * <ExcelInsertFormula>=+(RC[-4]+RC[-3]) / Cajas_Per2</ExcelInsertFormula> - Indicates formula to insert
*!* ExcelBorders format: <ExcelBorders>Top,Single,1;Bottom,Double,3</ExcelBorders>
*!*       <Borders>
*!*        <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>
*!*        <Border ss:Position="Bottom" ss:LineStyle="Double" ss:Weight="3"/>
*!*       </Borders>
* Codify report colors as <ExcelInterior>Solid,xxxxxx</ExcelInterior> and store in cExcelInterior
*!* Interior properties.
*!*        Color         = Background Color
*!*        Pattern         = "Solid" --> no pattern, "Gray125", "ThinVert ss:Pattern="Solid"Stripe"
*!*        PatternColor
*!* Samples:
*!*    <ExcelInterior>Solid,FFFF00</ExcelInterior>
*!*        <Interior ss:Color="#FFFF00" ss:Pattern="Gray125"/>
*!*    <ExcelInterior>Gray125,FFFFFF,000000</ExcelInterior>
*!*        <Interior ss:Color="#FFFFFF" ss:Pattern="Gray125" ss:PatternColor="#000000"/>
*!*    <ExcelInterior>ThinVertStripe,FFFF00,00FF00</ExcelInterior>
*!*        <Interior ss:Color="#FFFF00" ss:Pattern="ThinVertStripe" ss:PatternColor="#00FF00"/>
*<ExcelNamedRange>Cajas_Per2,=Sheet1!R10C13</ExcelNamedRange>
ENDPROC
PROCEDURE BeforeReport
* Code is inspired by Dorin Valisescu's CursorListener
IF This.lDefaultMode OR This.lObjTypeMode
    DODEFAULT()
ENDIF
IF this.lOutputToCursor
    IF  EMPTY(this.cOutputDBF)
        this.cOutputDBF = ADDBS(SYS(2023)) + SYS(2015) + '.dbf'
    ENDIF
    IF EMPTY(this.cOutputAlias)
        this.cOutputAlias = STRTRAN(JUSTSTEM(this.cOutputDBF), ' ', '_')
    ENDIF
    This.setFRXDataSession()
    IF This.lObjTypeMode
        * Make a copy of the FRX table and manipulate it
        This.cTempFRX = ADDBS(SYS(2023)) + "FRX_" + SYS(2015) + '.dbf'
        This.cFRXalias = "CopyFRX"
        SELECT FRX
        COPY TO (This.cTempFRX)
        USE (This.cTempFRX) SHARED AGAIN IN 0 ALIAS (This.cFRXalias)
    ENDIF
    * Store in Frx.User the number of the band to which each field belongs
    This.CalcBandNumbers()
    * Don't reprint group header on each page (not working yet)
    REPLACE ALL NoRepeat WITH .F. ;
            FOR objType = 9 AND (ObjCode = 3 OR ObjCode = 5)
    GO TOP
    CREATE CURSOR (this.cOutputAlias) (nFrxRecno N(4,0),nLeft I, nTop I, nWidth I, nHeight I, ;
                                       Contents M NOCPTRANS, UNCONTENTS M NOCPTRANS, nPageNo I)
    INDEX ON nFrxRecno TAG nFrxRecno
ENDIF
THIS.setCurrentDataSession()
This.SetDate = SET("Date")
This.SetStrictDate = SET("Strictdate")
SET STRICTDATE TO 0
ENDPROC
PROCEDURE Render
LPARAMETERS nFRXRecno, nLeft, nTop, nWidth, nHeight, nObjectContinuationType, cContentsToBeRendered, GDIPlusImage
* From PDFx by Luis Navas
* Code to detect if report will run twice because of use of _PAGETOTAL
If This.TwoPassProcess And This.CurrentPass=0 Then
    NODEFAULT
    RETURN
EndIf
IF this.lOutputToCursor
    LOCAL cContents
    WITH this
        IF EMPTY(cContentsToBeRendered)
            cContents = ''
        ELSE
* 01/01/07 Correction by Andus Moor: Created XML file caused encoding error for some data
*            cContents = STRCONV(cContentsToBeRendered, 6)
* 02/01/07 Second conversion by Andrus Moor
*            cContents = STRCONV(strt(strt(strt(cContentsToBeRendered,'&','&'),'>','>' ),'<','<'),9)
*            cContents = STRCONV(strt(strt(strt(cContentsToBeRendered,'&','&'),'>','>' ),'<','<'),6)
* 14/06/10 Fix by CChalom
* Need first to convert the contents before converting to HTML tags
            LOCAL lcTmpContent
            lcTmpContent = STRCONV(cContentsToBeRendered, 6)
            cContents = strt(strt(strt(lcTmpContent,'&','&'),'>','>' ),'<','<')
        ENDIF
        This.setFRXDataSession()
        IF NOT EMPTY(cContents)
            INSERT INTO (.cOutputAlias) (nFrxRecno, nLeft, nTop, nWidth, nHeight, Contents, UNCONTENTS, nPageNo) ;
                             VALUES (m.nFrxRecno,m.nLeft,m.nTop,m.nWidth,m.nHeight,m.cContents, m.cContentsToBeRendered, .PageNo)
        ENDIF
        this.setCurrentDataSession()
        SELECT (this.drivingAlias)
    ENDWITH
ENDIF
DODEFAULT(nFRXRecno, nLeft, nTop, nWidth, nHeight, nObjectContinuationType, cContentsToBeRendered, GDIPlusImage)
ENDPROC
PROCEDURE Destroy
* 02/10/06 Alex. This code was in Dorin's cursorListener.
* It is not necessary because we keep directory table in FrxDatasession which doesn't exist.
*this.resetDataSession()
*IF USED(this.cOutputAlias)
*    USE IN (this.cOutputAlias)
*ENDIF
DODEFAULT()
ENDPROC
PROCEDURE DoStatus
LPARAMETERS cMessage
RETURN
* This code comes from, Dorin's to use Carlos Alloati's therm
LOCAL loParentForm, lcCaption, lcParentFormName
NODEFAULT
IF (NOT (THIS.QuietMode or ;
    (THIS.IsRunning AND THIS.CommandClauses.NoDialog)))
    IF this.nlastpercent <> CEILING(this.percentDone*100)
        this.nlastpercent = CEILING(this.percentDone*100)
    ELSE
        RETURN
    ENDIF
    IF EMPTY(cMessage) OR ISNULL(cMessage)
        cMessage = ""
    ENDIF
    lcCaption = EVALUATE(THIS.ThermCaption)
    IF ((NOT ISNULL(THIS.ThermForm)) OR (THIS.CreateTherm()) )
        WITH THIS.ThermForm
            IF THIS.IsRunning
                .Closable = .F.
                .Movable = .F.
            ENDIF
            .Therm.Value = CEILING(THIS.PercentDone * 100)
            .ThermLabel.Caption = lcCaption
            IF NOT .Visible
                loParentForm = THIS.GetParentWindowRef()
                DO CASE
                    CASE VARTYPE(loParentForm) # "O" AND (NOT _SCREEN.Visible)
                        lcParentFormName = "MACDESKTOP"
                    CASE VARTYPE(loParentForm) # "O"
                        lcParentFormName = "SCREEN"
                    CASE (NOT loParentForm.Visible) AND ;
                        (loParentForm.DeskTop OR NOT EMPTY(loParentForm.MacDesktop) OR ;
                        loParentForm.ShowWindow = 2 OR (NOT _SCREEN.Visible))
                        * in many cases,
                        * they've probably made a programming error,
                        * the parent should be visible according to
                        * the requirements of REPORT FORM ... IN WINDOW
                        * if it's a WINDOW clause they
                        * have no need to show it, might not be an error
                        * Either way, they should see the therm
                        * to know that the report is progressing
                        lcParentFormName = "MACDESKTOP"
                    CASE (NOT loParentForm.Visible)
                        * same comment as above
                        lcParentFormName = "SCREEN"
                    OTHERWISE
                        lcParentFormName = loParentForm.Name
                ENDCASE
                SHOW WINDOW (.Name) IN WINDOW (lcParentFormName)
                .AlwaysOnTop = .T.
                .AutoCenter = .T.
                .Visible = .T.
            ENDIF
        ENDWITH
    ENDIF
ENDIF
ENDPROC
PROCEDURE setfrxdatasessionenvironment
NODEFAULT
THIS.setFRXDataSession()
SET SEPARATOR TO (This.SetSeparator)
SET POINT TO (This.SetPoint)
SET TALK OFF
ENDPROC
reportlistener
pr_reportlistener.vcx
0FRXDataSession = -1
coutputalias =
coutputdbf =
loutputtocursor = .T.
closeondeactivate = .T.
nlastpercent = 0
cworkbookfile =
cworksheetname =
applyexcelstyleprogram =
cexcelstyle =
waitfornextreport = .F.
ldefaultmode = .T.
cfrxalias = FRX
lobjtypemode = .F.
targetfilename =
lopenviewer = .F.
ccodepage =
ctempfrx =
lalignleft = .F.
nexcelsaveformat = 43
setstrictdate = 0
_memberdata =
     869<VFPData><memberdata name="waitfornextreport" display="WaitForNextReport"/><memberdata name="outputfromdata" display="OutputFromData"/><memberdata name="ldefaultmode" display="lDefaultMode"/><memberdata name="cfrxalias" display="cFRXalias"/><memberdata name="shellexec" display="ShellExec"/><memberdata name="updateproperties" display="UpdateProperties"/><memberdata name="lobjtypemode" display="lObjTypeMode"/><memberdata name="targetfilename" display="TargetFileName"/><memberdata name="lopenviewer" display="l<VFPData><memberdata name="waitfornextreport" display="WaitForNextReport"/><memberdata name="outputfromdata" display="OutputFromData"/><memberdata name="ldefaultmode" display="lDefaultMode"/><memberdata name="cfrxalias" display="cFRXalias"/><memberdata name="shellexec" display="ShellExec"/><memberdata name="updateproperties" display="UpdateProperties"/><m
Name = "excellistener"
cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5cI5
cI5 |>
]4[}_
Z!p:l
Z&|9'g1
dJ6dJ6dJ6f
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _18Q0OF4291061424627v
 COMMENT RESERVED
 WINDOWS _16V109SEN1061424706
 COMMENT RESERVED
VERSION =   3.00
    frxcursor
Pixels
_frxcursor.h
foxpro_reporting.h
Pixels
_frxcursor.h
foxpro_reporting.h
_frxcursor.h
resettextmerge
frxdevicehelper
_frxcursor.h
This class knows how to read printer environment information. Usage:
   x = NEWOBJECT( "frxDeviceHelper" )
   IF x.LoadDeviceInfo( cDRIVER, cDEVICE, frx.TAG2 )
       ? x.DpiX
       ? x.DpiY
       :
      etc
Class
gProvides methods to translate and manipulate various values in label  and report tables (LBXs and FRXs)
custom
frxdevicehelper
~dpix Logical pixels-per-inch in the X dimension
dpiy Logical pixels-per-inch in the Y dimension
offsetx Physical printable page left margin
offsety Physical printable page top margin
actualx Physical width of page in device units
actualy Physical length of page in device units
mmx Horizontal page size in millimeters
mmy Vertical page size in millimeters
printablex Horizontal page width in pixels
printabley Vertical page length in pixels
_memberdata XML Metadata for customizable properties
orientation 0=Portrait, 1=Landscape
errormessage Occurs when the Valid event returns false (.F.), and provides a means to display an error message.
*loaddeviceinfo Parses out print device parameters  into member properties given specific device information: Parameters: cDriver, cDevice, cDevMode. Assumes current VFP default printer if no parameters specified.
*loadfromfrx Loads printer device parameters from an FRX cursor header record. Restores recno and selected alias. Params: [ cFrxAlias ] (assumes "frx" if none specified.)
*loadfromstrings Loads printer device parameters from string variables. Params: cExpr, cTag
*loadfromhdc
PRINTER
Unable to create device context. CreateIC() returned 0.
LCDRIVER
LCDEVICE
LCDEVMODE
ERRORMESSAGE
LRETVAL
VRESULT
CREATEIC
LOADFROMHDC
DELETEDC
MESSAGE-
WINDOWS
LCFRXALIAS
ERRORMESSAGE
CURSEL
CURREC
LRETVAL
PLATFORM
OBJTYPE
OBJCODE
LOADFROMSTRINGS
TAG26
DRIVER=
DEVICE=
TCEXPR
TCTAG2
CLINE
CDRIVER
LDRIVER
CDEVICE
LDEVICE
LOADDEVICEINFO
TIHDC
GETDEVICECAPS
OFFSETX
OFFSETY
PRINTABLEX
PRINTABLEY
ACTUALX
ACTUALY
GetLastError
win32api
SetLastError
win32api
CreateIC
gdi32
GetDeviceCaps
gdi32
DeleteDC
gdi32
GETLASTERROR
WIN32API
SETLASTERROR
CREATEIC
GDI32
GETDEVICECAPS
DELETEDC
loaddeviceinfo,
loadfromfrx
loadfromstrings
loadfromhdcO
custom
Class
custom
    frxcursor
screendpi Contains the working DPI of the ReportDesigner.  Currently hard-coded to 96.
_memberdata XML Metadata for customizable properties
quietmode Allows runtime users of frxCursor to specify whether the class displays error messages and other user feedback.
*inttobinstring Returns a string of bytes, the binary version of a given integer.
*binstringtoint Returns a numeric equivalent of a given binary number given in byte string form.
*hasprotectionflag Returns .T. if the given binary data contains a specific bit set. Parameters: cBytes, iBit
*frutopixels Returns the pixel value of a given measurement in FRUs.
*pixelstofru Returns the FRU value of a given measurement in pixels.
*getfrutextwidth Returns the width of a given string in FRUs. Parameters: cText, cTypeface, iSize [, cStyle ]
*getfrutextheight Reutrns the height of a given string in FRUs. Parameters: cText, cTypeface, iSize [, cStyle ]
*gorec Restores record pointer with bounds checking. Parameters: i, cAlias
*getreportattribute Returns the value of a given report/header attribute. The FRX cursor must be open. Parameters: cToken [, iAlternate]
*createbandcursor Creates a cursor with alias "bands" containing records of information for each band in the report. Assumes source alias is "FRX" unless specified. Parameters: [cFrxAlias]
*hasband Returns .T. if the report has the specified band type. Calls .createBandCursor() if necessary. Parameters: iObjCode
*hasdetailheader Returns .T. if the specified detail band has an associated detail header band. Calls .createBandCursor() if necessary. Parameters: cUniqueId
*createobjectcursor Creates a cursor (default alias: "objects") of records for each object record in the report alias. Parameters: [ cFrxAlias [, cDestinationAlias [, iFilterMode ]]]
*createobjcursorrecord Called from .createObjectCursor(). Parameter: cDestinationAlias
*charsettolocale Converts a given Font Charset to a candidate locale Id for use with the STRCONV() function. Parameters: nCharSet
*getbandfor Returns a SCATTER NAME band object for the specified object ID. Calls .createObjectCursor() if necessary. Parameters: cObjectID [, lStart]
*synchobjectpositions Updates VPOS values in the FRX cursor for each object, based on which band the object starts in, and the current height of each band as expressed in the bands cursor. Assumes: band and object cursors exist; current alias is frx cursor; no recno restore.
*getobjectsinband Returns a collection of UNIQUEIDs (or RECNOs) for each object in a given band. Calls .createObjectCursor() if necessary. Parameters: cBandId [, lRecnos]
*insertdataenvrecord Inserts a data environment object record into an FRX cursor. Assumes that the record pointer is appropriately located. Parameters: ID, NAME, EXPR, CODE
*insertband Inserts a band record into an frx cursor. Assumes that the FRX is currently selected and that the record pointer is located appropriately. Parameter: iObjCode
*inserttitleband Inserts a title band into the frx cursor. Parameter: lBreakToNewPage
*insertsummaryband Inserts a summary band into the frx cursor. Parameters: lBreakToNewPage, lPageHeader, lPageFooter
*insertdetailband Inserts a detail band into the frx cursor. Assumes: the record pointer is located appropriately. Parameters: none
*insertdetailheaderfooter Inserts detail header and footer bands into the frx cursor. Assumes: record pointer is located on the detail band record. Parameters: none
*setcolumncount Adds or removes columns (and column header/footer records) from the FRX cursor. Assumes: the frx cursor is selected. Parameters: iColumns
*creategroupcursor Creates a cursor with the alias "groups" containing records of information about each data group in the specified report cursor, default "frx". Parameters: [cFrxAlias]
*createvariablecursor Creates a cursor with the alias "vars" containing records of information for each report variable in the report. Parameters: [cFrxAlias]
*createcalcresetoncursor Creates a cursor with alias "reset_on" that contains records of information for each prompt in the Calculation Reset combobox. Parameters: [cFrxAlias]
*createdefaultprintenvcursor Creates a one-row cursor with the same structure as the FRX. Default parameters are "frx", "defPrnEnv". Parameters: [ cFrxAlias [, cDestinationAlias]]
*getselectedobjectcount Returns the number of selected objects in the frx cursor. Parameter: [cFrxAlias]
*pushprintenvtocursor Saves the current printer environment to a cursor. Parameter: cSavedInAlias
*popprintenv Restores the printer environment from a previously saved cursor. See .PushPrintEnvToCursor() method. Assumes: previously saved cursor is currently selected.
*getfrxtimestamp Returns a FOX system file timestamp from a datetime value, any data type. Parameter: [vDateTime]
*gettimestampstring Returns a readable string version of a Fox system timestamp, using current date settings. Parameter: iStamp
*inttobin Returns a binary form of an integer. Parameter: iNumber
*bintoint Returns the integer form of binary data. Parameter: cBinary
*gettargettypetext Returns a readable string version of a target Type+Code. Parameters: iObjectType, iObjectCode
*getunitvaluefromfru Returns a given unit value for a given value in FRUs, depending on the units. Parameters: nFruValue, iUnits
*stripquotes Returns a string with embraced string delimiters removed. Parameters: cString
*getmetadatadomdoc Returns a reference to an MSXml.DomDocument with the metadata xml loaded. Assumes FRX is located on desired record.
*islayoutcontrol
*unpackmemberdata Parameters: [cFrxAlias], [cMetaAlias]. Defaults to 'frx', 'memberdata'
*packupmemberdata Parameters: [cFrxAlias], [cMetaAlias]. Defaults to 'frx', 'memberdata'
*unpackfrxmemberdata
*getfrxrecdisplayname Returns a readable string version of the current record in the current alias. (Assumes current alias is an FRX structure.)
*xmlstrtocursor
*cursortoxmlstr
*quietmode_assign
*generateevaluatecontentsscript Provides generated EvaluateContents code based on specified MemberData record usage.
*generateadjustobjectsizescript Provides generated AdjustObjectSize code based on specified MemberData record usage.
*resettextmerge Restores a saved set of delimiters  and other characteristics of the SET TEXTMERGE command.
]screendpi = 96
_memberdata =
    4363<?xml version = "1.0" encoding="Windows-1252" standalone="yes"?>
<VFPData>
<memberdata name="getmetadatadomdoc" type="Method" display="GetMetadataDomDoc" favorites="false" override="false" script=""/>
<memberdata name="createvariablecursor" type="Method" display="CreateVariableCursor"/>
<memberdata name="binstringtoint" type="Method" display="BinStringToInt"/>
<memberdata name="bintoint" type="Method" display="BinToInt"/>
<memberdata name="charsettolocale" type="Method" display="CharsetToLocale"/>
<memberdata name="createbandcursor" type="Method" display="CreateBandCursor"/>
<memberdata name="createcalcresetoncursor" type="Method" display="CreateCalcResetOnCursor"/>
<memberdata name="createdefaultprintenvcursor" type="Method" display="CreateDefaultPrintEnvCursor"/>
<memberdata name="creategroupcursor" type="Method" display="CreateGroupCursor"/>
<memberdata name="createobjcursorrecord" type="Method" display="CreateObjCursorRecord"/>
<memberdata name="createobjectcursor" type="Method" display="CreateObjectCursor"/>
<memberdata name="frutopixels" type="Method" display="FruToPixels"/>
<memberdata name="getbandfor" type="Method" display="GetBandFor"/>
<memberdata name="getfrutextheight" type="Method" display="GetFruTextHeight"/>
<memberdata name="getfrutextwidth" type="Method" display="GetFruTextWidth"/>
<memberdata name="getfrxtimestamp" type="Method" display="GetFrxTimeStamp"/>
<memberdata name="getobjectsinband" type="Method" display="GetObjectsInBand"/>
<memberdata name="getreportattribute" type="Method" display="GetReportAttribute"/>
<memberdata name="getselectedobjectcount" type="Method" display="GetSelectedObjectCount"/>
<memberdata name="gettargettypetext" type="Method" display="GetTargetTypeText"/>
<memberdata name="gettimestampstring" type="Method" display="GetTimeStampString"/>
<memberdata name="getunitvaluefromfru" type="Method" display="GetUnitValueFromFru"/>
<memberdata name="gorec" type="Method" display="GoRec"/>
<memberdata name="hasband" type="Method" display="HasBand"/>
<memberdata name="hasdetailheader" type="Method" display="HasDetailHeader"/>
<memberdata name="hasprotectionflag" type="Method" display="HasProtectionFlag"/>
<memberdata name="insertband" type="Method" display="InsertBand"/>
<memberdata name="insertdataenvrecord" type="Method" display="InsertDataEnvRecord"/>
<memberdata name="insertdetailband" type="Method" display="InsertDetailBand"/>
<memberdata name="insertdetailheaderfooter" type="Method" display="InsertDetailHeaderFooter"/>
<memberdata name="insertsummaryband" type="Method" display="InsertSummaryBand"/>
<memberdata name="inserttitleband" type="Method" display="InsertTitleBand"/>
<memberdata name="inttobin" type="Method" display="IntToBin"/>
<memberdata name="inttobinstring" type="Method" display="IntToBinString"/>
<memberdata name="islayoutcontrol" type="Method" display="IsLayoutControl"/>
<memberdata name="packupmemberdata" type="Method" display="PackupMemberData"/>
<memberdata name="pixelstofru" type="Method" display="PixelsToFru"/>
<memberdata name="popprintenv" type="Method" display="PopPrintEnv"/>
<memberdata name="pushprintenvtocursor" type="Method" display="PushPrintEnvToCursor"/>
<memberdata name="runtimemode" type="Property" display="RuntimeMode"/>
<memberdata name="screendpi" type="Property" display="ScreenDPI"/>
<memberdata name="setcolumncount" type="Method" display="SetColumnCount"/>
<memberdata name="stripquotes" type="Method" display="StripQuotes"/>
<memberdata name="synchobjectpositions" type="Method" display="SynchObjectPositions"/>
<memberdata name="unpackmemberdata" type="Method" display="UnpackMemberData"/>
<memberdata name="unpackfrxmemberdata" type="Method" display="UnpackFrxMemberData"/>
<memberdata name="cursortoxmlstr" type="Method" display="CursorToXmlStr"/>
<memberdata name="xmlstrtocursor" type="Method" display="XmlStrToCursor"/>
<memberdata name="getfrxrecdisplayname" type="Method" display="GetFrxRecDisplayName"/><memberdata name="quietmode" display="QuietMode" type="Property" favorites="True"/><memberdata name="generateevaluatecontentsscript" display="GenerateEvaluateContentsScript" type="Method" favorites="True"/><memberdata name="generateadjustobjectsizescript" display="GenerateAdjustObjectSizeScript" type="Method" favorites="True"/>
<memberdata name="resettextmerge" type="Method" display="ResetTextMerge"/>
</VFPData>
quietmode = .F.
Name = "frxcursor"
custom
dpix = 0
dpiy = 0
offsetx = 0
offsety = 0
actualx = 0
actualy = 0
mmx = 0
mmy = 0
printablex = 0
printabley = 0
_memberdata =
    1735<?xml version = "1.0" encoding="Windows-1252" standalone="yes"?>
<VFPData>
<memberdata name="loaddeviceinfo" type="Method" display="LoadDeviceInfo" favorites="false" override="false" script=""/>
<memberdata name="loadfromfrx" type="Method" display="LoadFromFrx" favorites="false" override="false" script=""/>
<memberdata name="loadfromstrings" type="Method" display="LoadFromStrings" favorites="false" override="false" script=""/>
<memberdata name="loadfromhdc" type="Method" display="LoadFromHDC" favorites="false" override="false" script=""/>
<memberdata name="dpix" type="Property" display="DpiX" favorites="false" override="false" script=""/>
<memberdata name="dpiy" type="Property" display="DpiY" favorites="false" override="false" script=""/>
<memberdata name="offsetx" type="Property" display="OffsetX" favorites="false" override="false" script=""/>
<memberdata name="offsety" type="Property" display="OffsetY" favorites="false" override="false" script=""/>
<memberdata name="actualx" type="Property" display="ActualX" favorites="false" override="false" script=""/>
<memberdata name="actualy" type="Property" display="ActualY" favorites="false" override="false" script=""/>
<memberdata name="mmx" type="Property" display="mmX" favorites="false" override="false" script=""/>
<memberdata name="mmy" type="Property" display="mmY" favorites="false" override="false" script=""/>
<memberdata name="printablex" type="Property" display="PrintableX" favorites="false" override="false" script=""/>
<memberdata name="printabley" type="Property" display="PrintableY" favorites="false" override="false" script=""/>
<memberdata name="orientation" type="Property" display="Orientation" favorites="false" override="false" script=""/>
</VFPData>
orientation = 0
errormessage = ("")
Name = "frxdevicehelper"
CBYTES
CBYTE
IRETURN
CBINSTRING
IFLAGBIT
IPROTFLAGS
BINSTRINGTOINT?
IPIXELS
THIS
SCREENDPI%
THIS
SCREENDPI
CTEXT
CTYPEFACE
ISIZE
CSTYLE
IWIDTH
PIXELSTOFRUk
CTEXT
CTYPEFACE
ISIZE
CSTYLE
IHEIGHT
PIXELSTOFRUc
CALIAS
WINDOWS
UNITS
MULTICOLUMN
COLUMNCOUNT
PROTECTION
SNAKED_COLUMNS
CURSEL
CURREC
VRETVAL
OBJTYPE
PLATFORM
RULER
FRX_RULER_FRUS
UNITS_FRU_LOC
UNITS_INCHES_LOC
UNITS_METRIC_LOC
UNITS_PIXELS_LOC
UNITS_CHARACTERS_LOC
ORDER
BOTTOM
GOREC
datasessionv
datasessionv
bands
bands
Collection
Collection
WINDOWS
bands
TCFRXALIAS
TISESSION
CURSEL
CURREC
CURSESSION
BANDS
UNIQUEID
OBJTYPE
OBJCODE
EXPR
BANDLABEL
START
HEIGHT
P_START
P_STOP
P_HEIGHT
R_START
R_STOP
RESETTOTAL
BAND_SEQ
REL_BAND_ID
REC_NO
NSTART
ISTART
IDETAILCOUNT
CSUFFIX
IBANDCOUNT
OGROUP
OHEADER
LCTITLEID
LCSUMMARYID
PLATFORM
GETTARGETTYPETEXT
COUNT
REMOVE
FRUTOPIXELS
IREC
CFOOTERID
CBANDID
CHEADERID
GOREC
bands
IOBJCODE
CREATEBANDCURSOR
CURSEL
LRETVAL
BANDS
OBJCODE
bands
CUNIQUEID
CREATEBANDCURSOR
CURSEL
LRETVAL
BANDS
UNIQUEID
OBJTYPE
OBJCODE
objects
datasessionv
datasessionv
bands
create cursor &tcDestAlias (  UNIQUEID c(10),  OBJTYPE N(2,0),  OBJCODE n(3,0),  EXPR M,  VPOS n(9,3),  HPOS n(9,3),  HEIGHT n(9,3), WIDTH n(9,3), OBJNAME c(50), LOCALE_ID i,  P_START i,  P_STOP i,  P_HEIGHT i,  BAND_OFFSET i,  START_BAND_ID c(10), END_BAND_ID c(10),  BANDLABEL c(75),  SELECTED l,  OBJ_PICT c(12),  BAND_SEQ i,  REC_NO i,  TYPE_SEQ i,  CTYPE c(10) )
WINDOWS
WINDOWS
WINDOWS
WINDOWS
TCFRXALIAS
TCDESTALIAS
TIFILTER
TLRUNTIMEMODE
TISESSION
CURSEL
CURREC
CURSESSION
CREATEBANDCURSOR
OBJTYPE
PLATFORM
CREATEOBJCURSORRECORD
IGRPSTART
IGRPCOUNT
CURPOS
GOREC
Label
pslabel.bmp
Field
pseditbx.bmp
psline.bmp
Rectangle
pshape.bmp
Picture/OLE Bound
psolebnd.bmp
Grouped Objects
group2.bmp
Indeterminate behavior
Resolved as Page Header
TCDESTALIAS
TLRUNTIMEMODE
SRCALIAS
LISGROUP
REC_NO
OBJNAME
GETFRXRECDISPLAYNAME
OBJTYPE
CTYPE
OBJ_PICT
LOCALE_ID
CHARSETTOLOCALE
RESOID
TYPE_SEQ
UNIQUEID
OBJCODE
HEIGHT
P_START
FRUTOPIXELS
P_HEIGHT
P_STOP
WIDTH
SELECTED
CURPOS
BANDS
R_START
START_BAND_ID
BANDLABEL
BAND_OFFSET
BAND_SEQ
R_STOP
END_BAND_ID
REL_BAND_ID
NCHARSET
datasessionv
datasessionv
objects
COBJECTID
LSTART
ISESSION
CURSESSION
CREATEOBJECTCURSOR
CURSEL
OBAND
OBJECTS
UNIQUEID
BANDS
START_BAND_ID
END_BAND_ID
WINDOWS
bands4
objects4
CURSEL
CURREC
OBJTYPE
PLATFORM
UNIQUEID
OBJECTS
BANDS
START_BAND_ID
PIXELSTOFRU
P_START
BAND_OFFSET
GORECh
datasessionv
datasessionv
Collection
objects
CBANDID
LRECNOS
ISESSION
OBANDOBJECTS
CURSEL
CURSESSION
CREATEOBJECTCURSOR
OBJECTS
START_BAND_ID
REC_NO
UNIQUEIDs
WINDOWS
LIOBJTYPE
LCNAME
LCEXPR
LCMETHODS
PLATFORM
OBJTYPE
ENVIRON
CURPOSz
WINDOWS
LIOBJCODE
PLATFORM
UNIQUEID
OBJTYPE
OBJCODE
NOREPEAT
PAGEBREAK
COLBREAK
RESETPAGE
PLAIN
CURPOSD
LNEWPAGE
INSERTBAND
HEIGHT
PAGEBREAKx
LNEWPAGE
LPAGEHEADER
LPAGEFOOTER
OBJTYPE
OBJCODE
INSERTBAND
HEIGHT
PAGEBREAK
EJECTBEFOR
EJECTAFTER
INSERTBAND
WINDOWS
WINDOWS
PLATFORM
UNIQUEID
OBJTYPE
OBJCODE'
WINDOWS
WINDOWS
WINDOWS
WINDOWS
WINDOWS
WINDOWS
WINDOWS
WINDOWS
ICOLS
LHASCOLBANDS
CURREC
CFRXALIAS
OBJTYPE
PLATFORM
OBJCODE
GOREC
CREATEOBJECTCURSOR
UNIQUEID
NOREPEAT
PAGEBREAK
COLBREAK
RESETPAGE
PLAIN
CURPOS
CREATEBANDCURSOR
SYNCHOBJECTPOSITIONS$
datasessionv
datasessionv
UNITS
groups
groups
MULTICOLUMN
WINDOWS
insert into groups values (  &tcFrxAlias..UNIQUEID,  &tcFrxAlias..EXPR,  m.iPaginate,  &tcFrxAlias..NOREPEAT,  m.nThreshold,  "" )
WINDOWS
replace FOOTER_ID with &tcFrxAlias..UNIQUEID
TCFRXALIAS
TISESSION
CURSESSION
CURSEL
IUNITS
GETREPORTATTRIBUTE
GROUPS
UNIQUEID
PAGINATE
REPRINT
THRESH
FOOTER_ID
IPAGINATE
ICURREC
NTHRESHOLD
LISMULTICOL
OBJTYPE
OBJCODE
PLATFORM
PAGEBREAK
RESETPAGE
COLBREAK
GETUNITVALUEFROMFRU
WIDTH
GOREC2
datasessionv
datasessionv
reset_on
WINDOWS
locate for RESETTOTAL = &tcFrxAlias..RESETTOTAL
insert into vars values (  &tcFrxAlias..UNIQUEID,  &tcFrxAlias..NAME,  &tcFrxAlias..EXPR,  &tcFrxAlias..TAG,  &tcFrxAlias..UNIQUE,  &tcFrxAlias..TOTALTYPE+1,  recno("reset_on"),  recno(m.tcFrxAlias) )
TCFRXALIAS
TISESSION
CURSESSION
CURSEL
CREATECALCRESETONCURSOR
UNIQUEID
VARNAME
VALUE_TO_STORE
INITIAL_VALUE
RELEASE_VAR
CALC_TYPE
RESET_ON
REC_NO
ICURREC
IRESETON
OBJTYPE
PLATFORM
GORECK
datasessionv
datasessionv
reset_on
reset_on
reset_on
Report
reset_on
WINDOWS
reset_on
Column
reset_on
Column
WINDOWS
reset_on
WINDOWS
insert into reset_on values (  &tcFrxAlias..UNIQUEID,  &tcFrxAlias..OBJCODE,  "Group: " + trim(&tcFrxAlias..EXPR),  5    + m.iNum )
WINDOWS
reset_on
WINDOWS
insert into reset_on values (  &tcFrxAlias..UNIQUEID,  &tcFrxAlias..OBJCODE,  "Detail " + transform(m.iNum),  79   + m.iNum  )
TCFRXALIAS
TISESSION
CURSESSION
CURSEL
CURREC
IGROUPCOUNT
IDETAILCOUNT
RESET_ON
UNIQUEID
OBJCODE
PROMPT_TEXT
RESETTOTAL
OBJTYPE
PLATFORM
GORECG
datasessionv
datasessionv
defPrnEnv
WINDOWS
LCFRXALIAS
LCPEALIAS
LISESSION
CURSEL
CURSESSION
OBJTYPE
PLATFORM
WINDOWS
LCFRXALIAS
CURSEL
CURREC
SELCOUNT
CURPOS
PLATFORM
OBJTYPEc
CREGISTERALIAS
CURSEL
RESULT
RESULT
TVDATETIME
LTDATETIME
LVFOXTIMESTAMP
LVTEMP
INTTOBIN
BINTOINT~
tiStampb
RETURN TTOC({^&lcYear./&lcMonth./&lcDay. &lcHour.:&lcMinute.:&lcSecond.})
TISTAMP
LNYEAROFFSET
LCYEAR
LCMONTH
LCDAY
LCHOUR
LCMINUTE
LCSECOND
TNINTEGER
LNINTEGER
LCBINARY
LNDIVISOR
LNCOUNT
TCBINARY
LCINTEGER
LNINTEGER
LNCOUNT
LNSTRLEN
Multiple Selection
Comment
Report/Global
Workarea
Index
Relation
Label
Rectangle
Field
Title
Page Header
Column Header
Group Header
Detail
Group Footer
Column Footer
Page Footer
Summary
Detail Header
Detail Footer
Unknown band type
Grouped Objects
Picture/OLE Bound
Variable
Printer Driver Setup
Font Resource
Data Environment
Cursor
Unknown Target type
NOBJTYPE
NOBJCODE
NFRUVALUE
IUNITS
LCVALUE
<VFPData>
    <reportdata name="" type="R" script="" execute="" execwhen="" class="" classlib="" declass="" declasslib=""/>
</VFPData>
MSXml.DomDocument
LCFRXALIAS
CURSEL
STYLE
LOADXML&
IOBJTYPE
datasessionv
datasessionv
memberdata
<VFPD
<?XML
TCFRXALIAS
TCMETAALIAS
TIDATASESSION
CURSEL
LCXML
LLSUCCESS
LIDATASESSION
STYLE
XMLSTRTOCURSOR2
memberdata
datasessionv
datasessionv
<VFPD
<?XML
For this object, the report layout currently contains unexpected STYLE information:C
This may be a consequence of a conversion from a FoxPro DOS report.
If you save your changes, this information will be replaced.
(It will not affect the existing behavior of this report in FoxPro DOS.)
Do you wish to continue?
FoxPro Reporting
reportdata
reportdata
<VFPData><reportdata name="" type="R" script="" execute="" execwhen="" class="" classlib="" declass="" declasslib=""/></VFPData>
<VFPDATA/>
TCFRXALIAS
TCMETAALIAS
TIDATASESSION
LCXML
LIBYTES
LISELECT
LIDATASESSION
LLSUCCESS
STYLE
THIS
QUIETMODE
REPORTDATA
CURSORTOXMLSTR
DATASESSIONv
DATASESSIONv
memberdata
|NAME|TYPE|SCRIPT|EXECUTE|EXECWHEN|CLASS|CLASSLIB|DECLASS|DECLASSLIB|
WINDOWS
The metadata for a report definition row (ID:
) is invalid.
Metadata instructions for this item will be ignored.
FoxPro Reporting
The metadata for some report definition rows
could not be loaded.
Some dynamic report features may be missing,
or a report run may not conclude successfully.
FoxPro Reporting
TCFRXALIAS
TCMETAALIAS
TIDATASESSION
TLOMITINDEX
CURSEL
LIROWS
LCATTRIBUTES
LIINDEX
LCTEMPALIAS
LISELECT
LLERROR
LIDATASESSION
FRXRECNO
EXECWHEN
EXECUTE
CLASS
CLASSLIB
DECLASS
DECLASSLIB
SCRIPT
PLATFORM
STYLE
THIS
QUIETMODE
MESSAGE
UNIQUEID
Report/Global
Rectangle
Title
Page Header
Column Header
Group Header
Detail
Group Footer
Column Footer
Page Footer
Summary
Detail Header
Detail Footer
Grouped Objects
Unknown Target type
[CCO_
TLINCLUDERECNO
RETVAL
OBJTYPE
STRIPQUOTES
PICTURE
OBJCODE
HPOSs
<VFPDATA/>
Do you want to replace the metadata with a valid default XML fragment?
FoxPro Reporting
<VFPData><reportdata name="" type="R" script="" execute="" execwhen="" class="" classlib="" declass="" declasslib=""/></VFPData>
|NAME|TYPE|SCRIPT|EXECUTE|EXECWHEN|CLASS|CLASSLIB|DECLASS|DECLASSLIB|
 ADD COLUMN
alter table (m.tcMetaAlias) &cAddColumns
TCXML
TCMETAALIAS
CURSEL
LIROWS
CADDCOLUMNS
CSTANDARDSET
SCRIPT
EXECUTE
EXECWHEN
CLASS
CLASSLIB
DECLASS
DECLASSLIB
TMPALIAS
THIS
QUIETMODE
MESSAGE
DELETEDv
lcXml
lcXml
TCMETAALIAS
LCXML
LIBYTES5
TVNEWVAL
THIS
QUIETMODEi
DATASESSIONv
DATASESSIONv
memberdata
.FRXRecno
FRXRecno = CC
 AND
Type = '
' AND
Name = '
Microsoft.VFP.Reporting.Builder.EvaluateContents
LOCATE FOR &lcConditions.
TEXTMERGE
TEXTMERGEv
TEXTMERGE
TEXTMERGE
LPARAMETERS m.toListener, m.tP1, m.tP2
 * <<"generated user-dynamic code" >>
 * <<"for EvaluateContents method">>
 * FRXRECNO: <<RECNO("frx")>>, EXPR: <<FRX.Expr>>
 * <<"the following code translates from the standard">>
 * <<"fxMemberDataScript.ApplyFx parameters, which are used">>
 * <<"so you can cut and paste the CASEs below into">>
 * <<"Memberdata standard script later if you want to">>
LOCAL m.nFRXRecno, m.oProps
m.nFRXRecno = m.tP1
m.oProps = m.tP2
m.oProps.Reload = .T.
   SET DATASESSION TO (m.toListener.CurrentDataSession)
   * <<"Conditions are evaluated in the Current (Report) datasession.">>
   DO CASE
SCAN ALL FOR &lcConditions.
   CASE <<IIF(EMPTY(ExecWhen), ".T.", ExecWhen)>> && <<"user condition: ">> <<Execute>>
      * <<"Expression required for this item. ">>
      * <<"Combinations of any 2 out of the 3 delimiter types (" +["]+ ",',[]) permitted within expressions.">>
      IF TYPE(<<m.lcDelim1>><<Script>><<m.lcDelim2>>) # "U"
         m.oProps.Text = TRANSFORM(<<Script>>)
      ELSE
         * <<"Expression evaluated first in Current (Report) datasession, then in FRX datasession.">>
         SET DATASESSION TO (m.toListener.FRXDataSession)
         IF TYPE(<<m.lcDelim1>><<Script>><<m.lcDelim2>>) # "U"
            m.oProps.Text = TRANSFORM(<<Script>>)
         ENDIF
         SET DATASESSION TO (m.toListener.CurrentDataSession)
      ENDIF
      * <<"Additional items use literal values.">>
      m.oProps.PenRed = <<INT(MOD(m.liColor,256))>>
      m.oProps.PenGreen = <<MOD(INT(m.liColor/256),256)>>
      m.oProps.PenBlue = <<MOD(INT(m.liColor/(256*256)),256)>>
      m.oProps.FillRed = <<INT(MOD(m.liColor,256))>>
      m.oProps.FillGreen = <<MOD(INT(m.liColor/256),256)>>
      m.oProps.FillBlue = <<MOD(INT(m.liColor/(256*256)),256)>>
      m.oProps.PenAlpha = <<PenA>>
      m.oProps.FillAlpha = <<FillA>>
      m.oProps.FontName = "<<FName>>"
      m.oProps.FontStyle = <<ABS(INT(VAL(FStyle)))>>
      m.oProps.FontSize = <<ABS(INT(VAL(FSize)))>>
   OTHERWISE  && <<"default result from FRX definition">>
      m.oProps.Reload = .F.
   ENDCASE
CATCH WHEN .T.
   m.oProps.Reload = .F.
FINALLY
   SET DATASESSION TO (m.toListener.FRXDataSession)
ENDTRY
TCFRXALIAS
TCMEMBERDATAALIAS
TIDATASESSION
LIDATASESSION
LCRESULT
LISELECT
LCCONDITIONS
LICOLOR
LCTEXTMERGEDELIMS
LCTEXTMERGE
LLTEXTMERGE
LCTEXTMERGESHOW
LCEXPDELIM1
LCEXPDELIM2
SCRIPT
LCDELIM1
LCDELIM2
PENRGB
FILLRGB
FILLA
FNAME
FSTYLE
FSIZE
RESETTEXTMERGEr
DATASESSIONv
DATASESSIONv
memberdata
.FRXRecno
FRXRecno = CC
 AND
Type = '
' AND
Name = '
Microsoft.VFP.Reporting.Builder.AdjustObjectSize
LOCATE FOR &lcConditions.
TEXTMERGE
TEXTMERGEv
TEXTMERGE
TEXTMERGE
LPARAMETERS m.toListener, m.tP1, m.tP2
 * <<"generated user-dynamic code" >>
 * <<"for AdjustObjectSize method">>
 * FRXRECNO: <<RECNO("frx")>>, TYPE: <<FRX.ObjType>>
 * <<"the following code translates from the standard">>
 * <<"fxMemberDataScript.ApplyFx parameters, which are used">>
 * <<"so you can cut and paste the CASEs below into">>
 * <<"Memberdata standard script later if you want to">>
LOCAL m.nFRXRecno, m.oProps
m.nFRXRecno = m.tP1
m.oProps = m.tP2
m.oProps.Reload = .T.
   SET DATASESSION TO (m.toListener.CurrentDataSession)
   * <<"Conditions are evaluated in the Current (Report) datasession.">>
   LOCAL liTemp
   * <<"These items use literal values">>
   * <<"or expressions that evaluate to numeric values.">>
   * <<"Expressions are evaluated in the Current (Report) datasession.">>
   DO CASE
SCAN ALL FOR &lcConditions.
   CASE <<IIF(EMPTY(ExecWhen), ".T.", ExecWhen)>> && <<"user condition: ">> <<Execute>>
      IF <<Width>> > -1 AND ;
         <<Width>> < 64000
         m.oProps.Width = INT(<<Width>>)
      ENDIF
      IF <<Height>> > -1 AND ;
         <<Height>> < 64000 AND ;
         ((INT(<<Height>>) < m.oProps.MaxHeightAvailable) ;
          OR (NOT m.oProps.Reattempt))
         m.oProps.Height = INT(<<Height>>)
      ENDIF
   OTHERWISE  && <<"default result from FRX definition">>
      m.oProps.Reload = .F.
   ENDCASE
CATCH WHEN .T.
   m.oProps.Reload = .F.
FINALLY
   SET DATASESSION TO (m.toListener.FRXDataSession)
ENDTRY
TCFRXALIAS
TCMEMBERDATAALIAS
TIDATASESSION
LIDATASESSION
LCRESULT
LISELECT
LCCONDITIONS
LCTEXTMERGEDELIMS
LCTEXTMERGE
LLTEXTMERGE
LCTEXTMERGESHOW
RESETTEXTMERGE7
TEXTMERGE
set textmerge on &tcTextMergeShow.
set textmerge to &tcTextMerge. additive
TCDELIMITERS
TCTEXTMERGE
TLTEXTMERGE
TCTEXTMERGESHOW
DELIMSIZE
LEFTDELIM
RIGHTDELIM
LCTEXTMERGEDELIMS
GetDeviceCaps
WIN32API
GetDC
WIN32API
ReleaseDC
WIN32API
GETDEVICECAPS
WIN32API
GETDC
RELEASEDC
SCREENDPI
THIS
QUIETMODE
STARTMODE
inttobinstring,
binstringtoint
hasprotectionflagn
frutopixels
pixelstofruL
getfrutextwidth
getfrutextheightV
gorec
getreportattributew
createbandcursor
hasband
hasdetailheaderf
createobjectcursork
createobjcursorrecord$
charsettolocale
getbandfor
synchobjectpositions
getobjectsinband
insertdataenvrecord
insertbando,
inserttitlebandW-
insertsummaryband
insertdetailband
insertdetailheaderfooter
setcolumncount
creategroupcursor
createvariablecursor
createcalcresetoncursor
createdefaultprintenvcursor
getselectedobjectcount
pushprintenvtocursoryE
popprintenv
getfrxtimestamp+F
gettimestampstring.H
inttobin
bintoint-K
gettargettypetext
getunitvaluefromfru!Q
stripquotes
getmetadatadomdoc
islayoutcontrol
unpackmemberdata
packupmemberdataCW
unpackfrxmemberdata
getfrxrecdisplaynamePd
xmlstrtocursor
cursortoxmlstr
quietmode_assign#o
generateevaluatecontentsscriptwo
generateadjustobjectsizescript
resettextmerge3
PROCEDURE loaddeviceinfo
lparameters lcDriver, lcDevice, lcDEVMODE
THIS.errorMessage = ""
local lRetVal
lRetVal = .T.
if empty( m.lcDevice )
    *---------------------------------------
    * Use default printer settings:
    *---------------------------------------
    lcDriver  = ""
    lcDevice  = set("PRINTER",3)
    lcDEVMODE = ""
endif
    local iHDC, vResult
    iHDC = CreateIC( m.lcDriver, m.lcDevice, chr(0), m.lcDEVMODE )
    if m.iHDC = 0
        error CREATE_IC_FAILURE_LOC
    else
        THIS.LoadFromHDC( m.iHDC )
        vResult = DeleteDC( m.iHDC )
    endif
catch to oErr
    THIS.errorMessage = oErr.message
    lRetVal = .F.
endtry
return m.lRetVal
ENDPROC
PROCEDURE loadfromfrx
lparameter lcFrxAlias
THIS.errorMessage = ""
local curSel, curRec, lRetVal
store .F. to lRetVal
if empty(m.lcFrxAlias)
    lcFrxAlias = "frx"
endif
if not used( m.lcFrxAlias )
    return m.lRetVal
endif
*--------------------------------
* Save current data/cursor state:
*--------------------------------
curSel = select(0)
select (m.lcFrxAlias)
curRec = recno()
locate for PLATFORM="WINDOWS" and OBJTYPE = 1 and OBJCODE = 53
if found()
    *---------------------------------------------------
    * Get the device info settings:
    *---------------------------------------------------
    lRetVal = THIS.LoadFromStrings( EXPR, TAG2 )
endif
*---------------------------------------------------
* Restore data/cursor state:
*---------------------------------------------------
if m.curRec <= reccount()
    go m.curRec
endif
select (m.curSel)
return m.lRetVal
ENDPROC
PROCEDURE loadfromstrings
lparameters tcEXPR, tcTAG2
local i, cLine, cDriver, lDriver, cDevice, lDevice
*---------------------------------------------------
* Read DRIVER and DEVICE values from EXPR
*---------------------------------------------------
for m.i = 1 to memlines(m.tcEXPR)
    cLine = mline(m.tcEXPR,m.i)
    do case
    case m.cLine = "DRIVER=" and not m.lDriver
        cDriver = substr(m.cLine,8)
        lDriver = .T.
    case m.cLine = "DEVICE=" and not m.lDevice
        cDevice = substr(m.cLine,8)
        lDevice = .T.
    endcase
    if m.lDevice and m.lDriver
        exit
    endif
endfor
*---------------------------------------------------
* Get the device info settings:
*---------------------------------------------------
return THIS.LoadDeviceInfo( m.cDriver, m.cDevice, m.tcTAG2 )
ENDPROC
PROCEDURE loadfromhdc
lparameters tiHDC
#define HORZSIZE          4  && Horizontal size in millimeters
#define VERTSIZE          6  && Vertical size in millimeters
#define HORZRES           8  && Printable page width  / Horizontal width in pixels
#define VERTRES          10  && Printable page length / Vertical height in pixels
#define LOGPIXELSX       88  && DPI / Logical pixels/inch in X dimension
#define LOGPIXELSY       90  && DPI / Logical pixels/inch in Y dimension
#define PHYSICALWIDTH   110  && Actual page width  / Physical Width in device units
#define PHYSICALHEIGHT  111  && Actual page length / Physical Height in device units
#define PHYSICALOFFSETX 112  && Printable page left margin / Physical Printable Area x margin
#define PHYSICALOFFSETY 113  && Printable page top margin  / Physical Printable Area y margin
with THIS
    .dpiX        = GetDeviceCaps( m.tiHDC, LOGPIXELSX )
    .dpiY        = GetDeviceCaps( m.tiHDC, LOGPIXELSY )
    .OffsetX     = GetDeviceCaps( m.tiHDC, PHYSICALOFFSETX )
    .OffsetY     = GetDeviceCaps( m.tiHDC, PHYSICALOFFSETY )
    .PrintableX  = GetDeviceCaps( m.tiHDC, HORZRES )
    .PrintableY  = GetDeviceCaps( m.tiHDC, VERTRES )
    .mmX         = GetDeviceCaps( m.tiHDC, HORZSIZE )
    .mmY         = GetDeviceCaps( m.tiHDC, VERTSIZE )
    .ActualX     = GetDeviceCaps( m.tiHDC, PHYSICALWIDTH )
    .ActualY     = GetDeviceCaps( m.tiHDC, PHYSICALHEIGHT )
endwith
return
ENDPROC
PROCEDURE Init
declare integer GetLastError ;
    in win32api
declare integer SetLastError ;
    in win32api ;
    integer i
declare integer CreateIC ;
    in gdi32 ;
    string lpszDriver, ;
    string lpszDevice, ;
    string lpszOutput, ;
    string lpdvmInit
declare integer GetDeviceCaps ;
    in gdi32 ;
    integer hdc, ;
    integer nIndex
declare integer DeleteDC ;
    in gdi32 ;
    integer hdc
return .T.
ENDPROC
W_PROCEDURE inttobinstring
*=======================================================
* InttoBinString( int )
* Returns a string of bytes, the binary version of a
* given integer.
* BinChar & Integer conversion, based on code by RS
*=======================================================
lparameter i
local cBytes, b
cBytes = ""
do while m.i <> 0
    b = m.i % 256
    i = floor( m.i/256 )
    cBytes = m.cBytes + chr(m.b)
enddo
return m.cBytes
ENDPROC
PROCEDURE binstringtoint
*=======================================================
* BinstringToInt( char )
* Returns a numeric equivalent of a binary data in string
* form.
* BinChar & Integer conversion, based on code by RS
*=======================================================
lparameter cByte
local iReturn, i, b
iReturn = 0
for m.i = len( m.cByte ) to 1 step -1
    b = asc( substr( m.cByte, m.i, 1 ))
    iReturn = (m.iReturn*256) + m.b
endfor
return m.iReturn
ENDPROC
PROCEDURE hasprotectionflag
*=======================================================
* HasProtectionFlag( cBytes, iBit )
* Returns .T. if the given binary data contains a specific
* bit set to true.
* Uses: BinstringToInt()
*=======================================================
lparameters cBinstring, iFlagBit
local iProtFlags
iProtFlags = THIS.BinstringToInt( m.cBinstring )
return bittest( m.iProtFlags, m.iFlagBit )
ENDPROC
PROCEDURE frutopixels
*=======================================================
* FruToPixels( num )
* returns the value in pixels of a given FRU measurement.
*=======================================================
lparameter nFRU
local iPixels
*------------------------------------
* Fixed for SP1:
* use the .screenDPI property instead of
* the hard-coded 96 dpi value. The ReportBuilder
* client will reset .screenDPI to 96 so that it
* is correct for design-time report designer use.
*------------------------------------
*iPixels = round((m.nFRU * 96)/10000,3)
iPixels = round((m.nFRU * this.screenDPI)/10000,3)
return int( m.iPixels )
ENDPROC
PROCEDURE pixelstofru
*=======================================================
* PixelsToFru( int )
* return a value in FRUs of a given pixel dimension
*=======================================================
lparameter nPix
*------------------------------------
* Fixed for SP1:
* use the .screenDPI property instead of
* the hard-coded 96 dpi value. The ReportBuilder
* client will reset .screenDPI to 96 so that it
* is correct for design-time report designer use.
*------------------------------------
*return round(( nPix * 10000 )/96 , 3 )
return round(( nPix * 10000 )/this.screenDPI , 3 )
ENDPROC
PROCEDURE getfrutextwidth
*=======================================================
* GetFruTextWidth( cText, cTypeface, iSize [, cStyle ] )
* Returns the width of a given string in FRUs
*=======================================================
lparameters cText, cTypeFace, iSize, cStyle
if parameters() < 4
    cStyle = "N"
endif
*-------------------------------------------------------
* obtain text width in pixels. Remember that txtwidth() returns
* number of equivalent average characters, so must multiply by
* the overall average character width:
*-------------------------------------------------------
local iWidth
iWidth = txtwidth( cText,  cTypeFace, iSize, cStyle )
iWidth = m.iWidth * fontmetric(6, cTypeFace, iSize, cStyle )
*-------------------------------------------------------
* convert pixels to FRU using screen dpi:
*-------------------------------------------------------
*------------------------------------
* Fixed for SP1:
* use the .screenDPI property instead of
* the hard-coded 96 dpi value. The ReportBuilder
* client will reset .screenDPI to 96 so that it
* is correct for design-time report designer use.
*------------------------------------
return this.pixelsToFru( m.iWidth )
ENDPROC
PROCEDURE getfrutextheight
*=======================================================
* GetFruTextHeight( cText, cTypeface, iSize [, cStyle ] )
* Returns the height of a given string in FRUs
*=======================================================
lparameters cText, cTypeFace, iSize, cStyle
if parameters() < 4
    cStyle = "N"
endif
*-------------------------------------------------------
* obtain text height in pixels:
*-------------------------------------------------------
local iHeight
iHeight = fontmetric(1, cTypeFace, iSize, cStyle )
*-------------------------------------------------------
* convert pixels to FRU:
*-------------------------------------------------------
*------------------------------------
* Fixed for SP1:
* use the .screenDPI property instead of
* the hard-coded 96 dpi value. The ReportBuilder
* client will reset .screenDPI to 96 so that it
* is correct for design-time report designer use.
*------------------------------------
return this.pixelsToFru( m.iHeight )
ENDPROC
PROCEDURE gorec
*=======================================================
* GoRec( i, cAlias )
* restores record pointer with bounds checking
*=======================================================
lparameter iRec, cAlias
if parameters() < 2
    cAlias = alias()
endif
if between( iRec, 1, reccount(m.cAlias) )
    go m.iRec in (m.cAlias)
endif
return
ENDPROC
PROCEDURE getreportattribute
*=======================================================
* GetReportAttribute( cToken [, iAlt] )
* Returns the value of a given report (or header) attribute.
* The FRX cursor must be open.
*=======================================================
lparameters cKey, iAlt
if parameters()<2
    iAlt = 0
endif
if not used('frx')
    return .F.
endif
local curSel, curRec, vRetVal
curSel = select(0)
select frx
curRec = recno()
locate for    OBJTYPE = FRX_OBJTYP_REPORTHEADER and ;
            PLATFORM = FRX_PLATFORM_WINDOWS
do case
case upper(m.cKey) = "UNITS"
    if m.iAlt = 0
        vRetVal = RULER
    else
        do case
        case RULER = FRX_RULER_FRUS
            vRetVal = UNITS_FRU_LOC
        case RULER = FRX_RULER_INCHES
            vRetVal = UNITS_INCHES_LOC
        case RULER = FRX_RULER_METRIC
            vRetVal = UNITS_METRIC_LOC
        case RULER = FRX_RULER_PIXELS
            vRetVal = UNITS_PIXELS_LOC
        case RULER = FRX_RULER_CHARACTERS
            vRetVal = UNITS_CHARACTERS_LOC
        otherwise
            vRetVal = "?"
        endcase
    endif
case upper(m.cKey) = "MULTICOLUMN"
    *-------------------------------------------------------
    * If a report has multiple columns,
    * then the column width is not the default:
    *-------------------------------------------------------
    *vRetVal = (WIDTH <> -1)
    *-------------------------------------------------------
    * could also check for existence of ColumnHeader:
    *-------------------------------------------------------
    *vRetVal = THIS.hasBand(OBJCODE_COLHEADER)
    *-------------------------------------------------------
    * or just how many columns?
    *-------------------------------------------------------
    vRetVal = (VPOS > 1)
case upper(m.cKey) = "COLUMNCOUNT"
    vRetVal = VPOS
case upper(m.cKey) = "PROTECTION"
    vRetVal = ORDER
case upper(m.cKey) = "SNAKED_COLUMNS"
    vRetVal = BOTTOM
*case upper(m.cKey) = "DEFAULT FONT"
endcase
THIS.goRec( m.curRec, 'frx')
select (m.curSel)
return m.vRetVal
ENDPROC
PROCEDURE createbandcursor
*=======================================================
* CreateBandCursor()
* Creats a cursor with the alias "bands" containing records
* of information for each band in the report.
* Returns .T. if successfully created.
*=======================================================
lparameter tcFrxAlias, tiSession
local curSel, curRec, curSession
if empty(m.tiSession) or (m.tiSession < 1)
   m.tiSession = set("datasession")
endif
m.curSession = set("datasession")
set datasession to (m.tiSession)
if empty( m.tcFrxAlias )
    tcFrxAlias = 'frx'
endif
if not used(m.tcFrxAlias)
    set datasession to (m.curSession)
    return .F.
endif
curSel = select(0)
curRec = recno(m.tcFrxAlias)
*-------------------------------------------------------
* create the bands cursor:
*-------------------------------------------------------
if used("bands")
    use in bands
endif
select 0
create cursor bands ( ;
    UNIQUEID c(10), ;
    OBJTYPE N(2,0), ;
    OBJCODE n(3,0), ;
    EXPR M, ;
    BANDLABEL c(35), ;
    START n(9,3), ;
    STOP n(9,3), ;
    HEIGHT n(9,3), ;
    P_START i, ;
    P_STOP i, ;
    P_HEIGHT i, ;
    R_START i, ;
    R_STOP i, ;
    RESETTOTAL i, ;
    BAND_SEQ i, ;
    REL_BAND_ID c(10), ;
    REC_NO i )
*-------------------------------------------------------
* Initialise stuff:
*-------------------------------------------------------
local nStart, iStart, iDetailCount
local cSuffix, iBandCount, oRec
local oGroup, oHeader
local lcTitleId, lcSummaryId
nStart  = 0.000
iStart  = 0
oGroup  = newobject("Collection")
oHeader = newobject("Collection")
iBandCount   = 0
iDetailCount = 0
store "" to lcTitleId, lcSummaryId
*-------------------------------------------------------
* Scan through the band records, building up the information
* and then insert a new record into the bands cursor:
*-------------------------------------------------------
select (m.tcFrxAlias)
scan for    OBJTYPE = FRX_OBJTYP_BAND ;
            and not deleted()  and ;
            PLATFORM = FRX_PLATFORM_WINDOWS
    *----------------------------------------------
    * Initialise the record buffer
    *----------------------------------------------
    select bands
    scatter memo blank name oRec
    select (m.tcFrxAlias)
    iBandCount     = m.iBandCount + 1
    oRec.BAND_SEQ  = m.iBandCount
    *----------------------------------------------
    * Transfer over some field values:
    *----------------------------------------------
    oRec.UNIQUEID   = UNIQUEID
    oRec.REC_NO     = recno()
    oRec.OBJTYPE    = OBJTYPE
    oRec.OBJCODE    = OBJCODE
    oRec.EXPR       = EXPR
    oRec.BANDLABEL  = THIS.getTargetTypeText( OBJTYPE, OBJCODE )
    *----------------------------------------------
    * Save for later:
    *----------------------------------------------
    if OBJCODE = FRX_OBJCOD_TITLE
        lcTitleID = UNIQUEID
    endif
    if OBJCODE = FRX_OBJCOD_SUMMARY
        lcSummaryID = UNIQUEID
    endif
    *----------------------------------------------
    * Determine related header/footer IDs:
    *----------------------------------------------
    do case
    case inlist( OBJCODE, FRX_OBJCOD_PAGEHEADER, FRX_OBJCOD_COLHEADER, FRX_OBJCOD_GROUPHEADER, FRX_OBJCOD_DETAILHEADER )
        *-------------------------------------
        * Push the header ID on the stack:
        *-------------------------------------
        oHeader.Add( UNIQUEID )
    case inlist( OBJCODE, FRX_OBJCOD_PAGEFOOTER, FRX_OBJCOD_COLFOOTER, FRX_OBJCOD_GROUPFOOTER, FRX_OBJCOD_DETAILFOOTER )
        *-------------------------------------
        * Pop the related header ID off the stack and
        * store it:
        *-------------------------------------
        oRec.REL_BAND_ID = oHeader.Item( oHeader.Count )
        oHeader.Remove( oHeader.Count )
    endcase
    *----------------------------------------------
    * Some bands need extra info in their labels:
    *----------------------------------------------
    do case
    case OBJCODE = FRX_OBJCOD_GROUPHEADER
        cSuffix = ":" + trim(EXPR)
        oGroup.Add( m.cSuffix )
        oRec.RESETTOTAL = FRX_RESETTOTAL_GROUP_OFFSET + oGroup.Count
    case OBJCODE = FRX_OBJCOD_DETAIL
        iDetailCount = m.iDetailCount + 1
        oRec.RESETTOTAL = FRX_RESETTOTAL_DETAIL_OFFSET + m.iDetailCount
        cSuffix = " " + transform( m.iDetailCount ) ;
                + iif(not empty( trim(EXPR)), ":" + trim(EXPR), "")
    case OBJCODE = FRX_OBJCOD_GROUPFOOTER
        cSuffix = oGroup.Item( oGroup.Count )
        oGroup.Remove( oGroup.Count )
    otherwise
        cSuffix = ""
    endcase
    oRec.BANDLABEL = oRec.BANDLABEL + m.cSuffix
    *----------------------------------------------
    * Band dimensions:
    *----------------------------------------------
    oRec.HEIGHT    = HEIGHT
    oRec.P_HEIGHT  = THIS.FruToPixels( HEIGHT )
    oRec.START       = m.nStart
    oRec.STOP       = m.nStart + oRec.HEIGHT   + BAND_SEPARATOR_HEIGHT_FRUS
    nStart         = oRec.STOP
    oRec.P_START   = m.iStart
    oRec.P_STOP    = m.iStart + oRec.P_HEIGHT + BAND_SEPARATOR_HEIGHT_PIXELS - 1
    iStart         = oRec.P_STOP + 1
    *----------------------------------------------
    * Run-time Band dimensions:
    *----------------------------------------------
    oRec.R_START   = oRec.P_START - 18
    oRec.R_STOP    = oRec.P_STOP - 2  && per RICHSTA
*    oRec.R_STOP    = oRec.P_STOP - 3  && empirically
    *----------------------------------------------
    * Add the record to the cursor:
    *----------------------------------------------
    insert into bands from name oRec
endscan
*----------------------------------------------
* Retro-fit the Headers' relative Footer band id:
*----------------------------------------------
select bands
local iRec, cFooterId, cBandId
    if not empty( REL_BAND_ID )
        iRec = recno()
        m.cFooterId = UNIQUEID
        m.cHeaderId = REL_BAND_ID
        locate for UNIQUEID = m.cHeaderId
        if found()
            replace REL_BAND_ID with m.cFooterId
        endif
        go m.iRec
    endif
endscan
if not empty( m.lcTitleId ) and not empty( m.lcSummaryId )
    *----------------------------------------------
    * Match up relative band ids:
    *----------------------------------------------
    locate for UNIQUEID = m.lcTitleID
    replace REL_BAND_ID with m.lcSummaryId
    locate for UNIQUEID = m.lcSummaryID
    replace REL_BAND_ID with m.lcTitleId
endif
go top in bands
release oGroup, oHeader
THIS.goRec(m.curRec, m.tcFrxAlias)
select (m.curSel)
set datasession to (m.curSession)
return .T.
ENDPROC
PROCEDURE hasband
*=======================================================
* HasBand( objCode )
* Returns .T. if the report has the specified type of
* band record.
* Calls .createBandCursor() if necessary.
*=======================================================
lparameter iObjCode
if not used('bands')
    THIS.createBandCursor()
endif
local curSel, lRetVal
curSel = select(0)
lRetVal = .F.
select bands
locate for OBJCODE = m.iObjCode
if found()
    lRetVal = .T.
endif
select (m.curSel)
return m.lRetVal
ENDPROC
PROCEDURE hasdetailheader
*=======================================================
* HasDetailHeader( UNIQUED )
* Returns .T. if the specifed Detail band has an associated
* "detail header" band.
* Calls .createBandCursor() if necessary.
*=======================================================
lparameter cUniqueId
if not used('bands')
    THIS.createBandCursor()
endif
local curSel, lRetval
curSel = select(0)
lRetVal = .F.
select bands
locate for UNIQUEID = m.cUniqueId
skip -1
lRetVal = (OBJTYPE = FRX_OBJTYP_BAND and OBJCODE = FRX_OBJCOD_DETAILHEADER)
select (m.curSel)
return m.lRetVal
ENDPROC
PROCEDURE createobjectcursor
*=======================================================
* CreateObjectCursor()
* Creates a cursor (alias: objects) of records for each
* object in the report.
* Returns .T. if successful.
* Calls .createBandCursor() if necessary.
*=======================================================
lparameter tcFrxAlias, tcDestAlias, tiFilter, tlRuntimeMode, tiSession
*-------------------------------------------------------
* Ensure parameters are initialised appropriately:
*-------------------------------------------------------
if vartype( m.tiFilter ) = "L"
    tiFilter = OBJCSR_ALL_OBJECTS_IGNORE_GROUPS
endif
if empty( m.tcDestAlias )
    tcDestAlias = 'objects'
endif
if empty( m.tcFrxAlias )
    tcFrxAlias = 'frx'
endif
local curSel, curRec, curSession
if empty(m.tiSession) or (m.tiSession < 1)
   m.tiSession = set("datasession")
endif
m.curSession = set("datasession")
set datasession to (m.tiSession)
m.curSel = select(0)
if not used(m.tcFrxAlias)
    set datasession to (m.curSession)
    return .F.
    curRec = recno(m.tcFrxAlias)
endif
if not used('bands')
    if not THIS.createBandCursor(m.tcFrxAlias)
        select (m.curSel)
        set datasession to (m.curSession)
        return .F.
    endif
endif
*-------------------------------------------------------
* create the objects cursor:
*-------------------------------------------------------
if used( m.tcDestAlias )
    use in (m.tcDestAlias)
endif
select 0
create cursor &tcDestAlias ( ;
    UNIQUEID c(10), ;
    OBJTYPE N(2,0), ;
    OBJCODE n(3,0), ;
    EXPR M, ;
    VPOS n(9,3), ;
    HPOS n(9,3), ;
    HEIGHT n(9,3),;
    WIDTH n(9,3),;
    OBJNAME c(50),;
    LOCALE_ID i, ;
    P_START i, ;
    P_STOP i, ;
    P_HEIGHT i, ;
    BAND_OFFSET i, ;
    START_BAND_ID c(10),;
    END_BAND_ID c(10), ;
    BANDLABEL c(75), ;
    SELECTED l, ;
    OBJ_PICT c(12), ;
    BAND_SEQ i, ;
    REC_NO i, ;
    TYPE_SEQ i, ;
    CTYPE c(10) )
*-------------------------------------------------------
* Select object records from the FRX:
*-------------------------------------------------------
do case
case m.tiFilter = OBJCSR_ALL_OBJECTS_IGNORE_GROUPS
    *-------------------------------------------------
    * all object records (ignoring grouped items):
    *-------------------------------------------------
    select (m.tcFrxAlias)
    scan for     inlist( OBJTYPE, FRX_OBJTYP_LABEL, FRX_OBJTYP_FIELD, ;
                    FRX_OBJTYP_LINE, FRX_OBJTYP_RECTANGLE, FRX_OBJTYP_PICTURE ) and ;
                  not deleted()  and ;
                PLATFORM = FRX_PLATFORM_WINDOWS
        THIS.createObjCursorRecord( tcDestAlias, m.tlRuntimeMode )
    endscan
case m.tiFilter = OBJCSR_SHOW_ALL_OBJECTS
    *-------------------------------------------------
    * All objects+grouped objects in report:
    * Show groups as separate objects
    * do not expand grouped objects
    *-------------------------------------------------
    select (m.tcFrxAlias)
    scan for    inlist( OBJTYPE, FRX_OBJTYP_LABEL, FRX_OBJTYP_FIELD, ;
                        FRX_OBJTYP_LINE, FRX_OBJTYP_RECTANGLE, FRX_OBJTYP_PICTURE ) and ;
                not deleted()  and ;
                PLATFORM = FRX_PLATFORM_WINDOWS
        THIS.createObjCursorRecord( tcDestAlias, m.tlRuntimeMode )
    endscan
    *-------------------------------------------------
    * Now remove the grouped ones
    *-------------------------------------------------
    local iGrpStart, iGrpCount
    scan for OBJTYPE = FRX_OBJTYP_GROUP
        iGrpStart = VPOS
        iGrpCount = HPOS
        select (m.tcDestAlias)
        go m.iGrpStart
        delete next m.iGrpCount
        select (m.tcFrxAlias)
    endscan
    *-------------------------------------------------
    * Now add the groups themselves
    *-------------------------------------------------
    scan for OBJTYPE = FRX_OBJTYP_GROUP
        THIS.createObjCursorRecord( tcDestAlias, m.tlRuntimeMode )
    endscan
case m.tiFilter = OBJCSR_FILTER_ON_SELECTED
    *-------------------------------------------------
    * All currently selected object records:
    * do not show grouped objects
    * Show groups as separate objects
    *-------------------------------------------------
    select (m.tcFrxAlias)
    scan for    inlist( OBJTYPE, FRX_OBJTYP_LABEL, FRX_OBJTYP_FIELD, ;
                    FRX_OBJTYP_LINE, FRX_OBJTYP_RECTANGLE, FRX_OBJTYP_PICTURE ) and ;
                not deleted() and ;
                CURPOS  and ;
                PLATFORM = FRX_PLATFORM_WINDOWS
        THIS.createObjCursorRecord( tcDestAlias, m.tlRuntimeMode )
    endscan
    *-------------------------------------------------
    * Now add any selected grouped items themselves:
    *-------------------------------------------------
    scan for     OBJTYPE = FRX_OBJTYP_GROUP and ;
                CURPOS and ;
                PLATFORM = FRX_PLATFORM_WINDOWS
        THIS.createObjCursorRecord( tcDestAlias, m.tlRuntimeMode )
    endscan
endcase
go top in (m.tcDestAlias)
THIS.goRec(m.curRec, m.tcFrxAlias)
select (m.curSel)
set datasession to (m.curSession)
return .T.
ENDPROC
PROCEDURE createobjcursorrecord
*=======================================================
* createObjCursorRecord()
* Assumes: current alias is the source
*=======================================================
lparameters tcDestAlias, tlRuntimeMode
local srcAlias, lIsGroup, oRec
srcAlias = alias()
lIsGroup = .F.
select (m.tcDestAlias)
scatter memo blank name oRec
select (m.srcAlias)
oRec.REC_NO  = recno()
oRec.OBJNAME = THIS.GetFrxRecDisplayName()
do case
case OBJTYPE = FRX_OBJTYP_LABEL
    oRec.CTYPE     = TARGET_TEXT_LABEL_LOC
    oRec.OBJ_PICT  = "pslabel.bmp"
    oRec.LOCALE_ID = THIS.CharsetToLocale( RESOID )
    oRec.TYPE_SEQ  = 1
case OBJTYPE = FRX_OBJTYP_FIELD
    oRec.CTYPE     = TARGET_FIELD_LOC
    oRec.OBJ_PICT  = "pseditbx.bmp"
    oRec.LOCALE_ID = THIS.CharsetToLocale( RESOID )
    oRec.TYPE_SEQ  = 2
case OBJTYPE = FRX_OBJTYP_LINE
    oRec.CTYPE     = TARGET_LINE_LOC
    oRec.OBJ_PICT  = "psline.bmp"
    oRec.TYPE_SEQ  = 3
case OBJTYPE = FRX_OBJTYP_RECTANGLE
    oRec.CTYPE    = TARGET_BOX_LOC
    oRec.OBJ_PICT = "pshape.bmp"
    oRec.TYPE_SEQ  = 4
case OBJTYPE = FRX_OBJTYP_PICTURE
    oRec.CTYPE    = TARGET_PICTURE_LOC
    oRec.OBJ_PICT = "psolebnd.bmp"
    oRec.TYPE_SEQ  = 5
case OBJTYPE = FRX_OBJTYP_GROUP
    oRec.CTYPE    = TARGET_GROUPED_LOC
    oRec.OBJ_PICT = "group2.bmp"
    lIsGroup = .T.
    oRec.TYPE_SEQ  = 6
endcase
oRec.UNIQUEID = UNIQUEID
oRec.OBJTYPE  = OBJTYPE
oRec.OBJCODE  = OBJCODE
oRec.EXPR     = EXPR
oRec.VPOS     = VPOS
oRec.HPOS     = HPOS
oRec.HEIGHT   = HEIGHT
oRec.P_START  = THIS.FruToPixels( VPOS )
oRec.P_HEIGHT = THIS.FruToPixels( HEIGHT )
oRec.P_STOP   = (oRec.P_START + oRec.P_HEIGHT - 1)
oRec.WIDTH    = WIDTH
oRec.SELECTED = CURPOS
if not m.lIsGroup
    if m.tlRuntimeMode
        *--------------------------------------------------------
        * Determine the object's location, start and end bands,
        * as determined by the report run-time engine, using the
        * two adjusted lookup cursors we created earlier:
        *--------------------------------------------------------
        *-------------------------------------------
        * Scan bottom up for start points:
        *-------------------------------------------
        select bands
        go bottom
        do while .T.
            if R_START <= oRec.P_START
                oRec.START_BAND_ID = UNIQUEID
                oRec.BANDLABEL     = trim(BANDLABEL)
                oRec.BAND_OFFSET   = oRec.P_START - P_START
                oRec.BAND_SEQ      = BAND_SEQ
                exit
            endif
            if recno()=1
                exit
            endif
            skip -1 in bands
        enddo
        *-------------------------------------------
        * scan top down for end points:
        *-------------------------------------------
        select bands
        go top
        *-------------------------------------------
        * This difference between object types
        * was determined through empirical testing.
        * It may have some flaws.
        *-------------------------------------------
        do case
        case inlist(oRec.OBJTYPE, FRX_OBJTYP_LABEL )
            locate for R_STOP > oRec.P_STOP
        otherwise
            locate for R_STOP >= oRec.P_STOP
        endcase
        if found()
            *-------------------------------------------
            * an object cannot end in a band above
            * that in which it starts:
            *-------------------------------------------
            if BAND_SEQ >= oRec.BAND_SEQ
                oRec.END_BAND_ID   = UNIQUEID
            else
                oRec.END_BAND_ID   = oRec.START_BAND_ID
            endif
        else
            *---------------------------------------------------
            * The object runs off the bottom of the band array.
            * Force the object to end in the Page Footer:
            *---------------------------------------------------
            locate for OBJCODE = FRX_OBJCOD_PAGEFOOTER
            if found()
                oRec.END_BAND_ID   = UNIQUEID
            endif
        endif
        *---------------------------------------------------
        * Show both start and end bands against the object:
        *---------------------------------------------------
        if oRec.END_BAND_ID <> oRec.START_BAND_ID
            oRec.BANDLABEL = oRec.BANDLABEL + "..." + trim(BANDLABEL)
        endif
        *---------------------------------------------------
        * If an object starts and ends in two different bands...
        *---------------------------------------------------
        if oRec.START_BAND_ID <> oRec.END_BAND_ID
            select bands
            locate for UNIQUEID = oRec.START_BAND_ID
            if empty( REL_BAND_ID ) or REL_BAND_ID # oRec.END_BAND_ID
                *---------------------------------------------------
                * ...that are not a matched Header-Footer pair,
                * then the object is forced into the PageHeader band.
                *---------------------------------------------------
                locate for OBJTYPE = FRX_OBJTYP_BAND ;
                       and OBJCODE = FRX_OBJCOD_PAGEHEADER
                oRec.START_BAND_ID = UNIQUEID
                do case
                case inlist(oRec.OBJTYPE, FRX_OBJTYP_RECTANGLE )
                    oRec.BANDLABEL     = TARGET_UNPREDICTABLE_LOC + " (" + trim(oRec.BANDLABEL) + ")"
                otherwise
                    oRec.BANDLABEL     = TARGET_FORCED_PAGEHEADER_LOC + " (" + trim(oRec.BANDLABEL) + ")"
                endcase
                oRec.BAND_SEQ      = 99
                oRec.END_BAND_ID   = ""
                oRec.BAND_OFFSET   = oRec.P_START - P_START && real start, not the run-time one
            endif
        endif
    else
        *--------------------------------------------------------
        * Determine the object's location, start and end bands,
        * as determined by the Report Designer:
        *--------------------------------------------------------
        select bands
        locate for P_START <= oRec.P_START ;
               and P_STOP  >= oRec.P_START
        if found()
            oRec.START_BAND_ID = UNIQUEID
            oRec.BAND_OFFSET   = oRec.P_START - P_START
            oRec.BANDLABEL     = trim(BANDLABEL)
            oRec.BAND_SEQ      = BAND_SEQ
        endif
        select bands
        locate for P_START <= oRec.P_STOP ;
               and P_STOP  >= oRec.P_STOP
        if found()
            oRec.END_BAND_ID = UNIQUEID
            if oRec.END_BAND_ID <> oRec.START_BAND_ID
                oRec.BANDLABEL = oRec.BANDLABEL + " - " + trim(BANDLABEL)
            endif
        endif
    endif
endif
insert into (m.tcDestAlias) from name oRec
select (m.srcAlias)
return
ENDPROC
PROCEDURE charsettolocale
*=======================================================
* CharsetToLocale( nCharset )
* We need to map a given Font Charset to a candidate locale
* for use with the STRCONV() function.
*----------------------------------------------------------
* References: Q224804, Q232625
* also http://www.science.co.il/Language-Locale-Codes.asp
* Charset------------------- CodePage---- Locale (hex / dec)
*   0   Western              1252                   1033
* 178   Arabic               1256, 864     0x0401 / 1025 (saudi)
* 186   Baltic               1257,         0x0425 / 1061
* 134   Chinese Simplified    936          0x0804 / 2052
* 136   Chinese Traditional   950          0x0404 / 1028
* 238   Central European     1250,         0x0405 / 1029  (Czech)
* 204   Cyrillic             1251, 855     0x0419 / 1049  (Russian)
* 161   Greek                1253, 869     0x0408 / 1032
* 177   Hebrew               1255          0x040d / 1037
* 128   Japanese              932          0x0411 / 1041
* 129   Korean               1361, 949     0x0412 / 1042
* 162   Turkish              1254, 857     0x041f / 1055
* 163   Vietnamese           1258          0x042a / 1066
*=======================================================
lparameter nCharset
do case
case inlist( m.nCharset, -1, 1 )
    * Charset not assigned or system default
    * Map to default locale:
    return 0
case inlist( m.nCharset, 0 )
    * 0 = Western
    return 1033
case inlist( m.nCharset, 2, 77, 255 )
    * These are generic. Map to default locale?
    return 0
case m.nCharset = 178
    * 178   Arabic               1256, 864     0x0401 / 1025 (saudi)
    return 1025
case m.nCharset = 186
    * 186   Baltic               1257,         0x0425 / 1061
    return 1061
case m.nCharset = 134
    * 134   Chinese Simplified    936          0x0804 / 2052
    return 2052
case m.nCharset = 136
    * 136   Chinese Traditional   950          0x0404 / 1028
    return 1028
case m.nCharset = 238
    * 238   Central European     1250,         0x0405 / 1029  (Czech)
    return 1029
case m.nCharset = 204
    * 204   Cyrillic             1251, 855     0x0419 / 1049  (Russian)
    return 1049
case m.nCharset = 161
    * 161   Greek                1253, 869     0x0408 / 1032
    return 1032
case m.nCharset = 177
    * 177   Hebrew               1255          0x040d / 1037
    return 1037
case m.nCharset = 128
    * 128   Japanese              932          0x0411 / 1041
    return 1041
case m.nCharset = 129
    * 129   Korean               1361, 949     0x0412 / 1042
    return 1042
case m.nCharset = 162
    * 162   Turkish              1254, 857     0x041f / 1055
    return 1055
case m.nCharset = 163
    * 163   Vietnamese           1258          0x042a / 1066
    return 1066
otherwise
    return 0
endcase
return 0
ENDPROC
PROCEDURE getbandfor
*=======================================================
* GetBandFor( UNIQUEID [, lStart ] )
* Returns a SCATTER NAME band object for the specified
* object.
* Calls .createObjectCursor() if necessary.
*=======================================================
lparameters cObjectId, lStart, iSession
local curSession
if empty(m.iSession) or (m.iSession < 1)
   iSession = set("datasession")
endif
curSession = set("datasession")
set datasession to (m.iSession)
if not used('frx')
    set datasession to (m.curSession)
    return null
endif
if parameters() < 2
    lStart = .T.
endif
if not used('objects')
    THIS.createObjectCursor()
endif
local curSel, iRec, oBand
curSel = select(0)
oBand  = null
select objects
locate for UNIQUEID = m.cObjectId
if found()
    select bands
    if m.lStart
        locate for UNIQUEID = objects.START_BAND_ID
    else
        locate for UNIQUEID = objects.END_BAND_ID
    endif
endif
if not found()
    go bottom
endif
*scatter fields UNIQUEID, OBJCODE, BANDLABEL, RESETTOTAL, REC_NO ;
*    name oBand
scatter name oBand
select (m.curSel)
set datasession to (m.curSession)
return oBand
ENDPROC
PROCEDURE synchobjectpositions
*=======================================================
* SynchObjectPositions()
* Updates the VPOS values in the FRX for each object,
* based on which band the object starts in, and the current
* height of each band as expressed in the bands cursor.
* Assumes:
*   - bands and objects cursors have been prepared,
*   - current alias is an FRX cursor
*=======================================================
local curSel, curRec, cUID
curSel = select(0)
curRec = recno()
*-------------------------------------------------------
* Scan through the FRX cursor,
* updating the VPOS to maintain the
* same relative offset from the band it belongs to.
*-------------------------------------------------------
scan for     inlist( OBJTYPE, ;
                FRX_OBJTYP_LABEL, FRX_OBJTYP_FIELD, FRX_OBJTYP_LINE, ;
                FRX_OBJTYP_RECTANGLE, FRX_OBJTYP_PICTURE ) and ;
            not deleted() and ;
            PLATFORM = FRX_PLATFORM_WINDOWS
    cUID = UNIQUEID
    *-------------------------------------------------------
    * for each object, restore the relative positions:
    *-------------------------------------------------------
    select objects
    locate for UNIQUEID = cUID
    select bands
    locate for UNIQUEID = objects.START_BAND_ID
    select (curSel)
    if found("bands") and found("objects")
        *-------------------------------------------------------
        * The bands and objects cursors use pixel-based math, so
        * convert back to FRUs:
        *-------------------------------------------------------
        replace VPOS with ;
            THIS.pixelsToFru( bands.P_START + objects.BAND_OFFSET    )
    endif
endscan
THIS.GoRec( m.curRec, alias() )
return
ENDPROC
PROCEDURE getobjectsinband
*=======================================================
* GetObjectsInBand( UNIQUEID [, lRecnos ] )
* returns a Collection of UNIQUEID values for each object
* in a given Band.
* Calls .createObjectCursor() if necessary.
*=======================================================
lparameter cBandId, lRecnos,iSession
local oBandObjects, curSel, curSession
if empty(m.iSession) or (m.iSession < 1)
   iSession = set("datasession")
endif
curSession = set("datasession")
set datasession to (m.iSession)
curSel = select(0)
oBandObjects = newobject("Collection")
if not used("objects")
    THIS.createObjectCursor()
endif
select objects
    if objects.START_BAND_ID = m.cBandId
        *-------------------------------------------------------
        * the object is defined as starting in this band
        *-------------------------------------------------------
        if m.lRecnos
            oBandObjects.Add( objects.REC_NO )
        else
            oBandObjects.Add( objects.UNIQUEID )
        endif
    endif
endscan
select (m.curSel)
set datasession to (m.curSession)
return oBandObjects
ENDPROC
PROCEDURE insertdataenvrecord
*=======================================================
* InsertDataEnvRecord( ID, NAME, EXPR, CODE )
* Inserts a data-environment object record into an FRX.
* Assumes that the record pointer is located appropriately.
*=======================================================
lparameters liObjType, lcName, lcExpr, lcMethods
insert blank
replace ;
    PLATFORM     with FRX_PLATFORM_WINDOWS, ;
    OBJTYPE      with m.liObjType, ;
    NAME        with m.lcName, ;
    EXPR        with m.lcExpr, ;
    TAG         with m.lcMethods, ;
    ENVIRON        with .F., ;
    CURPOS        with .F.
return
ENDPROC
PROCEDURE insertband
*=======================================================
* InsertBand()
* Inserts a band into an FRX.
* Assumes that the record pointer is located appropriately.
*=======================================================
lparameters liObjCode
insert blank
replace ;
    PLATFORM     with FRX_PLATFORM_WINDOWS, ;
    UNIQUEID     with sys(2015), ;
    OBJTYPE      with FRX_OBJTYP_BAND, ;
    OBJCODE      with m.liObjCode, ;
    NOREPEAT    with .F., ;
    PAGEBREAK    with .F., ;
    COLBREAK    with .F., ;
    RESETPAGE    with .F., ;
    PLAIN        with .F., ;
    CURPOS        with .F.
return
ENDPROC
PROCEDURE inserttitleband
*=======================================================
* InsertTitleBand( lNewPage )
* Inserts a Title band record into the FRX
*=======================================================
lparameter lNewPage
go top
*-------------------------------------------------------
* will be inserted as the second record (as is appropriate)
*-------------------------------------------------------
THIS.insertBand( FRX_OBJCOD_TITLE )
replace ;
    HEIGHT    with 5000.000, ;
    PAGEBREAK with m.lNewPage
return
ENDPROC
PROCEDURE insertsummaryband
*=======================================================
* InsertSummaryBand( lNewPage, lPageHeader, lPageFooter )
* Inserts a Summary band into an FRX
*=======================================================
lparameter lNewPage, lPageHeader, lPageFooter
locate for OBJTYPE = FRX_OBJTYP_BAND and ;
            OBJCODE = FRX_OBJCOD_PAGEFOOTER
THIS.insertBand( FRX_OBJCOD_SUMMARY )
replace ;
    HEIGHT        with 5000.000, ;
    PAGEBREAK   with m.lNewPage, ;
    EJECTBEFOR  with m.lPageHeader, ;
    EJECTAFTER  with m.lPageFooter
return
ENDPROC
PROCEDURE insertdetailband
*=======================================================
* InsertDetailBand()
* Inserts a detail band into an FRX.
* Assumes that the record pointer is located appropriately.
*=======================================================
THIS.insertBand( FRX_OBJCOD_DETAIL )
return
ENDPROC
PROCEDURE insertdetailheaderfooter
*=======================================================
* InsertDetailHeaderFooter()
* Inserts Detail Header and Footer bands into the FRX.
* Assumes: we are positioned on the detail band:
*=======================================================
insert blank
replace ;
    PLATFORM with FRX_PLATFORM_WINDOWS, ;
    UNIQUEID with sys(2015), ;
    OBJTYPE  with FRX_OBJTYP_BAND, ;
    OBJCODE  with FRX_OBJCOD_DETAILFOOTER
skip -1
insert before blank
replace ;
    PLATFORM with FRX_PLATFORM_WINDOWS, ;
    UNIQUEID with sys(2015), ;
    OBJTYPE  with FRX_OBJTYP_BAND, ;
    OBJCODE  with FRX_OBJCOD_DETAILHEADER
skip
return
ENDPROC
PROCEDURE setcolumncount
*=======================================================
* SetColumnCount( iCols )
* Adds or subtracts columns (and column header/footer
* records from the FRX.
* Assumes: the current workarea contains the FRX cursor.
* Calls: .createObjectCursor() if necessary.
*=======================================================
lparameter iCols
local lHasColBands, curRec, cFrxAlias
cFrxAlias = alias()
curRec = recno( m.cFrxAlias )
locate for     OBJTYPE = FRX_OBJTYP_REPORTHEADER and ;
            PLATFORM = FRX_PLATFORM_WINDOWS
replace VPOS with m.iCols
locate for    OBJTYPE = FRX_OBJTYP_BAND and ;
            OBJCODE = FRX_OBJCOD_COLHEADER and ;
            PLATFORM = FRX_PLATFORM_WINDOWS
lHasColBands = found()
THIS.goRec(m.curRec, m.cFrxAlias)
if (m.lHasColBands and m.iCols = 1) or ;
   (not m.lHasColBands and m.iCols > 1)
    THIS.createObjectCursor()
    do case
    case (m.lHasColBands and m.iCols = 1)
        *-------------------------------------------------------
        * Remove the column header/footer bands:
        *-------------------------------------------------------
        locate for OBJTYPE = FRX_OBJTYP_BAND ;
               and OBJCODE = FRX_OBJCOD_COLHEADER ;
               and PLATFORM = FRX_PLATFORM_WINDOWS
        if found()
            delete
        endif
        locate for OBJTYPE = FRX_OBJTYP_BAND ;
               and OBJCODE = FRX_OBJCOD_COLFOOTER ;
               and PLATFORM = FRX_PLATFORM_WINDOWS
        if found()
            delete
        endif
    case (not m.lHasColBands and m.iCols > 1)
        *-------------------------------------------------------
        * Insert the column header/footer bands:
        *-------------------------------------------------------
        locate for OBJTYPE = FRX_OBJTYP_BAND ;
               and OBJCODE = FRX_OBJCOD_PAGEHEADER ;
                and PLATFORM = FRX_PLATFORM_WINDOWS
        insert blank
        replace ;
            PLATFORM     with FRX_PLATFORM_WINDOWS, ;
            UNIQUEID     with sys(2015), ;
            OBJTYPE      with FRX_OBJTYP_BAND, ;
            OBJCODE      with FRX_OBJCOD_COLHEADER, ;
            NOREPEAT    with .F., ;
            PAGEBREAK    with .F., ;
            COLBREAK    with .F., ;
            RESETPAGE    with .F., ;
            PLAIN        with .F., ;
            CURPOS        with .F.
        locate for OBJTYPE = FRX_OBJTYP_BAND ;
               and OBJCODE = FRX_OBJCOD_PAGEFOOTER ;
               and PLATFORM = FRX_PLATFORM_WINDOWS
        insert before blank
        replace ;
            PLATFORM     with FRX_PLATFORM_WINDOWS, ;
            UNIQUEID     with sys(2015), ;
            OBJTYPE      with FRX_OBJTYP_BAND, ;
            OBJCODE      with FRX_OBJCOD_COLFOOTER, ;
            NOREPEAT    with .F., ;
            PAGEBREAK    with .F., ;
            COLBREAK    with .F., ;
            RESETPAGE    with .F., ;
            PLAIN        with .F., ;
            CURPOS        with .F.
    endcase
    *-------------------------------------------------------
    * Refresh the band cursor:
    *-------------------------------------------------------
    THIS.createBandCursor()
    *-------------------------------------------------------
    * Using the offsets in object cursor and the
    * new band heights in band cursor, re-sync the
    * objects' positions:
    *-------------------------------------------------------
    THIS.synchObjectPositions()
    THIS.goRec(m.curRec, m.cFrxAlias)
endif
return
ENDPROC
PROCEDURE creategroupcursor
*=======================================================
* CreateGroupCursor()
* Creats a cursor with the alias "groups" containing records
* of information for each data group in the report.
* Used mainly by PanelGrouping class.
* Returns .T. if successfully created.
*=======================================================
lparameter tcFrxAlias, tiSession
local curSession
if empty(m.tiSession) or (m.tiSession < 1)
   m.tiSession = set("datasession")
endif
m.curSession = set("datasession")
set datasession to (m.tiSession)
if empty( m.tcFrxAlias )
    tcFrxAlias = 'frx'
endif
if not used(m.tcFrxAlias)
    set datasession to (m.curSession)
    return .F.
endif
curSel = select(0)
*-------------------------------------------------------
* get the current report measurement units and tell our
* converter to use them:
*-------------------------------------------------------
local iUnits
iUnits     = THIS.getReportAttribute("UNITS")
*-------------------------------------------------------
* create the groups cursor:
*-------------------------------------------------------
if used("groups")
    use in groups
endif
select 0
create cursor groups ( ;
    UNIQUEID c(10), ;
    EXPR M, ;
    PAGINATE i, ;
    REPRINT l, ;
    THRESH n(9,3), ;
    FOOTER_ID c(10) )
*-------------------------------------------------------
* Initialise stuff:
*-------------------------------------------------------
local iPaginate, iCurRec, nThreshold, lisMultiCol
iPaginate   = 0
iCurRec     = recno(m.tcFrxAlias)
lIsMultiCol = THIS.getReportAttribute("MULTICOLUMN")
*-------------------------------------------------------
* Scan through the group header records, building up the information
* and then insert a new record into the groups cursor:
*-------------------------------------------------------
select (m.tcFrxAlias)
scan for OBJTYPE = FRX_OBJTYP_BAND and ;
         OBJCODE = FRX_OBJCOD_GROUPHEADER and ;
         not deleted() and ;
         PLATFORM = FRX_PLATFORM_WINDOWS
    *-------------------------------------
    * Pagination: try:
    * 1  ( ) Normal               (none set)
    * 2  ( ) Start on new column  (COLBREAK)
    * 3  ( ) Start on new page    (PAGEBREAK)
    * 4  ( ) Start on new page 1  (PAGEBREAK+RESETPAGE)
    *-------------------------------------
    do case
    case PAGEBREAK and RESETPAGE
        iPaginate = 4
    case PAGEBREAK
        iPaginate = 3
    case COLBREAK
        if m.lIsMultiCol
            iPaginate = 2
        else
            *--------------------------------
            * Even though this option used to be set to "new column",
            * the report only has one column, so reset to default:
            *--------------------------------
            iPaginate = 1
        endif
    otherwise
        iPaginate = 1
    endcase
    *-------------------------------------
    * Calculate threshold in local units:
    *-------------------------------------
    nThreshold = THIS.getUnitValueFromFRU( WIDTH, m.iUnits )
    insert into groups values ( ;
        &tcFrxAlias..UNIQUEID, ;
        &tcFrxAlias..EXPR, ;
        m.iPaginate, ;
        &tcFrxAlias..NOREPEAT, ;
        m.nThreshold, ;
        "" )
endscan
*-------------------------------------------------------
* Now grab the group footer IDs as well. Note of course
* that they are in reverse order to the headers (nesting):
*-------------------------------------------------------
go bottom in groups
scan for OBJTYPE = FRX_OBJTYP_BAND and ;
         OBJCODE = FRX_OBJCOD_GROUPFOOTER and ;
         not deleted() and ;
         PLATFORM = FRX_PLATFORM_WINDOWS
    select groups
    replace FOOTER_ID with &tcFrxAlias..UNIQUEID
    skip -1
    select (m.tcFrxAlias)
endscan
*-------------------------------------------------------
* Restore the record pointer in FRX (important)
*-------------------------------------------------------
THIS.goRec(m.icurRec, m.tcFrxAlias)
select (m.curSel)
set datasession to (m.curSession)
return .T.
ENDPROC
PROCEDURE createvariablecursor
*=======================================================
* CreateVariableCursor()
* Creats a cursor with the alias "vars" containing records
* of information for each report variable in the report.
* Used mostly by panelVariables class
* Returns .T. if successfully created.
*=======================================================
lparameter tcFrxAlias, tiSession
local curSession
if empty(m.tiSession) or (m.tiSession < 1)
   m.tiSession = set("datasession")
endif
m.curSession = set("datasession")
set datasession to (m.tiSession)
if empty( m.tcFrxAlias )
    tcFrxAlias = 'frx'
endif
if not used(m.tcFrxAlias)
    set datasession to (m.curSession)
    return .F.
endif
curSel = select(0)
*-------------------------------------------------------
* This is needed later on:
*-------------------------------------------------------
if not used("reset_on")
    THIS.createCalcResetOnCursor()
endif
*-------------------------------------------------------
* create the vars cursor:
*-------------------------------------------------------
if used("vars")
    use in vars
endif
select 0
create cursor vars ( ;
    UNIQUEID       C(10), ;
    VARNAME        M, ;
    VALUE_TO_STORE M, ;
    INITIAL_VALUE  M, ;
    RELEASE_VAR    L, ;
    CALC_TYPE      N(2,0), ;
    RESET_ON       N(2,0), ;
    REC_NO           I )
*-------------------------------------------------------
* Initialise stuff:
*-------------------------------------------------------
local iCurRec, iResetOn
iCurRec   = recno(m.tcFrxAlias)
*-------------------------------------------------------
* Scan through the variable records, building up the information
* and then insert a new record into the vars cursor:
*-------------------------------------------------------
select (m.tcFrxAlias)
scan for OBJTYPE = FRX_OBJTYP_VARIABLE and ;
         not deleted() and ;
         PLATFORM = FRX_PLATFORM_WINDOWS
    select reset_on
    locate for RESETTOTAL = &tcFrxAlias..RESETTOTAL
    insert into vars values ( ;
        &tcFrxAlias..UNIQUEID, ;
        &tcFrxAlias..NAME, ;
        &tcFrxAlias..EXPR, ;
        &tcFrxAlias..TAG, ;
        &tcFrxAlias..UNIQUE, ;
        &tcFrxAlias..TOTALTYPE+1, ;
        recno("reset_on"), ;
        recno(m.tcFrxAlias) )
endscan
*-------------------------------------------------------
* Restore the record pointer in FRX (important)
*-------------------------------------------------------
THIS.goRec(m.icurRec, m.tcFrxAlias)
select (m.curSel)
set datasession to (m.curSession)
return .T.
ENDPROC
PROCEDURE createcalcresetoncursor
*=======================================================
* CreateCalcResetOnCursor()
* Creates a cursor with the alias "reset_on" containing records
* of information for each prompt in the Calculation Reset combobox.
* Returns .T. if successfully created.
*=======================================================
lparameter tcFrxAlias, tiSession
local curSession
if empty(m.tiSession) or (m.tiSession < 1)
   m.tiSession = set("datasession")
endif
m.curSession = set("datasession")
set datasession to (m.tiSession)
if empty( m.tcFrxAlias )
    tcFrxAlias = 'frx'
endif
if not used(m.tcFrxAlias)
    set datasession to (m.curSession)
    return .F.
endif
local curSel, curRec, iGroupCount, iDetailCount, iNum
curSel = select(0)
*-------------------------------------------------------
* create the reset_on cursor:
*-------------------------------------------------------
if used("reset_on")
    use in reset_on
endif
create cursor reset_on (;
    UNIQUEID c(10), ;
    OBJCODE n(2,0) , ;
    PROMPT_TEXT c(30), ;
    RESETTOTAL i )
*-----------------------------------------------------------
* Add in the report/Page resets:
*-----------------------------------------------------------
insert into reset_on values ( "", 0, ENDOFREPORT_LOC, FRX_RESETTOTAL_ENDOFREPORT )
insert into reset_on values ( "", 0, ENDOFPAGE_LOC,   FRX_RESETTOTAL_ENDOFPAGE )
select (m.tcFrxAlias)
curRec = recno()
*-----------------------------------------------------------
* Add in the column reset if there are multi-cols:
*-----------------------------------------------------------
locate for OBJTYPE = FRX_OBJTYP_REPORTHEADER ;
       and PLATFORM = FRX_PLATFORM_WINDOWS
if VPOS > 1
    insert into reset_on values ( "", 0, ENDOFCOLUMN_LOC, FRX_RESETTOTAL_ENDOFCOLUMN )
    insert into reset_on values ( "", 0, "\"+ENDOFCOLUMN_LOC, FRX_RESETTOTAL_ENDOFCOLUMN )
endif
*-----------------------------------------------------------
* Only add in the group reset if there are groups:
*-----------------------------------------------------------
count for OBJTYPE = FRX_OBJTYP_BAND ;
      and OBJCODE = FRX_OBJCOD_GROUPHEADER ;
      and PLATFORM = FRX_PLATFORM_WINDOWS ;
      to iGroupCount
if m.iGroupCount > 0
    iNum = 1
    insert into reset_on values ( "", 0, "\-", 1001 )
    scan for OBJTYPE = FRX_OBJTYP_BAND ;
         and OBJCODE = FRX_OBJCOD_GROUPHEADER ;
         and PLATFORM = FRX_PLATFORM_WINDOWS
        insert into reset_on values ( ;
            &tcFrxAlias..UNIQUEID, ;
            &tcFrxAlias..OBJCODE, ;
            GROUP_BY_LOC + trim(&tcFrxAlias..EXPR), ;
            FRX_RESETTOTAL_GROUP_OFFSET + m.iNum )
        iNum = m.iNum + 1
    endscan
endif
*-----------------------------------------------------------
* Only add in the detail reset if this is a multi-detail report:
*-----------------------------------------------------------
count for OBJTYPE = FRX_OBJTYP_BAND ;
      and OBJCODE = FRX_OBJCOD_DETAIL ;
      and PLATFORM = FRX_PLATFORM_WINDOWS ;
      to iDetailCount
if m.iDetailCount > 1
    iNum = 1
    insert into reset_on values ( "", 0, "\-", 1002 )
    scan for OBJTYPE = FRX_OBJTYP_BAND ;
         and OBJCODE = FRX_OBJCOD_DETAIL ;
         and PLATFORM = FRX_PLATFORM_WINDOWS

        insert into reset_on values ( ;
            &tcFrxAlias..UNIQUEID, ;
            &tcFrxAlias..OBJCODE, ;
            DETAIL_LOC + transform(m.iNum), ;
            FRX_RESETTOTAL_DETAIL_OFFSET + m.iNum  )
        iNum = m.iNum + 1
    endscan
endif
THIS.goRec(m.curRec, m.tcFrxAlias)
select (m.curSel)
set datasession to (m.curSession)
return .t.
ENDPROC
PROCEDURE createdefaultprintenvcursor
*=======================================================
* CreateDefaultPrintEnvCursor( <frxAlias>, <dataenvAlias> )
* Creates a one-row cursor with the same structure as the
* FRX. Default parameters are "frx", "defPrnEnv".
*=======================================================
lparameters lcFrxAlias, lcPEAlias, liSession
local curSel,curSession
if empty(m.liSession) or (m.liSession < 1)
   m.liSession = set("datasession")
endif
m.curSession = set("datasession")
set datasession to (m.liSession)
curSel = select(0)
if empty( m.lcFrxAlias )
    lcFrxAlias = 'frx'
endif
if empty( m.lcPEAlias )
    lcPEAlias = 'defPrnEnv'
endif
select * ;
    from (m.lcFrxAlias) ;
    where OBJTYPE = FRX_OBJTYP_REPORTHEADER ;
      and PLATFORM = FRX_PLATFORM_WINDOWS ;
    into cursor (m.lcPEAlias) ;
    readwrite
=sys(1037,2)
select (m.curSel)
set datasession to (m.curSession)
return
ENDPROC
PROCEDURE getselectedobjectcount
*=======================================================
* getSelectedObjectCount( <frx> )
*=======================================================
lparameter lcFrxAlias
if empty( m.lcFrxAlias )
    lcFrxAlias = "frx"
endif
local cursel, curRec, selCount
curSel = select(0)
select (m.lcFrxAlias)
curRec = recno()
count for    CURPOS and ;
            PLATFORM = FRX_PLATFORM_WINDOWS and ;
            OBJTYPE <> 1 ;
    to m.selCount
go m.curRec
select (m.curSel)
return m.selCount
ENDPROC
PROCEDURE pushprintenvtocursor
*=======================================================
* pushPrintEnvToCursor( <alias> )
*=======================================================
lparameter cRegisterAlias
local curSel
curSel = select(0)
select * ;
    from frx ;
    where .F. ;
    into cursor (m.cRegisterAlias) ;
    readwrite
append Blank
result = sys(1037,2)
select (m.curSel)
return
ENDPROC
PROCEDURE popprintenv
*=======================================================
* popPrintEnv()
* assumes the FRX file to pop from is selected.
*=======================================================
result = sys(1037,3)
return
ENDPROC
PROCEDURE getfrxtimestamp
#define DEBUGGING .F.
*=======================================================
* GetFrxTimeStamp( vDateTime )
* Returns a FOX system file timestamp
* from a date time value, any data type
* Calls: intToBin(), binToInt() from browser.scx code
*=======================================================
lparameter tvDateTime
*-------------------------------------------------------
* Default to current datetime
*-------------------------------------------------------
LOCAL ltDateTime, lvFoxTimeStamp, lvTemp
ltDateTime = CTOT(TRANSFORM(tvDateTime))
IF EMPTY(ltDateTime)
   ltDateTime = DATETIME()
ENDIF
#IF DEBUGGING
   ACTI SCREEN
   CLEAR
   ? ltDateTime
#ENDIF
*-------------------------------------------------------
* bits 4-0, seconds in two-second increments
*-------------------------------------------------------
lvTemp = SEC(ltDateTime) / 2
lvFoxTimeStamp = PADL(RIGHT(THIS.IntToBin(lvTemp),5),5,"0")
#IF DEBUGGING
?  lvTemp
?  lvFoxTimeStamp
#ENDIF
*-------------------------------------------------------
* bits 10-5, minutes
*-------------------------------------------------------
lvTemp = MINUTE(ltDateTime)
lvFoxTimeStamp = PADL(RIGHT(THIS.IntToBin(lvTemp),6),6,"0") + lvFoxTimeStamp
#IF DEBUGGING
?  lvTemp
?  lvFoxTimeStamp
#ENDIF
*-------------------------------------------------------
* bits 15-11, hours
*-------------------------------------------------------
lvTemp = HOUR(ltDateTime)
lvFoxTimeStamp = PADL(RIGHT(THIS.IntToBin(lvTemp),5),5,"0") + lvFoxTimeStamp
#IF DEBUGGING
?  lvTemp
?  lvFoxTimeStamp
#ENDIF
*-------------------------------------------------------
* bits 20-16, days
*-------------------------------------------------------
lvTemp = DAY(ltDateTime)
lvFoxTimeStamp = PADL(RIGHT(THIS.IntToBin(lvTemp),5),5,"0") + lvFoxTimeStamp
#IF DEBUGGING
?  lvTemp
?  lvFoxTimeStamp
#ENDIF
*-------------------------------------------------------
* bits 24-21, months
*-------------------------------------------------------
lvTemp = MONTH(ltDateTime)
lvFoxTimeStamp = PADL(RIGHT(THIS.IntToBin(lvTemp),4),4,"0") + lvFoxTimeStamp
#IF DEBUGGING
?  lvTemp
?  lvFoxTimeStamp
#ENDIF
*-------------------------------------------------------
* bits 31-25, years with a 1980 offset
*-------------------------------------------------------
lvTemp = YEAR(ltDateTime)-1980
lvFoxTimeStamp = PADL(RIGHT(THIS.IntToBin(lvTemp),7),7,"0") + lvFoxTimeStamp
#IF DEBUGGING
?  lvTemp
?  LEN(lvFoxTimeStamp)
?  lvFoxTimeStamp
#ENDIF
lvFoxTimeStamp = THIS.BinToInt(lvFoxTimeStamp)
RETURN lvFoxTimeStamp
ENDPROC
PROCEDURE gettimestampstring
*=======================================================
* GetTimeStampString( iStamp )
* Returns a readable string version of a Fox system
* timestamp, using current date settings
*=======================================================
lparameter tiStamp
IF EMPTY(tiStamp) OR TYPE("tiStamp") # "N"
   RETURN ""
ENDIF
LOCAL lnYearoffset,lcYear,lcMonth,;
      lcDay,lcHour,lcMinute,lcSecond
*-------------------------------------------------------
* lnYearoffset = INT(tiStamp/2^25)   && bits 31-25
*-------------------------------------------------------
lnYearoffset = BITRSHIFT(tiStamp,25)
lcYear = STR(1980 + lnYearoffset)
*-------------------------------------------------------
* lcMonth = STR(INT(tiStamp/2^21) % 2^4)  && bits 24-21
*-------------------------------------------------------
lcMonth = STR(BITRSHIFT(tiStamp,21) % 2^4)
*-------------------------------------------------------
* lcDay = STR(INT(tiStamp/2^16) % 2^5)    && bits 20-16
*-------------------------------------------------------
lcDay = STR(BITRSHIFT(tiStamp,16) % 2^5)
*-------------------------------------------------------
* lcHour = STR(INT(tiStamp/2^11) % 2^5)   && bits 15-11
*-------------------------------------------------------
lcHour = STR(BITRSHIFT(tiStamp,11) % 2^5)
*-------------------------------------------------------
* lcMinute = STR(INT(tiStamp/2^5) % 2^6)  && bits 10-5
*-------------------------------------------------------
lcMinute = STR(BITRSHIFT(tiStamp,5) % 2^6)
*-------------------------------------------------------
* lcSecond = STR(INT(tiStamp%2^5) * 2)    && bits 4-0 (two-second increments)
*-------------------------------------------------------
lcSecond = STR(BITLSHIFT(tiStamp%2^5,1))
RETURN TTOC({^&lcYear./&lcMonth./&lcDay. &lcHour.:&lcMinute.:&lcSecond.})
ENDPROC
PROCEDURE inttobin
*=======================================================
* IntToBin( int )
* Returns a binary form of an integer
*=======================================================
LPARAMETERS tnInteger
LOCAL lnInteger,lcBinary,lnDivisor,lnCount
IF EMPTY(tnInteger)
    RETURN "0"
ENDIF
lnInteger=INT(tnInteger)
lcBinary=""
FOR lnCount = 31 TO 0 STEP -1
    lnDivisor=2^lnCount
    IF lnDivisor>lnInteger
        lcBinary=lcBinary+"0"
        LOOP
    ENDIF
    lcBinary=lcBinary+IIF((lnInteger/lnDivisor)>0,"1","0")
    lnInteger=INT(lnInteger-lnDivisor)
ENDFOR
RETURN lcBinary
ENDPROC
PROCEDURE bintoint
*=======================================================
* BinToInt( cBytes )
* Returns an integer form of binary data
*=======================================================
LPARAMETERS tcBinary
LOCAL lcInteger,lnInteger,lnCount,lnStrLen
IF EMPTY(tcBinary)
    RETURN 0
ENDIF
lnStrLen=LEN(tcBinary)
lnInteger=0
FOR lnCount = 0 TO (lnStrLen-1)
    IF SUBSTR(tcBinary,lnStrLen-lnCount,1)=="1"
        lnInteger=lnInteger+2^lnCount
    ENDIF
ENDFOR
RETURN INT(lnInteger)
ENDPROC
PROCEDURE gettargettypetext
*=======================================================
* GetTargetTypeText( OBJTYPE, OBJCODE )
* Returns a readable string version of a target Type/Code
*=======================================================
lparameters nObjType, nObjCode
if parameters() = 0
    nObjType = -1
    nObjCode = -1
endif
do case
case m.nObjType = FRX_OBJTYPE_MULTISELECT
    return TARGET_MULTISELECT_LOC
case m.nObjType = FRX_OBJTYP_COMMENT
    return TARGET_REPORT_COMMENT_LOC
case m.nObjType = FRX_OBJTYP_REPORTHEADER
    return TARGET_REPORT_GLOBAL_LOC
case m.nObjType = 2
    return TARGET_WORKAREA_LOC
case m.nObjType = 3
    return TARGET_INDEX_LOC
case m.nObjType = 4
    return TARGET_RELATION_LOC
case m.nObjType = FRX_OBJTYP_LABEL
    return TARGET_TEXT_LABEL_LOC
case m.nObjType = FRX_OBJTYP_LINE
    return TARGET_LINE_LOC
case m.nObjType = FRX_OBJTYP_RECTANGLE
    return TARGET_BOX_LOC
case m.nObjType = FRX_OBJTYP_FIELD
    return TARGET_FIELD_LOC
case m.nObjType = FRX_OBJTYP_BAND
    do case
    case m.nObjCode = FRX_OBJCOD_TITLE
        return TARGET_TITLE_LOC
    case m.nObjCode = FRX_OBJCOD_PAGEHEADER
        return TARGET_PAGE_HEADER_LOC
    case m.nObjCode = FRX_OBJCOD_COLHEADER
        return TARGET_COL_HEADER_LOC
    case m.nObjCode = FRX_OBJCOD_GROUPHEADER
        return TARGET_GROUP_HEADER_LOC
    case m.nObjCode = FRX_OBJCOD_DETAIL
        return TARGET_DETAIL_LOC
    case m.nObjCode = FRX_OBJCOD_GROUPFOOTER
        return TARGET_GROUP_FOOTER_LOC
    case m.nObjCode = FRX_OBJCOD_COLFOOTER
        return TARGET_COL_FOOTER_LOC
    case m.nObjCode = FRX_OBJCOD_PAGEFOOTER
        return TARGET_PAGE_FOOTER_LOC
    case m.nObjCode = FRX_OBJCOD_SUMMARY
        return TARGET_SUMMARY_LOC
    case m.nObjCode = FRX_OBJCOD_DETAILHEADER
        return TARGET_DETAIL_HEADER_LOC
    case m.nObjCode = FRX_OBJCOD_DETAILFOOTER
        return TARGET_DETAIL_FOOTER_LOC
     otherwise
        return TARGET_UNKNOWN_BAND_LOC
    endcase
case m.nObjType = FRX_OBJTYP_GROUP
    return TARGET_GROUPED_LOC
case m.nObjType = FRX_OBJTYP_PICTURE
    return TARGET_PICTURE_LOC
case m.nObjType = FRX_OBJTYP_VARIABLE
    return TARGET_VARIABLE_LOC
case m.nObjType = FRX_OBJTYP_PDRIVER
    return TARGET_PDRIVER_LOC
case m.nObjType = FRX_OBJTYP_FONTRES
    return TARGET_FONTRESO_LOC
case m.nObjType = FRX_OBJTYP_DATAENV
    return TARGET_DATAENV_LOC
case m.nObjType = FRX_OBJTYP_DATAOBJ
    return TARGET_CURSOR_LOC
otherwise
    return TARGET_UNKNOWN_LOC
endcase
ENDPROC
PROCEDURE getunitvaluefromfru
*-------------------------------------------------
* Return a given unit value for a given value in FRUs,
* depending on the Units:
*-------------------------------------------------
lparameter nFruValue, iUnits
do case
case inlist( m.iUnits, FRX_RULER_INCHES, FRX_RULER_OFF)
    return (m.nFruValue / 10000)
case m.iUnits = FRX_RULER_METRIC
    return (m.nFruValue / (0.3937 * 10000))
case m.iUnits = FRX_RULER_CHARACTERS
    *---------------------------------------------------------
    * 1 char = 833.33 FRU
    * 1 char = 1/12 inch
    *---------------------------------------------------------
    return (m.nFruValue / 833.33)
*case THIS.units = FRX_RULER_PIXELS
otherwise
    *---------------------------------------------------------
    * Designer fixed at 96 dpi
    *---------------------------------------------------------
    return (m.nFruValue * 96 / 10000 )
endcase
ENDPROC
PROCEDURE stripquotes
lparameter lcValue
do case
case left( m.lcValue, 1 ) == ["] and right( m.lcValue, 1 ) == ["]
    return substr( m.lcValue, 2, len( m.lcValue ) - 2 )
case left( m.lcValue, 1 ) == ['] and right( m.lcValue, 1 ) == [']
    return substr( m.lcValue, 2, len( m.lcValue ) - 2 )
otherwise
    return m.lcValue
endcase
ENDPROC
PROCEDURE getmetadatadomdoc
*=======================================================
* GetMetadataDomDoc( <frx> )
* Returns a reference to an MSXml.DomDocument with the
* XML stored in the STYLE column of the current record in
* the frx cursor. Default alias is "frx".
* Check for null in case of errors.
* If the STYLE field is empty, a default XML document is
* returned.
*=======================================================
lparameter lcFrxAlias
local curSel, cXml, oDom
if empty( m.lcFrxAlias )
    lcFrxAlias = 'frx'
endif
if not used(m.lcFrxAlias)
    return .null.
endif
curSel = select(0)
select (m.lcFrxAlias)
*------------------------------------------------------
* Extract the metadata XML from STYLE field of frx cursor
* record, and put default xml in if its empty:
*------------------------------------------------------
cXml = STYLE
if empty( m.cXml )
    text noshow to m.cXml
<VFPData>
    <reportdata name="" type="R" script="" execute="" execwhen="" class="" classlib="" declass="" declasslib=""/>
</VFPData>
    endtext
    replace STYLE with m.cXml
endif
select (m.curSel)
*------------------------------------------------------
* Create a DomDocument and load up the xml.
*------------------------------------------------------
oDom = createobject("MSXml.DomDocument")
oDom.loadXML( m.cXml )
return oDom
ENDPROC
PROCEDURE islayoutcontrol
lparameter iObjType
return inlist( m.iObjType, FRX_OBJTYP_LABEL, FRX_OBJTYP_LINE, FRX_OBJTYP_RECTANGLE, FRX_OBJTYP_FIELD, FRX_OBJTYP_PICTURE )
ENDPROC
PROCEDURE unpackmemberdata
*=======================================================
* UnpackMemberData( cFrxAlias, cMetaAlias )
* Creates a cursor containing rows from Memberdata (STYLE)
* Assumes: FRX cursor is located on correct record
* in the FRXDataSession
* Returns: .T. if it has successfully create (cAliasName)
*=======================================================
lparameter tcFrxAlias, tcMetaAlias, tiDataSession
local curSel, lcXml, llSuccess, liDataSession
llSuccess = .T.
if empty(m.tiDataSession) or (m.tiDataSession < 1)
   m.tiDataSession = set("datasession")
endif
m.liDataSession = set("datasession")
set datasession to (m.tiDataSession)
curSel = select(0)
if empty( m.tcFrxAlias )
    tcFrxAlias = "frx"
endif
if empty( m.tcMetaAlias )
    tcMetaAlias = "memberdata"
endif
if not used(m.tcFrxAlias)
    set datasession to (m.liDataSession)
    return .F.
endif
if used(m.tcMetaAlias)
    use in (m.tcMetaAlias)
endif
select (m.tcFrxAlias)
if empty(STYLE)
    *-------------------------------------
    * Use the default:
    *-------------------------------------
    lcXML = ""
    lcXml = trim(STYLE)
    if not inlist( left( upper( m.lcXml ),5), "<VFPD","<?XML")
        * OK. STYLE doesn't have XML in it.
        * We're not actually writing data back into the STYLE column yet,
        * and they might hit Cancel after they've opened the dialog.
        * So, create an empty memberdata cursor. The warning message
        * should perhaps be done in the save, where they can cancel
        * and check it out themselves.
        lcXml = ""
    endif
endif
if m.llSuccess
    llSuccess = THIS.XmlStrToCursor( m.lcXml, m.tcMetaAlias )
endif
select (m.curSel)
set datasession to (m.liDataSession)
return m.llSuccess
ENDPROC
PROCEDURE packupmemberdata
*=======================================================
* PackupMemberData
* Converts the rows into XML and stores in STYLE column
* Assumes: FRX cursor is located on correct record
* in the FRXDataSession
* Returns: Success or Failure
*=======================================================
lparameter tcFrxAlias, tcMetaAlias, tiDataSession
local lcXml, liBytes, liSelect, liDataSession, llSuccess
if empty( m.tcFrxAlias )
    tcFrxAlias = "frx"
endif
if empty( m.tcMetaAlias )
    tcMetaAlias = "memberdata"
endif
if empty(m.tiDataSession) or (m.tiDataSession < 1)
   m.tiDataSession = set("datasession")
endif
m.liDataSession = set("datasession")
set DataSession to (m.tiDataSession)
liSelect  = select(0)
llSuccess = .T.
if not used(m.tcFrxAlias)
    m.llSuccess = .F.
endif
if not used(m.tcMetaAlias)
    m.llSuccess= .F.
endif
select (m.tcFrxAlias)
if not empty( STYLE )
    if not inlist( left( upper(alltrim(STYLE)),5), "<VFPD","<?XML")
        * OK. STYLE currently doesn't contain XML.
        * We must warn the user and let them cancel the operation
        * if they think the contents are important:
        if not THIS.QuietMode
            if messagebox(METADATA_NOT_XML_ERROR_LOC, 48+4, DEFAULT_MBOX_TITLE_LOC)=6
                llSuccess = .T.
            else
                llSuccess = .F.
            endif
        else
            llSuccess = .T.
        endif
    endif
endif
if m.llSuccess
    *--------------------------------------
    * Fix for SP2: force a "reportdata" node name
    *--------------------------------------
    select * from (m.tcMetaAlias) into cursor reportdata where not deleted()
    lcXml = THIS.CursorToXmlStr( "reportdata" )
    use in reportdata
    *--------------------------------------
    * Only save the XML into FRX.STYLE
    * if it has changed from default:
    *--------------------------------------
    do case
    case empty(m.lcXml)
        replace STYLE with "" in (m.tcFrxAlias)
    case m.lcXml == DEFAULT_MEMBERDATA_XML
        replace STYLE with "" in (m.tcFrxAlias)
    case trim(upper(m.lcXml)) = "<VFPDATA/>"
        replace STYLE with "" in (m.tcFrxAlias)
    otherwise
        replace STYLE with m.lcXml in (m.tcFrxAlias)
    endcase
endif
select (m.liSelect)
set datasession to (m.liDataSession)
return m.llSuccess
ENDPROC
PROCEDURE unpackfrxmemberdata
*=============================================================================
* UnpackFrxMemberData( frxAlias, memberdataAlias, FrxDataSession, NoIndex)
* Expands the XML contents of the STYLE column
* into a cursor (alias of your choice)
* for ALL ROWS IN THE SOURCE CURSOR
* Default parameter values are 'frx', 'memberdata'
*=============================================================================
lparameter tcFrxAlias, tcMetaAlias, tiDataSession, tlOmitIndex
local curSel, liRows, lcAttributes, liIndex, lcTempAlias, liSelect, llError, liDataSession
if empty(m.tiDataSession) or (m.tiDataSession < 1)
   m.tiDataSession = set("DATASESSION")
endif
m.liDataSession = set("DATASESSION")
set datasession to (m.tiDataSession)
if empty( m.tcFrxAlias )
    tcFrxAlias = "frx"
endif
if empty( m.tcMetaAlias )
    tcMetaAlias = "memberdata"
endif
if not used(m.tcFrxAlias)
    set datasession to (m.liDataSession)
    return .f.
endif
if used(m.tcMetaAlias)
    use in (m.tcMetaAlias)
endif
liSelect = select(0)
*------------------------------------------------------
* we're going to take every attribute, whether we understand
* the column or not, but we'll start off with the core set
*------------------------------------------------------
lcAttributes = "|NAME|TYPE|SCRIPT|EXECUTE|EXECWHEN|CLASS|CLASSLIB|DECLASS|DECLASSLIB|"
create cursor (m.tcMetaAlias) ( ;
    FRXRECNO i, ;
    NAME m, ;
    TYPE c(1), ;
    EXECWHEN m, ;
    EXECUTE m, ;
    CLASS m, ;
    CLASSLIB m, ;
    DECLASS m, ;
    DECLASSLIB m, ;
    SCRIPT m )
select (m.tcFrxAlias)
lcTempAlias = "T" + sys(2015)
go top
scan while not m.llError for PLATFORM = FRX_PLATFORM_WINDOWS and not (empty(STYLE) or deleted())
    if len(alltrim(STYLE))<5
        *---------------------------------------------
        * ENH for SP2:
        * This is probably not invalid XML.
        * This is probably migrated FP2.x style data
        * Therefore ignore:
        *---------------------------------------------
        loop
    endif
        XmlToCursor(STYLE, m.lcTempAlias)
    catch to oErr
        *---------------------------------------------
        * Invalid XML, will be ignored for this record
        *---------------------------------------------
       if not this.QuietMode
            messagebox(oErr.Message + chr(13) + METADATA_LOAD_ERROR_LOC , ;
                        MB_ICONEXCLAMATION, ;
                        DEFAULT_MBOX_TITLE_LOC)
       endif
    finally
        if used(m.lcTempAlias)
            if reccount(m.lcTempAlias) > 0
                select (m.lcTempAlias)
                for m.liIndex = 1 to fcount()
                    if atc("|"+field(m.liIndex)+"|",m.lcAttributes) = 0
                        try
                               alter table (m.tcMetaAlias) add column (field(liIndex)) M
                            m.lcAttributes = m.lcAttributes + field(m.liIndex) + "|"
                        catch to oErr
                           m.llError = .T.
                           exit
                        endtry
                    endif
                endfor
                select (m.tcFrxAlias)
                if m.llError
                   if not this.QuietMode
                        messagebox(oErr.Message + chr(13) + METADATA_CUMULATIVE_ERROR_LOC , ;
                                    MB_ICONEXCLAMATION, ;
                                    DEFAULT_MBOX_TITLE_LOC)
                   endif
                else
                    *---------------------------------------------
                    * Re-import the XML into the new structure:
                    *---------------------------------------------
                    XmlToCursor( STYLE, m.tcMetaAlias, 8192 )
                    select (m.tcMetaAlias)
                    replace FRXRECNO with recno(m.tcFrxAlias) for empty(FRXRECNO)
                endif
            endif
            use in (m.lcTempAlias)
        endif
    endtry
    select (m.tcFrxAlias)
endscan
if not m.tlOmitIndex
    select (m.tcMetaAlias)
    index on FRXRECNO tag FRXRECNO
endif
select (m.liSelect)
set datasession to (m.liDataSession)
return .T.
ENDPROC
PROCEDURE getfrxrecdisplayname
*======================================================
* GetFrxRecDisplayName()
* Assumes: current alias is the source FRX
*======================================================
lparameter tlIncludeRecno
local retVal
retVal = ""
do case
case OBJTYPE = FRX_OBJTYP_REPORTHEADER
    retVal = TARGET_REPORT_GLOBAL_LOC
case OBJTYPE = FRX_OBJTYP_LABEL
    *retVal = TARGET_TEXT_LABEL_LOC + ": " + trim(EXPR)
    retVal = THIS.stripQuotes(trim(EXPR))
case OBJTYPE = FRX_OBJTYP_FIELD
    *retVal = TARGET_FIELD_LOC + ": " + trim(EXPR)
    retVal = THIS.stripQuotes(trim(EXPR))
case OBJTYPE = FRX_OBJTYP_LINE
    retVal = TARGET_LINE_LOC
case OBJTYPE = FRX_OBJTYP_RECTANGLE
    retVal = TARGET_BOX_LOC
case OBJTYPE = FRX_OBJTYP_PICTURE
    if not empty(NAME)
        *retVal = TARGET_PICTURE_LOC + ": " + trim(NAME)
        retVal = THIS.stripQuotes(trim(NAME))
    else
        *retVal = TARGET_PICTURE_LOC + ": " + trim(PICTURE)
        retVal = THIS.stripQuotes(trim(PICTURE))
    endif
case OBJTYPE = FRX_OBJTYP_BAND
    do case
    case OBJCODE = FRX_OBJCOD_TITLE
        retVal = TARGET_TITLE_LOC
    case OBJCODE = FRX_OBJCOD_PAGEHEADER
        retVal = TARGET_PAGE_HEADER_LOC
    case OBJCODE = FRX_OBJCOD_COLHEADER
        retVal = TARGET_COL_HEADER_LOC
    case OBJCODE = FRX_OBJCOD_GROUPHEADER
        retVal = TARGET_GROUP_HEADER_LOC + ": " + THIS.stripQuotes(trim(EXPR))
    case OBJCODE = FRX_OBJCOD_DETAIL
        retVal = TARGET_DETAIL_LOC
    case OBJCODE = FRX_OBJCOD_GROUPFOOTER
        retVal = TARGET_GROUP_FOOTER_LOC
    case OBJCODE = FRX_OBJCOD_COLFOOTER
        retVal = TARGET_COL_FOOTER_LOC
    case OBJCODE = FRX_OBJCOD_PAGEFOOTER
        retVal = TARGET_PAGE_FOOTER_LOC
    case OBJCODE = FRX_OBJCOD_SUMMARY
        retVal = TARGET_SUMMARY_LOC
    case OBJCODE = FRX_OBJCOD_DETAILHEADER
        retVal = TARGET_DETAIL_HEADER_LOC
    case OBJCODE = FRX_OBJCOD_DETAILFOOTER
        retVal = TARGET_DETAIL_FOOTER_LOC
    endcase
case OBJTYPE = FRX_OBJTYP_GROUP
    retVal = TARGET_GROUPED_LOC + " (" + trans(HPOS)+")"
otherwise
    retVal = TARGET_UNKNOWN_LOC
endcase
if m.tlIncludeRecno
    retVal = "["+trans(recno())+"] " + m.retVal
endif
return m.retVal
ENDPROC
PROCEDURE xmlstrtocursor
*===============================================================
* XmlStrToCursor( xml, alias )
* Returns: Logical/Success
* Notes: will close/recreate alias if already open
*===============================================================
lparameter tcXml, tcMetaAlias
local curSel, liRows, cAddColumns, cStandardSet
if used( m.tcMetaAlias )
    use in (m.tcMetaAlias)
endif
curSel = select(0)
*-----------------------------
* Create initial empty cursor
*-----------------------------
create Cursor (m.tcMetaAlias) (;
        NAME m, ;
        TYPE c(1), ;
        SCRIPT m, ;
        EXECUTE m, ;
        EXECWHEN m, ;
        CLASS m, ;
        CLASSLIB m, ;
        DECLASS m, ;
        DECLASSLIB m )
if empty( m.tcXml ) ;
or upper(trim(m.tcXml))="<VFPDATA/>"
    *--------------------------------------------------
    * Done. Empty memberdata means cursor with no records
    *--------------------------------------------------
    select (m.curSel)
    return .T.
endif
local tmpAlias
tmpAlias     = 'T' + sys(2015)
    *----------------------------------------------
    * Get the metadata out of the XML and into a cursor
    *----------------------------------------------
    liRows = XMlToCursor( m.tcXml, m.tmpAlias )
catch to oErr
    *----------------------------------------------------
    * Inform of error and offer to reset to default:
    *----------------------------------------------------
   if not this.QuietMode
        if messagebox( oErr.Message + chr(13) + METADATA_XML_REPLACE_LOC,48+4,DEFAULT_MBOX_TITLE_LOC) = 6
            *----------------------------------------------------
            * XML is invalid. Replace with default and re-load:
            *----------------------------------------------------
            tcXml = DEFAULT_MEMBERDATA_XML
            liRows = XMlToCursor( m.tcXml, m.tmpAlias )
        else
            *----------------------------------------------------
            * Fall out the bottom and return .F.
            *----------------------------------------------------
            if used(m.tmpAlias)
                use in (m.tmpAlias)
            endif
        endif
    else
        if used(m.tmpAlias)
            use in (m.tmpAlias)
        endif
    endif
endtry
if used( m.tmpAlias )
    *----------------------------------------------
    * check for additional columns:
    *----------------------------------------------
    local cAddColumns, i
    cAddColumns  = ""
    select (m.tmpAlias)
    for m.i = 1 to fcount()
        if not ("|"+field(m.i)+"|" $ "|NAME|TYPE|SCRIPT|EXECUTE|EXECWHEN|CLASS|CLASSLIB|DECLASS|DECLASSLIB|")
            *----------------------------------------------
            * column is not part of the standard set.
            * Must add it to the metadata cursor:
            *----------------------------------------------
            m.cAddColumns = m.cAddColumns + " ADD COLUMN " + field(m.i) + " M"
        endif
    endfor
    if not empty( m.cAddColumns)
        *----------------------------------------------
        * Update metadata structure:
        *----------------------------------------------
        alter table (m.tcMetaAlias) &cAddColumns
    endif
    use in (m.tmpAlias)
    *----------------------------------------------
    * Extract into final cursor:
    *----------------------------------------------
    liRows = XMlToCursor( m.tcXml, m.tcMetaAlias, 8192 )
    select (m.curSel)
    return .T.
else
    if used(m.tcMetaAlias)
        use in (m.tcMetaAlias)
    endif
    select (m.curSel)
    return .F.
endif
ENDPROC
PROCEDURE cursortoxmlstr
*===============================================================
* CursorToXmlStr( alias )
* Returns: String
* Notes: Respects DELETED flag
*===============================================================
lparameter tcMetaAlias
local lcXml, liBytes
if not used( m.tcMetaAlias )
    return ""
endif
if reccount( m.tcMetaAlias ) = 0
    return ""
endif
lcXml   = ""
if set("DELETED")="OFF"
    set deleted on
    liBytes = CursorToXml(m.tcMetaAlias, "lcXml", 2 )
    set deleted off
    liBytes = CursorToXml(m.tcMetaAlias, "lcXml", 2 )
endif
*----------------------------------------------
* Strip out "<?xml ... ?>" header
*----------------------------------------------
if at("?>",m.lcXml) > 0
    lcXml = alltrim(substr(m.lcXml,at("?>",m.lcXml)+4))
endif
if m.liBytes = 0
    return ""
    return m.lcXml
endif
ENDPROC
PROCEDURE quietmode_assign
LPARAMETERS tvNewVal
IF VARTYPE(tvNewVal) = "L"
   THIS.quietmode = m.tvNewVal
ENDIF
ENDPROC
PROCEDURE generateevaluatecontentsscript
LPARAMETERS tcFRXAlias, tcMemberDataAlias, tiDataSession
LOCAL liDataSession
IF EMPTY(m.tiDataSession) OR (m.tiDataSession < 1)
   m.tiDataSession = SET("DATASESSION")
ENDIF
m.liDataSession = SET("DATASESSION")
SET DATASESSION TO (m.tiDataSession)
IF EMPTY(m.tcFRXAlias)
   m.tcFRXAlias = "FRX"
ENDIF
IF EMPTY(m.tcMemberDataAlias)
    m.tcMemberDataAlias = "memberdata"
ENDIF
IF NOT (USED(m.tcFRXAlias) AND USED(m.tcMemberDataAlias))
   SET DATASESSION TO (m.liDataSession)
   RETURN ""
ENDIF
LOCAL m.lcResult, m.liSelect, m.lcConditions, m.liColor, ;
      m.lcTextMergeDelims, m.lcTextMerge, m.llTextMerge, ;
      m.lcTextMergeShow, m.lcExpDelim1, m.lcExpDelim2
IF TYPE(m.tcMemberDataAlias + ".FRXRecno") = "N"
    m.lcConditions = "FRXRecno = " + TRANSFORM(RECNO(m.tcFRXAlias)) + " AND "
    m.lcConditions = ""
ENDIF
m.lcConditions = m.lcConditions + ;
                 "Type = '" + FRX_BLDR_MEMBERDATATYPE + "' AND " + ;
                 "Name = '" + FRX_BLDR_NAMESPACE_EVALUATECONTENTS  +"' "
m.liSelect = SELECT(0)
SELECT (m.tcMemberDataAlias)
LOCATE FOR &lcConditions.
IF EOF()
   m.lcConditions = ""
   m.lcTextMergeDelims = SET("TEXTMERGE",1)
   m.llTextMerge = (SET("TEXTMERGE") == "ON")
   m.lcTextMerge = SET("TEXTMERGE",2)
   m.lcTextMergeShow = SET("TEXTMERGE",3)
   SET TEXTMERGE DELIMITERS TO
   SET TEXTMERGE TO MEMVAR m.lcResult NOSHOW
   SET TEXTMERGE ON
   \LPARAMETERS m.toListener, m.tP1, m.tP2
   \ * <<FRXSCRIPTWRITER_GENERAL_LOC >>
   \ * <<FRXSCRIPTWRITER_EVALUATECONTENTS_LOC>>
   \ * FRXRECNO: <<RECNO("frx")>>, EXPR: <<FRX.Expr>>
   \
   \ * <<FRXSCRIPTWRITER_DYNAMICPARAMS1_LOC>>
   \ * <<FRXSCRIPTWRITER_DYNAMICPARAMS2_LOC>>
   \ * <<FRXSCRIPTWRITER_DYNAMICPARAMS3_LOC>>
   \ * <<FRXSCRIPTWRITER_DYNAMICPARAMS4_LOC>>
   \LOCAL m.nFRXRecno, m.oProps
   \m.nFRXRecno = m.tP1
   \m.oProps = m.tP2
   \m.oProps.Reload = .T.
   \TRY
   \   SET DATASESSION TO (m.toListener.CurrentDataSession)
   \   * <<FRXSCRIPTWRITER_CONDITIONRULES_LOC>>
   \   DO CASE
          SCAN ALL FOR &lcConditions.
   \   CASE <<IIF(EMPTY(ExecWhen), ".T.", ExecWhen)>> && <<FRXSCRIPTWRITER_USERLABEL_LOC>> <<Execute>>
          IF NOT EMPTY(Script)
             DO CASE
             CASE NOT ["] $ Script
                STORE ["] TO m.lcDelim1, m.lcDelim2
             CASE NOT ['] $ Script
                STORE ['] TO m.lcDelim1, m.lcDelim2
             OTHERWISE
                * may not work but we only have three delimiter choices!
                m.lcDelim1 = "["
                m.lcDelim2 = "]"
             ENDCASE
             \      * <<FRXSCRIPTWRITER_EVALRULES1_LOC>>
             \      * <<FRXSCRIPTWRITER_EXPRESSIONRULES_LOC>>
             \      IF TYPE(<<m.lcDelim1>><<Script>><<m.lcDelim2>>) # "U"
             \         m.oProps.Text = TRANSFORM(<<Script>>)
             \      ELSE
             \         * <<FRXSCRIPTWRITER_EVALRULES2_LOC>>
             \         SET DATASESSION TO (m.toListener.FRXDataSession)
             \         IF TYPE(<<m.lcDelim1>><<Script>><<m.lcDelim2>>) # "U"
             \            m.oProps.Text = TRANSFORM(<<Script>>)
             \         ENDIF
             \         SET DATASESSION TO (m.toListener.CurrentDataSession)
             \      ENDIF
          ENDIF
             \      * <<FRXSCRIPTWRITER_EVALRULES3_LOC>>
          IF NOT (EMPTY(PenRGB) OR VAL(PenRGB) = -1)
             m.liColor = VAL(PenRGB)
             \      m.oProps.PenRed = <<INT(MOD(m.liColor,256))>>
             \      m.oProps.PenGreen = <<MOD(INT(m.liColor/256),256)>>
             \      m.oProps.PenBlue = <<MOD(INT(m.liColor/(256*256)),256)>>
          ENDIF
          IF NOT (EMPTY(FillRGB) OR VAL(FillRGB) = -1)
             m.liColor = VAL(FillRGB)
             \      m.oProps.FillRed = <<INT(MOD(m.liColor,256))>>
             \      m.oProps.FillGreen = <<MOD(INT(m.liColor/256),256)>>
             \      m.oProps.FillBlue = <<MOD(INT(m.liColor/(256*256)),256)>>
          ENDIF
          IF NOT (EMPTY(PenA) OR VAL(PenA) = -1)
             \      m.oProps.PenAlpha = <<PenA>>
          ENDIF
          IF NOT (EMPTY(FillA) OR VAL(FillA) = -1)
             \      m.oProps.FillAlpha = <<FillA>>
          ENDIF
          IF NOT EMPTY(FName)
             \      m.oProps.FontName = "<<FName>>"
          ENDIF
          IF NOT EMPTY(FStyle)
             \      m.oProps.FontStyle = <<ABS(INT(VAL(FStyle)))>>
          ENDIF
          IF NOT (EMPTY(FSize) OR EMPTY(VAL(FSize)) OR VAL(FSize) = -1)
             \      m.oProps.FontSize = <<ABS(INT(VAL(FSize)))>>
          ENDIF
          ENDSCAN
   \   OTHERWISE  && <<FRXSCRIPTWRITER_DEFAULT_LOC>>
   \      m.oProps.Reload = .F.
   \   ENDCASE
   \CATCH WHEN .T.
   \   m.oProps.Reload = .F.
   \FINALLY
   \   SET DATASESSION TO (m.toListener.FRXDataSession)
   \ENDTRY
   SET TEXTMERGE OFF
   SET TEXTMERGE TO
   IF EMPTY(m.lcResult)
      m.lcConditions = ""
   ELSE
      m.lcConditions = m.lcResult && we must swap to a new variable before the reset
   ENDIF
   THIS.resetTextMerge(m.lcTextMergeDelims, ;
                       m.lcTextMerge, m.llTextMerge, ;
                       m.lcTextMergeShow)
ENDIF
SELECT (m.liSelect)
SET DATASESSION TO (m.liDataSession)
RETURN m.lcConditions
ENDPROC
PROCEDURE generateadjustobjectsizescript
LPARAMETERS tcFRXAlias, tcMemberDataAlias,tiDataSession
LOCAL liDataSession
IF EMPTY(m.tiDataSession) OR (m.tiDataSession < 1)
   m.tiDataSession = SET("DATASESSION")
ENDIF
m.liDataSession = SET("DATASESSION")
SET DATASESSION TO (m.tiDataSession)
IF EMPTY(m.tcFRXAlias)
   m.tcFRXAlias = "FRX"
ENDIF
IF EMPTY(m.tcMemberDataAlias)
    m.tcMemberDataAlias = "memberdata"
ENDIF
IF NOT (USED(m.tcFRXAlias) AND USED(m.tcMemberDataAlias))
   SET DATASESSION TO (m.liDataSession)
   RETURN ""
ENDIF
LOCAL m.lcResult, m.liSelect, m.lcConditions,  ;
      m.lcTextMergeDelims, m.lcTextMerge, m.llTextMerge, ;
      m.lcTextMergeShow
IF TYPE(m.tcMemberDataAlias + ".FRXRecno") = "N"
    m.lcConditions = "FRXRecno = " + TRANSFORM(RECNO(m.tcFRXAlias)) + " AND "
    m.lcConditions = ""
ENDIF
m.lcConditions = m.lcConditions + ;
                 "Type = '" + FRX_BLDR_MEMBERDATATYPE + "' AND " + ;
                 "Name = '" + FRX_BLDR_NAMESPACE_ADJUSTOBJECTSIZE  +"' "
m.liSelect = SELECT(0)
SELECT (m.tcMemberDataAlias)
LOCATE FOR &lcConditions.
IF EOF()
   m.lcConditions = ""
   m.lcTextMergeDelims = SET("TEXTMERGE",1)
   m.llTextMerge = (SET("TEXTMERGE") == "ON")
   m.lcTextMerge = SET("TEXTMERGE",2)
   m.lcTextMergeShow = SET("TEXTMERGE",3)
   SET TEXTMERGE DELIMITERS TO
   SET TEXTMERGE TO MEMVAR m.lcResult NOSHOW
   SET TEXTMERGE ON
   \LPARAMETERS m.toListener, m.tP1, m.tP2
   \ * <<FRXSCRIPTWRITER_GENERAL_LOC >>
   \ * <<FRXSCRIPTWRITER_ADJUSTOBJECTSIZE_LOC>>
   \ * FRXRECNO: <<RECNO("frx")>>, TYPE: <<FRX.ObjType>>
   \
   \ * <<FRXSCRIPTWRITER_DYNAMICPARAMS1_LOC>>
   \ * <<FRXSCRIPTWRITER_DYNAMICPARAMS2_LOC>>
   \ * <<FRXSCRIPTWRITER_DYNAMICPARAMS3_LOC>>
   \ * <<FRXSCRIPTWRITER_DYNAMICPARAMS4_LOC>>
   \LOCAL m.nFRXRecno, m.oProps
   \m.nFRXRecno = m.tP1
   \m.oProps = m.tP2
   \m.oProps.Reload = .T.
   \TRY
   \   SET DATASESSION TO (m.toListener.CurrentDataSession)
   \   * <<FRXSCRIPTWRITER_CONDITIONRULES_LOC>>
   \   LOCAL liTemp
   \   * <<FRXSCRIPTWRITER_ADJUSTOBJRULES1_LOC>>
   \   * <<FRXSCRIPTWRITER_ADJUSTOBJRULES2_LOC>>
   \   * <<FRXSCRIPTWRITER_ADJUSTOBJRULES3_LOC>>
   \   DO CASE
          SCAN ALL FOR &lcConditions.
   \   CASE <<IIF(EMPTY(ExecWhen), ".T.", ExecWhen)>> && <<FRXSCRIPTWRITER_USERLABEL_LOC>> <<Execute>>
             \      IF <<Width>> > -1 AND ;
             \         <<Width>> < FRX_RUNTIME_LAYOUT_DIMENSION_LIMIT
             \         m.oProps.Width = INT(<<Width>>)
             \      ENDIF
             \      IF <<Height>> > -1 AND ;
             \         <<Height>> < FRX_RUNTIME_LAYOUT_DIMENSION_LIMIT AND ;
             \         ((INT(<<Height>>) < m.oProps.MaxHeightAvailable) ;
             \          OR (NOT m.oProps.Reattempt))
             \         m.oProps.Height = INT(<<Height>>)
             \      ENDIF
        ENDSCAN
   \   OTHERWISE  && <<FRXSCRIPTWRITER_DEFAULT_LOC>>
   \      m.oProps.Reload = .F.
   \   ENDCASE
   \CATCH WHEN .T.
   \   m.oProps.Reload = .F.
   \FINALLY
   \   SET DATASESSION TO (m.toListener.FRXDataSession)
   \ENDTRY
   SET TEXTMERGE OFF
   SET TEXTMERGE TO
   IF EMPTY(m.lcResult)
      m.lcConditions = ""
   ELSE
      m.lcConditions = m.lcResult && we must swap to a new variable before the reset
   ENDIF
   THIS.resetTextMerge(m.lcTextMergeDelims, ;
                       m.lcTextMerge, m.llTextMerge, ;
                       m.lcTextMergeShow)
ENDIF
SELECT (m.liSelect)
SET DATASESSION TO (m.liDataSession)
RETURN m.lcConditions
ENDPROC
PROCEDURE resettextmerge
LPARAMETERS tcDelimiters, m.tcTextMerge, m.tlTextMerge,m.tcTextMergeShow
if m.tcDelimiters <> set("TEXTMERGE",1)
    *-----------------------------------
    * They're using custom delimiters:
    * Restore them
    *-----------------------------------
    local delimSize, leftDelim, rightDelim
    && it's either 1 or 2:
    m.delimSize = int(len(m.lcTextMergeDelims)/2)
    m.leftDelim  = left(  m.lcTextMergeDelims, m.delimSize )
    m.rightDelim = right( m.lcTextMergeDelims, m.delimSize )
    set textmerge delimiters to m.leftDelim, m.rightDelim
endif
if m.tlTextMerge
   set textmerge on &tcTextMergeShow.
   set textmerge off
endif
if not empty(m.tcTextMerge)
   set textmerge to &tcTextMerge. additive
endif
ENDPROC
PROCEDURE Init
*=======================================================
* Init()
*=======================================================
*---------------------------------
* Determine the screen DPI:
*---------------------------------
#define LOGPIXELSX 88
declare integer GetDeviceCaps in WIN32API integer HDC, integer item
declare integer GetDC         in WIN32API integer hWnd
declare integer ReleaseDC     in WIN32API integer hWnd, integer HDC
local hdc, screenDPI
hdc    = GetDC(0)
THIS.screenDPI = GetDeviceCaps( m.hdc, LOGPIXELSX )
ReleaseDC( 0, m.hdc )
*---------------------------------------------------
* Fixed for SP1:
* The ReportBuilder client will
* reset .ScreenDPI to 96 so that it is correct
* for design-time report designer use, even if
* at run-time the app is running on higher-res
* screens.
*---------------------------------------------------
*---------------------------------------------------
* No ui feedback if not appropriate (servers, etc):
*---------------------------------------------------
THIS.QuietMode = !inlist(_VFP.Startmode, 0, 4)
ENDPROC
~~~~~~
~~~~~~
kkmkjkjhh|zx|zx{zx{zx{zx{zx{zx{zx|zx|zxjhhkjkkkm
a`_ca`ba`b`_b`_b`_b`_b`_b`_b`_b`_ba`ca`a`_
{yw}{y}{y}{y}{y}{y}{y}{y}{y}{y}{y}{y}{y{yw
vtsywvywwyxwyxwyxwyxwyxwyxwyxwyxwyxwyxwywwywvvts
gednlkpnmpnmpnmpnmpnmpnmpnmpnmpnmpnmpnmpnmpnmpnmnlkged
~}ywv
}|yvu
jhhnlnTVWSTTSSTSSTSSTSSTSSTSSTSSTSSTSSTSSTSTTTVWnlnjhh
~~~||||||~
||||||~~~
&%#&%#&%#
&%#&%#&%#
&%#''%'&$
'&%'&%&%#
'&$)(%((%
('%*)'**'
+*(*)'('%
)(&-+),+)
,+),,))(&
**(/.+/.+
.-+.-++)(
,*(1/-1/.
1/-10-,+(
-+*42/320
410410-,*
.-+642642
642642.-+
0/,865865
9758740.-
1/-;97;97
;97;971/-
20/><9=;:
><:><:31/
421A><A><
A><A?<431
642DA?CA?
CA?DA?542
753FDBGDA
FDBFDB753
975IGDIGD
IFDIFD875
;86LIGLIGLIGLIGLIGLIGLIGLIGLIGLIGKIGLIGLIGKIGLIGLIGKIGLIGKIGLIGLIGKIGLIGLIGKIGLIG:86
<97OLJOKJOLIOLJOLJOLI>;9>;:=;:=;:>;9=;9>;:=;:=;9>;9=;:=;:>;9>;9>;:=;:NKIOLJOKINKJ<97
=:9QNLQOLRNLnlk`\Y`\Y
?=;QNLQNLQNLQNL=;9
>;:TPNTQNTQO`\YKGFKGF
0/-HDBHDB
B>=SQNTPNTQNTQO><;
@=;VSQVSQVSP`\YKGFVSQ
0/-HDBHDB
C@?VSQVSQVSQVSP@>;
A?=XUSXUSXUS`\YKGFXUS
0/-HDBHDB
EBAYUSXUSXUSXUS@?=
B?>[WU[WUZWU`\YKGF[WU
0/-HDBHDB
GDB[WU[WU[WUZVUB?>
CA?\YV\XW\YW`\YKGF]YV
0/-HDBHDB
IEC]YW\XW]YW\YWC@?
DA@^[X^ZY^ZX`\YKGF^ZY
0/-HDBHDB
IFE^[X^[X^[X^ZYDA@
EBA`[Y`\Y`[Z`\YKGF_\Z
0/-0/-0/-
JGF_[Z`[Z`\ZnlkEBA
nlknlk`\YKGFnlk
VTTnlknlk
FCAYUT
a][FCBFCAFCB`\YKGFFCB
744FCAFCBFCAYUTMJI
=y9DH9DHclo
uudrnY
|epmXdcQutd
khTwnajxk|
igSwla@S\ r
z_tsd
srbzkU
z_zkUqp_
srbbaOsrb
LANGUAGE
LOCALLANG
LASTUPDATE
CCODEPAGE
PRINT
MENUTOP
MENUPREV
MENUNEXT
MENULAST
MENUGOTO
MENUSHOWPA
MENUPRINT
MENUCLOSE
MENUTOOLB
ONEPGMENU
TWOPGMENU
FOURPGMENU
CBOZOOMWHO
CBOZOOMTTI
CBOZOOMPGW
CMDGOTOPGT
ONEPGTTIP
TWOPGTTIP
FOURPGTTIP
REPORTTITL
ERR_CREATI
ERROR
ERRNOPRINT
MENUPROOF
COPIES
SAVEREPORT
SAVEASIMAG
SAVEASPDF
SAVEASHTML
SAVEASRTF
SAVEASXLS
SAVEASTXT
SAVEPATH
SENDTOEMAI
CLOSEREPOR
PRINTREPOR
MINIATURES
GLOBALPREV
AVAILABLEP
GOTOPG_CAP
GOTOPG_OK
CANCEL
PRINTINGPR
PREFCAPTIO
PREFTAB
PREFBUTTON
PREFPGINTE
PREFALLPG
PREFCURRPG
PREFPAGES
MINILABEL
PAGECAPTIO
MINIFIRSTT
MINILASTTI
MININEXTTI
MINIPREVTI
SETUP
SETUPTITLE
GENERAL
CUSLANGUAG
TBARVISIBL
DOCKPOSITI
CANVASCNT
ZOOMLEVEL
WNDSTATE
MINIPERPG
VISIBLE
INVISIBLE
UNDOCKED
TBONTOP
TBONLEFT
TBONRIGHT
TBONBOTTOM
USERESOURC
NORMAL
MINIMIZED
MAXIMIZED
CONTROLS
OUTPUT
EMAIL
EMAILMODE
ATTACHTYPE
AUTOEMAIL
CDOSETUP
SMTPSERVER
LOGIN
PASSWORD
SMTPPORT
SENDER
USESSL
CUSTOMPROC
SENDEMAIL
SUBJECT
BUTTONSIZE
SMALL
FINDNEXT
FINDBACK
FINDTEXT
NOTFOUND
ERRSENDMAI
DESTNOTDEF
MSGNOTSENT
BADAUTHPRO
SMTPNOTSPE
INFOREQUIR
FROMEMPTY
SUBJEMPTY
BADCONFIG
ATACHNOTFO
LANGNOTFOU
REPNOTFOUN
SAVEAS
PRGENERAL
PRCONFIG
MAXSEARCH
PROGRESS
DEFAULT
WINPGBAR
QUIETMODE
INITSTATUS
PREPSTATUS
RUNSTATUS
SECONDS
CANCELQUER
CANCELINST
REPINCOMPL
ATTENTION
NOTUPDATE
ITALIC
UNDERLINE
FONTSIZE
FONTNAME
ATTACHMENT
ALIGNLEFT
ALIGNRIGHT
ALIGNCENTE
ALIGNJUSTI
INDENTINCR
INDENTREDU
HYPERLINK
ADDPICTURE
HORIZBAR
HTMLMODEL
RECEIPT
PRIORITY
PASTE
FILESUCCES
LISTBULLET
LISTNUMBER
CLEANFORMT
MSGSUCCESS
MSGSENDING
FONTCOLOR
BACKCOLOR
REMOVEFILE
HTMLFILE
HTMLDEFA
OPENVIEWER
PDFOPTIONS
EMBEDFONTS
CANPRINT
CANEDIT
CANCOPY
CANADDNOTE
ENCRYPTDOC
MASTERPWD
USERPWD
MASTANDUSR
PAGEMODE
NORMALVIEW
OUTLINPANE
THUMBSPANE
PDFAUTHOR
PDFTITLE
SYMBBARCOD
SYMBBARTIP
BADSMTP
CONTINUE
BADSETUP
RESETDEFA
SELECTRECI
SEARCHFLD
PDFASIMAGE
ATTACHFILE
SELECTALL
UNSELECTAL
INVERTSEL
REPPREVIEW
CLOSEBTN
PDFFONT
PLEASEWAIT
XML2XLS
RPTHEADER
RPTFOOTER
WKSEXT
HIDEPAGENO
XLALIGNLEF
SAVEASMHT
XLTOOBIG
XLCONV2XLS
PREPDATA
 ENGLISH        ENGLISH        201111281252Print                              First page                         Previous page                      Next page                          Last page                          Go to page                         Show pages                         Print report                       Close preview                      Toolbar                            1 page                             2 pages                            4 pages                            Whole page                         Zoom                               Page width                         Go to page                         One page                           Two pages                          Four pages                         Previewing report...               Failed creating the file! Please try again later.                               Error                              No Printers found.
 Please install a printer and try running the report again                      \<Miniatures...                    Copies                             Save report                        Save as image file...              Save as PDF                        Save as HTML                       Save as RTF                        Save as XLS                        Save as TXT / CSV / XL5            Output path                        Send report by e-mail                        Close report                       Print report                       Show miniatures                    Global preview                     Available printers                 Go to page                         Ok                                 Cancel                             Printing preferences               Customize printing                 General                            Preferences                        Page range                         All pages                          Current page                       Pages                              Pages from %FP% to %LP%            Page #                             First page set                     Last page set                      Next page set                      Previous page set                  Configurations           Report preview setup                              General        Language                 Toolbar visibility                 Dock position            Canvas count             Zoom level               Window state             Miniatures per page           Visible             Invisible           Undocked            Toolbar on TOP of the window                 Toolbar on LEFT of the window                Toolbar on RIGHT of the window               Toolbar on BOTTOM of the window              Use settings from resource file                   Normal         Minimized           Maximized           Controls       Output         Email          Email mode                    Attachment type               Automatically generate email file                 CDO email settings                 SMTP server              Login               Password            SMTP port           Sender              Security connection (SSL)          Custom procedure                   Send email                         Subject             To                  Body                Send                Size of buttons          Small (16x16 pixels)     Big (32x32 pixels)       Find                Find next                     Search backwards                             Find text:                                   String not found!                  Error sending email                          Destination not defined                      Message was not sent                         Invalid authentication protocol              SMTP server is not specified                 User name/password is required for basic authentication     From is empty                                Subject is empty                             Bad email configuration                      Attachment not found                    Could not locate the selected language  Could not locate the report source file      Save file as ...                   Global printer prompt options           Setup property sheet for current printerMax. pages to search                    Progress bar             Default                       Windows progress bar                    Quiet                         Initializing...          Running calculation prepass...          Creating output...       sec(s)    Stop report execution? (If you press 'No', report execution will continue.)               Press Esc to cancel...                  Report execution was cancelled. Your results are not complete.                                      Attention      Settings updated. The performed changes will be working on the next report preview session.         Italic         Bold           Underline      Font size                Font name           Attachments    Align left               Align right              Align center             Full justified           Increase indentationDecrease indentationHyperlink      Picture             Horizontal bar      HTML model for message   Ask for receipt                    Priority       Cut            Copy           Paste          File created successfully               Formatting bullets            Formatting numbers            Undo                Redo                New document             Clean formatting              Email was sent!               Sending message... Please wait...       Text color               Background color         Remove file attachment                  HTML file to be used as email body                          Make the saved file the default email body in the next sessions?                          Open using the default viewer           PDF options                   Embed fonts                        Allow printing                Allow edit                    Allow copy                    Allow add notes                    Encrypt document              Master password               User password                 'Master' and 'User' passwords for PDF must be different!              Page mode                     Normal view                   Show the outlines pane        Show the thumbnails pane      PDF author                    PDF title                     Symbol or bar codes fonts list                    Fonts list that can't be converted in PDF. Usually, bar codes and symbol fonts. Delimited with commas, eg. "Webdings,Biro"                                                Invalid SMTP email configuration!       Continue anyway?                        Setup inconsistency                     Default                       Select recipients                       Search field                  Render pages as images             Attach file              Select all               Unselect all             Invert selection         Report Preview           Close button             PDF default font         Please wait ...          Convert worksheet to 'Excel 97' format? (requires MS Excel or OpenOffice installed)                                               Repeat report page headers in worksheet                          Repeat report page footers in worksheet                          Worksheet file extension                 Ommits page number fields in worksheet                 Align character cells to the left                 Save as MHTML                      Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      PORTUGUESE     PORTUGUES      201111281252Imprimir                           In
cio                             P
g. Anterior                      P
g. Seguinte
ltima p
gina                      Ir para p
gina                     Mostrar p
ginas                    Imprimir                           Fechar                             Barra de Ferramentas               1 p
gina                           2 p
ginas                          4 p
ginas                          P
gina Inteira                     Zoom                               Largura da P
gina                  Ir para a p
gina                   Uma p
gina                         Duas p
ginas                       Quatro p
ginas                     Previsualizando relat
rio...       Falha na cria
o do arquivo !
Tente novamente.                                  Erro                               Impressora n
o encontrada.
Instale uma impressora e execute o relat
rio novamente.                  \<Miniaturas...                    C
pias                             Salvar relat
rio                   Salvar em arquivo de imagem...     Salvar em PDF                      Salvar em HTML                     Salvar em RTF                      Salvar em XLS                      Salvar em TXT / CSV / XL5          Pasta destino                      Enviar relat
rio por email                   Fechar relat
rio                   Imprimir                           Mostrar miniaturas                 Previsualiza
o geral              Impressoras dispon
veis            Ir para p
gina                     Ok                                 Cancelar                           Prefer
ncias de impress
o          Customizar impress
o               Geral                              Prefer
ncias                       Intervalo de p
ginas               Tudo                               P
gina atual                       P
ginas :                          Paginas de %FP% a %LP%             P
gina                             Grupo de p
ginas inicial
ltimo grupo de p
ginas            Pr
ximo grupo de p
ginas           Grupo de p
ginas anterior          Configura
es            Configura
o da previsualiza
o de relat
rios     Geral          Idioma                   Barra de ferramentas               Posi
o de dock          Quantidade de p
ginas    N
vel de zoom            Estado da janela         Miniaturas por p
gina         Vis
vel             Invis
vel           Undocked            Ferramentas no TOPO da janela                Ferramentas
 ESQUERDA da janela             Ferramentas
 DIREITA da janela              Ferramentas ABAIXO da janela                 Defini
es do arquivo de recursos                 Normal         Minimizado          Maximizado          Controles      Sa
da          Email          Tipo de email                 Tipo de anexo                 Gerar automaticamente anexo de email              Configura
es para envio de emails Servidor SMTP            Login               Senha               Porta SMTP          Identifica
o       Usar conex
o segura (SSL)          Modo personalizado                 Enviar email                       Assunto             Destinat
rio        Mensagem            Enviar              Tamanho dos bot
es       Pequeno (16x16 pixels)   Grande (32x32 pixels)    Localizar           Localizar pr
ximo             Procurar atr
s                               Encontrar texto:                             Texto n
o localizado!              Erro ao enviar email                         Destinat
rio n
o especificado                Mensagem n
o foi enviada                     Protocolo de autentica
o inv
lido           Servidor SMTP n
o especificado               Usu
rio/senha s
o necess
rios para autentica
sica      Remetente vazio                              Assunto vazio                                Configura
o de email inv
lida               Anexo n
o encontrado                    Linguagem solicitada n
o foi localizada O arquivo de relatorio n
o foi localizado    Salvar arquivo como ...            Op
es de impress
o gerais              Configurar impressora atual             Max. p
ginas a buscar                   Barra de progresso       Original (plana)              Barra de progressos do Windows          Silencioso                    Inicializando...         Executando c
lculos preliminares...     Criando relat
rio...     segs.     Interromper a execu
o do relat
rio? (Se selecionar 'N
o', o relat
rio continuar
.)       <ESC> Cancela...                        A gera
o do relat
rio foi cancelada. Seus resultados est
o incompletos.                            Aten
o        Configura
es salvas. As mudan
as entrar
o em vigor na pr
xima sess
o de relat
rio.                 It
lico        Negrito        Sublinhado     Tamanho da fonte         Nome da fonte       Anexos         Alinhar
 esquerda       Alinhar
 direita        Centralizar              Justificado              Aumentar recuo      Diminuir recuo      Hyperlink      Imagem              Barra horizontal    Modelo HTML para mensagemSolicitar confirma
o              Prioridade     Recortar       Copiar         Colar          Arquivo criado com sucesso              Lista com marcadores          Lista numerada                Desfazer            Refazer             Novo documento           Limpar formata
o             Mensagem foi enviada!         Enviando mensagem... Favor aguardar...  Cor do texto             Cor do fundo             Remover o arquivo anexo                 Arquivo HTML para ser usado como padr
o                     Marcar o arquivo salvo como texto padr
o para o corpo dos emails?                         Abrir com o visualizador padr
o         Op
es de PDF                 Inserir fontes no PDF              Permite imprimir              Permite alterar               Permite copiar                Permite adicionar anota
es        Criptografar documento        Senha mestre                  Senha do usu
rio              Senhas 'mestre' e do 'usu
rio' para o PDF devem ser diferentes!       Modo de p
gina                Visualiza
o normal           Show the outlines pane        Exibir painel de miniaturas   Autor do PDF                  T
tulo do PDF                 Fontes de s
mbolos or cod. barras                 Lista de fontes que n
o pode ser convertida normalmente. Em geral c
d de barras e desenhos. Usar virgula como separador, ex. "Webdings,Biro"                              Configura
o inv
lida do servidor SMTP  Continuar assim mesmo?                  Inconsist
ncia nas configura
es        Padr
o                        Selecione os contatos                   Buscar campo                  Gera p
ginas em formato imagem     Anexar arquivo           Selecionar todos         Descelecionar todos      Inverter sele
o         Previsualiza
o          Bot
o fechar             Fonte padr
o             Por favor aguarde ...    Converter planilha para o formato 'Excel 97' ? (requer MS Excel ou OpenOffice instalados)                                         Repetir cabe
alho de p
ginas do relat
rio na planilha            Repetir rodap
 de p
ginas do relat
rio na planilha               Extens
o do arquivo de planilha          Omite n
mero de p
gina nas planilhas                   Alinhar c
lulas
 esquerda                        Salvar em MHTML                    Relatorio
 muito grande para ser exportado para o formato Excel. Revise o documento criado pois ele esta incompleto!                                 Convertendo para o formato XLS                    Preparando dados                    SPANISH        ESPA
OL        201111281252Imprimir                           Inicio                             P
gina anterior                    P
gina siguiente
ltima p
gina                      Ir a p
gina                        Mostrar p
ginas                    Imprimir                           Cerrar                             Barra de herramientas              1 p
gina                           2 p
ginas                          4 p
ginas                          P
gina entera                      Zoom                               Ancho de p
gina                    Ir a p
gina                        Una p
gina                         Dos p
ginas                        Cuatro p
ginas                     Vista previa del informe...
No se pudo crear el archivo! Por favor int
ntelo nuevamente.                   Error                              No se encontraron impresoras. Instale una impresora e intente ejecutar de nuevo el informe.         \<Miniaturas...                    Copias                             Guardar informe                    Guardar como archivo de imagen...  Guardar como PDF                   Guardar como HTML                  Guardar como RTF                   Guardar como XLS                   Guardar como TXT / CSV / XL5       Carpeta destino                    Enviar informe por correo electr
nico        Cerrar informe                     Imprimir informe                   Mostrar miniaturas                 Vista previa global                Impresoras disponibles             Ir a p
gina                        Aceptar                            Cancelar                           Preferencias de impresi
n          Personalizar impresi
n             General                            Preferencias                       Rango de p
ginas                   Todas las p
ginas                  P
gina actual                      P
ginas:                           P
ginas de %FP% a %LP%             P
gina                             Primera p
gina del grupo
ltima p
gina del grupo            Grupo de p
ginas siguiente         Grupo de p
ginas anterior          Configuraciones          Configuraci
n de vista previa de informe          General        Idioma                   Barra de herramientas              Posici
n de acoplamiento Cantidad de p
ginas      Nivel de zoom            Estado de la ventana     Miniaturas por p
gina         Visible             Invisible           Desacoplado         Barra de herramientas al Tope de la ventana  Barra de herramientas a la Izq. de la ventanaBarra de herramientas a la Der. de la ventanaBarra de herramientas al Pie de la ventana   Usar definiciones del archivo de recursos         Normal         Minimizado          Maximizado          Controles      Salida         Correo         Tipo de correo                Tipo de adjunto               Generar autom
ticamente archivo de correo         Configuraci
n para env
o de correosServidor SMTP            Inicio de sesi
n    Contrase
a          Puerto SMTP         Remitente           Usar conexion segura (SSL)         Modo personalizado                 Enviar correo                      Asunto              Destinatario        Mensaje             Enviar              Tama
o de botones        Peque
o (16x16 pixels)   Grande (32x32 pixels)    Buscar              Buscar siguiente              Buscar hacia atr
s                           Buscar texto:
Texto no encontrado!              Error al enviar el correo                    Destinatario no especificado                 Mensaje no fue enviado                       Protocolo de autenticaci
n inv
lido          Servidor SMTP no especificado                Usuario/contrase
a son necesarios para autenticaci
sica Remitente est
 en blanco                     Asunto est
 en blanco                        Configuraci
n de correo inv
lida             Adjunto no encontrado                   Lenguaje seleccionado no encontrado     No se puede encontrar el archivo del informe Guardar archivo como...            Opciones generales de impresi
n         Configurar impresora actual             Max. p
ginas a buscar                   Barra de progreso        Predeterminado                Barra de progreso de Windows            Silencioso                    Inicializando...         Ejecutando c
lculos preliminares...     Creando informe...       segs.
Detener la ejecuci
n del informe? (Si selecciona 'No', el informe continuar
.)           Presione [Esc] para cancelar...         La ejecuci
n del informe fue cancelada. Sus resultados no est
n completos.                          Atenci
n       Configuraci
n actualizada. Los cambios realizados regir
n a partir de la pr
xima sesi
n de informe. Cursiva        Negrita        Subrayado      Tama
o de fuente         Nombre de fuente    Adjuntos       Alinear a la izquierda   Alinear a la derecha     Centrar                  Justificado              Aumentar sangr
a    Reducir sangr
a     Hiperv
nculo   Imagen              Barra horizontal    Modelo HTML para mensaje Solicitar confirmaci
n             Prioridad      Cortar         Copiar         Pegar          Archivo creado exitosamente.            Lista con vi
etas             Lista numerada                Deshacer            Rehacer             Nuevo documento          Limpiar formato
Correo enviado!              Enviando mensaje... Por favor espere... Color de fuente          Color de Relleno         Eliminar el archivo adjunto             Archivo HTML usado como cuerpo de correo                    Hacer que el archivo guardado sea el cuerpo de correo por defecto?                        Abrir el visor predeterminado           Opciones del PDF              Fuentes incrustadas                Permitir la impresi
n         Permitir la edici
n           Permitir copiar               Permitir agregar notas             Encriptar documento           Contrase
a maestra            Contrase
a de usuario         Las contrase
as maestras y de usuario del PDF deben ser diferentes!   Modo p
gina                   Modo vista                    Mostrar el panel  de contornosMostrar el panel de miniaturasAutor del PDF                 T
tulo del PDF                Lista de fuentes de s
mbolos                      Lista de fuentes que no se pueden convertir en PDF. Generalmente fuentes de s
mbolos o c
digos de barra. Delimitado por comas, Ej: "Webdings, Biro"                       Configuraci
n de SMTP de correo inv
Desea continuar?                       Inconsistencia de instalac
n            Predeterminado                Seleccionar los destinatarios           Campo de b
squeda             Representar p
ginas como im
gen    Archivo adjunto          Seleccionar todo         Seleccionar ninguno      Invertir selecci
n       Vista previa             Bot
n cerrar             Fuente b
sica            Por favor espere ...
Convertir hoja de trabajo a formato 'Excel 97'? (requiere MS Excel u OpenOffice instalado)                                       Repetir encabezado de p
gina en hoja de trabajo                  Repetir pie de p
gina en hoja de trabajo                         Extensi
n de hoja de trabajo             Omitir n
meros de p
gina en hoja de trabajo            Ajustar caracteres a la derecha                   Guardar como MHTML                 Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparando datos                    TURKISH        T
E         201111281254Yazd
r
lk sayfa
nceki sayfa                       Sonraki sayfa                      Son sayfa                          Sayfaya git                        Sayfalar
ster                   Raporu yazd
r
nizlemeyi kapat                   Ara
u                        Tek sayfa
ki sayfa                          D
rt sayfa                         T
m sayfa                          Yakla
                             Sayfa geni
i                    Sayfaya git                        Tek sayfa
ki sayfa                          D
rt sayfa                         Rapor
nizleme...                  Dosya Olu
turma Hatas
 ! Tekrar Deneyin..                                       Hata                               Yaz
 bulunamad
tfen bir yaz
kleyin ve raporu tekrar
 deneyin.                \<Minyat
rler...                   Kopya say
                       Raporu kaydet                      Resim dosyas
 olarak kaydet...     PDF Olarak Kaydet                  HTML Olarak Kaydet                 RTF Olarak Kaydet                  XLS Olarak Kaydet                  TXT / CSV / XL5 Olarak Kaydet      Kaydetme Dizini                    Raporu e-Posta ile g
nder                    Kapat                              Yazd
r                             Minyat
rleri G
ster                Genel
nizleme                     Kullan
r Yaz
lar           Sayfaya Git                        Tamam                              Vazge
                             Yazd
rma Se
enekleri               Yazd
zelle
tir              Genel                              Tercihler                          Sayfa Aral
                   T
m Sayfalar                       Bu Sayfa                           Sayfalar :                         Sayfa Aral
 ( %FP% - %LP% )   Sayfa
lk sayfa ayar
                    Son sayfa ayar
                    Sonraki sayfa ayar

nceki sayfa ayar
                 Ayarlar                  Rapor
nizleme Ayarlar
                           Genel          Dil                      Ara
u                        Ara
u Pozisyonu    Sayfa Say
             Yak
rma Derecesi   Pencere Konumu           Sayfa Ba
na Minyat
r Say
r             G
nmez            Sabit
stte                                        Solda                                        Sa
da                                        Altta                                        Ayarlar
 Dosyadan Al                              Normal         K
         B
         Kontroller
          e-Posta        e-Posta bi
imi                Dosya T
                    e-Posta dosyas
 otomatik olarak olu
tur         CDO E-posta Ayarlar
               SMTP Sunucu              Kullan

ifre               SMTP port           G
nderen            G
venli Ba
lanti (SSL)
zel Prosed
r                      E-posta G
nder                     Konu                Kime                Mesaj               G
nder              Buton Boyutu             K
k (16x16 pixels)     B
k (32x32 pixels)     Bul                 Sonrakini Bul
ncekini Bul                                 Aranan Metin:                                Bulunmad
!                         E-posta G
ndermede Hata!                     Hedef Belirtilmedi                           Message G
nderilemedi                        Ge
ersiz Do
rulama Protokolu                 SMTP sunucu belirtilmedi                     Kullan
ifre Do
rulama i
in gereklidir               Kimden Bo
!                                  Konu Bo
!                                    Hatal
 e-posta yap
                Eklenti Bulunamad
                      Se
ilen Dil Bulunamad
                  Rapor Kaynak Dosyas
 Bulunamad
              Farkl
 Kaydet ..                   Genel Yaz
 Dialog Se
enekleri         Se
ili Yaz
in Sayfa Ayar
          Maks.Arama Sayfas
                      ilerleme
u          Varsay
lan                    Windows ilerleme
u                 Sessiz                        Ba
yor...          Hesaplama Yap
yor...                  Rapor Haz
yor       Saniye
lem Durdurulsunmu? (Hay
larsan
lem devam edecek)                               Press Esc to cancel...                  Raporun
 Durduruldu. Rapor Tamamlanmad
.                                                   Dikkat         Ayarlar G
ncellendi. G
ncellenmi
 Ayarlar Sonraki
nizlemede Aktif Olacak.
talik         Kal
n          Alt
izgili    Boyut                    Yaz
 tipi           Eklentiler     Sola Yaslanm
           Sa
a Yaslanm
           Ortalanm
               Sayfaya Yaslanm
        Bo
u Artt
r      Bo
r       Link           Resim               Yat.Kayd
u Mesaj i
in HTML bi
imi   Al
 Raporu
ncelik        Kes            Kopyala        Yap
r       Dosya Ba
 ile Olu
turuldu            Madde
areti Bi
imlendir     Numara
areti Bi
imlendir    Geri Al
leri Al            Yeni D
man             Bi
imlemeyi Temizle           e-Posta G
nderildi!           e-Posta G
nderiliyor...Bekleyiniz..     Yaz
 Rengi               Arka Plan Rengi          Dosya Eklentisini
kart                Mesaj G
vdesi HTML olarak kullan
lacak                      Dosya Bundan Sonraki Oturumlar
in Kaydedilsinmi?                                        Varsay
lan G
leyiciyi A
           PDF Se
enekleri               G
 Fontlar                     Yazd
labilir                D
zenlenebilir                Kopyalanabilir                Not Eklenebilir                    D
ifrele              Ana
ifre                     Kullan
ifresi             Ana
ifre ve Kullan
ifreleri PDF i
in Farkl
 Olmal
r            Sayfa G
                Normal G
m
zet B
lmesini G
ster         K
lmede G
ster          PDF Yaratan                   PDF Ba
k                    Sembol yada bar code font listesi                 Font listesi PDF te d
lemez. Genellikle, bar code ve sembol fontlar
 virgul ile ayr
rn. "Webdings,Biro"                                                     Ge
ersiz SMTP email konfig
rasyonu      Devam Edilsinmi?                        Tutars
z Kurulum!                       Varsay
lan                    Al
                           Aranacak Alan Ad
             Sayfalar
 resim olarak d
r    Dosya ekle               Hepsini se
              Hi
birini se
me          Ters se
im               Rapor
nizleme           Kapatma D
mesi          PDF Varsay
lan Yaz
tipi  L
tfen Bekleyiniz....
ma sayfas
 'Excel 97' bi
imine d
? (MS Excel yada OpenOffice gerekir)                                           Rapor ba
ma sayfas
nda tekrarla                   Rapor alt ba
ma sayfas
nda tekrarla
ma sayfas
 dosya uzant
           Sayfa numaralar
ma sayfas
nda es ge
           H
creleri sola hizala                             MHTML Olarak Kaydet                Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      ITALIAN        ITALIANO       201102011252Stampa                             Prima pagina                       Precedente                         Successiva                         Iltima pagina                      Vai alla pagina                    Visualizza pagine                  Stampa                             Chiudi anteprima                   Barra strumenti                    Una pagina                         Due pagine                         Quattro pagine                     Tulla la pagina                    Zoom                               Larghezza pagina                   Vai a pagina                       Una pagina                         Due pagine                         Quattro pagine                     Anteprima stampa...                Errore nella creazione del file! Riprovare pi
 tardi.                           Errore                             Nessuna stampante trovata. Si prega di installare una stampante e provare a rieseguire il report    \<Miniature...                     Copie                              Salva stampa                       Salva come immagine...             Salva come PDF                     Salva come HTML                    Salva come RTF                     Salva come XLS                     Salva come TXT / CSV / XL5         Percorso di destinazione           Invia la stampa per e-mail                   Chiudi stampa                      Stampa                             Visualizza miniature               Anteprima globale                  Stampanti disponibili              Vai alla pagina                    Ok                                 Annullare                          Preferenze di stampa               Personalizza stampa                Generale                           Preferenze                         Pagine da stampare                 Tutte                              Pagina Corrente                    Pagine:                            Pagine da %FP% a %LP%              Pagina                             Prima pagina del gruppo            Ultima pagina del gruppo           Prossimo gruppo di pagine          Gruppo di pagine precedente        Configurazioni           Impostazioni anteprima di stampa                  Generale       Linguaggio               Visibilit
 barra strumenti         Posizione barra strumentiConteggio di pagine      Livello di zoom          Stato della finestra     Miniature per pagina          Visibile            Invisibile          Undocked            Barra strumenti SOPRA la finestra            Barra strumenti a SINISTRA della finestra    Barra strumenti a DESTRA della finestra      Barra strumenti SOTTO la finestra            Usare impostazioni dal file di risorse            Normale        Minimizzato         Massimizzato        Controlli      Output         Email          Tipo di email                 Tipo di allegato              Genera automaticamente fle di email               Impostazioni email CDO             Server SMTP              Login               Password            Porta SMTP          Mittente            Connessione di sicurezza (SSL)     Modalit
 personalizzata            Invio email                        Soggetto            A                   Corpo               Inviare             Formato del bottone      Piccolo (16x16 pixels)   Grande (32x32 pixels)    Trova               Trova il prossimo             Ricerca indietro                             Trova il testo                               Non trovato!                       Errore in invio email                        Destinazione non definita                    Il messaggio non
 stato inviato             Protocollo di autenticazione non valido      Server SMTP non specificato                  Lo username/password
 richiesto per autenticazione di base Da
 vuoto                                   Soggetto
 vuoto                             Configurazione email non valida              Allegato non trovato                    Linguaggio selezionato non trovato      Impossibile trovare il sorgente del report   Salva con nome...                  Opzioni generali di stampa              Impostare propriet
 stampante corrente  Pagine massime da cercare               Barra di avanzamento     Default                       Barra di avanzamento Windows            Silenzioso                    Inizializzazione...      Esecuzione calcoli preliminari...       Creazione output...      sec.      Interrompere esecuzione report? (Se si preme 'No' continuer
 esecuzione report)           Premi Esc per cancellare...             Esecuzione del report cancellata. Risultati incompleti.                                             Attenzione     Impostazioni aggiornate. I cambiamenti apportati entreranno in funzione con la prossima anteprima.  Corsivo        Grassetto      Sottolineato   Formato font             Nome del font       Allegati       Allineamento a sinistra  Allineamento a destra    Allinemento centrato     Giustificato             Aumento indentazioneDiminuire indentaz. Hyperlink      Immagine            Barra orizzontale   Modello HTML per messaggiRichiesta conferma                 Priorit
       Taglia         Copia          Incolla        File creato con successo                Lista puntata                 Lista numerata                Disfa               Rifai               Nuovo documento          Formattazione pulita          Email inviata                 Invio messaggio... Attendere...         Colore del testo         colore di sfondo         Rimuovere file allegato                 File HTML da usare come corpo email                         Rendere il file salvato il corpo email di default nella prossimasessione?                 Apri il visualizzatore di default       Opzioni PDF                   Inserire i font                    Consenti stampa               Consenti modifica             Consenti copia                Concenti aggiunta annotazioni      Crittografare documento       Password principale           Password utente               Password principale ed utente per i PDF devono essere diverse         Modalit
 pagina               Vista normale                 Mostra il pannello dei profiliMostra il pannello delle minieAutore del PDF                Titolo del PDF                Lista dei font dei simboli o dei codici a barre   Lista dei font che non possono essere convertiti in PDF. Di solito, codici a barre e font dei simboli. Delimitati da virgole, es. "Webdings,Biro"                         Configurazione SMTP non valida          Continuare comunque?                    Anomalia di configurazione              Default                       Selezionare destinatari                 Campo di ricerca              Visualizzare pagine come immagini  Allegare file            Seleziona tutto          Deseleziona tutto        Invertire selezione      Anteprima di stampa      Bottone chiudi           Font di default per PDF  Prego attendere...       Convertire foglio di lavoro in formato 'Excel 97' ? (richiede MS Excel o OpenOffice installati)                                   Ripetere intestazioni di pagina nel foglio di lavoro             Ripetere pi
 di pagina nel foglio di lavoro                      Estensione file di foglio di lavoro      Omette numeri di pagina nei fogli di lavoro            Allinea celle di caratteri a sinistra             Salva come MHTML                   Il report
 troppo grande per essere esportato in formato EXCEL. Controlla il documento creato perch
 incompleto!                                   Conversione al formato XLS                        Preparazione dati                   PERSIAN
          201102011256




















 ...
.

.                               \<



 ...
 PDF
 HTML
 RTF
 XLS
 TXT / CSV / XL5      Output path

















 %FP%
 %LP%
 #









 Dock




               Undocked














 CDO
 SMTP


 SMTP

 (SSL)                   Custom procedure






 (16x16
)
 (32x32
)       Find                Find next                     Search backwards                             Find text:                                   Not found!                         Error sending email                          Destination not defined                      Message was not sent                         Invalid authentication protocol              SMTP server is not specified                 User name/Password is required for basic authentication     From is empty                                Subject is empty                             Bad email configuration                      Attachment not Found                    Could not locate the selected language  Could not locate the Report source file      Save file as ...                   Global printer prompt options           Setup property sheet for current printerMax. pages to search                    Progress bar             Default                       Windows progress bar                    Quiet                         Initializing...          Running calculation prepass...          Creating output...       sec(s)    Stop report execution? (If you press 'No', report execution will continue.)               Press Esc to cancel...                  Report execution was cancelled. Your results are not complete.                                      Attention      Settings updated. The performed changes will be working on the next report preview session.         Italic         Bold           Underline      Font size                Font name           Attachments    Align left               Align right              Align center             Full justified           Increase indentationDecrease indentationHyperlink      Picture             Horizontal bar      HTML model for message   Ask for receipt                    Priority       Cut            Copy           Paste          File created successfully               Formatting bullets            Formatting numbers            Undo                Redo                New document             Clean formatting              Email was sent!               Sending Message... Please wait...       Text color               Background color         Remove file attachment                  HTML file to be used as email body                          Make the saved file the default email body in the next sessions?                          Open the default viewer                 PDF options                   Embed fonts                        Allow printing                Allow edit                    Allow copy                    Allow add notes                    Encrypt document              Master password               User password                 Master and User passwords for PDF must be different!                  Page mode                     Normal view                   Show the outlines pane        Show the thumbnails pane      PDF author                    PDF title                     Symbol or bar codes fonts list                    Fonts list that can't be converted in PDF. Usually, bar codes and symbol fonts. Delimited with commas, eg. "Webdings,Biro"                                                Invalid SMTP email configuration!       Continue anyway?                        Setup inconsistency                     Default                       Select recipients                       Search field                  Render pages as images             Attach file              Select all               Unselect all             Invert selection         Report Preview           Close button             PDF default font         Please wait ...          Convert worksheet to 'Excel 97' format? (requires MS Excel or OpenOffice installed)                                               Repeat report page headers in worksheet                          Repeat report page footers in worksheet                          Worksheet file extension                 Ommits page number fields in worksheet                 Align character cells to the left
 MHTML                Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      POLISH         POLSKA         201102011252Drukuj                             Pierwsza strona                    Poprzednia                         Nast
pna                           Ostatnia strona                    Id
 do strony                      Poka
 strony                       Drukuj raport                      Zamknij podgl
d                    Panel sterowania                   1 strona                           2 strony                           4 strony                           Ca
a strona                        Lupa                               Szeroko
 strony                   Id
 do strony                      Jedna strona                       Dwie strony                        Cztery strony                      Przeglad raportu...                B
d utworzenia pliku !
Prosz
buj ponownie.                                B
d                               Brak drukarek.
Zainstaluj drukark
 i spr
buj ponownie.                                              \<Miniatury...                     Kopie                              Zapisz raport                      Zapisz jako plik graficzny...      Zapisz jako PDF                    Zapisz jako HTML                   Zapisz jako RTF                    Zapisz jako XLS                    Zapisz jako TXT / CSV / XL5        Output path                        Wy
lij raport za pomoc
 e-mail               Zamknij raport                     Drukuj raport                      Poka
 miniatury                    Globalny podgl
d                   Dost
pne drukarki                  Id
 do strony                      TAK                                Cofnij                             Ustawienia drukarki                Dostosuj drukowanie                General                            Ustawienia                         Rozmiar strony                     Wszystkie strony                   Bie
aca strona                     Strony                             Strony od %FP% do %LP%             Strona #                           Pierwsza strona                    Ostatnia strona                    Next page set                      Previous page set                  Configurations           Report preview setup                              General        Language                 Toolbar visibility                 Dock position            Canvas count             Zoom level               Window state             Miniatures per page           Visible             Invisible           Undocked            Toolbar on TOP of the window                 Toolbar on LEFT of the window                Toolbar on RIGHT of the window               Toolbar on BOTTOM of the window              Use settings from resource file                   Normal         Minimized           Maximized           Controls       Output         Email          Email mode                    Attachment type               Automatically generate email file                 CDO Email settings                 SMTP server              Login               Password            SMTP port           Sender              Security connection (SSL)          Custom procedure                   Send email                         Subject             To                  Body                Send                Buttons size             Small (16x16 pixels)     Big (32x32 pixels)       Find                Find next                     Search backwards                             Find text:                                   Not found!                         Error sending email                          Destination not defined                      Message was not sent                         Invalid authentication protocol              SMTP server is not specified                 User name/Password is required for basic authentication     From is empty                                Subject is empty                             Bad email configuration                      Attachment not Found                    Could not locate the selected language  Could not locate the Report source file      Save file as ...                   Global printer prompt options           Setup property sheet for current printerMax. pages to search                    Progress bar             Default                       Windows progress bar                    Quiet                         Initializing...          Running calculation prepass...          Creating output...       sec(s)    Stop report execution? (If you press 'No', report execution will continue.)               Press Esc to cancel...                  Report execution was cancelled. Your results are not complete.                                      Attention      Settings updated. The performed changes will be working on the next report preview session.         Italic         Bold           Underline      Font size                Font name           Attachments    Align left               Align right              Align center             Full justified           Increase indentationDecrease indentationHyperlink      Picture             Horizontal bar      HTML model for message   Ask for receipt                    Priority       Cut            Copy           Paste          File created successfully               Formatting bullets            Formatting numbers            Undo                Redo                New document             Clean formatting              Email was sent!               Sending Message... Please wait...       Text color               Background color         Remove file attachment                  HTML file to be used as email body                          Make the saved file the default email body in the next sessions?                          Open the default viewer                 PDF options                   Embed fonts                        Allow printing                Allow edit                    Allow copy                    Allow add notes                    Encrypt document              Master password               User password                 Master and User passwords for PDF must be different!                  Page mode                     Normal view                   Show the outlines pane        Show the thumbnails pane      PDF author                    PDF title                     Symbol or bar codes fonts list                    Fonts list that can't be converted in PDF. Usually, bar codes and symbol fonts. Delimited with commas, eg. "Webdings,Biro"                                                Invalid SMTP email configuration!       Continue anyway?                        Setup inconsistency                     Default                       Select recipients                       Search field                  Render pages as images             Attach file              Select all               Unselect all             Invert selection         Report Preview           Close button             PDF default font         Please wait ...          Convert worksheet to 'Excel 97' format? (requires MS Excel or OpenOffice installed)                                               Repeat report page headers in worksheet                          Repeat report page footers in worksheet                          Worksheet file extension                 Ommits page number fields in worksheet                 Align character cells to the left                 Zapisz jako MHTML                  Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      INDONESIAN     INDONESIA      201111281252Cetak                              Halaman Pertama                    Sebelumnya                         Berikut                            Halaman terakhir                   Ke halaman                         Tampilkan halaman                  Cetak laporan                      Tutup laporan                      Toolbar                            Satu halaman                       Dua halaman                        Empat halaman                      Halaman penuh                      Zoom                               Lebar halaman                      Ke halaman                         Satu halaman                       Dua halaman                        Empat halaman                      Menampilkan laporan...             Gagal membuat berkas !
Silahkan mencoba sesaat lagi.                            Error                              Tidak ditemukan printer.
Silahkan instal printer and jalankan ulang laporan.                        \<Miniatur...                      Salinan                            Simpan Laporan                     Simpan sebagai gambar...           Simpan sebagai PDF                 Simpan sebagai HTML                Simpan sebagai RTF                 Simpan sebagai XLS                 Simpan sebagai TXT / CSV / XL5     Lokasi tujuan (path)               Kirim laporan lewat e-mail                   Tutup Laporan                      Cetak Laporan                      Tampilkan Miniatur                 Preview global                     Printer yang tersedia              Ke halaman                         Ok                                 Batalkan                           Preferensi Percetakan              Sesuaikan Percetakan               Umum                               Preferensi                         Jumlah halaman                     Semua halaman                      Halaman ini                        Halaman                            Halaman dari %FP% s/d %LP%         Halaman no.                        Set halaman pertama                Set halaman terakhir               Set halaman berikut                Set halaman sebelumnya             Konfigurasi              Setup preview laporan                             Umum           Bahasa                   Tampilan toolbar                   Posisi dock              Jumlah halaman di previewTingkat Zoom             Status Jendela           Miniatur per halaman          Tampilkan           Sembunyikan         Undocked            Toolbar di bagian ATAS jendela               Toolbar di bagian KIRI jendela               Toolbar di bagian KANAN jendela              Toolbar di bagian BAWAH jendela              Gunakan pengaturan dari berkas                    Normal         Minimized           Maximized           Controls       Output         Email          Jenis email                   Jenis lampiran                Ciptakan berkas email secara otomatis             Pengaturan pengiriman email        Server SMTP              Login               Password            Port SMTP           Pengirim            Gunakan koneksi aman (SSL)         Modus Custom                       Kirim email                        Judul Subjek        Kepada              Pesan               Kirim               Ukuran tombol            Kecil (16x16 pixels)     Besar (32x32 pixels)     Cari                Cari berikut                  Pencarian mundur                             Cari teks:                                   Tidak ditemukan!                   Error kirim email                            Tujuan tidak ditentukan                      Pesan tidak terkirim                         Protokol otentikasi tidak valid              SMTP server tidak ditentukan                 User name/Password diperlukan utk otentikasi dasar          From kosong                                  Subjek kosong                                Konfigurasi email salah                      Lampiran tidak ditemukan                Bahasa yang dipilih tidak ditemukan     Berkas sumber laporan tidak ditemukan        Simpan berkas sebagai...           Opsi-opsi global utk printer            Setup property sheet utk printer ini    Maks. halaman pencarian                 Progress bar             Default                       Windows progress bar                    Modus diam                    Initialisasi...          Menjalankan kalkulasi prepass...        Membuat output...        sec(s)    Hentikan eksekusi laporan? (Jika pilih 'No', eksekusi laporan dilanjutkan.)               Tekan Esc utk membatalkan...            Eksekusi laporan dibatalkan. Hasil Anda tidak lengkap.                                              Perhatian      Settings telah di-update. Perubahan akan berlaku di preview laporan yang akan datang.               Italic         Bold           Underline      Font size                Font name           Lampiran       Align left               Align right              Align center             Full justified           Besarkan indent     Kecilkan indent     Hyperlink      Gambar              Bar horisontal      Model HTML untuk pesan   Minta kwitansi                     Prioritas      Cut            Copy           Paste          Berkas berhasil dibuat                  Daftar dengan bullet          Daftar dengan nomor           Undo                Redo                Dokumen baru             Kembalikan format             Email telah dikirim!          Mengirim pesan... Silahkan menunggu     Warna teks               Warna latar belakang     Hapus berkas lampiran                   Berkas HTML utk digunakan sbg email body                    Jadikan berkas tersimpan sbg email body default pada sesi berikut?                        Buka viewer default                     Opsi-opsi PDF                 Gabungkan fonts                    Injinkan cetak                Injinkan sunting              Injinkan salin                Injinkan menambahkan catatan       Enkripsikan dokumen           Password Utama                Password pengguna             Password utama dan pengguna utk PDF harus berbeda!                    Modus halaman                 Tampilan biasa                Tampilkan outlines pane       Tampilkan thumbnails pane     Penulis PDF                   Judul PDF                     Daftar simbol atau font barcode                   Daftar font yg tak bisa dikonversi ke PDF. Pada umumnya font barcode dan symbol. Delimited with commas, cth. "Webdings,Biro"                                              Konfigurasi SMTP email tidak valid      Tetap dilanjutkan?                      Setup tidak konsisten                   Default                       Pelih para penerima                     Cari di field                 Render halaman sebagai gambar      Lampirkan berkas         Pilih semua              Unselect semua           Membalikkan seleksi      Preview laporan          Tombol tutup             Font default PDF         Silahkan menunggu...     Konversi worksheet ke format 'Excel 97'? (membutuhkan MS Excel atau OpenOffice)                                                   Ulangi page headers laporan di worksheet                         Ulangi page footers laporan di worksheet                         Ekstensi berkas worksheet                Mengabaikan field nomor halaman di worksheet           Sel karakter dijajar ke kiri                      Simpan sebagai MHTML               Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      GERMAN         DEUTSCH        201111281252Drucken                            Erste Seite                        Zur
ck                             Vor                                Letzte Seite                       Gehe zu Seite                      Anzahl Seiten                      Drucken                            Beenden                            Toolbar                            1 Seite                            2 Seiten                           4 Seiten                           Ganze Seite                        Anzeigegr
e                       Seitenbreite                       Gehe zu Seite                      1 Seite                            2 Seiten                           4 Seiten                           Vorschau f
r ...                   Datei konnte nicht erstellt werden. Bitte versuchen Sie es erneut.              Fehler                             Keine Drucker gefunden. Bitte installieren Sie einen Drucker und versuchen es dann erneut.          \<Miniaturansichten...             Kopien                             Speichern                          Speichern als Bild                 Speichern als PDF                  Speichern als HTML                 Speichern als RTF                  Speichern als XLS                  Speichern als TXT / CSV / XL5      Zielordner                         Als Email versenden                          Beenden                            Drucken                            Miniaturansichten anzeigen         Vorschau                           Verf
gbare Drucker                 Gehe zu Seite                      OK                                 Abbrechen                          Druckoptionen                      Drucken                            Allgemein                          Optionen                           Seitenbereich                      Alles                              Aktuelle Seite                     Seiten                             Seitenbereich ( %FP% - %LP% )      Seite #                            Erste Seitengruppe                 Letzte Seitengruppe                N
chste Seitengruppe               Vorherige Seitengruppe             Optionen                 Optionen                                          Allgemein      Sprache                  Toolbar-Sichtbarkeit               Toolbar-Position         Anzahl Vorschauseiten    Anzeigegr
e             Vorschaufenster          Miniaturen pro Seite          Sichtbar            Unsichtbar          Frei                Toolbar oben                                 Toolbar links                                Toolbar rechts                               Toolbar unten                                Einstellungen aus Ressourcendatei                 Normal         Minimiert           Maximiert           Steuerelemente Ausgabe        Email          Email-Modus                   Attachment-Typ                Email automatisch erstellen                       CDO Email-Einstellungen            SMTP Server              Benutzername        Passwort            SMTP Port           Absender            Sichere Verbindung (SSL)           Eigene Methode                     Email senden                       Betreff             An                  Text                Senden              Schaltfl
chengr
e       Klein (16x16 Pixel)      Gro
 (32x32 Pixel)       Suchen              Weiter Suchen                 R
rts Suchen                             Text Suchen                                  Nicht gefunden                     Fehler beim Senden                           Ziel nicht definiert                         Nachricht wurde nicht gesendet               Ung
ltiges Authentifizierungsprotokoll       SMTP Server nicht spezifiziert               Benutzername/Passwort erforderlich                          Absender ist leer                            Betreffzeile ist leer                        Ung
ltige Email-Konfiguration                Anhang nicht gefunden                   Ausgew
hlte Sprache nicht gefunden      Report-Datei nicht gefunden                  Datei Speichern als...             Allgemeine Druck-Optionen               Eigenschaften des aktuellen Druckers    Max. zu durchsuchende Seiten            Fortschrittsanzeige      Standard                      Windows Fortschrittsanzeige             Stiller Modus                 Initialisierung...       Seiten werden berechnet...              Ausgabe wird berechnet...Sek.      Erstellung abbrechen? (W
hlen Sie "Nein" um fortzusetzen)                                 Dr
cken Sie Esc um abzubrechen...       Reporterstellung abgebrochen. Resultat ist unvollst
ndig.                                           Vorsicht       Einstellungen wurden aktualisiert.
nderungen werden in der n
chsten Vorschau wirksam.              Kursiv         Fett           Unterstrichen  Schriftgr
e             Schriftname         Anh
nge        Linksb
ndig              Rechtsb
ndig             Zentriert                Blocksatz                Rand vergr
ern     Rand verkleinern    Link           Bild                Horizontales Band   Nachricht als HTML       Best
tigung anfordern              Priorit
t      Ausschneiden   Kopieren       Einf
gen       Datei wurde erfolgreich erstellt.       Aufz
hlungszeichen            Aufz
hlungsnummern            R
ngig          Wiederholen         Neues Dokument           Formatierung zur
cksetzen     Email wurde gesendet          Nachricht wird gesendet...              Schriftfarbe             Hintergrundfarbe         Dateianlage entfernen                   HTML Email-Vorlage                                          Soll die gespeicherte Datei ab der n
chsten Sitzung zur Standardvorlage werden?           Ansicht
ffnen                          PDF-Optionen                  Fonts einbetten                    Drucken zulassen              Editieren zulassen            Kopieren zulassen             Hinzuf
gen von Anmerkungen zulassenDokument verschl
sseln        Passwort Administrator        Passwort Benutzer             PDF-Passw
rter f
r Administrator und Benutzer m
ssen verschieden sein Seiten-Modus                  Standrdansicht                Entwurfsansicht               Miniaturansicht               PDF Autor/in                  PDF Titel                     Liste Symbol-/BarCode Fonts                       Zeichens
tze, die ins PDF-Format konvertiert werden k
nnen. Typischerweise BarCodes und Symbol-Fonts. Komma-separierte Liste, z.B.. "Webdings,Biro"                       Ung
ltige SMTP Email-Konfiguration!     Trotzdem fortfahren?                    Setup-Fehler                            Standard                      Auswahl Empf
nger                       Suchen in                     Seiten als Bilder generieren       Datei anh
ngen           Alles ausw
hlen          Auswahl aufheben         Auswahl umkehren         Druckvorschau            Schlie
en-Schaltfl
che   PDF Standardschriftart   Bitte warten Sie ...     Arbeitsblatt ins 'Excel 97' Format konvertieren? (erfordert MS Excel oder OpenOffice)                                             Reportseiten-
berschriften in Excel wiederholen                  Reportseiten-Fu
zeilen in Excel wiederholen                      Excel-Dateinamenerweiterung              Entfernt Seitenzahlfelder in Excel                     Zeichenformattierte Zellen linksb
ndig            Speichern als MHTML                Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      CZECH
          201111281250Tisk                               Prvn
 strana                       P
edchoz
                          Dal
                              Posledn
 strana                    Jdi na stranu...                   Zobrazit str
nky                   Tisknout                           Zav
hled                      N
stroje                           Zobrazit jednu str
nku             Zobrazit dv
nky               Zobrazit
i str
nky             Cel
nka                       Lupa                               Cel
ka                         Jdi na ...                         Zobrazit jednu str
nku             Zobrazit dv
nky               Zobrazit
i str
nky             N
hled tisku...                    Chyba p
i vytv
 souboru ! Zkuste to pros
m znovu.                           Chyba
rny!  Pros
m, nainstalujte tisk
rnu a zkuste to znovu.                                   \<N
hledy...                       Po
et kopi
                        Ulo
it jako...                     Ulo
it jako obr
zek...             Ulo
it jako PDF                    Ulo
it jako HTML                   Ulo
it jako RTF                    Ulo
it jako XLS                    Ulo
it jako TXT / CSV / XL5        Ulo
it do                          Odeslat sestavu e-mailem                     Zav
t                             Tisknout                           Zobrazit n
hledy                   N
hledy                            Dostupn
 tisk
rny                  Jdi na stranu...                   Ok                                 Storno                             P
edvolby tisku                    Nastaven
 tisku                    Obecn
                             P
edvolby                          Rozsah str
nek                     V
echny str
nky                    Aktu
 strana                    Str
nky:                           Strany od %FP% do %LP%             Strana                             Nastav prvn
 stranu                Nastav posledn
 stranu             Nastav dal
 stranu                Nastav p
edchoz
 stranu            Konfigurace              Konfigurace prohl
e                            Obecn
         Jazyk                    Zobrazit panel n
stroj
            Um
 panelu n
stroj
et zobrazen
ch stran  Zv
                 Pozice okna              Miniatur na stranu            Zobrazit            Skr
t               Voln
               Panel n
stroj
 naho
e                        Panel n
stroj
 vlevo                         Panel n
stroj
 vpravo                        Panel n
stroj
 dole                          Pou
t nastaven
 z resource souboru               Norm
       Minimalizovan
      Maximalizovan
      Prvky          V
stup         E-mail         Typ e-mailu                   Typ p
lohy                   Automaticky generovan
 e-mail                     CDO Email nastaven
                SMTP server              Jm
no               Heslo               SMTP port           Odes
latel          Zabezpe
ipojen
 (SSL)        Vlastn
 procedura                  Odeslat e-mail                     P
t             Komu                Zpr
va              Odeslat             Velikost tla
tek        Mal
 (16x16 pixels)      Velk
 (32x32 pixels)     Hledat              Hledat dal
                  Hledat p
edchoz
                             Hledat text:                                 Nenalezeno!                        Chyba p
i odes
 emailu                   C
l nen
 definov
n                           Zpr
va NEBYLA odesl
na                       Neplatn
 autentifika
 protokol             SMTP server nen
 nastaven                    Jm
no/Heslo je vy
no pro z
kladn
              Chyb
 odes
latel                             Chyb
 subjekt                                Chybn
 konfigurace emailu                    P
loha nenalezena                      Nelze nal
zt po
adovan
 jazyk           Nelze nal
zt zdrojov
 soubor reportu         Ulo
it jako...                     Obecn
 vlastnosti tisk
rny              Nastavit vlastnosti aktu
 tisk
rny   Maximum str
nek pro hled
             Pr
h                   V
                       Pr
h                                  Tich
d                     Inicializace...          Prob
 kalkulace                       Vytv
stupu        sec(s)    Zastavit tisk ?  (Pokud zvol
te NE, tisk bude pokra
ovat...)                              Stiskn
te ESC pro p
             Tisk byl p
en. V
sledky nejsou kompletn
.                                                       Upozorn
     Nastaven
eno. Zm
ny se projev
i dal
m tisku.                                            Naklon
      Tu
          Podtr
      Velikost p
sma           P
smo               P
lohy        Zarovnat vlevo           Zarovnat vpravo          Zarovnat doprost
ed      Do bloku                 Zv
it okraj       Zmen
it okraj       Odkaz          Obr
zek             Horizont
ta  HTML
ablona             Dotaz na p
jemce                  Priorita       Odst
ihnout    Kop
rovat      Vlo
it         Soubor byl
 vytvo
en             Form
ek           Form
sel             Zp
t                Vp
ed               Nov
 dokument            Vymazat form
           Email by odesl
n!             Zpr
va se odes
, strpen
 pros
m...    Barva textu              Barva pozad
             Odebrat p
lohu                         HTML soubor, kter
 bude pou
it jako t
lo emailu             Pou
t ulo
 soubor jako t
lo emailu pro p
 ?                                       Otev
 prohl
               PDF volby                     Vlo
 fonty                      Povolit tisk                  Povolit
pravy                Povolit kop
            Povolit pozn
mky                   Za
ifrovat dokument           Heslo administr
tora          Heslo u
ivatele               Administr
torsk
ivatelsk
 heslo se nesm
 shodovat!               M
d str
nky                   Normaln
 zobrazen
            Zobrazit obrysy               Zobrazit n
hledy              PDF Autor                     PDF titulek                   Seznam font
                                      Seznam font
, kter
 nemohou b
t vlo
eny do PDF. Obvykle
dy nebo symboly. Nap
. "Webdings,Biro".                                                                  Chybn
 SMTP konfigurace!                Pokra
ovat ?                            Chybn
 konfigurace                      V
                       Vybrat p
jemce                         Hledat                        Vykreslit str
nky jako obr
zky     P
ipojit soubor          Vybrat v
e               Zru
it ozna
          Invertovat v
r         N
hled tisku             Tla
tko zav
t          PDF v
smo
ekejte pros
m ...       Konvertovat list do form
tu 'Excel97'? (vy
aduje nainstalovan
 MS Excel nebo Open Office)                                         Opakovat z
nky v listu                                 Opakovat z
nky v listu                                  P
pona souboru                          Vynechat pole
slo str
nky v listu                    Zarovnat bu
ky doleva                             Ulo
it jako MHTML                  Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      ARABIC         ARABIC         201111281256























                                        \<




 PDF
 HTML
 RTF
 XLS
 TXT / CSV / XL5              Output path

















 %FP%
 %LP%





























 CDO
 SMTP


 SMTP

 (SSL)







 (16x16)
 (32x32)



:





 SMTP








....







...                 Running calculation prepass...
 ...
)
 Esc
 ...


.















 HTML












 ...




 HTML



 PDF













 PDF
 PDF

 PDF.
. "Webdings
 Biro"
 SMTP













 PDF
 ...
 "Excel 97"? (
 Excel or OpenIffice
)
 worksheet
 worksheet
 Worksheet
 worksheet

 MHTML                        Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      GREEK
       201110011253









                       1
                           2
                          4








...
...

.           \<
...


...
 PDF
 HTML
 RTF
 XLS
 TXT / CSV / XL5

 e-mail















 %FP%
 %LP%

























     Email


 Email
 CDO
 SMTP


 SMTP

 (SSL)

mail





 (16x16 pixels)
 (32x32 pixels



:
!
 email



 SMTP




 email


 ...




 Windows

...
...
...
...)
 Esc
...
.

.









 HTML








         Email
!
...



 HTML

;

 PDF







 PDF




 PDF
 PDF

 PDF.
. "Webdings,Biro"
 SMTP
;



                 Render pages as images             Attach file              Select all               Unselect all             Invert selection         Report Preview           Close button             PDF default font         Please wait ...          Convert worksheet to 'Excel 97' format? (requires MS Excel or OpenOffice installed)                                               Repeat report page headers in worksheet                          Repeat report page footers in worksheet                          Worksheet file extension                 Ommits page number fields in worksheet                 Align character cells to the left
 MHTML                Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      FRENCH         FRAN
AIS       201111281252Imprimer                           Premi
re page                      Pr
dente                         Suivante                           Derni
re page                      Aller
 la page                    Afficher les pages                 Imprimer le rapport                Fermer la pr
visualisation         Barre d'outils                     1 Page                             2 Pages                            4 Pages                            Page Enti
re                       Zoom                               Largeur de Page                    Aller
 la page                    Une page                           Deux pages                         Quatre pages                       Pr
visualisation du rapport        Impossible de cr
er le fichier ! S.V.P., veuillez r
essayer plus tard.          Erreur                             Aucune imprimante trouv
e. Veuillez installer une imprimante et r
essayer le rapport.               \<Miniatures...                    Copies                             Sauvegarder le rapport             Sauvegarder en fichier image...    Sauvegarder en PDF                 Sauvegarder en HTML                Sauvegarder en RTF                 Sauvegarder en XLS                 Sauvegarder en TXT / CSV / XL5     Chemin de sauvegarde               Envoyer le rapport par courriel              Fermer la pr
visualisation         Imprimer le Rapport                Afficher les Miniatures            Pr
visualisation Globale           Imprimantes Disponibles            Aller
 la page                    Ok                                 Annuler                            Param
tres d'impression            Personnalisation de l'impression   G
ral                            Pr
rences                        Plage de Pages                     Toutes les Pages                   Page en Cours                      Pages                              Pages %FP%
 %LP%                  Page #                             Premier groupe de pages            Dernier groupe de pages            Groupe de pages suivant            Groupe de pages pr
dent          Configurations           Configuration de l'aper
u avant impression        G
ral        Langage                  Visibilit
 de la Barre d'Outils    Position d'Accrochage    Nombre de rep
res        Niveau de Zoom           Etat de la fen
tre       Miniatures par page           Visible             Invisible           Flottant            Barre d'Outils en HAUT de la fen
tre         Barre d'Outils
 GAUCHE de la fen
tre        Barre d'Outils
 DROITE de la fen
tre        Barre d'Outils en BAS de la fen
tre          Utiliser les param
trages du fichier de ressourcesNormal         R
duit              Agrandi             Contr
les      Sortie         Courriel       Type de courriel              Type de Pi
ce Jointe          G
rer automatiquement le fichier de courriel    Configuration CDO                  Serveur SMTP             Utilisateur         Mot de Passe        Port SMTP           Exp
diteur          Connexion S
curis
e (SSL)          Proc
dure personnalis
e            Envoyer le Courriel                Objet
                   Texte               Envoyer             Taille des Boutons       Petit (16x16 pixels)     Grand (32x32 pixels)     Rechercher          Trouver le suivant            Trouver le pr
dent                         Chercher:                                    Texte non trouv
!                  Erreur lors de l'envoi du courriel           Le destinataire n'a pas
fini           Le message n'a pas
 envoy
                Protocole d'authentification invalide        Le serveur SMTP n'a pas
 identifi
        Nom/Mot de passe obligatoires pour autentification de base  Le formulaire est vide                       L'objet est vide                             La configuration du courriel est invalide    La pi
ce jointe n'a pas
 trouv
e     Le langage s
lectionn
 est introuvable  Le rapport source est introuvable            Enregistrer sous...                Options d'impression globales           Configuration de l'imprimante en cours  Nbre Maximum de pages
 chercher        Barre de progression     D
faut                        Barre de progression Windows            Silencieux                    Initialisation...        Calculs pr
paratoires en cours...       Cr
ation de la sortie... sec(s)    Voulez-vous interrompre l'ex
cution du rapport? (Si Non, l'ex
cution du rapport reprendra)Appuyez sur <
chap> pour annuler...     L'ex
cution du rapport a
 interrompue. Vos r
sultats sont incomplets.                            Attention      Configuration mise
 jour. Les changements effectu
s seront op
rationnels
 la prochaine session.   Italique       Gras           Soulign
       Taille de police         Police              Pi
ces jointes Align
 gauche          Align
 droite          Centr
                   Justifi
                 Augmenter la marge  Diminuer la marge   HyperLien      Image               Barre Horizontale   Message au format HTML   Accus
 de R
ception                Priorit
       Couper         Copier         Coller         Le fichier a
 avec succ
s       Liste de points               Liste num
e               Annuler             Refaire             Nouveau document         Supprimer le formattage       Le courriel a
 envoy
!     Envoie du courriel...  Un instant SVP...Couleur de la police     Couleur de fond          Supprimer fichier en pi
ce jointe       Fichier HTML qui sera utilis
 comme corps du message        Rendre le fichier enregistr
 le corps du message par d
faut dans les prochaines sessions? Ouvrir le visualiseur par d
faut        Options PDF                   Polices Incorpor
es                Autoriser l'Impression        Autoriser la Modification     Autoriser la Copie            Autoriser l'Ajout de Notes         Crypter le Document           Mot de Passe Principal        Mot de Passe Utilisateur      Les mots de passe Principal et Utilisateur doivent
tre diff
rents !  Mode de Page                  Vue Normale                   Affiche le plan               Affiche les vignettes         Auteur du PDF                 Titre du PDF                  Liste des polices de symboles ou codes-barre      Liste des polices ne pouvant pas
tre converties en PDF. En g
ral, les polices de code-barre et de symboles. s
s par une virgule, par exemple "Webdings,Biro"       Configuration mail SMTP incorrecte !    Continuer quand m
me ?                  Configuration incoh
rente               D
faut                        Choisir les destinataires               Champ de recherche            Afficher les pages comme des imagesJoindre le fichier       Tout s
lectionner        Tout d
selectionner      Inverser la s
lection    Aper
u du Rapport        Bouton fermer            Police par d
faut PDF    Veuillez patienter...    Voulez-vous convertir la feuille de calcul au format "Excel 97" ? Il faut que MS Excel ou Open Office soit install
.              R
ter les en-t
tes de page du rapport sur la feuille de calcul R
ter les pieds de page du rapport sur la feuille de calcul    Extension du fichier de feuille de calculOmettre le num
ro de page sur la feuille de calcul     Aligner
 gauche les cellules contenant du texte  Sauvegarder en MHTML               Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      SWAHILI        SWAHILI        201111281252Chapisha                           Ukurasa Wa Kwanza                  Ukurasa Uliopita                   Ukurasa Ufuatao                    Ukurasa Wa Mwisho                  Enda Kwa Ukurasa Wa                Onyesha Kurasa                     Chapisha Ripoti                    Funga Ripoti                       Ubao wa vifaa                      Ukurasa                            Kurasa 2                           Kurasa 3                           Ukurasa Mzima                      Vuta                               Upana Wa Ukurasa                   Enda ukurasa wa                    Ukurasa mmoja                      Kurasa mbili                       Kurasa Nne                         Kuitazama Repoti                   Haikuwezekana kuunda faili ! Tafadhali jaribu tena baadaye                      Hitilafu                           Kichapishi hakikupatikana. Tafadhali Tawazisha Kichapishi alafu jaribu tena kuitembeza ripoti       \<Kifano Cha ripoti                Mara ya kuregelea vichapo          Hifadhi ripoti                     Hifadhi kama taswira               Hifadhi kama PDF                   Hifadhi kama HTML                  Hifadhi kama RTF                   Hifadhi kama XLS                   Hifadhi kama TXT / CSV / XL5       Mahala pakuhifadhi                 Tuma ripoti kwa barua pepe                   Funga ripoti                       Chapisha ripoti                    Onyesha vifano vya ripoti          Onyesho kwa jumla                  Vichapishi viliomo                 Nenda kwa ukurasa wa               Sawa                               Batilisha                          Khiyari za uchapishi               Badilisha Namna ya Uchapishi       Kwa kawaida                        Khiyari                            Kurasa za kuchapisha               Kurasa zote                        Ukurasa huu pekeyake               Kurasa                             Kutoka Kurasa %FP% to %LP%         Ukurasa nambari                    Ukurasa wa kuanzia                 Ukurasa wa kumalizia               Ukurasa unao fuatia                Ukurasa uliotangulia               Matayarisho              Maandalizi ya kutazama ripoti                     Kwa kawaida    Lugha                    Kuonekana kwa ubao wa vifaa        Mahali pa ubao vifaa     Idadi ya canvas          Kiwango cha kuvuta       Hali ya ripoti           Vifano kwa kila ukurasa       Kuonekana           Kutoonekana         Ondosha Mahali ilipoUbao wa vifaa juu ya ripoti                  Ubao wa vifaa kushoto mwa ripoti             Ubao wa vifaa kulia mwa repoti               Ubao wa vifaa chini mwa ripoti               Tumia marekebisho yaliyo hifadhiiwa               Kawaida        Imeteremshwa        Imepanuliwa         Dhibiti        Kutoa          Barua pepe     Aina ya barua pepe            Aina ya vishikanishwa         Moja kwa moja toa faili ya barua pepe             Marekebisho ya barua pepe za CDO   Muhudumu wa SMPT         Jina                Alama za siri       Mapitio ya SMTP     Mtumaji barua pepe  Maunganishi ya siri (SSL)          Utaratibu ulio undwa               Tuma barua pepe                    Madhumuni           Kwa                 Mwili wa barua      Tuma                Ukubwa wa vifungo        Ndogo (16x16 pixels)     Kubwa  (32x32 pixels)    Tafuta              Tafuta nyengine               Tafuta Kuenda kureglea nyuma                 Tafuta nyengine                              Maandishi hayakupatikana           Hitilafu katika kutuma barua pepe            Mafikio ya barua pepe haya kuwekwa           Barua haikutumwa                             Sheria za kuhakikisha hazifai                Muhudumu wa SMTP hajulikani                  Jina / Maandishi ya siri ya hitajika kwa kuhakikisha        Kutoka Kwa hakujawekwa kitu                  Madhumuni ya barua hakujawekwa kitu          Matayarishi ya barua pepe ni mabaya          Viambatanishwa havikupatikana           Lugha ilochaguliwa haikuonekana         Faili la ripoti halikupatikana               Hifadhi faili kama...              Khiyari yakuchagua kichapishi           Tayarisha viungo va kichapishi hiki     Jumla ya kurasa kutafutia               Ubao wa maendeleo        Kwa Kawaida                   Ubao wa maendeleo wa Windows            Kimya                         Ya anzisha...            Yaendelea kuhisabu vitangulizi          Yatengeneza toleo...     Nukta     Simamisha Utengenezaji wa ripoti ?( Bonyeza 'No', Utengenezaji Utaendelea.)               Bonyeza  Alama Ya Esc ku batilisha....  Utengenezaji wa ripoti ulibatilishwa. Matokeo ya ripoti haya kukamilika                             Samahani       Mabadiliko yamehifadhiwa. Mabadiliko yaliyo fanywa yatafanya kazi wakati repoti ikitazamwa tena     Lalisha        Nene           Piga mstari    Ukubwa wa herufi         jina la herufi      Vishikanishwa  Vutia kushoto            Vutia kulia              Weka katikati            Sawasanisha kabisa       Panua uwachanishi   Punguza uwachanishi Kiunga mtandao Picha               Mlingoti wa upana   Aina ya barua ya HTML    Ungependa ku arifiwa               Umuhimu        Kata           Nakili         Paka           Imefaulu kutengeneza faili              Alama za kupanga barua        Namabri za kupanga barua      Kutofanya           Fanya tena          Ukurasa mpya             Safisha matayarisho           Baura pepe ishatumwa!         Yatuma barua... Tafadhali subiri...     Rangi ya herufi          Rangi ya nyuma           Ondosha faili ilioshikanishwa           Faili ya HTML kutumika kama mwili wa barua pepe             Fanya faili ilio hifadhiwa kuwa mwili wa barua pepe wakati ujao?                          Fungua kiangalilio cha kawaida          Hiyari za PDF                 Shikanisha herufi                  Kubali ichapishwe             Kubali ibadilishwe            Kubali inakilishwe            Kubali iongezwe maneno             Ifunge ripoti                 Neno la siri la mwanzo        Neno la siri la mtumiaji      Neno la siri la mtumiaji na la mwanzo kwa PDF lazima liwe tofauti     Mfumo wa kurasa               Tazama kwa kwaida             Onyesha upande wa matoleo     Onyesha upande wa vikarakasi  Mwandishi wa PDF              Kichwa cha PDF                Orodha ya herufi za bar code ama kuashiria        Orodha ya herufi ambazo haziwezi kubadilishwa kwenye PDF. Kawaida za [bar code] na herufi za kuashiria zilotenganishwa na alama ya kupumzika kwa mfano "Webdings,Biro"    Matayarishi ya barua ya SMTP hayafai    Endelea hata hivyo?                     Matayarishi yasio lingamana             Kawaida                       Chagua wapokezi                         Tefuta maeneo                 Toa ripoti kama picha              Shikanisha Faili         Chagua zote              Ondosha vilochaguliwa    Geuza chaguo             Matokeo ya repoti        Kifungo cha kufunga      Herufi za PDF kawaida    Subiri ...               Badilisha iwe mfumo wa [worksheet] ya 'Excel 97' ? Yahitajia  uwe na  [MS Excel] ama  [OpenOffice]                                Regelea kichwa cha repoti kwenye [worksheet]                     Regelea Fundo la repoti kwenye [worksheet]                       Kiendelezi cha jina la faili             Ondosha alama ya hesabu ya ukurasa kwenye worksheet    Panga herufi zianze kushoto                       Hifadhi kama MHTML                 Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      RUSSIAN
        201111281251









                1
                         2
                         4








...
.

.
...


...
 PDF
 HTML
 RTF
 XLS
 TXT / CSV / XL5

 e-mail
















 %FP%
 %LP%            C
 #
























          E-mail
 E-mail

 e-mail
 CDO                      SMTP-



 SMTP

 (SSL)

 e-mail





 (16x16



:
!
 e-mail


!            SMTP-




 e-mail



...




 Windows

...
...
...
.
.)
 Esc
...
.






    HTML-












       E-mail

...


                        HTML-

?

 PDF








 PDF
!




 PDF
 PDF

 PDF.
 "Webdings,Biro"
 SMTP!
?









 PDF
 ...
 'Excel 97'? (
 MS Excel
 OpenOffice)





 MHTML                Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      DUTCH          NEDERLANDS     201111281252Afdrukken                          1e pagina                          Vorige pagina                      Volgende pagina                    Laatste pagina                     Ga naar blz.                       Bladzijde overzicht                Afdrukmenu                         Sluiten                            Zwevend menu                       Een bladzijde                      Twee bladzijden                    Vier bladzijden                    Volledige bladzijde                Zoomvergroting                     Pagina breedte                     Ga naar pagina                     E
n bladzijde                      Twee pagina's                      Vier pagina's                      Afdrukvoorbeeld                    Fout bij het maken van bestand !
Svp nogmaals proberen..                       Fout                               Geen printer gevonden.
Svp rapport na her installatie van printer nogmaals afdrukken.              \<Miniaturen                       Kopi
n                             Rapport opslaan                    Afbeelding opslaan                 Opslaan als PDF bestand            Opslaan als HTML bestand           Opslaan als RTF bestand            Opslaan als XLS bestand            Opslaan als TXT /CSV/XL5 bestand   Opslaan van volledige map          Rapport per E-mail verzenden                 Rapport opslaan                    Rapport afdrukken                  Miniaturen                         Algemeen afdrukvoorbeeld           Beschikbare printers               Ga naar pagina                     OK                                 Afbreken                           Afdruk voorkeursinstellingen       Afdrukinstellingen                 Algemeen                           Voorkeursinstellingen              Pagina reeks                       Alle pagina's                      Huidige pagina                     Pagina's                           Pagina van %FP% tot%LP%            Pagina nummer                      Eerste pagina groep                Laatste pagina groep               Volgende pagina groep              Vorige pagina groep                Instellingen             Raport afdrukvoorbeeld                            Algemeen       Taal                     Zwevende werkbalk zichtbaar        Werkbalk positie         Aantal pagina's          Vergrotingsfaktor        Venster situatie         Aantal miniaturen per pagina  Zichtbaar           Onzichtbaar         Zwevend             Werkbalk bovenaan venster                    Werkbalk links op venster                    Werkbalk rechts op venster                   Werkbalk onderaan venster                    Instelling van resource overnemen                 Normaal        Geminimaliseerd     Gemaximaliseerd     Stuurelementen Resultaat      Email          Email mode                    Bijlage type                  Automatisch gegenereerde mail                     Instellingen van CDO Mail          SMTP Servernaam          Gebruikersnaam      Wachtwoord          SMPT poort          Afzender            Versleutelde verbinding (SSL)      Eigen procedure                    Email versturen                    Onderwerp           Aan                 Tekst               Versturen           Groote van knoppen       Klein (16x16 pixels)     Groot (32x32 pixels)     Zoeken              Zoek volgende                 Zoek vorige                                  Zoek tekst                                   Tekst niet gevonden                Fout bij het versturen van Email             Geadresseerde niet aangegeven                Bericht is niet verzonden                    Onjuiste authorisatie gegevens               SMTP server niet aangegeven                  Gebruikersnaam en/of wachtwoord ontbreekt                   Afzender ontbreekt                           Onderwerp ontbreekt                          Verkleerde Email instellingen                Bijlage niet gevonden                   Kan de aangegeven taal niet vinden      Kan de rapport gegevens niet vinden          Bestand opslaan als.....           Algemene printer instellingen           Instellingen van de actuele printer     Maximaal aantal pagina's te doorzoeken  Voortgangsindicator      Standaard                     Windows voortgangsindicator             Stil                          Initialisatie....        Aantal pagina's wordt berekend....      Uitvoer samenstellen.... Seconden  Raport samenstelling afbreken? (Indien Nee gekozen wordt  doorgegaan met samenstelling)   Druk op Esc om te annuleren...          Raportsamenstelling is afgebroken.  Het resultaat is niet volledig.                                 Let op         Instellingen zijn aangepast. Worden bij een volgend rapport toegepast.                              Schuin         Vet            Onderstreept   Lettergrootte            Lettertype naam     Bijlage's      Links uitgelijnd         Rechts uitgelijnd        Gecentreerd              Uitgevuld                Inspringing vergroteInspringing verkleinHyperlink      Afbeelding          Horizontale streep  HTML code opmaak voor hetOntvangstbevestiging               Spoed          Knippen        Kopie          Plakken        Bestand  opslaan, geslaagd              Opsommingstekens              Opsommings nummering          Teniet doen         Herhalen            Nieuw document           Alles verwijderen             Email is verzonden            Bericht wordt verzoden                  Letterkleur              Achtergrondskleur        Bijlage verwijderen                     HTML bestand sjablooon voor Email tekst                     Moet het opgeslagen bestand als Emailsjabloon voor een volgend bericht gebruikt worden?   Bekijk normaal                          PDF opties                    Opgenomen lettertypen              Afdrukken                     Wijzig                        Kopie                         Notities                           Document versleutelen         Hoofdwachtwoord               Gebruikers password           Hoofd- en gebruikerwachtwoord moeten verschilend zijn                 Bekijken per bladzijde        Normaal                       Laat geheel overzicht zien    Laat miniaturen zien          PDF auteur                    PDF titel                     Symbolen en barcode typen lijst                   Lettertypen niet in PDF geconverteerd kunnen worden. Lijst van lettertypen met komma's gescheiden                                                                         Incorrecte SMTP email configuratie!     Toch doorgaan?                          Instellingsfout                         Normaal                       Selecteer ontvangers                    Zoeken                        Sla bladzijden als plaatje op      Bijlage                  Selecteer alles          Deselecteer alles        Selectie omdraaien       Print op scherm          Asluitknop               PDF standaardlettertype  Even wachten....         In Excel97 bestandsformaat wijzigen? -  Alleen mogelijk indein Excel of OpenOfffice ge
nstalleerd is                              Rapportkop op de werkbladen herhalen                             Rapport voettekst op werkbladen herhalen                         Werkblad bestandsformaat                 Zonder paginanummer op werkbladen                      Tekens in de cel links uitlijnen                  Opslaan als MHTML bestand          Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      CHINESE
       20111001936





















!

                                                              \<



...
PDF
HTML
WORD
XLS
TXT/CSV/XL5


















%FP%
 %LP%
































                                  CDO
                        SMTP


                SMPT


(SSL)







(16x16 pixels)
 (32x32 pixels)




!












...




                          Windows


...
...
...
(s)
)
...

















                HTML














...





                          PDF









!




                        PDF


"Webdings,Biro"
!











                 PDF

...
'Excel 97'
MS Excel
OpenOffice)





MHTML
Excel
!

                          BULGARIAN
      201111281251









                1
                         2
                         4








...
.

.
..


...
 PDF
 HTML
 RTF
 XLS
 TXT / CSV / XL5

 e-mail





                  OK









 %FP%
 %LP%






















          Email
 Email

 Email
 CDO                   SMTP -


              SMTP


 (SSL)

 Email





 (16x16
)
 (32x32





 eMail


            SMTP-




 eMail


...




 Windwows

...
...
...
.
)
 ESC
...
.

.














  HTML-











         eMail-
!
...



 HTML
 eMail-
.
 eMail
?
            PDF









.



 PDF
 PDF

 PDF.
. "Webdings,Biro"
 SMTP!
?









       PDF
...
 'Excel 97' format? (
 MS Excel
 OpenOffice)

 footer-




 MHTML                  Report is too big to be exported to the Excel format. Revise the created document because it is incomplete!                                           Converting to XLS format                          Preparing data                      TCHINESE
       20120211950
L














e





!
~
I                                                              \<



...
PDF
HTML
WORD
XLS
TXT/CSV/XL5








w


L
W

m



q%FP%?
?%LP%?

X
m
m
m
m
m
m
W









}




m
`



X



                                  CDO
m                        SMTP

W
X                SMPT

H
(SSL)
{

D
H
e
e
o
p(16x16 pixels)
j(32x32 pixels)


h
e
!
~
q
e
w




m



...

m


{                          Windows

R
...
{...
X...
(s)
C)
...
C
N
C


u
p





R




                HTML




s
K



P



e
...



e
H
                          PDF


L

s
e
K
X
X
!




H                        PDF
D

"Webdings,Biro"
m!
H
P
{








s                 PDF

...
'Excel 97'
MS Excel
OpenOffice)


W


MHTML
Excel
!

                         BM6
~~~~~~
kkmkjkjhh|zx{zx{zx{zx
a`_ca`b`_b`_b`_b`_
{yw}{y}{y}{y}{y}{y}{y}{y@@
vtsywvywwyxwyxwyxwyxwyxwyxwyxw@
gednlkpnmpnmpnmpnmpnmpnmpnmpnmpnmpnmpnm
~}ywv
}|yvu
jhhnlnTVWSTTSSTSSTSSTSSTSSTSSTSSTSSTSSTSSTSTTTVWnlnjhh
~~~||||||~
||||||~~~
PROPERTY
CVALUE
NVALUE
LVALUE
_NullFlags
 cLanguage                ENGLISH
 lSaveToFile
 lSendToEmail
 lPrintVisible
 lShowCopies
 lShowMiniatures
 lPrinterPref
 lSaveAsImage
 lSaveAsHTML
 lSaveAsRTF
 lSaveAsXLS
 lSaveAsPDF
 lQuietMode
 nCanvasCount
 nZoomLevel
 nWindowState
 nDockType
 nMaxMiniatureDisplay                                                                                                                                                                                                                                                                   @
 nPDFPageMode
 nShowToolBar
 lEmailAuto
 cEmailType               PDF
 lShowPrinters
 lShowSetup
 nEmailMode
 cSMTPUserName
 cSMTPPassword
 nSMTPPort
 cSMTPServer
 lSMTPUseSSL
 cEmailTo
 cEmailSubject
 cEmailBody
 cEmailFrom
 nButtonSize
 lSaveAsTXT
 cOutputPath
 lShowSearch
 nPrinterPropType
 lDirectPrint
 nSearchPages
 nThermType
 cEmailBodyFile
 lPDFEmbedFonts
 lPDFCanPrint
 lPDFCanEdit
 lPDFCanCopy
 lPDFCanAddNotes
 lPDFEncryptDocument
 cPDFMasterPassword
 cPDFUserPassword
 lOpenViewer
 cPdfAuthor
 cPdfTitle
 cPdfSubject
 cPdfKeywords
 cPdfCreator
 lPDFShowErrors
 cPDFSymbolFontsList
 cSuccessor
 lPdfAsImage
 cAdressTable
 cAdressSearch
 lShowClose
 cPDFDefaultFont          Helvetica
 cExcelDefaultExtension   XLS
 lExcelConvertToXLS
 lExcelRepeatHeaders
 lExcelRepeatFooters
 lExcelHidePageNo
 lExcelAlignLeft
 lSaveAsMHT
 lPDFReplaceFonts
 cEmailPRG
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _2Z911D86M1022004034
 WINDOWS _2Z911D86N1080754507
 WINDOWS _2Z911D86O1080754507
 WINDOWS _2Z911D86P1080690114d
 WINDOWS _2Z911D86Q1042694858s
 WINDOWS _2Z911D86M1065027017Q
 WINDOWS _2Z911D86N1042694858%
 WINDOWS _2Z911D86M1065027017
 WINDOWS _2Z911D86N1048408615
 WINDOWS _2Z911D86M1065027017
 WINDOWS _2Z911D86N1042694858
 WINDOWS _2Z911D86M1065027017
 WINDOWS _2Z911D86N1042694858
 WINDOWS _2ZF013V231077036022
 WINDOWS _2ZF013V241042694858
 WINDOWS _31G005RBV1042694858h
 WINDOWS _31G005RBW1077037059T
 WINDOWS _31G005RBX1042694858
 WINDOWS _2Z911D86U1064960002
 WINDOWS _2Z911D86V1064960002
 WINDOWS _2Z911D86M1064960002
 WINDOWS _2Z911D86X1064960002
 WINDOWS _2Z911D86M1064960002
 WINDOWS _2Z911D86Z1065027017
 WINDOWS _2Z911D86M1064960002
 WINDOWS _2Z911D86N1064960002
 WINDOWS _30K0LFEHW1064960002
 WINDOWS _2Z911D86O1065027017
 WINDOWS _33S01D4M61064960002^
 WINDOWS _3DB0002G31064960002b
 WINDOWS _2Z911D86M1042694858Y
 WINDOWS _2Z911D86N1042694858b
 WINDOWS _2Z911D86O1042694858X
 WINDOWS _2Z911D86P1042694858]
 WINDOWS _2Z911D86Q1042694858l
 WINDOWS _2Z911D86M1042694858y
 WINDOWS _2Z911D86N1042694858}
 WINDOWS _2Z911D86M1076905386
 WINDOWS _2ZO1BW1D91042694858
 WINDOWS _2Z911D86M1042694858
 WINDOWS _2Z911D86N1076905386
 WINDOWS _31C1D0K7W1077050810j
 WINDOWS _31C1D0K7X1062583425
 WINDOWS _31I0RW5JO1077050787
 WINDOWS _31I0RW5JP1077050810
 WINDOWS _33Z1CPWON1062583425
 WINDOWS _2Z911D86M1042694858
 WINDOWS _2Z911D86M1042694858
 WINDOWS _2Z911D86M1042694858w
 WINDOWS _2Z911D8781042694858U
 WINDOWS _2Z911D86N1062583425D
 WINDOWS _2Z911D86N1062583425
 WINDOWS _2Z911D86N1062583425
 WINDOWS _2Z911D86M1042694858~
 WINDOWS _2Z911D86N1042694858]
 WINDOWS _2Z911D86M1042694858
 WINDOWS _2Z911D86M1065027017
 WINDOWS _2Z911D86N1042694858_
 WINDOWS _2ZJ1C5GMI1042694858@
 WINDOWS _2ZJ1C5GMJ1062583425
 WINDOWS _2ZJ1C5GMK1065027017
 WINDOWS _2ZJ1C5GML1042694858z
 WINDOWS _2ZJ1E3CRI1042694858j
 WINDOWS _33D04NIU41042694858w
 WINDOWS _33D04NIU51062583425U
 WINDOWS _33D04NIU61065027017
 WINDOWS _2Z911D86M1076905520
 WINDOWS _33S01D4MP1076905520
 WINDOWS _2Z911D86M1076905386
 WINDOWS _2Z911D86N1076905520
 WINDOWS _2Z911D86M1076905386
 WINDOWS _33S0QG5I81076905386'
 WINDOWS _33S0QG5I91076905386
 WINDOWS _33S0QG5IA1076905386
 WINDOWS _33S0QG5IB1076905386
 WINDOWS _33S0QG5IC1076905386
 WINDOWS _33S0QG5ID1076905386
 WINDOWS _33S0QG5IE1076905386w
 WINDOWS _33S0QG5IF1076905386+
 WINDOWS _2Z911D86M1076905520
 WINDOWS _2Z911D86N1076905386
 WINDOWS _2Z911D86M1076905520
 WINDOWS _2Z911D86N1076905386?
 WINDOWS _33Z1CPWOZ1077036022z
 WINDOWS _33Z1CPWP01076905386~
 WINDOWS _35N1AHVAG1076905520
 WINDOWS _3711E67NR1076905386
 WINDOWS _3711E67NS1076905520s
 WINDOWS _2Z911D86M1076905642
 WINDOWS _2Z911D86N1064960002f
 WINDOWS _2Z911D86M1062602843m
 WINDOWS _3CB1DSTEH1062583425R
 WINDOWS _2Z911D86M1022004034&
 WINDOWS _2Z911D86M1022004034&
 WINDOWS _3DC01NICH1065027017(
 WINDOWS _2Z911D86M1065027017
 WINDOWS _2Z911D86M1065027017s
 WINDOWS _2Z911D86M1063148833w
 WINDOWS _3CC00L4NW1065027017
 WINDOWS _2Z911D86M1063148833
 WINDOWS _3CC012S7Z1065027017
 WINDOWS _2Z911D86M1063148833
 WINDOWS _2Z911D86M1063148833!
 WINDOWS _3CK04Q1DQ1063148833n
 WINDOWS _2Z911D86M1065027017
 WINDOWS _2ZD1D1IP71065027017
 WINDOWS _2Z911D86M1062583425
 WINDOWS _32E04QKDC1065027017
 COMMENT RESERVED
VERSION =   3.00
dataenvironment
dataenvironment
Dataenvironment
YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
frmSettings
DataSession = 2
BorderStyle = 2
Height = 470
Width = 455
Desktop = .T.
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Report preview general configurations"
Closable = .F.
MaxButton = .F.
MinButton = .F.
WindowType = 1
AlwaysOnTop = .T.
AllowOutput = .F.
_memberdata =
     387<VFPData><memberdata name="updatecontrol" display="UpdateControl"/><memberdata name="updatetable" display="UpdateTable"/><memberdata name="validate" display="Validate"/><memberdata name="setlanguage" display="SetLanguage"/><memberdata name="getloc" display="GetLoc"/><memberdata name="inpreview" display="inPreview"/><memberdata name="enablecontrols" display="EnableControls"/></VFPData>
inpreview = .T.
Name = "frmSettings"
XPPROCEDURE updatecontrol
LPARAMETERS toObject as CheckBox, tcProperty, tnAdjust
LOCAL lcProp, lcType, luValue
LOCATE FOR UPPER(FP_Settings.Property) = UPPER(tcProperty)
IF EOF()
    WAIT WINDOW "Could not locate the property '" + tcProperty + "' in the configuration file." + ;
        CHR(13) + "The settings file will be updated." NOWAIT
    * Workaround to resize the settings table to have the Property field with C(22)
    IF LEN(FP_Settings.Property) < 25
        TRY
            WAIT WINDOW "Updating settings table" NOWAIT
            LOCAL lcFile0
            lcFile0 = (DBF("fp_Settings"))
            USE IN SELECT("FP_Settings")  && Close the file
            USE (lcFile0) IN 0 ALIAS fp_settings EXCLUSIVE
            ALTER TABLE FP_Settings ALTER COLUMN Property c(25)
            USE IN SELECT("FP_Settings")
            USE (lcFile0) IN 0 AGAIN ALIAS fp_settings
        CATCH
        ENDTRY
        IF NOT USED("FP_SETTINGS")
            LOCAL lcUserFile
            lcUserFile = IIF(EMPTY(_goHelper._SettingsFile), ;
                "FoxyPreviewer_Settings.dbf", ;
                _goHelper._SettingsFile)
            USE (lcUserFile) IN 0 AGAIN SHARED ALIAS FP_Settings
        ENDIF
        WAIT CLEAR
    ENDIF
    APPEND BLANK
    REPLACE FP_Settings.Property WITH tcProperty IN FP_Settings
    lcType  = UPPER(LEFT(tcProperty, 1))
    luValue = EVALUATE("_goHelper." + tcProperty)
    REPLACE (lcType + "Value") WITH luValue IN FP_Settings
ENDIF
lcProp = FP_Settings.Property
lcType = UPPER(LEFT(lcProp, 1))
luValue = EVALUATE("FP_Settings." + lcType + "Value")
IF NOT PEMSTATUS(toObject, "nAdjust", 5)
    toObject.AddProperty("nAdjust"   , 0)
    toObject.AddProperty("cProperty" , lcProp)
    toObject.AddProperty("nRec"      , RECNO())
ENDIF
IF EMPTY(tnAdjust)
    toObject.Value = luValue
ELSE
    toObject.nAdjust = tnAdjust
    toObject.Value = luValue + tnAdjust
ENDIF
IF _VFP.StartMode = 0 && Development
    toObject.ToolTipText = "Related property: '" + tcProperty + "'"
ENDIF
ENDPROC
PROCEDURE updatetable
LOCAL lnPg, loControl as ComboBox
LOCAL lcProp, lcType, luValue
FOR lnPg = 1 TO Thisform.PF.PageCount
    FOR EACH loControl IN Thisform.PF.Pages(lnPg).Controls
        * Locate our controls
        IF PEMSTATUS(loControl, "nAdjust", 5)
            * MESSAGEBOX(loControl.cProperty + CHR(13) + loControl.Name)
            lcProp = loControl.cProperty
            lcType = UPPER(LEFT(lcProp, 1))
            IF lcType = "C" AND PEMSTATUS(loControl, "cValue", 5)
                luValue = loControl.cValue
            ELSE
                luValue = loControl.Value
            ENDIF
            DO CASE
                CASE lcType = "L"
                    UPDATE FP_Settings ;
                        SET lValue = luValue ;
                        WHERE Property = lcProp
                CASE lcType = "C"
                    UPDATE FP_Settings ;
                        SET cValue = luValue ;
                        WHERE Property = lcProp
                CASE lcType = "N"
                    UPDATE FP_Settings ;
                        SET nValue = luValue - loControl.nAdjust;
                        WHERE Property = lcProp
                OTHERWISE
                    MESSAGEBOX("Missing: " + loControl.cProperty + CHR(13) + loControl.Name)
            ENDCASE
        ENDIF
    ENDFOR
ENDFOR
* Update the Encryption container
* Update separately the cLanguage property
IF VARTYPE(This.PF.PageGeneral) = "O"
    LOCAL lcLang
    lcLang = ALLTRIM(GETWORDNUM(Thisform.PF.PageGeneral.CmbLanguage.Value, 1, "/"))
    UPDATE FP_Settings ;
        SET cValue = lcLang;
        WHERE Property = "cLanguage"
ENDIF
* Update separately the cSMTPPassword property - by Nick Porfyris [20101014]
IF VARTYPE(This.PF.PageEmail) = "O"
    LOCAL lcPass
    lcPass = _goHelper.DoEncrypt(ALLTRIM(Thisform.PF.PageEmail.txtPassword.VALUE)) && Encrypt it!...
    UPDATE FP_Settings ;
        SET cValue = lcPass;
        WHERE Property = "cSMTPPassword"
ENDIF
FLUSH IN FP_Settings FORCE
RETURN
ENDPROC
PROCEDURE validate
IF VARTYPE(This.PF.PageEmail) = "O"
WITH This.PF.PageEmail
    IF INLIST(.CmbEmailType.Value, 2, 3) AND ; && "CDO"
            (EMPTY(.TxtSMTP.Value) OR ;
            EMPTY(.TxtLogin.Value) OR ;
            EMPTY(.TxtPassword.Value) OR ;
            EMPTY(.TxtPort.Value) OR ;
            EMPTY(.TxtFrom.Value))
*!*            IF MESSAGEBOX("Invalid SMTP email configuration!" + CHR(13) + ;
*!*                "Continue anyway?", 1 + 32, "Setup inconsistency") = 2 && 1=Ok 2=Cancel
*!*                RETURN .F.
*!*            ENDIF
        IF MESSAGEBOX(_goHelper.GetLoc("BADSMTP") + CHR(13) + ;
            _goHelper.GetLoc("CONTINUE"), 1 + 32, _goHelper.GetLoc("BADSETUP")) = 2 && 1=Ok 2=Cancel
            RETURN .F.
        ENDIF
    ENDIF
ENDWITH
ENDIF
IF VARTYPE(This.PF.PagePDF) = "O"
IF (This.PF.PagePDF.ChkEncrypt.Value = .T.) AND ;
    (This.PF.PagePDF.TxtMasterPwd.Value = This.PF.PagePDF.TxtUserPwd.Value)
    IF MESSAGEBOX(_goHelper.GetLoc("MASTANDUSR") + CHR(13) + ;
        _goHelper.GetLoc("CONTINUE"), 1 + 32, _goHelper.GetLoc("BADSETUP")) = 2 && 1=Ok 2=Cancel
        RETURN .F.
    ENDIF
ENDIF
ENDIF
IF VARTYPE(This.PF.PageGeneral) = "O"
LOCAL lnIndex
lnIndex = Thisform.PF.PageGeneral.CmbLanguage.ListIndex
    _goHelper.cLanguage = _goHelper._aLanguages(lnIndex)
CATCH
ENDTRY
ENDIF
RETURN .T.
ENDPROC
PROCEDURE setlanguage
LOCAL loExc as Exception
    WITH This
        LOCAL lcVersionText, lcPreviewVersion
        TRY
            lcVersionText = GetVfpVersion()
        CATCH
            lcVersionText = ""
        ENDTRY
        lcPreviewVersion = _goHelper._PreviewVersion
        .lblVersion.Caption = ALLTRIM(TRANSFORM(_goHelper.cVersion)) + CHR(13) + "(" + VERSION(4) + ") " + lcVersionText + "   PV " + lcPreviewVersion
        .CmdOk.Caption      = _goHelper.GetLoc("GOTOPG_OK")
        .CmdCancel.Caption  = _goHelper.GetLoc("CANCEL")
        .Caption            = _goHelper.GetLoc("SETUPTITLE")
    ENDWITH
    IF VARTYPE(This.PF.PageGeneral) = "O"
        WITH This.PF.PageGeneral
            .Caption                      = _goHelper.GetLoc("GENERAL")
            .lblZoom.Caption              = _goHelper.GetLoc("ZOOMLEVEL")
            .LblCanvasCnt.Caption         = _goHelper.GetLoc("CANVASCNT")
            .lblDockPosition.Caption      = _goHelper.GetLoc("DOCKPOSITI")
            .lblLanguage.Caption          = _goHelper.GetLoc("CUSLANGUAG")
            .lblToolbarvisibility.Caption = _goHelper.GetLoc("TBARVISIBL")
            .lblWndState.Caption          = _goHelper.GetLoc("WNDSTATE")
            .lblProgress.Caption          = _goHelper.GetLoc("PROGRESS")
            .chkQuiet.Caption             = _goHelper.GetLoc("QUIETMODE")
        ENDWITH
        WITH This.PF.PageGeneral.CmbProgress as ComboBox
            .ListItem(1) = _goHelper.GetLoc("DEFAULT")
            .ListItem(2) = _goHelper.GetLoc("WINPGBAR")
        ENDWITH
        WITH This.PF.PageGeneral.CmbTbrVisibility as ComboBox
            .ListItem(1) = _goHelper.GetLoc("VISIBLE")
            .ListItem(2) = _goHelper.GetLoc("INVISIBLE")
            .ListItem(3) = _goHelper.GetLoc("USERESOURC")
        ENDWITH
        WITH This.PF.PageGeneral.CmbDock as ComboBox
            .ListItem(1) = _goHelper.GetLoc("UNDOCKED")
            .ListItem(2) = _goHelper.GetLoc("TBONTOP")
            .ListItem(3) = _goHelper.GetLoc("TBONLEFT")
            .ListItem(4) = _goHelper.GetLoc("TBONRIGHT")
            .ListItem(5) = _goHelper.GetLoc("TBONBOTTOM")
            .ListItem(6) = _goHelper.GetLoc("USERESOURC")
        ENDWITH
        WITH This.PF.PageGeneral.CmbWndState as ComboBox
            .ListItem(1) = _goHelper.GetLoc("NORMAL")
            .ListItem(2) = _goHelper.GetLoc("MINIMIZED")
            .ListItem(3) = _goHelper.GetLoc("MAXIMIZED")
        ENDWITH
        WITH This.PF.PageGeneral.CmbCanvasCnt AS ComboBox
            .ListItem(1) = _goHelper.GetLoc("ONEPGMENU")
            .ListItem(2) = _goHelper.GetLoc("TWOPGMENU")
            .ListItem(3) = _goHelper.GetLoc("FOURPGMENU")
        ENDWITH
        WITH This.PF.PageGeneral.CmbZoom as ComboBox
            .ListItem(10) = _goHelper.GetLoc("CBOZOOMWHO")
            .ListItem(11) = _goHelper.GetLoc("CBOZOOMPGW")
        ENDWITH
    ENDIF
    IF VARTYPE(This.PF.PageControls) = "O"
        WITH This.PF.PageControls
            .Caption = _goHelper.GetLoc("CONTROLS")
            .lblBtnSize.Caption       = _goHelper.GetLoc("BUTTONSIZE")
            .CmbBtnSize.ListItem(1)   = _goHelper.GetLoc("SMALL")
            .CmbBtnSize.ListItem(2)   = _goHelper.GetLoc("BIG")
            .CmbPrPrefType.ListItem(1)= _goHelper.GetLoc("PRGENERAL")
            .CmbPrPrefType.ListItem(2)= _goHelper.GetLoc("PRCONFIG")
            .ChkAvailPrinters.Caption = _goHelper.GetLoc("AVAILABLEP")
            .ChkCopies.Caption        = _goHelper.GetLoc("COPIES")
            .ChkMiniatures.Caption    = _goHelper.GetLoc("MENUPROOF")
            .lblMiniatures.Caption    = _goHelper.GetLoc("MINIPERPG")
            .ChkPrintPref.Caption     = _goHelper.GetLoc("PRINTINGPR")
            .ChkSaveToFile.Caption    = _goHelper.GetLoc("SAVEREPORT")
            .ChkSendEmail.Caption     = _goHelper.GetLoc("SENDTOEMAI")
            .ChkSettings.Caption      = _goHelper.GetLoc("Setup")
            .ChkSearch.Caption        = _goHelper.GetLoc("FIND")
            .lblSearchPages.Caption   = _goHelper.GetLoc("MAXSEARCH")
        ENDWITH
    ENDIF
    IF VARTYPE(This.PF.PageOutput) = "O"
        WITH This.PF.PageOutput
            .Caption = _goHelper.GetLoc("OUTPUT")
            .ChkSaveHTML.Caption = _goHelper.GetLoc("SAVEASHTML")
            .ChkSaveMHT.Caption  = _goHelper.GetLoc("SAVEASMHT")
            .ChkSaveImg.Caption  = _goHelper.GetLoc("SAVEASIMAG")
            .ChkSavePDF.Caption  = _goHelper.GetLoc("SAVEASPDF")
            .ChkSaveRTF.Caption  = _goHelper.GetLoc("SAVEASRTF")
            .ChkSaveXLS.Caption  = _goHelper.GetLoc("SAVEASXLS")
            .ChkSaveTXT.Caption  = _goHelper.GetLoc("SAVEASTXT")
            .lblOutputPath.Caption = _goHelper.GetLoc("SAVEPATH")
            .ChkOpenViewer.Caption = _goHelper.GetLoc("OPENVIEWER")
        ENDWITH
    ENDIF
    IF VARTYPE(This.PF.PageEmail) = "O"
        WITH This.PF.PageEmail
            .Caption = _goHelper.GetLoc("EMAIL")
            .lblAttachmentType.Caption = _goHelper.GetLoc("ATTACHTYPE")
            .lblCDOsettings.Caption    = _goHelper.GetLoc("CDOSETUP")
            .lblEmailMode.Caption      = _goHelper.GetLoc("EMAILMODE")
            .lblLogin.Caption          = _goHelper.GetLoc("LOGIN")
            .lblPassword.Caption       = _goHelper.GetLoc("PASSWORD")
            .lblSender.Caption         = _goHelper.GetLoc("SENDER")
            .lblSMTPport.Caption       = _goHelper.GetLoc("SMTPPORT")
            .lblSMTPserver.Caption     = _goHelper.GetLoc("SMTPSERVER")
            .ChkAutoEmail.Caption      = _goHelper.GetLoc("AUTOEMAIL")
            .ChkUseSSL.Caption         = _goHelper.GetLoc("USESSL")
        ENDWITH
        WITH This.PF.PageEmail.CmbEmailType as ComboBox
            .ListItem(4) = _goHelper.GetLoc("CUSTOMPROC")
        ENDWITH
    ENDIF
    IF VARTYPE(This.PF.PagePDF) = "O"
        WITH This.PF.PagePDF
            * .Caption = _goHelper.GetLoc("PDFOPTIONS")
            .chkEmbedFonts.Caption    = _goHelper.GetLoc("EMBEDFONTS")
            .chkPDFasImage.Caption    = _goHelper.GetLoc("PDFASIMAGE")
            .lblPageMode.Caption      = _goHelper.GetLoc("PAGEMODE")
            .CmbPageMode.ListItem(1)  = _goHelper.GetLoc("NORMALVIEW")
            .CmbPageMode.ListItem(2)  = _goHelper.GetLoc("THUMBSPANE")
            *!*        .CmbPageMode.ListItem(2)  = _goHelper.GetLoc("OUTLINPANE")
            *!*        .CmbPageMode.ListItem(3)  = _goHelper.GetLoc("THUMBSPANE")
            .lblPDFauthor.Caption     = _goHelper.GetLoc("PDFAUTHOR")
            .lblPDFtitle.Caption      = _goHelper.GetLoc("PDFTITLE")
            .lblSymbol.Caption        = _goHelper.GetLoc("SYMBBARCOD")
            .lblSymbol.ToolTipText    = _goHelper.GetLoc("SYMBBARTIP")
            .txtPDFSymbolList.ToolTipText = _goHelper.GetLoc("SYMBBARTIP")
            .lblDefaultFont.Caption   = _goHelper.GetLoc("PDFFONT")
            .ChkEncrypt.Caption       = _goHelper.GetLoc("ENCRYPTDOC")
            .lblMasterPwd.Caption     = _goHelper.GetLoc("MASTERPWD")
            .lblUserPwd.Caption       = _goHelper.GetLoc("USERPWD")
            .ChkCanPrint.Caption      = _goHelper.GetLoc("CANPRINT")
            .ChkCanEdit.Caption       = _goHelper.GetLoc("CANEDIT")
            .ChkCanCopy.Caption       = _goHelper.GetLoc("CANCOPY")
            .ChkCanAddNotes.Caption   = _goHelper.GetLoc("CANADDNOTE")
        ENDWITH
    ENDIF
    IF VARTYPE(This.PF.PageXLS) = "O"
        WITH This.PF.PageXLS
            .lblExcelExtension.Caption   = _goHelper.GetLoc("WKSEXT")
            .chkConverttoPureXLS.Caption = _goHelper.GetLoc("XML2XLS")
            .chkRepeatHeaders.Caption    = _goHelper.GetLoc("RPTHEADER")
            .chkRepeatFooters.Caption    = _goHelper.GetLoc("RPTFOOTER")
            .chkHidePageNo.Caption       = _goHelper.GetLoc("HIDEPAGENO")
            .chkCellAlignLeft.Caption    = _goHelper.GetLoc("XLALIGNLEF")
        ENDWITH
    ENDIF
CATCH TO loExc
    *    SET STEP ON
ENDTRY
RETURN
ENDPROC
PROCEDURE getloc
LPARAMETERS tcString
RETURN TRIM(EVALUATE("_goHelper._oLang." + tcString))
ENDPROC
PROCEDURE enablecontrols
    IF VARTYPE(_Screen.oFoxyPreviewer) = "O" AND ;
            VARTYPE(_Screen.oFoxyPreviewer.oSettingsDlg) = "O"
        WITH _Screen.oFoxyPreviewer.oSettingsDlg
            && Enabling the Tabs
            This.PF.PageGeneral.Enabled  = .lEnableTabGeneral
            This.PF.PageControls.Enabled = .lEnableTabControls
            This.PF.PageOutput.Enabled   = .lEnableTabOutput
            This.PF.PageEmail.Enabled    = .lEnableTabEmail
            This.PF.PagePDF.Enabled      = .lEnableTabPDF
            This.PF.PageXLS.Enabled      = .lEnableTabXLS
            && Showing / hiding  and Enabling / disabling the controls or pages
            IF .lShowTabXLS
            ELSE
                This.PF.RemoveObject("PageXLS")
            ENDIF
            IF .lShowTabPDF
                This.PF.PagePDF.ChkEmbedFonts.Enabled    = .lEnableChkEmbedFonts
                This.PF.PagePDF.ChkPDFasImage.Enabled    = .lEnableChkPDFasImage
            ELSE
                This.PF.RemoveObject("PagePDF")
            ENDIF
            IF .lShowTabEmail
                This.PF.PageEmail.cmbEmailType.Enabled     = .lEnableCmbEmailType
                This.PF.PageEmail.CmbAttach.Enabled        = .lEnableCmbAttachmentType
            ELSE
                This.PF.RemoveObject("PageEmail")
            ENDIF
            IF .lShowTabOutput
                This.PF.PageOutput.chkSaveImg.Enabled       = .lEnableChkSaveAsImage
                This.PF.PageOutput.chkSavePDF.Enabled       = .lEnableChkSaveAsPDF
                This.PF.PageOutput.chkSaveRTF.Enabled       = .lEnableChkSaveAsRTF
                This.PF.PageOutput.ChkSaveHTML.Enabled      = .lEnableChkSaveAsHTML
                This.PF.PageOutput.ChkSaveMHT.Enabled       = .lEnableChkSaveAsMHT
                This.PF.PageOutput.chkSaveXLS.Enabled       = .lEnableChkSaveAsXLS
                This.PF.PageOutput.OptXLSType.Enabled       = .lEnableChkSaveAsXLS
                This.PF.PageOutput.ChkSaveTXT.Enabled       = .lEnableChkSaveAsTXT
                This.PF.PageOutput.ChkSaveTXT.Visible       = _goHelper.lExtended = .T.
            ELSE
                This.PF.RemoveObject("PageOutput")
            ENDIF
            IF .lShowTabControls
                This.PF.PageControls.ChkPrintPref.Enabled     = .lEnableChkPrintPref
                This.PF.PageControls.CmbPrPrefType.Enabled    = .lEnableCmbPrintPrefType
                This.PF.PageControls.ChkCopies.Enabled        = .lEnableChkCopies
                This.PF.PageControls.ChkSaveToFile.Enabled    = .lEnableChkSavetoFile
                This.PF.PageControls.ChkAvailPrinters.Enabled = .lEnableChkPrinters
                This.PF.PageControls.ChkSendEmail.Enabled     = .lEnableChkEmail
                This.PF.PageControls.ChkMiniatures.Enabled    = .lEnableChkMiniatures
                This.PF.PageControls.SpnMiniatures.Enabled    = .lEnableChkMiniatures
                This.PF.PageControls.ChkSearch.Enabled        = .lEnableChkSearch
                This.PF.PageControls.SpnSearchPages.Enabled   = .lEnableChkSearch
                This.PF.PageControls.ChkSettings.Enabled      = .lEnableChkSettings
            ELSE
                This.PF.RemoveObject("PageControls")
            ENDIF
            IF .lShowTabGeneral
                This.PF.PageGeneral.CmbLanguage.Visible = .lShowLanguage
                This.PF.PageGeneral.lblLanguage.Visible = .lShowLanguage
                This.PF.PageGeneral.CmbLanguage.Enabled = .lEnableLanguage
            ELSE
                This.PF.RemoveObject("PageGeneral")
            ENDIF
        ENDWITH
    ENDIF
CATCH TO loExc
*    SET STEP ON
ENDTRY
ENDPROC
PROCEDURE Load
SET TALK OFF
SET CONSOLE OFF
Thisform.AddProperty("nSelect", SELECT())
Thisform.AddProperty("nDataSession", SET("Datasession"))
ENDPROC
PROCEDURE Destroy
USE IN SELECT("FP_Settings")
IF This.inPreview = .F.
    RELEASE _goHelper
ENDIF
SET DATASESSION TO (Thisform.nDataSession)
SELECT(Thisform.nSelect)
ENDPROC
PROCEDURE Init
&& Remove the "About" page if running in EXE
IF _VFP.StartMode <> 0
    This.PF.PageCount = 6
ENDIF
IF VARTYPE(_goHelper) <> "O"
    * Get settings information
    RELEASE _goHelper
    PUBLIC  _goHelper
    _goHelper = NEWOBJECT("PreviewHelper", LOCFILE("FoxyPreviewer.Prg"))
    _goHelper.lExtended = .F.
    This.inPreview = .F.
ENDIF
    This.Icon = _goHelper.cFormIcon
CATCH
ENDTRY
LOCAL lcUserFile, llReturn, loEx as Exception
lcUserFile = IIF(EMPTY(_goHelper._SettingsFile), ;
    "FoxyPreviewer_Settings.dbf", ;
    _goHelper._SettingsFile)
    USE (lcUserFile) IN 0 AGAIN SHARED ALIAS FP_Settings
CATCH TO loEx
    MESSAGEBOX("Could not load the settings file." + CHR(13) + ;
        "Make sure to delete the file 'FoxyPreviewer_Settings.dbf'" + CHR(13) + ;
        "and run a report again using the previewer to generate the settings file", ;
        16, "Error loading settings")
    IF loEx.ErrorNo = 1 && File does not exist
    ENDIF
    llReturn = .T.
ENDTRY
IF llReturn
    SET DATASESSION TO (Thisform.nDataSession)
    SELECT(Thisform.nSelect)
    RETURN .F.
ENDIF
&& Show/Hide, Enable/Disable controls in simplified mode
Thisform.EnableControls()
SELECT FP_Settings
WITH This
    * .UpdateControl(.PF.PageGeneral.CmbLanguage, "cLanguage")
    IF VARTYPE(.PF.PageGeneral) = "O"
        IF VARTYPE(_goHelper) = "O"
            * .PF.PageGeneral.CmbLanguage.Value = _goHelper.cLanguage
            This.PF.PageGeneral.CmbLanguage.ListItemId = _goHelper._LangIndex
        ENDIF
        .UpdateControl(.PF.PageGeneral.CmbTbrVisibility, "nShowToolBar")
        && 1 = Visible (default), 2 = Invisible, 3 = Use resource
        .UpdateControl(.PF.PageGeneral.CmbDock, "nDockType", 2)
1 Undocks the toolbar or form.
        *      0 Positions the toolbar or form at the top of the main Visual FoxPro window.
        *     1 Positions the toolbar or form at the left side of the main Visual FoxPro window.
        *     2 Positions the toolbar or form at the right side of the main Visual FoxPro window.
        *     3 Positions the toolbar or form at the bottom of the main Visual FoxPro window.
        *     4 or .F. Mmeans to keep the current Dock settings from the resource
        .UpdateControl(.PF.PageGeneral.CmbCanvasCnt    , "nCanvasCount")
        .UpdateControl(.PF.PageGeneral.CmbZoom         , "nZoomLevel")
        .UpdateControl(.PF.PageGeneral.CmbWndState     , "nWindowState", 1)
        .UpdateControl(.PF.PageGeneral.ChkQuiet        , "lQuietMode")
        .UpdateControl(.PF.PageGeneral.CmbProgress     , "nThermType")
    ENDIF
    IF VARTYPE(.PF.PageControls) = "O"
        .UpdateControl(.PF.PageControls.CmbBtnSize      , "nButtonSize")
        .UpdateControl(.PF.PageControls.cmbPrPrefType   , "nPrinterPropType")
        .UpdateControl(.PF.PageControls.ChkAvailPrinters, "lShowPrinters")
        .UpdateControl(.PF.PageControls.ChkCopies       , "lShowCopies")
        .UpdateControl(.PF.PageControls.ChkPrintPref    , "lPrinterPref")
        .UpdateControl(.PF.PageControls.ChkSaveToFile   , "lSaveToFile")
        .UpdateControl(.PF.PageControls.ChkSettings     , "lShowSetup")
        .UpdateControl(.PF.PageControls.ChkMiniatures   , "lShowMiniatures")
        .UpdateControl(.PF.PageControls.SpnMiniatures   , "nMaxMiniatureDisplay")    && Number of miniature to display in the miniature form
        .UpdateControl(.PF.PageControls.ChkSendEmail    , "lSendToEmail")
        .UpdateControl(.PF.PageControls.ChkSearch       , "lShowSearch")
        .UpdateControl(.PF.PageControls.SpnSearchPages  , "nSearchPages")
    ENDIF
    IF VARTYPE(.PF.PageOutput) = "O"
        .UpdateControl(.PF.PageOutput.ChkSaveHTML     , "lSaveAsHTML")
        .UpdateControl(.PF.PageOutput.ChkSaveMHT      , "lSaveAsMHT")
        .UpdateControl(.PF.PageOutput.ChkSaveImg      , "lSaveAsImage")
        .UpdateControl(.PF.PageOutput.ChkSavePDF      , "lSaveAsPDF")
        .UpdateControl(.PF.PageOutput.ChkSaveRTF      , "lSaveAsRTF")
        .UpdateControl(.PF.PageOutput.ChkSaveXLS      , "lSaveAsXLS")
        .UpdateControl(.PF.PageOutput.ChkSaveTXT      , "lSaveAsTXT")
        .UpdateControl(.PF.PageOutput.TxtOutputPath   , "cOutputPath")
        .UpdateControl(.PF.PageOutput.ChkOpenViewer   , "lOpenViewer")
    ENDIF
    IF VARTYPE(.PF.PageEmail) = "O"
        .UpdateControl(.PF.PageEmail.CmbEmailType    , "nEmailMode")
        .UpdateControl(.PF.PageEmail.CmbAttach       , "cEmailType") && file type to be used in Emails (PDF, RTF, HTML or XLS)
        .UpdateControl(.PF.PageEmail.chkAutoEmail    , "lEmailAuto") && Auto generates output file
        .UpdateControl(.PF.PageEmail.TxtLogin        , "cSMTPUserName")
        .UpdateControl(.PF.PageEmail.TxtPassword     , "cSMTPPassword")
        .PF.PageEmail.TxtPassword.Value = _goHelper.DoDecrypt(.PF.PageEmail.TxtPassword.Value)  && Decrypt it!... by Nick Porfyris [20101014]...
        .UpdateControl(.PF.PageEmail.TxtPort         , "nSMTPPort")
        .UpdateControl(.PF.PageEmail.TxtSMTP         , "cSMTPServer")
        .UpdateControl(.PF.PageEmail.ChkUseSSL       , "lSMTPUseSSL")
        .UpdateControl(.PF.PageEmail.TxtFrom         , "cEmailFrom")
        .UpdateControl(.PF.PageEmail.TxtHTMLfile     , "cEmailBodyFile")
        * Disable the HTML output from the Email TAB if not at Extended mode
        WITH This.PF.PageEmail.CmbAttach as ComboBox
            IF NOT _goHelper.lExtended
                .ListItem(5) = "\HTML"
            ENDIF
        ENDWITH
    ENDIF
    IF VARTYPE(.PF.PagePDF) = "O"
        .UpdateControl(.PF.PagePDF.ChkEmbedFonts   , "lPDFEmbedFonts")
        .UpdateControl(.PF.PagePDF.ChkPDFasImage   , "lPDFasImage")
        .UpdateControl(.PF.PagePDF.ChkEncrypt      , "lPDFEncryptDocument")
        .UpdateControl(.PF.PagePDF.CmbPageMode     , "nPDFPageMode")
        .UpdateControl(.PF.PagePDF.ChkCanAddNotes  , "lPDFCanAddNotes")
        .UpdateControl(.PF.PagePDF.ChkCanCopy      , "lPDFCanCopy")
        .UpdateControl(.PF.PagePDF.ChkCanEdit      , "lPDFCanEdit")
        .UpdateControl(.PF.PagePDF.ChkCanPrint     , "lPDFCanPrint")
        .UpdateControl(.PF.PagePDF.TxtMasterPwd    , "cPDFMasterPassword")
        .UpdateControl(.PF.PagePDF.TxtUserPwd      , "cPDFUserPassword")
        .UpdateControl(.PF.PagePDF.TxtPDFAuthor    , "cPDFAuthor")
        .UpdateControl(.PF.PagePDF.TxtPDFtitle     , "cPDFtitle")
        .UpdateControl(.PF.PagePDF.TxtPDFSymbolList, "cPDFSymbolFontsList")
        .UpdateControl(.PF.PagePDF.CmbDefaultFont  , "cPDFDefaultFont")
    ENDIF
    IF VARTYPE(.PF.PageXLS) = "O"
        .UpdateControl(.PF.PageXLS.cmbExcelExtension  , "cExcelDefaultExtension")
        .UpdateControl(.PF.PageXLS.chkCOnverttoPureXLS, "lExcelConvertToXLS")
        .UpdateControl(.PF.PageXLS.chkRepeatHeaders   , "lExcelRepeatHeaders")
        .UpdateControl(.PF.PageXLS.chkRepeatFooters   , "lExcelRepeatFooters")
        .UpdateControl(.PF.PageXLS.chkHidePageNo      , "lExcelHidePageNo")
        .UpdateControl(.PF.PageXLS.chkCellAlignLeft   , "lExcelAlignLeft")
    ENDIF
    *!*        cPdfAuthor          = NULL
    *!*        cPdfTitle           = NULL
    *!*        cPdfSubject         = NULL
    *!*        cPdfKeyWords        = NULL
    *!*        cPdfCreator         = NULL
ENDWITH
This.SetLanguage()
RETURN
*!*        cEmailPRG  = ""
*!*        lPDFasImage     = .F.
*!*        nPDFPageMode = 0 &&0 = Normal view (default), 1 = Show outlines pane, 2 = Show thumbnails pane
*!*        lQuietMode      = .T.
*!*         cFormIcon = PR_FORMICON
ENDPROC
GetShortPathName
Win32API
Settings file:
Settings information
FoxyPreviewer settings table:
LCFILE
_GOHELPER
_SETTINGSFILE
LCLONGFILE
LCBUFFER
LNBUFFERSIZE
LNSHORTPATHLEN
LCSHORTPATH
GETSHORTPATHNAME
WIN32API
_SYS16
RightClick,
EXTENSIONHANDLER
LOEXHANDLER
_GOHELPER
_OEXHANDLER
PREVIEWFORM
TOOLBAR
TOOLBARISVISIBLE
CREATETOOLBAR
LOEXC
THISFORM
RELEASE
Click,
EXTENSIONHANDLER
THISFORM
VALIDATE
UPDATETABLE
LOEXHANDLER
_GOHELPER
_OEXHANDLER
PREVIEWFORM
TOOLBAR
UPDATESETTINGS
TOOLBARISVISIBLE
CREATETOOLBAR
LOEXC
RELEASE
Click,
http://foxypreviewer.codeplex.com/license
Hyperlink
LOHYPERLINK
LCLINK
NAVIGATETO
Click,
FoxyPreviewer settings table:
CAPTION
Click,
http://foxypreviewer.codeplex.com/releases
Hyperlink
LOHYPERLINK
LCLINK
NAVIGATETO
Click,
http://foxypreviewer.codeplex.com/documentation/
Hyperlink
LOHYPERLINK
LCLINK
NAVIGATETO
Click,
ADDITEM
Init,
Helvetica
Courier
Times-Roman
ADDITEM
Init,
Normal view
Thumbnails pane
ADDITEM
Init,
PARENT
ACTIVATE
InteractiveChange,
LCDIR
LCNEWDIR
PARENT
TXTHTMLFILE
VALUE
Click,
ADDITEM
Init,
CDO - HTML
CDO - TXT
Custom procedure
MAPI Alternative
ADDITEM
Init,
Global printer prompt options
Setup property sheet for current printer
ADDITEM
Init,
Small (16x16 pixels)
Big (32x32 pixels)
ADDITEM
Init,
SAVEPATH
LCDIR
LCNEWDIR
PARENT
TXTOUTPUTPATH
VALUE
_GOHELPER
GETLOC
Click,
VISIBLE
Init,
Default thermometer
Windows compatible thermometer
ADDITEM
Init,
Normal
Minimized
Maximized
ADDITEM
Init,
Whole Page
Page Width
ADDITEM
Init,
VALUE
1 Page
2 Pages
4 Pages
COLUMNCOUNT
BOUNDCOLUMN
COLUMNWIDTHS
COLUMNLINES
ADDITEM
NEWINDEX
ProgrammaticChange,
Initi
Visible on startup
Invisible
Show according to Resource
ADDITEM
Init,
Undocked
Toolbar on TOP of the window
Toolbar on LEFT of the window
Toolbar on RIGHT of the window
Toolbar on BOTTOM of the window
Use settings from the Resource
ADDITEM
Init,
cValue
ENGLISH
ARABIC
BULGARIAN
CHINESE
CZECH
DUTCH
FRENCH
GERMAN
GREEK
INDONESIAN
ITALIAN
PERSIAN
POLISH
PORTUGUES
RUSSIAN
SPANISH
SWAHILI
TCHINESE
TURKISH
ADDPROPERTY
_GOHELPER
LCLANG
LCLOCAL
LCITEM
_ALANGUAGES
COUNT
_ALANGLOCAL
ADDITEMX
CVALUE
VALUE
_GOHELPER
CLANGUAGE
THISFORM
SETLANGUAGE
Init,
InteractiveChangeL
LLENABLE
CHKENCRYPT
VALUE
CHKCANADDNOTES
ENABLED
CHKCANCOPY
CHKCANEDIT
CHKCANPRINT
TXTMASTERPWD
TXTUSERPWD
LBLMASTERPWD
LBLUSERPWD
GetShortPathName
Win32API
__ReadMe.txt
LCFILE
_GOHELPER
_SETTINGSFILE
LCLONGFILE
LCBUFFER
LNBUFFERSIZE
LNSHORTPATHLEN
LCSHORTPATH
GETSHORTPATHNAME
WIN32API
LCINFO
LCSETTINGSFILE
_SYS16
EDTCURSETTINGS
VALUE
EDTSOURCE
EDTREADME
VISIBLE
PagePDF.Activate,
PageAbout.Activate{
!Arial, 0, 9, 5, 15, 12, 32, 3, 0
\PROCEDURE RightClick
LOCAL lcFile
lcFile = _goHelper._SettingsFile
IF LEN(lcFile) > 150
    * GetShortPathName
    LOCAL lcLongFile, lcBuffer, lnBufferSize, lnShortPathLen, lcShortPath
    lcLongFile = lcFile
    DECLARE INTEGER GetShortPathName IN Win32API ;
        STRING  @cLongPath, ;
        STRING  @cShortPathBuff, ;
        INTEGER nBuffSize
    lcBuffer = SPACE(511)
    * should this be set to the maximum length allowed for a long path name?
    lnBufferSize = 511
    lnShortPathLen = GetShortPathName(lcLongFile, @lcBuffer, @lnBufferSize)
    lcShortPath = LEFT(lcBuffer, lnShortPathLen)
    IF NOT EMPTY(lcShortPath)
        lcFile = lcShortPath
    ENDIF
ENDIF
MESSAGEBOX(;
        _goHelper._Sys16 + CHR(13) + ;
        "Settings file: " + lcFile, 64, "Settings information")
_ClipText = lcFile
BROWSE NORMAL TITLE "FoxyPreviewer settings table: " + lcFile
ENDPROC
Top = 456
Left = -2
Height = 13
Width = 18
Caption = "Command1"
Style = 1
TabIndex = 5
Alignment = 2
Name = "Command1"
frmSettings
Command1
commandbutton
commandbutton
AutoSize = .F.
FontSize = 8
WordWrap = .F.
Caption = "Version"
Height = 29
Left = 12
Top = 427
Width = 247
TabIndex = 4
ForeColor = 0,128,192
Name = "lblVersion"
frmSettings
lblVersion
label
label
^PROCEDURE Click
LOCAL loExHandler
loExHandler = _goHelper._oExHandler
TRY
    WITH loExHandler as ExtensionHandler
        IF VARTYPE(.previewForm.ToolBar) <> "O"
            .PreviewForm.ToolBar = NULL
            * _goHelper.UpdateSettings()
            .PreviewForm.ToolbarIsVisible = .F.
            .PreviewForm.CreateToolbar()
            .Show()
        ENDIF
    ENDWITH
CATCH TO loExc
    * LOCAL loExc AS EXCEPTION
    * MESSAGEBOX("Error :" + CHR(13) + ;
                TRANSFORM(loExc.ERRORNO) + " - " + loExc.MESSAGE + CHR(13) + ;
                "Line: " + TRANSFORM(loExc.LINENO) + " - " + loExc.LINECONTENTS)
ENDTRY
Thisform.Release()
RETURN
ENDPROC
tTop = 433
Left = 355
Height = 27
Width = 84
Cancel = .T.
Caption = "Cancel"
TabIndex = 3
Name = "cmdCancel"
frmSettings
    cmdCancel
commandbutton
commandbutton
PROCEDURE Click
IF NOT Thisform.Validate()
    RETURN
ENDIF
Thisform.UpdateTable()
INKEY(.1)
    LOCAL loExHandler
    loExHandler = _goHelper._oExHandler
    WITH loExHandler as ExtensionHandler
        TRY
            .PreviewForm.ToolBar.Hide()
            .PreviewForm.ToolBar = NULL
        CATCH
        ENDTRY
        _goHelper.UpdateSettings()
        .PreviewForm.ToolbarIsVisible = .F.
        .PreviewForm.CreateToolbar()
        .Show()
    ENDWITH
CATCH TO loExc
*    SET STEP ON
ENDTRY
Thisform.Release()
ENDPROC
^Top = 433
Left = 259
Height = 27
Width = 84
Caption = "Ok"
TabIndex = 2
Name = "cmdOk"
frmSettings
cmdOk
commandbutton
commandbutton
SHeight = 174
Left = 14
ReadOnly = .F.
Top = 8
Width = 409
Name = "edtReadMe"
frmSettings.PF.PageAbout
    edtReadMe
editbox
editbox
WFontSize = 8
Height = 38
Left = 86
Top = 314
Width = 338
Name = "edtCurSettings"
frmSettings.PF.PageAbout
edtCurSettings
editbox
editbox
RFontSize = 8
Height = 38
Left = 86
Top = 267
Width = 338
Name = "edtSource"
frmSettings.PF.PageAbout
    edtSource
editbox
editbox
PROCEDURE Click
LOCAL loHyperlink, lcLink
lcLink = "http://foxypreviewer.codeplex.com/license"
loHyperlink = CREATEOBJECT("Hyperlink")
loHyperlink.navigateto(lcLink)
ENDPROC
AutoSize = .T.
FontUnderline = .T.
BackStyle = 0
Caption = "Freeware and open source utility - See License online"
Height = 17
Left = 14
MousePointer = 15
Top = 239
Width = 296
ForeColor = 0,0,255
ToolTipText = "Click to follow link"
Name = "Label2"
frmSettings.PF.PageAbout
Label2
label
label
AutoSize = .T.
WordWrap = .T.
BackStyle = 0
Caption = "Source file:"
Height = 17
Left = 14
Top = 267
Width = 61
TabIndex = 15
Name = "lblInfo"
frmSettings.PF.PageAbout
lblInfo
label
label
_PROCEDURE Click
BROWSE NORMAL TITLE "FoxyPreviewer settings table: " + This.Caption
ENDPROC
AutoSize = .T.
FontUnderline = .T.
WordWrap = .T.
BackStyle = 0
Caption = "Browse settings file"
Height = 17
Left = 14
MousePointer = 15
Top = 356
Width = 108
ForeColor = 0,0,255
ToolTipText = "Click to follow link"
Name = "lblSettingsFile"
frmSettings.PF.PageAbout
lblSettingsFile
label
label
AutoSize = .T.
BackStyle = 0
Caption = "Settings file:"
Height = 17
Left = 14
Top = 315
Width = 69
TabIndex = 15
Name = "lblExcelExtension"
frmSettings.PF.PageAbout
lblExcelExtension
label
label
PROCEDURE Click
LOCAL loHyperlink, lcLink
lcLink = "http://foxypreviewer.codeplex.com/releases"
loHyperlink = CREATEOBJECT("Hyperlink")
loHyperlink.navigateto(lcLink)
ENDPROC
AutoSize = .T.
FontUnderline = .T.
BackStyle = 0
Caption = "FoxyPreviewer latest releases"
Height = 17
Left = 14
MousePointer = 15
Top = 213
Width = 165
ForeColor = 0,0,255
ToolTipText = "Click to follow link"
Name = "Label1"
frmSettings.PF.PageAbout
Label1
label
label
frmSettings.PF.PageAbout
Label4
label
label
frmSettings.PF.PageXLS
_memberdata XML Metadata for customizable properties
inpreview
*updatecontrol
*updatetable
*validate
*setlanguage
*getloc
*enablecontrols
    pageframe
    pageframe
frmSettings
{ErasePage = .T.
PageCount = 7
Top = 11
Left = 7
Width = 443
Height = 408
TabIndex = 1
Name = "PF"
Page1.Caption = "General"
Page1.PageOrder = 1
Page1.Name = "PageGeneral"
Page2.Caption = "Output"
Page2.PageOrder = 3
Page2.Name = "PageOutput"
Page3.Caption = "Controls"
Page3.PageOrder = 2
Page3.Name = "PageControls"
Page4.Caption = "Email"
Page4.Enabled = .T.
Page4.PageOrder = 4
Page4.Name = "PageEmail"
Page5.Caption = "PDF"
Page5.PageOrder = 5
Page5.Name = "PagePDF"
Page6.Caption = "XLS"
Page6.PageOrder = 6
Page6.Name = "PageXLS"
Page7.Caption = "About"
Page7.PageOrder = 7
Page7.Name = "PageAbout"
=PROCEDURE PagePDF.Activate
LOCAL llEnable
llEnable = This.chkEncrypt.Value
WITH This
    .ChkCanAddNotes.Enabled = llEnable
    .ChkCanCopy.Enabled     = llEnable
    .ChkCanEdit.Enabled     = llEnable
    .ChkCanPrint.Enabled    = llEnable
    .TxtMasterPwd.Enabled   = llEnable
    .TxtUserPwd.Enabled     = llEnable
    .lblMasterPwd.Enabled   = llEnable
    .lblUserPwd.Enabled     = llEnable
ENDWITH
ENDPROC
PROCEDURE PageAbout.Activate
LOCAL lcFile
lcFile = _goHelper._SettingsFile
IF LEN(lcFile) > 150
    * GetShortPathName
    LOCAL lcLongFile, lcBuffer, lnBufferSize, lnShortPathLen, lcShortPath
    lcLongFile = lcFile
    DECLARE INTEGER GetShortPathName IN Win32API ;
        STRING  @cLongPath, ;
        STRING  @cShortPathBuff, ;
        INTEGER nBuffSize
    lcBuffer = SPACE(511)
    * should this be set to the maximum length allowed for a long path name?
    lnBufferSize = 511
    lnShortPathLen = GetShortPathName(lcLongFile, @lcBuffer, @lnBufferSize)
    lcShortPath = LEFT(lcBuffer, lnShortPathLen)
    IF NOT EMPTY(lcShortPath)
        lcFile = lcShortPath
    ENDIF
ENDIF
LOCAL lcInfo, lcSettingsFile
lcInfo = _goHelper._Sys16
This.EdtCurSettings.Value = lcFile
This.EdtSource.Value = lcInfo
    This.EdtReadMe.Value = FILETOSTR("__ReadMe.txt")
CATCH
    This.EdtReadMe.Visible = .F.
ENDTRY
_ClipText = lcFile
ENDPROC
PROCEDURE Click
LOCAL loHyperlink, lcLink
lcLink = "http://foxypreviewer.codeplex.com/documentation/"
loHyperlink = CREATEOBJECT("Hyperlink")
loHyperlink.navigateto(lcLink)
ENDPROC
AutoSize = .T.
FontUnderline = .T.
BackStyle = 0
Caption = "FoxyPreviewer online documentation"
Height = 17
Left = 14
MousePointer = 15
Top = 188
Width = 202
ForeColor = 0,0,255
ToolTipText = "Click to follow link"
Name = "Label4"
Top = 261
Left = 40
Height = 17
Width = 126
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Align cells to the left"
TabIndex = 1
Name = "chkCellAlignLeft"
chkCellAlignLeft
checkbox
checkbox
Top = 225
Left = 40
Height = 17
Width = 128
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Hide page numbers"
TabIndex = 1
Name = "chkHidePageNo"
frmSettings.PF.PageXLS
chkHidePageNo
checkbox
checkbox
Top = 189
Left = 40
Height = 17
Width = 99
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Repeat footers"
TabIndex = 1
Name = "chkRepeatFooters"
frmSettings.PF.PageXLS
chkRepeatFooters
checkbox
checkbox
frmSettings.PF.PageXLS
checkbox
combobox
combobox
cmbLanguage
frmSettings.PF.PageGeneral
rRowSourceType = 0
Height = 24
Left = 186
Style = 2
TabIndex = 1
Top = 20
Width = 241
Name = "cmbLanguage"
TPROCEDURE Init
This.AddProperty("cValue", "")
IF VARTYPE(_goHelper) = "O"
    LOCAL n, lcLang, lcLocal, lcItem
    FOR m.n = 1 TO _goHelper._aLanguages.Count
        lcLang  = ALLTRIM(_goHelper._aLanguages(m.n))
        lcLocal = ALLTRIM(_goHelper._aLangLocal(m.n))
        IF lcLang == lcLocal
            lcLocal = ""
        ELSE
            lcLocal = " / " + lcLocal
        ENDIF
        lcItem = lcLang + lcLocal
        This.AddItem(lcItem)
    ENDFOR
    This.AddItem("ENGLISH")
    This.AddItem("ARABIC")
    This.AddItem("BULGARIAN")
    This.AddItem("CHINESE")
    This.AddItem("CZECH")
    This.AddItem("DUTCH")
    This.AddItem("FRENCH")
    This.AddItem("GERMAN")
    This.AddItem("GREEK")
    This.AddItem("INDONESIAN")
    This.AddItem("ITALIAN")
    This.AddItem("PERSIAN")
    This.AddItem("POLISH")
    This.AddItem("PORTUGUES")
    This.AddItem("RUSSIAN")
    This.AddItem("SPANISH")
    This.AddItem("SWAHILI")
    This.AddItem("TCHINESE")
    This.AddItem("TURKISH")
ENDIF
ENDPROC
PROCEDURE InteractiveChange
This.cValue = ALLTRIM(GETWORDNUM(This.Value, 1, " / "))
    _goHelper.cLanguage = This.cValue
    Thisform.SetLanguage()
CATCH
ENDTRY
ENDPROC
Top = 153
Left = 40
Height = 17
Width = 107
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Repeat headers"
TabIndex = 1
Name = "chkRepeatHeaders"
chkRepeatHeaders
checkbox
Top = 82
Left = 40
Height = 52
Width = 391
WordWrap = .T.
AutoSize = .F.
Alignment = 0
BackStyle = 0
Caption = "Convert to pure XLS"
TabIndex = 1
Name = "chkConverttoPureXLS"
frmSettings.PF.PageXLS
chkConverttoPureXLS
checkbox
checkbox
AutoSize = .T.
BackStyle = 0
Caption = "Default file extension"
Height = 17
Left = 40
Top = 45
Width = 116
TabIndex = 15
Name = "lblExcelExtension"
frmSettings.PF.PageXLS
lblExcelExtension
label
label
CPROCEDURE Init
This.AddItem("XLS")
This.AddItem("XML")
ENDPROC
FontSize = 8
RowSourceType = 0
Height = 24
Left = 277
Style = 2
TabIndex = 3
Top = 45
Width = 112
Name = "cmbExcelExtension"
frmSettings.PF.PageXLS
cmbExcelExtension
combobox
combobox
AutoSize = .T.
BackStyle = 0
Caption = "PDF default font"
Height = 17
Left = 12
Top = 119
Width = 89
TabIndex = 16
Name = "lblDefaultFont"
frmSettings.PF.PagePDF
lblDefaultFont
label
label
lblLanguage
frmSettings.PF.PageGeneral
AutoSize = .T.
BackStyle = 0
Caption = "Language"
Height = 17
Left = 12
Top = 22
Width = 58
TabIndex = 9
Name = "lblLanguage"
combobox
combobox
cmbDock
frmSettings.PF.PageGeneral
nRowSourceType = 0
Height = 24
Left = 186
Style = 2
TabIndex = 3
Top = 92
Width = 241
Name = "cmbDock"
FPROCEDURE Init
This.AddItem("Undocked")     && -1
This.AddItem("Toolbar on TOP of the window")    && 0
This.AddItem("Toolbar on LEFT of the window")   && 1
This.AddItem("Toolbar on RIGHT of the window")  && 2
This.AddItem("Toolbar on BOTTOM of the window") && 3
This.AddItem("Use settings from the Resource") && .F.
* This.ListItemId = 1
    *!*
1 Undocks the toolbar or form.
    *!*          0 Positions the toolbar or form at the top of the main Visual FoxPro window.
    *!*         1 Positions the toolbar or form at the left side of the main Visual FoxPro window.
    *!*         2 Positions the toolbar or form at the right side of the main Visual FoxPro window.
    *!*         3 Positions the toolbar or form at the bottom of the main Visual FoxPro window.
    *!*      4 or .F. Mmeans to keep the current Dock settings from the resource
ENDPROC
label
label
jPROCEDURE Init
This.AddItem("Helvetica")
This.AddItem("Courier")
This.AddItem("Times-Roman")
ENDPROC
FontSize = 8
RowSourceType = 0
Height = 24
Left = 163
Style = 2
TabIndex = 6
Top = 116
Width = 259
Name = "cmbDefaultFont"
frmSettings.PF.PagePDF
cmbDefaultFont
combobox
combobox
frmSettings.PF.PagePDF
chkPDFasImage
checkbox
checkbox
label
label
lblDockPosition
frmSettings.PF.PageGeneral
AutoSize = .T.
BackStyle = 0
Caption = "Dock position"
Height = 17
Left = 12
Top = 95
Width = 77
TabIndex = 10
Name = "lblDockPosition"
combobox
combobox
cmbTbrVisibility
frmSettings.PF.PageGeneral
wRowSourceType = 0
Height = 24
Left = 186
Style = 2
TabIndex = 2
Top = 56
Width = 241
Name = "cmbTbrVisibility"
PROCEDURE Init
This.AddItem("Visible on startup")
This.AddItem("Invisible")
This.AddItem("Show according to Resource")
* This.ListItemId = 1
ENDPROC
Top = 12
Left = 209
Height = 17
Width = 152
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Render pages as Image"
TabIndex = 2
Name = "chkPDFasImage"
vFontSize = 8
Format = "K"
Height = 21
Left = 163
TabIndex = 7
Top = 144
Width = 259
Name = "txtPDFSymbolList"
label
label
lblToolbarvisibility
frmSettings.PF.PageGeneral
AutoSize = .T.
BackStyle = 0
Caption = "Toolbar visibility"
Height = 17
Left = 12
Top = 60
Width = 89
TabIndex = 11
Name = "lblToolbarvisibility"
combobox
combobox
cmbCanvasCnt
frmSettings.PF.PageGeneral
ColumnWidths = "250"
RowSourceType = 0
Height = 24
Left = 186
Style = 2
TabIndex = 4
Top = 128
Width = 136
Name = "cmbCanvasCnt"
PROCEDURE ProgrammaticChange
IF This.Value = 4
    This.Value = "3"
ENDIF
ENDPROC
PROCEDURE Init
WITH This
    .ColumnCount = 2
    .BoundColumn = 2
    .ColumnWidths = "80,0"
    .ColumnLines = .F.
    .AddItem("1 Page")
    .List[.NewIndex, 2] = '1'
    .AddItem("2 Pages")
    .List[.NewIndex, 2] = '2'
    .AddItem("4 Pages")
    .List[.NewIndex, 2] = '3'
ENDWITH
* This.ListItemId = 1
ENDPROC
frmSettings.PF.PagePDF
txtPDFSymbolList
textbox
textbox
AutoSize = .F.
WordWrap = .T.
BackStyle = 0
Caption = "Symbol or Bar codes fonts"
Height = 47
Left = 12
Top = 145
Width = 144
TabIndex = 19
Name = "lblSymbol"
frmSettings.PF.PagePDF
    lblSymbol
label
label
pFontSize = 8
Format = "K"
Height = 21
Left = 163
TabIndex = 5
Top = 90
Width = 259
Name = "txtPDFTitle"
frmSettings.PF.PagePDF
txtPDFTitle
textbox
textbox
frmSettings.PF.PagePDF
lblPDFtitle
label
label
label
label
label
lblCanvasCnt
frmSettings.PF.PageGeneral
AutoSize = .T.
BackStyle = 0
Caption = "Canvas count"
Height = 17
Left = 12
Top = 132
Width = 77
TabIndex = 12
Name = "lblCanvasCnt"
combobox
combobox
cmbZoom
frmSettings.PF.PageGeneral
oRowSourceType = 0
Height = 24
Left = 186
Style = 2
TabIndex = 5
Top = 164
Width = 136
Name = "cmbZoom"
PROCEDURE Init
This.AddItem("10%")
This.AddItem("25%")
This.AddItem("50%")
This.AddItem("75%")
This.AddItem("100%")
This.AddItem("150%")
This.AddItem("200%")
This.AddItem("300%")
This.AddItem("500%")
This.AddItem("Whole Page")
This.AddItem("Page Width")
* This.ListItemId = 1
* nZoomLevel = 5 && initial zoom level of the preview window. Possible values are:
    && 1-10%, 2-25%, 3-50%, 4-75%, 5-100% default, 6-150% ;
    && 7-200%, 8-300%, 9-500%, 10-whole page
ENDPROC
AutoSize = .T.
BackStyle = 0
Caption = "PDF Title"
Height = 17
Left = 12
Top = 92
Width = 52
TabIndex = 18
Name = "lblPDFtitle"
qFontSize = 8
Format = "K"
Height = 21
Left = 163
TabIndex = 4
Top = 64
Width = 259
Name = "txtPDFAuthor"
frmSettings.PF.PagePDF
txtPDFAuthor
textbox
textbox
frmSettings.PF.PagePDF
lblPDFauthor
label
frmSettings.PF.PagePDF
label
label
lblZoom
frmSettings.PF.PageGeneral
AutoSize = .T.
BackStyle = 0
Caption = "Zoom level"
Height = 17
Left = 12
Top = 168
Width = 62
TabIndex = 13
Name = "lblZoom"
combobox
combobox
cmbWndState
frmSettings.PF.PageGeneral
sRowSourceType = 0
Height = 24
Left = 186
Style = 2
TabIndex = 6
Top = 200
Width = 136
Name = "cmbWndState"
PROCEDURE Init
This.AddItem("Normal")
This.AddItem("Minimized")
This.AddItem("Maximized")
* This.ListItemId = 1
* nWindowState
*    0 = Normal
*    1 = Minimized
*    2 = Maximized
ENDPROC
AutoSize = .T.
BackStyle = 0
Caption = "PDF Author"
Height = 17
Left = 12
Top = 65
Width = 64
TabIndex = 17
Name = "lblPDFauthor"
txtUserPwd
textbox
textbox
frmSettings.PF.PagePDF
lblUserPwd
label
label
label
label
lblWndState
frmSettings.PF.PageGeneral
AutoSize = .T.
BackStyle = 0
Caption = "Window State"
Height = 17
Left = 12
Top = 203
Width = 77
TabIndex = 14
Name = "lblWndState"
checkbox
checkbox
chkQuiet
frmSettings.PF.PageGeneral
Top = 274
Left = 186
Height = 17
Width = 47
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Quiet"
TabIndex = 7
Name = "chkQuiet"
combobox
combobox
cmbProgress
frmSettings.PF.PageGeneral
sRowSourceType = 0
Height = 24
Left = 186
Style = 2
TabIndex = 8
Top = 297
Width = 241
Name = "cmbProgress"
|PROCEDURE Init
WITH This
    .AddItem("Default thermometer")
    .AddItem("Windows compatible thermometer")
ENDWITH
ENDPROC
FontSize = 8
Format = "K"
Height = 21
Left = 213
TabIndex = 10
Top = 245
Width = 203
PasswordChar = "*"
Name = "txtUserPwd"
AutoSize = .T.
BackStyle = 0
Caption = "User password"
Height = 17
Left = 64
Top = 246
Width = 87
TabIndex = 21
Name = "lblUserPwd"
label
label
lblProgress
frmSettings.PF.PageGeneral
AutoSize = .T.
BackStyle = 0
Caption = "Progress Thermometer"
Height = 17
Left = 11
Top = 275
Width = 131
TabIndex = 15
Name = "lblProgress"
checkbox
checkbox
chkSavePDF
frmSettings.PF.PageOutput
Top = 67
Left = 25
Height = 17
Width = 89
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Save as PDF"
TabIndex = 2
Name = "chkSavePDF"
checkbox
checkbox
chkSaveRTF
frmSettings.PF.PageOutput
Top = 99
Left = 25
Height = 17
Width = 88
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Save as RTF"
TabIndex = 3
Name = "chkSaveRTF"
checkbox
checkbox
chkSaveHTML
frmSettings.PF.PageOutput
Top = 131
Left = 25
Height = 17
Width = 97
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Save as HTML"
TabIndex = 4
Name = "chkSaveHTML"
checkbox
checkbox
chkSaveXLS
frmSettings.PF.PageOutput
Top = 195
Left = 25
Height = 17
Width = 119
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Save as XLS / XML"
TabIndex = 5
Name = "chkSaveXLS"
checkbox
checkbox
chkSaveImg
frmSettings.PF.PageOutput
Top = 35
Left = 25
Height = 17
Width = 100
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Save as Image"
TabIndex = 1
Name = "chkSaveImg"
optiongroup
optiongroup
optXLSType
frmSettings.PF.PageOutput
ButtonCount = 2
BackStyle = 0
Value = 1
Enabled = .F.
Height = 46
Left = 219
Top = 194
Width = 120
TabIndex = 11
Name = "optXLSType"
Option1.BackStyle = 0
Option1.Caption = "XLS Listener"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 88
Option1.AutoSize = .T.
Option1.Name = "Option1"
Option2.BackStyle = 0
Option2.Caption = "Plain XLS"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 71
Option2.AutoSize = .T.
Option2.Name = "Option2"
.PROCEDURE Init
This.Visible = .F.
ENDPROC
FontSize = 8
Format = "K"
Height = 21
Left = 213
TabIndex = 9
Top = 219
Width = 203
PasswordChar = "*"
Name = "txtMasterPwd"
frmSettings.PF.PagePDF
txtMasterPwd
textbox
label
label
lblOutputPath
frmSettings.PF.PageOutput
AutoSize = .F.
WordWrap = .T.
BackStyle = 0
Caption = "Output Path"
Height = 42
Left = 25
Top = 259
Width = 107
TabIndex = 7
Name = "lblOutputPath"
textbox
textbox
txtOutputPath
frmSettings.PF.PageOutput
sFontSize = 8
Format = "K"
Height = 23
Left = 159
TabIndex = 9
Top = 261
Width = 264
Name = "txtOutputPath"
checkbox
checkbox
chkSaveTXT
frmSettings.PF.PageOutput
Top = 227
Left = 25
Height = 17
Width = 149
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Save as TXT / CSV / XL5"
TabIndex = 6
Name = "chkSaveTXT"
commandbutton
commandbutton
cmdPath
frmSettings.PF.PageOutput
aTop = 260
Left = 133
Height = 24
Width = 24
Caption = "..."
TabIndex = 8
Name = "cmdPath"
\PROCEDURE Click
LOCAL lcDir, lcNewDir
lcDir = This.Parent.TxtOutputPath.Value
* This.Parent.TxtOutputPath.Value = GETDIR(lcDir, _goHelper.GetLoc("SAVEPATH"), _goHelper.GetLoc("SAVEPATH"), 64)
lcNewDir = GETDIR(lcDir, "", _goHelper.GetLoc("SAVEPATH"), 64)
IF NOT EMPTY(lcNewDir)
    This.Parent.TxtOutputPath.Value = lcNewDir
ENDIF
ENDPROC
textbox
AutoSize = .T.
BackStyle = 0
Caption = "Master password"
Height = 17
Left = 63
Top = 221
Width = 97
TabIndex = 20
Name = "lblMasterPwd"
frmSettings.PF.PagePDF
lblMasterPwd
label
label
frmSettings.PF.PagePDF
chkCanAddNotes
checkbox
checkbox
frmSettings.PF.PagePDF
chkCanCopy
checkbox
checkbox
chkOpenViewer
frmSettings.PF.PageOutput
Top = 299
Left = 25
Height = 17
Width = 126
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Open default viewer"
TabIndex = 10
Name = "chkOpenViewer"
checkbox
checkbox
chkSaveMHT
frmSettings.PF.PageOutput
Top = 163
Left = 25
Height = 17
Width = 106
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Save as MHTML"
TabIndex = 4
Name = "chkSaveMHT"
checkbox
checkbox
chkPrintPref
frmSettings.PF.PageControls
Top = 55
Left = 20
Height = 17
Width = 160
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Printer preferences button"
TabIndex = 3
Name = "chkPrintPref"
checkbox
checkbox
    chkCopies
frmSettings.PF.PageControls
Top = 85
Left = 20
Height = 17
Width = 98
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Copies control"
TabIndex = 5
Name = "chkCopies"
checkbox
checkbox
chkSaveToFile
frmSettings.PF.PageControls
Top = 115
Left = 20
Height = 17
Width = 114
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Save to file button"
TabIndex = 6
Name = "chkSaveToFile"
checkbox
checkbox
chkAvailPrinters
frmSettings.PF.PageControls
Top = 145
Left = 20
Height = 17
Width = 131
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Available printers list"
TabIndex = 7
Name = "chkAvailPrinters"
checkbox
checkbox
chkSettings
frmSettings.PF.PageControls
Top = 265
Left = 20
Height = 17
Width = 100
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Settings button"
TabIndex = 15
Visible = .F.
Name = "chkSettings"
checkbox
checkbox
chkSendEmail
frmSettings.PF.PageControls
Top = 175
Left = 20
Height = 17
Width = 132
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Send to Email button"
TabIndex = 8
Name = "chkSendEmail"
checkbox
checkbox
chkMiniatures
frmSettings.PF.PageControls
Top = 205
Left = 20
Height = 17
Width = 112
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Miniatures button"
TabIndex = 9
Name = "chkMiniatures"
combobox
combobox
cmbBtnSize
frmSettings.PF.PageControls
qRowSourceType = 0
Height = 24
Left = 251
Style = 2
TabIndex = 2
Top = 17
Width = 175
Name = "cmbBtnSize"
qPROCEDURE Init
WITH This
    .AddItem("Small (16x16 pixels)")
    .AddItem("Big (32x32 pixels)")
ENDWITH
ENDPROC
Top = 344
Left = 64
Height = 17
Width = 105
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Allow add notes"
TabIndex = 14
Name = "chkCanAddNotes"
checkbox
checkbox
frmSettings.PF.PagePDF
chkCanEdit
checkbox
label
label
label
lblBtnSize
frmSettings.PF.PageControls
AutoSize = .T.
BackStyle = 0
Caption = "Size of buttons"
Height = 17
Left = 20
Top = 22
Width = 82
TabIndex = 1
Name = "lblBtnSize"
checkbox
checkbox
    chkSearch
frmSettings.PF.PageControls
Top = 235
Left = 20
Height = 17
Width = 94
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Search button"
TabIndex = 12
Visible = .T.
Name = "chkSearch"
combobox
combobox
cmbPrPrefType
frmSettings.PF.PageControls
tRowSourceType = 0
Height = 24
Left = 251
Style = 2
TabIndex = 4
Top = 52
Width = 175
Name = "cmbPrPrefType"
PROCEDURE Init
WITH This
    .AddItem("Global printer prompt options")
    .AddItem("Setup property sheet for current printer")
ENDWITH
ENDPROC
Top = 320
Left = 64
Height = 17
Width = 75
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Allow copy"
TabIndex = 13
Name = "chkCanCopy"
checkbox
frmSettings.PF.PagePDF
chkCanPrint
checkbox
checkbox
frmSettings.PF.PagePDF
cntEncryptPDF
spinner
spinner
spnSearchPages
frmSettings.PF.PageControls
Height = 24
Increment =   1.00
InputMask = "999999"
KeyboardHighValue = 999999
KeyboardLowValue = -1
Left = 369
SpinnerHighValue = 999999.00
SpinnerLowValue =  -1.00
TabIndex = 14
Top = 235
Width = 57
Format = "999999"
Value = -1
Name = "spnSearchPages"
label
label
lblSearchPages
frmSettings.PF.PageControls
AutoSize = .F.
WordWrap = .T.
BackStyle = 0
Caption = "Max. Search pages"
Height = 38
Left = 202
Top = 236
Width = 149
TabIndex = 13
Name = "lblSearchPages"
label
label
lblMiniatures
frmSettings.PF.PageControls
AutoSize = .F.
BackStyle = 0
Caption = "Miniatures per page"
Height = 31
Left = 202
Top = 207
Width = 157
TabIndex = 10
Name = "lblMiniatures"
spinner
spinner
spnMiniatures
frmSettings.PF.PageControls
Height = 24
KeyboardHighValue = 64
KeyboardLowValue = 1
Left = 369
SpinnerHighValue =  64.00
SpinnerLowValue =   1.00
TabIndex = 11
Top = 202
Width = 57
Value = 0
Name = "spnMiniatures"
    container
    container
cntEncryptPDF
frmSettings.PF.PageEmail
rTop = 149
Left = 28
Width = 397
Height = 191
Enabled = .F.
TabIndex = 17
Style = 3
Name = "cntEncryptPDF"
label
label
lblSMTPserver
frmSettings.PF.PageEmail
AutoSize = .T.
BackStyle = 0
Caption = "SMTP server"
Height = 17
Left = 38
Top = 159
Width = 71
TabIndex = 13
Name = "lblSMTPserver"
label
label
lblLogin
frmSettings.PF.PageEmail
AutoSize = .T.
BackStyle = 0
Caption = "Login"
Height = 17
Left = 38
Top = 189
Width = 33
TabIndex = 14
Name = "lblLogin"
label
label
lblPassword
frmSettings.PF.PageEmail
AutoSize = .T.
BackStyle = 0
Caption = "Password"
Height = 17
Left = 38
Top = 221
Width = 58
TabIndex = 15
Name = "lblPassword"
label
label
lblCDOsettings
frmSettings.PF.PageEmail
AutoSize = .T.
BackStyle = 0
Caption = "CDO email settings"
Height = 17
Left = 11
Top = 125
Width = 110
TabIndex = 16
Name = "lblCDOsettings"
textbox
textbox
txtSMTP
frmSettings.PF.PageEmail
_Format = "K"
Height = 23
Left = 165
TabIndex = 4
Top = 159
Width = 254
Name = "txtSMTP"
textbox
textbox
txtLogin
frmSettings.PF.PageEmail
`Format = "K"
Height = 23
Left = 165
TabIndex = 5
Top = 189
Width = 254
Name = "txtLogin"
textbox
textbox
txtPassword
frmSettings.PF.PageEmail
wFormat = "K"
Height = 23
Left = 165
TabIndex = 6
Top = 219
Width = 254
PasswordChar = "*"
Name = "txtPassword"
label
label
lblSMTPport
frmSettings.PF.PageEmail
AutoSize = .T.
BackStyle = 0
Caption = "SMTP port"
Height = 17
Left = 38
Top = 249
Width = 58
TabIndex = 18
Name = "lblSMTPport"
textbox
textbox
txtPort
frmSettings.PF.PageEmail
^Format = "K"
Height = 23
Left = 165
TabIndex = 7
Top = 248
Width = 44
Name = "txtPort"
checkbox
checkbox
    chkUseSSL
frmSettings.PF.PageEmail
Top = 249
Left = 216
Height = 17
Width = 67
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Use SSL"
TabIndex = 8
Name = "chkUseSSL"
combobox
combobox
cmbEmailType
frmSettings.PF.PageEmail
sRowSourceType = 0
Height = 24
Left = 164
Style = 2
TabIndex = 1
Top = 10
Width = 147
Name = "cmbEmailType"
CPROCEDURE Init
This.AddItem("MAPI")
This.AddItem("CDO - HTML")
This.AddItem("CDO - TXT")
This.AddItem("Custom procedure")
This.AddItem("MAPI Alternative")
* This.AddItem("MAPI Alternative 2")
* This.ListItemId = 1
* nEmailMode && 1 = MAPI, 2 = CDOSYS HTML, 3 = CDOSYS plain text, 4 = Custom procedure
ENDPROC
Top = 296
Left = 64
Height = 17
Width = 70
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Allow edit"
TabIndex = 12
Name = "chkCanEdit"
Top = 272
Left = 64
Height = 17
Width = 91
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Allow printing"
TabIndex = 11
Name = "chkCanPrint"
label
label
lblEmailMode
frmSettings.PF.PageEmail
AutoSize = .T.
BackStyle = 0
Caption = "Email mode"
Height = 17
Left = 13
Top = 10
Width = 69
TabIndex = 19
Name = "lblEmailMode"
label
label
    lblSender
frmSettings.PF.PageEmail
AutoSize = .T.
BackStyle = 0
Caption = "Sender"
Height = 17
Left = 38
Top = 278
Width = 42
TabIndex = 20
Name = "lblSender"
textbox
textbox
txtFrom
frmSettings.PF.PageEmail
_Format = "K"
Height = 23
Left = 165
TabIndex = 9
Top = 277
Width = 254
Name = "txtFrom"
combobox
combobox
    cmbAttach
frmSettings.PF.PageEmail
pRowSourceType = 0
Height = 24
Left = 164
Style = 2
TabIndex = 2
Top = 44
Width = 147
Name = "cmbAttach"
PROCEDURE Init
This.AddItem("PDF")
This.AddItem("RTF")
This.AddItem("XLS")
This.AddItem("XML")
This.AddItem("HTML")
This.AddItem("TIF")
ENDPROC
rTop = 211
Left = 51
Width = 372
Height = 157
Enabled = .F.
TabIndex = 22
Style = 3
Name = "cntEncryptPDF"
    container
    container
AutoSize = .T.
BackStyle = 0
Caption = "Page mode"
Height = 17
Left = 12
Top = 38
Width = 66
TabIndex = 15
Name = "lblPageMode"
lblPageMode
label
label
lblAttachmentType
frmSettings.PF.PageEmail
AutoSize = .T.
BackStyle = 0
Caption = "Attachment type"
Height = 17
Left = 13
Top = 44
Width = 88
TabIndex = 21
Name = "lblAttachmentType"
checkbox
checkbox
chkAutoEmail
frmSettings.PF.PageEmail
Top = 77
Left = 12
Height = 17
Width = 195
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Automatically generate email file"
TabIndex = 3
Name = "chkAutoEmail"
label
label
lblOutputPath
frmSettings.PF.PageEmail
AutoSize = .T.
BackStyle = 0
Caption = "HTML"
Height = 17
Left = 38
Top = 308
Width = 34
TabIndex = 12
Name = "lblOutputPath"
textbox
textbox
txtHTMLfile
frmSettings.PF.PageEmail
rFontSize = 8
Format = "K"
Height = 23
Left = 165
TabIndex = 11
Top = 306
Width = 254
Name = "txtHTMLfile"
commandbutton
commandbutton
cmdPath
frmSettings.PF.PageEmail
bTop = 305
Left = 134
Height = 24
Width = 24
Caption = "..."
TabIndex = 10
Name = "cmdPath"
PROCEDURE Click
LOCAL lcDir, lcNewDir
lcDir = This.Parent.TxtHTMLfile.Value
lcNewDir = GETFILE("HTM")
IF NOT EMPTY(lcNewDir)
    This.Parent.TxtHTMLfile.Value = lcNewDir
ENDIF
ENDPROC
frmSettings.PF.PagePDF
label
FontSize = 8
RowSourceType = 0
Height = 24
Left = 163
Style = 2
TabIndex = 3
Top = 35
Width = 259
Name = "cmbPageMode"
frmSettings.PF.PagePDF
cmbPageMode
combobox
combobox
>PROCEDURE InteractiveChange
This.Parent.Activate()
ENDPROC
checkbox
checkbox
chkEmbedFonts
frmSettings.PF.PagePDF
Top = 12
Left = 12
Height = 17
Width = 88
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Embed fonts"
TabIndex = 1
Name = "chkEmbedFonts"
checkbox
checkbox
chkEncrypt
frmSettings.PF.PagePDF
Top = 191
Left = 12
Height = 17
Width = 116
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Encrypt document"
TabIndex = 8
Name = "chkEncrypt"
9PROCEDURE Init
This.AddItem("Normal view")
* This.AddItem("Outlines pane")
This.AddItem("Thumbnails pane")
&& 0 = Normal view, 1 = Show the outlines pane, 2 = Show the thumbnails pane
* This.ListItemId = 1
* nEmailMode && 1 = MAPI, 2 = CDOSYS HTML, 3 = CDOSYS plain text, 4 = Custom procedure
ENDPROC
CHECKBOX
Could not locate the property '
' in the configuration file.
The settings file will be updated.
Updating settings table
fp_Settings&
FP_SettingsW
FP_Settings
FP_SettingsW
FP_SETTINGS
FoxyPreviewer_Settings.dbf
_goHelper.
Value
FP_Settings.
Value
nAdjust
nAdjust
cProperty
nRecCO
Related property: '
TOOBJECT
TCPROPERTY
TNADJUST
LCPROP
LCTYPE
LUVALUE
FP_SETTINGS
PROPERTY
LCFILE0
LCUSERFILE
_GOHELPER
_SETTINGSFILE
ADDPROPERTY
VALUE
NADJUST
STARTMODE
TOOLTIPTEXT
COMBOBOX
nAdjust
cValue
FP_Settings
FP_Settings
FP_Settings
Missing:
FP_Settings
cLanguage
FP_Settings
cSMTPPassword
LNPG
LOCONTROL
LCPROP
LCTYPE
LUVALUE
THISFORM
PAGECOUNT
PAGES
CONTROLS
CPROPERTY
CVALUE
VALUE
FP_SETTINGS
LVALUE
PROPERTY
NVALUE
NADJUST
PAGEGENERAL
LCLANG
CMBLANGUAGE
PAGEEMAIL
LCPASS
_GOHELPER
DOENCRYPT
TXTPASSWORD&
BADSMTP
CONTINUE
BADSETUP
MASTANDUSR
CONTINUE
BADSETUP
PAGEEMAIL
CMBEMAILTYPE
VALUE
TXTSMTP
TXTLOGIN
TXTPASSWORD
TXTPORT
TXTFROM
_GOHELPER
GETLOC
PAGEPDF
CHKENCRYPT
TXTMASTERPWD
TXTUSERPWD
PAGEGENERAL
LNINDEX
THISFORM
CMBLANGUAGE
LISTINDEX
CLANGUAGE
_ALANGUAGES;
EXCEPTION
   PV
GOTOPG_OK
CANCEL
SETUPTITLE
GENERAL
ZOOMLEVEL
CANVASCNT
DOCKPOSITI
CUSLANGUAG
TBARVISIBL
WNDSTATE
PROGRESS
QUIETMODE
COMBOBOX
DEFAULT
WINPGBAR
COMBOBOX
VISIBLE
INVISIBLE
USERESOURC
COMBOBOX
UNDOCKED
TBONTOP
TBONLEFT
TBONRIGHT
TBONBOTTOM
USERESOURC
COMBOBOX
NORMAL
MINIMIZED
MAXIMIZED
COMBOBOX
ONEPGMENU
TWOPGMENU
FOURPGMENU
COMBOBOX
CBOZOOMWHO
CBOZOOMPGW
CONTROLS
BUTTONSIZE
SMALL
PRGENERAL
PRCONFIG
AVAILABLEP
COPIES
MENUPROOF
MINIPERPG
PRINTINGPR
SAVEREPORT
SENDTOEMAI
Setup
MAXSEARCH
OUTPUT
SAVEASHTML
SAVEASMHT
SAVEASIMAG
SAVEASPDF
SAVEASRTF
SAVEASXLS
SAVEASTXT
SAVEPATH
OPENVIEWER
EMAIL
ATTACHTYPE
CDOSETUP
EMAILMODE
LOGIN
PASSWORD
SENDER
SMTPPORT
SMTPSERVER
AUTOEMAIL
USESSL
COMBOBOX
CUSTOMPROC
EMBEDFONTS
PDFASIMAGE
PAGEMODE
NORMALVIEW
THUMBSPANE
PDFAUTHOR
PDFTITLE
SYMBBARCOD
SYMBBARTIP
SYMBBARTIP
PDFFONT
ENCRYPTDOC
MASTERPWD
USERPWD
CANPRINT
CANEDIT
CANCOPY
CANADDNOTE
WKSEXT
XML2XLS
RPTHEADER
RPTFOOTER
HIDEPAGENO
XLALIGNLEF
LOEXC
LCVERSIONTEXT
LCPREVIEWVERSION
GETVFPVERSION
_GOHELPER
_PREVIEWVERSION
LBLVERSION
CAPTION
CVERSION
CMDOK
GETLOC
CMDCANCEL
PAGEGENERAL
LBLZOOM
LBLCANVASCNT
LBLDOCKPOSITION
LBLLANGUAGE
LBLTOOLBARVISIBILITY
LBLWNDSTATE
LBLPROGRESS
CHKQUIET
CMBPROGRESS
LISTITEM
CMBTBRVISIBILITY
CMBDOCK
CMBWNDSTATE
CMBCANVASCNT
CMBZOOM
PAGECONTROLS
LBLBTNSIZE
CMBBTNSIZE
CMBPRPREFTYPE
CHKAVAILPRINTERS
CHKCOPIES
CHKMINIATURES
LBLMINIATURES
CHKPRINTPREF
CHKSAVETOFILE
CHKSENDEMAIL
CHKSETTINGS
CHKSEARCH
LBLSEARCHPAGES
PAGEOUTPUT
CHKSAVEHTML
CHKSAVEMHT
CHKSAVEIMG
CHKSAVEPDF
CHKSAVERTF
CHKSAVEXLS
CHKSAVETXT
LBLOUTPUTPATH
CHKOPENVIEWER
PAGEEMAIL
LBLATTACHMENTTYPE
LBLCDOSETTINGS
LBLEMAILMODE
LBLLOGIN
LBLPASSWORD
LBLSENDER
LBLSMTPPORT
LBLSMTPSERVER
CHKAUTOEMAIL
CHKUSESSL
CMBEMAILTYPE
PAGEPDF
CHKEMBEDFONTS
CHKPDFASIMAGE
LBLPAGEMODE
CMBPAGEMODE
LBLPDFAUTHOR
LBLPDFTITLE
LBLSYMBOL
TOOLTIPTEXT
TXTPDFSYMBOLLIST
LBLDEFAULTFONT
CHKENCRYPT
LBLMASTERPWD
LBLUSERPWD
CHKCANPRINT
CHKCANEDIT
CHKCANCOPY
CHKCANADDNOTES
PAGEXLS
LBLEXCELEXTENSION
CHKCONVERTTOPUREXLS
CHKREPEATHEADERS
CHKREPEATFOOTERS
CHKHIDEPAGENO
CHKCELLALIGNLEFT,
_goHelper._oLang.
TCSTRING
PageXLS
PagePDF
PageEmail
PageOutput
PageControls
PageGeneral
OFOXYPREVIEWER
OSETTINGSDLG
PAGEGENERAL
ENABLED
LENABLETABGENERAL
PAGECONTROLS
LENABLETABCONTROLS
PAGEOUTPUT
LENABLETABOUTPUT
PAGEEMAIL
LENABLETABEMAIL
PAGEPDF
LENABLETABPDF
PAGEXLS
LENABLETABXLS
LSHOWTABXLS
REMOVEOBJECT
LSHOWTABPDF
CHKEMBEDFONTS
LENABLECHKEMBEDFONTS
CHKPDFASIMAGE
LENABLECHKPDFASIMAGE
LSHOWTABEMAIL
CMBEMAILTYPE
LENABLECMBEMAILTYPE
CMBATTACH
LENABLECMBATTACHMENTTYPE
LSHOWTABOUTPUT
CHKSAVEIMG
LENABLECHKSAVEASIMAGE
CHKSAVEPDF
LENABLECHKSAVEASPDF
CHKSAVERTF
LENABLECHKSAVEASRTF
CHKSAVEHTML
LENABLECHKSAVEASHTML
CHKSAVEMHT
LENABLECHKSAVEASMHT
CHKSAVEXLS
LENABLECHKSAVEASXLS
OPTXLSTYPE
CHKSAVETXT
LENABLECHKSAVEASTXT
VISIBLE
_GOHELPER
LEXTENDED
LSHOWTABCONTROLS
CHKPRINTPREF
LENABLECHKPRINTPREF
CMBPRPREFTYPE
LENABLECMBPRINTPREFTYPE
CHKCOPIES
LENABLECHKCOPIES
CHKSAVETOFILE
LENABLECHKSAVETOFILE
CHKAVAILPRINTERS
LENABLECHKPRINTERS
CHKSENDEMAIL
LENABLECHKEMAIL
CHKMINIATURES
LENABLECHKMINIATURES
SPNMINIATURES
CHKSEARCH
LENABLECHKSEARCH
SPNSEARCHPAGES
CHKSETTINGS
LENABLECHKSETTINGS
LSHOWTABGENERAL
CMBLANGUAGE
LSHOWLANGUAGE
LBLLANGUAGE
LENABLELANGUAGE
LOEXCT
nSelectCW
nDataSessionC
Datasessionv
THISFORM
ADDPROPERTYS
FP_SettingsW
THIS
INPREVIEW
_GOHELPER
THISFORM
NDATASESSION
NSELECTq
PreviewHelperC
FoxyPreviewer.Prg
EXCEPTION
FoxyPreviewer_Settings.dbf
Could not load the settings file.C
Make sure to delete the file 'FoxyPreviewer_Settings.dbf'
and run a report again using the previewer to generate the settings file
Error loading settings
nShowToolBar
nDockType
nCanvasCount
nZoomLevel
nWindowState
lQuietMode
nThermType
nButtonSize
nPrinterPropType
lShowPrinters
lShowCopies
lPrinterPref
lSaveToFile
lShowSetup
lShowMiniatures
nMaxMiniatureDisplay
lSendToEmail
lShowSearch
nSearchPages
lSaveAsHTML
lSaveAsMHT
lSaveAsImage
lSaveAsPDF
lSaveAsRTF
lSaveAsXLS
lSaveAsTXT
cOutputPath
lOpenViewer
nEmailMode
cEmailType
lEmailAuto
cSMTPUserName
cSMTPPassword
nSMTPPort
cSMTPServer
lSMTPUseSSL
cEmailFrom
cEmailBodyFile
COMBOBOX
\HTML
lPDFEmbedFonts
lPDFasImage
lPDFEncryptDocument
nPDFPageMode
lPDFCanAddNotes
lPDFCanCopy
lPDFCanEdit
lPDFCanPrint
cPDFMasterPassword
cPDFUserPassword
cPDFAuthor
cPDFtitle
cPDFSymbolFontsList
cPDFDefaultFont
cExcelDefaultExtension
lExcelConvertToXLS
lExcelRepeatHeaders
lExcelRepeatFooters
lExcelHidePageNo
lExcelAlignLeft
STARTMODE
PAGECOUNT
_GOHELPER
LEXTENDED
INPREVIEW
ICON
CFORMICON
LCUSERFILE
LLRETURN
_SETTINGSFILE
FP_SETTINGS
ERRORNO
THISFORM
NDATASESSION
NSELECT
ENABLECONTROLS
PAGEGENERAL
CMBLANGUAGE
LISTITEMID
_LANGINDEX
UPDATECONTROL
CMBTBRVISIBILITY
CMBDOCK
CMBCANVASCNT
CMBZOOM
CMBWNDSTATE
CHKQUIET
CMBPROGRESS
PAGECONTROLS
CMBBTNSIZE
CMBPRPREFTYPE
CHKAVAILPRINTERS
CHKCOPIES
CHKPRINTPREF
CHKSAVETOFILE
CHKSETTINGS
CHKMINIATURES
SPNMINIATURES
CHKSENDEMAIL
CHKSEARCH
SPNSEARCHPAGES
PAGEOUTPUT
CHKSAVEHTML
CHKSAVEMHT
CHKSAVEIMG
CHKSAVEPDF
CHKSAVERTF
CHKSAVEXLS
CHKSAVETXT
TXTOUTPUTPATH
CHKOPENVIEWER
PAGEEMAIL
CMBEMAILTYPE
CMBATTACH
CHKAUTOEMAIL
TXTLOGIN
TXTPASSWORD
VALUE
DODECRYPT
TXTPORT
TXTSMTP
CHKUSESSL
TXTFROM
TXTHTMLFILE
LISTITEM
PAGEPDF
CHKEMBEDFONTS
CHKPDFASIMAGE
CHKENCRYPT
CMBPAGEMODE
CHKCANADDNOTES
CHKCANCOPY
CHKCANEDIT
CHKCANPRINT
TXTMASTERPWD
TXTUSERPWD
TXTPDFAUTHOR
TXTPDFTITLE
TXTPDFSYMBOLLIST
CMBDEFAULTFONT
PAGEXLS
CMBEXCELEXTENSION
CHKCONVERTTOPUREXLS
CHKREPEATHEADERS
CHKREPEATFOOTERS
CHKHIDEPAGENO
CHKCELLALIGNLEFT
SETLANGUAGE
updatecontrol,
updatetable
validate
setlanguage
getloc
enablecontrols
Destroy
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _2Z911D86M1022004034
 WINDOWS _2Z911D86N1059848280
 WINDOWS _2Z911D86M1026460027
 WINDOWS _2ZD1D1IP71027520183
 WINDOWS _2Z911D86M1025136828
 WINDOWS _2Z911D86N1025136828
 WINDOWS _2Z911D86M1025136828[
 WINDOWS _2ZH1E1KNS1025136828
 WINDOWS _2ZH1E1KNT1025136828
 WINDOWS _2ZH1E1KNU1025136828l
 WINDOWS _2ZH1F6HRH1025136828B
 WINDOWS _2ZH1F6HRI1027520183
 COMMENT RESERVED
VERSION =   3.00
dataenvironment
dataenvironment
Dataenvironment
YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
frmSendMail
DataSession = 2
BorderStyle = 2
Height = 400
Width = 470
Desktop = .T.
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Send Email"
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = ..\
WindowType = 1
AlwaysOnTop = .T.
AllowOutput = .F.
_memberdata = <VFPData><memberdata name="updatecontrol" display="UpdateControl"/><memberdata name="updatetable" display="UpdateTable"/></VFPData>
Name = "frmSendMail"
PROCEDURE Unload
RETURN Thisform.lCancelled
ENDPROC
PROCEDURE Load
SET TALK OFF
SET CONSOLE OFF
ENDPROC
PROCEDURE Init
LPARAMETERS tcFile
Thisform.lblAttachment.Caption = JUSTFNAME(tcFile)
Thisform.AddProperty("lCancelled", .F.)
    This.Icon = _goHelper.cFormIcon
CATCH
ENDTRY
    WITH _goHelper
        This.txtDestination.Value = .cEmailTo
        This.txtSubject.Value     = .cEmailSubject
        This.edtBody.Value        =    .cEmailBody
        This.Caption            = .GetLoc("SENDEMAIL")
        This.CmdCancel.Caption  = .GetLoc("CANCEL")
        This.CmdSend.Caption    = .GetLoc("SEND")
        This.lblBody.Caption    = .GetLoc("BODY")
        This.lblSubject.Caption = .GetLoc("SUBJECT")
        This.lblTo.Caption      = .GetLoc("TO")
    ENDWITH
CATCH
ENDTRY
ENDPROC
THISFORM
LCANCELLED
RELEASE
Click,
_GOHELPER
CEMAILTO
THISFORM
TXTDESTINATION
VALUE
CEMAILSUBJECT
TXTSUBJECT
CEMAILBODY
EDTBODY
RELEASE
Click,
!Arial, 0, 9, 5, 15, 12, 32, 3, 0
nPicture = images\pr_attach.bmp
BackStyle = 0
Height = 16
Left = 62
Top = 84
Width = 16
Name = "Image1"
frmSendMail
Image1
image
image
frmSendMail
lblAttachment
label
label
frmSendMail
V_memberdata XML Metadata for customizable properties
*updatecontrol
*updatetable
commandbutton
commandbutton
cmdSend
frmSendMail
bTop = 360
Left = 276
Height = 27
Width = 84
Caption = "Send"
TabIndex = 5
Name = "cmdSend"
PROCEDURE Click
WITH _goHelper
    .cEmailTo      = ALLTRIM(Thisform.txtDestination.Value)
    .cEmailSubject = ALLTRIM(Thisform.txtSubject.Value)
    .cEmailBody    = Thisform.edtBody.Value
ENDWITH
Thisform.Release()
ENDPROC
AutoSize = .T.
BackStyle = 0
Caption = "Attachment"
Height = 17
Left = 85
Top = 84
Width = 63
TabIndex = 3
Name = "lblAttachment"
QHeight = 240
Left = 87
TabIndex = 4
Top = 110
Width = 370
Name = "edtBody"
edtBody
editbox
editbox
frmSendMail
lblBody
label
label
frmSendMail
txtSubject
textbox
commandbutton
commandbutton
    cmdCancel
frmSendMail
tTop = 360
Left = 372
Height = 27
Width = 84
Cancel = .T.
Caption = "Cancel"
TabIndex = 6
Name = "cmdCancel"
IPROCEDURE Click
Thisform.lCancelled = .T.
Thisform.Release()
ENDPROC
AutoSize = .T.
BackStyle = 0
Caption = "Body:"
Height = 17
Left = 14
Top = 110
Width = 32
TabIndex = 9
Name = "lblBody"
RHeight = 23
Left = 87
TabIndex = 2
Top = 52
Width = 370
Name = "txtSubject"
textbox
label
label
lblTo
frmSendMail
|AutoSize = .T.
BackStyle = 0
Caption = "To:"
Height = 17
Left = 14
Top = 16
Width = 19
TabIndex = 7
Name = "lblTo"
textbox
textbox
txtDestination
frmSendMail
VHeight = 23
Left = 87
TabIndex = 1
Top = 16
Width = 370
Name = "txtDestination"
label
label
lblSubject
frmSendMail
AutoSize = .T.
BackStyle = 0
Caption = "Subject:"
Height = 17
Left = 14
Top = 52
Width = 46
TabIndex = 8
Name = "lblSubject"
THISFORM
LCANCELLED
lCancelled-
SENDEMAIL
CANCEL
SUBJECT
TCFILE
THISFORM
LBLATTACHMENT
CAPTION
ADDPROPERTY
ICON
_GOHELPER
CFORMICON
TXTDESTINATION
VALUE
CEMAILTO
TXTSUBJECT
CEMAILSUBJECT
EDTBODY
CEMAILBODY
GETLOC
CMDCANCEL
CMDSEND
LBLBODY
LBLSUBJECT
LBLTO
Unload,
LoadU
Inith
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _18E1A3AY7 822197245
 COMMENT RESERVED
 WINDOWS _18E1A3AY7 822328842
 COMMENT RESERVED
 WINDOWS _18E19ZCVM 822432384
 COMMENT RESERVED
 WINDOWS _18P19LGRG 822432551
 COMMENT RESERVED
 WINDOWS _18O1AV6J6 822434107
 COMMENT RESERVED
 WINDOWS _18P1BYG3R 824668460
 COMMENT RESERVED
 WINDOWS _18F0ZR1S1 826623356;
 COMMENT RESERVED
 WINDOWS _18F0ZR1S1 826623373
 COMMENT RESERVED
 WINDOWS _18O1ATV50 826624375
 COMMENT RESERVED
 WINDOWS _18E0V1V1K 828065963
 COMMENT RESERVED
 WINDOWS _19A0QGWHR 828065293
 COMMENT RESERVED
 WINDOWS _18F0ZR1S1 829569785
 COMMENT RESERVED
 WINDOWS _18B1CLDLZ 830372061
 COMMENT RESERVED
 WINDOWS _19A0QEO5E 830372083
 COMMENT RESERVED
 WINDOWS _18O18G812 830372203L
 COMMENT RESERVED
 WINDOWS _18E18PHD71049013850
 COMMENT RESERVED
VERSION =   3.00
gppoint
_gdiplus.vcx
gpbase
gpobject
    gdiplus.h
Class
Class
Pixels
    gdiplus.h
gpbase
    gdiplus.h
haderror
lasterrormessage
Pixels
Class
custom
gpbase
custom
,gdiphandle
gdipstatus
gdipownsthishandle
Pixels
gpbase
gpobject
custom
_gdiplus.vcx
gpcolor
    gdiplus.h
Pixels
gppoint
_gdiplus.vcx
custom
Class
gpsolidbrush
    gdiplus.h
Pixels
0A brush object which fills with a a solid color.
Class
gpbrush
gpsolidbrush
brushcolor Get or set color of a SolidBrush object
*create Create solid brush in given color
*brushcolor_access
*brushcolor_assign
custom
_gdiplus.vcx
uThe abstract base class for all GDI+ objects. Provides management of GDI+ handles and the outcome of GDI+ operations.
pEncapsulates a GDI+ color, consisting of 4 positive integers (0..255) for red, green, blue and alpha components.
gpbase
gpcolor
custom
_gdiplus.vcx
gpsize
gpbase
_gdiplus.vcx
Pixels
_gdiplus.vcx
gpgraphics
Pixels
gpbrush
gphatchbrush
Pixels
    gdiplus.h
Class
    gdiplus.h
Jgdippoint_access
gdippoint_assign
gdippointf_access
gdippointf_assign
Pixels
    gdiplus.h
gpobject
Pixels
gpstringformat
Pixels
_memberdata = <VFPData><memberdata name="brushcolor" type="property" display="BrushColor" favorites="true"/><memberdata name="create" type="method" display="Create" favorites="true"/></VFPData>
Name = "gpsolidbrush"
gppen
    gdiplus.h
Pixels
    gdiplus.h
Class
gpobject
gpstringformat
gpgraphics
gpbitmap
Class
gpfontfamily
    gdiplus.h
Class
custom
_gdiplus.vcx
9Designates attributes shared by a group of related fonts.
gpobject
gpfontfamily
custom
_gdiplus.vcx
gpobject
_gdiplus.vcx
custom
    gdiplus.h
gpimage
gpbitmap
custom
_gdiplus.vcx
custom
custom
custom
Class
Class
gpfont
Pixels
gpimage
Object which encapsulates text layout information (such as alignment and line spacing) and display manipulations (such as ellipsis insertion and national digit substitution).
Class
gpobject
gppen
custom
Lgetencoderparamsfromstring
getencoderparamsfromarray
getencoderparaminfo
    gdiplus.h
gpbrush
Class
_gdiplus.vcx
gpobject
    gdiplus.h
VDefines a particular format for text, including font face, size, and style attributes.
Class
gpobject
gpfont
custom
_gdiplus.vcx
Dforegroundcolor Color of hatch lines
backgroundcolor Color of space between hatch lines
hatchstyle Hatch style of this brush object
*create Create solid brush in given color
*foregroundcolor_access
*foregroundcolor_assign
*backgroundcolor_access
*backgroundcolor_assign
*hatchstyle_access
*hatchstyle_assign
    gdiplus.h
gprectangle
Pixels
alignment Text alignment information.
formatflags Formatting Information (StringFormatFlags enumeration)
hotkeyprefix Set GpHotkeyPrefix object (write-only?)
linealignment Line alignment
trimming String trimming
*alignment_access
*alignment_assign
*formatflags_access
*formatflags_assign
*hotkeyprefix_access
*hotkeyprefix_assign
*linealignment_access
*linealignment_assign
*trimming_access
*trimming_assign
*getgenericdefault Get generic default string format (.NET: SystemDrawing.StringFormat.GenericDefault)
*getgenerictypographic Get generic typographic StringFormat
*create Create StringFormat with optional flags and language
Encapsulates a GDI+ bitmap, which consists of the pixel data for a graphics image and its attributes. A Bitmap object is an object used to work with images defined by pixel data.
6*createfromgraphics Create from a GpGraphics object
*create Create bitmap with specified properties
*setpixel Set an individual pixel in this image to a specific colour value
*getpixel Get the colour value of an individual pixel
*setresolution Set the resolution of the bitmap, specified in dots-per-inch
Pixels
sEncapsulates a GDI+ image, and serves as the base class for specific image types (for example, the gpBitmap class).
Class
    gdiplus.h
Pixels
gpimage
\The abstract base class for all other _GDIPLUS classes. Provides some basic utility methods.
5A pen object, which is used to draw lines and curves.
_gdiplus.vcx
gphatchbrush
gpsize
custom
gpbrush
gpbase
Class
gprectangle
gdiplus.h
gdiplus_locs.h
custom
_gdiplus.vcx
0A brush object which fills with a hatch pattern.
Fgdiprect_access
gdiprect_assign
gdiprectf_access
gdiprectf_assign
gdiplus.h
gdiplus_locs.h
gThe abstract base class for all Brush classes (for example, the gpSolidBrush and gpHatchBrush classes).
WEncapsulates a set of four numbers that represent the location and size of a rectangle.
Fgdipsize_access
gdipsize_assign
gdipsizef_access
gdipsizef_assign
QStores an ordered pair of numbers, typically the width and height of a rectangle.
zw width value
h height value
gdipsize String representing the GDI+ Size structure (2 x 32bit integers)
gdipsizef String representing the GDI+ SizeF structure (2 x 32bit single-precision floats)
*gdipsize_access
*gdipsize_assign
*gdipsizef_access
*gdipsizef_assign
*create Set point from individual coordinates
*set Set point coordinates from individual x,y values
eEncapsulates an ordered pair of x- and y-coordinates that defines a point in a two-dimensional plane.
gdiplus.h
gdiplus_locs.h
gdiplus.h
gdiplus_locs.h
gdiplus.h
gdiplus_locs.h
gdiplus.h
gdiplus_locs.h
style Get style information for this font
unit The unit of measure used by this font
fontname Font name eg "Arial"
size Get the em size in the unit of this Font object
*create Create font using specified font family, size and style
*style_access
*style_assign
*unit_access
*unit_assign
*getheight Get line spacing for a given Graphics object (in the units of that graphics object)
*fontname_access
*fontname_assign
*size_access
*size_assign
*getheightgivendpi Get line spacing of this font, for specified DPI
gdipfontcollectionhandle Handle to GDI+ FontCollection object. This class does not manage this handle at all, it merely uses it. Normally it will refer to the collection of installed fonts.
fontname Font name eg "Arial"
*create Create font family with specified name
*getgenericmonospace Gets a generic monospace FontFamily
*getgenericserif Gets a generic serif FontFamily
*getgenericsansserif Gets a generic sans serif FontFamily
*isstyleavailable Indicates whether the specified Font Style enumeration is available
*fontname_access
*fontname_assign
*getcellascent Get cell ascent in design units, of this font family in the specified  style
*getemheight Get the height in design units, of this font family in the specified  style
*getcelldescent Get cell descent in design units, of this font family in the specified  style
*getlinespacing Get line spacing in design units, of this font family in the specified  style
*getname Get name of this font family, in the specified language
TOOTHEROBJECT,
StringFromGUID2
ole32.dll
Internal error: buffer too small
TQGUID
LCUNICODESTRING
LNRESULT
STRINGFROMGUID2
OLE32
STRING
CLSIDFromString
ole32.dll
StringToGUID error code CC
LCSTRING
LCCLSID
LNRESULT
CLSIDFROMSTRING
OLE32
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
ARRAY
INTEGER
INTEGER
m.taArray[1,2]b
TAARRAY
TNCOLS
TNFIRSTCOL
LCSTRUCT
LNROWS
LNROW
LNCOL
LNFIRSTCOL
LNCOLSMINUSONEs
STRING
INTEGER
STRING
STRING
STRING
STRING
STRING
STRING
STRING
STRING
m.tcExprCC
TCALIAS
TNCOLS
TCEXPR1
TCEXPR2
TCEXPR3
TCEXPR4
TCEXPR5
TCEXPR6
TCEXPR7
TCEXPR8
LCSTRUCT
LNCOL
LNSAVEAREA
LNSAVERECNO
LAEXPR
NUMBER
NUMBER
VNEWVAL
ALLOWMODALMESSAGESH
VNEWVAL
QUIETONERRORH
VNEWVAL
IGNOREERRORS!
HADERROR
LASTERRORMESSAGE
HADERROR
LASTERRORMESSAGEH
VNEWVAL
APPNAME
TCCONTEXT
TCCLASSNAME
LCCLASSLIBRARY
LCMODULE
CLASSLIBRARY
OBJFACTORYHOOK
TCCONTEXT
RCCLASSNAME
RCCLASSLIBRARY
RCMODULE
INTEGER
STRING
INTEGER
error
CCCCC
error()
m.nError
program()
m.cMethod
lineno()
m.nLine
message()
m.lcMessage
message(1)
m.lcCodeLine
&lcOnError
Error:
Method:
Line:
NERROR
CMETHOD
NLINE
LCMESSAGE
LCCODELINE
HADERROR
IGNOREERRORS
STARTMODE
LCONERROR
LCERRORMSG
LASTERRORMESSAGE
QUIETONERROR
ALLOWMODALMESSAGES
APPNAME
clone,
guidtostringI
stringtoguid
makegdipsizef
makegdiprectf
makegdiparrayf|
makegdiparrayffromcursor
makegdippointf
allowmodalmessages_assignN
quietonerror_assign
ignoreerrors_assign&
clearerrors
geterrorstatus
getlasterrormessage
appname_assign$
objfactory
objfactoryhook
Error
Init3
_memberdata =
     653<?xml version="1.0" encoding="Windows-1252" standalone="yes"?><VFPData><memberdata name="create" type="method" display="Create"/><memberdata name="getgenericdefault" type="method" display="GetGenericDefault"/><memberdata name="getgenerictypographic" type="method" display="GetGenericTypographic"/><memberdata name="alignment" type="property" display="Alignment"/><memberdata name="formatflags" type="property" display="FormatFlags"/><memberdata name="hotkeyprefix" type="property" display="HotkeyPrefix"/><memberdata name="linealignment" type="property" display="LineAlignment"/><memberdata name="trimming" type="property" display="Trimming"/></VFPData>
Name = "gpstringformat"
)PROCEDURE clone
lparameters toBrush as GpBrush
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toBrush)='O' and m.toBrush.gdipHandle<>0)
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
this.Destroy()
local nHandle
nHandle = 0
Declare Integer GdipCloneBrush In GDIPlus.Dll ;
    integer nBrush, integer @nCloneBrush
This.gdipStatus = GdipCloneBrush( ;
    m.toBrush.gdipHandle ;
,    @nHandle)
this.gdipHandle= m.nHandle
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE Destroy
if This.gdipHandle!=0 and This.gdipOwnsThisHandle
    declare integer GdipDeleteBrush in gdiplus.dll ;
        integer nBrush
    GdipDeleteBrush( This.gdipHandle )
    This.gdipHandle = 0
    This.gdipOwnsThisHandle = .F.
endif
return dodefault()
ENDPROC
[_memberdata XML Metadata for customizable properties
allowmodalmessages Allow error handler to put up Messagebox on error
quietonerror If .T., error messages are suppressed
ignoreerrors If .T., errors are ignored: test return values from all functions!
haderror Flag indicating whether an error has occured - you can also check return value from most functions.
lasterrormessage Last error message (formatted)
appname Application name for use in user feedback
*clone Create a new object as an exact copy of an existing object
*guidtostring Convert GUID value from binary form to string representation
*stringtoguid Convert string representation of a GUID or CLSID to binary form (16 bytes)
*makegdipsizef Create GDI+ SizeF structure as string, from separate width,height parameters
*makegdiprectf Create GDI+ RectF structure as string, from separate x,y,w,h parameters
*makegdiparrayf Convert VFP array to a binary string (array of floats)
*makegdiparrayffromcursor Convert VFP cursor to a binary string (array of floats)
*makegdippointf Create GDI+ PointF structure as string, from separate x,y parameters
*allowmodalmessages_assign
*quietonerror_assign
*ignoreerrors_assign
*clearerrors Resets the object's error status
*geterrorstatus Has an error occurred?
*getlasterrormessage Get information about the last error to occur
*appname_assign
*objfactory Object factory function for creating _GDIPLUS objects. Override this or ObjFactoryHook to change the classes used
*objfactoryhook Modify behaviour of object factory for  _GDIPLUS objects. Override this or ObjFactory to change the classes used
_memberdata =
    1616<?xml version="1.0" encoding="Windows-1252" standalone="yes"?><VFPData><memberdata name="allowmodalmessages" type="property" display="AllowModalMessages"/><memberdata name="appname" type="property" display="AppName"/><memberdata name="clearerrors" type="method" display="ClearErrors"/><memberdata name="clone" type="method" display="Clone" favorites="True"/><memberdata name="geterrorstatus" type="method" display="GetErrorStatus"/><memberdata name="getlasterrormessage" type="method" display="GetLastErrorMessage"/><memberdata name="guidtostring" type="method" display="GUIDToString" favorites="True"/><memberdata name="haderror" type="property" display="hadError"/><memberdata name="ignoreerrors" type="property" display="IgnoreErrors" favorites="True"/><memberdata name="lasterrormessage" type="property" display="lastErrorMessage"/><memberdata name="makegdiparrayf" type="method" display="MakeGdipArrayF" favorites="True"/><memberdata name="makegdiparrayffromcursor" type="method" display="MakeGdipArrayFFromCursor" favorites="True"/><memberdata name="makegdippointf" type="method" display="MakeGdipPointF" favorites="True"/><memberdata name="makegdiprectf" type="method" display="MakeGdipRectF" favorites="True"/><memberdata name="makegdipsizef" type="method" display="MakeGdipSizeF" favorites="True"/><memberdata name="quietonerror" type="property" display="QuietOnError"/><memberdata name="stringtoguid" type="method" display="StringToGUID" favorites="True"/><memberdata name="objfactory" type="method" display="ObjFactory"/><memberdata name="objfactoryhook" type="method" display="ObjFactoryHook"/></VFPData>
allowmodalmessages = (inlist(_VFP.StartMode,0,4))
quietonerror = (not inlist(_VFP.StartMode,0,4))
lasterrormessage = ('')
appname = GDI+ FFC Library
Name = "gpbase"
_memberdata =
     482<VFPData><memberdata name="gdiphandle" type="property" display="gdipHandle"/><memberdata name="gdipownsthishandle" type="property" display="gdipOwnsThisHandle"/><memberdata name="gdipstatus" type="property" display="gdipStatus"/><memberdata name="gethandle" type="method" display="GetHandle" favorites="True"/><memberdata name="getstatus" type="method" display="GetStatus" favorites="True"/><memberdata name="sethandle" type="method" display="SetHandle" favorites="True"/></VFPData>
Name = "gpbrush"
hatchstyle = 0
_memberdata =
     369<VFPData><memberdata name="backgroundcolor" type="property" display="BackgroundColor" favorites="true"/><memberdata name="create" type="method" display="Create" favorites="true"/><memberdata name="foregroundcolor" type="property" display="ForegroundColor" favorites="true"/><memberdata name="hatchstyle" type="property" display="HatchStyle" favorites="true"/></VFPData>
Name = "gphatchbrush"
TCRECT
TCRECTF
NUMBER
NUMBER
NUMBER
NUMBER
TCPOINTF
TCRECTF
TCSIZEF
gprectange.gppoint_access
GpPoint
OBJFACTORY
TOPOINT
gprectange.gpsize_access
GpSize
OBJFACTORY
TOSIZE
GPPOINT
GPSIZE
TOPOINT
TOSIZE
GPPOINT
GDIPPOINTF
GPSIZE
GDIPSIZEF(
STRING
TCSIZE
STRING
TCPOINT
STRING
TCRECT
VNEWVAL
VNEWVAL
TOOTHERRECT
THIS
GDIPRECTF
TXORRECTORPOINT
TYORSIZE
CLONE
GDIPRECTF
CREATEFROMPOINTSIZE
CREATE
gdiprect_access,
gdiprect_assign
gdiprectf_accessv
gdiprectf_assign
create
x2_access
y2_access
gdippointf_access
gdippointf_assignA
gdipsizef_access
gdipsizef_assign
gppoint_access
gppoint_assign
gpsize_access
gpsize_assign
createfrompointsize
gdipsize_access^
gdipsize_assign
gdippoint_accessB
gdippoint_assignz
gdirect_access'
gdirect_assign
x2_assign
y2_assign
clone
Init{
GDIPHANDLE
GDIPSTATUS
TVNEWHANDLE
TLOWNSHANDLE
GDIPSTATUS
GDIPHANDLE
GDIPOWNSTHISHANDLE
GDI+ not initialized
VNEWVAL
GDIPSTATUS
WIN32LASTERROR
_WIN32_GETLASTERRORG
GetLastError
kernel32.dllQ
_win32_GetLastError
GETLASTERROR
KERNEL32
_WIN32_GETLASTERROR
gethandle,
getstatusQ
sethandlev
gdipstatus_assignG
gdiplus.h
gdiplus_locs.h
gdiplus.h
gdiplus_locs.h
gdiplus.h
gdiplus_locs.h
gdiplus.h
gdiplus_locs.h
gdiplus.h
gdiplus_locs.h
gdiplus.h
gdiplus_locs.h
gdiplus.h
gdiplus_locs.h
gdiplus.h
gdiplus_locs.h
gdiplus.h
gdiplus_locs.h
gdiplus.h
gdiplus_locs.h
^Encapsulates a GDI+ drawing surface. Provides methods for drawing on a window or other canvas.
Dargb Color in ARGB form (GDI+ native format), bits 24-31=alpha, 16-23=red, 8-15=green, 0-7=blue
foxrgb Color in Foxpro RGB form (bits 0-7=red, 8-15=green, 16-23=blue, no transparency)
red Red component, value 0-255
green Green component, value 0-255
blue Blue component, value 0-255
alpha Alpha (transparency) component, value 0-255 (255=completely opaque)
*foxrgb_access
*foxrgb_assign
*red_access
*red_assign
*green_access
*green_assign
*blue_access
*blue_assign
*alpha_access
*alpha_assign
*set Set colour value using separate R,G,B,Alpha components
]gdiphandle Underlying GDI+ handle for this object
gdipstatus Status code returned from last GDI+ function called (see Status enumeration)
gdipownsthishandle True if this VFP object owns the corresponding GDI+ object (and thus should dispose of it in its Destroy Event)
win32lasterror Win32 error code if GetStatus() returns GP_STATUS_Win32Error
*gethandle Return the underlying GDI+ handle for this object
*getstatus Return the status code from the last GDI+ function called on this object
*sethandle Set the native GDI+ handle if this has been obtained from an outside source
*gdipstatus_assign
x x-coordinate of point
y y-coordinate of point
gdippoint String representing the GDI+ Point structure (2 x 32bit integers)
gdippointf String representing the GDI+ PointF structure (2 x 32bit single-precision floats)
*gdippoint_access
*gdippoint_assign
*gdippointf_access
*gdippointf_assign
*create Set point from individual x,y coordinates
*set Set point from individual x,y coordinates
QPROCEDURE gethandle
return This.gdipHandle
ENDPROC
PROCEDURE getstatus
return This.gdipStatus
ENDPROC
PROCEDURE sethandle
lparameters tvNewHandle, tlOwnsHandle
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tvNewHandle)='N' and vartype(m.tlOwnsHandle)='L')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
* Assume if we came through this function that we do NOT own the graphics handle
* Thus destroy must not call GdipDelete..() on this handle
* This can be overridden by passing tlOwnsHandle=.T.
This.gdipHandle = m.tvNewHandle
This.gdipOwnsThisHandle = m.tlOwnsHandle
ENDPROC
PROCEDURE gdipstatus_assign
LPARAMETERS vNewVal
THIS.gdipStatus = m.vNewVal
do case
case m.vNewVal == GDIPLUS_STATUS_Win32Error
    This.win32LastError = _win32_GetLastError()
#if GDIPLUS_CHECK_GDIPLUSNOTINIT
case m.vNewVal == GDIPLUS_STATUS_GdiplusNotInitialized
    error _GDIPLUS_GDIPLUSNOTINIT_LOC
#endif
endcase
ENDPROC
PROCEDURE Init
declare integer GetLastError in kernel32.dll as _win32_GetLastError
return dodefault()
ENDPROC
CPROCEDURE create
lparameters tvColor
* tvColor may be ARGB or a Color object
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tvColor)$'ONL')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
this.Destroy()
local nHandle
nHandle = 0
Declare Integer GdipCreateSolidFill In GDIPlus.Dll ;
    integer nColor, Integer @nBrush
This.gdipStatus = GdipCreateSolidFill( ;
    icase(vartype(m.tvColor)='O',m.tvColor.ARGB,vartype(m.tvColor)='N',m.tvColor,0xFF000000) ;
,    @nHandle)
This.SetHandle(m.nHandle,.T.)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE brushcolor_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetSolidFillColor in gdiplus.dll ;
    integer, integer @
local nARGB
nARGB = 0
This.gdipStatus = GdipGetSolidFillColor( This.gdipHandle, @nARGB )
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nARGB,cast(null as I))
ENDPROC
PROCEDURE brushcolor_assign
LPARAMETERS tvColor
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tvColor)$'ON')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare Integer GdipSetSolidFillColor in gdiplus.dll ;
    integer nPen, integer nColor
This.gdipStatus = GdipSetSolidFillColor( This.gdipHandle,iif(vartype(m.tvColor)='O',m.tvColor.ARGB,m.tvColor))
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE Init
lparameters tvColor
if not dodefault()
    return .F.
endif
if pcount()>0
    return This.Create(m.tvColor)
endif
ENDPROC
pencolor The color of this Pen object.
penwidth Width of the pen object
pentype The style of lines drawn with this Pen object
alignment The alignment of this pen (see GP_PENALIGNMENT_ constants)
miterlimit The limit of the thickness of the join on a mitered corner
dashcap The cap style at the end of dashes, for dashed lines
linejoin Join style for the ends of two consecutive lines drawn with this Pen
startcap Cap style at the start of lines drawn with this Pen
endcap Cap style at the end of lines drawn with this Pen
dashstyle The style used for dashed lines
dashoffset The distance from the start of a line to the beginning of a dash pattern
penunit The unit for measuring width etc, see GDIPLUS_UNIT constants
*create Create pen in a given color
*createfrombrush Create pen from an existing _gdiplus brush object
*pencolor_access
*pencolor_assign
*penwidth_access
*penwidth_assign
*pentype_access
*pentype_assign
*alignment_access
*alignment_assign
*miterlimit_access
*miterlimit_assign
*dashcap_access
*dashcap_assign
*linejoin_access
*linejoin_assign
*startcap_access
*startcap_assign
*endcap_access
*endcap_assign
*dashstyle_access
*dashstyle_assign
*dashoffset_access
*dashoffset_assign
*penunit_access
*penunit_assign
_memberdata =
    1223<?xml version="1.0" encoding="Windows-1252" standalone="yes"?><VFPData><memberdata name="create" type="method" display="Create" favorites="True"/><memberdata name="createfrombrush" type="method" display="CreateFromBrush" favorites="True"/><memberdata name="dashcap" type="property" display="DashCap" favorites="True"/><memberdata name="dashoffset" type="property" display="DashOffset" favorites="True"/><memberdata name="dashstyle" type="property" display="DashStyle" favorites="True"/><memberdata name="endcap" type="property" display="EndCap" favorites="True"/><memberdata name="linejoin" type="property" display="LineJoin" favorites="True"/><memberdata name="miterlimit" type="property" display="MiterLimit" favorites="True"/><memberdata name="pencolor" type="property" display="PenColor" favorites="True"/><memberdata name="pentype" type="property" display="PenType" favorites="True"/><memberdata name="penunit" type="property" display="PenUnit" favorites="True"/><memberdata name="penwidth" type="property" display="PenWidth" favorites="True"/><memberdata name="startcap" type="property" display="StartCap" favorites="True"/><memberdata name="alignment" type="property" display="Alignment" favorites="True"/></VFPData>
Name = "gppen"
Lx = 0
y = 0
_memberdata =
     527<?xml version="1.0" encoding="Windows-1252" standalone="yes"?><VFPData><memberdata name="create" type="method" display="Create" favorites="True"/><memberdata name="set" type="method" display="Set" favorites="True"/><memberdata name="gdippoint" type="property" display="GdipPoint" favorites="True"/><memberdata name="gdippointf" type="property" display="GdipPointF" favorites="True"/><memberdata name="x" type="property" display="x" favorites="True"/><memberdata name="y" type="property" display="y" favorites="True"/></VFPData>
Name = "gppoint"
BPROCEDURE gdippoint_access
* Convert object into 2 x 32-bit integers
* Modify bintoc() output into little-endian with normal sign bit
return ;
    bintoc(This.X,'4RS') + bintoc(This.Y,'4RS')
ENDPROC
PROCEDURE gdippoint_assign
LPARAMETERS tcPoint
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcPoint)='C' and len(m.tcPoint)=8)
    error 11 && Function argument
    return .F.
endif
#endif
This.X = ctobin(substr(m.tcPoint,1,4),'RS')
This.Y = ctobin(substr(m.tcPoint,5,4),'RS')
ENDPROC
PROCEDURE gdippointf_access
return ;
    bintoc(This.X,'F') + bintoc(This.Y,'F')
ENDPROC
PROCEDURE gdippointf_assign
LPARAMETERS tcPointF
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcPointF)='C' and len(m.tcPointF)=8)
    error 11 && Function argument
    return .F.
endif
#endif
This.X = ctobin(substr(m.tcPointF,1,4),'N')
This.Y = ctobin(substr(m.tcPointF,5,4),'N')
ENDPROC
PROCEDURE create
lparameters tx,ty
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tx)='N' and vartype(m.ty)='N')
    error 11 && Function argument
    return .F.
endif
#endif
This.X = m.tx
This.Y = m.ty
ENDPROC
PROCEDURE set
lparameters tx as Number,ty as Number
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tx)='N' and vartype(m.ty)='N')
    error 11 && Function argument
    return .F.
endif
#endif
This.X = m.tx
This.Y = m.ty
ENDPROC
PROCEDURE Init
lparameters tXorPoint,ty
if not dodefault()
    return .F.
endif
do case
case pcount()=1 and vartype(m.tXorPoint)='O'
    * Passed an object - presumably an existing Point object
    This.Clone(m.tXorPoint)
case pcount()=1 and vartype(m.tXorPoint)='C'
    * Passed a string (structure)
    * Assume PointF as this is preferred format
    This.gdipPointF = m.tXorPoint
case pcount()>=2
    * Separate components
    This.Create(m.tXorPoint,m.ty)
endcase
ENDPROC
PROCEDURE clone
lparameters toOtherPoint as GpPoint
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toOtherPoint)='O' ;
    and vartype(toOtherPoint.X)='N' and vartype(toOtherPoint.Y)='N')
        error 11 && Function argument
        return .F.
    endif
    #endif
This.X = m.toOtherPoint.X
This.Y = m.toOtherPoint.Y
ENDPROC
gdiphandle = 0
gdipstatus = 0
win32lasterror = 0
_memberdata =
     544<?xml version="1.0" encoding="Windows-1252" standalone="yes"?><VFPData><memberdata name="gdiphandle" type="property" display="gdipHandle"/><memberdata name="gdipownsthishandle" type="property" display="gdipOwnsThisHandle"/><memberdata name="gdipstatus" type="property" display="gdipStatus"/><memberdata name="gethandle" type="method" display="GetHandle" favorites="True"/><memberdata name="getstatus" type="method" display="GetStatus" favorites="True"/><memberdata name="sethandle" type="method" display="SetHandle" favorites="True"/></VFPData>
Name = "gpobject"
gdipfontcollectionhandle = 0
_memberdata =
    1156<?xml version="1.0" encoding="Windows-1252" standalone="yes"?><VFPData><memberdata name="create" type="method" display="Create" favorites="True"/><memberdata name="fontname" type="property" display="FontName" favorites="True"/><memberdata name="gdipfontcollectionhandle" type="property" display="gdipFontCollectionHandle"/><memberdata name="getcellascent" type="method" display="GetCellAscent" favorites="True"/><memberdata name="getcelldescent" type="method" display="GetCellDescent" favorites="True"/><memberdata name="getemheight" type="method" display="GetEmHeight" favorites="True"/><memberdata name="getgenericmonospace" type="method" display="GetGenericMonospace" favorites="True"/><memberdata name="getgenericsansserif" type="method" display="GetGenericSansSerif" favorites="True"/><memberdata name="getgenericserif" type="method" display="GetGenericSerif" favorites="True"/><memberdata name="getlinespacing" type="method" display="GetLineSpacing" favorites="True"/><memberdata name="getname" type="method" display="GetName" favorites="True"/><memberdata name="isstyleavailable" type="method" display="IsStyleAvailable" favorites="True"/></VFPData>
Name = "gpfontfamily"
argb = -16777216
_memberdata =
     594<?xml version="1.0" encoding="Windows-1252" standalone="yes"?><VFPData><memberdata name="alpha" type="property" display="Alpha" favorites="True"/><memberdata name="argb" type="property" display="ARGB" favorites="True"/><memberdata name="blue" type="property" display="Blue" favorites="True"/><memberdata name="foxrgb" type="property" display="FoxRGB" favorites="True"/><memberdata name="green" type="property" display="Green" favorites="True"/><memberdata name="red" type="property" display="Red" favorites="True"/><memberdata name="set" type="method" display="Set" favorites="True"/></VFPData>
Name = "gpcolor"
Gw = 0
h = 0
_memberdata =
     523<?xml version="1.0" encoding="Windows-1252" standalone="yes"?><VFPData><memberdata name="create" type="method" display="Create" favorites="True"/><memberdata name="set" type="method" display="Set" favorites="True"/><memberdata name="gdipsize" type="property" display="GdipSize" favorites="True"/><memberdata name="gdipsizef" type="property" display="GdipSizeF" favorites="True"/><memberdata name="w" type="property" display="w" favorites="True"/><memberdata name="h" type="property" display="h" favorites="True"/></VFPData>
Name = "gpsize"
PROCEDURE gdipsize_access
* Convert object into 2 x 32-bit integers
* Modify bintoc() output into little-endian with normal sign bit
return ;
    bintoc(This.W,'4RS')+bintoc(This.H,'4RS')
ENDPROC
PROCEDURE gdipsize_assign
LPARAMETERS tcSize as String
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcSize)='C' and len(m.tcSize)=8)
    error 11 && Function argument
    return .F.
endif
#endif
This.W = ctobin(substr(m.tcSize,1,4),'RS')
This.H = ctobin(substr(m.tcSize,5,4),'RS')
ENDPROC
PROCEDURE gdipsizef_access
return ;
    bintoc(This.W,'F') + bintoc(This.H,'F')
ENDPROC
PROCEDURE gdipsizef_assign
LPARAMETERS tcSizeF as String
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcSizeF)='C' and len(m.tcSizeF)=8)
    error 11 && Function argument
    return .F.
endif
#endif
This.W = ctobin(substr(m.tcSizeF,1,4),'N')
This.H = ctobin(substr(m.tcSizeF,5,4),'N')
ENDPROC
PROCEDURE create
lparameters tw,th
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tw)='N' and vartype(m.th)='N')
    error 11 && Function argument
    return .F.
endif
#endif
This.W = m.tw
This.H = m.th
ENDPROC
PROCEDURE set
lparameters tw,th
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tw)='N' and vartype(m.th)='N')
    error 11 && Function argument
    return .F.
endif
#endif
This.W = m.tw
This.H = m.th
ENDPROC
PROCEDURE clone
lparameters toOtherSize
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toOtherSize)='O' ;
    and vartype(toOtherSize.W)='N' and vartype(toOtherSize.H)='N')
    error 11 && Function argument
    return .F.
endif
#endif
This.W = m.toOtherSize.W
This.H = m.toOtherSize.H
ENDPROC
PROCEDURE Init
lparameters tWorSize,th
if not dodefault()
    return .F.
endif
do case
case pcount()=1 and vartype(m.tWorSize)='O'
    * Passed an object - presumably an existing Size object
    This.Clone(m.tWorSize)
case pcount()=1 and vartype(m.tWorSize)='C'
    * Passed a string (structure)
    * Assume SizeF as this is preferred format
    This.gdipSizeF = m.tWorSize
case pcount()>=2
    * Separate components
    This.Create(m.tWorSize,m.th)
endcase
ENDPROC
_memberdata =
     725<?xml version="1.0" encoding="Windows-1252" standalone="yes"?><VFPData><memberdata name="fontname" type="property" display="FontName" favorites="True"/><memberdata name="getheight" type="method" display="GetHeight" favorites="True"/><memberdata name="getheightgivendpi" type="method" display="GetHeightGivenDPI" favorites="True"/><memberdata name="create" type="method" display="Create" favorites="True"/><memberdata name="size" type="property" display="Size" favorites="True"/><memberdata name="style" type="property" display="Style" favorites="True"/><memberdata name="sizeinpoints" type="property" display="SizeInPoints" favorites="True"/><memberdata name="unit" type="property" display="Unit" favorites="True"/></VFPData>
Name = "gpfont"
GREEN
BLUE~
TNRGB
ARGBp
TNNEWVAL
ARGBp
TNNEWVAL
ARGBj
TNNEWVAL
ARGBp
TNNEWVAL
TNRED
TNGREEN
TNBLUE
TNALPHA
ARGBk
GPCOLOR
TOOTHERCOLOR
INTEGER
INTEGER
INTEGER
INTEGER
TNREDORARGB
TNGREEN
TNBLUE
TNALPHA
foxrgb_access,
foxrgb_assignf
red_access
red_assign&
green_access
green_assign
blue_accesse
blue_assign
alpha_access
alpha_assign9
clone
STRING
TCSIZE
STRING
TCSIZEF
TOOTHERSIZE
TWORSIZE
CLONE
GDIPSIZEF
CREATE
gdipsize_access,
gdipsize_assignd
gdipsizef_access
gdipsizef_assignD
create
clone
GPBRUSH
GdipCloneBrush
GDIPlus.Dll
TOBRUSH
GDIPHANDLE
GDIPSTATUS
DESTROY
NHANDLE
GDIPCLONEBRUSH
GDIPLUS
GdipDeleteBrush
gdiplus.dll
GDIPHANDLE
GDIPOWNSTHISHANDLE
GDIPDELETEBRUSH
GDIPLUS
clone,
Destroyr
&_memberdata =
     502<?xml version="1.0" encoding="Windows-1252" standalone="yes"?><VFPData><memberdata name="create" type="method" display="Create" favorites="True"/><memberdata name="createfromgraphics" type="method" display="CreateFromGraphics" favorites="True"/><memberdata name="getpixel" type="method" display="GetPixel" favorites="True"/><memberdata name="setpixel" type="method" display="SetPixel" favorites="True"/><memberdata name="setresolution" type="method" display="SetResolution" favorites="True"/></VFPData>
Name = "gpbitmap"
jx = 0
y = 0
w = 0
h = 0
_memberdata =
    1307<?xml version="1.0" encoding="Windows-1252" standalone="yes"?><VFPData><memberdata name="create" type="method" display="Create" favorites="True"/><memberdata name="createfrompointsize" type="method" display="CreateFromPointSize" favorites="True"/><memberdata name="set" type="method" display="Set" favorites="True"/><memberdata name="gdippoint" type="property" display="GdipPoint" favorites="True"/><memberdata name="gdippointf" type="property" display="GdipPointF" favorites="True"/><memberdata name="x" type="property" display="x" favorites="True"/><memberdata name="y" type="property" display="y" favorites="True"/><memberdata name="gdipsize" type="property" display="GdipSize" favorites="True"/><memberdata name="gdipsizef" type="property" display="GdipSizeF" favorites="True"/><memberdata name="w" type="property" display="w" favorites="True"/><memberdata name="h" type="property" display="h" favorites="True"/><memberdata name="x2" type="property" display="x2" favorites="True"/><memberdata name="y2" type="property" display="y2" favorites="True"/><memberdata name="gdiprect" type="property" display="GdipRect" favorites="True"/><memberdata name="gdiprectf" type="property" display="GdipRectF" favorites="True"/><memberdata name="gdirect" type="property" display="GdiRect" favorites="True"/></VFPData>
Name = "gprectangle"
x x-coordinate of upper-left corner of rectangle
y y-coordinate of upper-left corner of rectangle
w Width of rectangle
h Height of rectangle
gdiprect String representing the GDI+ Rect structure (4 x 32bit integers)
gdiprectf String representing the GDI+ RectF structure (4 x 32bit single-precision floats)
x2 X-Coordinate of bottom right corner of rectangle
y2 Y-Coordinate of bottom right corner of rectangle
gdippointf GDI+ PointF structure for the x,y position of this rectange
gdipsizef GDI+ SizeF structure for the width and height of this rectange
gppoint Origin of the rectange (x,y) as a GpPoint object
gpsize Width and Height of the rectangle as a GpSize object
gdipsize GDI+ Size (integers) structure for the width and height of this rectange
gdippoint GDI+ Point (integers) structure for the x,y position of this rectange
gdirect String containing Win32/GDI "RECT" structure (integers, x1,y1,x2,y2)
*gdiprect_access
*gdiprect_assign
*gdiprectf_access
*gdiprectf_assign
*create Set rectangle from individual coordinates
*x2_access
*y2_access
*set Set rectangle coordinates from individual components
*gdippointf_access
*gdippointf_assign
*gdipsizef_access
*gdipsizef_assign
*gppoint_access
*gppoint_assign
*gpsize_access
*gpsize_assign
*createfrompointsize Set rectangle from separate point and size objects
*gdipsize_access
*gdipsize_assign
*gdippoint_access
*gdippoint_assign
*gdirect_access
*gdirect_assign
*x2_assign
*y2_assign
STRING
LOGICAL
GdipLoadImageFromFileICM
gdiplus.dll
GdipLoadImageFromFile
gdiplus.dll
TCFILENAME
TLUSEEMBEDDEDCOLORMGMT
GDIPSTATUS
GDIPLOADIMAGEFROMFILEICM
GDIPLUS
DESTROY
NHANDLE
SETHANDLE
GDIPLOADIMAGEFROMFILE
STRING
GDI+ object not created or associated
GdipSaveImageToFile
gdiplus.dll
GlobalFree
kernel32.dll
rvEncoderParams[1]b
TCFILENAME
TVCLSIDENCODER
RVENCODERPARAMS
GDIPHANDLE
GDIPSTATUS
LQCLSIDENCODER
STRINGTOGUID
GETENCODERCLSID
GDIPSAVEIMAGETOFILE
GDIPLUS
GLOBALFREE
KERNEL32
LNENCODERPARAMSPTR
GETENCODERPARAMSFROMARRAY
GETENCODERPARAMSFROMSTRING
INTEGER
INTEGER
GDI+ object not created or associated
GdipGetImageThumbnail
gdiplus.dll
gpimage.getthumbnailimage
GpImage
TNWIDTH
TNHEIGHT
GDIPHANDLE
GDIPSTATUS
GDIPGETIMAGETHUMBNAIL
GDIPLUS
LNNEWIMAGE
OBJFACTORYx
INTEGER
INTEGER
GlobalAlloc
kernel32.dll
GlobalFree
kernel32.dll
lstrlenW
kernel32.dllQ
__win32_lstrlenW_ptr
GdipGetImageEncodersSize
gdiplus.dll
GdipGetImageEncoders
gdiplus.dll
INTEGER
INTEGER
INTEGER
TVSEARCHVALUE
GDIPSTATUS
LNNUMENCODERS
LNBUFFERSIZE
GLOBALALLOC
KERNEL32
GLOBALFREE
LSTRLENW
__WIN32_LSTRLENW_PTR
GDIPGETIMAGEENCODERSSIZE
GDIPLUS
GDIPGETIMAGEENCODERS
LNBUFFERPTR
LNSTRINGPTR
LIENCODER
LCFOUNDCLSID
LCUNICODEMIMETYPE
LCFORMATID
INTEGER
GDI+ object not created or associated
GdipGetImageBounds
gdiplus.dll
gpimage.getbounds
GpRectangle
TNUNIT
GDIPSTATUS
GDIPHANDLE
GDIPGETIMAGEBOUNDS
GDIPLUS
LCRECTF
OBJFACTORY
GDI+ object not created or associated
GdipImageRotateFlip
gdiplus.dll
TNROTATEFLIPTYPE
GDIPHANDLE
GDIPSTATUS
GDIPIMAGEROTATEFLIP
GDIPLUS
GDI+ object not created or associated
GdipGetImageFlags
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETIMAGEFLAGS
GDIPLUS
NVALUE
Flags
NEWVAL
GDI+ object not created or associated
GdipGetImageHorizontalResolution
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETIMAGEHORIZONTALRESOLUTION
GDIPLUS
NVALUE.
HorizontalResolution
NEWVAL
GDI+ object not created or associated
GdipGetImageVerticalResolution
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETIMAGEVERTICALRESOLUTION
GDIPLUS
NVALUE,
VerticalResolution
NEWVAL
GDI+ object not created or associated
GdipGetImageHeight
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETIMAGEHEIGHT
GDIPLUS
NVALUE%
ImageHeight
NEWVAL
GDI+ object not created or associated
GdipGetImageWidth
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETIMAGEWIDTH
GDIPLUS
NVALUE$
ImageWidth
NEWVAL
GDI+ object not created or associated
GdipGetImageRawFormat
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETIMAGERAWFORMAT
GDIPLUS
SGUID#
RawFormat
NEWVAL
GDI+ object not created or associated
GdipGetImagePixelFormat
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETIMAGEPIXELFORMAT
GDIPLUS
NVALUE%
PixelFormat
NEWVALi
INTEGER
INTEGER
GlobalAlloc
kernel32.dll
GlobalFree
kernel32.dll
lstrlenW
kernel32.dllQ
__win32_lstrlenW_ptr
GdipGetImageDecodersSize
gdiplus.dll
GdipGetImageDecoders
gdiplus.dll
INTEGER
INTEGER
INTEGER
TVSEARCHVALUE
GDIPSTATUS
LNNUMDECODERS
LNBUFFERSIZE
GLOBALALLOC
KERNEL32
GLOBALFREE
LSTRLENW
__WIN32_LSTRLENW_PTR
GDIPGETIMAGEDECODERSSIZE
GDIPLUS
GDIPGETIMAGEDECODERS
LNBUFFERPTR
LNSTRINGPTR
LIDECODER
LCFOUNDCLSID
LCUNICODEMIMETYPE
LCFORMATIDB
GDI+ object not created or associated
GdipGetImageDimension
gdiplus.dll
gpimage.physicaldimension_access
GpSize
GDIPHANDLE
GDIPSTATUS
GDIPGETIMAGEDIMENSION
GDIPLUS
LNWIDTH
LNHEIGHT
OBJFACTORY+
PhysicalDimension
NEWVAL
Invalid encoder parameter string
Invalid encoder parameter name "
LQCLSIDENCODER
TCENCODERPARAMS
LNCOUNT
LAPARAMS
LNPOS
LCNAME
LCVALUE
LQGUID
LNTYPE
LCSCRATCH
LIPARAM
GETENCODERPARAMINFO
GETENCODERPARAMSFROMARRAYw
raEncoderParams[1]b
Invalid encoder parameter name "
Invalid data type for encoder parameter name
Invalid encoder parameter value
GlobalAlloc
kernel32.dll
LQCLSIDENCODER
RAENCODERPARAMS
LNPARAMCOUNT
LAPARAM
LIPARAM
LCNAME
LQPARAMID
LVVALUE
LNVALUE
LNBUFFERSIZE
LNBUFFERPTR
GETENCODERPARAMINFO
GLOBALALLOC
KERNEL32
_GDIPLUS_LOC_MALLOCFAIL
LNARRAYPTR
LNVALUEPTRI
QUALITY
TRANSFORMATION
LUMINANCETABLE
CHROMINANCETABLE
COMPRESSION
COLORDEPTH
SAVEFLAG
TCPARAMNAME
RQGUID
RNDATATYPE
GDI+ object not created or associated
GdipGetPropertyCount
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
LNCOUNT
GDIPGETPROPERTYCOUNT
GDIPLUS
GDI+ object not created or associated
raPropIDList[1]b
GdipGetPropertyIdList
gdiplus.dll
RAPROPIDLIST
GDIPHANDLE
GDIPSTATUS
LNCOUNT
LCIDLIST
LNINDEX
GETPROPERTYCOUNT
GDIPGETPROPERTYIDLIST
GDIPLUS
INTEGER
GDI+ object not created or associated
GlobalAlloc
kernel32.dll
GlobalFree
kernel32.dll
lstrlenA
kernel32.dllQ
__win32_lstrlenA_ptr
GdipGetPropertyItemSize
gdiplus.dll
GdipGetPropertyItem
gdiplus.dll
INTEGER
INTEGER
INTEGER
Memory allocation failed
Unknown or invalid property tag type
TNPROPID
GDIPHANDLE
GDIPSTATUS
GLOBALALLOC
KERNEL32
GLOBALFREE
LSTRLENA
__WIN32_LSTRLENA_PTR
GDIPGETPROPERTYITEMSIZE
GDIPLUS
GDIPGETPROPERTYITEM
LNBUFFERSIZE
LNBUFFERPTR
LNSTRINGPTR
LNPROPERTYTAGTYPE
LNVALUELEN
LNVALUEPTR
LVRETURN
LNNUM
LNDEN
GPIMAGE
GdipCloneImage
GDIPlus.Dll
TOIMAGE
DESTROY
NHANDLE
GDIPHANDLE
GDIPSTATUS
GDIPCLONEIMAGE
GDIPLUS
GdipDisposeImage
GDIPlus.Dll
GDIPHANDLE
GDIPOWNSTHISHANDLE
GDIPDISPOSEIMAGE
GDIPLUS
TVPARAM1
TVPARAM2
GDIPSTATUS
SETHANDLE
CREATEFROMFILE
createfromfile,
savetofile
getthumbnailimage
getencoderclsid
getbounds0
rotateflip
flags_accessi
flags_assign
horizontalresolution_access
horizontalresolution_assign"
verticalresolution_access\
verticalresolution_assign
imageheight_access
imageheight_assign
imagewidth_accessQ
imagewidth_assign
rawformat_access
rawformat_assign
pixelformat_access,
pixelformat_assignl
getdecoderclsid
physicaldimension_access
physicaldimension_assign
getencoderparamsfromstring
getencoderparamsfromarray
getencoderparaminfo
getpropertycount
getpropertyidlist
getpropertyitem&6
clone
Destroy
NUMBER
NUMBER
GdipCreatePen1
GDIPlus.Dll
TVCOLOR
TNWIDTH
TNUNIT
DESTROY
NHANDLE
GDIPCREATEPEN1
GDIPLUS
GDIPSTATUS
ARGB
SETHANDLEN
BRUSH
NUMBER
NUMBER
GdipCreatePen2
GDIPlus.Dll
TOBRUSH
TNWIDTH
TNUNIT
TOPEN
GDIPHANDLE
GDIPSTATUS
DESTROY
NHANDLE
GDIPCREATEPEN2
GDIPLUS
GETHANDLE
SETHANDLE
GDI+ object not created or associated
GdipGetPenColor
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPENCOLOR
GDIPLUS
NARGB
GDI+ object not created or associated
GdipSetPenColor
gdiplus.dll
TVCOLOR
GDIPHANDLE
GDIPSTATUS
GDIPSETPENCOLOR
GDIPLUS
GDI+ object not created or associated
GdipGetPenWidth
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPENWIDTH
GDIPLUS
NWIDTH
GDI+ object not created or associated
GdipSetPenWidth
gdiplus.dll
TNNEWWIDTH
GDIPSTATUS
GDIPHANDLE
GDIPSETPENWIDTH
GDIPLUS
GDI+ object not created or associated
GdipGetPenFillType
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPENFILLTYPE
GDIPLUS
NTYPE!
PenType
VNEWVAL
GDI+ object not created or associated
GdipGetPenMode
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPENMODE
GDIPLUS
NTYPE
GDI+ object not created or associated
GdipSetPenMode
gdiplus.dll
TNVALUE
GDIPHANDLE
GDIPSTATUS
GDIPSETPENMODE
GDIPLUS
GDI+ object not created or associated
GdipGetPenMiterLimit
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPENMITERLIMIT
GDIPLUS
NLIMIT
GDI+ object not created or associated
GdipSetPenMiterLimit
gdiplus.dll
TNNEWVALUE
GDIPSTATUS
GDIPHANDLE
GDIPSETPENMITERLIMIT
GDIPLUS
GDI+ object not created or associated
GdipGetPenDashCap197819
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPENDASHCAP197819
GDIPLUS
NTYPE
GDI+ object not created or associated
GdipSetPenDashCap197819
gdiplus.dll
TNVALUE
GDIPHANDLE
GDIPSTATUS
GDIPSETPENDASHCAP197819
GDIPLUS
GDI+ object not created or associated
GdipGetPenLineJoin
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPENLINEJOIN
GDIPLUS
NTYPE
GDI+ object not created or associated
GdipSetPenLineJoin
gdiplus.dll
TNVALUE
GDIPHANDLE
GDIPSTATUS
GDIPSETPENLINEJOIN
GDIPLUS
GDI+ object not created or associated
GdipGetPenStartCap
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPENSTARTCAP
GDIPLUS
NTYPE
GDI+ object not created or associated
GdipSetPenStartCap
gdiplus.dll
TNVALUE
GDIPHANDLE
GDIPSTATUS
GDIPSETPENSTARTCAP
GDIPLUS
GDI+ object not created or associated
GdipGetPenEndCap
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPENENDCAP
GDIPLUS
NTYPE
GDI+ object not created or associated
GdipSetPenEndCap
gdiplus.dll
TNVALUE
GDIPHANDLE
GDIPSTATUS
GDIPSETPENENDCAP
GDIPLUS
GDI+ object not created or associated
GdipGetPenDashStyle
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPENDASHSTYLE
GDIPLUS
NTYPE
GDI+ object not created or associated
GdipSetPenDashStyle
gdiplus.dll
TNVALUE
GDIPHANDLE
GDIPSTATUS
GDIPSETPENDASHSTYLE
GDIPLUS
GDI+ object not created or associated
GdipGetPenDashOffset
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPENDASHOFFSET
GDIPLUS
NOFFSET
GDI+ object not created or associated
GdipSetPenDashOffset
gdiplus.dll
TNNEWVALUE
GDIPSTATUS
GDIPHANDLE
GDIPSETPENDASHOFFSET
GDIPLUS
GDI+ object not created or associated
GdipGetPenUnit
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPENUNIT
GDIPLUS
NTYPE
GDI+ object not created or associated
GdipSetPenUnit
gdiplus.dll
TNVALUE
GDIPHANDLE
GDIPSTATUS
GDIPSETPENUNIT
GDIPLUS
GPPEN
GdipClonePen
GDIPlus.Dll
TOPEN
DESTROY
NHANDLE
GDIPHANDLE
GDIPSTATUS
GDIPCLONEPEN
GDIPLUS
NUMBER
NUMBER
TVCOLOR
TNWIDTH
TNUNIT
CREATEx
GdipDeletePen
GDIPlus.Dll
GDIPHANDLE
GDIPOWNSTHISHANDLE
GDIPDELETEPEN
GDIPLUS
create,
createfrombrush
pencolor_access
pencolor_assign
penwidth_access:
penwidth_assignr
pentype_access
pentype_assign
alignment_access
alignment_assignI
miterlimit_access
miterlimit_assign
dashcap_access
dashcap_assign]
linejoin_access
linejoin_assign
startcap_access0
startcap_assigne
endcap_access
endcap_assign
dashstyle_access&
dashstyle_assign]
dashoffset_access
dashoffset_assign
penunit_access=
penunit_assignj
clone
Destroy
#PROCEDURE foxrgb_access
return rgb(This.Red,This.Green,This.Blue)
ENDPROC
PROCEDURE foxrgb_assign
LPARAMETERS tnRGB
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnRGB)=='N')
    error 11 && Function argument
endif
#endif
This.ARGB = bitor( 0xFF000000 ;
    , bitlshift(bitand(m.tnRGB,0xFF),16) ;
    , bitand(m.tnRGB,0x0000FF00) ;
    , bitrshift(bitand(m.tnRGB,0x00FF0000),16) )
ENDPROC
PROCEDURE red_access
RETURN bitand(bitrshift(This.ARGB,16),0xFF)
ENDPROC
PROCEDURE red_assign
LPARAMETERS tnNewVal
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnNewVal)='N' and between(m.tnNewVal,0,255))
    error 11 && Function argument
endif
#endif
This.ARGB = bitor( bitand(This.ARGB,0xFF00FFFF), bitlshift(m.tnNewVal,16))
ENDPROC
PROCEDURE green_access
RETURN bitand(bitrshift(This.ARGB,8),0xFF)
ENDPROC
PROCEDURE green_assign
LPARAMETERS tnNewVal
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnNewVal)='N' and between(m.tnNewVal,0,255))
    error 11 && Function argument
endif
#endif
This.ARGB = bitor( bitand(This.ARGB,0xFF00FFFF), bitlshift(m.tnNewVal,8))
ENDPROC
PROCEDURE blue_access
RETURN bitand(This.ARGB,0xFF)
ENDPROC
PROCEDURE blue_assign
LPARAMETERS tnNewVal
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnNewVal)='N' and between(m.tnNewVal,0,255))
    error 11 && Function argument
endif
#endif
This.ARGB = bitor( bitand(This.ARGB,0xFFFFFF00), m.tnNewVal)
ENDPROC
PROCEDURE alpha_access
RETURN bitand(bitrshift(This.ARGB,24),0xFF)
ENDPROC
PROCEDURE alpha_assign
LPARAMETERS tnNewVal
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnNewVal)='N' and between(m.tnNewVal,0,255))
    error 11 && Function argument
endif
#endif
This.ARGB = bitor( bitand(This.ARGB,0xFF00FFFF), bitlshift(m.tnNewVal,24))
ENDPROC
PROCEDURE set
lparameters tnRed, tnGreen, tnBlue, tnAlpha
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnRed)='N' and between(m.tnRed,0,255) ;
    and vartype(m.tnGreen)='N' and between(m.tnGreen,0,255) ;
    and vartype(m.tnBlue)='N' and between(m.tnBlue,0,255) ;
    and vartype(m.tnAlpha)='L' or (vartype(m.tnAlpha)='N' and between(m.tnAlpha,0,255)))
    error 11 && Function argument
endif
#endif
This.ARGB = ;
    iif(vartype(m.tnAlpha)='N',0x1000000*m.tnAlpha,0xFF000000) ;
    + 0x10000*m.tnRed ;
    + 0x100 * m.tnGreen ;
    + m.tnBlue
ENDPROC
PROCEDURE clone
lparameters toOtherColor as GpColor
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toOtherColor)='O' and pemstatus(toOtherColor,'argb',5))
    error 11 && Function argument
    return .F.
endif
#endif
This.ARGB = m.toOtherColor.ARGB
ENDPROC
PROCEDURE Init
lparameters tnRedOrARGB as Integer, tnGreen as Integer, tnBlue as Integer, tnAlpha as integer
#if GDIPLUS_CHECK_PARAMS
if !(inlist(pcount(),0,1,3,4))
    error 11 && Function argument
    return .F.
endif
#endif
if not dodefault()
    return .F.
endif
do case
case pcount()=1
    #if GDIPLUS_CHECK_PARAMS
    if !(vartype(m.tnRedOrARGB)='N')
        error 11 && Function argument
    endif
    #endif
    This.ARGB = int(m.tnRedOrARGB)
case pcount()>=3
    This.Set(tnRedOrARGB, tnGreen, tnBlue, m.tnAlpha )
endcase
ENDPROC
PROCEDURE create
lparameters tnStyle, tvForeColor, tvBackColor
* tnStyle must be HatchStyle constant
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnStyle)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
this.Destroy()
local nHandle
nHandle = 0
Declare Integer GdipCreateHatchBrush In GDIPlus.Dll ;
    integer nHatchStyle, integer nForeColor, integer nBackColor, Integer @nBrush
This.gdipStatus = GdipCreateHatchBrush( ;
    m.tnStyle ;
,    iif(vartype(m.tvForeColor)='O',m.tvForeColor.ARGB,iif(vartype(m.tvForeColor)='N',m.tvForeColor,0xFF000000)) ;
,    iif(vartype(m.tvBackColor)='O',m.tvBackColor.ARGB,iif(vartype(m.tvBackColor)='N',m.tvBackColor,0xFFFFFFFF)) ;
,    @nHandle)
This.SetHandle(m.nHandle,.T.)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE foregroundcolor_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetHatchForegroundColor in gdiplus.dll ;
    integer, integer @
local nARGB
nARGB = 0
This.gdipStatus = GdipGetHatchForegroundColor( This.gdipHandle, @nARGB )
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nARGB,cast(null as I))
ENDPROC
PROCEDURE foregroundcolor_assign
LPARAMETERS tvColor
error 1743, 'ForegroundColor'
ENDPROC
PROCEDURE backgroundcolor_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetHatchBackgroundColor in gdiplus.dll ;
    integer, integer @
local nARGB
nARGB = 0
This.gdipStatus = GdipGetHatchBackgroundColor( This.gdipHandle, @nARGB )
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nARGB,cast(null as I))
ENDPROC
PROCEDURE backgroundcolor_assign
LPARAMETERS tvColor
error 1743, 'BackgroundColor'
ENDPROC
PROCEDURE hatchstyle_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetHatchStyle in gdiplus.dll ;
    integer, integer @
local nHatchStyle
nHatchStyle = 0
This.gdipStatus = GdipGetHatchStyle( This.gdipHandle, @nHatchStyle )
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nHatchStyle,cast(null as I))
ENDPROC
PROCEDURE hatchstyle_assign
LPARAMETERS vNewVal
error 1743, 'HatchStyle'
ENDPROC
PROCEDURE Init
lparameters tnStyle, tvForeColor, tvBackColor
if not dodefault()
    return .F.
endif
if pcount()>0
    return This.Create(m.tnStyle, m.tvForeColor, m.tvBackColor)
endif
ENDPROC
_flags Attribute flags for this image
horizontalresolution Horizontal resolution in pixels-per-inch
verticalresolution Vertical resolution in pixels-per-inch
imageheight Height of this image
imagewidth Width of this image
rawformat Get the format of this image (as a GUID)
pixelformat Pixel format - see GP_PIXELFORMAT constants
physicaldimension Get the width and height of this object (returned as a GpSize)
*createfromfile Create Image object from a file on disk
*savetofile Save image to a disk file, using specified encoder
*getthumbnailimage Create a thumbnail at the specified size, return as new GpImage object
*getencoderclsid Get the CLSID for the Encoder for a specific image format (eg "image/jpeg")
*getbounds Get a bounding rectangle in the specified units
*rotateflip Rotate, flip (or both) this image
*flags_access
*flags_assign
*horizontalresolution_access
*horizontalresolution_assign
*verticalresolution_access
*verticalresolution_assign
*imageheight_access
*imageheight_assign
*imagewidth_access
*imagewidth_assign
*rawformat_access
*rawformat_assign
*pixelformat_access
*pixelformat_assign
*getdecoderclsid Get the CLSID for the Decoder for a specific image format (eg "image/jpeg")
*physicaldimension_access
*physicaldimension_assign
*getencoderparamsfromstring Internal function, parse string into EncoderParameters array
*getencoderparamsfromarray Internal function, convert array into EncoderParameters array
*getencoderparaminfo Internal function, get inforrmation about an encoder parameter, given human-facing name
*getpropertycount Gets the number of properties (pieces of metadata) stored in this Image object
*getpropertyidlist Gets an array of the property identifiers used in the metadata of this Image object.
*getpropertyitem Gets a specified property item (piece of metadata) from this Image object
_memberdata =
    1647<VFPData><memberdata name="createfromfile" type="method" display="CreateFromFile" favorites="True"/><memberdata name="flags" type="property" display="Flags" favorites="True"/><memberdata name="getbounds" type="method" display="GetBounds" favorites="True"/><memberdata name="getdecoderclsid" type="method" display="GetDecoderCLSID" favorites="True"/><memberdata name="getencoderclsid" type="method" display="GetEncoderCLSID" favorites="True"/><memberdata name="getthumbnailimage" type="method" display="GetThumbnailImage" favorites="True"/><memberdata name="horizontalresolution" type="property" display="HorizontalResolution" favorites="True"/><memberdata name="imageheight" type="property" display="ImageHeight" favorites="True"/><memberdata name="imagewidth" type="property" display="ImageWidth" favorites="True"/><memberdata name="physicaldimension" type="property" display="PhysicalDimension" favorites="True"/><memberdata name="pixelformat" type="property" display="PixelFormat" favorites="True"/><memberdata name="rawformat" type="property" display="RawFormat" favorites="True"/><memberdata name="savetofile" type="method" display="SaveToFile" favorites="True"/><memberdata name="verticalresolution" type="property" display="VerticalResolution" favorites="True"/><memberdata name="getpropertycount" type="method" display="GetPropertyCount" favorites="True"/><memberdata name="getpropertyidlist" type="method" display="GetPropertyIDList" favorites="True"/><memberdata name="getpropertyitem" type="method" display="GetPropertyItem" favorites="True"/><memberdata name="rotateflip" type="method" display="RotateFlip" favorites="True"/></VFPData>
Name = "gpimage"
PROCEDURE create
lparameters tvColor, tnWidth as Number, tnUnit as Number
* tvColor may be ARGB or a Color object
this.Destroy()
local nHandle
nHandle = 0
Declare Integer GdipCreatePen1 In GDIPlus.Dll ;
    integer nColor, single fWidth,Integer nUnit, Integer @nPen
This.GdipStatus = GdipCreatePen1( ;
    icase(vartype(m.tvColor)='O',m.tvColor.ARGB,vartype(m.tvColor)='N',m.tvColor,0xFF000000) ;
,    iif(vartype(m.tnWidth)='N',m.tnWidth,1.0) ;
,    iif(vartype(m.tnUnit)='N',m.tnUnit,0) ;
,    @nHandle)
This.SetHandle(m.nHandle,.T.)
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE createfrombrush
lparameters toBrush as Brush, tnWidth as Number, tnUnit as Number
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toBrush)='O' and m.toPen.gdipHandle<>0)
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
this.Destroy()
local nHandle
nHandle = 0
Declare Integer GdipCreatePen2 In GDIPlus.Dll ;
    integer nBrush, single fWidth,Integer nUnit, Integer @nPen
This.GdipStatus = GdipCreatePen2( ;
    m.toBrush.GetHandle() ;
,    iif(vartype(m.tnWidth)='N',m.tnWidth,1.0) ;
,    iif(vartype(m.tnUnit)='N',m.tnUnit,0) ;
,    @nHandle)
This.SetHandle(m.nHandle,.T.)
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE pencolor_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare Integer GdipGetPenColor in gdiplus.dll ;
    integer nPen, integer @ nARGB
local nARGB
nARGB = 0
This.gdipStatus = GdipGetPenColor( This.gdipHandle, @nARGB )
* if !(GDIPLUS_STATUS_OK==This.gdipStatus) then error?
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nARGB,cast(null as I))
ENDPROC
PROCEDURE pencolor_assign
LPARAMETERS tvColor
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tvColor)$'ON')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare Integer GdipSetPenColor in gdiplus.dll ;
    integer nPen, integer nColor
This.gdipStatus = GdipSetPenColor( This.gdipHandle,iif(vartype(m.tvColor)='O',m.tvColor.ARGB,m.tvColor))
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE penwidth_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as B)
endif
#endif
declare Integer GdipGetPenWidth in gdiplus.dll ;
    integer nPen, single @ fWidth
local nWidth
nWidth = 0.0
This.gdipStatus = GdipGetPenWidth( This.gdipHandle, @nWidth )
* if !(GDIPLUS_STATUS_OK==This.gdipStatus) then error?
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nWidth,cast(null as B))
ENDPROC
PROCEDURE penwidth_assign
LPARAMETERS tnNewWidth
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnNewWidth)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
declare Integer GdipSetPenWidth in gdiplus.dll ;
    integer nPen, single fWidth
This.gdipStatus = GdipSetPenWidth( This.gdipHandle,m.tnNewWidth)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE pentype_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare Integer GdipGetPenFillType in gdiplus.dll ;
    integer nPen, integer @ nType
local nType
nType = 0
This.gdipStatus = GdipGetPenFillType( This.gdipHandle, @nType)
* if !(GDIPLUS_STATUS_OK==This.gdipStatus) then error?
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nType,cast(null as I))
ENDPROC
PROCEDURE pentype_assign
LPARAMETERS vNewVal
error 1743, 'PenType'
ENDPROC
PROCEDURE alignment_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare Integer GdipGetPenMode in gdiplus.dll ;
    integer nPen, integer @ nType
local nType
nType = 0
This.gdipStatus = GdipGetPenMode( This.gdipHandle, @nType)
* if !(GDIPLUS_STATUS_OK==This.gdipStatus) then error?
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nType,cast(null as I))
ENDPROC
PROCEDURE alignment_assign
LPARAMETERS tnValue
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnValue)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare Integer GdipSetPenMode in gdiplus.dll ;
    integer nPen, integer nValue
This.gdipStatus = GdipSetPenMode( This.gdipHandle,m.tnValue)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE miterlimit_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as B)
endif
#endif
declare Integer GdipGetPenMiterLimit in gdiplus.dll ;
    integer nPen, single @ nLimit
local nLimit
nLimit = 0.0
This.gdipStatus = GdipGetPenMiterLimit( This.gdipHandle, @nLimit)
* if !(GDIPLUS_STATUS_OK==This.gdipStatus) then error?
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nLimit,cast(null as B))
ENDPROC
PROCEDURE miterlimit_assign
LPARAMETERS tnNewValue
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnNewValue)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
declare Integer GdipSetPenMiterLimit in gdiplus.dll ;
    integer nPen, single nValue
This.gdipStatus = GdipSetPenMiterLimit( This.gdipHandle,m.tnNewValue)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE dashcap_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare Integer GdipGetPenDashCap197819 in gdiplus.dll ;
    integer nPen, integer @ nType
local nType
nType = 0
This.gdipStatus = GdipGetPenDashCap197819( This.gdipHandle, @nType)
* if !(GDIPLUS_STATUS_OK==This.gdipStatus) then error?
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nType,cast(null as I))
ENDPROC
PROCEDURE dashcap_assign
LPARAMETERS tnValue
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnValue)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare Integer GdipSetPenDashCap197819 in gdiplus.dll ;
    integer nPen, integer nValue
This.gdipStatus = GdipSetPenDashCap197819( This.gdipHandle,m.tnValue)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE linejoin_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare Integer GdipGetPenLineJoin in gdiplus.dll ;
    integer nPen, integer @ nType
local nType
nType = 0
This.gdipStatus = GdipGetPenLineJoin( This.gdipHandle, @nType)
* if !(GDIPLUS_STATUS_OK==This.gdipStatus) then error?
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nType,cast(null as I))
ENDPROC
PROCEDURE linejoin_assign
LPARAMETERS tnValue
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnValue)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare Integer GdipSetPenLineJoin in gdiplus.dll ;
    integer nPen, integer nValue
This.gdipStatus = GdipSetPenLineJoin( This.gdipHandle,m.tnValue)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE startcap_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare Integer GdipGetPenStartCap in gdiplus.dll ;
    integer nPen, integer @ nType
local nType
nType = 0
This.gdipStatus = GdipGetPenStartCap( This.gdipHandle, @nType)
* if !(GDIPLUS_STATUS_OK==This.gdipStatus) then error?
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nType,cast(null as I))
ENDPROC
PROCEDURE startcap_assign
LPARAMETERS tnValue
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnValue)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare Integer GdipSetPenStartCap in gdiplus.dll ;
    integer nPen, integer nValue
This.gdipStatus = GdipSetPenStartCap( This.gdipHandle,m.tnValue)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE endcap_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare Integer GdipGetPenEndCap in gdiplus.dll ;
    integer nPen, integer @ nType
local nType
nType = 0
This.gdipStatus = GdipGetPenEndCap( This.gdipHandle, @nType)
* if !(GDIPLUS_STATUS_OK==This.gdipStatus) then error?
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nType,cast(null as I))
ENDPROC
PROCEDURE endcap_assign
LPARAMETERS tnValue
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnValue)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare Integer GdipSetPenEndCap in gdiplus.dll ;
    integer nPen, integer nValue
This.gdipStatus = GdipSetPenEndCap( This.gdipHandle,m.tnValue)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE dashstyle_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare Integer GdipGetPenDashStyle in gdiplus.dll ;
    integer nPen, integer @ nType
local nType
nType = 0
This.gdipStatus = GdipGetPenDashStyle( This.gdipHandle, @nType)
* if !(GDIPLUS_STATUS_OK==This.gdipStatus) then error?
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nType,cast(null as I))
ENDPROC
PROCEDURE dashstyle_assign
LPARAMETERS tnValue
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnValue)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare Integer GdipSetPenDashStyle in gdiplus.dll ;
    integer nPen, integer nValue
This.gdipStatus = GdipSetPenDashStyle( This.gdipHandle,m.tnValue)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE dashoffset_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as B)
endif
#endif
declare Integer GdipGetPenDashOffset in gdiplus.dll ;
    integer nPen, single @ nType
local nOffset
nOffset = 0.0
This.gdipStatus = GdipGetPenDashOffset( This.gdipHandle, @nOffset)
* if !(GDIPLUS_STATUS_OK==This.gdipStatus) then error?
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nOffset,cast(null as B))
ENDPROC
PROCEDURE dashoffset_assign
LPARAMETERS tnNewValue
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnNewValue)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
declare Integer GdipSetPenDashOffset in gdiplus.dll ;
    integer nPen, single nValue
This.gdipStatus = GdipSetPenDashOffset( This.gdipHandle,m.tnNewValue)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE penunit_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare Integer GdipGetPenUnit in gdiplus.dll ;
    integer nPen, integer @ nType
local nType
nType = 0
This.gdipStatus = GdipGetPenUnit( This.gdipHandle, @nType)
* if !(GDIPLUS_STATUS_OK==This.gdipStatus) then error?
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nType,cast(null as I))
ENDPROC
PROCEDURE penunit_assign
LPARAMETERS tnValue
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnValue)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare Integer GdipSetPenUnit in gdiplus.dll ;
    integer nPen, integer nValue
This.gdipStatus = GdipSetPenUnit( This.gdipHandle,m.tnValue)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE clone
lparameters toPen as GpPen
this.Destroy()
local nHandle
nHandle = 0
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toPen)='O' and m.toPen.gdipHandle<>0)
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
Declare Integer GdipClonePen In GDIPlus.Dll ;
    integer nPen, integer @nClonePen
This.GdipStatus = GdipClonePen( ;
    m.toPen.gdipHandle ;
,    @nHandle)
this.gdipHandle= m.nHandle
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE Init
lparameters tvColor, tnWidth as Number, tnUnit as Number
if not dodefault()
    return .F.
endif
if pcount()>0
    return This.Create(m.tvColor,m.tnWidth,m.tnUnit)
endif
ENDPROC
PROCEDURE Destroy
if This.GdipHandle!=0 and This.gdipOwnsThisHandle
    Declare Integer GdipDeletePen In GDIPlus.Dll ;
        integer nPen
    GdipDeletePen(This.GdipHandle)
    This.GdipHandle=0
    This.gdipOwnsThisHandle=.F.
endif
ENDPROC
GPGRAPHICS
INTEGER
INTEGER
GdipCreateBitmapFromGraphics
gdiplus.dll
TOGRAPHICS
NWIDTH
NHEIGHT
GDIPSTATUS
GDIPCREATEBITMAPFROMGRAPHICS
GDIPLUS
DESTROY
NHANDLE
GETHANDLE
SETHANDLEM
INTEGER
INTEGER
INTEGER
GdipCreateBitmapFromScan0
gdiplus.dll
TNWIDTH
TNHEIGHT
TNPIXELFORMAT
GDIPSTATUS
GDIPCREATEBITMAPFROMSCAN0
GDIPLUS
DESTROY
NHANDLE
SETHANDLE{
INTEGER
INTEGER
GDI+ object not created or associated
GdipBitmapSetPixel
gdiplus.dll
TVCOLOR
GDIPSTATUS
GDIPHANDLE
GDIPBITMAPSETPIXEL
GDIPLUS
ARGBR
INTEGER
INTEGER
GDI+ object not created or associated
GdipBitmapGetPixel
gdiplus.dll
GDIPSTATUS
GDIPHANDLE
GDIPBITMAPGETPIXEL
GDIPLUS
NARGB
STRING
LOGICAL
GdipCreateBitmapFromFileICM
gdiplus.dll
GdipCreateBitmapFromFile
gdiplus.dll
TCFILENAME
TLUSEEMBEDDEDCOLORMGMT
GDIPSTATUS
GDIPCREATEBITMAPFROMFILEICM
GDIPLUS
DESTROY
NHANDLE
SETHANDLE
GDIPCREATEBITMAPFROMFILE
TVPARAM1
TVPARAM2
TVPARAM3
CREATE
NUMBER
NUMBER
GDI+ object not created or associated
GdipBitmapSetResolution
gdiplus.dll
TNDPIX
TNDPIY
GDIPSTATUS
GDIPHANDLE
GDIPBITMAPSETRESOLUTION
GDIPLUS
createfromgraphics,
create
setpixel
getpixel
createfromfileQ
setresolution
TCPOINT
TCPOINTF
NUMBER
NUMBER
TXORPOINT
CLONE
GDIPPOINTF
CREATE
GPPOINT
TOOTHERPOINT
gdippoint_access,
gdippoint_assignd
gdippointf_access
gdippointf_assign;
create
clone
7PROCEDURE createfromgraphics
lparameters toGraphics as GpGraphics, nWidth as integer, nHeight as integer
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toGraphics)$'ON' and vartype(m.nWidth)='N' and vartype(m.nHeight)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipCreateBitmapFromGraphics in gdiplus.dll ;
    integer nWidth, integer nHeight, integer nGraphics, integer @ nImage
this.Destroy()
local nHandle
nHandle = 0
This.gdipStatus = GdipCreateBitmapFromGraphics( ;
    m.nWidth, m.nHeight ;
    , iif(vartype(m.toGraphics)='O',m.toGraphics.GetHandle(),m.toGraphics) ;
,    @nHandle)
this.SetHandle(m.nHandle,.T.)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE create
LPARAMETERS tnWidth as Integer, tnHeight as Integer, tnPixelFormat as Integer
#if GDIPLUS_CHECK_PARAMS
if !(vartype(tnWidth)='N' AND vartype(tnHeight)='N' AND vartype(tnPixelFormat )$'LN')
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipCreateBitmapFromScan0 in gdiplus.dll ;
    integer nWidth, integer nHeight, integer nStride;
    , integer nPixelFormat ;
    , string @ cScan0, integer @ nImage
this.Destroy()
local nHandle
nHandle = 0
This.gdipStatus = GdipCreateBitmapFromScan0( ;
    m.tnWidth, m.tnHeight, 0 ;
    , iif(vartype(m.tnPixelFormat)='N',m.tnPixelFormat,GDIPLUS_PIXELFORMAT_32bppARGB) ;
    , 0 ;
    ,    @nHandle)
this.SetHandle(m.nHandle,.T.)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE setpixel
lparameters tX as integer, tY as integer, tvColor
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tx)='N' and vartype(m.ty)='N' and ;
 (vartype(m.tvColor)='N' or (vartype(m.tvColor)='O' and pemstatus(m.tvColor,'argb',5))))
    error 11
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
 #endif
 #if GDIPLUS_CHECK_OBJECT
 if This.gdipHandle==0
     error _GDIPLUS_NOGDIPOBJECT_LOC
 endif
 #endif
 declare integer GdipBitmapSetPixel in gdiplus.dll ;
     integer nBitmap, integer x, integer y, integer nARGB
 This.gdipStatus = GdipBitmapSetPixel( ;
     This.gdipHandle, m.tx, m.ty ;
     , iif(vartype(m.tvColor)='N',m.tvColor,m.tvColor.argb) ;
 return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE getpixel
lparameters tX as integer, tY as integer
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tx)='N' and vartype(m.ty)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return cast(null as I)
 endif
 #endif
 #if GDIPLUS_CHECK_OBJECT
 if This.gdipHandle==0
     error _GDIPLUS_NOGDIPOBJECT_LOC
 endif
 #endif
 declare integer GdipBitmapGetPixel in gdiplus.dll ;
     integer nBitmap, integer x, integer y, integer @ nARGB
 local nARGB
 nARGB = 0
 This.gdipStatus = GdipBitmapGetPixel( ;
     This.gdipHandle, m.tx, m.ty, @nARGB )
 return iif(GDIPLUS_STATUS_OK == This.gdipStatus,m.nARGB,cast(null as I))
ENDPROC
PROCEDURE createfromfile
lparameters tcFilename as String, tlUseEmbeddedColorMgmt as Logical
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcFilename)='C' and !empty(m.tcFilename) and vartype(m.tlUseEmbeddedColorMgmt)='L')
    error 11
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
if m.tlUseEmbeddedColorMgmt
    declare integer GdipCreateBitmapFromFileICM in gdiplus.dll ;
        string wFilename, integer @ nImage
    this.Destroy()
    local nHandle
    nHandle = 0
    This.gdipStatus = GdipCreateBitmapFromFileICM( ;
        strconv(m.tcFilename+chr(0),5) ;
    ,    @nHandle)
    this.SetHandle(m.nHandle,.T.)
    return GDIPLUS_STATUS_OK == This.gdipStatus
    declare integer GdipCreateBitmapFromFile in gdiplus.dll ;
        string wFilename, integer @ nImage
    this.Destroy()
    local nHandle
    nHandle = 0
    This.gdipStatus = GdipCreateBitmapFromFile( ;
        strconv(m.tcFilename+chr(0),5) ;
    ,    @nHandle)
    this.SetHandle(m.nHandle,.T.)
    return GDIPLUS_STATUS_OK == This.gdipStatus
endif
ENDPROC
PROCEDURE Init
lparameters tvParam1, tvParam2, tvParam3
if vartype(m.tvParam1)+vartype(m.tvParam2)='NN'
    * Width and height
    if not dodefault()    && Bypasses
        return .F.
    endif
    return This.Create( m.tvParam1, m.tvParam2, m.tvParam3 )
    return dodefault(m.tvParam1,m.tvParam2)
endif
ENDPROC
PROCEDURE setresolution
lparameters tnDPIX as number, tnDPIY as number
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnDPIX )='N' and vartype(m.tnDPIY )='N')
    error 11
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
endif
#endif
declare integer GdipBitmapSetResolution in gdiplus.dll ;
     integer nBitmap, single dpix, single dpiy
This.gdipStatus = GdipBitmapSetResolution ( ;
     This.gdipHandle, m.tnDPIX , m.tnDPIY ;
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
OPROCEDURE create
lparameters ;
    tvFontNameOrFamily ;    && Font name or Fontfamily (created separately)
    , tnSize as Number ;            && size in units (default points)
    , tnStyle as integer ;            && see GDIPLUS_FontStyle_xxx values (default Normal)
    , tnUnit as integer                && see GDIPLUS_Unit_xxx values (default points)
#if GDIPLUS_CHECK_PARAMS
if !((vartype(m.tvFontNameOrFamily )='C' ;
    or (vartype(m.tvFontNameOrFamily )='O' and m.tvFontNameOrFamily.GetHandle()<>0)) ;
and vartype(m.tnSize)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lnStyle as Integer, lnUnit as integer, lnHandle as integer ;
    , loFamily as GpFontFamily, lnFamily as integer
lnStyle = evl(m.tnStyle,GDIPLUS_FontStyle_Regular)
lnUnit = evl(m.tnUnit,GDIPLUS_Unit_World)
lnHandle = 0
if vartype(m.tvFontnameOrFamily)='O'
    lnFamily = m.tvFontNameOrFamily.GetHandle()
    * Must create ourselves
    loFamily = This.ObjFactory('gpfont.create', GDIPLUS_CLASS_FONTFAMILY, @tvFontNameOrFamily)
    lnFamily =iif(vartype(m.loFamily)='O',m.loFamily.GetHandle(),0)
endif
this.Destroy()
Declare Integer GdipCreateFont In GDIPlus.Dll ;
    integer nFontFamily, single fSize, integer nStyle, integer nUnit, integer @nHandle
if 0!=m.lnFamily
    * Try creating font
    This.gdipStatus = GdipCreateFont( m.lnFamily, m.tnSize,m.lnStyle,m.lnUnit,@lnHandle)
    if GDIPLUS_STATUS_OK==This.gdipStatus
        * That worked
        This.SetHandle(m.lnHandle,.T.)
        return .T.
    endif
endif
* If here, either font family is invalid or font creation failed
* Try from Generic family
lnFamily = 0
declare integer GdipGetGenericFontFamilySansSerif in gdiplus.dll integer @
GdipGetGenericFontFamilySansSerif( @lnFamily )
This.gdipStatus = GdipCreateFont( m.lnFamily, m.tnSize,m.lnStyle,m.lnUnit,@lnHandle)
This.SetHandle(m.lnHandle,.T.)
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE style_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetFontStyle in gdiplus.dll ;
    integer nFont, integer @
local nStyle
nStyle= 0
This.gdipStatus = GdipGetFontStyle( This.gdipHandle, @nStyle)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nStyle,cast(null as I))
ENDPROC
PROCEDURE style_assign
LPARAMETERS vNewVal
error 1743, 'Style'
ENDPROC
PROCEDURE unit_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetFontUnit in gdiplus.dll ;
    integer nFont, integer @
local nUnit
nUnit = 0
This.gdipStatus = GdipGetFontUnit( This.gdipHandle, @nUnit)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nUnit,cast(null as I))
ENDPROC
PROCEDURE unit_assign
LPARAMETERS vNewVal
error 1743, 'Unit'
ENDPROC
PROCEDURE getheight
lparameters tvGraphics
local lnGraphics
do case
case vartype(m.tvGraphics)='N'
    lnGraphics = m.tvGraphics
case vartype(m.tvGraphics)='O'
    lnGraphics = m.tvGraphics.GetHandle()
otherwise
    error 11
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return cast(null as B)
endcase
#if GDIPLUS_CHECK_PARAMS
if 0==m.lnGraphics
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return cast(null as B)
endif
#endif
declare integer GdipGetFontHeight in gdiplus.dll ;
    integer nFont, integer nGraphics, single @ fHeight
local nHeight
nHeight = 0.0
This.gdipStatus = GdipGetFontHeight(This.gdipHandle,m.lnGraphics,@nHeight)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nHeight,cast(null as B))
ENDPROC
PROCEDURE fontname_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as C)
endif
#endif
declare integer GdipGetFamily in gdiplus.dll ;
    integer nFont, integer @ nFamily
declare integer GdipGetFamilyName in gdiplus.dll ;
    integer nFamily, string @ cUnicodeName, integer nLangID
declare integer lstrlenW in kernel32.dll as __win32_lstrlenW string
local nFamily as Number, cUnicodeName as String
nFamily = 0
cUnicodeName= replicate(chr(0), 64 )    && 64=LF_FACESIZE*2
This.gdipStatus = GdipGetFamily( This.gdipHandle, @nFamily ) && LANG_NEUTRAL
if (GDIPLUS_STATUS_OK!=This.gdipStatus)
    return cast(null as C)
endif
This.gdipStatus = GdipGetFamilyName( m.nFamily, @cUnicodeName, 0x00 ) && LANG_NEUTRAL
return iif(GDIPLUS_STATUS_OK==This.gdipStatus ;
     , strconv( left(m.cUnicodeName,__win32_lstrlenW(m.cUnicodeName)*2),6) ;
     , cast(null as C) )
ENDPROC
PROCEDURE fontname_assign
LPARAMETERS vNewVal
error 1743,'FontName'
ENDPROC
PROCEDURE size_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as B)
endif
#endif
declare integer GdipGetFontSize in gdiplus.dll ;
    integer nFont, single  @
local nSize
nSize= 0.0
This.gdipStatus = GdipGetFontSize( This.gdipHandle, @nSize)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nSize,cast(null as B))
ENDPROC
PROCEDURE size_assign
LPARAMETERS vNewVal
error 1743, 'Size'
ENDPROC
PROCEDURE getheightgivendpi
lparameters tnDPI as Number
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as B)
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if vartype(m.tnDPI)!='N'
    error 11 && Function argument
endif
#endif
declare integer GdipGetFontHeightGivenDPI in gdiplus.dll ;
    integer nFont, single nDPI, single @ fHeight
local nHeight
nHeight = 0.0
This.gdipStatus = GdipGetFontHeight(This.gdipHandle,m.tnDPI,@nHeight)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nHeight,cast(null as B))
ENDPROC
PROCEDURE Init
lparameters ;
    tvFontNameOrFamily ;    && Font name, or Fontfamily (created separately)
    , tnSize as Number ;            && size in units (default points)
    , tnStyle as integer ;            && see GDIPLUS_FontStyle_xxx values (default Normal)
    , tnUnit as integer                && see GDIPLUS_Unit_xxx values (default points)
if not dodefault()
    return .F.
endif
if pcount()>0
    return This.Create(m.tvFontNameOrFamily,m.tnSize,m.tnStyle,m.tnUnit)
endif
return .T.
ENDPROC
PROCEDURE Destroy
if This.GdipHandle!=0 and This.gdipOwnsThisHandle
    Declare Integer GdipDeleteFont In GDIPlus.Dll ;
        integer nFont
    GdipDeleteFont(This.GdipHandle)
    This.GdipHandle=0
    This.gdipOwnsThisHandle=.F.
endif
ENDPROC
PROCEDURE clone
lparameters toFont as GpFont
this.Destroy()
local nHandle
nHandle = 0
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toFont)='O' and m.toFont.gdipHandle<>0)
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
Declare Integer GdipCloneFont In GDIPlus.Dll ;
    integer nOriginal, integer @nClone
This.GdipStatus = GdipCloneFont( ;
    m.toFont.gdipHandle ;
,    @nHandle)
this.gdipHandle= m.nHandle
This.gdipOwnsThisHandle = .T.
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
NUMBER
INTEGER
INTEGER
INTEGER
INTEGER
INTEGER
GPFONTFAMILY
INTEGER
gpfont.create
GpFontFamily
GdipCreateFont
GDIPlus.Dll
GdipGetGenericFontFamilySansSerif
gdiplus.dll
TVFONTNAMEORFAMILY
TNSIZE
TNSTYLE
TNUNIT
GETHANDLE
GDIPSTATUS
LNSTYLE
LNUNIT
LNHANDLE
LOFAMILY
LNFAMILY
OBJFACTORY
DESTROY
GDIPCREATEFONT
GDIPLUS
SETHANDLE!
GDIPGETGENERICFONTFAMILYSANSSERIF
GDI+ object not created or associated
GdipGetFontStyle
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETFONTSTYLE
GDIPLUS
NSTYLE
Style
VNEWVAL
GDI+ object not created or associated
GdipGetFontUnit
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETFONTUNIT
GDIPLUS
NUNIT
VNEWVALr
GdipGetFontHeight
gdiplus.dll
TVGRAPHICS
LNGRAPHICS
GETHANDLE
GDIPSTATUS
GDIPGETFONTHEIGHT
GDIPLUS
NHEIGHT
GDIPHANDLE
GDI+ object not created or associated
GdipGetFamily
gdiplus.dll
GdipGetFamilyName
gdiplus.dll
lstrlenW
kernel32.dllQ
__win32_lstrlenW
NUMBER
STRING
GDIPHANDLE
GDIPSTATUS
GDIPGETFAMILY
GDIPLUS
GDIPGETFAMILYNAME
LSTRLENW
KERNEL32
__WIN32_LSTRLENW
NFAMILY
CUNICODENAME"
FontName
VNEWVAL
GDI+ object not created or associated
GdipGetFontSize
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETFONTSIZE
GDIPLUS
NSIZE
VNEWVAL6
NUMBER
GDI+ object not created or associated
GdipGetFontHeightGivenDPI
gdiplus.dll
TNDPI
GDIPHANDLE
GDIPSTATUS
GDIPGETFONTHEIGHTGIVENDPI
GDIPLUS
NHEIGHT
GDIPGETFONTHEIGHT
NUMBER
INTEGER
INTEGER
TVFONTNAMEORFAMILY
TNSIZE
TNSTYLE
TNUNIT
CREATEy
GdipDeleteFont
GDIPlus.Dll
GDIPHANDLE
GDIPOWNSTHISHANDLE
GDIPDELETEFONT
GDIPLUS
GPFONT
GdipCloneFont
GDIPlus.Dll
TOFONT
DESTROY
NHANDLE
GDIPHANDLE
GDIPSTATUS
GDIPCLONEFONT
GDIPLUS
GDIPOWNSTHISHANDLE
create,
style_access*
style_assign\
unit_access
unit_assign
getheight
fontname_access
fontname_assign"
size_accessQ
size_assign
getheightgivendpi
InitW
Destroy&
clone
GdipCreateSolidFill
GDIPlus.Dll
TVCOLOR
GDIPSTATUS
DESTROY
NHANDLE
GDIPCREATESOLIDFILL
GDIPLUS
ARGB
SETHANDLE
GDI+ object not created or associated
GdipGetSolidFillColor
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETSOLIDFILLCOLOR
GDIPLUS
NARGB
GDI+ object not created or associated
GdipSetSolidFillColor
gdiplus.dll
TVCOLOR
GDIPHANDLE
GDIPSTATUS
GDIPSETSOLIDFILLCOLOR
GDIPLUS
ARGBK
TVCOLOR
CREATE
create,
brushcolor_access
brushcolor_assign
InitQ
PROCEDURE create
lparameters tcName as String
this.Destroy()
local nHandle
nHandle = 0
Declare Integer GdipCreateFontFamilyFromName In GDIPlus.Dll ;
    string cUnicodeName, integer nFontCollection ,integer @nHandle
This.gdipStatus = GdipCreateFontFamilyFromName ( ;
    strconv(m.tcName,5)+chr(0) ;
    , This.gdipFontCollectionHandle ;
    , @nHandle )
This.SetHandle(m.nHandle,.T.)
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE getgenericmonospace
this.Destroy()
local nHandle
nHandle = 0
Declare Integer GdipGetGenericFontFamilyMonospace In GDIPlus.Dll ;
    integer @nHandle
This.gdipStatus = GdipGetGenericFontFamilyMonospace(@nHandle )
This.SetHandle(m.nHandle,.F.)
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE getgenericserif
this.Destroy()
local nHandle
nHandle = 0
Declare Integer GdipGetGenericFontFamilySerif In GDIPlus.Dll ;
    integer @nHandle
This.gdipStatus = GdipGetGenericFontFamilySerif(@nHandle )
This.SetHandle(m.nHandle,.F.)
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE getgenericsansserif
this.Destroy()
local nHandle
nHandle = 0
Declare Integer GdipGetGenericFontFamilySansSerif In GDIPlus.Dll ;
    integer @nHandle
This.gdipStatus = GdipGetGenericFontFamilySansSerif(@nHandle )
This.SetHandle(m.nHandle,.F.)
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE isstyleavailable
lparameters tnFontStyle as integer
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnFontStyle)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipIsStyleAvailable in gdiplus.dll ;
    integer nFontFamily, integer nStyle, integer @bIsAvailable
local nAvailable
nAvailable = 0    && default to FALSE
This.gdipStatus = GdipIsStyleAvailable( This.gdipHandle, m.tnFontStyle, @nAvailable )
* Convert integer to .T./.F.
return (m.nAvailable<>0)
ENDPROC
PROCEDURE fontname_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as C)
endif
#endif
declare integer GdipGetFamilyName in gdiplus.dll ;
    integer nFamily, string @ cUnicodeName, integer nLangID
declare integer lstrlenW in kernel32.dll as __win32_lstrlenW string
local cUnicodeName as String
cUnicodeName= replicate(chr(0), 64 )    && 64=LF_FACESIZE*2
This.gdipStatus = GdipGetFamilyName( This.gdipHandle, @cUnicodeName, 0x00 ) && 0x00=LANG_NEUTRAL
return iif(GDIPLUS_STATUS_OK==This.gdipStatus ;
     , strconv( left(m.cUnicodeName,__win32_lstrlenW(m.cUnicodeName)*2),6) ;
     , cast(null as C) )
ENDPROC
PROCEDURE fontname_assign
LPARAMETERS vNewVal
error 1743, 'FontName'
ENDPROC
PROCEDURE getcellascent
lparameters tnStyle as integer
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnStyle)$'LN')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return cast(null as I)
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetCellAscent in gdiplus.dll ;
    integer nFamily, integer nStyle, integer @ nValue
local nValue as Number
nValue = 0
This.gdipStatus = GdipGetCellAscent( This.gdipHandle, evl(m.tnStyle,0), @nValue)
return iif(GDIPLUS_STATUS_OK==This.gdipStatus ;
     , m.nValue ;
     , cast(null as I) )
ENDPROC
PROCEDURE getemheight
lparameters tnStyle as integer
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnStyle)$'LN')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return cast(null as I)
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetEmHeight in gdiplus.dll ;
    integer nFamily, integer nStyle, integer @ nValue
local nValue as Number
nValue = 0
This.gdipStatus = GdipGetEmHeight( This.gdipHandle, evl(m.tnStyle,0), @nValue)
return iif(GDIPLUS_STATUS_OK==This.gdipStatus ;
     , m.nValue ;
     , cast(null as I) )
ENDPROC
PROCEDURE getcelldescent
lparameters tnStyle as integer
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnStyle)$'LN')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return cast(null as I)
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetCellDescent in gdiplus.dll ;
    integer nFamily, integer nStyle, integer @ nValue
local nValue as Number
nValue = 0
This.gdipStatus = GdipGetCellDescent( This.gdipHandle, evl(m.tnStyle,0), @nValue)
return iif(GDIPLUS_STATUS_OK==This.gdipStatus ;
     , m.nValue ;
     , cast(null as I) )
ENDPROC
PROCEDURE getlinespacing
lparameters tnStyle as integer
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnStyle)$'LN')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return cast(null as I)
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetLineSpacing in gdiplus.dll ;
    integer nFamily, integer nStyle, integer @ nValue
local nValue as Number
nValue = 0
This.gdipStatus = GdipGetLineSpacing( This.gdipHandle, evl(m.tnStyle,0), @nValue)
return iif(GDIPLUS_STATUS_OK==This.gdipStatus ;
     , m.nValue ;
     , cast(null as I) )
ENDPROC
PROCEDURE getname
lparameters tnLangID
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnLangID)$'LN')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return cast(null as C)
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as C)
endif
#endif
declare integer GdipGetFamilyName in gdiplus.dll ;
    integer nFamily, string @ cUnicodeName, integer nLangID
declare integer lstrlenW in kernel32.dll as __win32_lstrlenW string
local cUnicodeName as String
cUnicodeName= replicate(chr(0), 64 )    && 64=LF_FACESIZE*2
This.gdipStatus = GdipGetFamilyName( This.gdipHandle, @cUnicodeName, evl(m.tnLangID,0x00) ) && LANG_NEUTRAL
return iif(GDIPLUS_STATUS_OK==This.gdipStatus ;
     , strconv( left(m.cUnicodeName,__win32_lstrlenW(m.cUnicodeName)*2),6) ;
     , cast(null as C) )
ENDPROC
PROCEDURE Init
lparameters tcName
* Get the Installed Font collection
if not dodefault()
    return .F.
endif
* This class cannot handle Private Font collections on its own: if you want
* that, you will need to extend it (and manage the lifetime of the
* PrivateFontCollection object
* Is this necessary?
* declare integer GdipNewInstalledFontCollection in gdiplus.dll integer @
* For now, this seems to work:
This.gdipFontCollectionHandle = 0
if pcount()>=1
    return This.Create( m.tcName )
endif
return .T.
ENDPROC
PROCEDURE Destroy
if This.GdipHandle!=0 and This.gdipOwnsThisHandle
    Declare Integer GdipDeleteFontFamily In GDIPlus.Dll ;
        integer nFontFamily
    GdipDeleteFontFamily(This.GdipHandle)
    This.GdipHandle=0
    This.gdipOwnsThisHandle=.F.
endif
ENDPROC
PROCEDURE clone
lparameters toFontFamily as GpFontFamily
this.Destroy()
local nHandle
nHandle = 0
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toFontFamily)='O' and m.toFontFamily.gdipHandle<>0)
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
Declare Integer GdipCloneFontFamily In GDIPlus.Dll ;
    integer nOriginal, integer @nClone
This.GdipStatus = GdipCloneFontFamily( ;
    m.toFontFamily.gdipHandle ;
,    @nHandle)
this.gdipHandle= m.nHandle
This.gdipOwnsThisHandle = .T.
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE clone
lparameters toOtherObject
* Not implemented in this class, see derived classes
ENDPROC
PROCEDURE guidtostring
lparameters tqGUID
#if GDIPLUS_CHECK_PARAMS
* Require 16-byte string or varbinary
if !(vartype(m.tqGUID)$'CQ' and len(m.tqGUID)=16)
    error 11 && function argument
    return cast(null as C)
endif
#endif
local lcUnicodeString, lnResult
lcUnicodeString = replicate(chr(0),80)    && Should be big enough for anything
* Note - this is Unicode
declare integer StringFromGUID2 in ole32.dll ;
    string @cCLSID, string @cUnicodeString, integer nLen
lnResult = StringFromGUID2( m.tqGUID, @lcUnicodeString, 40 )
if m.lnResult == 0
    error _GDIPLUS_INTERNALBUFTOOSMALL_LOC
    return cast(null as C)
    return strconv(left(m.lcUnicodeString,(m.lnResult-1)*2),6)
endif
ENDPROC
PROCEDURE stringtoguid
lparameters lcString as String
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.lcString)='C')
    error 11 && function argument
    return cast(null as Q) && Function argument
endif
#endif
local lcCLSID, lnResult
lcCLSID = replicate(chr(0),16)
declare integer CLSIDFromString in ole32.dll ;
    string cString, string @cCLSID
lnResult = CLSIDFromString( strconv(m.lcString,5), @lcCLSID )
if m.lnResult == 0
    return cast(m.lcCLSID as Q(16))
    error _GDIPLUS_STRINGTOGUID_LOC
    return cast(null as Q)
endif
ENDPROC
PROCEDURE makegdipsizef
lparameters tw as number,th as number
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tw)+vartype(m.th)=='NN')
    error 11 && function argument
    return cast(null as C)
endif
#endif
return ;
    bintoc(m.tW,'F') + bintoc(m.tH,'F')
ENDPROC
PROCEDURE makegdiprectf
lparameters tx as number,ty as number,tw as number,th as number
#if GDIPLUS_CHECK_PARAMS
if ! vartype(m.tx)+vartype(m.ty)+vartype(m.tw)+vartype(m.th)=='NNNN'
    error 11 && function argument
    return cast(null as C)
endif
#endif
return ;
    bintoc(m.tX,'F') + bintoc(m.tY,'F') ;
    + bintoc(m.tW,'F') + bintoc(m.tH,'F')
ENDPROC
PROCEDURE makegdiparrayf
lparameters taArray as array, tnCols as integer, tnFirstCol as integer
external array taArray
#if GDIPLUS_CHECK_PARAMS
if !(type('m.taArray[1,2]')='N')    && Must be 2-D array
    error 11 && function argument
    return cast(null as C)
endif
#endif
local lcStruct, lnRows, lnRow, lnCol, lnFirstCol, lnColsMinusOne
lnRows = alen(taArray,1)
lnFirstCol = evl(m.tnFirstCol,1)
lnColsMinusOne= iif(empty(m.tnCols), alen(taArray,2)-m.lnFirstCol, m.tnCols-1 )
#if GDIPLUS_CHECK_PARAMS
if !(between(m.lnFirstCol,1,alen(taArray,2)) and between(m.lnColsMinusOne,0,alen(taArray,2)-m.lnFirstCol))
    error 11 && function argument
    return cast(null as C)
endif
#endif
lcStruct = ''
for lnRow = 1 to m.lnRows
    for lnCol = m.lnFirstCol to m.lnFirstCol+m.lnColsMinusOne
        lcStruct = m.lcStruct + bintoc(taArray[m.lnRow,m.lnCol],'F')
    endfor
endfor
assert len(m.lcStruct) == m.lnRows*4*(m.lnColsMinusOne+1)
return m.lcStruct
* Determine length from the result
ENDPROC
PROCEDURE makegdiparrayffromcursor
lparameters tcAlias as string, tnCols as Integer ;
    , tcExpr1 as string, tcExpr2 as string, tcExpr3 as string, tcExpr4 as String ;
    , tcExpr5 as string, tcExpr6 as string, tcExpr7 as string, tcExpr8 as string
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcAlias)='C' and vartype(m.tnCols)='N' and between(m.tnCols,1,8))
    error 11 && function argument
    return cast(null as C)
endif
if !used(m.tcAlias)
    error 13, m.tcAlias    && Alias not found
    return cast(null as C)
endif
#endif
local lcStruct, lnCol, lnSaveArea, lnSaveRecno, laExpr[m.tnCols]
lnSaveArea = select()
select (m.tcAlias)
lnSaveRecno = recno()
* Check expressions
for lnCol = 1 to m.tnCols
    laExpr[m.lnCol] = evaluate("m.tcExpr"+ltrim(str(m.lnCol)))
    #if GDIPLUS_CHECK_PARAMS
    if vartype(laExpr[m.lnCol])!='C'
        error 11 && function argument
        return cast(null as C)
    endif
    #endif
endfor
lcStruct = ''
    for lnCol = 1 to m.tnCols
        lcStruct = m.lcStruct + bintoc(evaluate(laExpr[m.lnCol]),'F')
    endfor
endscan
if m.lnSaveRecno<=reccount()
    go (m.lnSaveRecno)
endif
select (m.lnSaveArea)
return m.lcStruct
ENDPROC
PROCEDURE makegdippointf
lparameters tx as number,ty as number
#if GDIPLUS_CHECK_PARAMS
if ! vartype(m.tx)+vartype(m.ty)=='NN'
    error 11 && function argument
    return cast(null as C)
endif
#endif
return ;
    bintoc(m.tX,'F') + bintoc(m.tY,'F')
ENDPROC
PROCEDURE allowmodalmessages_assign
lparameters vNewVal
#if GDIPLUS_CHECK_PARAMS
if vartype(m.vNewVal)='L'
#endif
    This.AllowModalMessages = m.vNewVal
#if GDIPLUS_CHECK_PARAMS
    error 11 && func arg
endif
#endif
ENDPROC
PROCEDURE quietonerror_assign
lparameters vNewVal
#if GDIPLUS_CHECK_PARAMS
if vartype(m.vNewVal)='L'
#endif
    This.QuietOnError = m.vNewVal
#if GDIPLUS_CHECK_PARAMS
    error 11 && func arg
endif
#endif
ENDPROC
PROCEDURE ignoreerrors_assign
lparameters vNewVal
#if GDIPLUS_CHECK_PARAMS
if vartype(m.vNewVal)='L'
#endif
    This.IgnoreErrors = m.vNewVal
#if GDIPLUS_CHECK_PARAMS
    error 11 && func arg
endif
#endif
ENDPROC
PROCEDURE clearerrors
This.hadError = .F.
This.LastErrorMessage = ''
ENDPROC
PROCEDURE geterrorstatus
return This.hadError
ENDPROC
PROCEDURE getlasterrormessage
return This.LastErrorMessage
ENDPROC
PROCEDURE appname_assign
lparameters vNewVal
#if GDIPLUS_CHECK_PARAMS
if vartype(m.vNewVal)='C'
#endif
    This.AppName = m.vNewVal
#if GDIPLUS_CHECK_PARAMS
    error 11 && func arg
endif
#endif
ENDPROC
PROCEDURE objfactory
lparameters tcContext, tcClassName ;
    , p1,p2,p3,p4,p5,p6,p7,p8,p9,p10
* Class name is one of _gdiplus.vcx base classes, or you could extend it yourself
* context is where it is called from, in the form 'class.method'
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcContext)+vartype(m.tcClassName )=='CC')
    error 11 && function argument
    return cast(null as O) && Function argument
endif
#endif
* Base implementation - always use same class library as header file
local lcClassLibrary,lcModule
lcClassLibrary = GDIPLUS_CLASS_LIBRARY
lcModule = ''
* Allow modifications to class chosen. Note arguments cannot be changed
This.ObjFactoryHook( tcContext, @tcClassName, @lcClassLibrary, @lcModule )
* Most common cases in _GDIPLUS.VCX are 1 and 2 args so do those pcounts() first
do case
case pcount()==3
    return newobject(m.tcClassName,m.lcClassLibrary,m.lcModule,@p1)
case pcount()==4
    return newobject(m.tcClassName,m.lcClassLibrary,m.lcModule,@p1,@p2)
case pcount()==2
    return newobject(m.tcClassName,m.lcClassLibrary,m.lcModule)
case pcount()==5
    return newobject(m.tcClassName,m.lcClassLibrary,m.lcModule,@p1,@p2,@p3)
case pcount()==6
    return newobject(m.tcClassName,m.lcClassLibrary,m.lcModule,@p1,@p2,@p3,@p4)
case pcount()==7
    return newobject(m.tcClassName,m.lcClassLibrary,m.lcModule,@p1,@p2,@p3,@p4,@p5)
case pcount()==8
    return newobject(m.tcClassName,m.lcClassLibrary,m.lcModule,@p1,@p,@p3,@p4,@p5,@p6)
case pcount()==9
    return newobject(m.tcClassName,m.lcClassLibrary,m.lcModule,@p1,@p2,@p3,@p4,@p5,@p6,@p7)
case pcount()==10
    return newobject(m.tcClassName,m.lcClassLibrary,m.lcModule,@p1,@p2,@p3,@p4,@p5,@p6,@p7,@p8)
case pcount()==11
    return newobject(m.tcClassName,m.lcClassLibrary,m.lcModule,@p1,@p2,@p3,@p4,@p5,@p6,@p7,@p8,@p9)
case pcount()==12
    return newobject(m.tcClassName,m.lcClassLibrary,m.lcModule,@p1,@p2,@p3,@p4,@p5,@p6,@p7,@p8,@p9,@p10)
endcase
error 11 && Function argument
return cast(null as O)
ENDPROC
PROCEDURE objfactoryhook
lparameters tcContext, rcClassName, rcClassLibrary, rcModule
* No special behaviour in base class
ENDPROC
PROCEDURE Error
LPARAMETERS nError as integer, cMethod as string, nLine as Integer
local lcMessage, lcCodeLine
lcMessage = message()
lcCodeLine = message(1)
This.HadError = .T.
if This.IgnoreErrors or _vfp.StartMode>0
    return .F.
endif
local lcOnError, lcErrorMsg
lcOnError = alltrim(on("error"))
if not empty(m.lcOnError)
    lcOnError= ;
        strtran( ;
        strtran( ;
        strtran( ;
        strtran( ;
        strtran( ;
        m.lcOnError,'error()',"m.nError",1,-1,1) ;
        ,'program()',"m.cMethod",1,-1,1) ;
        ,'lineno()',"m.nLine",1,-1,1) ;
        ,'message()',"m.lcMessage",1,-1,1) ;
        ,'message(1)',"m.lcCodeLine",1,-1,1)
    &lcOnError
    return
endif
lcErrorMsg = ;
    m.lcMessage ;
    +chr(13)+chr(13) ;
    + This.Name ;
    + chr(13) + _GDIPLUS_ERRNOLABEL_LOC + ltrim(str(m.nError)) ;
    + chr(13) + _GDIPLUS_ERRPROCLABEL_LOC + m.cMethod ;
    + chr(13) + _GDIPLUS_ERRLINELABEL_LOC + ltrim(str(m.nLine)) ;
    + chr(13) + m.lcCodeLine
This.LastErrorMessage = m.lcErrorMsg
do case
case This.QuietOnError
    * Do nothing
case This.AllowModalMessages
    messagebox( m.lcErrorMsg,16, This.AppName )
otherwise
    wait window (m.lcErrorMsg) nowait
endcase
#if GDIPLUS_ERRHANDLER_RETHROW
    if m.nError = 1098
        error m.lcMessage
    else
        * Note, this loses the additional parameter
        error m.nError
    endif
#endif
ENDPROC
PROCEDURE Init
#ifdef GDIPLUS_ERRHANDLER_ALLOWMODAL
    This.AllowModalMessages = GDIPLUS_ERRHANDLER_ALLOWMODAL
#endif
#ifdef GDIPLUS_ERRHANDLER_QUIET
    This.QuietOnError = GDIPLUS_ERRHANDLER_QUIET
#endif
#ifdef GDIPLUS_ERRHANDLER_IGNOREERRORS
    This.IgnoreErrors = GDIPLUS_ERRHANDLER_IGNOREERRORS
#endif
#ifdef GDIPLUS_ERRHANDLER_APPNAME
    This.AppName = GDIPLUS_ERRHANDLER_APPNAME
#endif
return dodefault()
ENDPROC
PROCEDURE alignment_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetStringFormatAlign in gdiplus.dll ;
    integer nGraphics, integer @
local nAlignment
nAlignment = cast(null as I) && predefined error value
This.gdipStatus = GdipGetStringFormatAlign( This.gdipHandle, @nAlignment)
return m.nAlignment
ENDPROC
PROCEDURE alignment_assign
LPARAMETERS tnAlignment
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnAlignment)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
if !This.gdipOwnsThisHandle
    error _GDIPLUS_GDIPNOTOWNED_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
declare integer GdipSetStringFormatAlign in gdiplus.dll ;
    integer nGraphics, integer
This.gdipStatus = GdipSetStringFormatAlign( This.gdipHandle,m.tnAlignment)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE formatflags_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetStringFormatFlags in gdiplus.dll ;
    integer nGraphics, integer @
local nFlags
nFlags = 0
This.gdipStatus = GdipGetStringFormatFlags( This.gdipHandle, @nFlags)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nFlags,cast(null as I))
ENDPROC
PROCEDURE formatflags_assign
LPARAMETERS tnFlags
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnFlags)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
if !This.gdipOwnsThisHandle
    error _GDIPLUS_GDIPNOTOWNED_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
declare integer GdipSetStringFormatFlags in gdiplus.dll ;
    integer nGraphics, integer
This.gdipStatus = GdipSetStringFormatFlags( This.gdipHandle,m.tnFlags)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE hotkeyprefix_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetStringFormatHotkeyPrefix in gdiplus.dll ;
    integer nGraphics, integer @
local nPrefix
nPrefix = 0
This.gdipStatus = GdipGetStringFormatHotkeyPrefix( This.gdipHandle, @nPrefix)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nPrefix,cast(null as I))
ENDPROC
PROCEDURE hotkeyprefix_assign
LPARAMETERS tnPrefix
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnPrefix)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
if !This.gdipOwnsThisHandle
    error _GDIPLUS_GDIPNOTOWNED_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
declare integer GdipSetStringFormatHotkeyPrefix in gdiplus.dll ;
    integer nGraphics, integer
This.gdipStatus = GdipSetStringFormatHotkeyPrefix( This.gdipHandle,m.tnPrefix)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE linealignment_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetStringFormatLineAlign in gdiplus.dll ;
    integer nGraphics, integer @
local nAlignment
nAlignment = 0
This.gdipStatus = GdipGetStringFormatLineAlign( This.gdipHandle, @nAlignment)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nAlignment,cast(null as I))
ENDPROC
PROCEDURE linealignment_assign
LPARAMETERS tnAlignment
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnAlignment)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
if !This.gdipOwnsThisHandle
    error _GDIPLUS_GDIPNOTOWNED_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
declare integer GdipSetStringFormatLineAlign in gdiplus.dll ;
    integer nGraphics, integer
This.gdipStatus = GdipSetStringFormatLineAlign( This.gdipHandle,m.tnAlignment)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE trimming_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetStringFormatTrimming in gdiplus.dll ;
    integer nGraphics, integer @
local nMode
nMode = 0
This.gdipStatus = GdipGetStringFormatTrimming( This.gdipHandle, @nMode)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nMode,cast(null as I))
ENDPROC
PROCEDURE trimming_assign
LPARAMETERS tnMode
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnMode)='N')
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
if !This.gdipOwnsThisHandle
    error _GDIPLUS_GDIPNOTOWNED_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
declare integer GdipSetStringFormatTrimming in gdiplus.dll ;
    integer nGraphics, integer
This.gdipStatus = GdipSetStringFormatTrimming( This.gdipHandle,m.tnMode)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE getgenericdefault
lparameters tlMakeClone
this.Destroy()
local nHandle
nHandle = 0
Declare Integer GdipStringFormatGetGenericDefault In GDIPlus.Dll ;
    integer @nHandle
This.gdipStatus = GdipStringFormatGetGenericDefault (@nHandle )
if This.gdipStatus <> GDIPLUS_STATUS_OK
    return .F.
endif
if m.tlMakeClone
    Declare Integer GdipCloneStringFormat In GDIPlus.Dll ;
        integer nOriginal, integer @nClone
    This.GdipStatus = GdipCloneStringFormat( ;
        (m.nHandle) ;
    ,    @nHandle)
    if GDIPLUS_STATUS_OK == This.GdipStatus
        This.SetHandle(m.nHandle,.T.)
    endif
    This.SetHandle(m.nHandle,.F.)
endif
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE getgenerictypographic
lparameters tlMakeClone
this.Destroy()
local nHandle
nHandle = 0
Declare Integer GdipStringFormatGetGenericTypographic In GDIPlus.Dll ;
    integer @nHandle
This.gdipStatus = GdipStringFormatGetGenericTypographic(@nHandle )
if This.gdipStatus <> GDIPLUS_STATUS_OK
    return .F.
endif
if m.tlMakeClone
    Declare Integer GdipCloneStringFormat In GDIPlus.Dll ;
        integer nOriginal, integer @nClone

    This.GdipStatus = GdipCloneStringFormat( ;
        (m.nHandle) ;
    ,    @nHandle)
    if GDIPLUS_STATUS_OK == This.GdipStatus
        This.SetHandle(m.nHandle,.T.)
    endif
    This.SetHandle(m.nHandle,.F.)
endif
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE create
lparameters tnFlags, tnLangID
this.Destroy()
local nHandle
nHandle = 0
Declare Integer GdipCreateStringFormat In GDIPlus.Dll ;
    integer,integer,integer @nHandle
This.gdipStatus = GdipCreateStringFormat ( ;
    evl(tnFlags,0) ;
    , evl(m.tnLangID,0) ;
    , @nHandle )
This.SetHandle(m.nHandle,.T.)
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE clone
lparameters toStringFormat as GpStringFormat
this.Destroy()
local nHandle
nHandle = 0
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toStringFormat)='O' and m.toStringFormat.gdipHandle<>0)
    error 11 && Function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
Declare Integer GdipCloneStringFormat In GDIPlus.Dll ;
    integer nOriginal, integer @nClone
This.GdipStatus = GdipCloneStringFormat( ;
    m.toStringFormat.gdipHandle ;
,    @nHandle)
this.gdipHandle= m.nHandle
This.gdipOwnsThisHandle = .T.
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE Destroy
if This.GdipHandle!=0 and This.gdipOwnsThisHandle
    Declare Integer GdipDeleteStringFormat In GDIPlus.Dll ;
        integer nStringFormat
    GdipDeleteStringFormat(This.GdipHandle)
    This.GdipHandle=0
    This.gdipOwnsThisHandle=.F.
endif
ENDPROC
PROCEDURE Init
lparameters tnFlags, tnLangID
if not dodefault()
    return .F.
endif
if pcount()>0
    return This.Create(m.tnFlags,m.tnLangID)
endif
ENDPROC
w>PROCEDURE createfromfile
lparameters tcFilename as String, tlUseEmbeddedColorMgmt as Logical
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcFilename)='C' and !empty(m.tcFilename) and vartype(m.tlUseEmbeddedColorMgmt)='L')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
if m.tlUseEmbeddedColorMgmt
    declare integer GdipLoadImageFromFileICM in gdiplus.dll ;
        string wFilename, integer @ nImage
    this.Destroy()
    local nHandle
    nHandle = 0
    This.gdipStatus = GdipLoadImageFromFileICM( ;
        strconv(m.tcFilename+chr(0),5) ;
    ,    @nHandle)
    this.SetHandle(m.nHandle,.T.)
    return GDIPLUS_STATUS_OK == This.gdipStatus
    declare integer GdipLoadImageFromFile in gdiplus.dll ;
        string wFilename, integer @ nImage
    this.Destroy()
    local nHandle
    nHandle = 0
    This.gdipStatus = GdipLoadImageFromFile( ;
        strconv(m.tcFilename+chr(0),5) ;
    ,    @nHandle)
    this.SetHandle(m.nHandle,.T.)
    return GDIPLUS_STATUS_OK == This.gdipStatus
endif
ENDPROC
PROCEDURE savetofile
lparameters tcFilename as String, tvCLSIDEncoder, rvEncoderParams
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcFilename)='C' and !empty(m.tcFilename))
    error 11 && Function argument
endif
#endif
local lqCLSIDEncoder
* Encoder may be varbinary, or string
do case
case vartype(m.tvCLSIDEncoder)=='Q'
    lqCLSIDEncoder = m.tvCLSIDEncoder
case vartype(m.tvCLSIDEncoder)=='C'
    if left(m.tvCLSIDEncoder,1)=='{'
        lqCLSIDEncoder = This.StringToGUID( m.tvCLSIDEncoder)
    else
        lqCLSIDEncoder = This.GetEncoderCLSID(m.tvCLSIDEncoder)
    endif
otherwise
    error 11
endcase
declare integer GdipSaveImageToFile in gdiplus.dll ;
    integer nImage, string wFilename, string qEncoder, integer  nEncoderParamsPtr
declare integer GlobalFree in kernel32.dll integer nHandle
local lnEncoderParamsPtr
do case
case type("rvEncoderParams[1]")!='U'
    lnEncoderParamsPtr = This.getEncoderParamsFromArray( m.lqCLSIDEncoder, @rvEncoderParams )
case vartype(m.rvEncoderParams)=='C'
    lnEncoderParamsPtr = This.getEncoderParamsFromString( m.lqCLSIDEncoder, @rvEncoderParams )
case vartype(m.rvEncoderParams)=='L' and !m.rvEncoderParams
    lnEncoderParamsPtr = 0
otherwise
    error 11    && function argument
    return .F.
endcase
This.gdipStatus = GdipSaveImageToFile ( ;
    This.gdipHandle ;
,    strconv(m.tcFilename,5)+chr(0) ;
,    m.lqCLSIDEncoder ;
,    m.lnEncoderParamsPtr )
if m.lnEncoderParamsPtr!=0
    GlobalFree(m.lnEncoderParamsPtr)
endif
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE getthumbnailimage
lparameters tnWidth as Integer, tnHeight as Integer
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return null
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnWidth)='N' and vartype(m.tnHeight)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipGetImageThumbnail in gdiplus.dll ;
    integer nSrcImage, integer nWidth, integer nHeight, integer @nNewImage,integer,integer
local lnNewImage
lnNewImage = 0
This.gdipStatus = GdipGetImageThumbnail( ;
    This.gdipHandle ;
    , m.tnWidth, m.tnHeight, @lnNewImage, 0, 0 )
if GDIPLUS_STATUS_OK == This.gdipStatus
    return This.ObjFactory('gpimage.getthumbnailimage', GDIPLUS_CLASS_IMAGE,m.lnNewImage)
else
    return null
endif
ENDPROC
PROCEDURE getencoderclsid
lparameters tvSearchValue
* When passed varbinary, search on Image format GUID
* When passed char, search on mime type
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tvSearchValue)='C' or (vartype(m.tvSearchValue)='Q' and len(m.tvSearchValue)=16))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return cast(null as Q)
endif
#endif
local lnNumEncoders as Integer, lnBufferSize as integer
lnNumEncoders = 0
lnBufferSize = 0
* The buffer is self-referencing: it starts with an array of ImageCodecInfo
* followed by the text strings, and the array contains pointers to the text strings
* To avoid the danger, however slight, of VFP moving this memory around, I allocate
* Memory using GlobalAlloc.
* eg on my system, sizeof(ImageCodecInfo)=76, num encoders=5, but lnBufferSize=1040
* object is 1040 bytes
declare integer GlobalAlloc in kernel32.dll integer nFlags, integer nSize
declare integer GlobalFree in kernel32.dll integer nHandle
declare integer lstrlenW in kernel32.dll as __win32_lstrlenW_ptr integer
declare integer GdipGetImageEncodersSize in gdiplus.dll ;
    integer @numEncoders, integer @ nsize
declare integer GdipGetImageEncoders in gdiplus.dll ;
    integer numEncoders, integer nsize, integer nBufferPtr
This.gdipStatus = GdipGetImageEncodersSize( @lnNumEncoders, @lnBufferSize )
if GDIPLUS_STATUS_OK != This.gdipStatus
    return cast(null as Q)
endif
local lnBufferPtr as Integer, lnStringPtr as integer, liEncoder as integer
lnBufferPtr = GlobalAlloc( 0x0040, m.lnBufferSize ) && 0x40=GMEM_FIXED|GMEM_ZEROINIT
* Be careful from now on to deallocate this memory
* TRY ..CATCH would be smart?
This.gdipStatus = GdipGetImageEncoders( m.lnNumEncoders, m.lnBufferSize, m.lnBufferPtr )
if GDIPLUS_STATUS_OK != This.gdipStatus
    GlobalFree( m.lnBufferPtr )
    return cast(null as Q)
endif
local lcFoundCLSID
lcFoundCLSID = null
do case
case vartype(m.tvSearchValue)='C'    && Search on mime type
    local lcUnicodeMimeType
    lcUnicodeMimeType = strconv(m.tvSearchValue,5)
    for liEncoder = 0 to m.lnNumEncoders-1
        lnStringPtr = ctobin( sys(2600,m.lnBufferPtr+m.liEncoder*76+48,4),'RS')
        if m.lcUnicodeMimeType == sys(2600,lnStringPtr,__win32_lstrlenW_ptr(m.lnStringPtr)*2 )
            lcFoundCLSID = sys(2600,m.lnBufferPtr+m.liEncoder*76,16)
            exit
        endif
    endfor
case vartype(m.tvSearchValue)='Q'    && Search on Image format GUID
    local lcFormatID
    lcFormatID = cast(m.tvSearchValue as C(16))
    for liEncoder = 0 to m.lnNumEncoders-1
        if m.tvSearchValue == cast( sys(2600,m.lnBufferPtr+m.liEncoder*76+16,16) as Q(16) )
            lcFoundCLSID = sys(2600,m.lnBufferPtr+m.liEncoder*76,16)
            exit
        endif
    endfor
otherwise
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return cast(null as Q)
endcase
GlobalFree( m.lnBufferPtr )
return cast( m.lcFoundCLSID as Q(16) )
ENDPROC
PROCEDURE getbounds
lparameters tnUnit as integer
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnUnit)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return null
endif
#endif
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return null
endif
#endif
declare integer GdipGetImageBounds in gdiplus.dll ;
    integer nGraphics, string @ pRectF, integer @nUnit
local lcRectF
lcRectF = replicate(chr(0),16)
This.gdipStatus = GdipGetImageBounds( This.gdipHandle, @lcRectF, @tnUnit )
if This.gdipStatus==GDIPLUS_STATUS_OK and len(m.lcRectF)==16
    return This.ObjFactory( 'gpimage.getbounds', GDIPLUS_CLASS_RECT,@lcRectF)
    return null
endif
ENDPROC
PROCEDURE rotateflip
lparameters tnRotateFlipType
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnRotateFlipType)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipImageRotateFlip in gdiplus.dll ;
    integer nImage, integer nMode
This.gdipStatus = GdipImageRotateFlip( This.gdipHandle, m.tnRotateFlipType )
return (GDIPLUS_STATUS_OK == This.gdipStatus)
ENDPROC
PROCEDURE flags_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare Integer GdipGetImageFlags in gdiplus.dll ;
    integer nImage, integer @ nValue
local nValue
nValue = 0
This.gdipStatus = GdipGetImageFlags( This.gdipHandle, @nValue)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nValue,cast(null as I))
ENDPROC
PROCEDURE flags_assign
lparameters newVal
error 1743, "Flags"
ENDPROC
PROCEDURE horizontalresolution_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as B)
endif
#endif
declare Integer GdipGetImageHorizontalResolution in gdiplus.dll ;
    integer nImage, single @ nValue
local nValue
nValue = 0.0
This.gdipStatus = GdipGetImageHorizontalResolution( This.gdipHandle, @nValue)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nValue,cast(null as B))
ENDPROC
PROCEDURE horizontalresolution_assign
lparameters newVal
error 1743, "HorizontalResolution"
ENDPROC
PROCEDURE verticalresolution_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as B)
endif
#endif
declare Integer GdipGetImageVerticalResolution in gdiplus.dll ;
    integer nImage, single @ nValue
local nValue
nValue = 0.0
This.gdipStatus = GdipGetImageVerticalResolution( This.gdipHandle, @nValue)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nValue,cast(null as B))
ENDPROC
PROCEDURE verticalresolution_assign
lparameters newVal
error 1743, "VerticalResolution"
ENDPROC
PROCEDURE imageheight_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare Integer GdipGetImageHeight in gdiplus.dll ;
    integer nImage, integer @ nValue
local nValue
nValue = 0
This.gdipStatus = GdipGetImageHeight( This.gdipHandle, @nValue)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nValue,cast(null as I))
ENDPROC
PROCEDURE imageheight_assign
lparameters newVal
error 1743, "ImageHeight"
ENDPROC
PROCEDURE imagewidth_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare Integer GdipGetImageWidth in gdiplus.dll ;
    integer nPen, integer @ nValue
local nValue
nValue = 0
This.gdipStatus = GdipGetImageWidth( This.gdipHandle, @nValue)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nValue,cast(null as I))
ENDPROC
PROCEDURE imagewidth_assign
lparameters newVal
error 1743, "ImageWidth"
ENDPROC
PROCEDURE rawformat_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as Q(16))
endif
#endif
declare Integer GdipGetImageRawFormat in gdiplus.dll ;
    integer nImage, string @ sGUID
local sGUID
sGUID = replicate(chr(0),16)
This.gdipStatus = GdipGetImageRawFormat( This.gdipHandle, @sGUID)
return cast(iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.sGUID,null) as Q(16))
ENDPROC
PROCEDURE rawformat_assign
lparameters newVal
error 1743, "RawFormat"
ENDPROC
PROCEDURE pixelformat_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare Integer GdipGetImagePixelFormat in gdiplus.dll ;
    integer nPen, integer @ nValue
local nValue
nValue = 0
This.gdipStatus = GdipGetImagePixelFormat( This.gdipHandle, @nValue)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nValue,cast(null as I))
ENDPROC
PROCEDURE pixelformat_assign
lparameters newVal
error 1743, "PixelFormat"
ENDPROC
PROCEDURE getdecoderclsid
lparameters tvSearchValue
* When passed varbinary, search on Image format GUID
* When passed char, search on mime type
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tvSearchValue)='C' or (vartype(m.tvSearchValue)='Q' and len(m.tvSearchValue)=16))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return cast(null as Q)
endif
#endif
local lnNumDecoders as Integer, lnBufferSize as integer
lnNumDecoders = 0
lnBufferSize = 0
* The buffer is self-referencing: it starts with an array of ImageCodecInfo
* followed by the text strings, and the array contains pointers to the text strings
* To avoid the danger, however slight, of VFP moving this memory around, I allocate
* Memory using GlobalAlloc.
declare integer GlobalAlloc in kernel32.dll integer nFlags, integer nSize
declare integer GlobalFree in kernel32.dll integer nHandle
declare integer lstrlenW in kernel32.dll as __win32_lstrlenW_ptr integer
declare integer GdipGetImageDecodersSize in gdiplus.dll ;
    integer @numDecoders, integer @ nsize
declare integer GdipGetImageDecoders in gdiplus.dll ;
    integer numDecoders, integer nsize, integer nBufferPtr
This.gdipStatus = GdipGetImageDecodersSize( @lnNumDecoders, @lnBufferSize )
if GDIPLUS_STATUS_OK != This.gdipStatus
    return cast(null as Q)
endif
local lnBufferPtr as Integer, lnStringPtr as integer, liDecoder as integer
lnBufferPtr = GlobalAlloc( 0x0040, m.lnBufferSize ) && 0x40=GMEM_FIXED|GMEM_ZEROINIT
* Be careful from now on to deallocate this memory
* TRY ..CATCH would be smart?
This.gdipStatus = GdipGetImageDecoders( m.lnNumDecoders, m.lnBufferSize, m.lnBufferPtr )
if GDIPLUS_STATUS_OK != This.gdipStatus
    GlobalFree( m.lnBufferPtr )
    return cast(null as Q)
endif
local lcFoundCLSID
lcFoundCLSID = null
do case
case vartype(m.tvSearchValue)='C'    && Search on mime type
    local lcUnicodeMimeType
    lcUnicodeMimeType = strconv(m.tvSearchValue,5)
    for liDecoder = 0 to m.lnNumDecoders-1
        lnStringPtr = ctobin(sys(2600,m.lnBufferPtr+m.liDecoder*76+48,4),'RS')
        if m.lcUnicodeMimeType == sys(2600,lnStringPtr,__win32_lstrlenW_ptr(m.lnStringPtr)*2 )
            lcFoundCLSID = sys(2600,m.lnBufferPtr+m.liDecoder*76,16)
            exit
        endif
    endfor
case vartype(m.tvSearchValue)='Q'    && Search on Image format GUID
    local lcFormatID
    lcFormatID = cast(m.tvSearchValue as C(16))
    for liDecoder = 0 to m.lnNumDecoders-1
        if m.tvSearchValue == cast( sys(2600,m.lnBufferPtr+m.liDecoder*76+16,16) as Q(16) )
            lcFoundCLSID = sys(2600,m.lnBufferPtr+m.liDecoder*76,16)
            exit
        endif
    endfor
otherwise
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    * No return here - must still free memory, see below!
endcase
GlobalFree( m.lnBufferPtr )
return cast( m.lcFoundCLSID as Q(16) )
ENDPROC
PROCEDURE physicaldimension_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return null
endif
#endif
declare integer GdipGetImageDimension in gdiplus.dll ;
    integer nGraphics, single @, single @
local lnWidth, lnHeight
store 0.0 to lnWidth, lnHeight
This.gdipStatus = GdipGetImageDimension ( This.gdipHandle, @lnWidth, @lnHeight )
if This.gdipStatus==GDIPLUS_STATUS_OK
    return This.ObjFactory('gpimage.physicaldimension_access',GDIPLUS_CLASS_SIZE, m.lnWidth, m.lnHeight)
    return null
endif
ENDPROC
PROCEDURE physicaldimension_assign
lparameters newVal
error 1743, "PhysicalDimension"
ENDPROC
PROCEDURE getencoderparamsfromstring
lparameters lqCLSIDEncoder, tcEncoderParams
* Internal function, parse string into EncoderParameters array
* return global memory handle (pointer)
* Input is a string of the format "param1=value1, param2=value2, ..."
* This is more limited than the array version in that
*    - it only understands string parameter names
*    - it only understands those parameters it knows about
*    - data type is only the kind this class implements
*    - cannot include commas in values
* but it is easier to use for the more common cases
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcEncoderParams)=='C')
    error 11 && Function argument
endif
#endif
* Short circui
if empty(m.tcEncoderParams)
    return 0    && nothing to do
endif
local lnCount
lnCount= occurs(",",m.tcEncoderParams)+1
local laParams[m.lnCount,3], lnPos,lcName, lcValue, lqGUID, lnType, lcScratch,liParam
lcScratch = m.tcEncoderParams
for liParam = 1 to m.lnCount
    * Find name
    lnPos = at('=',m.lcScratch)
    if m.lnPos = 0
        * Invalid
        error _GDIPLUS_BADENCODERPARAMSTRING_LOC
        return 0
    endif
    lcName = alltrim(left(m.lcScratch,m.lnPos-1))
    lcScratch = substr(m.lcScratch,m.lnPos+1)
    lnPos = at(',',m.lcScratch)
    if m.lnPos = 0
        lcValue = alltrim(m.lcScratch)
        lcScratch = ''
    else
        lcValue = alltrim(left(m.lcScratch,m.lnPos-1))
        lcScratch = substr(m.lcScratch,m.lnPos+1)
    endif
    * Now look it up
    if not This.getEncoderParamInfo( m.lcName, @lqGUID, @lnType )
        error _GDIPLUS_BADENCODERPARAMNAME_LOC
        return 0
    endif
    laParams[m.liParam,1] = m.lqGUID
    laParams[m.liParam,2] = m.lnType
    do case
    case inlist(m.lnType ;
        ,GDIPLUS_ValueDataType_Byte,GDIPLUS_ValueDataType_Short,GDIPLUS_ValueDataType_Long )
        laParams[m.liParam,3] = val(m.lcValue)
    * rationals?
    otherwise
        laParams[m.liParam,3] = m.lcValue
    endcase
endfor
return This.getEncoderParamsFromArray( m.lqCLSIDEncoder, @laParams )
ENDPROC
PROCEDURE getencoderparamsfromarray
lparameters lqCLSIDEncoder, raEncoderParams
* Internal function, convert array into EncoderParameters array
* return global memory handle (pointer)
external array raEncoderParams
#if GDIPLUS_CHECK_PARAMS
if !(type( "raEncoderParams[1]")!='U' and alen(raEncoderParams,2) >= 3)
    error 11 && Function argument
endif
#endif
* Input is a 3-column array, where
*    array[i,1] = GUID (varbinary) or name (string) of parameter
*    array[i,2] = data type (se GDIPLUS_ValueDataType_xxx constants)
*    array[i,3] = value
* Need to build an array of EncoderParameter objects
* Each item is:
* arraycol    Offset    Size    Description
* 1            0        16        GUID of the parameter, see GDIPLUS_ENCODER_xxx constants
* 2            16        4        Number of values
* 3            20        4        Data type - see
* -            24        4        Pointer to buffer
* 4            n/a                value
* Build local array of parameters
local lnParamCount
lnParamCount = alen(raEncoderParams,1)
local laParam[m.lnParamCount,4], liParam, lcName, lqParamID,lvValue,lnValue, lnBufferSize, lnBufferPtr
lnBufferSize = 4 + 28 * m.lnParamCount    && 4=sizeof(ULONG), 28=sizeof(EncoderParameter)
for liParam = 1 to m.lnParamCount
    lqParamID = null    && initialise
    * Check input
    * Name -> GUID
    do case
    case vartype( raEncoderParams[m.liParam,1])=='C'
        * Look it up
        lcName = raEncoderParams[m.liParam,1]    && to save having two error messages (ouch)
        if not This.getEncoderParamInfo( m.lcName, @lqParamID )
            error _GDIPLUS_BADENCODERPARAMNAME_LOC
            return 0
        endif
        laParam[m.liParam,1] = m.lqParamID
    case vartype( raEncoderParams[m.liParam,1])=='Q' and len(raEncoderParams[m.liParam,1])=16
        laParam[m.liParam,1] = raEncoderParams[m.liParam,1]
    otherwise
        error _GDIPLUS_BADENCODERPARAMNAMETYPE_LOC
    endcase
    * Data type and value
    laParam[m.liParam,2]=1    && default value
    laParam[m.liParam,3]=raEncoderParams[m.liParam,2]
    lvValue = raEncoderParams[m.liParam,3]
    lnValue = icase( vartype(raEncoderParams[m.liParam,3])$'NY',raEncoderParams[m.liParam,3] ;
                    ,vartype(raEncoderParams[m.liParam,3])='C',val(raEncoderParams[m.liParam,3]) ;
                    ,null)
    local llOK
    llOK = .F. && only set to .T. if works
    do case
    case GDIPLUS_ValueDataType_Byte = laParam[m.liParam,3]
        if vartype(m.lvValue)$'NC'
            laParam[m.liParam,4] = chr(m.lnValue)
            llOK = .T.
        endif
    case GDIPLUS_ValueDataType_Short= laParam[m.liParam,3]
        if vartype(m.lvValue)$'NC'
            laParam[m.liParam,4] = chr(m.lnValue%256)+chr(m.lnValue/256)
            llOK = .T.
        endif
    case GDIPLUS_ValueDataType_Long = laParam[m.liParam,3]
        if vartype(m.lvValue)$'NC'
            laParam[m.liParam,4] = bintoc(m.lnValue,'4RS')
            llOK = .T.
        endif
    case GDIPLUS_ValueDataType_Rational = laParam[m.liParam,3]
        * must be expressed as a string in the form "num/den"
        if vartype(m.lvValue)=='C' and '/' $ m.lvValue
            laParam[m.liParam,4] = ;
                bintoc(val(strextract(m.lnValue,'','/')),'4RS') ;
                + bintoc(val(strextract(m.lnValue,'/','')),'4RS')
            llOK = .T.
        endif
    case GDIPLUS_ValueDataType_LongRange = laParam[m.liParam,3]
        * must be expressed as a string in the form "low-high"
        if vartype(m.lvValue)=='C' and '-' $ m.lvValue
            laParam[m.liParam,4] = ;
                bintoc(val(strextract(m.lnValue,'','-')),'4RS') ;
                + bintoc(val(strextract(m.lnValue,'-','')),'4RS')
            llOK = .T.
        endif
    case GDIPLUS_ValueDataType_ASCII = laParam[m.liParam,3]
        if vartype(m.lvValue)=='C'
            laParam[m.liParam,4] = m.lvValue + chr(0)
            * laParam[m.liParam,2]= len(laParam[m.liParam,4]) ?
            llOK = .T.
        endif
    case GDIPLUS_ValueDataType_Undefined = laParam[m.liParam,3]
        if vartype(m.lvValue)$'CQ'
            laParam[m.liParam,4] = m.lvValue
            laParam[m.liParam,2]= len(m.lvValue)
            llOK = .T.
        endif
    * Don't support rational range or pointer
    * otherwise llOK already false
    endcase
    if ! m.llOK
        error _GDIPLUS_BADENCODERPARAMVALUE_LOC
        return 0
    endif
    lnBufferSize = m.lnBufferSize + len(laParam[m.liParam,4])
endfor
* OK, allocate array and go for it.
declare integer GlobalAlloc in kernel32.dll integer nFlags, integer nSize
lnBufferPtr = GlobalAlloc( 0x0040, m.lnBufferSize ) && 0x40=GMEM_FIXED|GMEM_ZEROINIT
if 0==m.lnBufferPtr
    * Memory allocation error
    error _GDIPLUS_LOC_MALLOCFAIL
    return null
endif
local lnArrayPtr, lnValuePtr
lnArrayPtr = m.lnBufferPtr + 4
lnValuePtr = m.lnArrayPtr  + 28*m.lnParamCount
* parameter count:
sys(2600,m.lnBufferPtr ,4, bintoc(m.lnParamCount,'4RS'))
for liParam = 1 to m.lnParamCount
    sys(2600,m.lnArrayPtr,28, ;
        laParam[m.liParam,1];
        + bintoc(laParam[m.liParam,2],'4RS') ;
        + bintoc(laParam[m.liParam,3],'4RS') ;
        + bintoc(m.lnValuePtr,'4RS') ;
    sys(2600,m.lnValuePtr,len(laParam[m.liParam,4]),laParam[m.liParam,4])
    lnArrayPtr = m.lnArrayPtr + 28
    lnValuePtr = m.lnValuePtr + len(laParam[m.liParam,4])
endfor
return m.lnBufferPtr
ENDPROC
PROCEDURE getencoderparaminfo
lparameters tcParamName, rqGUID, rnDataType
do case
case upper(m.tcParamName) == 'QUALITY'
    * Supported by: JPEG
    rqGUID = GDIPLUS_ENCODER_Quality
    rnDataType = GDIPLUS_ValueDataType_Long
case upper(m.tcParamName) == 'TRANSFORMATION'
    * Supported by: JPEG
    rqGUID = GDIPLUS_ENCODER_Transformation
    rnDataType = GDIPLUS_ValueDataType_Long
case upper(m.tcParamName) == 'LUMINANCETABLE'
    * Supported by: JPEG
    rqGUID = GDIPLUS_ENCODER_LuminanceTable
    rnDataType = GDIPLUS_ValueDataType_Short && array of ...
case upper(m.tcParamName) == 'CHROMINANCETABLE'
    * Supported by: JPEG
    rqGUID = GDIPLUS_ENCODER_ChrominanceTable
    rnDataType = GDIPLUS_ValueDataType_Short && array of ...
case upper(m.tcParamName) == 'COMPRESSION'
    * Supported by: TIFF
    rqGUID = GDIPLUS_ENCODER_Compression
    rnDataType = GDIPLUS_ValueDataType_Long
case upper(m.tcParamName) == 'COLORDEPTH'
    * Supported by: TIFF
    rqGUID = GDIPLUS_ENCODER_ColorDepth
    rnDataType = GDIPLUS_ValueDataType_Long
case upper(m.tcParamName) == 'SAVEFLAG'
    * Supported by: TIFF
    rqGUID = GDIPLUS_ENCODER_SaveFlag
    rnDataType = GDIPLUS_ValueDataType_Long
* These are defined by GDI+ but not supported by any of the standard encoders
*case upper(m.tcParamName) == 'COMPRESSION'
*case upper(m.tcParamName) == 'SCANMETHOD'
*case upper(m.tcParamName) == 'VERSION'
*case upper(m.tcParamName) == 'RENDERMETHOD'
otherwise
    return .F.
endcase
return .T.
ENDPROC
PROCEDURE getpropertycount
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
local lnCount
store 0 to lnCount
declare integer GdipGetPropertyCount in gdiplus.dll ;
    integer nImage, integer @nCount
This.gdipStatus = GdipGetPropertyCount( This.gdipHandle, @lnCount)
return iif(GDIPLUS_STATUS_OK==This.gdipStatus,m.lnCount,cast(null as I))
ENDPROC
PROCEDURE getpropertyidlist
lparameters raPropIDList
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(type("raPropIDList[1]")!='U')
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    error 11 && Function argument
    return cast(null as I)
endif
#endif
local lnCount, lcIdList, lnIndex
lnCount = This.GetPropertyCount()
if isnull(m.lnCount) or m.lnCount<1
    return m.lnCount
endif
declare integer GdipGetPropertyIdList in gdiplus.dll ;
    integer nImage, integer nCount, string @ list
lcIdList = replicate( chr(0), 4*m.lnCount )
This.gdipStatus = GdipGetPropertyIdList( This.gdipHandle, lnCount, @lcIdList )
* Now convert to the array
dimension raPropIDList[m.lnCount]
for lnIndex = 1 to m.lnCount
    raPropIDList[m.lnIndex] = ctobin(substr(m.lcIdList,m.lnIndex*4-3,4),'RS')
endfor
return m.lnCount
ENDPROC
PROCEDURE getpropertyitem
lparameters tnPropID as Integer
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnPropID)='N')
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    error 11 && Function argument
    return cast(null as I)
endif
#endif
declare integer GlobalAlloc in kernel32.dll integer nFlags, integer nSize
declare integer GlobalFree in kernel32.dll integer nHandle
declare integer lstrlenA in kernel32.dll as __win32_lstrlenA_ptr integer
declare integer GdipGetPropertyItemSize in gdiplus.dll ;
    integer nImage, integer nPropID, integer @ nBufSize
declare integer GdipGetPropertyItem in gdiplus.dll ;
    integer nImage, integer nPropID, integer nBufSize, integer nBufferPtr
local lnBufferSize as integer, lnBufferPtr as Integer, lnStringPtr as integer
lnBufferSize = 0
This.gdipStatus = GdipGetPropertyItemSize( This.gdipHandle, m.tnPropID, @lnBufferSize )
if GDIPLUS_STATUS_OK != This.gdipStatus
    return null
endif
lnBufferPtr = GlobalAlloc( 0x0040, m.lnBufferSize ) && 0x40=GMEM_FIXED|GMEM_ZEROINIT
if 0==m.lnBufferPtr
    * Memory allocation error
    error _GDIPLUS_MALLOCFAIL_LOC
    return null
endif
This.gdipStatus = GdipGetPropertyItem( This.gdipHandle, m.tnPropID, m.lnBufferSize, m.lnBufferPtr )
if GDIPLUS_STATUS_OK != This.gdipStatus
    GlobalFree( m.lnBufferPtr )
    return null
endif
* Now decode the parameter
* PropertyItem
* Offset    Size    Description
*   0         4         ID (32 bit int)
*    4         4        Length of value
*    8         4        Data type - GP_PROPERTYTAGTYPE_xxx
*  12         4        Pointer to value
*  16 (probably)    The value itself
local lnPropertyTagType, lnValueLen, lnValuePtr, lvReturn
lnPropertyTagType = ctobin(sys(2600,m.lnBufferPtr+8,4),'RS')
lnValueLen = ctobin(sys(2600,m.lnBufferPtr+4,4),'RS')
lnValuePtr = ctobin(sys(2600,m.lnBufferPtr+12,4),'RS')
do case
case inlist(m.lnPropertyTagType,0,6,7,8)    && nothing or undefined
    lvReturn = null    && warning: this is also error value
case 1 == m.lnPropertyTagType    && Byte
    lvReturn = asc( sys(2600,m.lnValuePtr,1))
case 2 == m.lnPropertyTagType    && ASCII string (_not_ unicode)
    * trim null byte off end, but only if there! (It *should* be, but..)
    lvReturn = strextract(sys(2600,m.lnValuePtr,m.lnValueLen),'',chr(0),1,2)
case 3 == m.lnPropertyTagType    && Short (16 bit)
    lvReturn = asc(sys(2600,m.lnValuePtr,1))+256*asc(sys(2600,m.lnValuePtr+1,1))
case 4 == m.lnPropertyTagType    && Long (32 bit)
    lvReturn = ctobin(sys(2600,m.lnValuePtr,4),'RS')
case 5 == m.lnPropertyTagType    && Rational(two 32 bit)
    * return as string
    lvReturn = ltrim(str( ctobin(sys(2600,m.lnValuePtr,4),'RS') )) ;
        + '/' ;
        + ltrim(str( ctobin(sys(2600,m.lnValuePtr+4,4),'RS') ))
case 9 == m.lnPropertyTagType    && signed Long (32 bit)
    lvReturn = ctobin(sys(2600,m.lnValuePtr,4),'RS')
    if m.lvReturn>0x7FFFFFFF
        lvReturn = m.lvReturn - 0x100000000
    endif
case 10 == m.lnPropertyTagType    && signed rational a/b
    local lnNum, lnDen
    lnNum = ctobin(sys(2600,m.lnValuePtr,4),'RS')
    lnDen = ctobin(sys(2600,m.lnValuePtr+4,4),'RS')
    if m.lnNum >0x7FFFFFFF
        lnNum = m.lnNum - 0x100000000
    endif
    if m.lnDen >0x7FFFFFFF
        lnDen = m.lnDen - 0x100000000
    endif
    lvReturn = ltrim(str(m.lnNum)) +'/'+ltrim(str(m.lnDen))
otherwise
    GlobalFree( m.lnBufferPtr )
    error _GDIPLUS_BADPROPERTYTAGTYPE_LOC
    return null
endcase
GlobalFree( m.lnBufferPtr )
return m.lvReturn
ENDPROC
PROCEDURE clone
lparameters toImage as GpImage
this.Destroy()
local nHandle
nHandle = 0
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toImage)='O' and m.toImage.gdipHandle<>0)
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
Declare Integer GdipCloneImage In GDIPlus.Dll ;
    integer nImage, integer @nCloneImage
This.GdipStatus = GdipCloneImage( ;
    m.toImage.gdipHandle ;
,    @nHandle)
this.gdipHandle= m.nHandle
return GDIPLUS_STATUS_OK == This.GdipStatus
ENDPROC
PROCEDURE Destroy
if This.GdipHandle!=0 and This.gdipOwnsThisHandle
    Declare Integer GdipDisposeImage In GDIPlus.Dll ;
        integer nImage
    GdipDisposeImage(This.GdipHandle)
    This.GdipHandle=0
    This.gdipOwnsThisHandle = .F.
endif
ENDPROC
PROCEDURE Init
lparameters tvParam1, tvParam2
if not dodefault()
    return .F.
endif
do case
case vartype(m.tvParam1) = 'N'
    * Handle
    #if GDIPLUS_CHECK_PARAMS
    if !(vartype(m.tvParam2)='L')
        error 11 && function argument
        This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
        return .F.
    endif
    #endif
    This.SetHandle(m.tvParam1,m.tvParam2)
case vartype(m.tvParam1) = 'C'
    * Filename, no second param
    #if GDIPLUS_CHECK_PARAMS
    if !(vartype(m.tvParam2)='L')
        error 11 && function argument
        This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
        return .F.
    endif
    #endif
    return This.CreateFromFile( m.tvParam1, m.tvParam2 )
case vartype(m.tvParam1)='L'
    * Do nothing
otherwise
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endcase
return .T.
ENDPROC
6PROCEDURE gdiprect_access
* Convert object into 4 x 4-byte integers
* Modify bintoc() output into little-endian with normal sign bit
return ;
    bintoc(This.X,'4RS')+bintoc(This.Y,'4RS')+bintoc(This.W,'4RS')+bintoc(This.H,'4RS')
ENDPROC
PROCEDURE gdiprect_assign
LPARAMETERS tcRect
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcRect)='C' and len(m.tcRect)=16)
    error 11 && Function argument
    return .F.
endif
#endif
This.X = ctobin(substr(m.tcRect,1,4),'RS')
This.Y = ctobin(substr(m.tcRect,5,4),'RS')
This.W = ctobin(substr(m.tcRect,9,4),'RS')
This.H = ctobin(substr(m.tcRect,13,4),'RS')
ENDPROC
PROCEDURE gdiprectf_access
return ;
    bintoc(This.X,'F') + bintoc(This.Y,'F') ;
    + bintoc(This.W,'F') + bintoc(This.H,'F')
ENDPROC
PROCEDURE gdiprectf_assign
LPARAMETERS tcRectF
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcRectF)='C' and len(m.tcRectF)=16)
    error 11 && Function argument
    return .F.
endif
#endif
* Unpack structure
This.X = ctobin(substr(m.tcRectF,1,4),'N')
This.Y = ctobin(substr(m.tcRectF,5,4),'N')
This.W = ctobin(substr(m.tcRectF,9,4),'N')
This.H = ctobin(substr(m.tcRectF,13,4),'N')
ENDPROC
PROCEDURE create
lparameters tx,ty,tw,th
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tx)='N' and vartype(m.ty)='N' ;
    and vartype(m.tw)$'LN' and vartype(m.th)$'LN')
    error 11 && Function argument
    return .F.
endif
#endif
This.X = m.tx
This.Y = m.ty
This.W = evl(m.tw,0)
This.H = evl(m.th,0)
ENDPROC
PROCEDURE x2_access
RETURN THIS.x+This.w
ENDPROC
PROCEDURE y2_access
RETURN THIS.y+This.h
ENDPROC
PROCEDURE set
lparameters tx as Number,ty as Number,tw as Number,th as Number
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tx)='N' and vartype(m.ty)='N' ;
    and vartype(m.tw)$'LN' and vartype(m.th)$'LN')
    error 11 && Function argument
    return .F.
endif
#endif
This.X = m.tx
This.Y = m.ty
This.W = evl(m.tw,0)
This.H = evl(m.th,0)
ENDPROC
PROCEDURE gdippointf_access
* Convert object into 2 x 4-byte integers
* Modify bintoc() output into little-endian with normal sign bit
return ;
    bintoc(This.X,'F')+bintoc(This.Y,'F')
ENDPROC
PROCEDURE gdippointf_assign
LPARAMETERS tcPointF
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcPointF)='C' and len(m.tcPointF)=8)
    error 11 && Function argument
    return .F.
endif
#endif
* Unpack structure
This.X = ctobin(substr(m.tcRectF,1,4),'N')
This.Y = ctobin(substr(m.tcRectF,5,4),'N')
ENDPROC
PROCEDURE gdipsizef_access
* Convert object into 2 x 4-byte integers
* Modify bintoc() output into little-endian with normal sign bit
return ;
    bintoc(This.W,'F')+bintoc(This.H,'F')
ENDPROC
PROCEDURE gdipsizef_assign
LPARAMETERS tcSizeF
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcSizeF)='C' and len(m.tcSizeF)=8)
    error 11 && Function argument
    return .F.
endif
#endif
* Unpack structure
This.W = ctobin(substr(m.tcSizeF,1,4),'N')
This.H = ctobin(substr(m.tcSizeF,5,4),'N')
ENDPROC
PROCEDURE gppoint_access
RETURN This.ObjFactory( 'gprectange.gppoint_access', GDIPLUS_CLASS_POINT,This.X,This.Y)
ENDPROC
PROCEDURE gppoint_assign
LPARAMETERS toPoint
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toPoint)='O' and pemstatus(m.toPoint,'X',5))
    error 11 && Function argument
    return .F.
endif
#endif
This.X = m.toPoint.X
This.Y = m.toPoint.Y
ENDPROC
PROCEDURE gpsize_access
RETURN This.ObjFactory( 'gprectange.gpsize_access', GDIPLUS_CLASS_SIZE,This.W,This.H)
ENDPROC
PROCEDURE gpsize_assign
LPARAMETERS toSize
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toSize)='O' and pemstatus(m.toSize,'W',5))
    error 11 && Function argument
    return .F.
endif
#endif
This.W = m.toSize.W
This.H = m.toSize.H
ENDPROC
PROCEDURE createfrompointsize
lparameters toPoint as GpPoint, toSize as GpSize
do case
case empty(m.toPoint)
    * point not passed, (0,0) origin
    This.X = 0
    This.Y = 0
case vartype(m.toPoint)='O'
    This.GpPoint = m.toPoint
case vartype(m.toPoint)='C'
    * Assume PointF
    This.gdipPointF = m.toPoint
otherwise
    error 11
    return .F.
endcase
do case
case empty(m.toSize)
    * size not passed, (0,0) size
    This.W = 0
    This.H = 0
case vartype(m.toSize)='O'
    This.GpSize = m.toSize
case vartype(m.toSize)='C'
    * Assume SizeF
    This.gdipSizeF = m.toSize
otherwise
    error 11
    return .F.
endcase
ENDPROC
PROCEDURE gdipsize_access
* Return size as 2 x 32-bit integers
* Modify bintoc() output into little-endian with normal sign bit
return ;
    bintoc(This.W,'4RS')+bintoc(This.H,'4RS')
ENDPROC
PROCEDURE gdipsize_assign
LPARAMETERS tcSize as String
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcSize)='C' and len(m.tcSize)=8)
    error 11 && Function argument
    return .F.
endif
#endif
This.W = ctobin(substr(m.tcSize,1,4),'RS')
This.H = ctobin(substr(m.tcSize,5,4),'RS')
ENDPROC
PROCEDURE gdippoint_access
* Return size as 2 x 32-bit integers
* Modify bintoc() output into little-endian with normal sign bit
return ;
    bintoc(This.X,'4RS')+bintoc(This.Y,'4RS')
ENDPROC
PROCEDURE gdippoint_assign
LPARAMETERS tcPoint as String
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcPoint)='C' and len(m.tcPoint)=8)
    error 11 && Function argument
    return .F.
endif
#endif
This.X = ctobin(substr(m.tcPoint,1,4),'RS')
This.Y = ctobin(substr(m.tcPoint,5,4),'RS')
ENDPROC
PROCEDURE gdirect_access
* Convert object into 4 x 4-byte integers
* Modify bintoc() output into little-endian with normal sign bit
return ;
    bintoc(This.X,'4RS')+bintoc(This.Y,'4RS') ;
    + bintoc(This.X2,'4RS')+bintoc(This.Y2,'4RS')
ENDPROC
PROCEDURE gdirect_assign
LPARAMETERS tcRect as string
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcRect)='C' and len(m.tcRect)=16)
    error 11 && Function argument
    return .F.
endif
#endif
This.X = ctobin(substr(m.tcRect,1,4),'RS')
This.Y = ctobin(substr(m.tcRect,5,4),'RS')
This.X2 = ctobin(substr(m.tcRect,9,4),'RS')
This.Y2 = ctobin(substr(m.tcRect,13,4),'RS')
ENDPROC
PROCEDURE x2_assign
LPARAMETERS vNewVal
This.w = m.vNewVal - This.x
ENDPROC
PROCEDURE y2_assign
LPARAMETERS vNewVal
This.h = m.vNewVal - This.y
ENDPROC
PROCEDURE clone
lparameters toOtherRect
do case
case vartype(m.toOtherRect)='O'
    #if GDIPLUS_CHECK_PARAMS
    if !(vartype(toOtherRect.X)='N' and vartype(toOtherRect.Y)='N' ;
        and vartype(toOtherRect.W)='N' and vartype(toOtherRect.H)='N')
        error 11 && Function argument
        return .F.
    endif
    #endif
    This.X = m.toOtherRect.X
    This.Y = m.toOtherRect.Y
    This.W = m.toOtherRect.W
    This.H = m.toOtherRect.H
case vartype(m.toOtherRect)='C'
    #if GDIPLUS_CHECK_PARAMS
    if !(len(m.toOtherRect)=16)
        error 11 && Function argument
        return .F.
    endif
    #endif
    * Assume RectF
    This.gdipRectF = m.toOtherRect
otherwise
    error 11
    return .F.
endcase
ENDPROC
PROCEDURE Init
lparameters tXorRectorPoint,tYorSize,tw,th
if not dodefault()
    return .F.
endif
do case
case pcount()=0
    * empty constructor - rectangle will be empty
case pcount()=1 and vartype(m.tXorRectorPoint)='O'
    * Passed an object - presumably an existing Rect object
    This.Clone(m.tXorRectorPoint)
case pcount()=1 and vartype(m.tXorRectorPoint)='C'
    * Passed a string (structure)
    * Rect or RectF? Assume RectF as this is preferred format
    This.gdipRectF = m.tXorRectorPoint
case pcount()=2 and vartype(m.tXorRectorPoint)$'OC' and vartype(m.tYorSize)$'OC'
    * Passed separate point and size objects?
    This.CreateFromPointSize(m.tXorRectorPoint, m.tYorSize)
case pcount()>=4 ;
    and vartype(m.tXorRectorPoint)='N' and vartype(m.tYorSize)='N' ;
    and vartype(m.tw)='N' and vartype(m.th)='N'
    * Separate components
    This.Create(m.tXorRectorPoint,m.tYorSize,m.tw,m.th)
otherwise
    error 11
    return .F.
endcase
ENDPROC
GDI+ object not created or associated
GdipGetDpiX
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETDPIX
GDIPLUS
VNEWVAL
GDI+ object not created or associated
GdipGetDpiY
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETDPIY
GDIPLUS
VNEWVALW
GPPEN
GDI+ object not created or associated
ONNNN
GdipDrawLine
gdiplus.dll
TOPEN
GDIPHANDLE
GDIPSTATUS
GDIPDRAWLINE
GDIPLUS
GETHANDLE_
GDI+ object not created or associated
GdipDrawRectangle
gdiplus.dll
TOPEN
TXORRECT
GDIPHANDLE
GDIPSTATUS
GDIPDRAWRECTANGLE
GDIPLUS
GETHANDLE
GDI+ object not created or associated
gdipRectF
gdipPointF
GdipDrawString
gdiplus.dll
TCANSISTRING
TOFONT
TVRECTPOINT
TOSTRINGFORMAT
TOBRUSH
GDIPHANDLE
GDIPSTATUS
LCRECT
GDIPRECTF
GDIPPOINTF
GDIPDRAWSTRING
GDIPLUS
GETHANDLEW
GDI+ object not created or associated
gdipRectF
gdipPointF
GdipDrawString
gdiplus.dll
TCUNICODESTRING
TOFONT
TVRECTPOINT
TOSTRINGFORMAT
TOBRUSH
GDIPHANDLE
GDIPSTATUS
LCRECT
GDIPRECTF
GDIPPOINTF
GDIPDRAWSTRING
GDIPLUS
GETHANDLE
GDI+ object not created or associated
NNNNN
NNLLL
GdipDrawPie
gdiplus.dll
TOPEN
TXORRECT
TNYORSTART
TNWORSWEEP
NSTART
NSWEEP
GDIPHANDLE
GDIPSTATUS
GDIPDRAWPIE
GDIPLUS
GETHANDLE
GDI+ object not created or associated
NNNNN
NNLLL
GdipFillPie
gdiplus.dll
TOBRUSH
TXORRECT
TNYORSTART
TNWORSWEEP
NSTART
NSWEEP
GDIPHANDLE
GDIPSTATUS
GDIPFILLPIE
GDIPLUS
GETHANDLE
GDI+ object not created or associated
ONNNNNN
GdipDrawArc
gdiplus.dll
TOPEN
NWIDTH
NHEIGHT
NSTARTANGLE
NSWEEPANGLE
GDIPHANDLE
GDIPSTATUS
GDIPDRAWARC
GDIPLUS
GETHANDLE
GDI+ object not created or associated
ONNNNNNNN
GdipDrawBezier
gdiplus.dll
TOPEN
GDIPHANDLE
GDIPSTATUS
GDIPDRAWBEZIER
GDIPLUS
GETHANDLE]
GDI+ object not created or associated
GdipDrawEllipse
gdiplus.dll
TOPEN
TXORRECT
GDIPHANDLE
GDIPSTATUS
GDIPDRAWELLIPSE
GDIPLUS
GETHANDLE
GDI+ object not created or associated
GdipFillRectangle
gdiplus.dll
TOBRUSH
TXORRECT
GDIPHANDLE
GDIPSTATUS
GDIPFILLRECTANGLE
GDIPLUS
GETHANDLE
GDI+ object not created or associated
GdipFillEllipse
gdiplus.dll
TOBRUSH
TXORRECT
GDIPHANDLE
GDIPSTATUS
GDIPFILLELLIPSE
GDIPLUS
GETHANDLE
GDI+ object not created or associated
GdipFlush
gdiplus.dll
TNFLUSHINTENTION
GDIPHANDLE
GDIPSTATUS
GDIPFLUSH
GDIPLUS
GdipCreateFromHDC
gdiplus.dll
GDIPSTATUS
DESTROY
GDIPCREATEFROMHDC
GDIPLUS
NHANDLE
SETHANDLEv
LOGICAL
GdipCreateFromHWNDICM
gdiplus.dll
GdipCreateFromHWND
gdiplus.dll
TLICM
GDIPSTATUS
DESTROY
NHANDLE
GDIPCREATEFROMHWNDICM
GDIPLUS
GDIPCREATEFROMHWND
SETHANDLE
GDI+ object not created or associated
GdipGetCompositingMode
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETCOMPOSITINGMODE
GDIPLUS
NMODE
GDI+ object not created or associated
GdipSetCompositingMode
gdiplus.dll
TNMODE
GDIPHANDLE
GDIPSTATUS
GDIPSETCOMPOSITINGMODE
GDIPLUS
GDI+ object not created or associated
GdipGetCompositingQuality
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETCOMPOSITINGQUALITY
GDIPLUS
NQUALITY
GDI+ object not created or associated
GdipSetCompositingQuality
gdiplus.dll
TNQUALITY
GDIPHANDLE
GDIPSTATUS
GDIPSETCOMPOSITINGQUALITY
GDIPLUS
GDI+ object not created or associated
GdipGetInterpolationMode
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETINTERPOLATIONMODE
GDIPLUS
NMODE
GDI+ object not created or associated
GdipSetInterpolationMode
gdiplus.dll
TNINTERPMODE
GDIPHANDLE
GDIPSTATUS
GDIPSETINTERPOLATIONMODE
GDIPLUS
GDI+ object not created or associated
GdipGetPageScale
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPAGESCALE
GDIPLUS
NPAGESCALE
GDI+ object not created or associated
GdipSetPageScale
gdiplus.dll
TNSCALE
GDIPHANDLE
GDIPSTATUS
GDIPSETPAGESCALE
GDIPLUS
GDI+ object not created or associated
GdipGetSmoothingMode
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETSMOOTHINGMODE
GDIPLUS
NSMOOTHINGMODE
GDI+ object not created or associated
GdipSetSmoothingMode
gdiplus.dll
TNMODE
GDIPHANDLE
GDIPSTATUS
GDIPSETSMOOTHINGMODE
GDIPLUS
GDI+ object not created or associated
GdipGetPixelOffsetMode
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPIXELOFFSETMODE
GDIPLUS
NMODE
GDI+ object not created or associated
GdipSetPixelOffsetMode
gdiplus.dll
TNMODE
GDIPHANDLE
GDIPSTATUS
GDIPSETPIXELOFFSETMODE
GDIPLUS
GDI+ object not created or associated
GdipGetClipBounds
gdiplus.dll
gpgraphics.clipbounds_access
GpRectangle
GDIPHANDLE
GDIPSTATUS
GDIPGETCLIPBOUNDS
GDIPLUS
LCRECTF
LORECT
OBJFACTORY$
ClipBounds
VNEWVAL
GDI+ object not created or associated
GdipGetPageUnit
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETPAGEUNIT
GDIPLUS
NUNIT
GDI+ object not created or associated
GdipSetPageUnit
gdiplus.dll
TNUNIT
GDIPHANDLE
GDIPSTATUS
GDIPSETPAGEUNIT
GDIPLUS
GDI+ object not created or associated
GdipGetVisibleClipBounds
gdiplus.dll
gpgraphics.visibleclipbounds_access
GpRectangle
GDIPHANDLE
GDIPSTATUS
GDIPGETVISIBLECLIPBOUNDS
GDIPLUS
LCRECTF
LORECT
OBJFACTORY+
VisibleClipBounds
VNEWVALC
GDI+ object not created or associated
gdipRectF
GdipSizeF
GdipMeasureString
gdiplus.dll
STRING
INTEGER
INTEGER
gpgraphics.measurestring
GpSizeC
TCANSISTRING
TOFONT
TVLAYOUTAREA
TOSTRINGFORMAT
RNCHARSFITTED
RNLINESFILLED
GDIPHANDLE
GDIPSTATUS
LCRECTF
GDIPRECTF
GDIPSIZEF
GDIPMEASURESTRING
GDIPLUS
LCBOUNDINGBOX
LNCHARSFITTED
LNLINESFILLED
GETHANDLE
OBJFACTORY
GDI+ object not created or associated
GdipMeasureString
gdiplus.dll
STRING
INTEGER
INTEGER
gpgraphics.measurestring
GpSizeC
TCUNICODESTRING
TOFONT
TVLAYOUTAREA
TOSTRINGFORMAT
RNCHARSFITTED
RNLINESFILLED
GDIPHANDLE
GDIPSTATUS
LCRECTF
GDIPSIZEF
GDIPMEASURESTRING
GDIPLUS
LCBOUNDINGBOX
LNCHARSFITTED
LNLINESFILLED
GETHANDLE
OBJFACTORY
GDI+ object not created or associated
GdipGetTextRenderingHint
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETTEXTRENDERINGHINT
GDIPLUS
NHINT
GDI+ object not created or associated
GdipSetTextRenderingHint
gdiplus.dll
TNVALUE
GDIPHANDLE
GDIPSTATUS
GDIPSETTEXTRENDERINGHINT
GDIPLUS
GDI+ object not created or associated
GdipGetRenderingOrigin
gdiplus.dll
gpgraphics.renderingorigin_access
GpPoint
GDIPHANDLE
GDIPSTATUS
GDIPGETRENDERINGORIGIN
GDIPLUS
OBJFACTORY
GDI+ object not created or associated
GdipSetRenderingOrigin
gdiplus.dll
TOPOINT
GDIPHANDLE
GDIPSTATUS
GDIPSETRENDERINGORIGIN
GDIPLUS
GDI+ object not created or associated
GdipGetTextContrast
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETTEXTCONTRAST
GDIPLUS
NVALUE
GDI+ object not created or associated
GdipSetTextContrast
gdiplus.dll
TNVALUE
GDIPHANDLE
GDIPSTATUS
GDIPSETTEXTCONTRAST
GDIPLUS
GPPEN
INTEGER
GDI+ object not created or associated
taPoints[1,1]b
GdipDrawLines
gdiplus.dll
TOPEN
TAPOINTS
TNFIRSTCOL
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYF
GDIPDRAWLINES
GDIPLUS
GETHANDLEl
GPPEN
STRING
STRING
STRING
GDI+ object not created or associated
GdipDrawLines
gdiplus.dll
TOPEN
TCALIAS
TCEXPRX
TCEXPRY
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYFFROMCURSOR
GDIPDRAWLINES
GDIPLUS
GETHANDLE
GDI+ object not created or associated
taPoints[1,1]b
GdipDrawBeziers
gdiplus.dll
TOPEN
TAPOINTS
TNFIRSTCOL
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYF
GDIPDRAWBEZIERS
GDIPLUS
GETHANDLE
GDI+ object not created or associated
taPoints[1,1]b
GdipDrawClosedCurve
gdiplus.dll
TOPEN
TAPOINTS
TNFIRSTCOL
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYF
GDIPDRAWCLOSEDCURVE
GDIPLUS
GETHANDLEG
GDI+ object not created or associated
GdipDrawBeziers
gdiplus.dll
TOPEN
TCALIAS
TCEXPRX
TCEXPRY
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYFFROMCURSOR
GDIPDRAWBEZIERS
GDIPLUS
GETHANDLEK
GDI+ object not created or associated
GdipDrawClosedCurve
gdiplus.dll
TOPEN
TCALIAS
TCEXPRX
TCEXPRY
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYFFROMCURSOR
GDIPDRAWCLOSEDCURVE
GDIPLUS
GETHANDLE
GDI+ object not created or associated
taPoints[1,1]b
GdipDrawCurve
gdiplus.dll
TOPEN
TAPOINTS
TNFIRSTCOL
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYF
GDIPDRAWCURVE
GDIPLUS
GETHANDLEE
GDI+ object not created or associated
GdipDrawCurve
gdiplus.dll
TOPEN
TCALIAS
TCEXPRX
TCEXPRY
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYFFROMCURSOR
GDIPDRAWCURVE
GDIPLUS
GETHANDLE
GDI+ object not created or associated
taPoints[1,1]b
GdipDrawPolygon
gdiplus.dll
TOPEN
TAPOINTS
TNFIRSTCOL
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYF
GDIPDRAWPOLYGON
GDIPLUS
GETHANDLEG
GDI+ object not created or associated
GdipDrawPolygon
gdiplus.dll
TOPEN
TCALIAS
TCEXPRX
TCEXPRY
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYFFROMCURSOR
GDIPDRAWPOLYGON
GDIPLUS
GETHANDLE
GDI+ object not created or associated
taRects[1,1]b
GdipDrawRectangles
gdiplus.dll
TOPEN
TARECTS
TNFIRSTCOL
GDIPHANDLE
GDIPSTATUS
LCRECTS
MAKEGDIPARRAYF
GDIPDRAWRECTANGLES
GDIPLUS
GETHANDLE^
GDI+ object not created or associated
GdipDrawRectangles
gdiplus.dll
TOPEN
TCALIAS
TCEXPRX
TCEXPRY
TCEXPRW
TCEXPRH
GDIPHANDLE
GDIPSTATUS
LCRECTS
MAKEGDIPARRAYFFROMCURSOR
GDIPDRAWRECTANGLES
GDIPLUS
GETHANDLE
GDI+ object not created or associated
taPoints[1,1]b
GdipFillClosedCurve
gdiplus.dll
TOBRUSH
TAPOINTS
TNFIRSTCOL
TNFILLMODE
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYF
GDIPFILLCLOSEDCURVE
GDIPLUS
GETHANDLEn
GDI+ object not created or associated
GdipFillClosedCurve
gdiplus.dll
TOBRUSH
TCALIAS
TCEXPRX
TCEXPRY
TNFILLMODE
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYFFROMCURSOR
GDIPFILLCLOSEDCURVE
GDIPLUS
GETHANDLEj
GDI+ object not created or associated
GdipFillPolygon
gdiplus.dll
TOBRUSH
TCALIAS
TCEXPRX
TCEXPRY
TNFILLMODE
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYFFROMCURSOR
GDIPFILLPOLYGON
GDIPLUS
GETHANDLE
GDI+ object not created or associated
taPoints[1,1]b
GdipFillPolygon
gdiplus.dll
TOBRUSH
TAPOINTS
TNFIRSTCOL
TNFILLMODE
GDIPHANDLE
GDIPSTATUS
LCPOINTS
MAKEGDIPARRAYF
GDIPFILLPOLYGON
GDIPLUS
GETHANDLE
GDI+ object not created or associated
taRects[1,1]b
GdipFillRectangles
gdiplus.dll
TOBRUSH
TARECTS
TNFIRSTCOL
GDIPHANDLE
GDIPSTATUS
LCRECTS
MAKEGDIPARRAYF
GDIPFILLRECTANGLES
GDIPLUS
GETHANDLE^
GDI+ object not created or associated
GdipFillRectangles
gdiplus.dll
TOBRUSH
TCALIAS
TCEXPRX
TCEXPRY
TCEXPRW
TCEXPRH
GDIPHANDLE
GDIPSTATUS
LCRECTS
MAKEGDIPARRAYFFROMCURSOR
GDIPFILLRECTANGLES
GDIPLUS
GETHANDLE
GDI+ object not created or associated
GdipGraphicsClear
GDIPlus.Dll
TVCOLOR
GDIPHANDLE
GDIPSTATUS
GDIPGRAPHICSCLEAR
GDIPLUS
GDI+ object not created or associated
GdipSaveGraphics
gdiplus.dll
RNGRAPHICSSTATE
GDIPHANDLE
GDIPSTATUS
LNSTATE
GDIPSAVEGRAPHICS
GDIPLUS
GDI+ object not created or associated
GdipRestoreGraphics
gdiplus.dll
TNGRAPHICSSTATE
GDIPHANDLE
GDIPSTATUS
GDIPRESTOREGRAPHICS
GDIPLUS
GDI+ object not created or associated
GdipTranslateWorldTransform
gdiplus.dll
TNOFFSETX
TNOFFSETY
TNMATRIXORDER
GDIPHANDLE
GDIPSTATUS
GDIPTRANSLATEWORLDTRANSFORM
GDIPLUS
GDI+ object not created or associated
GdipRotateWorldTransform
gdiplus.dll
TNANGLE
TNMATRIXORDER
GDIPHANDLE
GDIPSTATUS
GDIPROTATEWORLDTRANSFORM
GDIPLUS
GDI+ object not created or associated
GdipScaleWorldTransform
gdiplus.dll
TNSCALEX
TNSCALEY
TNMATRIXORDER
GDIPHANDLE
GDIPSTATUS
GDIPSCALEWORLDTRANSFORM
GDIPLUS
GDI+ object not created or associated
GdipResetWorldTransform
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPRESETWORLDTRANSFORM
GDIPLUS
GdipGetImageGraphicsContext
gdiplus.dll
TOIMAGE
GDIPSTATUS
DESTROY
GDIPGETIMAGEGRAPHICSCONTEXT
GDIPLUS
NHANDLE
GETHANDLE
SETHANDLE
GDI+ object not created or associated
NUMBER
GdipDrawImage
gdiplus.dll
TOIMAGE
DESTPTORX
DESTY
GDIPHANDLE
GDIPSTATUS
LNDESTX
LNDESTY
GDIPDRAWIMAGE
GDIPLUS
GETHANDLE
GPIMAGE
GDI+ object not created or associated
NUMBER
GdipDrawImageRect
gdiplus.dll
TOIMAGE
DESTRECTORX
DESTY
DESTW
DESTH
GDIPHANDLE
GDIPSTATUS
LNDESTX
LNDESTY
LNDESTW
LNDESTH
GDIPDRAWIMAGERECT
GDIPLUS
GETHANDLE
GDI+ object not created or associated
GdipDrawImagePointRect
gdiplus.dll
TOIMAGE
DESTPOINT
SRCRECT
SRCUNIT
GDIPHANDLE
GDIPSTATUS
GDIPDRAWIMAGEPOINTRECT
GDIPLUS
GETHANDLE
GDI+ object not created or associated
GdipDrawImageRectRect
gdiplus.dll
TOIMAGE
DESTRECT
SRCRECT
SRCUNIT
IMAGEATTRIBS
GDIPHANDLE
GDIPSTATUS
GDIPDRAWIMAGERECTRECT
GDIPLUS
GETHANDLE
IMAGEATTRIBUTES
INTEGER
GDI+ object not created or associated
GdipReleaseDC
gdiplus.dll
TNHDC
GDIPHANDLE
GDIPSTATUS
GDIPRELEASEDC
GDIPLUS
GDI+ object not created or associated
GdipGetDC
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
LNHDC
GDIPGETDC
GDIPLUS
GdipSetTextRenderingHint
GDIPLUS.DLLQ
xfcGdipSetTextRenderingHint
GdipStringFormatGetGenericTypographic
GDIPLUS.DLLQ
xfcGdipStringFormatGetGenericTypographic
GdipCloneStringFormat
GDIPLUS.DLLQ
xfcGdipCloneStringFormat
GdipCreateStringFormat
GDIPLUS.DLLQ
xfcGdipCreateStringFormat
GdipDeleteStringFormat
GDIPLUS.DLLQ
xfcGdipDeleteStringFormat
GdipSetStringFormatFlags
GDIPLUS.DLLQ
xfcGdipSetStringFormatFlags
GdipSetStringFormatAlign
GDIPLUS.DLLQ
xfcGdipSetStringFormatAlign
GdipMeasureString
GDIPLUS.DLLQ
xfcGdipMeasureString
GdipDrawString
GDIPLUS.DLLQ
xfcGdipDrawString
GdipDeleteStringFormat
GDIPLUS.DLLQ
xfcGdipDeleteStringFormat
GdipSetTextRenderingHint
GDIPLUS.DLLQ
Foxy_GdipSetTextRenderingHint
GPFONT
\ffc\_gdiplus.vcx
GPSOLIDBRUSH
GPRECTANGLE
\ffc\_gdiplus.vcx
BOOLEAN
XFCGRAPHICSSTATE
EXCEPTION
 <CR>
 <CR>
 <CR>
 <LASTWORD>
<LASTWORD>
<LASTWORD>
GDIPSETTEXTRENDERINGHINT
GDIPLUS
XFCGDIPSETTEXTRENDERINGHINT%
GDIPSTRINGFORMATGETGENERICTYPOGRAPHIC(
XFCGDIPSTRINGFORMATGETGENERICTYPOGRAPHIC
GDIPCLONESTRINGFORMAT
XFCGDIPCLONESTRINGFORMAT
GDIPCREATESTRINGFORMAT
XFCGDIPCREATESTRINGFORMAT
GDIPDELETESTRINGFORMAT
XFCGDIPDELETESTRINGFORMAT
GDIPSETSTRINGFORMATFLAGS
XFCGDIPSETSTRINGFORMATFLAGS
GDIPSETSTRINGFORMATALIGN
XFCGDIPSETSTRINGFORMATALIGN
GDIPMEASURESTRING
XFCGDIPMEASURESTRING
GDIPDRAWSTRING
XFCGDIPDRAWSTRING
FOXY_GDIPSETTEXTRENDERINGHINT
TCSTRING
TOFONT
TOBRUSH
TORECTANGLE
TLJUSTLAST
LHFONT
LHGRAPHICS
LHBRUSH
LCRECTF
LNSPACEWIDTH
LNLINEHEIGHT
LCTEXT
LOGFXSTATE
LHTEMPSTRFORMAT
LHSTRINGFORMAT
LHLEFTALIGNHANDLE
LHRIGHTALIGNHANDLE
LNWORDS
LNWORDWIDTH
LNCHARS
LCCURRWORD
LCCUTWORD
LNREDUCE
LLENDOFSENTENCE
LNWORDSWIDTH
LNWORDSINLINE
LNCURRWORD
LNCURRLINE
LNWIDTHOFBETWEEN
LNSTRINGFORMATHANDLE
LLLAST
LOEXC
LHGFXSTATE
SAVE
GETHANDLE
GETHEIGHT
PCBOUNDINGBOX
LAWORDS
RESTORE
LLLASTLINE
LCCHAR}
GdipDeleteGraphics
gdiplus.dll
GDIPHANDLE
GDIPOWNSTHISHANDLE
GDIPDELETEGRAPHICS
GDIPLUS
dpix_access,
dpix_assignZ
dpiy_access
dpiy_assign
drawline
drawrectangle
drawstringan
drawstringwl
drawpiel
fillpie
drawarc
drawbezier
drawellipse
fillrectangle
fillellipses
flushJ"
createfromhdc
createfromhwnd
compositingmode_access
compositingmode_assign
compositingquality_accessP)
compositingquality_assign
interpolationmode_access
interpolationmode_assign1-
pagescale_access
pagescale_assign
smoothingmode_access
smoothingmode_assignR2
pixeloffsetmode_access
pixeloffsetmode_assign
clipbounds_access-6
clipbounds_assign
pageunit_access
pageunit_assign'9
visibleclipbounds_accessj:
visibleclipbounds_assign
measurestringaQ<
measurestringw
textrenderinghint_access3F
textrenderinghint_assigntG
renderingorigin_access
renderingorigin_assignnJ
textcontrast_access
textcontrast_assign
drawlinesgN
drawlinesfromcursor
drawbeziers
drawclosedcurve
drawbeziersfromcursor
drawclosedcurvefromcursor
drawcurve
drawcurvefromcursor
drawpolygonj^
drawpolygonfromcursor
drawrectangles\b
drawrectanglesfromcursorxd
fillclosedcurve|f
fillclosedcurvefromcursor
fillpolygonfromcursor
fillpolygon
fillrectangles4o
fillrectanglesfromcursorRq
clearXs
restore
translatetransformqw
rotatetransform)y
scaletransform
resettransform_|
createfromimage^}
drawimageat
drawimagescaled=
drawimageportionat
drawimageportionscaled
releasehdc
gethdc
drawstringjust
Destroy
GDI+ object not created or associated
GdipGetStringFormatAlign
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETSTRINGFORMATALIGN
GDIPLUS
NALIGNMENT[
GDI+ object not created or associated
GDI+ object not owned by VFP object
GdipSetStringFormatAlign
gdiplus.dll
TNALIGNMENT
GDIPSTATUS
GDIPHANDLE
GDIPOWNSTHISHANDLE
GDIPSETSTRINGFORMATALIGN
GDIPLUS
GDI+ object not created or associated
GdipGetStringFormatFlags
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETSTRINGFORMATFLAGS
GDIPLUS
NFLAGS[
GDI+ object not created or associated
GDI+ object not owned by VFP object
GdipSetStringFormatFlags
gdiplus.dll
TNFLAGS
GDIPSTATUS
GDIPHANDLE
GDIPOWNSTHISHANDLE
GDIPSETSTRINGFORMATFLAGS
GDIPLUS
GDI+ object not created or associated
GdipGetStringFormatHotkeyPrefix
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETSTRINGFORMATHOTKEYPREFIX
GDIPLUS
NPREFIXb
GDI+ object not created or associated
GDI+ object not owned by VFP object
GdipSetStringFormatHotkeyPrefix
gdiplus.dll
TNPREFIX
GDIPSTATUS
GDIPHANDLE
GDIPOWNSTHISHANDLE
GDIPSETSTRINGFORMATHOTKEYPREFIX
GDIPLUS
GDI+ object not created or associated
GdipGetStringFormatLineAlign
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETSTRINGFORMATLINEALIGN
GDIPLUS
NALIGNMENT_
GDI+ object not created or associated
GDI+ object not owned by VFP object
GdipSetStringFormatLineAlign
gdiplus.dll
TNALIGNMENT
GDIPSTATUS
GDIPHANDLE
GDIPOWNSTHISHANDLE
GDIPSETSTRINGFORMATLINEALIGN
GDIPLUS
GDI+ object not created or associated
GdipGetStringFormatTrimming
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETSTRINGFORMATTRIMMING
GDIPLUS
NMODE^
GDI+ object not created or associated
GDI+ object not owned by VFP object
GdipSetStringFormatTrimming
gdiplus.dll
TNMODE
GDIPSTATUS
GDIPHANDLE
GDIPOWNSTHISHANDLE
GDIPSETSTRINGFORMATTRIMMING
GDIPLUS
GdipStringFormatGetGenericDefault
GDIPlus.Dll
GdipCloneStringFormat
GDIPlus.Dll
TLMAKECLONE
DESTROY
NHANDLE!
GDIPSTRINGFORMATGETGENERICDEFAULT
GDIPLUS
GDIPSTATUS
GDIPCLONESTRINGFORMAT
SETHANDLES
GdipStringFormatGetGenericTypographic
GDIPlus.Dll
GdipCloneStringFormat
GDIPlus.Dll
TLMAKECLONE
DESTROY
NHANDLE%
GDIPSTRINGFORMATGETGENERICTYPOGRAPHIC
GDIPLUS
GDIPSTATUS
GDIPCLONESTRINGFORMAT
SETHANDLE
GdipCreateStringFormat
GDIPlus.Dll
TNFLAGS
TNLANGID
DESTROY
NHANDLE
GDIPCREATESTRINGFORMAT
GDIPLUS
GDIPSTATUS
SETHANDLE
GPSTRINGFORMAT
GdipCloneStringFormat
GDIPlus.Dll
TOSTRINGFORMAT
DESTROY
NHANDLE
GDIPHANDLE
GDIPSTATUS
GDIPCLONESTRINGFORMAT
GDIPLUS
GDIPOWNSTHISHANDLE
GdipDeleteStringFormat
GDIPlus.Dll
GDIPHANDLE
GDIPOWNSTHISHANDLE
GDIPDELETESTRINGFORMAT
GDIPLUS
TNFLAGS
TNLANGID
CREATE
alignment_access,
alignment_assign]
formatflags_access#
formatflags_assigne
hotkeyprefix_access'
hotkeyprefix_assignx
linealignment_accessI
linealignment_assign
trimming_accesse
trimming_assign
getgenericdefaults
getgenerictypographicJ
create)
cloneD
Destroy
STRING
GdipCreateFontFamilyFromName
GDIPlus.Dll
TCNAME
DESTROY
NHANDLE
GDIPCREATEFONTFAMILYFROMNAME
GDIPLUS
GDIPSTATUS
GDIPFONTCOLLECTIONHANDLE
SETHANDLE
GdipGetGenericFontFamilyMonospace
GDIPlus.Dll
DESTROY
NHANDLE!
GDIPGETGENERICFONTFAMILYMONOSPACE
GDIPLUS
GDIPSTATUS
SETHANDLE
GdipGetGenericFontFamilySerif
GDIPlus.Dll
DESTROY
NHANDLE
GDIPGETGENERICFONTFAMILYSERIF
GDIPLUS
GDIPSTATUS
SETHANDLE
GdipGetGenericFontFamilySansSerif
GDIPlus.Dll
DESTROY
NHANDLE!
GDIPGETGENERICFONTFAMILYSANSSERIF
GDIPLUS
GDIPSTATUS
SETHANDLE%
INTEGER
GDI+ object not created or associated
GdipIsStyleAvailable
gdiplus.dll
TNFONTSTYLE
GDIPHANDLE
GDIPSTATUS
GDIPISSTYLEAVAILABLE
GDIPLUS
NAVAILABLEJ
GDI+ object not created or associated
GdipGetFamilyName
gdiplus.dll
lstrlenW
kernel32.dllQ
__win32_lstrlenW
STRING
GDIPHANDLE
GDIPSTATUS
GDIPGETFAMILYNAME
GDIPLUS
LSTRLENW
KERNEL32
__WIN32_LSTRLENW
CUNICODENAME"
FontName
VNEWVALX
INTEGER
GDI+ object not created or associated
GdipGetCellAscent
gdiplus.dll
NUMBER
TNSTYLE
GDIPSTATUS
GDIPHANDLE
GDIPGETCELLASCENT
GDIPLUS
NVALUEV
INTEGER
GDI+ object not created or associated
GdipGetEmHeight
gdiplus.dll
NUMBER
TNSTYLE
GDIPSTATUS
GDIPHANDLE
GDIPGETEMHEIGHT
GDIPLUS
NVALUEY
INTEGER
GDI+ object not created or associated
GdipGetCellDescent
gdiplus.dll
NUMBER
TNSTYLE
GDIPSTATUS
GDIPHANDLE
GDIPGETCELLDESCENT
GDIPLUS
NVALUEY
INTEGER
GDI+ object not created or associated
GdipGetLineSpacing
gdiplus.dll
NUMBER
TNSTYLE
GDIPSTATUS
GDIPHANDLE
GDIPGETLINESPACING
GDIPLUS
NVALUE
GDI+ object not created or associated
GdipGetFamilyName
gdiplus.dll
lstrlenW
kernel32.dllQ
__win32_lstrlenW
STRING
TNLANGID
GDIPSTATUS
GDIPHANDLE
GDIPGETFAMILYNAME
GDIPLUS
LSTRLENW
KERNEL32
__WIN32_LSTRLENW
CUNICODENAMEb
TCNAME
GDIPFONTCOLLECTIONHANDLE
CREATE
GdipDeleteFontFamily
GDIPlus.Dll
GDIPHANDLE
GDIPOWNSTHISHANDLE
GDIPDELETEFONTFAMILY
GDIPLUS
GPFONTFAMILY
GdipCloneFontFamily
GDIPlus.Dll
TOFONTFAMILY
DESTROY
NHANDLE
GDIPHANDLE
GDIPSTATUS
GDIPCLONEFONTFAMILY
GDIPLUS
GDIPOWNSTHISHANDLE
create,
getgenericmonospacek
getgenericseriff
getgenericsansserifY
isstyleavailableT
fontname_access
fontname_assign
getcellascent
getemheightt
getcelldescent
getlinespacing
getnamex
Destroy.
clone
GdipCreateHatchBrush
GDIPlus.Dll
A66CC
TNSTYLE
TVFORECOLOR
TVBACKCOLOR
GDIPSTATUS
DESTROY
NHANDLE
GDIPCREATEHATCHBRUSH
GDIPLUS
ARGB
SETHANDLE
GDI+ object not created or associated
GdipGetHatchForegroundColor
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETHATCHFOREGROUNDCOLOR
GDIPLUS
NARGB)
ForegroundColor
TVCOLOR
GDI+ object not created or associated
GdipGetHatchBackgroundColor
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETHATCHBACKGROUNDCOLOR
GDIPLUS
NARGB)
BackgroundColor
TVCOLOR
GDI+ object not created or associated
GdipGetHatchStyle
gdiplus.dll
GDIPHANDLE
GDIPSTATUS
GDIPGETHATCHSTYLE
GDIPLUS
NHATCHSTYLE$
HatchStyle
VNEWVAL_
TNSTYLE
TVFORECOLOR
TVBACKCOLOR
CREATE
create,
foregroundcolor_access
foregroundcolor_assignY
backgroundcolor_access
backgroundcolor_assign
hatchstyle_access
hatchstyle_assignE
Initv
]dpix Horizontal resolution of drawing surface
dpiy Vertical resolution of drawing surface
compositingmode how composited images are drawn to this Graphics object
compositingquality rendering quality of composited images drawn to this Graphics object
interpolationmode interpolation mode associated with this Graphics object.
pagescale The scaling between world units and page units
smoothingmode Rendering quality
pixeloffsetmode Value specifying how pixels are offset during rendering of this Graphics object
clipbounds Returns GpRectangle object that bounds the clipping region of this graphics object . Note: if the clipping region is infinite, this returns a meaningless large rectangle
pageunit The unit of measure used for page coordinates
visibleclipbounds Returns a GpRectange Object of the visible clipping region
renderingorigin The rendering origin for dithering and for hatch brushes
textcontrast Gamma corrrection value for rendering text
textrenderinghint Rendering mode for text associated with this Graphics object
*dpix_access
*dpix_assign
*dpiy_access
*dpiy_assign
*drawline Draw a line that connects two points, in the specified pen.
*drawrectangle Draw a rectangle
*drawstringa Draw a string in specified font and position (ANSI Version)
*drawstringw Draw a string in specified font and position (Unicode Version)
*drawpie Draw outlined pie slice in specified pen and start/stop anagles
*fillpie Draw filled pie slice in specified pen and start/stop angles
*drawarc Draws an arc representing a portion of an ellipse, given bounding rectangle of elllipse, start and sweep angles.
*drawbezier Draw a B
zier spline from 4 control points
*drawellipse Draw outlined ellipse specified by its bounding rectangle
*fillrectangle Fill a rectangle
*fillellipse Draw filled ellipse specified by its bounding rectangle
*flush Force execution of all pending graphics operations
*createfromhdc Create Graphics object for a given device context (HDC)
*createfromhwnd Create GDI+ Graphics object for a given window (HWND)
*compositingmode_access
*compositingmode_assign
*compositingquality_access
*compositingquality_assign
*interpolationmode_access
*interpolationmode_assign
*pagescale_access
*pagescale_assign
*smoothingmode_access
*smoothingmode_assign
*pixeloffsetmode_access
*pixeloffsetmode_assign
*clipbounds_access
*clipbounds_assign
*pageunit_access
*pageunit_assign
*visibleclipbounds_access
*visibleclipbounds_assign
*measurestringa Measures ANSI text string when drawn with the specified Font and formatting
*measurestringw Measures Unicode text string when drawn with the specified Font and formatting
*textrenderinghint_access
*textrenderinghint_assign
*renderingorigin_access
*renderingorigin_assign
*textcontrast_access
*textcontrast_assign
*drawlines Draw sequence of connected lines, given array of coordinates
*drawlinesfromcursor Draw sequence of connected lines, given cursor containing coordinates
*drawbeziers Draw a B
zier spline given a 2-column array of coordinates
*drawclosedcurve Draw a closed curve given a 2-column array of coordinates
*drawbeziersfromcursor Draw a B
zier spline given a cursor containing coordinates
*drawclosedcurvefromcursor Draw a closed curve given a cursor containing coordinates
*drawcurve Draw a smooth curve given a 2-column array of coordinates
*drawcurvefromcursor Draw a smooth curve given a cursor containing coordinates
*drawpolygon Draw a polygon given a 2-column array of coordinates
*drawpolygonfromcursor Draw a polygon given a cursor containing coordinates
*drawrectangles Draw a series of rectangles given a 4-column array (each row x,y,w,h)
*drawrectanglesfromcursor Draw a series of rectangles given a cursor containing x,y,w,h values
*fillclosedcurve Fill a closed curve defined by a 2-column array of coordinates
*fillclosedcurvefromcursor Fill a closed curve from a cursor defining coordinates
*fillpolygonfromcursor Fill a polygon from a cursor defining coordinates
*fillpolygon Filll a polygon defined by a 2-column array of coordinates
*fillrectangles Fill a series of rectangles defined by a 4-column array of coordinates
*fillrectanglesfromcursor Fill a series of rectangles defined by a cursor containing x,y,w,h values
*clear Clear entire drawing surface and fill with specified background color
*save Save current state and return token (for later restore)
*restore Restore previously saved state
*translatetransform Add translate by (x,y) to this graphics object's transformation matrix
*rotatetransform Prepend rotation by specified angle to this object's transformation matrix
*scaletransform Apply scaling to transformation matrix for this graphics object
*resettransform Reset the world transform matrix (to no transformation)
*createfromimage Create graphics object from the specified GpImage object (to draw on that image's surface)
*drawimageat Draw image at the specified location, using its original physical size
*drawimagescaled Draw image at the specified location with the specified size.
*drawimageportionat Draw portion of an image at the specified location, using its original size
*drawimageportionscaled Draw portion of an image at the specified location and with the specified size
*releasehdc Release device context previously obtained with GetHdc()
*gethdc Get handle to device context associated with this Graphics object.
*drawstringjust
!pPROCEDURE dpix_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as B)
endif
#endif
declare integer GdipGetDpiX in gdiplus.dll ;
    integer nGraphics, single @ fDPI
local nDPI
nDPI = 0.0
This.gdipStatus = GdipGetDpiX( This.gdipHandle, @nDPI)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nDPI,cast(null as B))
ENDPROC
PROCEDURE dpix_assign
LPARAMETERS vNewVal
error 1743, 'DpiX'
ENDPROC
PROCEDURE dpiy_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as B)
endif
#endif
declare integer GdipGetDpiY in gdiplus.dll ;
    integer nGraphics, single @ fDPI
local nDPI
nDPI = 0.0
This.gdipStatus = GdipGetDpiY( This.gdipHandle, @nDPI)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nDPI,cast(null as B))
ENDPROC
PROCEDURE dpiy_assign
LPARAMETERS vNewVal
error 1743, 'DpiY'
ENDPROC
PROCEDURE drawline
lparameters toPen as GpPen, x1,y1,x2,y2
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)+vartype(m.x1)+vartype(m.y1)+vartype(m.x2)+vartype(m.y2)=='ONNNN')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare Integer GdipDrawLine in gdiplus.dll ;
    integer nGraphics, integer nPen, single,single,single,single
This.gdipStatus = GdipDrawLine( This.gdipHandle, toPen.GetHandle(), m.x1,m.y1, m.x2,m.y2 )
return This.gdipStatus = GDIPLUS_STATUS_OK
ENDPROC
PROCEDURE drawrectangle
lparameters toPen, tXOrRect,tnY,tnW,tnH
* Parameters either ( pen, x,y,w,h )
* or ( pen, rect )
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
do case
case vartype(m.toPen)!='O'
    * Pen must be given (assume object is of correct type!)
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
case vartype(m.tXOrRect)='N' ;
    and vartype(m.tnY)+vartype(m.tnW)+vartype(m.tnH)=='NNN'
    * OK
case vartype(m.tXOrRect)='O' ;
    and vartype(m.tnY)+vartype(m.tnW)+vartype(m.tnH)=='LLL' ;
    and pemstatus(m.tXOrRect,'X',5) and pemstatus(m.tXOrRect,'W',5)
    * OK
otherwise
    * Parameters do not pass the test
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endcase
#endif
declare Integer GdipDrawRectangle in gdiplus.dll ;
    integer nGraphics, integer nPen, single,single,single,single
if vartype(m.tXOrRect)='O'
    This.gdipStatus = GdipDrawRectangle( This.gdipHandle, toPen.GetHandle() ;
    , m.tXOrRect.X,m.tXOrRect.Y, m.tXOrRect.W,m.tXOrRect.H )
    This.gdipStatus = GdipDrawRectangle( This.gdipHandle, toPen.GetHandle() ;
    , m.tXOrRect,m.tnY, m.tnW,m.tnH )
endif
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawstringa
lparameters tcAnsiString, toFont, tvRectPoint, toStringFormat, toBrush
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcAnsiString)='C' and vartype(m.toFont)$'OL' ;
    and vartype(m.toStringFormat)$'OL' and vartype(m.toBrush)$'OL')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcRect
do case
case vartype(tvRectPoint)$'CQ' && String or varbinary
    do case
    case len(m.tvRectPoint)==8 && point
        lcRect = m.tvRectPoint + replicate(chr(0),8)
    case len(m.tvRectPoint)==16 && rect
        lcRect = m.tvRectPoint
    otherwise
        error 11 && function argument
        This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
        return .F.
    endcase
case vartype(m.tvRectPoint) == 'O'
    do case
    case pemstatus(m.tvRectPoint,'gdipRectF',5)    && Rect
        lcRect = tvRectPoint.GdipRectF
    case pemstatus(m.tvRectPoint,'gdipPointF',5)    && Point
        lcRect = tvRectPoint.GdipPointF + replicate(chr(0),8)
    otherwise
        error 11 && function argument
        This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
        return .F.
    endcase
otherwise
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endcase
declare integer GdipDrawString in gdiplus.dll ;
    integer,string,integer,integer,string,integer,integer
This.gdipStatus = GdipDrawString( ;
    This.gdipHandle ;
    , strconv(m.tcAnsiString,5)    ;
    , len(m.tcAnsiString) ;
    , iif(vartype(m.toFont)='O',toFont.GetHandle(),0) ;
    , m.lcRect ;
    , iif(vartype(m.toStringFormat)='O',toStringFormat.GetHandle(),0) ;
    , iif(vartype(m.toBrush)='O',toBrush.GetHandle(),0) ;
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawstringw
lparameters tcUnicodeString, toFont, tvRectPoint, toStringFormat, toBrush
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcUnicodeString)='C' and vartype(m.toFont)$'OL' ;
    and vartype(m.toStringFormat)$'OL' and vartype(m.toBrush)$'OL')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcRect
do case
case vartype(tvRectPoint)$'CQ' && String or varbinary
    do case
    case len(m.tvRectPoint)==8 && point
        lcRect = m.tvRectPoint + replicate(chr(0),8)
    case len(m.tvRectPoint)==16 && rect
        lcRect = m.tvRectPoint
    otherwise
        error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
    endcase
case vartype(m.tvRectPoint) == 'O'
    do case
    case pemstatus(m.tvRectPoint,'gdipRectF',5)    && Rect
        lcRect = tvRectPoint.GdipRectF
    case pemstatus(m.tvRectPoint,'gdipPointF',5)    && Point
        lcRect = tvRectPoint.GdipPointF + replicate(chr(0),8)
    otherwise
        error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
    endcase
otherwise
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endcase
declare integer GdipDrawString in gdiplus.dll ;
    integer,string,integer,integer,string,integer,integer
This.gdipStatus = GdipDrawString( ;
    This.gdipHandle ;
    , m.tcUnicodeString ;
    , len(m.tcUnicodeString)/2 ;
    , iif(vartype(m.toFont)='O',toFont.GetHandle(),0) ;
    , m.lcRect ;
    , iif(vartype(m.toStringFormat)='O',toStringFormat.GetHandle(),0) ;
    , iif(vartype(m.toBrush)='O',toBrush.GetHandle(),0) ;
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawpie
lparameters toPen, tXOrRect,tnYOrStart,tnWOrSweep,tnH, nStart, nSweep
* Parameters either ( pen, x,y,w,h, start, sweep )
* or ( pen, rect, start, sweep )
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
do case
case vartype(m.toPen)!='O'
    * Pen must be given (assume object is of correct type!)
    * Start and sweep angles are required
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
case vartype(m.tXOrRect)='N' ;
    and vartype(m.tnYOrStart)+vartype(m.tnWOrSweep)+vartype(m.tnH)+vartype(nStart)+vartype(nSweep)=='NNNNN'
    * OK
case vartype(m.tXOrRect)='O' ;
    and vartype(m.tnYOrStart)+vartype(m.tnWOrSweep)+vartype(m.tnH)+vartype(nStart)+vartype(nSweep)=='NNLLL' ;
    and pemstatus(m.tXOrRect,'X',5) and pemstatus(m.tXOrRect,'W',5)
    * OK
otherwise
    * Parameters do not pass the test
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endcase
#endif
declare integer GdipDrawPie in gdiplus.dll ;
    integer nGraphics, integer nPen ;
    , single x, single y, single w,single h ;
    ,single fStart, single fSweep
if vartype(m.tXOrRect)='O'
    This.gdipStatus = GdipDrawPie( This.gdipHandle, toPen.GetHandle() ;
    , m.tXOrRect.X,m.tXOrRect.Y, m.tXOrRect.W,m.tXOrRect.H ;
    , m.tnYOrStart,m.tnWOrSweep )
    This.gdipStatus = GdipDrawPie( This.gdipHandle, toPen.GetHandle() ;
    , m.tXOrRect,m.tnYOrStart, m.tnWOrSweep,m.tnH ;
    , m.nStart,m.nSweep )
endif
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE fillpie
lparameters toBrush, tXOrRect,tnYOrStart,tnWOrSweep,tnH, nStart, nSweep
* Parameters either ( brush, x,y,w,h, start, sweep )
* or ( brush, rect, start, sweep )
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
do case
case vartype(m.toBrush)!='O'
    * Brush must be given (assume object is of correct type!)
    * Start and sweep angles are required
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
case vartype(m.tXOrRect)='N' ;
    and vartype(m.tnYOrStart)+vartype(m.tnWOrSweep)+vartype(m.tnH)+vartype(nStart)+vartype(nSweep)=='NNNNN'
    * OK
case vartype(m.tXOrRect)='O' ;
    and vartype(m.tnYOrStart)+vartype(m.tnWOrSweep)+vartype(m.tnH)+vartype(nStart)+vartype(nSweep)=='NNLLL' ;
    and pemstatus(m.tXOrRect,'X',5) and pemstatus(m.tXOrRect,'W',5)
    * OK
otherwise
    * Parameters do not pass the test
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endcase
#endif
declare integer GdipFillPie in gdiplus.dll ;
    integer nGraphics, integer nBrush ;
    , single x, single y, single w,single h ;
    ,single fStart, single fSweep
if vartype(m.tXOrRect)='O'
    This.gdipStatus = GdipFillPie( This.gdipHandle, toBrush.GetHandle() ;
    , m.tXOrRect.X,m.tXOrRect.Y, m.tXOrRect.W,m.tXOrRect.H ;
    , m.tnYOrStart,m.tnWOrSweep )
    This.gdipStatus = GdipFillPie( This.gdipHandle, toBrush.GetHandle() ;
    , m.tXOrRect,m.tnYOrStart, m.tnWOrSweep,m.tnH ;
    , m.nStart,m.nSweep )
endif
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawarc
lparameters toPen, x,y,nWidth,nHeight, nStartAngle, nSweepAngle
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)+vartype(x)+vartype(y)+vartype(nWidth)+vartype(nHeight)+vartype(nStartAngle)+vartype(nSweepAngle)=='ONNNNNN')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipDrawArc in gdiplus.dll ;
    integer nGraphics, integer nPen, single x, single y, single w,single h,single fStart, single fSweep
This.gdipStatus = GdipDrawArc( THis.gdipHandle, toPen.GetHandle(), m.x,m.y,m.nWidth,m.nHeight,m.nStartAngle,m.nSweepAngle)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawbezier
lparameters toPen, x1,y1, x2,y2, x3,y3, x4,y4
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)+vartype(x1)+vartype(y1)+vartype(x2)+vartype(y2)+vartype(x3)+vartype(y3)+vartype(x4)+vartype(y4)=='ONNNNNNNN')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipDrawBezier in gdiplus.dll ;
    integer nGraphics, integer nPen, single,single,single,single,single,single,single,single
This.gdipStatus = GdipDrawBezier( This.gdipHandle, toPen.GetHandle() ;
    , m.x1,m.y1, m.x2,m.y2, m.x3,m.y3, m.x4,m.y4 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawellipse
lparameters toPen, tXOrRect,tnY,tnW,tnH
* Parameters either ( pen, x,y,w,h )
* or ( pen, rect )
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
do case
case vartype(m.toPen)!='O'
    * Pen must be given (assume object is of correct type!)
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
case vartype(m.tXOrRect)='N' ;
    and vartype(m.tnY)+vartype(m.tnW)+vartype(m.tnH)=='NNN'
    * OK
case vartype(m.tXOrRect)='O' ;
    and vartype(m.tnY)+vartype(m.tnW)+vartype(m.tnH)=='LLL' ;
    and pemstatus(m.tXOrRect,'X',5) and pemstatus(m.tXOrRect,'W',5)
    * OK
otherwise
    * Parameters do not pass the test
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endcase
#endif
declare Integer GdipDrawEllipse in gdiplus.dll ;
    integer nGraphics, integer nPen, single,single,single,single
if vartype(m.tXOrRect)='O'
    This.gdipStatus = GdipDrawEllipse( This.gdipHandle, toPen.GetHandle() ;
    , m.tXOrRect.X,m.tXOrRect.Y, m.tXOrRect.W,m.tXOrRect.H )
    This.gdipStatus = GdipDrawEllipse( This.gdipHandle, toPen.GetHandle() ;
    , m.tXOrRect,m.tnY, m.tnW,m.tnH )
endif
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE fillrectangle
lparameters toBrush, tXOrRect,tnY,tnW,tnH
* Parameters either ( brush, x,y,w,h )
* or ( brush, rect )
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
do case
case vartype(m.toBrush)!='O'
    * Brush must be given (assume object is of correct type!)
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
case vartype(m.tXOrRect)='N' ;
    and vartype(m.tnY)+vartype(m.tnW)+vartype(m.tnH)=='NNN'
    * OK
case vartype(m.tXOrRect)='O' ;
    and vartype(m.tnY)+vartype(m.tnW)+vartype(m.tnH)=='LLL' ;
    and pemstatus(m.tXOrRect,'X',5) and pemstatus(m.tXOrRect,'W',5)
    * OK
otherwise
    * Parameters do not pass the test
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endcase
#endif
declare Integer GdipFillRectangle in gdiplus.dll ;
    integer nGraphics, integer nBrush, single,single,single,single
if vartype(m.tXOrRect)='O'
    This.gdipStatus = GdipFillRectangle( This.gdipHandle, toBrush.GetHandle() ;
    , m.tXOrRect.X,m.tXOrRect.Y, m.tXOrRect.W,m.tXOrRect.H )
    This.gdipStatus = GdipFillRectangle( This.gdipHandle, toBrush.GetHandle() ;
    , m.tXOrRect,m.tnY, m.tnW,m.tnH )
endif
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE fillellipse
lparameters toBrush, tXOrRect,tnY,tnW,tnH
* Parameters either ( brush, x,y,w,h )
* or ( brush, rect )
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
do case
case vartype(m.toBrush)!='O'
    * Brush must be given (assume object is of correct type!)
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
case vartype(m.tXOrRect)='N' ;
    and vartype(m.tnY)+vartype(m.tnW)+vartype(m.tnH)=='NNN'
    * OK
case vartype(m.tXOrRect)='O' ;
    and vartype(m.tnY)+vartype(m.tnW)+vartype(m.tnH)=='LLL' ;
    and pemstatus(m.tXOrRect,'X',5) and pemstatus(m.tXOrRect,'W',5)
    * OK
otherwise
    * Parameters do not pass the test
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endcase
#endif
declare Integer GdipFillEllipse in gdiplus.dll ;
    integer nGraphics, integer nBrush, single,single,single,single
if vartype(m.tXOrRect)='O'
    This.gdipStatus = GdipFillEllipse( This.gdipHandle, toBrush.GetHandle() ;
    , m.tXOrRect.X,m.tXOrRect.Y, m.tXOrRect.W,m.tXOrRect.H )
    This.gdipStatus = GdipFillEllipse( This.gdipHandle, toBrush.GetHandle() ;
    , m.tXOrRect,m.tnY, m.tnW,m.tnH )
endif
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE flush
lparameters tnFlushIntention
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnFlushIntention)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipFlush in gdiplus.dll ;
    integer nGraphics, integer nFlushIntention
This.gdipStatus = GdipFlush(This.gdipHandle,m.tnFlushIntention)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE createfromhdc
lparameters hDC
#if GDIPLUS_CHECK_PARAMS
if !(vartype(hDC)=='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
This.Destroy()
declare integer GdipCreateFromHDC in gdiplus.dll ;
    integer hdc, integer @ nGraphics
local nHandle
nHandle = 0
This.gdipStatus = GdipCreateFromHDC ( m.hDC, @nHandle )
if GDIPLUS_STATUS_OK == This.gdipStatus
    This.SetHandle( m.nHandle,.T.)
    return .T.
    return .F.
endif
ENDPROC
PROCEDURE createfromhwnd
lparameters hWND, tlICM as Logical
#if GDIPLUS_CHECK_PARAMS
if !(vartype(hWND)=='N' and vartype(m.tlICM)='L')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
This.Destroy()
local nHandle
nHandle = 0
if m.tlICM
    declare integer GdipCreateFromHWNDICM in gdiplus.dll ;
        integer hwnd, integer @ nGraphics
    This.gdipStatus = GdipCreateFromHWNDICM( m.hWND, @nHandle )
    declare integer GdipCreateFromHWND in gdiplus.dll ;
        integer hwnd, integer @ nGraphics
    This.gdipStatus = GdipCreateFromHWND( m.hWND, @nHandle )
endif
if GDIPLUS_STATUS_OK == This.gdipStatus
    This.SetHandle(m.nHandle,.T.)
    return .T.
    return .F.
endif
ENDPROC
PROCEDURE compositingmode_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetCompositingMode in gdiplus.dll ;
    integer nGraphics, integer @
local nMode
nMode = 0
This.gdipStatus = GdipGetCompositingMode( This.gdipHandle, @nMode)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nMode,cast(null as I))
ENDPROC
PROCEDURE compositingmode_assign
LPARAMETERS tnMode
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnMode)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipSetCompositingMode in gdiplus.dll ;
    integer nGraphics, integer
This.gdipStatus = GdipSetCompositingMode( This.gdipHandle,m.tnMode)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE compositingquality_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetCompositingQuality in gdiplus.dll ;
    integer nGraphics, integer @
local nQuality
nQuality = 0
This.gdipStatus = GdipGetCompositingQuality( This.gdipHandle, @nQuality)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nQuality,cast(null as I))
ENDPROC
PROCEDURE compositingquality_assign
LPARAMETERS tnQuality
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnQuality)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipSetCompositingQuality in gdiplus.dll ;
    integer nGraphics, integer
This.gdipStatus = GdipSetCompositingQuality( This.gdipHandle,m.tnQuality)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE interpolationmode_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetInterpolationMode in gdiplus.dll ;
    integer nGraphics, integer @
local nMode
nMode = 0
This.gdipStatus = GdipGetInterpolationMode ( This.gdipHandle, @nMode)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nMode,cast(null as I))
ENDPROC
PROCEDURE interpolationmode_assign
LPARAMETERS tnInterpMode
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnInterpMode)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipSetInterpolationMode in gdiplus.dll ;
    integer nGraphics, integer
This.gdipStatus = GdipSetInterpolationMode ( This.gdipHandle,m.tnInterpMode)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE pagescale_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as B)
endif
#endif
declare integer GdipGetPageScale in gdiplus.dll ;
    integer nGraphics, single @
local nPageScale
nPageScale = 0.0
This.gdipStatus = GdipGetPageScale( This.gdipHandle, @nPageScale)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nPageScale,cast(null as B))
ENDPROC
PROCEDURE pagescale_assign
LPARAMETERS tnScale
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnScale)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipSetPageScale in gdiplus.dll ;
    integer nGraphics, single
This.gdipStatus = GdipSetPageScale( This.gdipHandle,m.tnScale)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE smoothingmode_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetSmoothingMode in gdiplus.dll ;
    integer nGraphics, integer @
local nSmoothingMode
nSmoothingMode = 0
This.gdipStatus = GdipGetSmoothingMode( This.gdipHandle, @nSmoothingMode)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nSmoothingMode,cast(null as I))
ENDPROC
PROCEDURE smoothingmode_assign
LPARAMETERS tnMode
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnMode)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipSetSmoothingMode in gdiplus.dll ;
    integer nGraphics, integer
This.gdipStatus = GdipSetSmoothingMode( This.gdipHandle,m.tnMode)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE pixeloffsetmode_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetPixelOffsetMode in gdiplus.dll ;
    integer nGraphics, integer @
local nMode
nMode = 0
This.gdipStatus = GdipGetPixelOffsetMode( This.gdipHandle, @nMode)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nMode,cast(null as I))
ENDPROC
PROCEDURE pixeloffsetmode_assign
LPARAMETERS tnMode
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnMode)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipSetPixelOffsetMode in gdiplus.dll ;
    integer nGraphics, integer
This.gdipStatus = GdipSetPixelOffsetMode ( This.gdipHandle,m.tnMode)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE clipbounds_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return null
endif
#endif
declare integer GdipGetClipBounds in gdiplus.dll ;
    integer nGraphics, string @ pRectF
local lcRectF, loRect
lcRectF = replicate(chr(0),16)
This.gdipStatus = GdipGetClipBounds ( This.gdipHandle, @lcRectF )
if This.gdipStatus==GDIPLUS_STATUS_OK and len(m.lcRectF)==16
    return This.ObjFactory('gpgraphics.clipbounds_access',GDIPLUS_CLASS_RECT,@lcRectF)
    return null
endif
ENDPROC
PROCEDURE clipbounds_assign
LPARAMETERS vNewVal
error 1743, 'ClipBounds'
ENDPROC
PROCEDURE pageunit_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetPageUnit in gdiplus.dll ;
    integer nGraphics, integer @
local nUnit
nUnit = 0
This.gdipStatus = GdipGetPageUnit( This.gdipHandle, @nUnit)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nUnit,cast(null as I))
ENDPROC
PROCEDURE pageunit_assign
LPARAMETERS tnUnit
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnUnit)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipSetPageUnit in gdiplus.dll ;
    integer nGraphics, integer
This.gdipStatus = GdipSetPageUnit( This.gdipHandle,m.tnUnit)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE visibleclipbounds_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return null
endif
#endif
declare integer GdipGetVisibleClipBounds in gdiplus.dll ;
    integer nGraphics, string @ pRectF
local lcRectF, loRect
lcRectF = replicate(chr(0),16)
This.gdipStatus = GdipGetVisibleClipBounds( This.gdipHandle, @lcRectF )
if This.gdipStatus==GDIPLUS_STATUS_OK and len(m.lcRectF)==16
    return This.ObjFactory('gpgraphics.visibleclipbounds_access',GDIPLUS_CLASS_RECT,@lcRectF)
    return null
endif
ENDPROC
PROCEDURE visibleclipbounds_assign
LPARAMETERS vNewVal
error 1743, 'VisibleClipBounds'
ENDPROC
PROCEDURE measurestringa
lparameters tcAnsiString, toFont, tvLayoutArea, toStringFormat, rnCharsFitted, rnLinesFilled
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return null
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcAnsiString)='C' and vartype(m.toFont)$'OL' ;
    and vartype(m.toStringFormat)$'OL')
        error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return null
    endif
#endif
local lcRectF    && layout rectangle
do case
case vartype(tvLayoutArea)$'CQ' && String or varbinary
    do case
    case len(m.tvLayoutArea)==8 && sizeF
        lcRectF = replicate(chr(0),8)+m.tvLayoutArea
    case len(m.tvLayoutArea)==16 && rect
        lcRectF = cast(m.tvLayoutArea as C(16))
    otherwise
        * Empty
        lcRectF = replicate(chr(0),16)
    ENDCASE
case vartype(m.tvLayoutArea) == 'O'
    do case
    case pemstatus(m.tvLayoutArea,'gdipRectF',5)    && Rect
        lcRectF = tvLayoutArea.GdipRectF
    case pemstatus(m.tvLayoutArea,'GdipSizeF',5)    && Size
        lcRectF = replicate(chr(0),8)+tvLayoutArea.GdipSizeF
    otherwise
        error 11 && function argument
        This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
        return null
    endcase
case vartype(m.tvLayoutArea) == 'N'    && Width only
    lcRectF = replicate(chr(0),8)+bintoc(m.tvLayoutArea,'F')+replicate(chr(0),4)
otherwise
    * Not given
    lcRectF = replicate(chr(0),16)
endcase
declare integer GdipMeasureString in gdiplus.dll ;
    integer nGraphics,string cUnicode,integer nLength ;
    ,integer nFont,string cLayoutRect,integer nStringFormat ;
    , string @cRectOut, integer @nChars, integer @nLines
local lcBoundingBox as String, lnCharsFitted as Integer, lnLinesFilled as Integer
lcBoundingBox = replicate(chr(0),16) && empty rectangle
lnCharsFitted = 0
lnLinesFilled = 0
This.gdipStatus = GdipMeasureString( ;
    This.gdipHandle ;
    , strconv(m.tcAnsiString,5)    ;
    , len(m.tcAnsiString) ;
    , iif(vartype(m.toFont)='O',toFont.GetHandle(),0) ;
    , m.lcRectF ;
    , iif(vartype(m.toStringFormat)='O',toStringFormat.GetHandle(),0) ;
    , @ lcBoundingBox ;
    , @lnCharsFitted, @lnLinesFilled ;
if GDIPLUS_STATUS_OK == This.gdipStatus
    * Return result
    rnCharsFitted = m.lnCharsFitted
    rnLinesFilled = m.lnLinesFilled
    * return size - the SECOND 8 bytes of the rectF structure
    return This.ObjFactory('gpgraphics.measurestring',GDIPLUS_CLASS_SIZE,substr(m.lcBoundingBox,9))
    return null    && Failed
endif
ENDPROC
PROCEDURE measurestringw
lparameters tcUnicodeString, toFont, tvLayoutArea, toStringFormat, rnCharsFitted, rnLinesFilled
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return null
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tcUnicodeString)='C' and vartype(m.toFont)$'OL' ;
    and vartype(m.toStringFormat)$'OL')
        error 11 && function argument
        This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
        return null
    endif
#endif
local lcRectF    && layout rectangle
do case
case vartype(tvLayoutArea)$'CQ' && String or varbinary
    do case
    case len(m.tvLayoutArea)==8 && sizeF
        lcRectF = replicate(chr(0),8)+m.tvLayoutArea
    case len(m.tvLayoutArea)==16 && rect
        lcRectF = cast(m.tvLayoutArea as C(16))
    otherwise
        * Empty
        lcRectF = replicate(chr(0),16)
    endcase
case vartype(m.tvLayoutArea) == 'O'
    * Assume GpSize object
    lcRectF = replicate(chr(0),8)+tvLayoutArea.GdipSizeF
case vartype(m.tvLayoutArea) == 'N'    && Width only
    lcRectF = replicate(chr(0),8)+bintoc(m.tvLayoutArea,'F')+replicate(chr(0),4)
otherwise
    * Not given
    lcRectF = replicate(chr(0),16)
endcase
declare integer GdipMeasureString in gdiplus.dll ;
    integer nGraphics,string cUnicode,integer nLength ;
    ,integer nFont,string cLayoutRect,integer nStringFormat ;
    , string @cRectOut, integer @nChars, integer @nLines
local lcBoundingBox as String, lnCharsFitted as Integer, lnLinesFilled as Integer
lcBoundingBox = replicate(chr(0),16) && empty rectangle
lnCharsFitted = 0
lnLinesFilled = 0
This.gdipStatus = GdipMeasureString( ;
    This.gdipHandle ;
    , m.tcUnicodeString ;
    , len(m.tcUnicodeString)/2 ;
    , iif(vartype(m.toFont)='O',toFont.GetHandle(),0) ;
    , m.lcRectF ;
    , iif(vartype(m.toStringFormat)='O',toStringFormat.GetHandle(),0) ;
    , @ lcBoundingBox ;
    , @lnCharsFitted, @lnLinesFilled ;
if GDIPLUS_STATUS_OK == This.gdipStatus
    * Return result
    rnCharsFitted = m.lnCharsFitted
    rnLinesFilled = m.lnLinesFilled
    * return size - the SECOND 8 bytes of the rectF structure
    return This.ObjFactory('gpgraphics.measurestring',GDIPLUS_CLASS_SIZE,substr(m.lcBoundingBox,9))
    return null    && Failed
endif
ENDPROC
PROCEDURE textrenderinghint_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetTextRenderingHint in gdiplus.dll ;
    integer nGraphics, integer @
local nHint
nHint = 0
This.gdipStatus = GdipGetTextRenderingHint( This.gdipHandle, @nHint)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nHint,cast(null as I))
ENDPROC
PROCEDURE textrenderinghint_assign
LPARAMETERS tnValue
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnValue)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipSetTextRenderingHint in gdiplus.dll ;
    integer nGraphics, integer
This.gdipStatus = GdipSetTextRenderingHint( This.gdipHandle,m.tnValue)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE renderingorigin_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return null
endif
#endif
declare integer GdipGetRenderingOrigin in gdiplus.dll ;
    integer nGraphics, integer @ x, integer @ y
local lnX, lnY
lnX = 0
lnY = 0
This.gdipStatus = GdipGetRenderingOrigin( This.gdipHandle, @lnX, @lnY )
if This.gdipStatus==GDIPLUS_STATUS_OK
    return This.ObjFactory('gpgraphics.renderingorigin_access',GDIPLUS_CLASS_POINT,m.lnX,m.lnY)
    return null
endif
ENDPROC
PROCEDURE renderingorigin_assign
LPARAMETERS toPoint
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toPoint)='O' and pemstatus(toPoint,'X',5))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipSetRenderingOrigin in gdiplus.dll ;
    integer nGraphics, integer x, integer y
This.gdipStatus = GdipSetRenderingOrigin( This.gdipHandle,m.toPoint.X,m.toPoint.Y)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE textcontrast_access
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
declare integer GdipGetTextContrast in gdiplus.dll ;
    integer nGraphics, integer @
local nValue
nValue = 0
This.gdipStatus = GdipGetTextContrast( This.gdipHandle, @nValue)
return iif(This.gdipStatus==GDIPLUS_STATUS_OK,m.nValue,cast(null as I))
ENDPROC
PROCEDURE textcontrast_assign
LPARAMETERS tnValue
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnValue)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipSetTextContrast in gdiplus.dll ;
    integer nGraphics, integer
This.gdipStatus = GdipSetTextContrast( This.gdipHandle,m.tnValue)
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawlines
lparameters toPen as GpPen, taPoints, tnFirstCol as integer
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)='O' and (vartype(taPoints)='C' or type("taPoints[1,1]")='N'))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
if vartype(taPoints)='C'
    lcPoints = m.taPoints
    lcPoints = This.MakeGdipArrayF( @taPoints, 2, m.tnFirstCol )
endif
declare integer GdipDrawLines in gdiplus.dll ;
    integer nGraphics, integer nPen, string cPoints, integer nCount
This.gdipStatus = GdipDrawLines( This.gdipHandle, toPen.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawlinesfromcursor
lparameters toPen as GpPen, tcAlias as String, tcExprX as String, tcExprY as String
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)='O')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
lcPoints = This.MakeGdipArrayFFromCursor( m.tcAlias, 2, m.tcExprX, m.tcExprY )
declare integer GdipDrawLines in gdiplus.dll ;
    integer nGraphics, integer nPen, string cPoints, integer nCount
This.gdipStatus = GdipDrawLines( This.gdipHandle, toPen.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawbeziers
lparameters toPen, taPoints, tnFirstCol
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)='O' and (vartype(taPoints)='C' or type("taPoints[1,1]")='N'))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
if vartype(taPoints)='C'
    lcPoints = m.taPoints
    lcPoints = This.MakeGdipArrayF( @taPoints, 2, m.tnFirstCol )
endif
declare integer GdipDrawBeziers in gdiplus.dll ;
    integer nGraphics, integer nPen, string cPoints, integer nCount
This.gdipStatus = GdipDrawBeziers( This.gdipHandle, toPen.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawclosedcurve
lparameters toPen, taPoints, tnFirstCol
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)='O' and (vartype(taPoints)='C' or type("taPoints[1,1]")='N'))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
if vartype(taPoints)='C'
    lcPoints = m.taPoints
    lcPoints = This.MakeGdipArrayF( @taPoints, 2, m.tnFirstCol )
endif
declare integer GdipDrawClosedCurve in gdiplus.dll ;
    integer nGraphics, integer nPen, string cPoints, integer nCount
This.gdipStatus = GdipDrawClosedCurve( This.gdipHandle, toPen.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawbeziersfromcursor
lparameters toPen, tcAlias, tcExprX, tcExprY
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)='O')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
lcPoints = This.MakeGdipArrayFFromCursor( m.tcAlias, 2, m.tcExprX, m.tcExprY )
declare integer GdipDrawBeziers in gdiplus.dll ;
    integer nGraphics, integer nPen, string cPoints, integer nCount
This.gdipStatus = GdipDrawBeziers( This.gdipHandle, toPen.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawclosedcurvefromcursor
lparameters toPen, tcAlias, tcExprX, tcExprY
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)='O')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
lcPoints = This.MakeGdipArrayFFromCursor( m.tcAlias, 2, m.tcExprX, m.tcExprY )
declare integer GdipDrawClosedCurve in gdiplus.dll ;
    integer nGraphics, integer nPen, string cPoints, integer nCount
This.gdipStatus = GdipDrawClosedCurve( This.gdipHandle, toPen.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawcurve
lparameters toPen, taPoints, tnFirstCol
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)='O' and (vartype(taPoints)='C' or type("taPoints[1,1]")='N'))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
if vartype(taPoints)='C'
    lcPoints = m.taPoints
    lcPoints = This.MakeGdipArrayF( @taPoints, 2, m.tnFirstCol )
endif
declare integer GdipDrawCurve in gdiplus.dll ;
    integer nGraphics, integer nPen, string cPoints, integer nCount
This.gdipStatus = GdipDrawCurve( This.gdipHandle, toPen.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawcurvefromcursor
lparameters toPen, tcAlias, tcExprX, tcExprY
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)='O')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
lcPoints = This.MakeGdipArrayFFromCursor( m.tcAlias, 2, m.tcExprX, m.tcExprY )
declare integer GdipDrawCurve in gdiplus.dll ;
    integer nGraphics, integer nPen, string cPoints, integer nCount
This.gdipStatus = GdipDrawCurve( This.gdipHandle, toPen.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawpolygon
lparameters toPen, taPoints, tnFirstCol
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)='O' and (vartype(taPoints)='C' or type("taPoints[1,1]")='N'))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
if vartype(taPoints)='C'
    lcPoints = m.taPoints
    lcPoints = This.MakeGdipArrayF( @taPoints, 2, m.tnFirstCol )
endif
declare integer GdipDrawPolygon in gdiplus.dll ;
    integer nGraphics, integer nPen, string cPoints, integer nCount
This.gdipStatus = GdipDrawPolygon( This.gdipHandle, toPen.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawpolygonfromcursor
lparameters toPen, tcAlias, tcExprX, tcExprY
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)='O')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
lcPoints = This.MakeGdipArrayFFromCursor( m.tcAlias, 2, m.tcExprX, m.tcExprY )
declare integer GdipDrawPolygon in gdiplus.dll ;
    integer nGraphics, integer nPen, string cPoints, integer nCount
This.gdipStatus = GdipDrawPolygon( This.gdipHandle, toPen.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawrectangles
lparameters toPen, taRects, tnFirstCol
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)='O' and (vartype(taRects)='C' or type("taRects[1,1]")='N'))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcRects
if vartype(taRects)='C'
    lcRects = m.taRects
    lcRects = This.MakeGdipArrayF( @taRects, 4, m.tnFirstCol )
endif
declare integer GdipDrawRectangles in gdiplus.dll ;
    integer nGraphics, integer nPen, string cRects, integer nCount
This.gdipStatus = GdipDrawRectangles( This.gdipHandle, toPen.GetHandle() ;
    , m.lcRects, len(m.lcRects)/16 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE drawrectanglesfromcursor
lparameters toPen, tcAlias, tcExprX, tcExprY, tcExprW, tcExprH
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toPen)='O')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcRects
lcRects = This.MakeGdipArrayFFromCursor( m.tcAlias, 4, m.tcExprX, m.tcExprY, m.tcExprW, m.tcExprH )
declare integer GdipDrawRectangles in gdiplus.dll ;
    integer nGraphics, integer nPen, string cRects, integer nCount
This.gdipStatus = GdipDrawRectangles( This.gdipHandle, toPen.GetHandle() ;
    , m.lcRects, len(m.lcRects)/16 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE fillclosedcurve
lparameters toBrush, taPoints, tnFirstCol, tnFillMode
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toBrush)='O' and vartype(m.tnFillMode)$'LN' and (vartype(taPoints)='C' or type("taPoints[1,1]")='N'))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
if vartype(taPoints)='C'
    lcPoints = m.taPoints
    lcPoints = This.MakeGdipArrayF( @taPoints, 2, m.tnFirstCol )
endif
declare integer GdipFillClosedCurve in gdiplus.dll ;
    integer nGraphics, integer nPen, string cPoints, integer nCount, integer nFillMode
This.gdipStatus = GdipFillClosedCurve( This.gdipHandle, toBrush.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8,evl(m.tnFillMode,GDIPLUS_FillMode_Alternate) )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE fillclosedcurvefromcursor
lparameters toBrush, tcAlias, tcExprX, tcExprY, tnFillMode
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toBrush)='O' and vartype(m.tnFillMode)$'LN' )
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
lcPoints = This.MakeGdipArrayFFromCursor( m.tcAlias, 2, m.tcExprX, m.tcExprY )
declare integer GdipFillClosedCurve in gdiplus.dll ;
    integer nGraphics, integer nBrush, string cPoints, integer nCount, integer nFillMode
This.gdipStatus = GdipFillClosedCurve( This.gdipHandle, toBrush.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8,evl(m.tnFillMode,GDIPLUS_FillMode_Alternate) )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE fillpolygonfromcursor
lparameters toBrush, tcAlias, tcExprX, tcExprY, tnFillMode
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toBrush)='O' and vartype(m.tnFillMode)$'LN' )
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
lcPoints = This.MakeGdipArrayFFromCursor( m.tcAlias, 2, m.tcExprX, m.tcExprY )
declare integer GdipFillPolygon in gdiplus.dll ;
    integer nGraphics, integer nBrush, string cPoints, integer nCount, integer nFillMode
This.gdipStatus = GdipFillPolygon( This.gdipHandle, toBrush.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8,evl(m.tnFillMode,GDIPLUS_FillMode_Alternate) )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE fillpolygon
lparameters toBrush, taPoints, tnFirstCol, tnFillMode
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toBrush)='O' and vartype(m.tnFillMode)$'LN' and (vartype(taPoints)='C' or type("taPoints[1,1]")='N'))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcPoints
if vartype(taPoints)='C'
    lcPoints = m.taPoints
    lcPoints = This.MakeGdipArrayF( @taPoints, 2, m.tnFirstCol )
endif
declare integer GdipFillPolygon in gdiplus.dll ;
    integer nGraphics, integer nBrush, string cPoints, integer nCount, integer nFillMode
This.gdipStatus = GdipFillPolygon( This.gdipHandle, toBrush.GetHandle() ;
    , m.lcPoints, len(m.lcPoints)/8,evl(m.tnFillMode,GDIPLUS_FillMode_Alternate) )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE fillrectangles
lparameters toBrush, taRects, tnFirstCol
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toBrush)='O' and (vartype(taRects)='C' or type("taRects[1,1]")='N'))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcRects
if vartype(taRects)='C'
    lcRects = m.taRects
    lcRects = This.MakeGdipArrayF( @taRects, 4, m.tnFirstCol )
endif
declare integer GdipFillRectangles in gdiplus.dll ;
    integer nGraphics, integer nPen, string cRects, integer nCount
This.gdipStatus = GdipFillRectangles( This.gdipHandle, toBrush.GetHandle() ;
    , m.lcRects, len(m.lcRects)/16 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE fillrectanglesfromcursor
lparameters toBrush, tcAlias, tcExprX, tcExprY, tcExprW, tcExprH
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toBrush)='O')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lcRects
lcRects = This.MakeGdipArrayFFromCursor( m.tcAlias, 4, m.tcExprX, m.tcExprY, m.tcExprW, m.tcExprH )
declare integer GdipFillRectangles in gdiplus.dll ;
    integer nGraphics, integer nPen, string cRects, integer nCount
This.gdipStatus = GdipFillRectangles( This.gdipHandle, toBrush.GetHandle() ;
    , m.lcRects, len(m.lcRects)/16 )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE clear
lparameters tvColor
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tvColor)$'NO')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
Declare Integer GdipGraphicsClear In GDIPlus.Dll ;
    integer nGraphics, integer nColor
This.gdipStatus = GdipGraphicsClear( ;
    This.gdipHandle ;
    , iif(vartype(m.tvColor)='O',m.tvColor.ARGB,m.tvColor) )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE save
lparameters rnGraphicsState
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
local lnState
lnState = 0
declare integer GdipSaveGraphics in gdiplus.dll ;
    integer, integer @
This.gdipStatus = GdipSaveGraphics( This.gdipHandle, @lnState )
if GDIPLUS_STATUS_OK == This.gdipStatus
    rnGraphicsState = m.lnState
    return .T.
    return .F.
endif
ENDPROC
PROCEDURE restore
lparameters tnGraphicsState
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnGraphicsState)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipRestoreGraphics in gdiplus.dll ;
    integer, integer
This.gdipStatus = GdipRestoreGraphics( This.gdipHandle, m.tnGraphicsState )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE translatetransform
lparameters tnOffsetX, tnOffsetY, tnMatrixOrder
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnOffsetX)='N' and vartype(m.tnOffsetY)='N' and vartype(m.tnMatrixOrder)$'LN')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipTranslateWorldTransform in gdiplus.dll ;
    integer nGraphics, single nOffsetX, single nOffsetY, integer nMatrixOrder
This.gdipStatus = GdipTranslateWorldTransform( This.gdipHandle ;
    , m.tnOffsetX, m.tnOffsetY, evl(m.tnMatrixOrder,GDIPLUS_MatrixOrder_Prepend) )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE rotatetransform
lparameters tnAngle, tnMatrixOrder
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnAngle)='N' and vartype(m.tnMatrixOrder)$'LN')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipRotateWorldTransform in gdiplus.dll ;
    integer nGraphics, single nAngle, integer nMatrixOrder
This.gdipStatus = GdipRotateWorldTransform( This.gdipHandle ;
    , m.tnAngle, evl(m.tnMatrixOrder,GDIPLUS_MatrixOrder_Prepend) )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE scaletransform
lparameters tnScaleX, tnScaleY, tnMatrixOrder
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnScaleX)='N' and vartype(m.tnScaleY)='N' and vartype(m.tnMatrixOrder)$'LN')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipScaleWorldTransform in gdiplus.dll ;
    integer nGraphics, single nScaleX, single nScaleY, integer nMatrixOrder
This.gdipStatus = GdipScaleWorldTransform( This.gdipHandle ;
    , m.tnScaleX, m.tnScaleY, evl(m.tnMatrixOrder,GDIPLUS_MatrixOrder_Prepend) )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE resettransform
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
declare integer GdipResetWorldTransform in gdiplus.dll ;
    integer nGraphics
This.gdipStatus = GdipResetWorldTransform( This.gdipHandle )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE createfromimage
lparameters toImage
#if GDIPLUS_CHECK_PARAMS
if !(vartype(toImage)=='O')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
This.Destroy()
declare integer GdipGetImageGraphicsContext in gdiplus.dll ;
    integer nImage, integer @ nGraphics
local nHandle
nHandle = 0
This.gdipStatus = GdipGetImageGraphicsContext ( toImage.GetHandle(), @nHandle )
if GDIPLUS_STATUS_OK == This.gdipStatus
    This.SetHandle(m.nHandle,.T.)
    return .T.
    return .F.
endif
ENDPROC
PROCEDURE drawimageat
lparameters toImage, destPtOrX,destY
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toImage)='O')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lnDestX, lnDestY as Number
do case
case vartype(m.destPtOrX)+vartype(m.destY)='NN'
    * passed separate coordinates
    lnDestX = m.destPtOrX
    lnDestY = m.destY
case vartype(m.destPtOrX)+vartype(m.destY)='OL' and pemstatus(m.destPtOrX,'X',5)
    * passed a point object (or a rect but we're ignoring width&height - this is unscaled)
    lnDestX = m.destPtOrX.X
    lnDestY = m.destPtOrX.Y
otherwise
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endcase
declare Integer GdipDrawImage in gdiplus.dll ;
    integer nGraphics, integer nImage, single,single
This.gdipStatus = GdipDrawImage( This.gdipHandle, toImage.GetHandle() ;
    , m.lnDestX,m.lnDestY)
return GDIPLUS_STATUS_OK==This.gdipStatus
ENDPROC
PROCEDURE drawimagescaled
lparameters toImage as GpImage, destRectOrX,destY,destW,destH
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toImage)='O')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
local lnDestX, lnDestY, lnDestW, lnDestH as Number
do case
case vartype(m.destRectOrX)+vartype(m.destY)+vartype(m.destW)+vartype(m.destH)='NNNN'
    * passed separate coordinates
    lnDestX = m.destRectOrX
    lnDestY = m.destY
    lnDestW = m.destW
    lnDestH = m.destH
case vartype(m.destRectOrX)+vartype(m.destY)+vartype(m.destW)+vartype(m.destH)='OLLL' ;
    and pemstatus(m.destRectOrX,'X',5) and pemstatus(m.destRectOrX,'W',5)
    * passed a Rect object
    lnDestX = m.destRectOrX.X
    lnDestY = m.destRectOrX.Y
    lnDestW = m.destRectOrX.W
    lnDestH = m.destRectOrX.H
otherwise
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endcase
declare Integer GdipDrawImageRect in gdiplus.dll ;
    integer nGraphics, integer nImage, single,single,single,single
This.gdipStatus = GdipDrawImageRect ( This.gdipHandle, toImage.GetHandle() ;
    , m.lnDestX,m.lnDestY, m.lnDestW,m.lnDestH )
return GDIPLUS_STATUS_OK==This.gdipStatus
ENDPROC
PROCEDURE drawimageportionat
lparameters toImage, destPoint,srcRect, srcUnit
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toImage)+vartype(m.destPoint)+vartype(m.srcRect)+vartype(m.srcUnit)=='OOON' ;
    and pemstatus(m.destPoint,'X',5) ;
    and pemstatus(m.srcRect,'X',5) and pemstatus(m.srcRect,'W',5))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare Integer GdipDrawImagePointRect in gdiplus.dll ;
    integer nGraphics, integer nImage ;
    , single,single ;
    , single,single,single,single ;
    , integer
This.gdipStatus = GdipDrawImagePointRect( This.gdipHandle, toImage.GetHandle() ;
    , m.destPoint.X,m.destPoint.Y ;
    , m.srcRect.X,m.srcRect.Y,m.srcRect.W,m.srcRect.H ;
    , m.srcUnit )
return GDIPLUS_STATUS_OK==This.gdipStatus
ENDPROC
PROCEDURE drawimageportionscaled
lparameters toImage, destRect,srcRect, srcUnit, imageAttribs
* This function allows an optional ImageAttributes object. Since this class
* isn't currently implemented in the FFC classes, allow an integer pointer
* to be passed in, so that the called can implement themselves
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.toImage)+vartype(m.destRect)+vartype(m.srcRect)+vartype(m.srcUnit)=='OOON' ;
    and vartype(m.imageAttribs)$'ONL' ;
    and pemstatus(m.destRect,'X',5) and pemstatus(m.destRect,'W',5) ;
    and pemstatus(m.srcRect,'X',5) and pemstatus(m.srcRect,'W',5))
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare Integer GdipDrawImageRectRect in gdiplus.dll ;
    integer nGraphics, integer nImage ;
    , single,single,single,single ;
    , single,single,single,single ;
    , integer nSrcUnit ;
    , integer nImgAttribs ;
    , integer nCallback, integer nCallbackData
This.gdipStatus = GdipDrawImageRectRect( This.gdipHandle, toImage.GetHandle() ;
    , m.destRect.X,m.destRect.Y,m.destRect.W,m.destRect.H ;
    , m.srcRect.X,m.srcRect.Y,m.srcRect.W,m.srcRect.H ;
    , m.srcUnit ;
    , icase(    vartype(m.imageAttribs)='O',m.imageAttribs.GetHandle() ;
                ,vartype(m.imageAttribs)='N',m.imageAttributes ;
                , 0 ) ;
    , 0, 0 )
return GDIPLUS_STATUS_OK==This.gdipStatus
ENDPROC
PROCEDURE releasehdc
lparameters tnHDC as integer
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return .F.
endif
#endif
#if GDIPLUS_CHECK_PARAMS
if !(vartype(m.tnHDC)='N')
    error 11 && function argument
    This.gdipStatus = GDIPLUS_STATUS_InvalidParameter
    return .F.
endif
#endif
declare integer GdipReleaseDC in gdiplus.dll ;
    integer, integer
This.gdipStatus = GdipReleaseDC( This.gdipHandle, tnHDC )
return GDIPLUS_STATUS_OK == This.gdipStatus
ENDPROC
PROCEDURE gethdc
#if GDIPLUS_CHECK_OBJECT
if This.gdipHandle==0
    error _GDIPLUS_NOGDIPOBJECT_LOC
    This.gdipStatus = GDIPLUS_STATUS_GenericError
    return cast(null as I)
endif
#endif
local lnHDC
lnHDC = 0
declare integer GdipGetDC in gdiplus.dll ;
    integer, integer @
This.gdipStatus = GdipGetDC( This.gdipHandle, @lnHDC )
if GDIPLUS_STATUS_OK == This.gdipStatus
    return m.lnHDC
    return cast(null as I)
endif
ENDPROC
PROCEDURE drawstringjust
    *************************************************************************************
    ** Method: xfcGraphics.DrawStringJustified
    ** Draws the specified text string at the specified location with the specified Brush
    ** and Font objects in a Full Justified format.
    ** History:
    **  2007/01/15: CChalom - Coded
    **  2007/02/02: CChalom - Tweaked to work with ReportListener
    **  2007/04/16: CChalom - Minor fixes for small sentences
    **  2008/06/22: CChalom - Added some tweaks to allow better drawing on reports
    **                        Added new flag - tlJustLast - that will forcely justify the last line
    *************************************************************************************
    DECLARE Long GdipSetTextRenderingHint IN GDIPLUS.DLL AS xfcGdipSetTextRenderingHint Long graphics, Long mode
    DECLARE Long GdipStringFormatGetGenericTypographic IN GDIPLUS.DLL AS xfcGdipStringFormatGetGenericTypographic Long @StringFormat
    DECLARE Long GdipCloneStringFormat IN GDIPLUS.DLL AS xfcGdipCloneStringFormat Long StringFormat, Long @newFormat
    DECLARE Long GdipCreateStringFormat IN GDIPLUS.DLL AS xfcGdipCreateStringFormat Integer formatAttributes, Integer language, Long @StringFormat
    DECLARE Long GdipDeleteStringFormat IN GDIPLUS.DLL AS xfcGdipDeleteStringFormat Long StringFormat
    DECLARE Long GdipSetStringFormatFlags IN GDIPLUS.DLL AS xfcGdipSetStringFormatFlags Long StringFormat, Long flags
    DECLARE Long GdipSetStringFormatAlign IN GDIPLUS.DLL AS xfcGdipSetStringFormatAlign Long StringFormat, Long Align
    DECLARE Long GdipMeasureString IN GDIPLUS.DLL AS xfcGdipMeasureString Long graphics, String str, Long length, Long thefont, String @layoutRect, Long StringFormat, String @boundingBox, Long @codepointsFitted, Long @linesFilled
    DECLARE Long GdipDrawString IN GDIPLUS.DLL AS xfcGdipDrawString Long graphics, String str, Long length, Long thefont, String @layoutRect, Long StringFormat, Long brush
    DECLARE Long GdipDeleteStringFormat IN GDIPLUS.DLL AS xfcGdipDeleteStringFormat Long StringFormat
#DEFINE StringFormatFlagsDirectionRightToLeft 1
#DEFINE StringFormatFlagsDirectionVertical  2
#DEFINE StringFormatFlagsNoFitBlackBox   4
#DEFINE StringFormatFlagsDisplayFormatControl 32
#DEFINE StringFormatFlagsNoFontFallback   1024
#DEFINE StringFormatFlagsMeasureTrailingSpaces 2048
#DEFINE StringFormatFlagsNoWrap     4096
#DEFINE StringFormatFlagsLineLimit    8192
#DEFINE StringFormatFlagsNoClip     16384
#DEFINE StringAlignmentNear 0
#DEFINE StringAlignmentCenter 1
#DEFINE StringAlignmentFar  2
#DEFINE EMPTY_FLOAT            0h00000000
#DEFINE EMPTY_LONG            0h00000000
#DEFINE EMPTY_SHORT            0h0000
#DEFINE EMPTY_RECTANGLE        EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_RECTANGLEF    EMPTY_FLOAT+EMPTY_FLOAT+EMPTY_FLOAT+EMPTY_FLOAT
#DEFINE EMPTY_POINT            EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_POINTF        EMPTY_FLOAT+EMPTY_FLOAT
#DEFINE EMPTY_SIZE            EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_SIZEF            EMPTY_FLOAT+EMPTY_FLOAT
#DEFINE EMPTY_METAFILEHEADER  EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+;
                                EMPTY_FLOAT+EMPTY_FLOAT+;
                                EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+;
                                EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_ICONINFO        EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_BITMAP        EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_SHORT+EMPTY_SHORT+EMPTY_LONG
    DECLARE Long GdipSetTextRenderingHint IN GDIPLUS.DLL AS Foxy_GdipSetTextRenderingHint Long graphics, Long mode
    LPARAMETERS tcString, ;
                    toFont as GpFont of HOME() + "\ffc\_gdiplus.vcx", ;
                    toBrush as GpSolidBrush, ;
                    toRectangle as GpRectangle of HOME() + "\ffc\_gdiplus.vcx", ;
                    tlJustLast as Boolean
        *!ToDo: Add more error trapping
        *!ToDo: Add new overloads
        LOCAL lhFont, lhGraphics, lhBrush, lcRectF
        LOCAL N, lnSpaceWidth, lnLineHeight, lcText
        LOCAL wImg, hImg, x0, y0
        LOCAL loGfxState AS xfcGraphicsState
        LOCAL lhTempStrFormat, lhStringFormat
        LOCAL lhLeftAlignHandle
        LOCAL lhRightAlignHandle
        LOCAL lnWords, lnWordWidth, lnChars, lcCurrWord, lcCutWord, lnReduce
        LOCAL llEndOfSentence, lnWordsWidth, lnWordsinLine, lnCurrWord, lnCurrLine, lnX, lnY
        LOCAL lnWidthofBetween, lnStringFormatHandle, llLast
        #DEFINE TextRenderingHintAntiAlias        4
        LOCAL loExc AS Exception
        TRY
            m.X0   = m.toRectangle.x
            m.Y0   = m.toRectangle.y
            m.wImg = m.toRectangle.w
            m.hImg = m.toRectangle.h
            * Save the current state of the graphics handle
LOCAL lhGfxState
lhGfxState = 0
This.Save(@lhGfxState)
            * m.loGfxState = This.Save()
            * Store Gdi+ handles for MeasureString and DrawString
            m.lhFont     = m.toFont.GetHandle()
            m.lhGraphics = This.GetHandle()
            m.lhBrush    = m.toBrush.GetHandle()
            * Obtain the Font Height to be used as Line Height
            m.lnLineHeight = FLOOR(m.toFont.GetHeight(This)) - 2
            * Adjust the Text String to ease detection of Carriage Returns
            m.lcText = STRTRAN(m.tcString,CHR(13)+CHR(10), " <CR> ")
            m.lcText = STRTRAN(m.lcText,CHR(13), " <CR> ")
            m.lcText = STRTRAN(m.lcText,CHR(10), " <CR> ")
            m.lcText = m.lcText + " <LASTWORD> "
            * Ensure Measure String will bring the best measures possible
            * Set to AntiAlias
            = xfcGdipSetTextRenderingHint(m.lhGraphics, TextRenderingHintAntiAlias)
            * Create a String Format object with the Generic Typographic TO obtain
            *   the most accurate String measurements
            * Strange, but the recommended for this case is to use a "cloned" StringFormat
            STORE 0 TO m.lhTempStrFormat, m.lhStringFormat
            = xfcGdipStringFormatGetGenericTypographic(@lhTempStrFormat)
            = xfcGdipCloneStringFormat(m.lhTempStrFormat, @lhStringFormat)
            * Delete the Temporary StringFormat object created
            = xfcGdipDeleteStringFormat(m.lhTempStrFormat)
            * Allow the correct measuring of Spaces
            = xfcGdipSetStringFormatFlags(m.lhStringFormat, StringFormatFlagsMeasureTrailingSpaces)
            * Create a StringFormat for LeftAlignment
            m.lhLeftAlignHandle = 0
            = xfcGdipCreateStringFormat(0, 0, @lhLeftAlignHandle)
            = xfcGdipSetStringFormatAlign(m.lhLeftAlignHandle, StringAlignmentNear)
            * Create a StringFormat for RightAlignment
            m.lhRightAlignHandle = 0
            = xfcGdipCreateStringFormat(0, 0, @lhRightAlignHandle)
            = xfcGdipSetStringFormatAlign(m.lhRightAlignHandle, StringAlignmentFar)
            * Measure Space for the given font
            STORE EMPTY_RECTANGLE TO m.lcRectF, pcBoundingBox
            = xfcGdipMeasureString( m.lhGraphics;
                , STRCONV(" " + 0h00,5)    ;
                , 1 ;
                , m.lhFont ;
                , m.lcRectF ;
                , m.lhStringFormat ;
                , @pcBoundingBox, 0, 0)
            m.lnSpaceWidth = CTOBIN(SUBSTR(pcBoundingBox, 9, 4), 'N') + 1
            m.lnWords = GETWORDCOUNT(m.lcText)
            DIMENSION laWords(lnWords,2)
            * Measure each word
            n = 1
            DO WHILE .T.
                laWords(N,1) = GETWORDNUM(m.lcText, N)
                m.lcCurrWord = laWords(N,1)
                STORE EMPTY_RECTANGLE TO m.lcRectF, pcBoundingBox
                = xfcGdipMeasureString(m.lhGraphics;
                    , STRCONV(m.lcCurrWord + 0h00,5)    ;
                    , LENC(m.lcCurrWord) ;
                    , m.lhFont ;
                    , m.lcRectF ;
                    , lhStringFormat ;
                    , @pcBoundingBox, 0, 0)
                m.lnWordWidth = CTOBIN(SUBSTR(pcBoundingBox, 9, 4), 'N')
                IF m.lnWordWidth > m.wImg AND (NOT INLIST(m.lcCurrWord, "<CR>", "<LASTWORD>"))
                    m.lnReduce = 1
                    DO WHILE .T.
                        m.lnChars = ROUND((LENC(m.lcCurrWord) / (m.lnWordWidth / m.wImg)),0) - m.lnReduce
                        m.lcCutWord = SUBSTR(m.lcCurrWord, 1, m.lnChars)
                        STORE EMPTY_RECTANGLE TO m.lcRectF, pcBoundingBox
                        = xfcGdipMeasureString(m.lhGraphics;
                            , STRCONV(m.lcCutWord + 0h00,5)    ;
                            , LENC(m.lcCutWord) ;
                            , m.lhFont ;
                            , m.lcRectF ;
                            , m.lhStringFormat ;
                            , @pcBoundingBox, 0, 0)
                        m.lnWordWidth = CTOBIN(SUBSTR(pcBoundingBox, 9, 4), 'N')
                        laWords(N,1) = m.lcCutWord
                        IF m.lnWordWidth <= m.wImg
                            m.lnWords = m.lnWords + 1
                            DIMENSION laWords(m.lnWords,2)
                            laWords(m.lnWords,1) = ""
                            laWords(m.lnWords,2) = 0

                            m.lcText = STRTRAN(m.lcText, m.lcCurrWord, ;
                                m.lcCutWord + SPACE(1) + SUBSTR(m.lcCurrWord, m.lnChars + 1), ;
                                1, 1)
                            EXIT
                        ENDIF
                        m.lnReduce = m.lnReduce + 1
                    ENDDO
                ENDIF
                laWords(N,2) = m.lnWordWidth
                N = N + 1
                IF N > m.lnWords
                    EXIT
                ENDIF
            ENDDO
            * Before we start drawing, it's wise to restore our Graphics object to
            *    its original state.
            * Put back the state of the graphics handle
            * This.Restore(loGfxState)
This.Restore(lhGfxState)
            * Start Drawing word by word
            m.lnCurrWord = 1
            m.lnCurrLine = 0
            LOCAL llLastLine
            m.llLastLine = .F.
            FOR m.N = 1 TO m.lnWords
                llEndOfSentence   = .F.
                m.lnWordsWidth  = 0
                m.lnWordsinLine = 0
                FOR m.z = m.N TO m.lnWords
                    lcChar = LOWER(laWords(z,1))

                    IF m.laWords(z,1) = "<CR>"
                        m.llEndOfSentence = .T.
                        EXIT
                    ENDIF

                    IF m.laWords(z,1) = "<LASTWORD>"
                        m.llLastLine = .T.
                        m.lnWordsWidth = m.lnWordsWidth - (m.lnSpaceWidth * m.lnWordsinLine) + m.lnSpaceWidth
                        EXIT
                    ENDIF
                    m.lnWordsWidth = m.lnWordsWidth + m.laWords(z,2) + m.lnSpaceWidth
                    IF m.lnWordsWidth > m.wImg AND z > N
                        m.lnWordsWidth = m.lnWordsWidth - m.laWords(z,2) - (m.lnSpaceWidth * m.lnWordsinLine)
                        EXIT
                    ENDIF
                    m.lnWordsinLine = m.lnWordsinLine + 1
                ENDFOR
                m.lnWordsWidth = m.lnWordsWidth - m.lnSpaceWidth
                IF m.z >= m.lnWords
                    m.llEndOfSentence = .T.
                    m.llLastLine = .T.
                ENDIF
                IF m.llLastLine
                    IF m.tlJustLast
                        m.lnWidthOfBetween = (m.wImg - m.lnWordsWidth - m.lnSpaceWidth) / (m.lnWordsinLine - 1)
                    ELSE
                        m.lnWidthOfBetween = m.lnSpaceWidth
                    ENDIF

                ELSE

                    IF m.llEndOfSentence
                        m.lnWidthOfBetween = m.lnSpaceWidth
                    ELSE
                        m.lnWidthOfBetween = (m.wImg - m.lnWordsWidth - m.lnSpaceWidth) / (m.lnWordsinLine - 1)
                    ENDIF

                ENDIF
                m.lnY = m.Y0 + (m.lnCurrLine * m.lnLineHeight)
                IF m.lnY > (m.hImg + m.Y0 - lnLineHeight / 2)
                    m.n = m.lnWords
                    EXIT
                ENDIF

                m.lnX = m.X0
                FOR m.lnCurrWord = 1 TO m.lnWordsinLine
                    m.llLast = .F.
                    IF m.laWords(N,1) = "<CR>" && Ignore
                        m.N = m.N + 1
                        LOOP
                    ENDIF

                    IF m.lnCurrWord = m.lnWordsinLine AND NOT m.llEndOfSentence
                        m.llLast = .T.
                    ENDIF
                    IF m.lnCurrWord = m.lnWordsinLine AND m.llLastLine AND tlJustLast
                        m.llLast = .T.
                    ENDIF
                    IF m.lnWordsInLine = 1
                        m.lnX = m.X0
                        m.llLast = .F.
                    ENDIF
                    IF m.llLast
                        m.lcRectF = BINTOC(m.X0,'F') + BINTOC(m.lnY,'F') + ;
                            BINTOC(m.wImg,'F') + BINTOC(m.lnY + m.lnLineHeight,'F')
                        m.lnStringFormatHandle = m.lhRightAlignHandle
                    ELSE
                        m.lcRectF = BINTOC(m.lnX,'F') + BINTOC(m.lnY,'F') + REPLICATE(CHR(0),8)
                        m.lnStringFormatHandle = m.lhLeftAlignHandle
                    ENDIF
                    = xfcGdipDrawString(m.lhGraphics ;
                        , STRCONV(m.laWords(N,1) + 0h00,5) ;
                        , LEN(m.laWords(N,1)) ;
                        , m.lhFont ;
                        , m.lcRectF ;
                        , m.lnStringFormatHandle ;
                        , m.lhBrush)
                    m.lnX = m.lnX + m.laWords(N,2) + m.lnWidthOfBetween
                    m.N = m.N + 1 && Go to next word
                ENDFOR
                m.lnCurrLine = m.lnCurrLine + 1
                IF m.N >= m.lnWords
                    EXIT
                ENDIF
                IF m.laWords(N,1) <> "<CR>"
                    m.N = m.N - 1 && Compensate ENDFOR
                ENDIF
            ENDFOR
            * Finished Measuring, so erase the temp objects
            * Delete the StringFormat object created
            =xfcGdipDeleteStringFormat(m.lhStringFormat)
            =xfcGdipDeleteStringFormat(m.lhLeftAlignHandle)
            =xfcGdipDeleteStringFormat(m.lhRightAlignHandle)
        CATCH TO loExc
            SET STEP ON
        ENDTRY
        RETURN NULL
ENDPROC
PROCEDURE Destroy
if This.gdipHandle>0 and This.gdipOwnsThisHandle
    declare integer GdipDeleteGraphics in gdiplus.dll integer
    GdipDeleteGraphics( This.gdipHandle )
    This.gdipHandle = 0
    This.gdipOwnsThisHandle = .F.
endif
ENDPROC
pixeloffsetmode = 0
pageunit =
_memberdata =
    7020<?xml version="1.0" standalone="yes"?>
<VFPData><memberdata name="clear" type="method" display="Clear" favorites="True"/><memberdata name="clipbounds" type="property" display="ClipBounds" favorites="True"/><memberdata name="compositingmode" type="property" display="CompositingMode" favorites="True"/><memberdata name="compositingquality" type="property" display="CompositingQuality" favorites="True"/><memberdata name="createfromhdc" type="method" display="CreateFromHDC" favorites="True"/><memberdata name="createfromhwnd" type="method" display="CreateFromHWND" favorites="True" override="True"/><memberdata name="createfromimage" type="method" display="CreateFromImage" favorites="True"/><memberdata name="dpix" type="property" display="DpiX" favorites="True"/><memberdata name="dpiy" type="property" display="DpiY" favorites="True"/><memberdata name="drawarc" type="method" display="DrawArc" favorites="True"/><memberdata name="drawbezier" type="method" display="DrawBezier" favorites="True"/><memberdata name="drawbeziers" type="method" display="DrawBeziers" favorites="True"/><memberdata name="drawbeziersfromcursor" type="method" display="DrawBeziersFromCursor" favorites="True"/><memberdata name="drawcachedbitmap" type="method" display="DrawCachedBitmap" favorites="True"/><memberdata name="drawclosedcurve" type="method" display="DrawClosedCurve" favorites="True"/><memberdata name="drawclosedcurvefromcursor" type="method" display="DrawClosedCurveFromCursor" favorites="True"/><memberdata name="drawcurve" type="method" display="DrawCurve" favorites="True"/><memberdata name="drawcurvefromcursor" type="method" display="DrawCurveFromCursor" favorites="True"/><memberdata name="drawellipse" type="method" display="DrawEllipse" favorites="True"/><memberdata name="drawellipser" type="method" display="DrawEllipseR" favorites="True"/><memberdata name="drawimageat" type="method" display="DrawImageAt" favorites="True"/><memberdata name="drawimageportionat" type="method" display="DrawImagePortionAt" favorites="True"/><memberdata name="drawimageportionscaled" type="method" display="DrawImagePortionScaled" favorites="True"/><memberdata name="drawimagescaled" type="method" display="DrawImageScaled" favorites="True"/><memberdata name="drawline" type="method" display="DrawLine" favorites="True"/><memberdata name="drawlines" type="method" display="DrawLines" favorites="True"/><memberdata name="drawlinesfromcursor" type="method" display="DrawLinesFromCursor" favorites="True"/><memberdata name="drawpie" type="method" display="DrawPie" favorites="True"/><memberdata name="drawpier" type="method" display="DrawPieR" favorites="True"/><memberdata name="drawpolygon" type="method" display="DrawPolygon" favorites="True"/><memberdata name="drawpolygonfromcursor" type="method" display="DrawPolygonFromCursor" favorites="True"/><memberdata name="drawrectangle" type="method" display="DrawRectangle" favorites="True" override="True"/><memberdata name="drawrectangler" type="method" display="DrawRectangleR" favorites="True"/><memberdata name="drawrectangles" type="method" display="DrawRectangles" favorites="True"/><memberdata name="drawrectanglesfromcursor" type="method" display="DrawRectanglesFromCursor" favorites="True"/><memberdata name="drawstringa" type="method" display="DrawStringA" favorites="True"/><memberdata name="drawstringw" type="method" display="DrawStringW" favorites="True"/><memberdata name="fillclosedcurve" type="method" display="FillClosedCurve" favorites="True"/><memberdata name="fillclosedcurvefromcursor" type="method" display="FillClosedCurveFromCursor" favorites="True"/><memberdata name="fillellipse" type="method" display="FillEllipse" favorites="True"/><memberdata name="fillellipser" type="method" display="FillEllipseR" favorites="True"/><memberdata name="fillpie" type="method" display="FillPie" favorites="True"/><memberdata name="fillpier" type="method" display="FillPieR" favorites="True"/><memberdata name="fillpolygon" type="method" display="FillPolygon" favorites="True"/><memberdata name="fillpolygonfromcursor" type="method" display="FillPolygonFromCursor" favorites="True"/><memberdata name="fillrectangle" type="method" display="FillRectangle" favorites="True"/><memberdata name="fillrectangler" type="method" display="FillRectangleR" favorites="True"/><memberdata name="fillrectangles" type="method" display="FillRectangles" favorites="True"/><memberdata name="fillrectanglesfromcursor" type="method" display="FillRectanglesFromCursor" favorites="True"/><memberdata name="flush" type="method" display="Flush" favorites="True"/><memberdata name="interpolationmode" type="property" display="InterpolationMode" favorites="True"/><memberdata name="interpolationmode_access" type="method" display="InterpolationMode_access"/><memberdata name="interpolationmode_assign" type="method" display="InterpolationMode_assign"/><memberdata name="measurestringa" type="method" display="MeasureStringA" favorites="True"/><memberdata name="measurestringw" type="method" display="MeasureStringW" favorites="True"/><memberdata name="pagescale" type="property" display="PageScale" favorites="True"/><memberdata name="pagescale_access" type="method" display="PageScale_access"/><memberdata name="pagescale_assign" type="method" display="PageScale_assign"/><memberdata name="pageunit" type="property" display="PageUnit" favorites="True"/><memberdata name="pageunit_access" type="method" display="PageUnit_access"/><memberdata name="pageunit_assign" type="method" display="PageUnit_assign"/><memberdata name="pixeloffsetmode" type="property" display="PixelOffsetMode" favorites="True"/><memberdata name="pixeloffsetmode_access" type="method" display="PixelOffsetMode_access"/><memberdata name="pixeloffsetmode_assign" type="method" display="PixelOffsetMode_assign"/><memberdata name="renderingorigin" type="property" display="RenderingOrigin" favorites="True"/><memberdata name="resettransform" type="method" display="ResetTransform" favorites="True"/><memberdata name="restore" type="method" display="Restore" favorites="True"/><memberdata name="rotatetransform" type="method" display="RotateTransform" favorites="True"/><memberdata name="save" type="method" display="Save" favorites="True"/><memberdata name="scaletransform" type="method" display="ScaleTransform" favorites="True"/><memberdata name="smoothingmode" type="property" display="SmoothingMode" favorites="True"/><memberdata name="textcontrast" type="property" display="TextContrast" favorites="True"/><memberdata name="textrenderinghint" type="property" display="TextRenderingHint" favorites="True"/><memberdata name="translatetransform" type="method" display="TranslateTransform" favorites="True"/><memberdata name="visibleclipbounds" type="property" display="VisibleClipBounds" favorites="True"/><memberdata name="gethdc" type="method" display="GetHdc" favorites="True"/><memberdata name="releasehdc" type="method" display="ReleaseHdc" favorites="True"/><memberdata name="drawstringjust" display="DrawStringJust"/></VFPData>
Name = "gpgraphics"
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _2Z911D86M1022004034
 WINDOWS _2Z911D86N1059848224
 WINDOWS _2Z911D86M1026462205
 WINDOWS _2ZD1D1IP71026462205'
 WINDOWS _2Z911D86M1026130672~
 WINDOWS _2Z911D86N1026130672@
 COMMENT RESERVED
VERSION =   3.00
dataenvironment
dataenvironment
Dataenvironment
YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
    frmSearch
DataSession = 2
BorderStyle = 2
Height = 90
Width = 370
Desktop = .T.
ShowWindow = 1
DoCreate = .T.
AutoCenter = .T.
Caption = "Find"
Closable = .F.
MaxButton = .F.
MinButton = .F.
Icon = ..\
WindowType = 1
AlwaysOnTop = .T.
AllowOutput = .F.
_memberdata = <VFPData><memberdata name="updatecontrol" display="UpdateControl"/><memberdata name="updatetable" display="UpdateTable"/></VFPData>
Name = "frmSearch"
PROCEDURE Init
LPARAMETERS tcString, toParentForm
    This.Icon = _goHelper.cFormIcon
CATCH
ENDTRY
    WITH _goHelper
        This.Caption            = .GetLoc("FIND")
        This.CmdCancel.Caption  = .GetLoc("CANCEL")
        This.CmdFind.Caption    = .GetLoc("FIND")
        This.lblString.Caption  = .GetLoc("FINDTEXT")
    ENDWITH
    This.TxtTextToFind.Value = tcString
CATCH
ENDTRY
IF (VARTYPE(toParentForm) = "O") AND toParentForm.SHOWWINDOW = 2 && as top-level form
    *-----------------------------------
    * If parent preview window is a top-level form,
    * center the child window in the view port:
    *-----------------------------------
    This.AUTOCENTER = .F.
    This.LEFT = toParentForm.VIEWPORTLEFT + INT(toParentForm.WIDTH/2  - This.WIDTH/2)
    This.TOP  = toParentForm.VIEWPORTTOP  + INT(toParentForm.HEIGHT/2 - This.HEIGHT/2)
    This.AUTOCENTER = .T.
ENDIF
ENDPROC
PROCEDURE Load
SET TALK OFF
SET CONSOLE OFF
ENDPROC
_GOHELPER
_CTEXTTOFIND
THISFORM
RELEASE
Click,
_GOHELPER
_CTEXTTOFIND
THISFORM
TXTTEXTTOFIND
VALUE
RELEASE
Click,
!Arial, 0, 9, 5, 15, 12, 32, 3, 0
cFormat = "K"
Height = 23
Left = 99
TabIndex = 1
Top = 16
Width = 260
Name = "txtTextToFind"
    frmSearch
txtTextToFind
textbox
textbox
    frmSearch
    lblString
label
label
    frmSearch
    cmdCancel
cmdFind
V_memberdata XML Metadata for customizable properties
*updatecontrol
*updatetable
commandbutton
commandbutton
    frmSearch
aTop = 51
Left = 180
Height = 27
Width = 84
Caption = "Find"
TabIndex = 2
Name = "cmdFind"
nPROCEDURE Click
_goHelper._cTextToFind = ALLTRIM(Thisform.txtTextToFind.Value)
Thisform.Release()
ENDPROC
AutoSize = .T.
BackStyle = 0
Caption = "String:"
Height = 17
Left = 7
Top = 16
Width = 37
TabIndex = 4
Name = "lblString"
KPROCEDURE Click
_goHelper._cTextToFind = ""
Thisform.Release()
ENDPROC
commandbutton
commandbutton
sTop = 51
Left = 276
Height = 27
Width = 84
Cancel = .T.
Caption = "Cancel"
TabIndex = 3
Name = "cmdCancel"
CANCEL
FINDTEXT
TCSTRING
TOPARENTFORM
ICON
_GOHELPER
CFORMICON
CAPTION
GETLOC
CMDCANCEL
CMDFIND
LBLSTRING
TXTTEXTTOFIND
VALUE
SHOWWINDOW
AUTOCENTER
VIEWPORTLEFT
WIDTH
VIEWPORTTOP
HEIGHT
Init,
!#!LNMRVTOTRHPH
777WWWXXXXXXXXXXXXXXXVVVUUUTTTRRRQQQPPPNNNMMMLLLLLLKKKLLLMMMNNNPRQ]`^
SWUR\R
SWUUUU
mqpPRQ
~~~{{{wwwtttpppllliiieeefff```
!#!LNMRVTOTRHPH
777WWWXXXXXXXXXXXXXXXVVVUUUTTTRRRQQQPPPNNNMMMLLLLLLKKKLLLMMMNNNPRQ]`^
SWUR\R
SWUUUU
mqpPRQ
~~~{{{wwwtttpppllliiieeefff```
!#!LNMRVTOTRHPH
777WWWXXXXXXXXXXXXXXXVVVUUUTTTRRRQQQPPPNNNMMMLLLLLLKKKLLLMMMNNNPRQ]`^
SWUR\R
SWUUUU
mqpPRQ
~~~{{{wwwtttpppllliiieeefff```
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _1O61C2TAZ 884087372
 COMMENT RESERVED
 WINDOWS _1NS0MG7JU1052884140
 WINDOWS _1NS0MG7JU 8790598334
 WINDOWS _1O403W86Q 883962909j
 WINDOWS _1O603XLBF 863702772G
 COMMENT RESERVED
VERSION =   3.00
ctl32.h
ctl32_progressbarlabel
ctl32.h
uctl32_name
ctl32_version
ctl32_update^
ctl32_declares^
uformatasbytes^
ctl32_init^
ctl32_bind^
ctl32_unbind^
Pixels
Class
label
ctl32_progressbarlabel
X_memberdata XML Metadata for customizable properties
buddycontrol Especifies the full name of the ctl32_ProgressBar control to bind this label to. For example: ThisForm.ctl32_ProgressBar1
labelstyle Especifies the Style used to display numbers in label text. N: Number, P: Percent, B: Bytes/KB/MB/GB
labelcaption Especifies the text to display in the label. Any text can be entered, keywords <<Value>> and <<Maximum>> will be replaced by the progressbar respective values.
ctl32_name
ctl32_version
*ctl32_update
*ctl32_declares
*uformatasbytes
*ctl32_init
*ctl32_bind
*ctl32_unbind
ctl32.hV6
ctl32_progressbar
ctl32_controlhwnd^
ctl32_dwexstyle^
ctl32_lpclassname^
ctl32_dwstyle^
ctl32_hinstance^
ctl32_creating^
ctl32_name
ctl32_hmenu^
ctl32_lpparam^
ctl32_lpwindowname^
ctl32_oldstep^
ctl32_version
ctl32_proxyhwnd^
ctl32_left^
ctl32_top^
ctl32_width^
ctl32_height^
builderx
ctl32_resize^
step_assign^
minimum_assign^
maximum_assign^
marquee_assign^
visible_assign^
ctl32_destroy^
ctl32_declaredlls^
ctl32_bindevents^
ctl32_unbindevents^
marqueeanimationspeed_assign^
hwnd_access^
value_access^
value_assign^
percent_access^
smooth_assign^
backcolor_assign^
barcolor_assign^
play_assign^
scrolling_assign^
percent_assign^
max_assign^
min_assign^
hwnd_assign^
orientation_assign^
vertical_assign^
bordercolor_assign^
ctl32_setborder^
StatusBarText^
Picture^
Click^
ControlCount^
Controls^
DblClick^
ColorSource^
Drag^
DragDrop^
DragIcon^
DragMode^
DragOver^
GotFocus^
LostFocus^
MiddleClick^
MouseDown^
MouseEnter^
MouseIcon^
MouseLeave^
MouseMove^
MousePointer^
MouseUp^
MouseWheel^
OLECompleteDrag^
OLEDrag^
OLEDragDrop^
OLEDragMode^
OLEDragOver^
OLEDragPicture^
OLEDropEffects^
OLEDropHasData^
OLEDropMode^
OLEGiveFeedback^
OLESetData^
OLEStartDrag^
Objects^
RightClick^
Style^
BorderWidth^
ForeColor^
AddProperty^
ActiveControl^
Draw^
HelpContextID^
Move^
Moved^
Refresh^
ResetToDefault^
Resize^
SaveAsClass^
SetFocus^
ShowWhatsThis^
SpecialEffect^
TabStop^
ToolTipText^
WhatsThisHelpID^
WriteExpression^
WriteMethod^
Pixels
Class
control
ctl32_progressbar
AutoSize = .T.
FontName = "Tahoma"
FontSize = 8
FontStrikethru = .F.
FontUnderline = .F.
Anchor = 7
BackStyle = 0
Caption = "ctl32_ProgressBar"
Height = 96
Left = 0
Top = 18
Width = 16
ForeColor = 0,0,128
Rotation = 90
Name = "lblControlNameV"
ctl32_progressbar
lblControlNameV
label
label
ctl32_progressbar
tmrControlTimer
timer
ctl32.hV6
PROCEDURE Timer
If This.Parent.HWnd = 0 Then
    Return
Endif
This.Parent.stepit()
*This.Parent.Value = This.Parent.Value + This.Parent.Step
ENDPROC
label
timer
ctl32_progressbar
lblControlNameH
PROCEDURE ctl32_update
If Empty(This.BuddyControl)
  Return
Endif
If Type("This.LabelStyle") <> [C]
  WAIT ([LabelStyle Property must be Character: ] + Program()) WINDOW nowait
  Return
Endif
Local lcValue, lcMaximum, lcCaption
Do Case
Case This.LabelStyle = "N"    && Value
  lcValue = Transform((Evaluate(This.BuddyControl + ".Value")),"999,999,999,999")
  lcMaximum = Transform((Evaluate(This.BuddyControl + ".Maximum")),"999,999,999,999")
  lcMinimum = Transform((Evaluate(This.BuddyControl + ".Minimum")),"999,999,999,999")
Case This.LabelStyle = "P"    && Percent
  lcValue = Transform(Evaluate(This.BuddyControl + ".Percent"),"999%")
  lcMaximum = "100%"
  lcMinimum = "0%"
Case This.LabelStyle = "B"    && Bytes
  lcValue = This.uFormatAsBytes(Evaluate(This.BuddyControl + ".Value"))
  lcMaximum = This.uFormatAsBytes(Evaluate(This.BuddyControl + ".Maximum"))
  lcMinimum = This.uFormatAsBytes(Evaluate(This.BuddyControl + ".Minimum"))
Otherwise    && same as "N"
  lcValue = Transform((Evaluate(This.BuddyControl + ".Value")),"999,999,999,999")
  lcMaximum = Transform((Evaluate(This.BuddyControl + ".Maximum")),"999,999,999,999")
  lcMinimum = Transform((Evaluate(This.BuddyControl + ".Minimum")),"999,999,999,999")
Endcase
lcCaption = This.LabelCaption
lcCaption = Strtran(lcCaption ,"<<Value>>",Alltrim(lcValue),1,10,1)
lcCaption = Strtran(lcCaption ,"<<Maximum>>",Alltrim(lcMaximum),1,10,1)
lcCaption = Strtran(lcCaption ,"<<Minimum>>",Alltrim(lcMinimum),1,10,1)
This.Caption = m.lcCaption
This.Refresh
ENDPROC
PROCEDURE ctl32_declares
Local Array laDeclaredDlls(1,3)
Local lnLen
m.lnLen = Adlls(m.laDeclaredDlls)
If Ascan(m.laDeclaredDlls, "StrFormatByteSize", 1, m.lnLen , 2, 15) = 0
    Declare Integer StrFormatByteSize In shlwapi As StrFormatByteSize ;
        INTEGER qdw,;
        STRING @ pszBuf,;
        INTEGER uiBufSize
Endif
ENDPROC
PROCEDURE uformatasbytes
LPARAMETERS qdw
LOCAL pszBuf
m.pszBuf = SPACE(100)
StrFormatByteSize(m.qdw, @m.pszBuf, Len(m.pszBuf))
m.pszBuf = ALLTRIM(m.pszBuf)
* Remove chr(0)
m.pszBuf = Left(m.pszBuf,Len(m.pszBuf)-1)
RETURN ALLTRIM(m.pszBuf)
ENDPROC
PROCEDURE ctl32_init
This.Caption = ""
This.ctl32_Declares
This.ctl32_Bind
This.ctl32_Update
ENDPROC
PROCEDURE ctl32_bind
If Not Empty(This.BuddyControl) Then
  If Type(This.BuddyControl) = [U] Then
    This.BuddyControl = [ThisForm.] + This.BuddyControl
  Endif
  Bindevent(Evaluate(This.BuddyControl),"VALUE",This,"CTL32_UPDATE",1)
Endif
ENDPROC
PROCEDURE ctl32_unbind
If Not Empty(This.BuddyControl) Then
  Unbindevent(Evaluate(This.BuddyControl),"VALUE",This,"CTL32_UPDATE")
Endif
ENDPROC
PROCEDURE Init
This.ctl32_Init
ENDPROC
PROCEDURE Destroy
This.ctl32_Unbind
ENDPROC
(FontName = "Tahoma"
FontSize = 8
Alignment = 1
BorderStyle = 0
Caption = "ctl32_ProgressBar_Label"
Height = 16
Width = 300
_memberdata =
buddycontrol =
labelstyle = N
labelcaption = <<Value>>
ctl32_name = ctl32_ProgressBarLabel
ctl32_version = 1.1
Name = "ctl32_progressbarlabel"
PARENT
STEPIT
Timer,
gTop = 0
Left = -25
Height = 23
Width = 23
Enabled = .F.
Interval = 100
Name = "tmrControlTimer"
FontName = "Tahoma"
FontSize = 8
FontStrikethru = .F.
FontUnderline = .F.
Anchor = 7
BackStyle = 0
Caption = "ctl32_ProgressBar"
Height = 15
Left = 6
Top = 1
Width = 89
ForeColor = 0,0,128
Name = "lblControlNameH"
label
label
ctl32_controlhwnd CreateWindowEx return value.
ctl32_dwexstyle CreateWindowEx parameter.
ctl32_lpclassname CreateWindowEx parameter.
ctl32_dwstyle CreateWindowEx parameter.
ctl32_hosthwnd CreateWindowEx parameter.
ctl32_hinstance CreateWindowEx parameter.
ctl32_creating
minimum Specifies the lower limit of the value property. Must be a positive or negative number smaller than Maximum
maximum Specifies the upper limit of the value property. Must be a positive or negative number larger than minimum.
vertical Specifies if the progressbar is vertical or horizontal.
_memberdata XML Metadata for customizable properties
step Determines the value to use in the stepit method. Can be a positive or negative value.
marquee Especifies if the marquee style is active. When set to true, the Smooth property is set to false to avoid wrong display of bars when using XP with no themes.
ctl32_name Name of the control class
marqueeanimationspeed Specifies the speed of the marquee bar, in milliseconds.
hwnd Specifies the Window handle of the Control.
value Specifies the current value of the control.
percent Specifies the percent of the value property relative to the total of maximum - minimum.
repeat Specifies if the controls rolls over to minimum when value reaches maximum. Use it with Play to display a self updating progressbar.
smooth Specifies if the progressbar is shown using segments, or using a continuous bar.
parenthwnd Especifies the handle of the parent window of the control.
ctl32_hmenu CreateWindowEx parameter.
ctl32_lpparam CreateWindowEx parameter.
ctl32_lpwindowname CreateWindowEx parameter.
barcolor Specifies the color of the progress bar. A value of -1 resets color to system default. Backcolor specifies the color of the background, a value of -1 resets color to system default.
play When True, fires the StepIt method every 100 milliseconds. To set the speed, change the value of the step property.
max For compatibility only. Use Maximum property instead.
min For compatibility only. Use Minimum property instead.
scrolling For compatibility only. Use Smooth property instead.
orientation For compatibility only. Use Vertical  property instead. 0: Horizontal, 1:Vertical
ctl32_oldstep Saves old Step value when the StepIt method is called with a parameter.
sizeadjust Adjusts Width/Height of Horizontal/Vertical ProgressBar so that bars show even and complete at the end/top. Use only with Themes applied in Windows XP.
themes Not Used
ctl32_version
ctl32_proxyhwnd Static window hwnd
flat Especifies if the flat style is active.
ctl32_left
ctl32_top
ctl32_width
ctl32_height
builderx
ctl32_flat
ctl32_backcolor
border
ctl32_formtype
ctl32_hwndparent
text Text string used to generate the caption. Check Help File
caption The Caption gets generated based on the string stored in the Text property
ctl32_oldproc
ctl32_pbproc
righttoleft Specifies if the control should draw right to left.
marqueespeed
*ctl32_resize Bound to Form.Resize
*step_assign
*minimum_assign
*maximum_assign
*marquee_assign
*visible_assign
*ctl32_create
*ctl32_destroy
*ctl32_declaredlls DLL declarations.
*ctl32_bindevents Binds events.
*ctl32_unbindevents
*marqueeanimationspeed_assign
*stepit Increments the value of the control by the amount specified in step. If a numeric parameter is passed, that value is used instead of the value set in the step property.
*hwnd_access
*value_access
*value_assign
*percent_access
*smooth_assign
*backcolor_assign
*barcolor_assign
*play_assign
*scrolling_assign
*percent_assign
*max_assign
*min_assign
*hwnd_assign
*reset Resets the Value property to the Minimum value.
*orientation_assign
*vertical_assign
*bordercolor_assign
*repeat_assign
*width_assign
*height_assign
*uisxp
*themes_assign
*flat_assign
*border_assign
*ctl32_settheme
*ctl32_setborder
*ctl32_createcaption
*uformatasbytes
*ustrtolong
*ctl32_wm_paint
*ctl32_setflat
*righttoleft_assign
*ctl32_setrighttoleft
*marqueespeed_access
*marqueespeed_assign
CTL32_CREATING
CTL32_CONTROLHWND
CTL32_LEFT
LEFT
CTL32_TOP
CTL32_WIDTH
WIDTH
CTL32_HEIGHT
HEIGHT
SETWINDOWPOS
m.vNewValb
Parameter must be Numeric: Ct
VNEWVAL
CTL32_CONTROLHWND
SENDMESSAGEN
m.vNewValb
Parameter must be Numeric: Ct
VNEWVAL
MINIMUM
VALUE
CTL32_CONTROLHWND
SENDMESSAGEN
MAXIMUM
m.vNewValb
Parameter must be Numeric: Ct
VNEWVAL
MAXIMUM
VALUE
CTL32_CONTROLHWND
SENDMESSAGEN
MINIMUM
m.vNewValb
m.vNewValb
Parameter must be Logical: Ct
VNEWVAL
MARQUEE
CTL32_CONTROLHWND
CTL32_DESTROY
CTL32_CREATEN
m.vNewValb
m.vNewValb
Parameter must be Logical: Ct
VNEWVAL
VISIBLE
CTL32_CONTROLHWND
_SHOWWINDOW
CTL32_PROXYHWND
msctls_progress32
Error Creating window
 Host:
CTL32_CREATING
CTL32_DWEXSTYLE
CTL32_LPCLASSNAME
CTL32_LPWINDOWNAME
CTL32_DWSTYLE
CTL32_HWNDPARENT
CTL32_HOSTHWND
CTL32_LEFT
LEFT
CTL32_TOP
CTL32_WIDTH
WIDTH
CTL32_HEIGHT
HEIGHT
MARQUEE
SMOOTH
VERTICAL
ORIENTATION
CTL32_HMENU
CTL32_HINSTANCE
GETWINDOWLONG
CTL32_LPPARAM
CTL32_CONTROLHWND
CREATEWINDOWEX
CTL32_NAME
CTL32_BINDEVENTS
CTL32_SETTHEME
MINIMUM
MAXIMUM
VALUE
CTL32_SETBORDER
MARQUEEANIMATIONSPEED
PLAY
BACKCOLOR
BARCOLOR
VISIBLES
CTL32_CONTROLHWND
DESTROYWINDOW
CTL32_PROXYHWND
CallWindowProc
CallWindowProc
win32apiQ
CallWindowProc
CreateWindowEx
CreateWindowEx
win32apiQ
CreateWindowEx
DestroyWindow
DestroyWindow
win32apiQ
DestroyWindow
GetClientRect
GetClientRect
win32apiQ
GetClientRect
GetWindow
GetWindow
user32Q
GetWindow
GetWindowLong
GetWindowLong
win32apiQ
GetWindowLong
IsThemeActive
IsThemeActive
uxtheme.DllQ
IsThemeActive
SendMessageC
SendMessage
win32apiQ
SendMessageC
SendMessageN
SendMessage
win32apiQ
SendMessageN
SetWindowLong
SetWindowLong
win32apiQ
SetWindowLong
SetWindowPos
SetWindowPos
win32apiQ
SetWindowPos
SetWindowTheme
SetWindowTheme
UxThemeQ
SetWindowTheme
ShowWindow
ShowWindow
win32apiQ
ShowWindow
_ShowWindow
ShowWindow
win32apiQ
_ShowWindow
StrFormatByteSize
StrFormatByteSize
shlwapiQ
StrFormatByteSize
LADECLAREDDLLS
LNLEN
CALLWINDOWPROC
WIN32API
CREATEWINDOWEX
DESTROYWINDOW
GETCLIENTRECT
GETWINDOW
USER32
GETWINDOWLONG
ISTHEMEACTIVE
UXTHEME
SENDMESSAGE
SENDMESSAGEC
SENDMESSAGEN
SETWINDOWLONG
SETWINDOWPOS
SETWINDOWTHEME
SHOWWINDOW
_SHOWWINDOW
STRFORMATBYTESIZE
SHLWAPI
Resize
ctl32_Resize
ctl32_Resize
ctl32_Resize
Value
ctl32_CreateCaption
RESIZE
CTL32_RESIZE
CTL32_RESIZE
CTL32_RESIZE
CTL32_CONTROLHWND
m.vNewValb
Parameter must be Numeric: Ct
VNEWVAL
MARQUEEANIMATIONSPEED
CTL32_CONTROLHWND
SENDMESSAGEN~
m.lnValb
LNVAL
LNOLDSTEP
REPEAT
VALUE
MAXIMUM
MINIMUM
CTL32_OLDSTEP
CTL32_CONTROLHWND
CTL32_CONTROLHWNDs
NVALUE
CTL32_CREATING
CTL32_CONTROLHWND
VALUE
SENDMESSAGENU
m.vNewValb
Parameter must be Numeric: Ct
VNEWVAL
REPEAT
MAXIMUM
MINIMUM
VALUE
CTL32_CONTROLHWND
SENDMESSAGEN.
VALUE
MINIMUM
MAXIMUM
m.vNewValb
m.vNewValb
Parameter must be Logical: Ct
VNEWVAL
SMOOTH
CTL32_CONTROLHWND
CTL32_DESTROY
CTL32_CREATE,
m.vNewValb
Parameter for BackColor must be Numeric
VNEWVAL
CTL32_BACKCOLOR
BACKCOLOR
CTL32_CONTROLHWND
SENDMESSAGEN
m.vNewValb
Parameter for BarColor must be Numeric
VNEWVAL
BARCOLOR
CTL32_CONTROLHWND
SENDMESSAGEN,
m.vNewValb
m.vNewValb
Parameter must be Logical: Ct
VNEWVAL
MARQUEE
VALUE
MINIMUM
TMRCONTROLTIMER
ENABLED
m.vNewValb
Parameter must be Numeric: Ct
VNEWVAL
SROLLING
SCROLLING
SMOOTH
VNEWVAL
m.vNewValb
Parameter must be Numeric: Ct
VNEWVAL
MAXIMUM
m.vNewValb
Parameter must be Numeric: Ct
VNEWVAL
MINIMUM
VNEWVAL
VALUE
MINIMUM
m.vNewValb
Parameter must be Numeric: Ct
VNEWVAL
ORIENTATION
VERTICAL8
m.vNewValb
m.vNewValb
Parameter must be Logical: Ct
VNEWVAL
VERTICAL
ORIENTATION
CTL32_CONTROLHWND
CTL32_DESTROY
CTL32_CREATEL
VNEWVAL
BORDERCOLOR
m.vNewValb
m.vNewValb
Parameter must be Logical: Ct
VNEWVAL
REPEAT
VNEWVAL
WIDTH
SIZEADJUST
ORIENTATION
VERTICAL
VNEWVAL
HEIGHT
SIZEADJUST
ORIENTATION
VERTICALJ
m.vNewValb
m.vNewValb
Parameter must be Logical: Ct
VNEWVAL
THEMES
CTL32_SETTHEME)
VNEWVAL
CTL32_SETFLATC
VNEWVAL
BORDER
CTL32_CREATING
CTL32_SETBORDER
CTL32_CONTROLHWND
LLTHEMES
UISXP
ISTHEMEACTIVE
THEMES
THISFORM
SETWINDOWTHEME
CTL32_SETFLAT?
LNEXSTYLE
LLTHEMES
UISXP
ISTHEMEACTIVE
THEMES
THISFORM
BORDER
GETWINDOWLONG
CTL32_CONTROLHWND
SETWINDOWLONG
SETWINDOWPOS2
999,999,999,999_
999,999,999,999_
999,999,999,999_
999%_
<<ValueB>>C
<<ValueN>>C
<<ValueP>>C
<<MaximumB>>C
<<MaximumN>>C
<<MaximumP>>C
<<MinimumB>>C
<<MinimumN>>C
<<MinimumP>>C
CAPTION
LCBVAL
LCNVAL
LCPVAL
LCBMAX
LCNMAX
LCPMAX
LCBMIN
LCNMIN
LCPMIN
LCCAPTION
VALUE
MAXIMUM
MINIMUM
PERCENT
UFORMATASBYTES
PSZBUF
STRFORMATBYTESIZE
INTEGER
TCLONGSTR
LNRETVAL
INTEGER
INTEGER
INTEGER
INTEGER
TNHWND
TNMSG
TNWPARAM
TNLPARAM
LNRESULT
CALLWINDOWPROC
CTL32_OLDPROC[
CTL32_CONTROLHWND
LNEXSTYLE
LLTHEMES
UISXP
ISTHEMEACTIVE
THEMES
THISFORM
GETWINDOWLONG
SETWINDOWLONG
SETWINDOWPOS
m.vNewValb
m.vNewValb
Parameter must be Logical: Ct
VNEWVAL
LNEXSTYLE
RIGHTTOLEFT
CTL32_SETRIGHTTOLEFT
RIGHTTOLEFT
LNEXSTYLE
GETWINDOWLONG
CTL32_CONTROLHWND
SETWINDOWLONG
MARQUEEANIMATIONSPEED.
VNEWVAL
MARQUEESPEED
MARQUEEANIMATIONSPEED
CTL32_DESTROY
ThisFormb
USAGE: _Screen.Newobject("oProgressBar","ctl32_progressbar","ctl32_progressbar.vcx")
TNPARENTHWND
LBLCONTROLNAMEH
CAPTION
LBLCONTROLNAMEV
BACKSTYLE
CTL32_DECLAREDLLS
CTL32_OLDPROC
GETWINDOWLONG
CTL32_FORMTYPE
THISFORM
SHOWWINDOW
CTL32_HOSTHWND
CTL32_DESTROY
GETWINDOW
PARENT
BASECLASS
SIZEADJUST
ORIENTATION
VERTICAL
HEIGHT
WIDTH
CTL32_CREATE
ctl32_resize,
step_assignO
minimum_assign0
maximum_assignl
marquee_assign
visible_assign
ctl32_create
ctl32_destroy
ctl32_declaredlls
ctl32_bindeventsf
ctl32_unbindevents
marqueeanimationspeed_assign
stepit
hwnd_access
value_access
value_assign
percent_access0
smooth_assign
backcolor_assign
barcolor_assign`
play_assign
scrolling_assign/"
percent_assign    #
max_assign$#
min_assign
hwnd_assignf$
reset
orientation_assign
vertical_assign
bordercolor_assign
repeat_assign
width_assignf(
height_assign))
uisxp
themes_assignA*
flat_assignA+
border_assign
ctl32_settheme
ctl32_setborderH-
ctl32_createcaption
uformatasbytes
ustrtolong
ctl32_wm_paint
ctl32_setflat
righttoleft_assignt7
ctl32_setrighttoleft
marqueespeed_access
marqueespeed_assign
DestroyE:
Initn:
PROCEDURE ctl32_resize
*!* If we are in the Control Init Stage, or
*!* we do not have a handle to the Control yet, just return:
If This.ctl32_Creating = TRUE Or This.ctl32_ControlHwnd = 0 Then
  Return
Endif
*!* Else, resize the Control Window to its container size:
With This
    .ctl32_Left = .Left
    .ctl32_Top = .Top
    .ctl32_Width = .Width
    .ctl32_Height = .Height
  SetWindowPos(.ctl32_ControlHwnd, 0,;
    .ctl32_Left, ;
    .ctl32_Top, ;
    .ctl32_Width, ;
    .ctl32_Height, ;
    SWP_NOZORDER)
Endwith
ENDPROC
PROCEDURE step_assign
Lparameters vNewVal
If Type("m.vNewVal") <> [N]
    Messagebox([Parameter must be Numeric: ] + Program(), 16)
    Return
Endif
This.Step = m.vNewVal
If This.ctl32_ControlHwnd = 0 Then
    Return
Endif
*!* Set Step Value
SendMessageN(This.ctl32_ControlHwnd, PBM_SETSTEP , This.Step, 0)
ENDPROC
PROCEDURE minimum_assign
Lparameters vNewVal
If Type("m.vNewVal") <> [N]
  Messagebox([Parameter must be Numeric: ] + Program(), 16)
  Return
Endif
This.Minimum = m.vNewVal
This.Min = m.vNewVal
*!* If actual Value is less than new Minimum, set value to new Minimum
If This.Value < This.Minimum Then
  This.Value =  This.Minimum
Endif
If This.ctl32_ControlHwnd = 0 Then
    Return
Endif
*!* Set Minimum and Maximum values:
SendMessageN(This.ctl32_ControlHwnd, PBM_SETRANGE32, This.Minimum, This.maximum)
ENDPROC
PROCEDURE maximum_assign
Lparameters vNewVal
If Type("m.vNewVal") <> [N]
  Messagebox([Parameter must be Numeric: ] + Program(), 16)
  Return
Endif
This.Maximum = m.vNewVal
This.Max = m.vNewVal
*!* If actual Value is greater than new Maximum, set value to new Maximum
If This.Value > This.Maximum Then
  This.Value =  This.Maximum
Endif
If This.ctl32_ControlHwnd = 0 Then
    Return
ENDIF
*!* Set Minimum and Maximum values:
SendMessageN(This.ctl32_ControlHwnd, PBM_SETRANGE32, This.Minimum, This.Maximum)
ENDPROC
PROCEDURE marquee_assign
Lparameters vNewVal
If Type("m.vNewVal") = [N] Then
  If m.vNewVal = 0 Then
    m.vNewVal = FALSE
  Else
    m.vNewVal = TRUE
  Endif
ENDIF
If Type("m.vNewVal") <> [L] Then
  Messagebox([Parameter must be Logical: ] + Program(), 16)
  Return
Endif
This.Marquee = m.vNewVal
If This.Marquee = TRUE Then
  This.Play = FALSE
Endif
*!* Marquee change needs to recreate Control
If This.ctl32_ControlHwnd <> 0 Then
  This.ctl32_Destroy()
  This.ctl32_Create()
Endif
ENDPROC
PROCEDURE visible_assign
Lparameters vNewVal
If Type("m.vNewVal") = [N] Then
  If m.vNewVal = 0 Then
    m.vNewVal = FALSE
  Else
    m.vNewVal = TRUE
  Endif
ENDIF
If Type("m.vNewVal") <> [L] Then
  Messagebox([Parameter must be Logical: ] + Program(), 16)
  Return
Endif
This.Visible = m.vNewVal
If This.ctl32_ControlHwnd = 0 Then
  Return
ENDIF
If This.Visible  = TRUE Then
  _ShowWindow(This.ctl32_ProxyHwnd, SW_SHOWNA)
  _ShowWindow(This.ctl32_ControlHwnd, SW_SHOWNA)
  _ShowWindow(This.ctl32_ProxyHwnd, SW_HIDE)
  _ShowWindow(This.ctl32_ControlHwnd, SW_HIDE)
Endif
ENDPROC
PROCEDURE ctl32_create
With This
    If .ctl32_Creating Then
        Return
    Endif
    .ctl32_Creating = TRUE
    *!* Define parameters for progressbar CreateWindowEx:
    .ctl32_dwExStyle = 0
    .ctl32_lpClassName = [msctls_progress32]
    .ctl32_lpWindowName = .ctl32_lpClassName + Sys(2015)
    .ctl32_dwStyle = Bitor(WS_CHILD, WS_CLIPSIBLINGS)
    .ctl32_hWndParent = .ctl32_HostHwnd
    .ctl32_Left =  .Left
    .ctl32_Top = .Top
    .ctl32_Width = .Width
    .ctl32_Height = .Height
    *!* Setup Control specific Styles that have to be set at window creation:
    *!* Marquee
    If .Marquee = TRUE Then
        .ctl32_dwStyle = Bitor(.ctl32_dwStyle, PBS_MARQUEE)
    Endif
    *!* Smooth
    If .Smooth = TRUE
        .ctl32_dwStyle = Bitor(.ctl32_dwStyle, PBS_SMOOTH)
    Endif
    *!* Orientation
    If .Vertical = TRUE Or .Orientation <> 0 Then
        .ctl32_dwStyle = Bitor(.ctl32_dwStyle, PBS_VERTICAL)
    Endif
    .ctl32_hMenu = 0
    .ctl32_hInstance = GetWindowLong(.ctl32_HostHwnd, GWL_HINSTANCE)
    .ctl32_lpParam = 0
    .ctl32_ControlHwnd = CreateWindowEx( ;
        .ctl32_dwExStyle, ;
        .ctl32_lpClassName, ;
        .ctl32_lpWindowName, ;
        .ctl32_dwStyle, ;
        .ctl32_Left, ;
        .ctl32_Top, ;
        .ctl32_Width, ;
        .ctl32_Height, ;
        .ctl32_hWndParent,  ;
        .ctl32_hMenu, ;
        .ctl32_hInstance, ;
        .ctl32_lpParam)
    *!* If the handle to the Control is 0 then we have a problem!
    If .ctl32_ControlHwnd = 0
        Messagebox([Error Creating window ] + .ctl32_lpClassName + [ Host:] + Transform(.ctl32_HostHwnd), 0 + 16, .ctl32_Name)
    Endif
    .ctl32_BindEvents()
    *!* Send Theme message to control:
    .ctl32_SetTheme()
    *!* Set Control Minimum and Maximum values:
    .Min = .Minimum
    .Max = .Maximum
    *!* Set Control Step Value
    .Step = .Step
    *!* Set Control Value to the Container Value property
    .Value = .Value
    *!* .ctl32_SetFlat() Already called by ctl32_SetTheme()
    .ctl32_SetBorder()
    *!* Set MarqueeAnimationSpeed Value
    .MarqueeAnimationSpeed = .MarqueeAnimationSpeed
    *!* Set Play state
    .Play = .Play
    *!* Set Colors
    .BackColor = .BackColor
    .BarColor = .BarColor
    *!* Set Visible state
    .Visible = .Visible
    *!* We finish Initialization State
    .ctl32_Creating = FALSE
Endwith
ENDPROC
PROCEDURE ctl32_destroy
*!*    Destroy Windows
If This.ctl32_ControlHwnd > 0 Then
    DestroyWindow(This.ctl32_ControlHwnd)
Endif
If This.ctl32_ProxyHwnd > 0 Then
    DestroyWindow(This.ctl32_ProxyHwnd)
Endif
ENDPROC
PROCEDURE ctl32_declaredlls
*!* 20060516 Commented out all unused API declarations
Local Array laDeclaredDlls(1,3)
Local lnLen
m.lnLen = Adlls(m.laDeclaredDlls)
If Ascan(m.laDeclaredDlls, "CallWindowProc", 1, m.lnLen , 2, 15) = 0
    Declare Integer CallWindowProc In win32api As CallWindowProc;
        INTEGER lpPrevWndFunc,;
        INTEGER HWnd,;
        INTEGER msg,;
        INTEGER wParam,;
        INTEGER Lparam
Endif
*!*    If Ascan(m.laDeclaredDlls, "ChildWindowFromPoint", 1, m.lnLen , 2, 15) = 0
*!*        Declare Integer ChildWindowFromPoint In win32api ;
*!*            INTEGER hWndParent,;
*!*            INTEGER px,;
*!*            INTEGER py
*!*    Endif
If Ascan(m.laDeclaredDlls, "CreateWindowEx", 1, m.lnLen , 2, 15) = 0
    Declare Integer CreateWindowEx In win32api As CreateWindowEx;
        INTEGER dwExStyle,;
        STRING lpClassName,;
        STRING lpWindowName,;
        INTEGER dwStyle,;
        INTEGER x,;
        INTEGER Y,;
        INTEGER nWidth,;
        INTEGER nHeight,;
        INTEGER hWndParent,;
        INTEGER hMenu,;
        INTEGER hInstance,;
        INTEGER lpParam
Endif
If Ascan(m.laDeclaredDlls, "DestroyWindow", 1, m.lnLen , 2, 15) = 0
    Declare Integer DestroyWindow In win32api As DestroyWindow;
        INTEGER HWnd
Endif
If Ascan(m.laDeclaredDlls, "GetClientRect", 1, m.lnLen , 2, 15) = 0
    Declare Integer GetClientRect In win32api As GetClientRect;
        INTEGER HWnd,;
        STRING @ lpRect
Endif
*!*    If Ascan(m.laDeclaredDlls, "GetSysColor", 1, m.lnLen , 2, 15) = 0
*!*        Declare Integer GetSysColor In win32api ;
*!*            INTEGER nIndex
*!*    Endif
If Ascan(m.laDeclaredDlls, "GetWindow", 1, m.lnLen , 2, 15) = 0
    Declare Integer GetWindow In user32 As GetWindow;
        INTEGER HWnd,;
        INTEGER wCmd
Endif
If Ascan(m.laDeclaredDlls, "GetWindowLong", 1, m.lnLen , 2, 15) = 0
    Declare Integer GetWindowLong In win32api As GetWindowLong;
        INTEGER HWnd, ;
        INTEGER nIndex
Endif
If Not Val(Os(3)) + Val(Os(4))/100 < 5.01 Then
    If Ascan(m.laDeclaredDlls, "IsThemeActive", 1, m.lnLen , 2, 15) = 0
        Declare Integer IsThemeActive In uxtheme.Dll As IsThemeActive
    Endif
Endif
*!*    If Ascan(m.laDeclaredDlls, "PostMessage", 1, m.lnLen , 2, 15) = 0
*!*        Declare Integer PostMessage In win32api ;
*!*            INTEGER HWnd,;
*!*            INTEGER Msg,;
*!*            INTEGER wParam,;
*!*            INTEGER Lparam
*!*    Endif
*!*    If Ascan(m.laDeclaredDlls, "RedrawWindow", 1, m.lnLen , 2, 15) = 0
*!*        Declare Integer RedrawWindow In win32api ;
*!*            INTEGER HWnd,;
*!*            STRING @ lprcUpdate,;
*!*            INTEGER hrgnUpdate,;
*!*            INTEGER fuRedraw
*!*    Endif
If Ascan(m.laDeclaredDlls, [SendMessageC], 1, m.lnLen , 2, 15) = 0
    Declare Integer SendMessage In win32api As SendMessageC ;
        INTEGER HWnd,;
        INTEGER Msg,;
        INTEGER wParam,;
        STRING @ Lparam
ENDIF
If Ascan(m.laDeclaredDlls, "SendMessageN", 1, m.lnLen , 2, 15) = 0
    Declare Integer SendMessage In win32api As SendMessageN;
        INTEGER HWnd,;
        INTEGER Msg,;
        INTEGER wParam,;
        INTEGER Lparam
Endif
If Ascan(m.laDeclaredDlls, "SetWindowLong", 1, m.lnLen , 2, 15) = 0
    Declare Integer SetWindowLong In win32api As SetWindowLong;
        INTEGER HWnd,;
        INTEGER nIndex,;
        INTEGER dwNewLong
Endif
If Ascan(m.laDeclaredDlls, "SetWindowPos", 1, m.lnLen , 2, 15) = 0
    Declare Integer SetWindowPos In win32api As SetWindowPos;
        INTEGER HWnd,;
        INTEGER hWndInsertAfter,;
        INTEGER x,;
        INTEGER Y,;
        INTEGER cx,;
        INTEGER cy,;
        INTEGER wFlags
Endif
If Val(Os(3)) + Val(Os(4))/100 >= 5.01 Then
    If Ascan(m.laDeclaredDlls, "SetWindowTheme", 1, m.lnLen , 2, 15) = 0
        Declare Integer SetWindowTheme In UxTheme As SetWindowTheme;
            INTEGER HWnd,;
            STRING pszSubAppName,;
            STRING pszSubIdList
    Endif
Endif
*#beautify keyword_nochange
If Ascan(m.laDeclaredDlls, "ShowWindow", 1, m.lnLen , 2, 15) = 0
    Declare Integer ShowWindow In win32api As ShowWindow ;
        INTEGER Hwnd,;
        INTEGER nCmdShow
ENDIF
If Ascan(m.laDeclaredDlls, "_ShowWindow", 1, m.lnLen , 2, 15) = 0
    Declare Integer ShowWindow In win32api As _ShowWindow ;
        INTEGER Hwnd,;
        INTEGER nCmdShow
ENDIF
*#beautify
If Ascan(m.laDeclaredDlls, "StrFormatByteSize", 1, m.lnLen , 2, 15) = 0
    Declare Integer StrFormatByteSize In shlwapi As StrFormatByteSize ;
        INTEGER qdw,;
        STRING @ pszBuf,;
        INTEGER uiBufSize
Endif
ENDPROC
PROCEDURE ctl32_bindevents
Bindevent(This, [Resize], This, [ctl32_Resize], 1)
Bindevent(This, [Top],    This, [ctl32_Resize], 1)
Bindevent(This, [Left],   This, [ctl32_Resize], 1)
Bindevent(This, [Value],  This, [ctl32_CreateCaption], 1)
*!*    ?This.ctl32_Hosthwnd, This.ctl32_Controlhwnd
*!* Bindevent(This.ctl32_Controlhwnd  , WM_PAINT, This, [ctl32_WM_Paint], 1)
ENDPROC
PROCEDURE ctl32_unbindevents
If This.ctl32_ControlHwnd = 0 Then
  Return
Endif
Unbindevent(This, [RESIZE], This, [CTL32_RESIZE])
Unbindevent(This, [TOP], This, [CTL32_RESIZE])
Unbindevent(This, [LEFT], This, [CTL32_RESIZE])
ENDPROC
PROCEDURE marqueeanimationspeed_assign
Lparameters vNewVal
If Type("m.vNewVal") <> [N]
  Messagebox([Parameter must be Numeric: ] + Program(), 16)
  Return
Endif
This.MarqueeAnimationSpeed = m.vNewVal
If This.ctl32_ControlHwnd = 0 Then
    Return
ENDIF
SendMessageN(This.ctl32_ControlHwnd, PBM_SETMARQUEE, 1, This.MarqueeAnimationSpeed)
ENDPROC
PROCEDURE stepit
Lparameters lnVal
Local lnOldStep
*!* If no numeric parameter, use actual step value:
If Type("m.lnVal") <> "N"
    m.lnVal = This.Step
Endif
If This.Repeat = FALSE And This.Value + m.lnVal > This.Maximum Then
    This.Value = This.Maximum
    Return
Endif
If This.Repeat = FALSE And This.Value + m.lnVal < This.Minimum Then
    This.Value = This.Minimum
    Return
Endif
*!* If parameter is different from actual step value:
If m.lnVal <> This.Step Then
    This.ctl32_OldStep = This.Step
    This.Step = m.lnVal
    This.ctl32_OldStep = 0
Endif
If This.ctl32_ControlHwnd <> 0 Then
    *!* Send StepIt message:
    This.Value = This.Value + This.Step
    *SendMessageN(This.ctl32_ControlHwnd, PBM_STEPIT, 0, 0)
Endif
*!* Reset Step Value if old value saved:
If This.ctl32_OldStep <> 0 Then
    This.Step = This.ctl32_OldStep
Endif
*!* Update Container Value Property with the position property of Control,
*!* forcing Access and Assign Events to fire:
*!* This.Value = This.Value
ENDPROC
PROCEDURE hwnd_access
*!* Returns the HWnd of the Control
RETURN This.ctl32_ControlHwnd
ENDPROC
PROCEDURE value_access
Local nValue
*!* If setting up Control, use Value of Container, not Value of Control
If This.ctl32_Creating = TRUE OR This.ctl32_ControlHWnd = 0 Then
  m.nValue = This.Value
  *!* Ask Control for Value to return:
  m.nValue = SendMessageN(This.ctl32_ControlHwnd, PBM_GETPOS, 0, 0)
Endif
Return m.nValue
ENDPROC
PROCEDURE value_assign
Lparameters vNewVal
If Type("m.vNewVal") <> [N]
  Messagebox([Parameter must be Numeric: ] + Program(), 16)
  Return
Endif
If This.Repeat = FALSE
  If m.vNewVal > This.Maximum Then
    Return
  Endif
  If m.vNewVal < This.Minimum Then
    Return
  Endif
  If m.vNewVal > This.Maximum Then
    m.vNewVal = This.Minimum
  Endif
  If m.vNewVal < This.Minimum Then
    m.vNewVal = This.Maximum
  Endif
Endif
This.Value = m.vNewVal
If This.ctl32_ControlHWnd <> 0 Then
  SendMessageN(This.ctl32_ControlHwnd, PBM_SETPOS, m.vNewVal, 0)
Endif
ENDPROC
PROCEDURE percent_access
Return Int(100 * (This.Value - This.Minimum) / (Abs(This.Maximum - This.Minimum)))
ENDPROC
PROCEDURE smooth_assign
Lparameters vNewVal
If Type("m.vNewVal") = [N] Then
    If m.vNewVal = 0 Then
        m.vNewVal = FALSE
    Else
        m.vNewVal = TRUE
    Endif
Endif
If Type("m.vNewVal") <> [L] Then
    Messagebox([Parameter must be Logical: ] + Program(), 16)
    Return
Endif
If This.Smooth = m.vNewVal Then
    Return
Endif
This.Smooth = m.vNewVal
*!* Smooth change needs to recreate Control
If This.ctl32_ControlHwnd <> 0 Then
    This.ctl32_destroy()
    This.ctl32_Create()
Endif
ENDPROC
PROCEDURE backcolor_assign
Lparameters vNewVal
If Type("m.vNewVal") <> [N]
    Messagebox([Parameter for BackColor must be Numeric])
Endif
If m.vNewVal > 16777215 Then
    m.vNewVal = -1
Endif
This.ctl32_BackColor = m.vNewVal
This.BackColor= m.vNewVal
If This.ctl32_ControlHwnd = 0 Then
    Return
Endif
If This.ctl32_BackColor = -1 Then
    SendMessageN(This.ctl32_ControlHwnd, PBM_SETBKCOLOR, 0, CLR_DEFAULT)
    SendMessageN(This.ctl32_ControlHwnd, PBM_SETBKCOLOR, 0, This.BackColor)
Endif
Return
ENDPROC
PROCEDURE barcolor_assign
Lparameters vNewVal
If Type("m.vNewVal") <> [N]
    Messagebox([Parameter for BarColor must be Numeric])
Endif
If m.vNewVal > 16777215 Then
    m.vNewVal = -1
Endif
This.BarColor = m.vNewVal
If This.ctl32_ControlHwnd = 0 Then
    Return
Endif
If This.BarColor = -1 Then
    SendMessageN(This.ctl32_ControlHwnd, PBM_SETBARCOLOR, 0, CLR_DEFAULT)
    SendMessageN(This.ctl32_ControlHwnd, PBM_SETBARCOLOR, 0, This.BarColor)
Endif
Return
ENDPROC
PROCEDURE play_assign
Lparameters vNewVal
If Type("m.vNewVal") = [N] Then
  If m.vNewVal = 0 Then
    m.vNewVal = FALSE
  Else
    m.vNewVal = TRUE
  Endif
Endif
If Type("m.vNewVal") <> [L] Then
  Messagebox([Parameter must be Logical: ] + Program(), 16)
  Return
Endif
If m.vNewVal = TRUE And This.Marquee = TRUE Then
  Return
Endif
This.Play = m.vNewVal
If This.Play = TRUE Then
  This.Value = This.Minimum
Endif
This.tmrControlTimer.Enabled = This.Play
ENDPROC
PROCEDURE scrolling_assign
Lparameters vNewVal
If Type("m.vNewVal") <> [N]
  Messagebox([Parameter must be Numeric: ] + Program(), 16)
  Return
Endif
This.Srolling = m.vNewVal
If This.Scrolling = 0 Then
  This.Smooth = FALSE
  This.Smooth = TRUE
Endif
ENDPROC
PROCEDURE percent_assign
Lparameters vNewVal
Return
ENDPROC
PROCEDURE max_assign
Lparameters vNewVal
If Type("m.vNewVal") <> [N]
  Messagebox([Parameter must be Numeric: ] + Program(), 16)
  Return
Endif
This.Max = m.vNewVal
This.Maximum = m.vNewVal
ENDPROC
PROCEDURE min_assign
LPARAMETERS vNewVal
If Type("m.vNewVal") <> [N]
  Messagebox([Parameter must be Numeric: ] + Program(), 16)
  Return
Endif
This.Min = m.vNewVal
This.Minimum = m.vNewVal
ENDPROC
PROCEDURE hwnd_assign
Lparameters vNewVal
Return
ENDPROC
PROCEDURE reset
This.Value = This.Minimum
ENDPROC
PROCEDURE orientation_assign
Lparameters vNewVal
If Type("m.vNewVal") <> [N]
  Messagebox([Parameter must be Numeric: ] + Program(), 16)
  Return
Endif
This.Orientation = m.vNewVal
If This.Orientation = 0 Then
  This.Vertical = FALSE
  This.Vertical = TRUE
Endif
ENDPROC
PROCEDURE vertical_assign
Lparameters vNewVal
If Type("m.vNewVal") = [N] Then
  If m.vNewVal = 0 Then
    m.vNewVal = FALSE
  Else
    m.vNewVal = TRUE
  Endif
ENDIF
If Type("m.vNewVal") <> [L] Then
  Messagebox([Parameter must be Logical: ] + Program(), 16)
  Return
Endif
This.Vertical = m.vNewVal
If This.Vertical = TRUE Then
  This.Orientation = 1
  This.Orientation = 0
Endif
*!* Vertical change needs to recreate Control
If This.ctl32_ControlHwnd <> 0 Then
  This.ctl32_destroy()
  This.ctl32_Create()
Endif
ENDPROC
PROCEDURE bordercolor_assign
LPARAMETERS vNewVal
If m.vNewVal = -1 Then
  m.vNewVal = RGB(0,0,0)
Endif
THIS.BorderColor = m.vNewVal
ENDPROC
PROCEDURE repeat_assign
LPARAMETERS vNewVal
If Type("m.vNewVal") = [N] Then
  If m.vNewVal = 0 Then
    m.vNewVal = FALSE
  Else
    m.vNewVal = TRUE
  Endif
ENDIF
If Type("m.vNewVal") <> [L] Then
  Messagebox([Parameter must be Logical: ] + Program(), 16)
  Return
Endif
THIS.Repeat = m.vNewVal
ENDPROC
PROCEDURE width_assign
Lparameters vNewVal
*To do: Modify this routine for the Assign method
This.Width = m.vNewVal
With This
    If .SizeAdjust = TRUE Then
        If .Orientation = 0 Or .Vertical = FALSE Then
            .Width = Round((.Width - 5)/8,0) * 8 + 5
        Endif
    Endif
Endwith
ENDPROC
PROCEDURE height_assign
Lparameters vNewVal
This.Height = m.vNewVal
With This
    If .SizeAdjust = TRUE Then
        If .Orientation = 1 Or .Vertical = TRUE Then
            .Height = Round((.Height - 8)/8,0) * 8 + 5
        Endif
    Endif
Endwith
ENDPROC
PROCEDURE uisxp
*!*    Check OS Version and return TRUE if XP or greater - 5.01 is Windows XP
LOCAL lcXP
m.lcXP = IIF(Val(Os(3)) + Val(Os(4))/100 < 5.01, FALSE, TRUE)
Return m.lcXP
ENDPROC
PROCEDURE themes_assign
Lparameters vNewVal
If Type("m.vNewVal") = [N] Then
    If m.vNewVal = 0 Then
        m.vNewVal = FALSE
    Else
        m.vNewVal = TRUE
    Endif
Endif
If Type("m.vNewVal") <> [L] Then
    Messagebox([Parameter must be Logical: ] + Program(), 16)
    Return
Endif
This.Themes = m.vNewVal
This.ctl32_SetTheme()
ENDPROC
PROCEDURE flat_assign
Lparameters vNewVal
This.Flat = m.vNewVal
This.ctl32_SetFlat()
ENDPROC
PROCEDURE border_assign
Lparameters vNewVal
This.Border = m.vNewVal
If This.ctl32_Creating = TRUE Then
    Return
Endif
This.ctl32_SetBorder()
ENDPROC
PROCEDURE ctl32_settheme
If This.ctl32_ControlHwnd = 0 Then
    Return
Endif
Local llThemes
m.llThemes = This.uIsXP() And isThemeActive() = 1 And _Screen.Themes And Thisform.Themes  And This.Themes
If This.uIsXP() = TRUE
    If m.llThemes = TRUE Then
        SetWindowTheme(This.ctl32_ControlHwnd, Null, Null)
    Else
        SetWindowTheme(This.ctl32_ControlHwnd, Null, "")
        *This.ctl32_SetBackColor()
    Endif
    This.ctl32_SetFlat()
Endif
ENDPROC
PROCEDURE ctl32_setborder
Local lnExStyle
Local llThemes
m.llThemes = This.uIsXP() And isThemeActive() = 1 And _Screen.Themes And Thisform.Themes  And This.Themes
With This
    If .Border = TRUE And m.llThemes = FALSE Then
        m.lnExStyle = GetWindowLong(.ctl32_ControlHwnd, GWL_STYLE)
        m.lnExStyle = Bitset(m.lnExStyle, WS_BORDER_BIT)
        SetWindowLong(.ctl32_ControlHwnd, GWL_STYLE, m.lnExStyle)
    Else
        m.lnExStyle = GetWindowLong(.ctl32_ControlHwnd, GWL_STYLE)
        m.lnExStyle = BitClear(m.lnExStyle, WS_BORDER_BIT)
        SetWindowLong(.ctl32_ControlHwnd, GWL_STYLE, m.lnExStyle)
    Endif
    *!* Refresh control window so frame change gets redrawn
    SetWindowPos(.ctl32_ControlHwnd, ;
        HWND_TOP, ;
        0, ;
        0, ;
        0, ;
        0, ;
        BITOR(SWP_NOMOVE, SWP_NOSIZE, SWP_NOZORDER, SWP_FRAMECHANGED))
Endwith
ENDPROC
PROCEDURE ctl32_createcaption
*!* Bindevent(This, [Value],  This, [ctl32_CreateCaption], 1)
If Empty(This.Text) Then
    This.Caption = []
    Return
Endif
Local ;
    lcBVal, ;
    lcNVal, ;
    lcPVal, ;
    lcBMax, ;
    lcNMax, ;
    lcPMax, ;
    lcBMin, ;
    lcNMin, ;
    lcPMin, ;
    lcCaption
m.lcNVal = Transform(This.Value,   "999,999,999,999")
m.lcNMax = Transform(This.Maximum, "999,999,999,999")
m.lcNMin = Transform(This.Minimum, "999,999,999,999")
m.lcPVal = Transform(This.Percent, "999%")
m.lcPMax = "100%"
m.lcPMin = "0%"
m.lcBVal = This.uFormatAsBytes(This.Value)
m.lcBMax = This.uFormatAsBytes(This.Maximum)
m.lcBMin = This.uFormatAsBytes(This.Minimum)
m.lcCaption = This.Text
m.lcCaption = Strtran(m.lcCaption , "<<ValueB>>",   Alltrim(m.lcBVal), 1, 10, 1)
m.lcCaption = Strtran(m.lcCaption , "<<ValueN>>",   Alltrim(m.lcNVal), 1, 10, 1)
m.lcCaption = Strtran(m.lcCaption , "<<ValueP>>",   Alltrim(m.lcPVal), 1, 10, 1)
m.lcCaption = Strtran(m.lcCaption , "<<MaximumB>>", Alltrim(m.lcBMax), 1, 10, 1)
m.lcCaption = Strtran(m.lcCaption , "<<MaximumN>>", Alltrim(m.lcNMax), 1, 10, 1)
m.lcCaption = Strtran(m.lcCaption , "<<MaximumP>>", Alltrim(m.lcPMax), 1, 10, 1)
m.lcCaption = Strtran(m.lcCaption , "<<MinimumB>>", Alltrim(m.lcBMin), 1, 10, 1)
m.lcCaption = Strtran(m.lcCaption , "<<MinimumN>>", Alltrim(m.lcNMin), 1, 10, 1)
m.lcCaption = Strtran(m.lcCaption , "<<MinimumP>>", Alltrim(m.lcPMin), 1, 10, 1)
This.Caption = lcCaption
ENDPROC
PROCEDURE uformatasbytes
Lparameters qdw
Local pszBuf
m.pszBuf = Replicate(Chr(0), 254)
StrFormatByteSize(m.qdw, @m.pszBuf, Len(m.pszBuf))
m.pszBuf = Alltrim(m.pszBuf)
* Remove chr(0)
m.pszBuf = Left(m.pszBuf,Len(m.pszBuf)-1)
Return Alltrim(m.pszBuf)
ENDPROC
PROCEDURE ustrtolong
*!*    This function converts a four bytes long String to a Long
Lparameters tcLongStr
Local lnx, lnRetval As Integer
*!* Bug Fixed - Doru Constantin
If Version(5) >= 900 Then
    m.lnRetval = CToBin(m.tcLongStr,[4RS])
    m.lnRetval = 0
    For m.lnx = 0 To 24 Step 8
        m.lnRetval = m.lnRetval + (Asc(m.tcLongStr) * (2^m.lnx))
        m.tcLongStr = Right(m.tcLongStr, Len(m.tcLongStr) - 1)
    Next
Endif
Return m.lnRetval
ENDPROC
PROCEDURE ctl32_wm_paint
Lparameters tnHWnd As Integer, tnMsg As Integer, tnwParam As Integer, tnLparam As Integer
If tnHWnd <> _Screen.HWnd Then
    ?Transform(tnHWnd,"@0")
Endif
With This
    *!*        If tnMsg = WM_PAINT Then
    *!*            .CTL32_DrawBorder()
    *!*        Endif
    *!*    *SetWindowLong(THIS.ctl32_ControlHwnd, GWL_WNDPROC, This.ctl32_pbProc)
    m.lnResult  = CallWindowProc(This.ctl32_OldProc, tnHWnd, tnMsg, tnwParam, tnLparam)
    *!*    *SetWindowLong(THIS.ctl32_ControlHwnd, GWL_WNDPROC, This.ctl32_OldProc)
    *!*    *This.ctl32_pbProc = SetWindowLong(THIS.ctl32_ControlHwnd, GWL_WNDPROC, This.ctl32_OldProc)
Endwith
Return m.lnResult
ENDPROC
PROCEDURE ctl32_setflat
If This.ctl32_ControlHwnd = 0 Then
    Return
Endif
Local lnExStyle
Local llThemes
m.llThemes = This.uIsXP() And isThemeActive() = 1 And _Screen.Themes And Thisform.Themes  And This.Themes
With This
    If .Flat = TRUE Or m.llThemes = TRUE Then
        m.lnExStyle = GetWindowLong(.ctl32_ControlHwnd, GWL_EXSTYLE)
        m.lnExStyle = Bitclear(m.lnExStyle, WS_EX_STATICEDGE_BIT) && WS_EX_STATICEDGE
        SetWindowLong(.ctl32_ControlHwnd, GWL_EXSTYLE, m.lnExStyle)
    Else
        m.lnExStyle = GetWindowLong(.ctl32_ControlHwnd, GWL_EXSTYLE)
        m.lnExStyle = Bitset(m.lnExStyle, WS_EX_STATICEDGE_BIT)      && WS_EX_STATICEDGE
        SetWindowLong(.ctl32_ControlHwnd, GWL_EXSTYLE, m.lnExStyle)
    Endif
    *!* Refresh control window so frame change gets redrawn
    SetWindowPos(.ctl32_ControlHwnd, ;
        HWND_TOP, ;
        0, ;
        0, ;
        0, ;
        0, ;
        BITOR(SWP_NOMOVE, SWP_NOSIZE, SWP_NOZORDER, SWP_FRAMECHANGED))
Endwith
ENDPROC
PROCEDURE righttoleft_assign
Lparameters vNewVal
Local lnExStyle
If Type("m.vNewVal") = [N] Then
    If m.vNewVal = 0 Then
        m.vNewVal = FALSE
    Else
        m.vNewVal = TRUE
    Endif
Endif
If Type("m.vNewVal") <> [L] Then
    Messagebox([Parameter must be Logical: ] + Program(), 16)
    Return
Endif
This.RightToLeft = m.vNewVal
This.ctl32_SetRightToLeft()
This.ctl32_SetRightToLeft()
ENDPROC
PROCEDURE ctl32_setrighttoleft
With This
    If .RightToLeft = FALSE Then
        m.lnExStyle = GetWindowLong(.ctl32_ControlHwnd, GWL_EXSTYLE)
        m.lnExStyle = Bitclear(m.lnExStyle, WS_EX_LAYOUTRTL_BIT) && WS_EX_LAYOUTRTL
        SetWindowLong(.ctl32_ControlHwnd, GWL_EXSTYLE, m.lnExStyle)
    Else
        m.lnExStyle = GetWindowLong(.ctl32_ControlHwnd, GWL_EXSTYLE)
        m.lnExStyle = Bitset(m.lnExStyle, WS_EX_LAYOUTRTL_BIT) && WS_EX_LAYOUTRTL
        SetWindowLong(.ctl32_ControlHwnd, GWL_EXSTYLE, m.lnExStyle)
    Endif
Endwith
ENDPROC
PROCEDURE marqueespeed_access
Return This.MarqueeAnimationSpeed
ENDPROC
PROCEDURE marqueespeed_assign
LPARAMETERS vNewVal
THIS.marqueespeed = m.vNewVal
This.MarqueeAnimationSpeed = m.vNewVal
ENDPROC
PROCEDURE Destroy
This.Ctl32_Destroy()
ENDPROC
PROCEDURE Init
*!*    Ctl32_ProgressBar
*!*    Control creado por Carlos Alloatti - [e-mail]
*!*    Utiliza funciones API de Windows
*!*    Probado con Windows XP, 98 y VFP 9
*!*    Versi
n  1.00 - 2005-12-01
*!*    Versi
n  2.00 - 2006-04-01
*!*    Versi
n  3.00 - 2006-05-01
*!* This parameter is passed from host ctl32 control
Lparameters tnParentHwnd
This.lblControlNameH.Caption = ""
This.lblControlNameV.Caption = ""
This.BackStyle = 0
With This
    *!* Check if object instantiated with a -1 parameter, that means no Init yet
    If Pcount() > 0 And m.tnParentHwnd = -1 Then
        Return
    Endif
    If Type([ThisForm]) <> [O] Then
        Messagebox([USAGE: _Screen.Newobject("oProgressBar","ctl32_progressbar","ctl32_progressbar.vcx")],16)
        Return
    Endif
    .ctl32_declaredlls()
    *!* Save VFP Proc
    .ctl32_OldProc = GetWindowLong(_vfp.HWnd, GWL_WNDPROC)
    *!* Determine the type of container the StaturBar is in:
    *!*    CTL32_FORMTYPE_DEFAULT              0
    *!*    CTL32_FORMTYPE_TOPLEVEL      1
    *!*    CTL32_FORMTYPE_SCREEN            2
    .ctl32_FormType = CTL32_FORMTYPE_DEFAULT
    *!*    If container is a TLF, must have ShowWindow = 2
    If Thisform.ShowWindow = SHOWWINDOW_ASTOPLEVELFORM Then
        This.ctl32_FormType = CTL32_FORMTYPE_TOPLEVEL
    Endif
    *!*    If ThisForm.Name equals the _Screen.Name, then container is _Screen
    If Thisform.Name = _Screen.Name Then
        This.ctl32_FormType = CTL32_FORMTYPE_SCREEN
    Endif
    If Pcount() > 0 Then
        .ctl32_HostHwnd = m.tnParentHwnd
        *!*    Just in case its geting recreated by a parent ctl32_statusbar
        This.ctl32_Destroy()
    Else
        If .ctl32_FormType = CTL32_FORMTYPE_TOPLEVEL Then    && TLF
            *!* Get Hwnd of client window of Top Level Form //Craig Boyd//
            If Version(5) >= 900 Then
                .ctl32_HostHwnd = Sys(2327, Sys(2325, Sys(2326, Thisform.HWnd)))
            Else
                .ctl32_HostHwnd = GetWindow(Thisform.HWnd, GW_CHILD)
            Endif
        Else
            .ctl32_HostHwnd = Thisform.HWnd
        Endif
    Endif
    If .Parent.BaseClass <> "Form" And .ctl32_HostHwnd = 0 Then
        Return
    Endif
    If .SizeAdjust = TRUE Then
        If .Orientation = 1 Or .Vertical = TRUE Then
            .Height = Round((.Height - 8)/8,0) * 8 + 5
        Else
            .Width = Round((.Width - 5)/8,0) * 8 + 5
        Endif
    Endif
    .ctl32_Create()
Endwith
ENDPROC
GWidth = 301
Height = 18
ForeColor = 0,0,0
ctl32_controlhwnd = 0
ctl32_dwexstyle = 0
ctl32_dwstyle = 0
ctl32_hosthwnd = 0
ctl32_hinstance = 0
minimum = 0
maximum = 100
step = 1
ctl32_name = ctl32_progressbar
marqueeanimationspeed = 100
hwnd = 0
value = 0
percent = 0
parenthwnd = 0
ctl32_hmenu = 0
ctl32_lpparam = 0
ctl32_lpwindowname = 0
barcolor = -1
max = 0
min = 0
scrolling = 0
orientation = 0
ctl32_oldstep = 0
themes = .T.
ctl32_version = 3.0
ctl32_proxyhwnd = 0
flat = .F.
ctl32_left = 0
ctl32_top = 0
ctl32_width = 0
ctl32_height = 0
builderx = (home() + "wizards\ctl32_progressbar_builder.app")
ctl32_backcolor = 0
border = .F.
ctl32_formtype = 0
ctl32_hwndparent = 0
text =
caption =
ctl32_oldproc =
ctl32_pbproc =
righttoleft = .F.
marqueespeed = 100
Name = "ctl32_progressbar"
control
This.LabelStyleb
LabelStyle Property must be Character: Ct
.Value
999,999,999,999_
.Maximum
999,999,999,999_
.Minimum
999,999,999,999_
.Percent
999%_
.Value
.Maximum
.Minimum
.Value
999,999,999,999_
.Maximum
999,999,999,999_
.Minimum
999,999,999,999_
<<Value>>C
<<Maximum>>C
<<Minimum>>C
BUDDYCONTROL
LCVALUE
LCMAXIMUM
LCCAPTION
LABELSTYLE
LCMINIMUM
UFORMATASBYTES
LABELCAPTION
CAPTION
REFRESH
StrFormatByteSize
StrFormatByteSize
shlwapiQ
StrFormatByteSize
LADECLAREDDLLS
LNLEN
STRFORMATBYTESIZE
SHLWAPI}
PSZBUF
STRFORMATBYTESIZE1
CAPTION
CTL32_DECLARES
CTL32_BIND
CTL32_UPDATE
ThisForm.
VALUE
CTL32_UPDATE
BUDDYCONTROLE
VALUE
CTL32_UPDATE
BUDDYCONTROL
CTL32_INIT
CTL32_UNBIND
ctl32_update,
ctl32_declares
uformatasbytes
ctl32_init
ctl32_bind
ctl32_unbind
Init
Destroy,
TALKv
ClsCPZero
SET TALK &mtalk
FNAME
CPBYTE
MTALK
SET_CPW
error_array[C
The table could not be opened.
Invalid code page specified.
Not a FoxPro table.
cpnums[C
ADDPROPERTY
ERROR_ARRAY
CPNUMS
DBF|SCX|VCX|FRX|LBX|MNX
Table:
FNAME
CPBYTE
FP_IN
FOUND_ONE
OUTBYTE
CPNUMS
ERRORMSG
ERROR_ARRAY
INIT0
SET_CP
DESTROY
errormsg
MOLDTALK
ClsCPZero
session
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _1DH1108MW1027325085Z
 COMMENT RESERVED
 WINDOWS _17X12M0M51027478705F
 WINDOWS _17X136SEA1027478705`
 WINDOWS _17X136SEQ 879329379
 WINDOWS _17X136SER1027478705U
 WINDOWS _17X136SES1027344043
 WINDOWS _17X136SET1027344043"
 COMMENT RESERVED
 WINDOWS _11R0TYA321027478809
 COMMENT RESERVED
 WINDOWS _1DH112XF91061424829H
 COMMENT RESERVED
VERSION =   3.00
pr_proofshape
Pixels
Class
shape
pr_proofshape
<pageno Provides the current page number for report output.
shape
pr_proofsheet
;Height = 110
Width = 85
pageno = 0
Name = "proofshape"
Pixels
Class
pr_foxyhelper.vcx
"Tahoma, 0, 8, 5, 13, 11, 23, 2, 0
pr_baseform
frxpreview.h
Pixels
Class
pr_baseform
iscreendpi
*checkforlargefonts Called in the Init() to set font attributes if Large Fonts are detected.
Height = 238
Width = 367
DoCreate = .T.
AutoCenter = .T.
Caption = "Form"
FontName = "Tahoma"
FontSize = 8
Icon =
screendpi = 96
Name = "pr_baseform"
!Arial, 0, 9, 5, 15, 12, 32, 3, 0
shape
shape
pr_gotopageform
spinner
CTahoma, 0, 8, 5, 13, 11, 23, 2, 0
Arial, 0, 9, 5, 15, 12, 32, 3, 0
pr_gotopageform
frxpreview.h
Pixels
Class
pr_baseform
pr_gotopageform
.PROCEDURE Click
THIS.Parent.Hide()
ENDPROC
pr_gotopageform
    cmdCancel
fHeight = 21
InputMask = "9999"
Left = 64
Top = 36
Width = 126
ZOrderSet = 1
Name = "spnPageno"
commandbutton
gTop = 15
Left = 12
Height = 66
Width = 224
BackStyle = 0
ZOrderSet = 0
Style = 3
Name = "Shp1"
lblCaption
pr_gotopageform
commandbutton
|pageno Provides the current page number for report output.
pagetotal Provides a PageTotal for report output.
oparentform
spinner
tTop = 47
Left = 248
Height = 27
Width = 84
Cancel = .T.
Caption = "Cancel"
ZOrderSet = 4
Name = "cmdCancel"
commandbutton
commandbutton
pr_gotopageform
cmdOK
label
pr_proofsheet
mTop = 15
Left = 248
Height = 27
Width = 84
Caption = "OK"
Default = .T.
ZOrderSet = 3
Name = "cmdOK"
    spnPageno
]Caption = " Go to page "
Left = 20
Top = 8
ZOrderSet = 2
Style = 3
Name = "lblCaption"
pr_gotopageform
PARENT
Click,
label
5currentpage
reportlistener
*execute
*setreport
`PROCEDURE Click
THIS.Parent.pageNo = THIS.Parent.spnPageNo.Value
THIS.Parent.Hide()
ENDPROC
bPROCEDURE Click
THISFORM.CurrentPage = THIS.PageNo
THISFORM.Hide()
activate screen
ENDPROC
frxpreview.h
foxpro_reporting.h
frxpreview_loc.h
PROCEDURE LostFocus
if THIS.Value < THIS.SpinnerLowValue
    THIS.Value = 1
endif
if THIS.Value > THIS.SpinnerHighValue
    THIS.Value = THIS.SpinnerHighValue
endif
dodefault()
ENDPROC
PARENT
PAGENO
SPNPAGENO
VALUE
Click,
Top = 14
Left = 12
Height = 92
Width = 345
ShowWindow = 1
DoCreate = .T.
AutoCenter = .F.
BorderStyle = 2
Closable = .F.
MaxButton = .F.
MinButton = .F.
AlwaysOnTop = .T.
AllowOutput = .F.
pageno = 0
pagetotal = 0
oparentform = (.NULL.)
Name = "pr_gotopageform"
PROCEDURE Show
LPARAMETERS nStyle
*-----------------------------------------
* Fix for SP1: Handle positioning in top-level form
* See frxPreviewForm::ActionGoToPage()
* Addresses bug# 474691
*-----------------------------------------
THIS.pageNo    = THIS.oParentForm.currentPage
THIS.pageTotal = THIS.oParentForm.pageTotal
THIS.Caption   = DEFAULT_MBOX_TITLE_LOC
THIS.lblCaption.Caption = REPORT_PREVIEW_GOTO_PAGE_LOC + " " + "(1-" + transform(THIS.pageTotal) + ")"
if THIS.oParentForm.ShowWindow = 2 && as top-level form
    *-----------------------------------
    * If parent preview window is a top-level form,
    * center the child window in the view port:
    *-----------------------------------
    THIS.AutoCenter = .F.
    THIS.Left = THIS.oParentForm.ViewPortLeft + int(THIS.oParentForm.Width/2  - THIS.Width/2)
    THIS.Top  = THIS.oParentForm.ViewPortTop  + int(THIS.oParentForm.Height/2 - THIS.Height/2)
    THIS.AutoCenter = .T.
endif
*--------------
THIS.spnPageNo.SpinnerLowValue = 1
THIS.spnPageNo.SpinnerHighValue = THIS.pageTotal
*THIS.spnPageNo.KeyboardLowValue = 1
*THIS.spnPageNo.KeyboardHighValue = THIS.pageTotal
THIS.spnPageNo.Value = THIS.pageNo
dodefault(m.nStyle)
ENDPROC
Height = 274
Width = 622
DoCreate = .T.
AutoCenter = .T.
Caption = "Report Proof Sheet"
currentpage = 0
reportlistener = .NULL.
Name = "pr_proofsheet"
VALUE
SPINNERLOWVALUE
SPINNERHIGHVALUE
LostFocus,
THISFORM
CURRENTPAGE
PAGENO
Click,
frxpreview.h
foxpro_reporting.h
frxpreview_loc.h
MPROCEDURE checkforlargefonts
*====================================================================
* CheckForLargeFonts()
* This is invoked from the .Init() to set all contained objects to
* use the "large font"-safe font, "MS Shell Dlg" which maps to the
* appropriate font in Windows.
*====================================================================
*----------------------------------------------------------------
* Initial, default font setting:
*----------------------------------------------------------------
do case
case OS(3) = "6" or DEBUG_FORCE_SEGOE_UI
    THIS.SetAll("FontName","Segoe UI")
    THIS.SetAll("FontSize",9)
    THIS.SetAll("Margin",0,"txt")
    THIS.SetAll("Margin",0,"edt")
    THIS.SetAll("Margin",0,"Editbox")
    THIS.SetAll("Margin",0,"Textbox")
case OS(3) = "5"
    THIS.SetAll("FontName","MS Shell Dlg 2")
    THIS.SetAll("FontSize",8)
otherwise
    THIS.SetAll("FontName","Tahoma")
    THIS.SetAll("FontSize",8)
endcase
*----------------------------------------------------------------
* Optional Fontname override:
*----------------------------------------------------------------
if not empty(DIALOG_FONTNAME_OVERRIDE)
    THIS.SetAll("FontName", DIALOG_FONTNAME_OVERRIDE )
    THIS.FontName = DIALOG_FONTNAME_OVERRIDE
endif
*----------------------------------------------------------------
* Adjustments for "large fonts":
*----------------------------------------------------------------
do case
case DIALOG_FONTSIZE_OVERRIDE > 0
    *----------------------------------------------------------------
    * We can force the use of a specific font size:
    *----------------------------------------------------------------
    this.SetAll("FontSize", DIALOG_FONTSIZE_OVERRIDE )
    this.FontSize = DIALOG_FONTSIZE_OVERRIDE
*-----------------------
* SP1 Fix:
*-----------------------
case DEBUG_FORCE_LARGE_FONTS or ;
     (DIALOG_ADJUST_FOR_LARGE_FONTS and THIS.screenDPI >= 120)
    *----------------------------------------------------------------
    * Use a slightly larger font in 120 dpi to match the other
    * native VFP dialogs
    *----------------------------------------------------------------
    this.SetAll("FontSize", 10 )
    this.FontSize = 10
endcase
ENDPROC
PROCEDURE Init
*====================================================================
* Init()
* Make sure that if large fonts are in effect, to switch all controls
* to use a large-font-safe font.
*====================================================================
*---------------------------------
* SP1 - improve "large font" handling:
* Determine the screen DPI:
*---------------------------------
#define LOGPIXELSX 88
declare integer GetDeviceCaps in WIN32API integer HDC, integer item
declare integer GetDC         in WIN32API integer hWnd
declare integer ReleaseDC     in WIN32API integer hWnd, integer HDC
local hdc, screenDPI
hdc    = GetDC(0)
THIS.screenDPI = GetDeviceCaps( m.hdc, LOGPIXELSX )
ReleaseDC( 0, m.hdc )
*---------------------------------
* Adjust object font sizes if necessary:
*---------------------------------
this.checkForLargeFonts()
ENDPROC
OREPORT
REPORTLISTENER
REPORTLISTENERx
ProofShape
proofsheet.vcx
NSTYLE
IROWOFFSET
ICOLOFFSET
ICOLCOUNT
REPORTLISTENER
OUTPUTPAGECOUNT
NEWOBJECT
OBJECTS
VISIBLE
PAGENO
HEIGHT
WIDTHh
REPORTLISTENER
OUTPUTPAGECOUNT
OUTPUTPAGE
OBJECTS
HIDE
setreport,
Destroyk
Paint
QueryUnloadQ
FontName
Segoe UI
FontSize
Margin
Margin
Margin
Editbox
Margin
Textbox
FontName
MS Shell Dlg 2
FontSize
FontName
Tahoma
FontSize
FontName
FontSize
FontSize
SETALL
FONTNAME
FONTSIZE
SCREENDPI
GetDeviceCaps
WIN32API
GetDC
WIN32API
ReleaseDC
WIN32API
GETDEVICECAPS
WIN32API
GETDC
RELEASEDC
SCREENDPI
CHECKFORLARGEFONTS
checkforlargefonts,
Report Preview
Go to page number:
NSTYLE
PAGENO
OPARENTFORM
CURRENTPAGE
PAGETOTAL
CAPTION
LBLCAPTION
SHOWWINDOW
AUTOCENTER
VIEWPORTLEFT
WIDTH
VIEWPORTTOP
HEIGHT
SPNPAGENO
SPINNERLOWVALUE
SPINNERHIGHVALUE
VALUE
Show,
@PROCEDURE setreport
lparameters oReport
THIS.ReportListener = m.oReport
ENDPROC
PROCEDURE Destroy
THIS.ReportListener = null
ENDPROC
PROCEDURE Show
LPARAMETERS nStyle
#define SPACE_PIXELS 10
iRowOffset = SPACE_PIXELS
iColOffset = SPACE_PIXELS
iColCount  = 6
for m.i = 1 to min(36,THIS.ReportListener.OutputPageCount)
    THIS.NewObject(sys(2015),"ProofShape","proofsheet.vcx")
    THIS.Objects[m.i].Visible = .T.
    THIS.Objects[m.i].PageNo = m.i
    * Arrange shapes on form:
    THIS.Objects[m.i].Top  = iRowOffset
    THIS.Objects[m.i].Left = iColOffset
    if mod(m.i,iColCount) = 0
        iRowOffset = iRowOffset + SPACE_PIXELS + THIS.Objects[m.i].Height
        iColOffset = SPACE_PIXELS
    else
        iColOffset = iColOffset + THIS.Objects[m.i].Width + SPACE_PIXELS
    endif
endfor
dodefault(nStyle)
ENDPROC
PROCEDURE Paint
if not isnull( THIS.ReportListener )
    for m.i = 1 to min(36,THIS.ReportListener.OutputPageCount)
        THIS.ReportListener.OutputPage( m.i, THIS.Objects[m.i],2)
    endfor
endif
ENDPROC
PROCEDURE QueryUnload
THIS.Hide()
activate screen
ENDPROC
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _1PC0NFKPY 877020253)
 COMMENT RESERVED
 WINDOWS _1Q40K9H6C 877293344
 COMMENT RESERVED
 WINDOWS _1Q20UZXVD 878213316E
 COMMENT RESERVED
 WINDOWS _1PQ0P76WP 878213455
 COMMENT RESERVED
 WINDOWS _14110GV5X 894986900}
 COMMENT RESERVED
 WINDOWS _1QM0BUK5J 923837222
 COMMENT RESERVED
 WINDOWS _2220SN8V0 924994991
 COMMENT RESERVED
 WINDOWS _1L50OW0FK1029178301{
 WINDOWS _1L50TVYFO1029178301
 WINDOWS _1L50TX61Q1029178301
 WINDOWS _1L50UUD6E1029178301
 COMMENT RESERVED
 WINDOWS _13T0MHHPZ1055765084
 COMMENT RESERVED
 WINDOWS _1Q210400D1059808531H
 COMMENT RESERVED
 WINDOWS _1L50LCL981063655944F
 COMMENT RESERVED
 WINDOWS _13T0OHG0F1065533100U
 COMMENT RESERVED
 WINDOWS _1530WWJY41065533134D
 COMMENT RESERVED
 WINDOWS _13E0OB2YR1065533157
 COMMENT RESERVED
 WINDOWS _16E19GTD61065533169j
 COMMENT RESERVED
 WINDOWS _19G1CFR951065549836;
 COMMENT RESERVED
 WINDOWS _39L029YY01076037228y
 COMMENT RESERVED
 WINDOWS _31B1DMQ8L1081191826c
 COMMENT RESERVED
 WINDOWS _1L50OW0FK1086504165
 WINDOWS _31E1B3BDT1086504166
 WINDOWS _31E1B3BEU1086504166
 COMMENT RESERVED
 WINDOWS _3101B46YT1086831092
 COMMENT RESERVED
VERSION =   3.00
fxabstract
Pixels
Custom-derived class, supplying an abstract instance of the required interface to implement an FX or GFX object. For use with FXListener as a report decorator.
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
gfxoutputclip
pr_htmllistener
reportlisteners.h
reportlisteners.h
fxmemberdatascript
fxabstract
Pixels
Class
Class
ZExecutes script stored in FRX Memberdata, reading it from a cursor in the FRX datasession.
Pixels
reportlisteners.h
custom
Class
fxmemberdatascript
custom
gfxoutputclip
Pixels
PR_ReportListener.vcx
custom
_reportlistener
custom
fxabstract
o_memberdata XML Metadata for customizable properties
*applyfx Required method to implement the FX interface.
PROCEDURE applyfx
LPARAMETERS m.toListener, m.tcMethodToken,;
            m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, m.tP6, ;
            m.tP7, m.tP8, m.tP9, m.tP10, m.tP11, m.tP12

ENDPROC
_memberdata = <VFPData><memberdata name="applyfx" type="property" display="applyFX" favorites="True"/></VFPData>
Name = "fxabstract"
custom
Boldpageimagetype
oldtextareasetting
getdefaultuserxsltasstring
eApplies custom specifications, tuned to HTML production, to its parent class' XML generation process.
Class
pr_xmldisplaylistener
pr_htmllistener
TOLISTENER
TCMETHODTOKEN
applyfx,
reportlistener
!Arial, 0, 9, 5, 15, 12, 32, 3, 0
fxabstract
pr_reportlistener.vcx
PR_ReportListener.vcx
fxtherm
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
pr_xmldisplaylistener
reportlisteners.h
reportlisteners.h
Pixels
Pixels
fxresetpagetotal
custom
Class
dFX interface-conformant object derived from form class, providing user feedback during a report run.
foxylistener
Class
Pixels
Class
Class
Pixels
Jresetcount
oldpass
dothisrun
resetalias
dobeforeband
dobeforereport
fxresetpagetotal
reportlisteners.h
dbflistener
debuglistener
foxylistener
h*drawstringjustified
*drawstringintf
*tfprocess
*tfaddtoarray
^atfwords[1,0]
*tfaddtooutput
gTunes XML settings suitably for presentation output needs, and adds image-file-publishing capabilities.
pr_xmllistener
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
Pixels
reportlisteners.h
$targetalias
dodebugcommandclauses
Pixels
jProvides debugging output to help developers understand what happens during an object-assisted report run.
Class
Class
pr_xmldisplaylistener
dbflistener
reportlistener
pr_reportlistener.vcx
gfxnorender
reportlisteners.h
utilityreportlistener
debuglistener
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
,listener
norenderdataalias
omitrendering
Pixels
pr_xmllistener
reportlisteners.h
Class
reportlistener
PR_ReportListener.vcx
Pixels
Class
Conditionally eliminates default rendering behavior for report layout controls by evaluating a ReportListener-referencing expression specified in MemberData.
cincludeloadandunload Indicates whether the debug information should include values from the LoadReport and UnloadReport events.
verbose Specifies whether the DebugListener should include extended information about parameter values of object type, as well as page, alias, and recno() information for each event or method.
targetalias Holds the target alias during the processing of a detail band.
*dodebug Provides debug information for a ReportListener event or method.
*dodebugcommandclauses Provides debug information for the CommandClauses object and ReportListener member properties.
*verbose_assign
Adds error handling, session handling, and other common report run-time tasks to ReportListener base class.  Provides the ability to chain a series of reports as well as the means to delegate or share output activities to a chain of Listener-successors.
fxtherm
Pixels
fxtherm.
THERMSHAPE
shape
shape
reportlistener
fxtherm.
&Provides XML output from a report run.
fxlistener
THERMLABEL
dbflistener
reportlistener
label
Class
pr_reportlistener.vcx
label
fxtherm.
!Arial, 0, 9, 5, 15, 12, 32, 3, 0
fxabstract
gfxnorender
custom
    THERMBACK
jpgclsid
oldsendgdiplusimage
oldexternalfilelocation
imagefieldinstance
imagefieldtofile
utilityimage
checkreportforgeneralfields
initializefilecopysettings
adjustshapeaspectratio
lexpandfields
*storefrxdata
*getfullfrxdata
*erasetempfiles
*updateproperties
*getdynamicsfromfrx
*getprinterinfo
*getstringfromxml
*processdynamics
*onpreviewclose_bind
*addtolog
    foxytherm
shape
_reportlistener
8listener Holds a ReportListener reference during applyFX processing for use in evaluating "Render When" conditions.
norenderdataalias Alias of private cursor for gfxNoRender subset of memberdata.
*omitrendering Evaluates Rendering requirements, returning True or False, in both current and frx data sessions.
gfxexample
Pixels
Example GFX class to show technique the object can use to remove itself from FXListener's collection at the conclusion of a report run. This technique is critical to safe use of FX and GFX objects that do not closely monitor their use of datasessions.
Class
fxabstract
gfxexample
custom
reportlistener
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
shape
reportlistener
reportlisteners.h
pr_reportlistener.vcx
vsuccessorsys2024
currentrecord
designateddriver
drivingaliascurrentrecno
escapereference
frxbandrecno
onescapecommand
percentdone
setescape
setnotifycursor
isrunning
drivingalias
getparentwindowref
getreportscopedriver
resetuserfeedback
setthermformcaption
synchstatus
pushuserfeedbackglobalsets
popuserfeedbackglobalsets
synchuserinterface
setupreport
Pixels
dFX interface-conformant object derived from form class, providing user feedback during a report run.
AutoSize = .T.
DefTop =
BackStyle = 1
Caption = ""
Left = 8
Top = ( (THISFORM.Height - THIS.Height) /2)
Visible = .T.
Width = 2
ForeColor = 0,0,0
Name = "THERMLABEL"
Class
    foxytherm
HAlignment = 2
Left = 98
Top = 13
Visible = .F.
Name = "ThermLabel"
    foxytherm.
ThermLabel
label
pr_ctl32_progressbar.vcx
ctl32_progressbarlabel
pr_utilityreportlistener
    foxytherm.
Therm
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
fxlistener
reportlisteners.h
pr_xmllistener
showdatasessionissue Toggles demonstration of proper datasession handling in this example GFX class.
*showdatasessionissue_assign
reportlistener
PR_ReportListener.vcx
Top = 2
Left = 1
Visible = .F.
Name = "Therm"
lblControlNameH.Name = "lblControlNameH"
tmrControlTimer.Name = "tmrControlTimer"
lblControlNameV.Name = "lblControlNameV"
pr_reportlistener.vcx
Pixels
Class
showdatasessionissue = .T.
_memberdata = <VFPData><memberdata name="applyfx" type="property" display="applyFX" favorites="True"/><memberdata name="showdatasessionissue" display="showDataSessionIssue" favorites="True" type="property"/></VFPData>
Name = "gfxexample"
1DefTop =
DefLeft =
DefHeight =
Top = (THISFORM.ThermBack.Top + 1)
Left = (THISFORM.ThermBack.Left + 1)
Height = (THISFORM.ThermBack.Height -2)
Width = 0
BorderStyle = 0
DrawMode = 14
FillStyle = 0
Visible = .T.
BackColor = (THISFORM.BackColor)
FillColor = 178,180,191
Name = "THERMSHAPE"
PR_ReportListener.vcx
pr_reportlistener.vcx
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
DefTop =
DefLeft =
DefHeight =
DefWidth =
Top = 5
Left = 0
Height = 30
Width = 276
BackStyle = 0
Visible = .T.
Name = "THERMBACK"
pr_updatelistener
Provides page count & total in any report. Runs if _ResetPageTotal var exists, also fills vars _ReportPageNo & _ReportPageTotal if available. Results are similar to system variables _PAGENO & _PAGETOTAL, but accurate in reports that reset _PAGENO on band.
scriptalias
usememberdata
processmemberdatascript
processdynamicmethodscript
gatherscripts
adjustdynamiccalls
findparametersstatement
reportlisteners.h
Pixels
8Provides user feedback while report output is generated.
    gfxrotate
reportlisteners.h
Pixels
oimagesrc
oimagedest
oprivategraphics
opoint
orect
lonthisrun
iimageinstanceindex
snamespace
simagepath
simagefullpath
aimagecopies
saveimageclips
getimageext
setup
listenersupportssaveclip
cleanup
resetcount Internal processing variable.
oldpass Internal processing variable.
dothisrun Holds assessment of whether this object must perform its function during the current report run.
resetalias Alias of cursor used to accumulate page counts for groups.
*dobeforeband Accumulates page counts into the ResetAlias cursor as the report run progresses.
*dobeforereport Initializes page count activity at the start of a report run.
thermform
setnotifycursor
setescape
escapereference
onescapecommand
percentdone
currentrecord
drivingaliascurrentrecno
frxbandrecno
designateddriver
successorsys2024
createtherm
getparentwindowref
setthermformcaption
resetuserfeedback
getreportscopedriver
synchstatus
ReportListener supplying the means to decorate base report content during a report run, using two member collections: FXs (adjust content and format instructions) and GFXs (adjust or replace GDIPlus-graphics rendering).
wHeight = 17
Width = 98
listener = (.NULL.)
norenderdataalias = ("GNR"+SYS(2015))
_memberdata = <VFPData><memberdata name="applyfx" type="property" display="applyFX" favorites="True"/><memberdata name="omitrendering" display="omitRendering" type="method"/><memberdata name="norenderdataalias" display="noRenderDataAlias" type="property"/></VFPData>
Name = "gfxnorender"
Class
_reportlistener
pr_updatelistener
_reportlistener
fxlistener
reportlistener
reportlistener
pr_reportlistener.vcx
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
`Height = 23
Width = 23
FRXDataSession = -1
includeloadandunload = .T.
targetalias = ("")
_memberdata =
     461<VFPData><memberdata name="verbose" type="property" display="verbose" favorites="True" /><memberdata name="dodebug" type="method" display="doDebug" favorites="True" /><memberdata name="dodebugcommandclauses" type="method" display="doDebugCommandClauses" favorites="False" /><memberdata name="targetalias" type="property" display="targetAlias" /><memberdata name="includeloadandunload" type="property" display="includeLoadAndUnload" favorites="True" /></VFPData>
Name = "debuglistener"
uscriptalias The alias of a cursor holding script information during the report run.
removescriptonfailure Indicates whether any script failure should remove the  failed script for the balance of the report run. If .F., this script continues to be executed for additional report events and errors are handled silently. Defaults to .T..
*usememberdata Evaluates whether the current event and the current FRX layout element have MemberData that this class can process and positions the MemberData and Scripting cursors appropriately.
*processmemberdatascript Executes MemberData script from the main MemberData row for the current FRX layout element.
*processdynamicmethodscript Processes specialized MemberData rows for the current layout control for dynamic methods EvaluateContents and AdjustObjectSize.
*gatherscripts Sets up script elements at the beginning of a report run.
*adjustdynamiccalls Ensures that dynamic method calls are made if there is relevant MemberData script attached to them.
*removescriptonfailure_assign
*findparametersstatement Checks FX scripts for a parameter statement as required for ApplyFX() method.
scriptalias = ("S"+SYS(2015))
removescriptonfailure = .T.
_memberdata =
     783<VFPData><memberdata name="applyfx" type="property" display="applyFX" favorites="True"/><memberdata name="gatherscripts" type="method" display="gatherScripts"/><memberdata name="processmemberdatascript" type="method" display="processMemberDataScript"/><memberdata name="processdynamicmethodscript" type="method" display="processDynamicMethodScript"/><memberdata name="usememberdata" type="method" display="useMemberData"/><memberdata name="scriptalias" display="scriptAlias" type="property"/><memberdata name="adjustdynamiccalls" type="method" display="adjustDynamicCalls"/><memberdata name="removescriptonfailure" display="removeScriptOnFailure" type="property" favorites="True"/><memberdata name="findparametersstatement" type="method" display="findParametersStatement"/></VFPData>
Name = "fxmemberdatascript"
resetcount = 0
oldpass = 0
dothisrun = .F.
resetalias = ("GR"+SYS(2015))
_memberdata =
     524<VFPData><memberdata name="applyfx" type="property" display="applyFX" favorites="True"/><memberdata name="dothisrun" type="property" display="doThisRun" favorites="True"/><memberdata name="oldpass" type="property" display="oldPass"/> <memberdata name="resetcount" type="property" display="resetCount"/><memberdata name="resetalias" type="property" display="resetAlias"/><memberdata name="dobeforeband" type="method" display="doBeforeBand"/><memberdata name="dobeforereport" type="method" display="doBeforeReport"/></VFPData>
Name = "fxresetpagetotal"
PROCEDURE dobeforeband
LPARAMETERS m.toListener,m.tnBandCode
LOCAL m.liSession, m.liSelect
IF m.tnBandCode = 1 && pageheader
   m.liSession = SET("DATASESSION")
   SET DATASESSION TO (m.toListener.FRXDataSession )
   liSelect = SELECT(0)
   SELECT (THIS.resetAlias)
   IF _PAGENO = 1 && user reset occurred
      IF THIS.oldPass = 0 AND toListener.CurrentPass = 1
         * we're entering the rendering pass
         THIS.resetCount = 1
         THIS.oldPass = 1
         IF TYPE("_ReportPageTotal") = "N"
            CALCULATE SUM(ResetPageTotal) TO _ReportPageTotal
         ENDIF
      ELSE
         THIS.resetCount = THIS.resetCount + 1
      ENDIF
      IF m.toListener.CurrentPass = 0
         INSERT INTO (THIS.resetAlias) VALUES (THIS.ResetCount, 1)
      ENDIF
   ELSE
      * we're not starting a set of page numbers,
      * so we need to keep track of the pages in
      * this particular group.
      IF m.toListener.CurrentPass = 0
         SEEK THIS.ResetCount
         REPLACE ResetPageTotal WITH ResetPageTotal + 1
      ENDIF
   ENDIF
   IF m.toListener.CurrentPass = 1
      * make the current group's page total available
      * for display/output
      SEEK THIS.ResetCount
      _ResetPageTotal = ResetPageTotal
      _ReportPageNo = m.toListener.PageNo && don't even worry about whether the var has been declared
   ENDIF
   SELECT (m.liSelect)
   SET DATASESSION TO (m.toListener.CurrentDataSession)
ENDIF
ENDPROC
PROCEDURE dobeforereport
LPARAMETERS m.toListener
LOCAL liSession, liSelect
liSession = SET("DATASESSION")
SET DATASESSION TO (m.toListener.FRXDataSession )
liSelect = SELECT(0)
SELECT 0
CREATE CURSOR (THIS.resetAlias) (ResetsNo i, ResetPageTotal i)
INDEX ON ResetsNo TAG Resets
THIS.resetCount = 0
THIS.oldPass = 0
_ResetPageTotal = 0
SELECT (liSelect)
SET DATASESSION TO (m.toListener.CurrentDataSession)
ENDPROC
PROCEDURE applyfx
LPARAMETERS m.toListener, m.tcMethodToken, ;
            m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, m.tP6,   ;
            m.tP7, m.tP8, m.tP9, m.tP10, m.tP11, m.tP12

DO CASE
   CASE m.tcMethodToken == "BEFOREREPORT" AND ;
        TYPE("_ResetPageTotal") # "U"
       * we can turn on behavior explicitly
        toListener.TwoPassProcess = .T.
        THIS.doThisRun = .T.
        THIS.doBeforeReport(toListener)
   CASE m.tcMethodToken == "BEFOREREPORT" AND ;
       (TYPE("_ResetPageTotal") = "U")
        THIS.doThisRun = .F.
   CASE NOT THIS.DoThisRun
        * do nothing
   CASE m.tcMethodToken == "BEFOREBAND"
        THIS.doBeforeBand(toListener,tP1)
   OTHERWISE
        * do nothing
ENDCASE

ENDPROC
;PROCEDURE showdatasessionissue_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L"
  THIS.showDataSessionIssue = m.vNewVal
ENDIF
ENDPROC
PROCEDURE applyfx
LPARAMETERS m.toListener, m.tcMethodToken,;
            m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, m.tP6,;
            m.tP7, m.tP8, m.tP9, m.tP10, m.tP11, m.tP12

IF m.tcMethodToken == "BEFOREREPORT" AND ;
   THIS.showDataSessionIssue AND ;
   (m.toListener.CurrentDataSession = m.toListener.CommandClauses.StartDataSession)
   MESSAGEBOX("This report does not use a private data session," + CHR(13) + ;
              "so you won't see the problem.")
ENDIF
IF m.tcMethodToken == "BEFOREBAND"
   SET DATASESSION TO (m.toListener.CurrentDataSession)
   m.toListener.doStatus("working here... ")
   IF THIS.showDataSessionIssue
      * no switch back here.
*!*       ELSE
*!*          SET DATASESSION TO (m.toListener.ListenerDataSession)
   ENDIF
ENDIF
IF (NOT THIS.showDataSessionIssue) AND ;
   m.tcMethodToken == "AFTERREPORT"
   * if the following is not included,
   * a "stuck" datasession results unless
   * some additional object later in
   * the collection did the switch back
   m.toListener.removeCollectionMember(THIS.Name,.T.)
   RELEASE THIS
ENDIF
ENDPROC
Provides copy-to-image file for designated page regions during a report run, so you can export the rendered regions for embedding in output targets. Alternative to xmlDisplayListener.copyImageFilesToExternalFileLocation handling custom-rendered content.
RENDER
DATASESSIONv
Microsoft.VFP.Reporting.Builder.Rotate
TOLISTENER
TCMETHODTOKEN
TP12
LISESSION
LIANGLE
LISELECT
LIFRXRECNO
LIRETURN
FFCGRAPHICS
GETHANDLE
NEXTERNALGDIPLUSGFX
SETHANDLE
FRXDATASESSION
MEMBERDATAALIAS
GETFRXRECNO
FRXRECNO
EXECUTE
TRANSLATETRANSFORM
ROTATETRANSFORM
applyfx,
DATASESSIONv
TOLISTENER
TCEXPR
LLNORENDER
LISESSION
LISTENER
CURRENTDATASESSION
FRXDATASESSION
EXCEPTION
RENDER
DATASESSIONv
LOADREPORT
09.00.0000.3504
DATASESSIONv
Microsoft.VFP.Reporting.Builder.AdvancedProperty
ListenerRef.Preprocess.NoRenderWhen
Microsoft.VFP.Reporting.Builder.AdvancedProperty
ListenerRef.Preprocess.NoRenderWhen
BEFOREREPORT
DATASESSIONv
(ExecWhen == '
ListenerRef.Preprocess.NoRenderWhen
' OR
 ExecWhen == '
ListenerRef.NoRenderWhen
SELECT FrxRecno,ExecWhen,Execute,  IIF(ExecWhen == "ListenerRef.Preprocess.NoRenderWhen", .T., .F.) AS PreProcess  FROM (m.toListener.MemberDataAlias)  INTO CURSOR (THIS.noRenderDataAlias)  WHERE Type = "R"  AND  Name == "Microsoft.VFP.Reporting.Builder.AdvancedProperty" AND  (NOT EMPTY(Execute)) AND &lcConditions.
UNLOADREPORT
DATASESSIONv
TOLISTENER
TCMETHODTOKEN
TP12
LISESSION
LISELECT
LIFRXRECNO
LIRETURN
LLNORENDER
LLSWAP
LCCONDITIONS
FFCGRAPHICS
FRXDATASESSION
NORENDERDATAALIAS
GETFRXRECNO
FRXRECNO
PREPROCESS
OMITRENDERING
EXECUTE
COMMANDCLAUSES
ISDESIGNERLOADED
COMMANDCLAUSESFILE
FRXCURSOR
UNPACKFRXMEMBERDATA
MEMBERDATAALIAS
EXECWHEN
ISFRXSWAPCOPYPRESENT
PREPAREFRXSWAPCOPY
LIRECNO
REMOVEFRXSWAPCOPY
LISTENER
omitrendering,
applyfx
Destroy+
pr_utilityreportlistener
reportlisteners.h
Pixels
Class
vsuccessorsys2024
currentrecord
designateddriver
drivingaliascurrentrecno
escapereference
frxbandrecno
onescapecommand
percentdone
setescape
setnotifycursor
isrunning
drivingalias
getparentwindowref
getreportscopedriver
resetuserfeedback
setthermformcaption
synchstatus
pushuserfeedbackglobalsets
popuserfeedbackglobalsets
synchuserinterface
setupreport
Changes default rendering behavior for report layout controls by rotating them according to a MemberData-specified number of degrees.
Class
fxabstract
    gfxrotate
Name = "gfxrotate"
custom
pr_reportlistener.vcx
isrunning
lasterrormessage
isrunningreports
reportfilenames
reportclauses
listeners
drivingalias
runcollector
frxheaderrecno
pushglobalsets
popglobalsets
setfrxdatasessionenvironment
resetdatasession
setfrxdatasession
setcurrentdatasession
getfrxstartupinfo
setfrxrunstartupconditions
resetdynamicmethodcalls
resetcalladjustobjectsize
resetcallevaluatecontents
resetruncollector
fillruncollector
adjustreportpagesinfo
fxlistener
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
reportlistener
pr_htmllistener15
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
configurationtable
pageimageextension
opentargetfile
closetargetfile
getpageimageextension
generatepageimagefilename
supportspageimages
outputpageimage
makeexternalfilelocationreachable
UAdds configuration table handling and output target file handling to fxListener class
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
pr_utilityreportlistener
VNEWVAL
SHOWDATASESSIONISSUE
BEFOREREPORT
This report does not use a private data session,C
so you won't see the problem.
BEFOREBAND
working here...
AFTERREPORT
TOLISTENER
TCMETHODTOKEN
SHOWDATASESSIONISSUE
CURRENTDATASESSION
COMMANDCLAUSES
STARTDATASESSION
DOSTATUS
REMOVECOLLECTIONMEMBER
showdatasessionissue_assign,
applyfx
dbflistener
pr_reportlistener.vcx
reportlistener
pr_reportlistener.vcx
createhelperobjects
needgfxs
sendfx
checkcollectionmembers
uppermethodname
getfeedbackfxobject
getobjectinstance
getmemberdatascriptfxobject
creatememberdatacursor
getrotategfxobject
evaluateuserexpression
getnorendergfxobject
ensurecollection
cssclassattr Supplies the name of the XML attribute used to supply HTML CSS class information to the node representing a layout control, supplementing FRX design instructions.
anchorattr Supplies the name of the XML attribute used to supply HTML anchor instructions to the node representing an FRX layout control or band.
titleattr Supplies the name of the XML attribute used to supply alternate text or tooltip information to a node representing an FRX layout control.
linkattr Supplies the name of the XML attribute used to supply HTML link information to the node representing a layout control containing an image or non-TEXTAREA text.
cssclassoverrideattr Supplies the name of the XML attribute used to supply HTML CSS class information to the node representing a layout control, overriding FRX design instructions.
oldpageimagetype Saves the user's preferred PageImageType settings during a run, if the Listener adjusts it to match HTML Page Link memberdata contents it finds in this report.
oldtextareasetting Saves the user's pre-report XSLTParameters useTextAreaForStretchingText value, if the Listener adjusts the value to match memberdata settings it finds in the current report.
lobjtypemode
lopenviewer
*getdefaultuserxsltasstring Supplies default User XSLT document o the getDefaultUserXslt method as a string.
*cssclassattr_assign
*anchorattr_assign
*titleattr_assign
*linkattr_assign
*cssclassoverrideattr_assign
*urlstringencode Encode string for purposes of using it as part of a link in an HTML page.
*pathencode Encodes sections of a URL path re-creates the URL from the elements, and optionally re-encodes suitable for including in well-formed XML.
*updateproperties
pagenodes
currentband
currentpage
columnnodes
currentcolumn
datanodes
includepage
evaluatecontentsvalues
applyrdltransform
successorgfxnorender
xmlrawtag
xmlrawnode
xmlrawconv
writeraw
resetreport
verifynodenames
verifyattributenames
loadprocessorobject
getrawformattinginfo
getvfprdlcontents
getpathedimageinfo
applyusertransformtooutput
getdefaultuserxslt
setdomformattinginfo
synchxsltprocessoruser
insertxmlconfigrecords
getfrxlayoutobjectfieldlist
preparefrxcopy
removefrxcopy
getrunnodecontents
addrunnode
initializeformattingchangescursor
formatdatavalue
evaluatestringtoboolean
fixmsxmlobjectfordtds
frxcharsetsinuse
verifytargetfile
FRXRecno
TIFRXRECNO
LLUSEMEMBERDATA
LISELECT
SCRIPTALIAS
.Execute
.ExecWhen
TOLISTENER
TCMETHODTOKEN
SCRIPTALIAS
LLEXECUTE
LCEXECUTE
LCEXECWHEN
CURRENTDATASESSION
REMOVESCRIPTONFAILURE
FRXDATASESSION
EXECUTE
.UserScript
TOLISTENER
TNFRXRECNO
TOPROPS
SCRIPTALIAS
LCSCRIPT
REMOVESCRIPTONFAILURE
FRXDATASESSION
USERSCRIPT
WINDOWS
LPARAMETERS toFX, toListener, tcMethodToken,;C
tP1, tP2, tP3, tP4, tP5, tP6,
tP7, tP8, tP9, tP10, tP11, tP12
Microsoft.VFP.Reporting.Builder.AdjustObjectSize
Microsoft.VFP.Reporting.Builder.EvaluateContents
TOLISTENER
LCTEMP1
LCTEMP2
LCTEMP3
LISELECT
FRXDATASESSION
SCRIPTALIAS
FRXRECNO
EXECWHEN
EXECUTE
USERSCRIPT
MEMBERDATAALIAS
PLATFORM
STYLE
FINDPARAMETERSSTATEMENT
OBJTYPE
FRXCURSOR
GENERATEADJUSTOBJECTSIZESCRIPT
GENERATEEVALUATECONTENTSSCRIPT
WINDOWS
EvaluateContents
EvaluateContents
WINDOWS
AdjustObjectSize
AdjustObjectSize
TOLISTENER
FRXDATASESSION
CALLEVALUATECONTENTS
OBJTYPE
PLATFORM
USEMEMBERDATA
SCRIPTALIAS
EXECWHEN
EXECUTE
USERSCRIPT
CALLADJUSTOBJECTSIZE7
VNEWVAL
REMOVESCRIPTONFAILURE-
PARAM
TCSCRIPT
LALINES
LILINE
LCLINE
LLFOUND
BEFOREREPORT
EVALUATECONTENTS
ADJUSTOBJECTSIZE
TOLISTENER
TCMETHODTOKEN
FRXDATASESSION
LIFRXRECNO
GATHERSCRIPTS
ADJUSTDYNAMICCALLS
GETFRXRECNO
USEMEMBERDATA
PROCESSMEMBERDATASCRIPT
PROCESSDYNAMICMETHODSCRIPT
LISTENERDATASESSION
usememberdata,
processmemberdatascript
processdynamicmethodscript~
gatherscripts$
adjustdynamiccallsk
removescriptonfailure_assign
findparametersstatemente
applyfx
ZListenerType = 2
FRXDataSession = -1
cssclassattr = ("css")
anchorattr = ("anchor")
titleattr = ("title")
linkattr = ("hlink")
cssclassoverrideattr = ("CSS")
oldpageimagetype = -1
oldtextareasetting = -1
lobjtypemode = .F.
lopenviewer = .F.
applyusertransform = .T.
targetfileext = ("HTM")
_memberdata =
    2036<VFPData>
    <memberdata name="imagefieldinstance" type="property" display="imageFieldInstance" favorites="False"/>
    <memberdata name="imagefieldtofile" type="property" display="imageFieldToFile" favorites="False"/>
    <memberdata name="imagefilebasename" type="property" display="imageFileBaseName" favorites="True"/>
    <memberdata name="imagesrcattr" type="property" display="imageSrcAttr" favorites="True"/>
    <memberdata name="jpgclsid" type="property" display="JPGclsid" favorites="False"/>
    <memberdata name="oldexternalfilelocation" type="property" display="oldExternalFileLocation" favorites="False"/>
    <memberdata name="oldsendgdiplusimage" type="property" display="oldSendGDIPlusImage" favorites="False"/>
    <memberdata name="checkreportforgeneralfields" type="method" display="checkReportForGeneralFields" favorites="False"/><memberdata name="getdefaultuserxsltasstring" type="method" display="getDefaultUserXsltAsString" favorites="False"/><memberdata name="initializefilecopysettings" type="method" display="initializeFileCopySettings" favorites="False"/><memberdata name="titleattr" display="titleAttr" type="property" favorites="True"/><memberdata name="linkattr" display="linkAttr" type="property" favorites="True"/><memberdata name="cssclassattr" display="cssClassAttr" type="property" favorites="True"/><memberdata name="cssclassoverrideattr" display="cssClassOverrideAttr" type="property" favorites="True"/><memberdata name="anchorattr" display="anchorAttr" type="property" favorites="True"/><memberdata name="oldpageimagetype" display="oldPageImageType" type="property"/><memberdata name="oldtextareasetting" display="oldTextAreaSetting" type="property"/><memberdata name="urlstringencode" type="method" favorites="True" display="urlStringEncode"/><memberdata name="pathencode" type="method" favorites="True" display="pathEncode"/><memberdata name="lobjtypemode" display="lObjTypeMode"/><memberdata name="updateproperties" display="UpdateProperties"/><memberdata name="lopenviewer" display="lOpenViewer"/></VFPData>
Name = "pr_htmllistener"
FRXDataSession = -1
jpgclsid = (.NULL.)
oldsendgdiplusimage = 0
oldexternalfilelocation = ("")
imagefieldinstance = 0
imagefieldtofile = ("")
imagesrcattr = ("img")
imagefilebasename = ("")
utilityimage = .NULL.
fillalphaattr = ("FA")
fillredattr = ("FR")
fillgreenattr = ("FG")
fillblueattr = ("FB")
penalphaattr = ("PA")
penredattr = ("PR")
pengreenattr = ("PG")
penblueattr = ("PB")
fontnameattr = ("FNAME")
fontstyleattr = ("FSTYLE")
fontsizeattr = ("FSIZE")
externalfilelocation = ("")
includeformattinginlayoutobjects = .T.
includebandswithnoobjects = .T.
_memberdata =
    1925<VFPData> <memberdata name="copyimagefilestoexternalfilelocation" type="property" display="copyImageFilesToExternalFileLocation" favorites="True" /> <memberdata name="imagefieldinstance" type="property" display="imageFieldInstance"  /> <memberdata name="imagefieldtofile" type="property" display="imageFieldToFile"  /> <memberdata name="imagefilebasename" type="property" display="imageFileBaseName" favorites="True" /> <memberdata name="imagesrcattr" type="property" display="imageSrcAttr" favorites="True" /> <memberdata name="jpgclsid" type="property" display="JPGclsid" /> <memberdata name="oldexternalfilelocation" type="property" display="oldExternalFileLocation"  /> <memberdata name="oldsendgdiplusimage" type="property" display="oldSendGDIPlusImage"/> <memberdata name="checkreportforgeneralfields" type="method" display="checkReportForGeneralFields" /><memberdata name="initializefilecopysettings" type="method" display="initializeFileCopySettings" /><memberdata name="utilityimage" type="property" display="utilityImage" /><memberdata name="adjustshapeaspectratio" type="method" display="adjustShapeAspectRatio" /><memberdata name="fillalphaattr" display="fillAlphaAttr" type="property"/><memberdata name="fillredattr" display="fillRedAttr" type="property"/><memberdata name="fillgreenattr" display="fillGreenAttr" type="property"/><memberdata name="fillblueattr" display="fillBlueAttr" type="property"/><memberdata name="penalphaattr" display="penAlphaAttr" type="property"/><memberdata name="penredattr" display="penRedAttr" type="property"/><memberdata name="pengreenattr" display="penGreenAttr" type="property"/><memberdata name="penblueattr" display="penBlueAttr" type="property"/><memberdata name="fontnameattr" display="fontNameAttr" type="property"/><memberdata name="fontstyleattr" display="fontStyleAttr" type="property"/><memberdata name="fontsizeattr" display="fontSizeAttr" type="property"/></VFPData>
Name = "xmldisplaylistener"
PROCEDURE usememberdata
LPARAMETERS m.tiFRXRecno
LOCAL m.llUseMemberData, m.liSelect
IF (m.tiFRXRecno > 0)
   IF USED(THIS.scriptAlias)
      m.liSelect = SELECT(0)
      SELECT (THIS.scriptAlias)
      m.llUseMemberData = ;
         SEEK(m.tiFRXRecno,THIS.scriptAlias,"FRXRecno")
      SELECT (m.liSelect)
   ENDIF
ENDIF
RETURN m.llUseMemberData
ENDPROC
PROCEDURE processmemberdatascript
LPARAMETERS m.toListener, m.tcMethodToken,;
            m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, m.tP6, ;
            m.tP7, m.tP8, m.tP9, m.tP10, m.tP11, m.tP12

* we are already positioned on the correct MemberData record
* in the FRXDataSession in the script alias
* by the calling method.
IF (NOT EOF(THIS.scriptAlias))
   LOCAL llExecute, lcExecute, lcExecWhen
   m.lcExecute = EVALUATE(THIS.scriptAlias + ".Execute")
   m.lcExecWhen = EVALUATE(THIS.scriptAlias + ".ExecWhen")
   SET DATASESSION TO (m.toListener.CurrentDataSession)
   DO CASE
   CASE EMPTY(m.lcExecute)
       * nothing to execute
   CASE EMPTY(m.lcExecWhen)
       * always execute
       m.llExecute = .T.
   CASE UPPER(m.lcExecWhen)== m.tcMethodToken
        * simple event evaluation
        * ExecWhen contains an event name
        * Note that each event, via script,
        * could potentially change the contents of
        * ExecWhen to hold another value (the next
        * event during which this script should be evaluated)
        m.llExecute = .T.
   CASE (TYPE(m.lcExecWhen) = "L") AND ;
        EVALUATE(m.lcExecWhen)
        * ExecWhen contains a logical expression to be evaluated
        m.llExecute = .T.
   CASE ATC("|"+m.tcMethodToken+"|","|" + m.lcExecWhen + "|") > 0
        * ExecWhen contains a delimited string of events
        m.llExecute = .T.
   ENDCASE
   IF m.llExecute
      TRY
         ExecScript(m.lcExecute,;
                    THIS, m.toListener, m.tcMethodToken,;
                    @tP1, @tP2, @tP3, @tP4, @tP5, @tP6, ;
                    @tP7, @tP8, @tP9, @tP10, @tP11, @tP12)
      CATCH TO err
         IF THIS.removeScriptOnFailure AND ;
            (m.toListener.FRXDataSession > 0)
             SET DATASESSION TO (m.toListener.FRXDataSession)
             REPLACE Execute WITH "" IN (THIS.scriptAlias)
         ENDIF
         #IF OUTPUTCLASS_DEBUGGING
             SUSPEND
         #ENDIF
      ENDTRY
   ENDIF
   IF m.toListener.FRXDataSession > 0
      SET DATASESSION TO (m.toListener.FRXDataSession)
   ENDIF
ENDIF
ENDPROC
PROCEDURE processdynamicmethodscript
LPARAMETERS m.toListener,  m.tnFRXRecno, m.toProps
* we are already positioned on the correct MemberData record
* in the script alias and in the FRXDataSession
* by the calling method.
IF (NOT EOF(THIS.scriptAlias))
   LOCAL lcScript
   m.lcScript = EVALUATE(THIS.scriptAlias + ".UserScript" )
   IF NOT EMPTY(m.lcScript)
      TRY
         EXECSCRIPT(m.lcScript,m.toListener, m.tnFRXRecno, m.toProps )
      CATCH TO err
         IF THIS.removeScriptOnFailure AND ;
            (m.toListener.FRXDataSession > 0)
             SET DATASESSION TO (m.toListener.FRXDataSession)
             REPLACE UserScript WITH "" IN (THIS.scriptAlias)
         ENDIF
         #IF OUTPUTCLASS_DEBUGGING
             SUSPEND
         #ENDIF
      FINALLY
         IF m.toListener.FRXDataSession > 0
            SET DATASESSION TO (m.toListener.FRXDataSession)
         ENDIF
      ENDTRY
   ENDIF
ENDIF
ENDPROC
PROCEDURE gatherscripts
LPARAMETERS m.toListener
LOCAL lcTemp1, lcTemp2, lcTemp3, liSelect
SET DATASESSION TO (m.toListener.FRXDataSession)
m.liSelect = SELECT(0)
SELECT 0
CREATE CURSOR (THIS.scriptAlias) ;
   (FRXRecno i, ExecWhen M, Execute M, UserScript M)
IF USED(m.toListener.MemberDataAlias) AND ;
   RECCOUNT(m.toListener.MemberDataAlias) > 0
   SELECT FRX
   GO TOP
   SCAN FOR Platform = FRX_PLATFORM_WINDOWS AND NOT EMPTY(Style)
      SELECT (m.toListener.MemberDataAlias)
      LOCATE FOR FRXRecno = RECNO("FRX") AND ;
         EMPTY(Name) AND Type = FRX_BLDR_MEMBERDATATYPE
      m.lcTemp1 = ExecWhen
      m.lcTemp2 = Execute
      m.lcTemp3 = ""
      IF NOT EMPTY(m.lcTemp2)
         IF NOT THIS.findParametersStatement(m.lcTemp2)
            * add a parameters statement
            m.lcTemp2 =  "LPARAMETERS toFX, toListener, tcMethodToken,;"+ CHR(13) + CHR(10) + ;
                         "tP1, tP2, tP3, tP4, tP5, tP6,"+;
                         "tP7, tP8, tP9, tP10, tP11, tP12" + CHR(13) + CHR(10) + ;
                         m.lcTemp2
         ENDIF
      ENDIF
      DO CASE
      CASE INLIST(FRX.ObjType,FRX_OBJTYP_LINE,FRX_OBJTYP_RECTANGLE,FRX_OBJTYP_PICTURE)
          LOCATE FOR FRXRecno = RECNO("FRX") AND ;
                     Type = FRX_BLDR_MEMBERDATATYPE   AND ;
                     Name == FRX_BLDR_NAMESPACE_ADJUSTOBJECTSIZE
          IF NOT EOF()
             m.lcTemp3 = ;
               m.toListener.FRXCursor.GenerateAdjustObjectSizeScript("frx",m.toListener.MemberDataAlias,m.toListener.FRXDataSession)
          ENDIF
      CASE FRX.ObjType = FRX_OBJTYP_FIELD
          LOCATE FOR FRXRecno = RECNO("FRX") AND ;
                     Type = FRX_BLDR_MEMBERDATATYPE   AND ;
                     Name == FRX_BLDR_NAMESPACE_EVALUATECONTENTS
          IF NOT EOF()
             m.lcTemp3 = ;
               m.toListener.FRXCursor.GenerateEvaluateContentsScript("frx",m.toListener.MemberDataAlias,m.toListener.FRXDataSession)
          ENDIF
      OTHERWISE
          m.lcTemp3 = ""
      ENDCASE
      SET DATASESSION TO (m.toListener.FRXDataSession)
      IF NOT EMPTY(m.lcTemp1 + m.lcTemp2 + m.lcTemp3)
         INSERT INTO (THIS.scriptAlias) ;
            VALUES (RECNO("FRX"),m.lcTemp1, m.lcTemp2, m.lcTemp3)
      ENDIF
      SELECT FRX
   ENDSCAN
ENDIF
SELECT (THIS.scriptAlias)
INDEX ON FrxRecno TAG FrxRecno
SELECT (m.liSelect)
ENDPROC
PROCEDURE adjustdynamiccalls
LPARAMETERS m.toListener
* change m.toListener.CallEvaluateContents and
* m.toListener.CallAdjustObjectSize if necessary
SET DATASESSION TO (m.toListener.FRXDataSession)
IF INLIST(m.toListener.callEvaluateContents,;
          LISTENER_CALLDYNAMICMETHOD_CHECK_CODE,;
          LISTENER_CALLDYNAMICMETHOD_NEVER)
   SELECT FRX
   GO TOP
   SCAN FOR ObjType = FRX_OBJTYP_FIELD AND Platform = FRX_PLATFORM_WINDOWS
      IF THIS.useMemberData(RECNO())
         SELECT (THIS.scriptAlias)
         IF ATC("EvaluateContents",ExecWhen) > 0 OR ;
            ATC("EvaluateContents",Execute) > 0 OR ;
            (NOT EMPTY(UserScript))
            * UserScript for a Field-type item
            * has to be EvaluateContents
            m.toListener.callEvaluateContents = LISTENER_CALLDYNAMICMETHOD_ALWAYS
            EXIT
         ENDIF
      ENDIF
      SELECT FRX
   ENDSCAN
ENDIF
IF INLIST(m.toListener.callAdjustObjectSize,;
          LISTENER_CALLDYNAMICMETHOD_CHECK_CODE,;
          LISTENER_CALLDYNAMICMETHOD_NEVER)
   SELECT FRX
   GO TOP
   SCAN FOR Platform = FRX_PLATFORM_WINDOWS AND INLIST(ObjType,FRX_OBJTYP_LINE,FRX_OBJTYP_RECTANGLE,FRX_OBJTYP_PICTURE)
      IF THIS.useMemberData(RECNO())
         SELECT (THIS.scriptAlias)
         IF ATC("AdjustObjectSize",ExecWhen) > 0 OR ;
            ATC("AdjustObjectSize",Execute) > 0 OR ;
            (NOT EMPTY(UserScript))
            * UserScript for a Shape-Picture-type item
            * has to be AdjustObjectSize
            m.toListener.callAdjustObjectSize = LISTENER_CALLDYNAMICMETHOD_ALWAYS
            EXIT
         ENDIF
      ENDIF
      SELECT FRX
   ENDSCAN
ENDIF
ENDPROC
PROCEDURE removescriptonfailure_assign
LPARAMETERS vNewVal
IF VARTYPE(m.vNewVal) = "L"
   THIS.removeScriptOnFailure = m.vNewVal
ENDIF
ENDPROC
PROCEDURE findparametersstatement
LPARAMETERS m.tcScript
LOCAL laLines[1], liLine, lcLine, llFound
IF VARTYPE(m.tcScript) = "C" AND NOT EMPTY(m.tcScript)
   FOR m.liLine = 1 TO ALINES(laLines,CHRTRAN(m.tcScript,CHR(10),CHR(13)),1+4,CHR(13))
      m.lcLine = ALLTRIM(UPPER(m.laLines[liLine]))
      DO CASE
      CASE LEFT(m.lcLine,1) == "*" OR LEFT(m.lcLine,2) == REPLICATE(CHR(38),2)
         * skip leading comments
      CASE BETWEEN(ATC("PARAM",m.lcLine),1,2)
         m.llFound = .T.
         EXIT
      OTHERWISE
         EXIT
      ENDCASE
   ENDFOR
ENDIF
RETURN m.llFound
ENDPROC
PROCEDURE applyfx
LPARAMETERS m.toListener, m.tcMethodToken,;
            m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, m.tP6, ;
            m.tP7, m.tP8, m.tP9, m.tP10, m.tP11, m.tP12
   IF m.toListener.FRXDataSession > 0
      SET DATASESSION TO (m.toListener.FRXDataSession)
   ENDIF
   LOCAL m.liFRXRecno
   IF m.tcMethodToken == "BEFOREREPORT"
      THIS.gatherScripts(m.toListener)
      THIS.adjustDynamicCalls(m.toListener)
   ENDIF
   IF m.toListener.FRXDataSession > 0
      SET DATASESSION TO (m.toListener.FRXDataSession)
   ENDIF
   m.liFRXRecno = m.toListener.getFRXRecno(m.tcMethodToken,m.tP1, m.tP2)
   IF USED("FRX") AND m.liFRXRecno > 0
      GO (m.liFRXRecno) IN FRX
   ENDIF

   IF THIS.useMemberData(m.liFRXRecno)
      THIS.processMemberDataScript(m.toListener, m.tcMethodToken,;
               @m.tP1, @m.tP2, @m.tP3, @m.tP4, @m.tP5, @m.tP6, ;
               @m.tP7, @m.tP8, @m.tP9, @m.tP10, @m.tP11, @m.tP12)
      IF INLIST(m.tcMethodToken,"EVALUATECONTENTS","ADJUSTOBJECTSIZE")
         THIS.processDynamicMethodScript(m.toListener,m.tP1, m.tP2)
      ENDIF
   ENDIF
   IF m.toListener.FRXDataSession > 0
      SET DATASESSION TO (m.toListener.FRXDataSession)
   ENDIF
   IF USED("FRX")
      SELECT FRX
   ENDIF
   SET DATASESSION TO (m.toListener.ListenerDataSession)
CATCH TO err
   #IF OUTPUTCLASS_DEBUGGING
       SUSPEND
   #ENDIF
ENDTRY
ENDPROC
oimagesrc Helper object for image-copy process.
oimagedest Helper object for image-copy process.
oprivategraphics Helper object for image-copy process.
opoint Helper object for image-copy process.
orect Helper object for image-copy process.
lonthisrun Logical value determining whether the object should take action during this run.
iimageinstanceindex Index of the current image copy file.
margin Integer value of frame margin to add to both width and height when determining the clip coordinates for the current portion of the page to be copied.
snamespace Reporting Memberdata namespace for which the object will look when determining whether a layout control's page region has been  explicitly tagged for copy to an image file.
mimetype Mimetype to use for image-copy files the object creates.
forceon Require this object to turn itself on for a report run, even if it does not see any objects tagged for its attention with the Memberdata values it expects.
gdipluslib Class library to use for instantation of point, rect, and other helper objects.
_memberdata XML Metadata for customizable properties
gdipluslibmodule Optional APP or EXE file (module) from which to instantiate helper objects in the gdiPlusLib class library.
simagepath Potentially relative path to which image copy files are saved, determined by ReportListener's externalFileLocation property (which may be relative) if it exists and is in use.
simagefullpath Full path to which image copy files are saved, determined by ReportListener's externalFileLocation and targetFileName properties if they exist and are in use.
^aimagecopies[1,6] Collection of values about each image copy the object makes during a report run (each row contains PageNo, output filename, and Left,Top,Width,Height values for the copy).
*gdipluslib_assign
*mimetype_assign
*forceon_assign
*applyfx Implementation of required method for the FX interface.
*getcurrentclipfilename Provides generated output image copy filename for the current copy action.
*outputpageclip Bindable procedure to save image copy files at the correct moment (the OutputPage event) during a paged report run.
*setupimageclip Saves a row to the aImageCopies array during rendering procedures when a page region is marked for an image copy, for later use in image copy procedures.
*saveimageclips Performs image copy procedures on the page regions requested for one or more pages.
*getimageext Derive file extension from current mimetype value.
*setup Setup code for each report run specific to this object.
*gdipluslibmodule_assign
*listenersupportssaveclip Evaluates whether the object can handle image copy processing in the current ReportListener output mode and during the current ReportListener event.
*cleanup Cleanup code for each report run specific to this object.
*margin_assign
DATASESSIONv
_ReportPageTotalb
TOLISTENER
TNBANDCODE
LISESSION
LISELECT
FRXDATASESSION
RESETALIAS
OLDPASS
CURRENTPASS
RESETCOUNT
RESETPAGETOTAL
_REPORTPAGETOTAL
_RESETPAGETOTAL
_REPORTPAGENO
PAGENO
CURRENTDATASESSION
DATASESSIONv
TOLISTENER
LISESSION
LISELECT
FRXDATASESSION
RESETALIAS
RESETSNO
RESETPAGETOTAL
RESETS
RESETCOUNT
OLDPASS
_RESETPAGETOTAL
CURRENTDATASESSIONj
BEFOREREPORT
_ResetPageTotalb
BEFOREREPORT
_ResetPageTotalb
BEFOREBAND
TOLISTENER
TCMETHODTOKEN
TWOPASSPROCESS
THIS
DOTHISRUN
DOBEFOREREPORT
DOBEFOREBAND
dobeforeband,
dobeforereport
applyfx|
)jpgclsid Provides the GUID used when accessing GDI+ to request a file to be saved as JPG type.
oldsendgdiplusimage Saves the user's preference for GDIPlus image handle receipt if the Listener has to temporary change this setting to generate image files from non-filebased images.
oldexternalfilelocation Saves the user's old externalFileLocation information during a report run, if the Listener has to temporarily change it to generate  image files from non-filebased images.
imagefieldinstance Keeps count of image instances for use in generating unique filenames for disk versions of non-filebased images in the report.
imagefieldtofile Holds generated filename for image being rendered to disk from a non-filebased image.
imagesrcattr Supplies the name of the XML attribute used to show filename copied, or generated for non-filebased images, at runtime.
imagefilebasename Assigns an optional  prefix to be added to generated image file names when image files are saved to disk during the rendering of general fields in a report run
copyimagefilestoexternalfilelocation Indicates whether file-based images should be copied to a  common location from their original locations on your disk, for reference  as image sources in the XML output.
utilityimage Utility image object for handling aspect ratio of scale-and-retain filebased images.
fillalphaattr Supplies the name of the XML attribute used to show the Fill-Alpha  value provided to a field control layout object by EvaluateContents processing.
fillredattr Supplies the name of the XML attribute used to show the Fill-Red value provided to a field control layout object by EvaluateContents processing.
fillgreenattr Supplies the name of the XML attribute used to show the Fill-Green value provided to a field control layout object by EvaluateContents processing.
fillblueattr Supplies the name of the XML attribute used to show the Fill-Blue value provided to a field control layout object by EvaluateContents processing.
penalphaattr Supplies the name of the XML attribute used to show the Pen-Alpha value provided to a field control layout object by EvaluateContents processing.
penredattr Supplies the name of the XML attribute used to show the Pen-Red value provided to a field control layout object by EvaluateContents processing.
pengreenattr Supplies the name of the XML attribute used to show the Pen-Green value provided to a field control layout object by EvaluateContents processing.
penblueattr Supplies the name of the XML attribute used to show the Pen-Blue value provided to a field control layout object by EvaluateContents processing.
fontnameattr Supplies the name of the XML attribute used to show the Font-Name value provided to a field control layout object by EvaluateContents processing.
fontstyleattr Supplies the name of the XML attribute used to show the Font-Style value provided to a field control layout object by EvaluateContents processing.
fontsizeattr Supplies the name of the XML attribute used to show the Font-Size value provided to a field control layout object by EvaluateContents processing.
*checkreportforgeneralfields Performs startup chores necessary to save out copies of general fields on disk when a report is rendered.
*imagesrcattr_assign
*imagefilebasename_assign
*copyimagefilestoexternalfilelocation_assign
*initializefilecopysettings Provides required environment settings for non-filebased images to be copied to files at runtime.
*adjustshapeaspectratio Adjust the height and width for the rendered contents of a Picture layout control to give accurate aspect ratio for the current file.
*fillalphaattr_assign
*fillredattr_assign
*fillgreenattr_assign
*fillblueattr_assign
*penalphaattr_assign
*penredattr_assign
*pengreenattr_assign
*penblueattr_assign
*fontnameattr_assign
*fontstyleattr_assign
*fontsizeattr_assign
ListenerType = 3
FRXDataSession = -1
lexpandfields = .F.
_memberdata =
     419<VFPData><memberdata name="drawstringjustified" display="DrawStringJustified"/><memberdata name="lexpandfields" display="lExpandFields"/><memberdata name="drawstringintf" display="DrawStringInTF"/><memberdata name="tfprocess" display="TFProcess"/><memberdata name="tfaddtoarray" display="TFAddToArray"/><memberdata name="atfwords" display="aTFWords"/><memberdata name="tfaddtooutput" display="TFAddToOutput"/></VFPData>
Name = "foxylistener"
reportlisteners.h
foxpro_reporting.h
reportlisteners_locs.h
pr_htmllistener15
}oimagesrc = NULL
oimagedest = NULL
oprivategraphics = NULL
opoint = NULL
orect = NULL
lonthisrun = .F.
iimageinstanceindex = 0
margin = 10
snamespace = ("")
mimetype = ("image/png")
forceon = .F.
gdipluslib = ("")
_memberdata =
    2083<VFPData><memberdata name="forceon" type="property" display="forceOn" favorites="True"/><memberdata name="gdipluslib" type="property" display="gdiPlusLib" favorites="True"/><memberdata name="iimageinstanceimage" type="property" display="iImageInstanceimage"/><memberdata name="mimetype" type="property" display="mimetype" favorites="True"/><memberdata name="aimagecopies" type="property" display="aImageCopies"/><memberdata name="iimageinstanceindex" type="property" display="iImageInstanceIndex"/><memberdata name="margin" type="property" display="margin" favorites="True"/><memberdata name="lonthisrun" type="property" display="lOnThisRun"/><memberdata name="lthisruninpagedmode" type="property" display="lThisRunInPagedMode"/><memberdata name="oimagedest" type="property" display="oImageDest"/><memberdata name="oimagesrc" type="property" display="oImageSrc"/><memberdata name="opoint" type="property" display="oPoint"/><memberdata name="oprivategraphics" type="property" display="oPrivateGraphics"/><memberdata name="orect" type="property" display="oRect"/><memberdata name="snamespace" type="property" display="sNamespace"/><memberdata name="applyfx" type="method" display="applyFX"/><memberdata name="getcurrentclipfilename" type="method" display="getCurrentClipFileName" favorites="True"/><memberdata name="outputpageclip" type="method" display="outputPageClip" favorites="True"/><memberdata name="setupimageclip" type="method" display="setupImageClip" favorites="True"/><memberdata name="saveimageclips" type="method" display="saveImageClips"/><memberdata name="getimageext" type="method" display="getImageExt"/><memberdata name="setup" type="method" display="setup"/><memberdata name="gdipluslibmodule" type="property" display="gdiPlusLibModule" favorites="True"/><memberdata name="listenersupportssaveclip" type="method" display="listenerSupportsSaveClip"/><memberdata name="cleanup" type="method" display="cleanup"/><memberdata name="simagepath" type="property" display="sImagePath"/><memberdata name="simagefullpath" type="property" display="sImageFullPath"/></VFPData>
gdipluslibmodule = ("")
simagepath = ("")
simagefullpath = ("")
Name = "gfxoutputclip"
TVVALUE
GDIPLUSLIBI
TVVALUE
MIMETYPE9
TVVALUE
FORCEON
EXCEPTION
DATASESSIONv
BEFOREREPORT
RENDER
AFTERREPORT
TOLISTENER
TCMETHODTOKEN
TP12
LISESSION
LISELECT
LIFRXRECNO
LVRETURN
LIDRIVER
LISTENERSUPPORTSSAVECLIP
FRXDATASESSION
AIMAGECOPIES
IIMAGEINSTANCEINDEX
MEMBERDATAALIAS
SNAMESPACE
LONTHISRUN
FORCEON
SETUP
FFCGRAPHICS
GETFRXRECNO
FRXRECNO
SETUPIMAGECLIP
OBJTYPE
SAVEIMAGECLIPS
CLEANUPX
IIMAGEINSTANCEINDEX
AIMAGECOPIES
NPAGENO
EDEVICE
NDEVICETYPE
NLEFT
NWIDTH
NHEIGHT
NCLIPLEFT
NCLIPTOP
NCLIPWIDTH
NCLIPHEIGHT
LABIND
SAVEIMAGECLIPS
TOLISTENER
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
TVCONTENTSTOBERENDERED
TLIMAGECONTROL
LCFILENAME
IIMAGEINSTANCEINDEX
AIMAGECOPIES
CLASS
GETIMAGEEXT
SIMAGEPATH
PAGENO
targetFileName
OutputPage
outputPageClip
TOLISTENER
TIPAGE
LISTENERSUPPORTSSAVECLIP
LCTEMPFILE
LIPAGEINDEX
LIIMAGEINDEX
LISTARTPAGE
LIENDPAGE
OPOINT
PAGETOTAL
SIMAGEFULLPATH
TARGETFILENAME
SIMAGEPATH
AIMAGECOPIES
IIMAGEINSTANCEINDEX
OUTPUTPAGE
OIMAGESRC
CREATEFROMFILE
OIMAGEDEST
CREATE
MARGIN
OPRIVATEGRAPHICS
CREATEFROMIMAGE
ORECT
DRAWIMAGEPORTIONAT
SAVETOFILE
MIMETYPE!
MIMETYPE
gpPoint
_gdiplus.vcx
gpPoint
externalFileLocation
OutputPage
outputPageClip
gpBitMap
gpBitMap
gpPoint
gpRectangle
gpGraphics
TOLISTENER
LONTHISRUN
GDIPLUSLIB
FFCGRAPHICS
CLASSLIBRARY
LOTEMP
GDIPLUSLIBMODULE
EXTERNALFILELOCATION
SIMAGEPATH
SIMAGEFULLPATH
LISTENERSUPPORTSSAVECLIP
OIMAGESRC
OIMAGEDEST
OPOINT
ORECT
OPRIVATEGRAPHICSv
TVVALUE
GDIPLUSLIBMODULE
TOLISTENER
TLACTINPAGEDMODE
LISTENERTYPE
TOLISTENER
LONTHISRUN
LISTENERSUPPORTSSAVECLIP
SIMAGEPATH
SIMAGEFULLPATH
OIMAGESRC
OIMAGEDEST
OPRIVATEGRAPHICS
OPOINT
ORECT;
TVNEWVAL
MARGIN.
Spacefold.LSN.gfxOutputClip
SNAMESPACE
CLEANUP
gdipluslib_assign,
mimetype_assign
forceon_assign`
applyfx
getcurrentclipfilename
outputpageclip
setupimageclip
saveimageclipsH
getimageext
setup
gdipluslibmodule_assign
listenersupportssaveclipl
cleanupB
margin_assignp
Destroy
Class
Pixels
reportlisteners.h
FRXDataSession = -1
thermform = .NULL.
thermformheight = 40
thermformwidth = 356
thermmargin = 5
thermformcaption = ("")
reportstartrundatetime = (DTOT({}))
reportstoprundatetime = (DTOT({}))
includeseconds = .T.
secondstext = ("secs")
escapereference = ("")
onescapecommand = ("")
thermcaption =
     284[m.cMessage+ " "+ TRANSFORM(THIS.PercentDone,"999"+IIF(THIS.ThermPrecision=0,"","."+REPL("9",THIS.ThermPrecision))) + "%" + IIF(NOT THIS.IncludeSeconds, "" , " "+TRANSFORM(IIF(THIS.IsRunning,DATETIME(), THIS.ReportStopRunDateTime)-THIS.ReportStartRunDateTime)+" " + THIS.SecondsText)]
initstatustext = ("")
prepassstatustext = ("")
runstatustext = ("")
percentdone = (0)
currentrecord = (0)
drivingaliascurrentrecno = (0)
frxbandrecno = (0)
designateddriver = ("")
successorsys2024 = ("N")
thermprecision = (0)
_memberdata =
    2919<VFPData><memberdata name="percentdone" type="property" display="percentDone" favorites="False" /> <memberdata name="createtherm" type="method" display="createTherm" favorites="False" /> <memberdata name="currentrecord" type="property" display="currentRecord" favorites="False" /><memberdata name="designateddriver" type="property" display="designatedDriver" favorites="False" /> <memberdata name="drivingaliascurrentrecno" type="property" display="drivingAliasCurrentRecno" favorites="False" /> <memberdata name="escapereference" type="property" display="escapeReference" favorites="False" /> <memberdata name="frxbandrecno" type="property" display="frxBandRecno" favorites="False" /> <memberdata name="getparentwindowref" type="method" display="getParentWindowRef" favorites="False" /> <memberdata name="getreportscopedriver" type="method" display="getReportScopeDriver" favorites="False"/><memberdata name="includeseconds" type="property" display="includeSeconds" favorites="True" /> <memberdata name="initstatustext" type="property" display="initStatusText" favorites="True" /> <memberdata name="onescapecommand" type="property" display="onEscapeCommand" favorites="False" /> <memberdata name="prepassstatustext" type="property" display="prepassStatusText" favorites="True" /> <memberdata name="reportstartrundatetime" type="property" display="reportStartRunDatetime" favorites="True" /> <memberdata name="reportstoprundatetime" type="property" display="reportStopRunDatetime" favorites="True" /> <memberdata name="resetuserfeedback" type="method" display="resetUserFeedback" favorites="False" /> <memberdata name="runstatustext" type="property" display="runStatusText" favorites="True" /> <memberdata name="secondstext" type="property" display="secondsText" favorites="True" /> <memberdata name="setescape" type="property" display="setEscape" favorites="False" /> <memberdata name="setnotifycursor" type="property" display="setNotifyCursor" favorites="False" /> <memberdata name="setthermformcaption" type="method" display="setThermformCaption" favorites="False" /> <memberdata name="thermcaption" type="property" display="thermCaption" favorites="True" /> <memberdata name="thermprecision" type="property" display="thermPrecision" favorites="True" /> <memberdata name="thermform" type="property" display="thermForm" favorites="False" /> <memberdata name="thermformcaption" type="property" display="thermFormCaption" favorites="True" /> <memberdata name="thermformheight" type="property" display="thermFormHeight" favorites="True" /> <memberdata name="thermformwidth" type="property" display="thermFormWidth" favorites="True" /> <memberdata name="thermmargin" type="property" display="thermMargin" favorites="True" /> <memberdata name="synchstatus" type="method" display="synchStatus" favorites="False" /><memberdata name="successorsys2024" type="property" display="successorSys2024" favorites="False" /></VFPData>
Name = "updatelistener"
control
pr_ctl32_progressbar.vcx
ctl32_progressbar
xmlmode 0 = data only, 1 = RDL only, 2 = data and RDL
includebreaksindata 0 = provide page band nodes positioned along with other bands in the datastream, wherever they happen to occur, 1 = no pagebreak info, no page header and footer info, 2 = collection of pages with page headers and footers data
pagenodes Holds page-level output during a report run.
currentband Holds information about the band for which output is currently being generated during a report run.
currentdocument Holds information about the XML document for which output is currently being generated during a report run.
currentpage Holds information about the page for which output is currently being generated during a report run.
columnnodes Holds column-level output during a report run.
currentcolumn Holds information about the column for which output is currently being generated during a report run.
idattribute Supplies the name of the XML attribute used to provide the FRX record number for a layout object or page number of a formatting band (column or page) object.
idrefattribute Supplies the name of the XML attribute used to provide the current page for a layout object or FRX record number of a formatting band (column or page) object.
xsltprocessorrdl Holds an RDL-specific processor object, reserved for future use.
xsltprocessoruser Holds a user-definable processor object which, if filled and available at the end of a run, can be used automatically by XML Listener to transform the raw XML document to requirements.
datanodes Holds non-formatting output (title, detail, group, and summary band objects) during a report run.
includeformattinginlayoutobjects Indicates whether formatting information such as positioning attributes should be included in the report XML.
includebandswithnoobjects Indicates whether band-level information for bands with no contents should be included in the XML.
nopageeject Indicates whether the XML Listener should consider the current report run to be continued.  Can be used without NOPAGEEJECT on the REPORT FORM command.
topattr Supplies the name of the XML attribute used to show topmost position for a layout object.
leftattr Supplies the name of the XML attribute used to show leftmost position for a layout object.
heightattr Supplies the name of the XML attribute used to show height for a layout object.
widthattr Supplies the name of the XML attribute used to show width for a layout object.
contattr Supplies the name of the attribute used to show continuation type for a layout object that can span bands or pages.
includedatasourcesinvfprdl Indicates whether information about the source tables, relations, indexes, etc should be included in the VFPRDL metadata section of the report XML.
applyusertransform Indicates whether XMLListener should automatically apply an XSLT transform at the conclusion of a report run.
xsltparameters Holds an optional parameter collection passed to the ApplyXSLT method when XMLListener automatically  applies a user XSLT transformation at the conclusion of a report run.
includepage Evaluates whether the current page is part of the output page set and should be included in the XML document result.
includedatatypeattributes Indicates whether Data Type and Text information available in EvaluateContents should be included in the XML nodes generated for Field controls.
datatypeattr Supplies the name of the XML attribute used to show the datatype of the evaluated expression for a field control layout object.
datatextattr Supplies the name of the XML attribute used to show the TRANSFORM'd value of the evaluated expression for a field control layout object.
formattingchanges Reference in which classes can store information about actions taken to apply dynamic changes to layout controls' formatting attributes, for later use during Render event.
evaluatecontentsvalues An EMPTY object reference to hold changed formatting values during Rendering.
pageimageattr Supplies the name of the XML attribute used to show the filename for an associated generated page image file.
applyrdltransform Indicates whether an RDL-Only transformation is available and should be applied to XML output after an RDL-Only report run.
successorgfxnorender Private gfxNoRender object instance used for rendering checks specific to this output target when this reportListener is a Successor.
*xmlrawtag Used to formulate the contents of an XML tag when XML Listener is writing the XML document as raw data to a file.
*xmlrawnode Used to formulate the contents of an XML element  node when XML Listener is writing the XML document as raw data to a file.
*xmlrawconv Used to convert any control characters to entity references when XML Listener is writing raw XML data to a file.
*writeraw Used to write raw XML data to a file.
*includebreaksindata_assign
*xmlmode_assign
*resetreport Resets information for a report-level node during the production of an XML document that may span multiple reports.
*applyxslt Provides generic facilities for applying XSLT to XML.
*currentdocument_assign
*idattribute_assign
*idrefattribute_assign
*xsltprocessorrdl_assign
*xsltprocessoruser_assign
*resetdocument Resets the XML document after a report run.
*verifyncname Generic method to validate strings as XML-standard NCNames.
*includeformattinginlayoutobjects_assign
*includebandswithnoobjects_assign
*verifynodenames Method called during XML Listener's augmented version of VerifyConfigTable to check all node values in the configuration table for XML validity.
*verifyattributenames Hook method called during XML Listener's augmented version of VerifyConfigTable, allowing subclasses to verify attribute names should they decide to store them in the configuration table similar to node names.
*nopageeject_assign
*loadprocessorobject Provides a generic means to load an XSLT processor object from a string representing an XSLT document or a filename.
*getrawformattinginfo Formulates the appropriate formatting attributes for an element when XMLListener is streaming XML to a file.
*topattr_assign
*leftattr_assign
*heightattr_assign
*widthattr_assign
*contattr_assign
*getvfprdlcontents Translates report definition layout metadata, from the FRX and the current report run, into an XML format useful to other applications.
*includedatasourcesinvfprdl_assign
*getpathedimageinfo Supplies a fully-pathed filename for an image file included in the report, using the original relative-path information stored in the FRX.
*applyusertransformtooutput Applies a user-specified XSLT to XML output at the conclusion of a report run.
*applyusertransform_assign
*getdefaultuserxslt Provides a hook for subclasses to supply their preferred XSLT document for use when XMLListener automatically applies XSLT at the end of a report run.
*setdomformattinginfo Formulates the appropriate formatting attributes for an element when XMLListener is using the DOM to create XML.
*synchxsltprocessoruser Can be called in the assign of any Attribute-setting property to synchronize the XSLT associated with the class witht he new attribute values.
*insertxmlconfigrecords Adds a record to the configuration table describing a default XML node when XML Listener is creating or editing a shared configuration table.
*xsltparameters_assign
*getfrxlayoutobjectfieldlist Provides fields list to the getVFPRdlContents method, in a suitable comma-delimited format for inclusion as a macro in SQL SELECT statement from FRX cursor and related Bands and Objects cursors.
*preparefrxcopy Prepares FRX alias or copy for use in creating VFP-RDL contents.
*removefrxcopy Removes FRX copy used in preparing VFP-RDL.
*adjustxsltparameter Adds, changes, or removes a parameter in the XSLT Parameter Collection, creating the collection if necessary. Params: tvValue, tsKey, tlRemoveOnly.
*getrunnodecontents Translates information dynamically generated and provided in the runCollector member into an XML format useful to other applications.
*addrunnode Adds a node to the Run portion of the XML document, looking for value results in both FRX and Report Run (Current) Data sessions.
*includedatatypeattributes_assign
*datatypeattr_assign
*datatextattr_assign
*initializeformattingchangescursor Evaluates requirements for a cursor to hold information gathered for Field layout controls during this report run and creates it if necessary.
*formatdatavalue Provides opportunity to re-format data value delivered in EvaluateContents appropriately for text/TRANSFORM'd version.
*pageimageattr_assign
*evaluatestringtoboolean Casts a string to .T. or .F..
*applyrdltransform_access
*fixmsxmlobjectfordtds Adjust MSXML document objects to load XML with embedded DTDs properly.
*frxcharsetsinuse Determine whether the FRX for a report run has layout elements with explicit charset instructions.
thermform Holds an object reference to the user feedback form.
thermformheight Holds the height of the user feedback form, in pixels.
thermformwidth Holds the width of the user feedback form, in pixels.
thermmargin Holds the value (in pixels) used to determine the difference between the size of the user feedback window and the thermometer bar it displays.
thermformcaption Holds the value used to set the title of the user feedback form.
reportstartrundatetime A datetime value indicating when the last report generation run began.
reportstoprundatetime A datetime value for use at the conclusion of a report run, empty during a report, storing when the last report generation run ended.
includeseconds Indicates whether the default user feedback message should include timing data.
secondstext Provides the text message included to describe the time value in the default user feedback message during a report, when IncludeSeconds is .T.
setnotifycursor Saves the state of SET NOTIFY CURSOR previous to the report run, for later restoration.
setescape Saves the state of SET ESCAPE previous to the report run, for later restoration.
escapereference Holds the name of a public variable used to facilitate interrupting a report run.
onescapecommand Saves the user's previous ON ESCAPE command, if any, for restoration after the report run.
thermcaption Holds an evaluated expression for use in the user feedback message shown during a report run. If this expression includes "cMessage", the contents of the argument provided to DoStatus will be included in the result of the evaluation.
initstatustext Provides the user message shown when user feedback first appears.
prepassstatustext User feedback message for use when the report is in a pre-generation pass to calculate _RECORDTOTAL.
runstatustext Provides a user message shown during the course of a report run.
percentdone Calculation of the ratio between the number of records, or pages, already generated to the number of records, or pages, in the total report.
currentrecord Holds the current record relative to the recordtotal in scope for the current report run.
drivingaliascurrentrecno Holds the RECNO() value in the cursor driving the report run, to assist in determining when to trigger a change in the user feedback.
frxbandrecno Holds the RECNO() of the band-describing record in the FRX table this class has determined is optimal for triggering a change in user feedback during a report run.
designateddriver Original selected alias for the report.
successorsys2024 Allows UpdateListener to "remember" if it has cancelled a report between the two report passes if it is in a two-pass process report, if it is a Successor.
thermprecision The number of places (precision) to use for evaluating and (by default) showing the percentage done.
*createtherm Creates and configures the "update" feedback window.
*secondstext_assign
*thermformcaption_assign
*thermformheight_assign
*thermformwidth_assign
*thermmargin_assign
*includeseconds_assign
*getparentwindowref Provides a window reference for the top form in which the user feedback window should appear.
*setthermformcaption Sets the user feedback window title using the ThermFormCaption property.
*thermcaption_assign
*initstatustext_assign
*prepassstatustext_assign
*runstatustext_assign
*resetuserfeedback Sets user feedback to an initialized state.
*getreportscopedriver Adjusts the alias driving CommandClauses.RecordTotal at the beginning of a report  when the DrivingAlias is engaged in one-to-many relationships.
*synchstatus Compares driving recno with currrently-saved information to evaluate need to update user feedback.
*thermprecision_assign
FRXDataSession = -1
lexpandfields = .F.
_memberdata =
     619<VFPData><memberdata name="storefrxdata" display="StoreFRXData"/><memberdata name="getfullfrxdata" display="GetFullFRXData"/><memberdata name="erasetempfiles" display="EraseTempFiles"/><memberdata name="updateproperties" display="UpdateProperties"/><memberdata name="lexpandfields" display="lExpandFields"/><memberdata name="getdynamicsfromfrx" display="GetDynamicsFromFRX"/><memberdata name="getprinterinfo" display="GetPrinterInfo"/><memberdata name="getstringfromxml" display="GetStringFromXML"/><memberdata name="processdynamics" display="ProcessDynamics"/><memberdata name="addtolog" display="AddToLog"/></VFPData>
Name = "dbflistener"
FRXDataSession = -1
readconfiguration = (0)
targetfileext = ("TXT")
targetfilename = (FORCEPATH(SYS(2015),SYS(2023)))
targethandle = -1
configurationobjtype = 1000
configurationtable = ("")
externalfilelocation = ("")
pageimagetype = 0
pageimageextension = ("")
currentpageimagefilename = ("")
_memberdata =
    2143<VFPData>
 <memberdata name="closetargetfile" type="method" display="closeTargetFile" favorites="False" />
 <memberdata name="configurationobjtype" type="property" display="configurationObjtype" favorites="True" />
 <memberdata name="configurationtable" type="property" display="configurationTable" favorites="False" />
 <memberdata name="createconfigtable" type="method" display="createConfigTable" favorites="True" />
 <memberdata name="getconfigtable" type="method" display="getConfigTable" favorites="True" />
 <memberdata name="opentargetfile" type="method" display="openTargetFile" favorites="False" />
 <memberdata name="readconfiguration" type="property" display="readConfiguration" favorites="True" />
 <memberdata name="setconfiguration" type="method" display="setConfiguration" favorites="True" />
 <memberdata name="targetfileext" type="property" display="targetFileExt" favorites="True" />
 <memberdata name="targetfilename" type="property" display="targetFileName" favorites="True" />
 <memberdata name="targethandle" type="property" display="targetHandle" favorites="True" />
 <memberdata name="verifyconfigtable" type="property" display="verifyConfigTable" favorites="True" />
 <memberdata name="verifytargetfile" type="method" display="verifyTargetFile" favorites="True" />
<memberdata name="externalfilelocation" type="property" display="externalFileLocation" favorites="True" />
<memberdata name="pageimagetype" type="property" display="pageImageType" favorites="True"/>
<memberdata name="getpageimageextension" type="method" display="getPageImageExtension"/>
<memberdata name="pageimageextension" type="property" display="pageImageExtension"/>
<memberdata name="generatepageimagefilename" type="method"
display="generatePageImageFileName"/>
<memberdata name="supportspageimages" type="method" display="supportsPageImages"/>
<memberdata name="outputpageimage" type="method" display="outputPageImage"/>
<memberdata name="currentpageimagefilename" display="currentPageImageFilename" type="property"/>
<memberdata name="makeexternalfilelocationreachable" display="makeExternalFileLocationReachable" type="method"/>
</VFPData>
Name = "utilityreportlistener"
B_memberdata XML Metadata for customizable properties
successorsys2024 Allows UpdateListener to "remember" if it has cancelled a report between the two report passes if it is in a two-pass process report, if it is a Successor.
currentrecord Holds the current record relative to the recordtotal in scope for the current report run.
designateddriver Original selected alias for the report.
drivingaliascurrentrecno Holds the RECNO() value in the cursor driving the report run, to assist in determining when to trigger a change in the user feedback.
escapereference Holds the name of a public variable used to facilitate interrupting a report run.
frxbandrecno Holds the RECNO() of the band-describing record in the FRX table this class has determined is optimal for triggering a change in user feedback during a report run.
includeseconds Indicates whether the default user feedback message should include timing data.
initstatustext Provides the user message shown when user feedback first appears.
onescapecommand Saves the user's previous ON ESCAPE command, if any, for restoration after the report run.
percentdone Calculation of the ratio between the number of records, or pages, already generated to the number of records, or pages, in the total report.
prepassstatustext User feedback message for use when the report is in a pre-generation pass to calculate _RECORDTOTAL.
reportstartrundatetime A datetime value indicating when the last report generation run began.
reportstoprundatetime A datetime value for use at the conclusion of a report run, empty during a report, storing when the last report generation run ended.
runstatustext Provides a user message shown during the course of a report run.
secondstext Provides the text message included to describe the time value in the default user feedback message during a report, when IncludeSeconds is .T.
thermcaption Holds an evaluated expression for use in the user feedback message shown during a report run. If this expression includes "cMessage", the contents of the argument provided to DoStatus will be included in the result of the evaluation.
thermformcaption Holds the value used to set the title of the user feedback form.
thermformheight Holds the height of the user feedback form, in pixels.
thermformwidth Holds the width of the user feedback form, in pixels.
thermmargin Holds the value (in pixels) used to determine the difference between the size of the user feedback window and the thermometer bar it displays.
setescape Saves the state of SET ESCAPE previous to the report run, for later restoration.
setnotifycursor Saves the state of SET NOTIFY CURSOR previous to the report run, for later restoration.
isrunning Indicates whether a report run is in progress.
drivingalias Stores the effective driving alias for a report from the point of view of the therm update.
thermprecision The number of places (precision) to use for evaluating and (by default) showing the percentage done.
persistbetweenruns Allows the therm window to continue to exist (maintaining its end-of-run contents) after the run of the report.  It may potentially show up on the automatic _MWINDOW list if this is turned on.
*applyfx Implements required API for an object included in the FXListener FXs collection.
*includeseconds_assign
*initstatustext_assign
*prepassstatustext_assign
*runstatustext_assign
*secondstext_assign
*thermcaption_assign
*thermformcaption_assign
*thermformheight_assign
*thermformwidth_assign
*thermmargin_assign
*getparentwindowref Provides a window reference for the top form in which the user feedback window should appear.
*getreportscopedriver Adjusts the alias driving CommandClauses.RecordTotal at the beginning of a report  when the DrivingAlias is engaged in one-to-many relationships.
*resetuserfeedback Sets user feedback to an initialized state.
*setthermformcaption Sets the user feedback window title using the ThermFormCaption property.
*synchstatus Compares driving recno with currrently-saved information to evaluate need to update user feedback.
*dostatus Delegate for ReportListener DoStatus method.
*clearstatus Delegate for ReportListener ClearStatus method.
*updatestatus Delegate for ReportListener UpdateStatus method.
*pushuserfeedbackglobalsets Handles non-session-specific user feedback SETtings and behavior.
*popuserfeedbackglobalsets Handles non-session-specific user feedback SETtings and behavior.
*synchuserinterface Set up therm form to match latest user specifications.
*setupreport Handles ReportListener's BeforeReport status preparation chores.
*thermprecision_assign
*persistbetweenruns_assign
readconfiguration Indicates the conditions under which SetConfiguration code will run. 0=never, 1 = when the class instance Init runs, 2 = when the class instance runs BeforeReport, 3 = at both Init and BeforeReport.
targetfileext Provides the default file extension for file output.
targetfilename Provides the filename to which output will be written.  A unique name is generated for the class instance, which will be overwritten for successive report runs if not adjusted by the user.
targethandle Provides a low-level file handle, to which output is written directly when the class provides raw data to the file, otherwise reserves the file during the report run so other applications don't write to it .
configurationobjtype Holds the reserved value used to indicate that a configuration table row provides dynamic configuration information at runtime.
configurationtable Holds the name of the current configuration table.
externalfilelocation Assigns a  UNC or file system path, either relative to the main output target or absolute, the file-outputting process uses for external files, such as images, it creates along with the main output target.
pageimagetype Indicates a type of image file you want generated for each output page in a report run at the conclusion of a chained report set.
pageimageextension Caches appropriate image file extension for current pageImageType.
currentpageimagefilename Provides the filename for the generated page image file for the current page during a report run, including the externalFileLocation path, which may be relative.
*readconfiguration_assign
*setconfiguration Checks the current configuration table for dynamic information in records of appropriate type, and executes these instructions if found.
*getconfigtable Assesses and provides the name of the current configuration table, optionally creating it on disk if it is not available.
*createconfigtable Creates a configuration table on demand.
*opentargetfile Initializes a file for output purposes.
*verifytargetfile Assures that the nominated filename and its network location are available at the beginning of a file-based report run.
*targetfileext_assign
*targetfilename_assign
*targethandle_assign
*closetargetfile Finalizes file output.
*verifyconfigtable Ascertains that the format and and contents of the configuration meet requirements, adjusting it if necessary.
*configurationobjtype_access
*externalfilelocation_assign
*pageimagetype_assign
*getpageimageextension Provides the appropriate file extension for the current pageImageType value.
*generatepageimagefilename Creates a filename for a generated page image file.
*supportspageimages Evaluates whether the current reporting mode supports generating page images.
*outputpageimage Use OutputPage method to create a page image file according to current report's requirements.
*currentpageimagefilename_assign
*makeexternalfilelocationreachable Checks to see if the externalFileLocation (which may be relative to the current targetfilename) exists in the current environment, adjusting if necessary when the output process determines the need to create ancillary output files along with main target.
lignoreerrors Provides a flag to determine how this class handles activities subsequent to an error.
appname Localizable application name string for use in user feedback.
isrunning Provides a flag to indicate whether a report run is underway.  When IsRunning is true, the class may wish to disallow certain activities or method calls.
lasterrormessage
isrunningreports Provides a flag to indicate this ReportListener is running a series of reports using its collection.
reportfilenames Stores the filenames of reports to be managed and executed in a series.
reportclauses Stores REPORT FORM command clauses associated with each report in the ReportFileNames collection.
listeners Collection of ReportListeners associated with each report in this Listener's ReportFileNames collection.
listenerdatasession Saves the DataSessionID in which the Listener originated.
reportusesprivatedatasession Provides a flag to indicate whether this report shares the data session from which it was executed or maintains a private data session.
issuccessor Indicates whether this Listener is chained to one or more others to provide output during a report run.  When .T., this Listener was not the object referenced in the REPORT FORM command OBJECT clauses.
successor An object reference to the next Listener in a succession chain.
sharedgdiplusgraphics Provides a readwrite copy of the the Engine's GDIPlusGraphics handle which the Listener can share with a succession chain.
sharedpageheight Shares information gathered by the GetPageHeight method with other Listeners linked in a succession chain.
sharedpagewidth Shares information gathered by the GetPageWidth method with other Listeners linked in a succession chain.
drivingalias Holds the alias of the table or cursor driving the report scope.
_memberdata XML Metadata for customizable properties
sharedoutputpagecount Provides a readwrite copy of the the Engine's OutputPageCount property which the Listener can share with a succession chain.
sharedpageno Provides a readwrite copy of the the Engine's PageNo property which the Listener can share with a succession chain.
sharedpagetotal Provides a readwrite copy of the the Engine's PageTotal property which the Listener can share with a succession chain.
pagelimit If > 0, represents the highest number of pages allowed in a report run (potentially across multiple reports using NOPAGEEJECT).  Especially useful for ListenerTypes 1 and 3, to avoid GDI resource issues, but can provide abbreviated results for any type
pagetoplimit If > 0, represents the highest number of pages for "top" section of report run (potentially across multiple reports using NOPAGEEJECT).   Use with pageTailLimit or alone. No user feedback provided.
pagetaillimit If > 0, represents the lowest number of pages for "tail" section of report run (potentially across multiple reports using NOPAGEEJECT).   Use with pageTopLimit or alone. No user feedback provided.
pagelimitquietmode Indicates whether the class provides user feedback when the report results are limited because the run exceeded the specified pageLimit.
pagelimitinsiderange If .T., indicates that pageTopLimit and pageTailLimit provide an inside range rather than beginning and end of report contents.  Makes pageTopLimit and pageTailLimit similar to RANGE clause, but active over multiple reports with NOPAGEEJECT.
runcollector Placeholder available to hold extension output generated during a report run. Property may contain an alias for a cursor holding property names and values, a collection object reference, or an empty-type object reference.
frxheaderrecno Stores the header record number for the Windows platform in cross-platform FRXs.
sharedlistenertype Provides a readwrite copy of the the Engine's ListenerType property which the Listener can share with a succession chain.
commandclausesfile Allows saving and restoring of the original CommandClauses.File value by any derived class that permits dynamic FRX-fileswapping during LoadReport.
haderror Provides a flag indicating whether an error occurred.
*allowmodalmessages_assign
*lignoreerrors_assign
*prepareerrormessage Organizes common error information values (nError, cMethod, nLine, cName, cMessage, cCodeLine) into a coherent string for presentation to the user.
*pushglobalsets Provides a hook for Listeners to save global settings not scoped to a data session for later restoration with PopGlobalSets.
*popglobalsets Provides a hook for Listeners to restore global settings not scoped to a data session after saving them with PushGlobalSets.
*clearerrors Resets the class's error status.
*getlasterrormessage Provides information about the last error that occurred.
*addreport Adds to the class's collection of ReportFileNames, optionally associating REPORT FORM clauses and a listener for the specified report.
*removereports Removes report filenames as well as associated clauses and listeners from this Listeners' various collections.
*runreports Executes a series of REPORT FORM commands according to the instructions in the ReportFileNames, ReportClauses, and Listeners collections.  Optionally clears collection after run and issues the REPORT FORM commands without OBJECTreferences.
*setfrxdatasessionenvironment Provides a hook for classes to determine the datasession-scoped SETs they wish to add to the private FRX data session.
^reportpages[1,0] Holds accumulated page count  info when this class runs a collection of reports as a series. Can be used in report expressions or checked after a report run (if .removeReports has not been called).  Set in adjustReportPagesInfo.
*invokeoncurrentpass Provides a hook for listeners to evaluate whether they wish to generate output or perform other actions during the current report execution pass.
*resetdatasession Sets the DataSessionID to the session where the Listener originated.
*setfrxdatasession Sets the DataSessionID to the data session in which the Engine has opened a readonly copy of the report file as a table for the Listener's use.
*setcurrentdatasession Sets the DataSessionID to the data session holding report's data tables.
*quietmode_assign
*issuccessor_assign
*successor_assign
*getfrxstartupinfo Provides a hook for gathering FRX information during BeforeReport method processing.
*setsuccessordynamicproperties Provides a hook for the Listener to share information changed by the Engine with a succession of Listeners, during the run of a report.
*appname_assign
*sharedgdiplusgraphics_assign
*sharedpageheight_assign
*sharedpagewidth_assign
*listenertype_assign
*outputtype_assign
*sharedoutputpagecount_assign Provides a readwrite copy of the the Engine's OutputPageCount property which the Listener can share with a succession chain.
*sharedpageno_assign
*sharedpagetotal_assign
*setfrxrunstartupconditions Hook method called in BeforeReport, allowing you to set up CommandClauses properties or other attributes required by your class.
*pagelimit_assign
*pagetoplimit_assign
*pagetaillimit_assign
*pagelimitquietmode_assign
*pagelimitinsiderange_assign
*resetdynamicmethodcalls Evaluates whether AdjustObjectSize and EvaluateContents methods should be called for a report run, for this reportlistener's activity or as requested by Successor chain.
*resetcalladjustobjectsize Evaluates whether this reportlistener's activity requires calls to AdjustObjectSize method for any layout controls on this report run.
*resetcallevaluatecontents Evaluates whether this reportlistener's activity requires calls to EvaluateContents method for any layout controls on this report run.
*resetruncollector Abstract method to clean up runCollector object at whatever point is appropriate in a given implementation.
*fillruncollector Abstract method to set up up runCollector object with contents at whatever point is appropriate in a given implementation.
*sharedlistenertype_assign
*commandclausesfile_assign
*preparefrxswapcopy Provides an FRX copy on disk, in the same path/location as the original FRX if possible to support relative file references, for use during a report run.  Returns fully-qualified temporary file name it generates for the copy.
*removefrxswapcopy Removes an FRX file and its matching FRT file from disk, if present.
*isfrxswapcopypresent Indicates whether the original CommandClauses.File value has been swapped for a temporary copy during a report run.
*adjustreportpagesinfo Hook to allow subclasses to decide how to associate the page numbers for each report in a collection with the member array representing page numbers, during the runReports method.
*shellexec
BorderStyle = 2
Height = 40
Width = 356
DoCreate = .T.
AutoCenter = .T.
Caption = "ThermForm"
ControlBox = .F.
HalfHeightCaption = .T.
MaxButton = .F.
MinButton = .F.
AlwaysOnTop = .T.
AllowOutput = .F.
_memberdata =
    3665<VFPDATA><memberdata name="applyfx" display="applyFX" type="method"/>
<memberdata name="percentdone" type="property" display="percentDone" favorites="False" /> <memberdata name="currentrecord" type="property" display="currentRecord" favorites="False" /><memberdata name="designateddriver" type="property" display="designatedDriver" favorites="False" /> <memberdata name="drivingaliascurrentrecno" type="property" display="drivingAliasCurrentRecno" favorites="False" /> <memberdata name="escapereference" type="property" display="escapeReference" favorites="False" /> <memberdata name="frxbandrecno" type="property" display="frxBandRecno" favorites="False" /> <memberdata name="getparentwindowref" type="method" display="getParentWindowRef" favorites="False" /> <memberdata name="getreportscopedriver" type="method" display="getReportScopeDriver" favorites="False"/><memberdata name="includeseconds" type="property" display="includeSeconds" favorites="True" /> <memberdata name="initstatustext" type="property" display="initStatusText" favorites="True" /> <memberdata name="onescapecommand" type="property" display="onEscapeCommand" favorites="False" /> <memberdata name="prepassstatustext" type="property" display="prepassStatusText" favorites="True" /> <memberdata name="reportstartrundatetime" type="property" display="reportStartRunDatetime" favorites="True" /> <memberdata name="reportstoprundatetime" type="property" display="reportStopRunDatetime" favorites="True" /> <memberdata name="resetuserfeedback" type="method" display="resetUserFeedback" favorites="False" /> <memberdata name="runstatustext" type="property" display="runStatusText" favorites="True" /> <memberdata name="secondstext" type="property" display="secondsText" favorites="True" /> <memberdata name="setescape" type="property" display="setEscape" favorites="False" /> <memberdata name="setnotifycursor" type="property" display="setNotifyCursor" favorites="False" /> <memberdata name="setthermformcaption" type="method" display="setThermformCaption" favorites="False" /> <memberdata name="thermcaption" type="property" display="thermCaption" favorites="True" /> <memberdata name="thermform" type="property" display="thermForm" favorites="False" /> <memberdata name="thermformcaption" type="property" display="thermFormCaption" favorites="True" /> <memberdata name="thermformheight" type="property" display="thermFormHeight" favorites="True" /> <memberdata name="thermformwidth" type="property" display="thermFormWidth" favorites="True" />
<memberdata name="thermprecision" type="property" display="thermPrecision" favorites="True" /> <memberdata name="thermmargin" type="property" display="thermMargin" favorites="True" /> <memberdata name="synchstatus" type="method" display="synchStatus" favorites="False" /><memberdata name="successorsys2024" type="property" display="successorSys2024" favorites="False" /><memberdata name="dostatus" type="method" display="doStatus" favorites="True" /><memberdata name="clearstatus" type="method" display="clearStatus" favorites="True" /><memberdata name="updatestatus" type="method" display="updateStatus" favorites="True" /><memberdata name="pushuserfeedbackglobalsets" display="pushUserFeedbackGlobalSets" type="method"/><memberdata name="popuserfeedbackglobalsets" display="popUserFeedbackGlobalSets" type="method"/><memberdata name="synchuserinterface" display="synchUserInterface" type="method"/><memberdata name="setupreport" type="method" display="setupReport"/><memberdata name="drivingalias" type="method" display="drivingAlias"/><memberdata name="persistbetweenruns" display="persistBetweenRuns" type="property" favorites="True"/>
</VFPDATA>
successorsys2024 = ("N")
currentrecord = (0)
designateddriver = ("")
drivingaliascurrentrecno = (0)
escapereference = ("")
frxbandrecno = (0)
includeseconds = .T.
initstatustext = ("")
onescapecommand = ("")
percentdone = (0)
prepassstatustext = ("")
reportstartrundatetime = (DTOT({}))
reportstoprundatetime = (DTOT({}))
runstatustext = ("secs")
secondstext = ("")
thermcaption =
     284[m.cMessage+ " "+ TRANSFORM(THIS.PercentDone,"999"+IIF(THIS.ThermPrecision=0,"","."+REPL("9",THIS.ThermPrecision))) + "%" + IIF(NOT THIS.IncludeSeconds, "" , " "+TRANSFORM(IIF(THIS.IsRunning,DATETIME(), THIS.ReportStopRunDateTime)-THIS.ReportStartRunDateTime)+" " + THIS.SecondsText)]
thermformcaption = ("")
thermformheight = (40)
thermformwidth = (356)
thermmargin = (5)
setescape = .F.
setnotifycursor = .F.
isrunning = .F.
drivingalias = ("")
thermprecision = (2)
persistbetweenruns = .F.
Name = "fxtherm"
+tPROCEDURE dodebug
LPARAMETERS m.p0, m.pcount, m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
IF THIS.TargetHandle > 0
   LOCAL m.liIndex, m.loObj, m.lvParam, m.liObjIndex, m.liMembers, laMembers[1]
   FWRITE( THIS.TargetHandle, m.p0 )
   FOR m.liIndex = 1 TO m.pcount
      m.lvParam = EVAL("p"+TRANS(liIndex))
      IF THIS.Verbose AND VARTYPE(m.lvParam) = "O"
         m.liMembers = AMEMBERS(laMembers, m.lvParam) && ,0,"G"
         FOR m.liIndex = 1 TO m.liMembers
            IF TYPE("lvParam."+laMembers[m.liIndex]) # "U"
               FWRITE(THIS.TargetHandle, ;
                  ",Obj."+laMembers[m.liIndex]+"="+TRANSFORM(EVAL("lvParam."+laMembers[m.liIndex])) )
            ENDIF

         ENDFOR
      ELSE
         FWRITE(THIS.TargetHandle, ","+TRANSF(m.lvParam))
      ENDIF
   ENDFOR
   FPUTS(THIS.TargetHandle, "")
   IF THIS.Verbose
      THIS.setCurrentDataSession()
      FWRITE(THIS.TargetHandle, ;
          "Listener.PageNo=" + IIF(THIS.sharedPageNo=0,;
                                   TRANSFORM(THIS.PageNo),  ;
                                   TRANSFORM(THIS.sharedPageNo))+ ", " + ;
          "_PAGENO="+TRANSFORM(_PAGENO))
      IF (NOT EMPTY(THIS.DrivingAlias)) AND USED(THIS.DrivingAlias)
         FWRITE(THIS.TargetHandle, ", " + THIS.DrivingAlias + " recno=" + TRANSFORM(RECNO(THIS.Drivingalias)))
      ENDIF

      IF NOT EMPTY(THIS.TargetAlias)

         FWRITE(THIS.TargetHandle, ", TargetAlias=" + THIS.TargetAlias + ", targetRecno=" + TRANSFORM(RECNO(THIS.TargetAlias)))

      ENDIF
      FPUTS(THIS.TargetHandle, "")
      THIS.resetDataSession()
   ENDIF
   FFLUSH(THIS.targetHandle)
ENDIF
ENDPROC
PROCEDURE dodebugcommandclauses
LPARAMETERS m.tvCommand, m.tcHeader
IF VARTYPE(m.tvCommand) = "O" AND THIS.TargetHandle > 0
   LOCAL m.liIndex, laMembers[1], m.liMembers
   FPUTS( THIS.TargetHandle, REPL("-",30) )
   FPUTS( THIS.TargetHandle, "MEMBERS:" )
   m.liMembers = AMEMBERS(laMembers, THIS) && ,0,"G"
   FOR m.liIndex = 1 TO m.liMembers
      IF TYPE("THIS."+laMembers[m.liIndex]) # "U"
         FPUTS(THIS.TargetHandle, "."+laMembers[m.liIndex]+"="+TRANSFORM(EVAL("THIS."+laMembers[m.liIndex])) )
      ENDIF
   ENDFOR
   FPUTS( THIS.TargetHandle, REPL("-",30) )
   FPUTS( THIS.TargetHandle, tcHeader )

   m.liMembers = AMEMBERS(laMembers, m.tvCommand)
   IF m.liMembers = 0
      FPUTS(THIS.TargetHandle, "... NO MEMBERS")
   ELSE
      FOR m.liIndex = 1 TO m.liMembers
        FPUTS(THIS.TargetHandle, "."+laMembers[m.liIndex]+"="+TRANSFORM(EVAL("tvCommand."+laMembers[m.liIndex])) )
      ENDFOR

   ENDIF
   FPUTS( THIS.TargetHandle, REPL("-",30) )
   FFLUSH(THIS.targetHandle)
ENDIF
ENDPROC
PROCEDURE verbose_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L"
   THIS.Verbose = m.vNewVal
ENDIF
ENDPROC
PROCEDURE OutputPage
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
    m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
ENDPROC
PROCEDURE IncludePageInOutput
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
    m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
RETURN DODEFAULT(m.p1)
ENDPROC
PROCEDURE EvaluateContents
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
DODEFAULT(m.p1, m.p2)
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
    m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
ENDPROC
PROCEDURE CancelReport
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
     m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
DODEFAULT()
ENDPROC
PROCEDURE UnloadReport
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
IF THIS.includeLoadAndUnload
   LOCAL lcProgram
   lcProgram = PROGRAM()
   THIS.DoDebug(lcProgram, PCOUNT(),;
        m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
   THIS.DoDebugCommandClauses(THIS.CommandClauses,m.lcProgram+ " current CommandClauses")
ENDIF
IF THIS.TargetHandle > 0 AND (NOT THIS.CommandClauses.NoPageEject)
   THIS.CloseTargetFile()
   IF NOT THIS.QuietMode
      MODI FILE (THIS.Targetfilename) NOWAIT
   ENDIF
ENDIF
DODEFAULT()
ENDPROC
PROCEDURE LoadReport
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
DODEFAULT()
IF THIS.IncludeLoadandUnload
  IF THIS.TargetHandle = -1
     THIS.OpenTargetFile()
  ENDIF
  THIS.DoDebug(PROGRAM(), PCOUNT(), ;
      m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
  THIS.DoDebugCommandClauses(THIS.CommandClauses,PROGRAM()+ " received CommandClauses")
ENDIF
ENDPROC
PROCEDURE WriteMethod
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
     m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
ENDPROC
PROCEDURE WriteExpression
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
     m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
ENDPROC
PROCEDURE UpdateStatus
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
     m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
DODEFAULT()
ENDPROC
PROCEDURE SupportsListenerType
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
    m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
ENDPROC
PROCEDURE SaveAsClass
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
    m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
ENDPROC
PROCEDURE ResetToDefault
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
    m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
ENDPROC
PROCEDURE ReadMethod
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
     m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
ENDPROC
PROCEDURE ReadExpression
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
     m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
ENDPROC
PROCEDURE OnPreviewClose
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
    m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
ENDPROC
PROCEDURE ClearStatus
LPARAMETERS m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
    m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
DODEFAULT()
ENDPROC
PROCEDURE Render
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
IF DODEFAULT( m.p1, @m.p2, @m.p3, @m.p4, @m.p5, @m.p6, @m.p7,@m.p8) #  OUTPUTFX_BASERENDER_NORENDER
    THIS.DoDebug(PROGRAM(), PCOUNT(), ;
        m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
ENDIF
ENDPROC
PROCEDURE DoStatus
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
     m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
DODEFAULT(m.p1)
ENDPROC
PROCEDURE BeforeBand
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
    m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
DODEFAULT(m.p1, m.p2)
IF THIS.Verbose
   THIS.TargetAlias = ""
   IF m.p1 = FRX_OBJCOD_DETAIL
      THIS.SetFRXDataSession()
      GO m.p2 IN FRX
      IF NOT EMPTY(FRX.Expr)
         THIS.TargetAlias = UPPER(EVALUATE(FRX.Expr))
      ENDIF
      THIS.resetDataSession()
   ENDIF
ENDIF
ENDPROC
PROCEDURE AfterBand
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
     m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
DODEFAULT(m.p1, m.p2)
ENDPROC
PROCEDURE AdjustObjectSize
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
DODEFAULT(m.p1, m.p2)
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
     m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
ENDPROC
PROCEDURE AddProperty
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
THIS.DoDebug(PROGRAM(), PCOUNT(), ;
             m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
ENDPROC
PROCEDURE AfterReport
LPARAMETERS  m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
LOCAL m.lcProgram
m.lcProgram = PROGRAM()
THIS.DoDebug(m.lcProgram, PCOUNT(), ;
   m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
THIS.DoDebugCommandClauses(THIS.CommandClauses,m.lcProgram+ " current CommandClauses")
IF NOT (THIS.IncludeLoadAndUnload OR THIS.CommandClauses.NoPageEject)
   THIS.CloseTargetFile()
   IF NOT THIS.QuietMode
      MODI COMM (THIS.TargetFileName) NOWAIT
   ENDIF
ENDIF
DODEFAULT()
ENDPROC
PROCEDURE BeforeReport
LPARAMETERS m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12
   LOCAL m.lcProgram
   m.lcProgram = PROGRAM()
   DODEFAULT()
   IF THIS.Verbose
      THIS.setCurrentDataSession()
   ENDIF
   IF THIS.TargetHandle = -1
      THIS.OpenTargetFile()
   ENDIF
  THIS.DoDebug(PROGRAM(), PCOUNT(), ;
       m.p1, m.p2, m.p3, m.p4, m.p5, m.p6, m.p7, m.p8, m.p9, m.p10, m.p11, m.p12)
  THIS.DoDebugCommandClauses(THIS.CommandClauses,m.lcProgram+ " received CommandClauses")
   IF THIS.verbose
      THIS.resetDataSession()
   ENDIF
ENDPROC
PROCEDURE opentargetfile
IF WEXIST(JUSTSTEM(THIS.targetFileName))
   * because of the MODI FILE NOWAIT,
   * generate a new filename:
   THIS.targetFileName = SYS(2015)
ENDIF
DODEFAULT()
ENDPROC
PROCEDURE Init
IF DODEFAULT()
   THIS.AppName = OUTPUTCLASS_APPNAME_LOC
   RETURN NOT THIS.hadError
   RETURN .F.
ENDIF
ENDPROC
o_memberdata XML Metadata for customizable properties
successorsys2024 Allows UpdateListener to "remember" if it has cancelled a report between the two report passes if it is in a two-pass process report, if it is a Successor.
currentrecord Holds the current record relative to the recordtotal in scope for the current report run.
designateddriver Original selected alias for the report.
drivingaliascurrentrecno Holds the RECNO() value in the cursor driving the report run, to assist in determining when to trigger a change in the user feedback.
escapereference Holds the name of a public variable used to facilitate interrupting a report run.
frxbandrecno Holds the RECNO() of the band-describing record in the FRX table this class has determined is optimal for triggering a change in user feedback during a report run.
includeseconds Indicates whether the default user feedback message should include timing data.
initstatustext Provides the user message shown when user feedback first appears.
onescapecommand Saves the user's previous ON ESCAPE command, if any, for restoration after the report run.
percentdone Calculation of the ratio between the number of records, or pages, already generated to the number of records, or pages, in the total report.
prepassstatustext User feedback message for use when the report is in a pre-generation pass to calculate _RECORDTOTAL.
reportstartrundatetime A datetime value indicating when the last report generation run began.
reportstoprundatetime A datetime value for use at the conclusion of a report run, empty during a report, storing when the last report generation run ended.
runstatustext Provides a user message shown during the course of a report run.
secondstext Provides the text message included to describe the time value in the default user feedback message during a report, when IncludeSeconds is .T.
thermcaption Holds an evaluated expression for use in the user feedback message shown during a report run. If this expression includes "cMessage", the contents of the argument provided to DoStatus will be included in the result of the evaluation.
thermformcaption Holds the value used to set the title of the user feedback form.
thermformheight Holds the height of the user feedback form, in pixels.
thermformwidth Holds the width of the user feedback form, in pixels.
thermmargin Holds the value (in pixels) used to determine the difference between the size of the user feedback window and the thermometer bar it displays.
setescape Saves the state of SET ESCAPE previous to the report run, for later restoration.
setnotifycursor Saves the state of SET NOTIFY CURSOR previous to the report run, for later restoration.
isrunning Indicates whether a report run is in progress.
drivingalias Stores the effective driving alias for a report from the point of view of the therm update.
thermprecision The number of places (precision) to use for evaluating and (by default) showing the percentage done.
persistbetweenruns Allows the therm window to continue to exist (maintaining its end-of-run contents) after the run of the report.  It may potentially show up on the automatic _MWINDOW list if this is turned on.
ndelay
*applyfx Implements required API for an object included in the FXListener FXs collection.
*includeseconds_assign
*initstatustext_assign
*prepassstatustext_assign
*runstatustext_assign
*secondstext_assign
*thermcaption_assign
*thermformcaption_assign
*thermformheight_assign
*thermformwidth_assign
*thermmargin_assign
*getparentwindowref Provides a window reference for the top form in which the user feedback window should appear.
*getreportscopedriver Adjusts the alias driving CommandClauses.RecordTotal at the beginning of a report  when the DrivingAlias is engaged in one-to-many relationships.
*resetuserfeedback Sets user feedback to an initialized state.
*setthermformcaption Sets the user feedback window title using the ThermFormCaption property.
*synchstatus Compares driving recno with currrently-saved information to evaluate need to update user feedback.
*dostatus Delegate for ReportListener DoStatus method.
*clearstatus Delegate for ReportListener ClearStatus method.
*updatestatus Delegate for ReportListener UpdateStatus method.
*pushuserfeedbackglobalsets Handles non-session-specific user feedback SETtings and behavior.
*popuserfeedbackglobalsets Handles non-session-specific user feedback SETtings and behavior.
*synchuserinterface Set up therm form to match latest user specifications.
*setupreport Handles ReportListener's BeforeReport status preparation chores.
*thermprecision_assign
*persistbetweenruns_assign
*createtherm
*bringwindowtofront
FRXDataSession = -1
QuietMode = .F.
noutfile = -1
npagewidth = 0
npageheight = 0
nscreendpi = 0
ldebug = .F.
ctargetfilename =
oactivelistener = .NULL.
ldefaultmode = .F.
nimgcounter = 0
nx0 = 0
ny0 = 0
nw0 = 0
nh0 = 0
_ctempfolder = .F.
oimages =
cexternalfilelocation =
lcopyimagefilestoexternalfilelocation = .T.
lobjtypemode = .F.
lopenviewer = .F.
targetfilename = .F.
_memberdata = <VFPData><memberdata name="prepareoutput" display="PrepareOutput"/><memberdata name="lobjtypemode" display="lObjTypeMode"/><memberdata name="lopenviewer" display="lOpenViewer"/><memberdata name="targetfilename" display="TargetFileName"/></VFPData>
Name = "pr_htmllistener15"
noutfile
npagewidth
npageheight
nscreendpi
ldebug
ctargetfilename
oactivelistener
ldefaultmode
nimgcounter
_ctempfolder
oimages
cexternalfilelocation
lcopyimagefilestoexternalfilelocation
lobjtypemode
lopenviewer
targetfilename
*outputfromdata
*getbandname
*getfontstyle
*rgbtohex
*getcontinuationtype
*getpageimg
*getpicturefromlistener
*processimages
*processtext
*processlines
*processshapes
*getlinescnt
*cropimage
^apagesimgs[1,0]
*renderhtml
*prepareoutput
%Height = 23
Width = 23
FRXDataSession = -1
AllowModalMessages = (INLIST(_VFP.Startmode, 0, 4))
QuietMode = (NOT INLIST(_VFP.Startmode, 0, 4))
appname = ("VFP Report Listener")
lasterrormessage = ("")
reportfilenames = (NULL)
reportclauses = (NULL)
listeners = (NULL)
listenerdatasession = 1
successor = (NULL)
sharedgdiplusgraphics = 0
sharedpageheight = 0
sharedpagewidth = 0
drivingalias = ("")
_memberdata =
    5169<VFPData><memberdata name="addreport" type="method" display="addReport" favorites="True"/><memberdata name="appname" type="property" display="appName" favorites="True"/><memberdata name="clearerrors" type="method" display="clearErrors" favorites="True"/><memberdata name="drivingalias" type="property" display="drivingAlias" favorites="False"/><memberdata name="getfrxstartupinfo" type="method" display="getFRXStartupInfo" favorites="False"/><memberdata name="getlasterrormessage" type="method" display="getLastErrorMessage" favorites="True"/><memberdata name="invokeoncurrentpass" type="method" display="invokeOnCurrentPass" favorites="True"/><memberdata name="isrunning" type="property" display="isRunning" favorites="False"/><memberdata name="isrunningreports" type="property" display="isRunningReports" favorites="False"/><memberdata name="issuccessor" type="property" display="isSuccessor" favorites="True"/><memberdata name="lasterrormessage" type="property" display="lastErrorMessage" favorites="False"/><memberdata name="lignoreerrors" type="property" display="lIgnoreErrors" favorites="False"/><memberdata name="listeners" type="property" display="listeners" favorites="False"/><memberdata name="popglobalsets" type="method" display="popGlobalSets" favorites="False"/><memberdata name="prepareerrormessage" type="method" display="prepareErrorMessage" favorites="True"/><memberdata name="pushglobalsets" type="method" display="pushGlobalSets" favorites="False"/><memberdata name="removereports" type="method" display="removeReports" favorites="True"/><memberdata name="reportclauses" type="property" display="reportClauses" favorites="False"/><memberdata name="reportfilenames" type="property" display="reportFilenames" favorites="False"/><memberdata name="reportpages" type="property" display="reportPages" favorites="False"/><memberdata name="reportusesprivatedatasession" type="property" display="reportUsesPrivateDataSession" favorites="True"/><memberdata name="resetdatasession" type="method" display="resetDataSession" favorites="False"/><memberdata name="runreports" type="method" display="runReports" favorites="True"/><memberdata name="setcurrentdatasession" type="method" display="setCurrentDataSession" favorites="False"/><memberdata name="setfrxdatasession" type="method" display="setFRXDataSession" favorites="False"/><memberdata name="setfrxdatasessionenvironment" type="method" display="setFRXDataSessionEnvironment" favorites="False"/><memberdata name="setsuccessordynamicproperties" type="method" display="setSuccessorDynamicProperties" favorites="True"/><memberdata name="sharedgdiplusgraphics" type="property" display="sharedGdiplusGraphics" favorites="True"/><memberdata name="sharedpagetotal" type="property" display="sharedPageTotal" favorites="True"/><memberdata name="sharedoutputpagecount" type="property" display="sharedOutputPageCount" favorites="True"/><memberdata name="sharedpageno" type="property" display="sharedPageNo" favorites="True"/><memberdata name="sharedpageheight" type="property" display="sharedPageHeight" favorites="True"/><memberdata name="sharedpagewidth" type="property" display="sharedPageWidth" favorites="True"/><memberdata name="listenerdatasession" type="property" display="listenerDataSession" favorites="False"/><memberdata name="successor" type="property" display="successor" favorites="True"/><memberdata name="setfrxrunstartupconditions" type="method" display="setFRXRunStartupConditions"/><memberdata name="pagelimit" type="property" display="pageLimit" favorites="True"/><memberdata name="pagetoplimit" type="property" display="pageTopLimit" favorites="True"/><memberdata name="pagetaillimit" type="property" display="pageTailLimit" favorites="True"/><memberdata name="pagelimitquietmode" type="property" display="pageLimitQuietMode" favorites="True"/><memberdata name="pagelimitinsiderange" type="property" display="pageLimitInsideRange" favorites="True"/><memberdata name="resetdynamicmethodcalls" type="method" display="resetDynamicMethodCalls"/><memberdata name="resetcallevaluatecontents" type="method" display="resetCallEvaluateContents"/><memberdata name="resetcalladjustobjectsize" type="method" display="resetCallAdjustObjectSize"/><memberdata name="runcollector" display="runCollector" type="property" favorites="True"/><memberdata name="resetruncollector" display="resetRunCollector" type="method"/><memberdata name="fillruncollector" display="fillRunCollector" type="method"/><memberdata name="frxheaderrecno" display="frxHeaderRecno" type="property"/><memberdata name="sharedlistenertype" display="sharedListenerType" type="property"/><memberdata name="commandclausesfile" display="commandClausesFile" type="property" favorites="True"/><memberdata name="preparefrxswapcopy" display="prepareFRXSwapCopy" type="method"/><memberdata name="removefrxswapcopy" display="removeFRXSwapCopy" type="method"/>
    <memberdata name="isfrxswapcopypresent" display="isFRXSwapCopyPresent" type="method"/>
    <memberdata name="adjustreportpagesinfo" display="adjustReportPagesInfo" type="method"/>
    <memberdata name="haderror" display="hadError"/><memberdata name="shellexec" display="ShellExec"/></VFPData>
sharedoutputpagecount = 0
sharedpageno = 0
sharedpagetotal = 0
pagelimit = -1
pagetoplimit = -1
pagetaillimit = -1
pagelimitquietmode = .F.
pagelimitinsiderange = .F.
runcollector = (NULL)
frxheaderrecno = 1
sharedlistenertype = -1
commandclausesfile = .NULL.
haderror = .F.
Name = "_reportlistener"
PROCEDURE omitrendering
LPARAMETERS m.toListener, m.tcExpr
LOCAL m.llNoRender, m.liSession
IF VARTYPE(m.tcExpr) = "C"
   m.liSession = SET("DATASESSION")
   THIS.listener = m.toListener
   SET DATASESSION TO m.toListener.CurrentDataSession
   IF TYPE(m.tcExpr) = "L"
      m.llNoRender = EVALUATE(m.tcExpr)
      SET DATASESSION TO m.toListener.FRXDataSession
   ELSE
      SET DATASESSION TO m.toListener.FRXDataSession
      IF TYPE(m.tcExpr) = "L"
         m.llNoRender = EVALUATE(m.tcExpr)
     ENDIF
   ENDIF
   THIS.listener = NULL
   SET DATASESSION TO (m.liSession)
ENDIF
RETURN m.llNoRender
ENDPROC
PROCEDURE applyfx
LPARAMETERS m.toListener, m.tcMethodToken, ;
            m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, m.tP6, ;
            m.tP7, m.tP8, m.tP9, m.tP10, m.tP11, m.tP12
LOCAL m.liSession, m.liSelect, m.liFRXRecno, m.liReturn, ;
      m.llNoRender, m.llSwap, m.lcConditions, m.err AS Exception
m.liReturn = OUTPUTFX_DEFAULT_RENDER_BEHAVIOR
DO CASE
CASE m.tcMethodToken == "RENDER" AND ;
   NOT ISNULL(m.toListener.FFCGraphics)
   TRY
      m.liSession = SET("DATASESSION")
      SET DATASESSION TO m.toListener.FRXDataSession
      m.liSelect = SELECT(0)
      IF USED(THIS.noRenderDataAlias)
         SELECT (THIS.noRenderDataAlias)
         m.liFRXRecno =  m.toListener.getFRXRecno(m.tcMethodToken,m.tP1, m.tP2)
         LOCATE FOR FrxRecno = m.liFRXRecno AND PreProcess
         * there won't be any if it's a Sedna-type build, unless it was a built-in report
         * to another app and we couldn't make the swap.
         IF FOUND()
            m.llNoRender = THIS.omitRendering(m.toListener, ALLTRIM(Execute))
         ENDIF
         IF NOT (m.llNoRender)
            * rendering override for this instance in the report
            LOCATE FOR FrxRecno = m.liFRXRecno AND NOT PreProcess
            IF FOUND()
               m.llNoRender = THIS.omitRendering(m.toListener, ALLTRIM(Execute))
            ENDIF
         ENDIF
         IF m.llNoRender
            m.liReturn = OUTPUTFX_BASERENDER_NORENDER
         ENDIF
      ENDIF
   CATCH TO m.err
      #IF OUTPUTCLASS_DEBUGGING
         m.toListener.DoMessage(m.err.Message)
      #ELSE
         * could expose this error but won't,
         * we'll just swallow it
         * code line here for suspend capabilities
         m.liReturn = m.liReturn
      #ENDIF
   FINALLY
       SELECT (m.liSelect)
       SET DATASESSION TO (m.liSession)
   ENDTRY
CASE m.tcMethodToken == "LOADREPORT" AND ;
    VERSION(4) > "09.00.0000.3504" AND ;
   (NOT m.toListener.CommandClauses.IsDesignerLoaded) AND ;
   FILE(m.toListener.CommandClauses.File)
    * We can't do this in a design session because
    * of the Designer's lock on the original file.
    * We also can't do this in SP1 or below,
    * or when the report is built in to a different app.
    * (Note the use of FILE() rather than SYS(2000) here,
    * it's okay if it's not on disk.)
    * We will still handle this at render time if we can't make the swap;
    * (we just won't get the performance benefits of preprocess-deletion)
   TRY
      m.liSession = SET("DATASESSION")
      SET DATASESSION TO m.toListener.FRXDataSession
      m.liSelect = SELECT(0)
      * nb: this is before memberdata is normally available.
      SELECT 0

      USE (m.toListener.CommandClausesFile) ;
          AGAIN NOUPDATE SHARED ALIAS  FRX
      m.toListener.FRXCursor.UnpackFrxMemberData("FRX",;
                   m.toListener.MemberDataAlias, m.toListener.FRXDataSession)
      USE IN FRX
      IF USED(m.toListener.MemberDataAlias)
         SELECT (m.toListener.MemberDataAlias)
         LOCATE FOR Type = FRX_BLDR_MEMBERDATATYPE AND ;
                    Name == FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
                    ExecWhen == FRX_BLDR_ADVPROP_PREPROCESS_NORENDER AND ;
                    NOT EMPTY(Execute)
         IF FOUND()
            * check to see if we are already working on
            * a temporary report.
            IF (NOT m.toListener.isFRXSwapCopyPresent())
               * must perform the swap, storing
               * CommandClauses.File for later use
               m.llSwap = .T.
               m.toListener.prepareFRXSwapCopy(,,.T.)
            ENDIF
            * After creating swap report or ascertaining that
            * we are already working with a temp report,
            * delete the items in that report as required.
            * BUT FIRST make sure the swap went through as planned.
            IF m.llSwap AND ;
               (EMPTY(m.toListener.CommandClauses.File) OR ;
                EMPTY(SYS(2000,m.toListener.CommandClauses.File)))
               m.llSwap = .F.
               m.toListener.CommandClauses.File = ;
                 m.toListener.commandClausesFile
            ENDIF
            * now if we're positive we're in the right place
            * and that we have possible memberdata content
            * we can start deleting records out of the swap copy:
            IF USED(m.toListener.MemberDataAlias) AND ;
               NOT (m.toListener.CommandClauses.File == ;
                    m.toListener.commandClausesFile)
               USE (m.toListener.CommandClauses.File) IN 0 ;
                      AGAIN EXCLU ALIAS FRX
                      * can't do a NOUP to do the delete.
                      * since we're in a private copy,
                      * we switch this to an
                      * EXCLU and PACK although it doesn't appear
                      * to be necessary for the engine's POV.
                      * This means users of this copy of the
                      * FRX don't have to pay attention to
                      * whether some records are potentially-deleted.
               SELECT (m.toListener.MemberDataAlias)
               SCAN FOR Type = FRX_BLDR_MEMBERDATATYPE AND ;
                        Name == FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
                        ExecWhen == FRX_BLDR_ADVPROP_PREPROCESS_NORENDER AND ;
                        NOT EMPTY(Execute)
                  m.liRecno = FRXRecno
                  m.llNoRender = THIS.omitRendering(m.toListener,ALLTRIM(Execute))
                  IF m.llNoRender
                     SELECT FRX
                     DELETE ALL FOR RECNO() = m.liRecno
                     SELECT (m.toListener.MemberDataAlias)
                  ENDIF
               ENDSCAN
               SELECT FRX
               PACK
            ENDIF
         ENDIF
      ENDIF
   CATCH TO m.err
      * revert the swap if we did one
      * being careful not to remove the original report
      #IF OUTPUTCLASS_DEBUGGING
      m.toListener.DoMessage(OUTPUTFX_CONDITIONALRENDERING_UNAVAILABLE_LOC + ;
                             CHR(13) + m.err.Message )
      #ENDIF
      IF m.llSwap
          m.toListener.removeFRXSwapCopy(,OUTPUTCLASS_DEBUGGING )
      ENDIF
   FINALLY
       IF USED("FRX")
          USE IN FRX
       ENDIF
       * we must close this early version of the
       * memberdata cursor -- later its frxrecno values
       * will be re-created correctly
       IF USED(m.toListener.MemberDataAlias)
          USE IN (m.toListener.MemberDataAlias)
       ENDIF
       SELECT (m.liSelect)
       SET DATASESSION TO (m.liSession)
   ENDTRY
CASE m.tcMethodToken == "BEFOREREPORT"
   m.liSession = SET("DATASESSION")
   SET Datasession TO m.toListener.FRXDataSession
   IF USED(m.toListener.MemberDataAlias)
      m.liSelect = SELECT(0)
      m.lcConditions = "(ExecWhen == '" + FRX_BLDR_ADVPROP_PREPROCESS_NORENDER + "' OR " + ;
                       " ExecWhen == '" + FRX_BLDR_ADVPROP_INSTANCE_NORENDER +"' ) "
      SELECT FrxRecno,ExecWhen,Execute, ;
            IIF(ExecWhen == FRX_BLDR_ADVPROP_PREPROCESS_NORENDER, .T., .F.) AS PreProcess ;
         FROM (m.toListener.MemberDataAlias) ;
         INTO CURSOR (THIS.noRenderDataAlias) ;
         WHERE Type = FRX_BLDR_MEMBERDATATYPE AND ;
               Name == FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
               (NOT EMPTY(Execute)) AND &lcConditions.
      IF RECCOUNT(THIS.noRenderDataAlias) = 0
         USE IN (THIS.noRenderDataAlias)
      ELSE
         SELECT (THIS.noRenderDataAlias)
         INDEX ON FrxRecno TAG FrxRecno
      ENDIF
      SELECT (m.liSelect)
   ENDIF
   SET Datasession TO (m.liSession)
CASE m.tcMethodToken == "UNLOADREPORT"
   * if swap was performed, and if the temporary
   * report is still "in place"
   * as commandClausesFile
   * get rid of temporary report
   * if there is one and if it still exists
   * and return CommandClauses.File to its original value
   * it should not matter what order objects handle this
   IF m.toListener.isFRXSwapCopyPresent()
      m.liSession = SET("DATASESSION")
      SET DATASESSION TO m.toListener.FRXDataSession
      IF USED(THIS.noRenderDataAlias)
         USE IN (THIS.noRenderDataAlias)
      ENDIF
      m.liSelect = SELECT(0)
      IF USED("FRX")
         m.llSwap = .T.
         SELECT FRX
         USE
      ENDIF
      m.toListener.removeFRXSwapCopy(,OUTPUTCLASS_DEBUGGING )
      IF m.llSwap
        SELECT 0
        USE (m.toListener.CommandClauses.File) ALIAS FRX NOUPDATE
      ENDIF
      SELECT (m.liSelect)
      SET DATASESSION TO (m.liSession)
   ENDIF
ENDCASE
RETURN  m.liReturn
ENDPROC
PROCEDURE Destroy
THIS.listener = NULL
ENDPROC
FRXDataSession = -1
fxs = (NULL)
gfxs = (NULL)
ffcgraphics = (NULL)
cancelrequested = .F.
fxfeedbackclass = ("FoxyTherm")
fxfeedbackclasslib = (THIS.ClassLibrary)
fxfeedbackmodule = ("")
classpath = ("")
fxmemberdatascriptclass = ("fxMemberDataScript")
fxmemberdatascriptclasslib = (THIS.ClassLibrary)
fxmemberdatascriptmodule = ("")
frxcursor = (NULL)
memberdataalias = ("M"+SYS(2015))
runcollectorresetlevel = 0
gfxrotateclass = ("gfxRotate")
gfxrotateclasslib = (THIS.ClassLibrary)
gfxrotatemodule = ("")
reportstoprundatetime = (DTOT({}))
reportstartrundatetime = (DTOT({}))
gfxnorenderclass = ("gfxNoRender")
gfxnorenderclasslib = (THIS.ClassLibrary)
gfxnorendermodule = ("")
nexternalgdiplusgfx = 0
_memberdata =
    4075<VFPData><memberdata name="fxs" type="property" display="FXs" favorites="True"/><memberdata name="gfxs" type="property" display="GFXs" favorites="True"/><memberdata name="ffcgraphics" type="property" display="FFCGraphics" favorites="True"/><memberdata name="createhelperobjects" type="method" display="createHelperObjects"/><memberdata name="needgfxs" type="method" display="needGFXs"/><memberdata name="sendfx" type="method" display="sendFX"/><memberdata name="checkcollectionmembers" type="method" display="checkCollectionMembers"/><memberdata name="uppermethodname" type="method" display="upperMethodName" favorites="True"/><memberdata name="cancelrequested" type="property" display="cancelRequested"/><memberdata name="fxmemberdatascriptclass" type="property" display="fxMemberDataScriptClass" favorites="True"/><memberdata name="fxmemberdatascriptclasslib" type="property" display="fxMemberDataScriptClassLib" favorites="True"/><memberdata name="fxmemberdatascriptmodule" type="property" display="fxMemberDataScriptModule" favorites="True"/><memberdata name="fxfeedbackclass" type="property" display="fxFeedbackClass" favorites="True"/><memberdata name="fxfeedbackclasslib" type="property" display="fxFeedbackClassLib" favorites="True"/><memberdata name="fxfeedbackmodule" type="property" display="fxFeedbackModule" favorites="True"/><memberdata name="getmemberdatascriptfxobject" type="method" display="getMemberDataScriptFXObject" favorites="True"/><memberdata name="getfeedbackfxobject" type="method" display="getFeedbackFXObject" favorites="True"/><memberdata name="classpath" type="property" display="classPath" favorites="True"/><memberdata name="getobjectinstance" type="method" display="getObjectInstance" favorites="True"/>
    <memberdata name="checkcollectionforspecifiedmember" type="method" display="checkCollectionForSpecifiedMember" favorites="True"/><memberdata name="addcollectionmember" type="method" display="addCollectionMember" favorites="True"/>
    <memberdata name="getpathforexternals" type="method" display="getPathForExternals" favorites="True"/>
    <memberdata name="loadfrxcursor" type="property" display="loadFrxCursor" favorites="True"/>
    <memberdata name="frxcursor" type="property" display="frxCursor" favorites="True"/>
    <memberdata name="memberdataalias" type="property" display="memberDataAlias" favorites="True"/>
    <memberdata name="creatememberdatacursor" type="method" display="createMemberDataCursor"/><memberdata name="runcollectorresetlevel" type="property" favorites="True" display="runCollectorResetLevel"/><memberdata name="getfrxrecno" type="method" display="getFRXRecno" favorites="True"/><memberdata name="getrotategfxobject" type="method" display="getRotateGFXObject" favorites="True"/><memberdata name="gfxrotateclass" type="property" display="gfxRotateClass" favorites="True"/><memberdata name="gfxrotateclasslib" type="property" display="gfxRotateClassLib" favorites="True"/><memberdata name="gfxrotatemodule" type="property" display="gfxRotateModule" favorites="True"/><memberdata name="removecollectionmember" display="removeCollectionMember" type="method" favorites="True"/>
    <memberdata name="reportstartrundatetime" type="property" display="reportStartRunDatetime" favorites="True"/>
    <memberdata name="reportstoprundatetime" type="property" display="reportStopRunDatetime" favorites="True"/><memberdata name="evaluateuserexpression" display="evaluateUserExpression" type="method"/><memberdata name="getnorendergfxobject" type="method" display="getNoRenderGFXObject" favorites="True"/><memberdata name="gfxnorenderclass" type="property" display="gfxNoRenderClass" favorites="True"/><memberdata name="gfxnorenderclasslib" type="property" display="gfxNoRenderClassLib" favorites="True"/><memberdata name="gfxnorendermodule" type="property" display="gfxNoRenderModule" favorites="True"/><memberdata name="ensurecollection" type="method" display="ensureCollection"/>
    <memberdata name="setgdiplusgraphics" display="SetGdiPlusGraphics"/><memberdata name="nexternalgdiplusgfx" display="nExternalGdiPlusGfx"/></VFPData>
Name = "fxlistener"
PROCEDURE applyfx
LPARAMETERS m.toListener, m.tcMethodToken, ;
            m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, m.tP6, ;
            m.tP7, m.tP8, m.tP9, m.tP10, m.tP11, m.tP12
LOCAL liSession, liAngle, liSelect, liFRXRecno, liReturn
m.liReturn = OUTPUTFX_DEFAULT_RENDER_BEHAVIOR
IF m.tcMethodToken == "RENDER" AND ;
   NOT ISNULL(m.toListener.FFCGraphics)
    IF toListener.FFCGraphics.GetHandle() = 0
        IF This.nExternalGdiPlusGfx > 0
            toListener.FFCGraphics.SetHandle(This.nExternalGdiPlusGfx)
        ELSE
            RETURN
        ENDIF
    ENDIF
   TRY
      m.liSession = SET("DATASESSION")
      IF m.toListener.FRXDataSession > -1
         SET DATASESSION TO m.toListener.FRXDataSession
      ENDIF
      m.liSelect = SELECT(0)
      IF USED(m.toListener.MemberDataAlias)
         SELECT (m.toListener.MemberDataAlias)
         m.liFRXRecno =  m.toListener.getFRXRecno(m.tcMethodToken,m.tP1, m.tP2)
         LOCATE FOR FrxRecno = m.liFRXRecno AND ;
                    Type = FRX_BLDR_MEMBERDATATYPE AND ;
                    Name == FRX_BLDR_NAMESPACE_ROTATE AND ;
                    NOT EMPTY(Execute)
* Fix by CChalom
*        IF FOUND() AND NOT EMPTY(INT(VAL(Execute))) AND m.toListener.FFCGraphics.GdipHandle > 0
         IF FOUND() AND NOT EMPTY(INT(VAL(Execute))) AND m.toListener.FFCGraphics.GetHandle() > 0
            m.liAngle = INT(VAL(Execute))
            m.toListener.FFCGraphics.TranslateTransform(tP2, tP3)
            m.toListener.FFCGraphics.RotateTransform(m.liAngle)
            m.liReturn = OUTPUTFX_BASERENDER_RENDER_BEFORE_RESTORE
            m.toListener.FFCGraphics.TranslateTransform(-tP2, -tP3)
         ENDIF
      ENDIF
   CATCH TO err
      * could expose the error but won't,
      * we'll just swallow it
   FINALLY
       SELECT (m.liSelect)
       SET DATASESSION TO (m.liSession)
   ENDTRY
ENDIF
RETURN  m.liReturn
ENDPROC
Height = 23
Width = 23
FRXDataSession = -1
xmlmode = 2
includebreaksindata = 0
pagenodes = (NULL)
currentband = (NULL)
currentdocument = (NULL)
currentpage = (NULL)
columnnodes = (NULL)
currentcolumn = (NULL)
idattribute = ("id")
idrefattribute = ("idref")
xsltprocessorrdl = (NULL)
xsltprocessoruser = (NULL)
datanodes = (NULL)
nopageeject = .F.
topattr = ("t")
leftattr = ("l")
heightattr = ("h")
widthattr = ("w")
contattr = ("c")
xsltparameters = (NULL)
includepage = .T.
includedatatypeattributes = .F.
datatypeattr = ("DTYPE")
datatextattr = ("DTEXT")
formattingchanges = (.NULL.)
evaluatecontentsvalues = (.NULL.)
pageimageattr = ("PLINK")
applyrdltransform = .F.
successorgfxnorender = (.NULL.)
targetfileext = ("XML")
_memberdata =
    5491<VFPData><memberdata name="applyusertransform" type="property" display="applyUserTransform" favorites="True"/><memberdata name="applyusertransformtooutput" type="method" display="applyUserTransformToOutput"/><memberdata name="applyxslt" type="method" display="applyXslt" favorites="True"/><memberdata name="columnnodes" type="property" display="columnNodes"/><memberdata name="contattr" type="property" display="contAttr" favorites="True"/><memberdata name="currentband" type="property" display="currentBand"/><memberdata name="currentcolumn" type="property" display="currentColumn"/><memberdata name="includepage" type="property" display="includePage"/><memberdata name="currentdocument" type="property" display="currentDocument" favorites="True"/><memberdata name="currentpage" type="property" display="currentPage"/><memberdata name="datanodes" type="property" display="dataNodes"/><memberdata name="getdefaultuserxslt" type="method" display="getDefaultUserXslt"/><memberdata name="preparefrxcopy" type="method" display="prepareFrxCopy"/><memberdata name="removefrxcopy" type="method" display="removeFrxCopy"/><memberdata name="getpathedimageinfo" type="method" display="getPathedImageInfo"/><memberdata name="getrawformattinginfo" type="method" display="getRawFormattingInfo"/><memberdata name="getvfprdlcontents" type="method" display="getVFPRdlContents"/><memberdata name="getfrxlayoutobjectfieldlist" type="method" display="getFrxLayoutObjectFieldlist"/><memberdata name="heightattr" type="property" display="heightAttr" favorites="True"/><memberdata name="idattribute" type="property" display="idAttribute" favorites="True"/><memberdata name="idrefattribute" type="property" display="idrefAttribute" favorites="True"/><memberdata name="includebandswithnoobjects" type="property" display="includeBandsWithNoObjects" favorites="True"/><memberdata name="includebreaksindata" type="property" display="includeBreaksInData" favorites="True"/><memberdata name="includedatasourcesinvfprdl" type="property" display="includeDataSourcesInVfpRdl" favorites="True"/><memberdata name="includeformattinginlayoutobjects" type="property" display="includeFormattingInLayoutObjects" favorites="True"/><memberdata name="insertxmlconfigrecords" type="method" display="insertXmlConfigRecords"/><memberdata name="leftattr" type="property" display="leftAttr" favorites="True"/><memberdata name="loadprocessorobject" type="method" display="loadProcessorObject"/><memberdata name="nopageeject" type="property" display="noPageEject" favorites="True"/><memberdata name="pagenodes" type="property" display="pageNodes"/><memberdata name="resetdocument" type="method" display="resetDocument" favorites="True"/><memberdata name="resetreport" display="resetReport" type="method"/><memberdata name="setdomformattinginfo" type="method" display="setDOMFormattingInfo"/><memberdata name="setfrxdatasession" type="method" display="setFRXDataSession"/><memberdata name="synchxsltprocessoruser" type="method" display="synchXsltProcessorUser"/><memberdata name="topattr" type="property" display="topAttr" favorites="True"/><memberdata name="verifyattributenames" type="method" display="verifyAttributeNames"/><memberdata name="verifyncname" type="method" display="verifyNCName" favorites="True"/><memberdata name="verifynodenames" type="method" display="verifyNodeNames"/><memberdata name="widthattr" type="property" display="widthAttr" favorites="True"/><memberdata name="writeraw" type="method" display="writeRaw"/><memberdata name="xmlmode" type="property" display="xmlMode" favorites="True"/><memberdata name="xmlrawconv" type="method" display="xmlRawConv"/><memberdata name="xmlrawnode" type="method" display="xmlRawNode"/><memberdata name="xmlrawtag" type="method" display="xmlRawTag"/><memberdata name="xsltparameters" type="property" display="xsltParameters" favorites="True"/><memberdata name="xsltprocessorrdl" type="property" display="xsltProcessorRdl" favorites="True"/><memberdata name="xsltprocessoruser" type="property" display="xsltProcessorUser" favorites="True"/>
<memberdata name="adjustxsltparameter" type="method" display="adjustXSLTParameter" favorites="True"/>
<memberdata name="getrunnodecontents" display="getRunNodeContents" type="method"/><memberdata name="addrunnode" display="addRunNode" type="method"/><memberdata name="includedatatypeattributes" display="includeDataTypeAttributes" type="property" favorites="True"/><memberdata name="datatypeattr" type="property" display="dataTypeAttr" favorites="True"/><memberdata name="datatextattr" type="property" display="dataTextAttr" favorites="True"/><memberdata
name="formattingchanges" type="property" display="formattingChanges" /> <memberdata name="initializeformattingchangescursor" type="method" display="initializeFormattingChangesCursor"/><memberdata name="evaluatecontentsvalues" display="evaluateContentsValues" type="property"/><memberdata name="formatdatavalue" display="formatDataValue" type="method"/><memberdata name="pageimageattr" type="property" display="pageImageAttr" favorites="True"/>
<memberdata name="evaluatestringtoboolean" display="evaluateStringToBoolean" type="property"/><memberdata name="applyrdltransform" display="applyRDLTransform" type="property"/>
<memberdata name="successorgfxnorender" display="successorGFXNoRender" type="property"/><memberdata name="fixmsxmlobjectfordtds" display="fixMSXMLObjectForDTDs" type="method"/><memberdata name="frxcharsetsinuse" display="frxCharsetsInUse" type="method"/>
</VFPData>
runcollectorresetlevel = 1
Name = "xmllistener"
Datasessionv
TNFRXRECNO
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
TNOBJECTCONTINUATIONTYPE
TCCONTENTSTOBERENDERED
TIGDIPLUSIMAGE
TWOPASSPROCESS
CURRENTPASS
LCCONTENTS
LNREC
LNSELECT
LNSESSION
LLDYNAMICS
RESETDATASESSION
_GOHELPER
NSEARCHPAGES
PAGENO
LSTOREDATA
CMAINALIAS
LCTESTCONTENTS
LCNEWCONTENTS
LCNEWUNCONTENTS
LNROTATE
LNDYNAMICS
GETDYNAMICSFROMFRX
COUTPUTALIAS
NFRXINDEX
LOEXCT
The helper 'Rendering' cursor is not available.
Error
The helper 'FRX' cursor is not available.
Error
EXCEPTION
TempFRX
TempFRX
TempFRX
TempFRX
TempFrx
Error creating report data. The output will not be rendered correctly.
Error
TempFRXW
Error getting report informationC
Line:
Please inform the details to   [e-mail]
FoxyPreviewer Error
RESETDATASESSION
COUTPUTALIAS
CFRXALIAS
CFULLOUTPUTALIAS
LNSELECT
LCFULLOUTPUT
LOEXC
LNALIASES
AFRXTABLES
LATEMPDATA
NRECNO
TEMPFRX
RESETRPT
OBJTYPE
WIDTH
FRXWIDTH
HEIGHT
FRXHEIGHT
FRXTOP
FRXRECNO
FRXINDEX
CAUXFULLOUTPUTALIAS
DYNAMICS
PROCESSDYNAMICS
ERRORNO
MESSAGE
LINENO
LINECONTENTS
RESETDATASESSION
AFRXTABLES
COUTPUTALIAS
CFULLOUTPUTALIAS
CFRXALIAS
CAUXFULLOUTPUTALIASW
FXTHERM
FOXYTHERM
LCTHERMCLASS
LOEXC
_GOHELPER
LEXTENDED
OFOXYPREVIEWER
THIS
QUIETMODE
LQUIETMODE
SUCCESSOR
CSUCCESSOR
LEXPANDFIELDS
LNTYPE
NTHERMTYPE
FXFEEDBACKCLASS
_ODESTSCREEN
COMMANDCLAUSES
WINDOW
Datasessionv
name="Microsoft.VFP.Reporting.Builder.
ROTATE
 execute="
execwhen="
ROTATE
EVALUATECONTENTS
 script="
TNRECNO
TCNEWCONTENTS
TNROTATE
LNSESSION
LNSELECT
LCDYNAMICS
LNOBJTYPE
LCSTYLE
SETFRXDATASESSION
OBJTYPE
STYLE
CMAINALIAS
LCEXECWHEN
LCDYNTYPE
LLTRUE
LCSCRIPT
LCNEWCONTENTS
GETSTRINGFROMXML
LOEXC
ORIENTATION
PAPERSIZE
DEVICE
LNSETTINGS
LNORIENTATION
LCPRINTERNAME
LNORIENTATIONLINE
LNPAPERSIZE
LNPAPERSIZELINE
LCPRINTERNAMELINE
OBJTYPE
OBJCODE
LASETTINGS
NPRTORIENTATION
NPRTPAPERSIZE
LNPRINTERNAMELINE
CPRTPRINTERNAME
m.tcText = STRTRAN(m.tcText, [&] , [&])
m.tcText = STRTRAN(m.tcText, [ ], [ ])
m.tcText = STRTRAN(m.tcText, [<]  , [<])
m.tcText = STRTRAN(m.tcText, [>]  , [>])
m.tcText = STRTRAN(m.tcText, ["], ["])
TCTEXT
<reportdata name="Microsoft.VFP.Reporting.Builder.
BOOLEAN
_TempDynamics
_TempDynamics
_TempDynamicsN
LCSTYLE
LCDYNAMICSTRING
LOEXC
STYLE
LBRETURN
LNSELECT
LNRECS
LNRECDYN
DYNAMICS
_TEMPDYNAMICS
CFULLOUTPUTALIAS
OBJTYPE
FNAME
FONTFACE
FSIZE
FONTSIZE
FSTYLE
FONTSTYLE
LNPENRGB
LNPENR
LNPENG
LNPENB
PENRGB
PENRED
PENGREEN
PENBLUE
LNFILLRGB
LNFILLR
LNFILLG
LNFILLB
FILLRGB
FILLRED
FILLGREEN
FILLBLUE
FILLA
MODE
OBJ_IMAGE'
LPRINT
ERASETEMPFILES
NFRXINDEX
Datasessionv
Select:
Alias:
Session:
c:\FoxyPreviewer_Log.txta
TCINFO
TCMETHOD
LNSELECT
LCALIAS
LNDATASESSION
LCTEXT
UPDATEPROPERTIES
LISTENERTYPE
COMMANDCLAUSES
PREVIEW
OUTPUTTO
LSTOREDATA{
cOutputAlias
cAuxFullOutputAlias
lDeleteOnDestroya
cMainAlias
nStartingSession
nStartingRecNo
cStartingAlias
lStoreDataa
cFullOutputAlias
cFRXDBF
cFRXAlias
aFRXTables[1]
nFRXIndex
nPrtOrientation
nPrtPaperSize
cPrtPrinterName
OnPreviewClose
OnPreviewClose_Bind
ADDPROPERTY
_GOHELPER
QUIETMODE
LQUIETMODE
LSTOREDATAq
Datasessionv
Datasessionv
TEMP5
Error creating temporary FRX table
LSTOREDATA
LCTABLE
LCALIAS
LLHELPER
LNSELECT
LNSESSION
LNINDEX
_GOHELPER
NFRXINDEX
_COUTPUTALIAS
COUTPUTALIAS
_OALIASES
_NINDEX
CMAINALIAS
SETCURRENTDATASESSION
LCSTARTINGALIAS
CSTARTINGALIAS
NSTARTINGSESSION
NSTARTINGRECNO
SETFRXDATASESSION
GETPRINTERINFO
LCFRXDBF0
LCFRXALIAS
LCFRXALIAS0
RESETDATASESSION
CFRXALIAS
AFRXTABLES
FRXRECNO
DBFRECNO
WIDTH
HEIGHT
CONTTYPE
CONTENTS
UNCONTENTS
FRXINDEX
DYNAMICS
ROTATE
TNFRXRECNO
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
TNOBJECTCONTINUATIONTYPE
TCCONTENTSTOBERENDERED
TIGDIPLUSIMAGE
LSTOREDATA
STOREFRXDATA
storefrxdata,
getfullfrxdata*
erasetempfiles
updateproperties8
getdynamicsfromfrx\
getprinterinfoX
getstringfromxml
processdynamics
onpreviewclose_bind
addtologr
LoadReport
BeforeReport
Render
fxs A collection of FX objects, required interface: PROCEDURE ApplyFX(toListener, tcMethodToken,tP1, tP2, tP3, tP4, tP5, tP6, tP7, tP8, tP9, tP10, tP11, tP12) Return value ignored
gfxs A collection of GFX objects, required interface: PROCEDURE ApplyFX(toListener, tcMethodToken,P1, tP2, tP3, tP4, tP5, tP6, tP7, tP8, tP9, tP10, tP11, tP12) Return value significant to Render method.
ffcgraphics A reference to an FFCGraphic object created during the run and provided to members of the GFXs collection. Validated as instance of GpGraphics from the FFC _GDIPLUS.VCX or a class derived from GpGraphics.
cancelrequested Notification flag for FX objects to request a report cancellation.
fxfeedbackclass Class to instantiate in FX collection for user feedback (defaults to fxTherm).
fxfeedbackclasslib Class library from which to instantiate FX collection object providing user feedback.
fxfeedbackmodule Application module (APP or EXE)  from which to instantiate FX collection object providing user feedback.
classpath Provides optional location specifying path for loading objects from external libraries.
fxmemberdatascriptclass Class to instantiate in FX collection for memberdata-based script handling (defaults to fxMemberDataScript).
fxmemberdatascriptclasslib Class library from which to instantiate FX collection object providing memberdata-based script-handling.
fxmemberdatascriptmodule Application module (APP or EXE)  from which to instantiate FX collection object providing memberdata-based script-handling.
frxcursor Holds a reference to an FRXCursor helper object to aid in run-time calculations related to FRX metadata, structure, and memberdata.
loadfrxcursor Determines whether this class should dynamically load an instance of the helper class FRXCursor when attempting to access a reference to it.
memberdataalias Alias of cursor holding memberdata in the FRXDataSession, read from the FRX table's Style field for easy access by other objects.
runcollectorresetlevel Indicates how often the runCollector member should be automatically reset by the reportListener (0=never, 1=after each report, 2=after a chained report run).
gfxrotateclass Class to instantiate in GFX collection for rotating layout controls (defaults to gfxRotate).
gfxrotateclasslib Class library from which to instantiate GFX collection object providing rotation.
gfxrotatemodule Application module (APP or EXE)  from which to instantiate GFX collection object providing rotation.
reportstoprundatetime A datetime value for use at the conclusion of a report run, storing when the last report generation run ended, if the feedback member object has been instantiated and provides a property with a matching name. Readonly.
reportstartrundatetime A datetime value indicating when the last report generation run began, if the feedback member object has been instantiated and provides a property with a matching name. Readonly.
gfxnorenderclass Class to instantiate in GFX collection for conditionally eliminating baseclass rendering of various layout controls (defaults to gfxNoRender, if empty conditional rendering is turned off).
gfxnorenderclasslib Class library from which to instantiate GFX collection object providing conditional baseclass rendering.
gfxnorendermodule Application module (APP or EXE) from which to instantiate GFX collection object providing conditional baseclass rendering.
nexternalgdiplusgfx
*createhelperobjects Creates FXs and GFXs collections, and additional required object members such as the FFCGraphics object.
*needgfxs Hook method to evaluate whether this method needs to call the GFXs collection members for rendering purposes.
*sendfx Applies FXs and GFXs collection members when an event or method is called.  Returns value to indicate how default render behavior should work when invoked during Render event.
*checkcollectionmembers Eliminates members of FXs and GFXs collections in LoadReport and again in BeforeReport if they do not match required interfaces. Verifies availability of appropriate members.
*uppermethodname Passed a string such as PROGRAM(), returns an upper-case version of the method name with prefixes removed.  Utility method for use  when applying FX and GFX instructions.
*cancelrequested_assign
*fxfeedbackclass_assign
*fxfeedbackclasslib_assign
*fxfeedbackmodule_assign
*getfeedbackfxobject Instantiates FX object to provide user feedback.
*classpath_assign
*getobjectinstance Provides a method for instancing classes as helper/member objects or FX/GFX collection members using specific path priorities.
*checkcollectionforspecifiedmember Checks FX or GFX collection for instance of specified class by class and (if specified) by class library name. Returns logical (.F. if not found) or object reference (NULL if not found).
*addcollectionmember Adds instance of specified class in specified class library  to FX or GFX collection. Params: tcClass, tcClassLib,tcModule,tlSingleton, tlInGFX, tlRequired
*getpathforexternals Determines the location at which the current configuration table and any other required external files will be expected.
*ffcgraphics_assign
*getmemberdatascriptfxobject Instantiates FX object to provide memberdata-based script handling.
*fxmemberdatascriptclass_assign
*fxmemberdatascriptclasslib_assign
*fxmemberdatascriptmodule_assign
*frxcursor_access
*frxcursor_assign
*loadfrxcursor_assign
*memberdataalias_assign
*creatememberdatacursor Creates a cursor in the FRX datasession to hold extended information about FRX data rows.
*runcollectorresetlevel_assign
*getfrxrecno Determine the current FRX cursor row number from the parameters passed to a ReportListener event.
*getrotategfxobject Instantiates GFX object to provide memberdata-based rotation of layout controls.
*gfxrotateclass_assign
*gfxrotateclasslib_assign
*gfxrotatemodule_assign
*removecollectionmember Provides a way to remove an FX or GFX object from FXListener's collections by object instance name or class name.
*reportstoprundatetime_access
*reportstartrundatetime_access
*evaluateuserexpression Attempts to evaluate a user-provided expression in various report run datasessions and return a valid result.
*gfxnorenderclass_assign
*gfxnorenderclasslib_assign
*gfxnorendermodule_assign
*getnorendergfxobject Instantiates GFX object to provide memberdata-specified conditional baseclass rendering.
*ensurecollection Ensures valid object collections for GFXs and FXs member references.
*setgdiplusgraphics
DOSTATUS
UPDATESTATUS
CLEARSTATUS
AFTERBAND
AFTERREPORT
m.toListener.CommandClauses.RecordTotalb
BEFOREBAND
DATASESSIONv
BEFOREREPORT
CANCELREPORT
DATASESSIONv
LOADREPORT
reportStartRunDatetime
m.toListener.CommandClauses.NoDialogb
UNLOADREPORT
reportStopRunDatetime
TOLISTENER
TCMETHODTOKEN
MOVABLE
LISESSION
DOSTATUS
UPDATESTATUS
CLEARSTATUS
SYNCHSTATUS
ISRUNNING
CURRENTRECORD
COMMANDCLAUSES
RECORDTOTAL
DESIGNATEDDRIVER
DRIVINGALIAS
SUCCESSORSYS2024
VISIBLE
REPORTSTOPRUNDATETIME
POPUSERFEEDBACKGLOBALSETS
CURRENTPASS
CURRENTDATASESSION
SETUPREPORT
QUIETMODE
PAGELIMIT
PAGENO
ALLOWMODALMESSAGES
DOMESSAGE
CANCELQUERYTEXT
ATTENTIONTEXT
CANCELREQUESTED
ISSUCCESSOR
REPORTINCOMPLETETEXT
RESETUSERFEEDBACK
ADDPROPERTY
REPORTSTARTRUNDATETIME
NODIALOG
INITSTATUSTEXT
PUSHUSERFEEDBACKGLOBALSETS
PERSISTBETWEENRUNS
LISTENERDATASESSION
RELEASE9
VNEWVAL
INCLUDESECONDS9
VNEWVAL
INITSTATUSTEXT9
VNEWVAL
PREPASSSTATUSTEXT
VNEWVAL
RUNSTATUSTEXT
VNEWVAL
SECONDSTEXT
VNEWVAL
LCTYPE
CMESSAGE
THERMCAPTIONF
VNEWVAL
THERMFORMCAPTION
SETTHERMFORMCAPTION
VNEWVAL
THERMFORMHEIGHT
THERMMARGIN
SYNCHUSERINTERFACE
VNEWVAL
THERMFORMWIDTH
THERMMARGIN
SYNCHUSERINTERFACE~
VNEWVAL
THERMFORMHEIGHT
THERMFORMWIDTH
THERMMARGIN
SYNCHUSERINTERFACE
_SCREEN.ActiveFormb
THIS.CommandClauses.InWindowb
THIS.CommandClauses.Windowb
_SCREEN.ActiveFormb
_SCREEN.ActiveFormb
LOFORM
LOTOPFORM
LCINWINDOW
ACTIVEFORM
SHOWWINDOW
COMMANDCLAUSES
INWINDOW
WINDOW
FORMS
NAME
FORMCOUNT6
WINDOWS
SKIPv
TOLISTENER
LISELECT
LCALIAS
LISKIPS
LASKIPS
FRXDATASESSION
DESIGNATEDDRIVER
DRIVINGALIAS
OBJTYPE
OBJCODE
CURRENTDATASESSION
PLATFORM
TLRESETTIMES
CURRENTRECORD
PERCENTDONE
REPORTSTARTRUNDATETIME
REPORTSTOPRUNDATETIME
THERMFORMCAPTION
SYNCHUSERINTERFACE:
TCCOMMANDCLAUSESFILE
TCPRINTJOBNAME
THERMFORMCAPTION
CNAME
OFOXYPREVIEWER
CTITLE
CANCELINSTRTEXT
CAPTION@
TOLISTENER
NBANDOBJCODE
NFRXRECNO
THIS
ISRUNNING
FRXBANDRECNO
CURRENTDATASESSION
DRIVINGALIASCURRENTRECNO
DRIVINGALIAS
CURRENTRECORD
COMMANDCLAUSES
RECORDTOTAL
CURRENTPASS
TWOPASSPROCESS
RESETUSERFEEDBACK
UPDATESTATUS
LISTENERDATASESSION
MACDESKTOP
SCREEN
MACDESKTOP
SCREEN
TOLISTENER
CMESSAGE
LOPARENTFORM
LCCAPTION
LCPARENTFORMNAME
QUIETMODE
THIS
ISRUNNING
COMMANDCLAUSES
NODIALOG
NLASTPERCENT
PERCENTDONE
NDELAY
THERMCAPTION
CLOSABLE
THERM
VALUE
THERMLABEL
CAPTION
VISIBLE
GETPARENTWINDOWREF
DESKTOP
MACDESKTOP
SHOWWINDOW
ALWAYSONTOP
AUTOCENTER.
TOLISTENER
VISIBLE>
TOLISTENER
THIS
ISRUNNING
LIRECTOTAL
LNNEWPERCENT
LLSHOW
COMMANDCLAUSES
RECORDTOTAL
CURRENTRECORD
THERMPRECISION
PERCENTDONE
DOSTATUS
CURRENTPASS
TWOPASSPROCESS
PREPASSSTATUSTEXT
RUNSTATUSTEXTM
Notify
ESCAPE
PUBLIC &lcRef.
ON ESCAPE &lcRef..CancelReport()
ESCAPEv
TOLISTENER
STARTMODE
LCREF
SETNOTIFYCURSOR
ONESCAPECOMMAND
ESCAPEREFERENCE
SETESCAPE
RELEASE &lcRef.
ON ESCAPE &lcRef
STARTMODE
LCREF
ESCAPEREFERENCE
ONESCAPECOMMAND
SETNOTIFYCURSOR
SETESCAPE
m.toListener.CommandClauses.Summaryb
Summary-
m.toListener.CommandClauses.RecordTotalb
RecordTotal
m.toListener.CommandClauses.NoDialogb
NoDialog-
WINDOWS
WINDOWS
WINDOWS
WINDOWS
WINDOWS
TOLISTENER
LLFRXAVAILABLE
LCALIAS
THIS
ISRUNNING
CURRENTDATASESSION
DRIVINGALIAS
FRXDATASESSION
GETREPORTSCOPEDRIVER
SETTHERMFORMCAPTION
COMMANDCLAUSES
PRINTJOBNAME
FRXBANDRECNO
SUMMARY
OBJTYPE
OBJCODE
PLATFORM
DRIVINGALIASCURRENTRECNO
LISTENERDATASESSION=
VNEWVAL
THERMPRECISION7
VNEWVAL
PERSISTBETWEENRUNS
GetSysColor
Win32API
toListener.CommandClauses.StartDataSessionb
DATASESSIONv
TOLISTENER
GETSYSCOLOR
WIN32API
LITHERMTOP
LITHERMLEFT
LITHERMWIDTH
LITHERMHEIGHT
LISESSION
COMMANDCLAUSES
STARTDATASESSION
RESETDATASESSION
THERMMARGIN
SCALEMODE
HEIGHT
THERMFORMHEIGHT
HALFHEIGHTCAPTION
WIDTH
THERMFORMWIDTH
AUTOCENTER
BORDERSTYLE
CONTROLBOX
CLOSABLE
ISRUNNING
MAXBUTTON
MINBUTTON
ALWAYSONTOP
ALLOWOUTPUT
THERMLABEL
VISIBLE
FONTBOLD
ALIGNMENT
SETTHERMFORMCAPTION
THERM
CAPTION
RUNSTATUSTEXT
BringWindowToTop
Win32API
ShowWindow
Win32API
GetCurrentThreadId
kernel32
GetWindowThreadProcessId
user32
GetCurrentThreadId
kernel32
AttachThreadInput
user32
GetForegroundWindow
user32
FindWindow
Win32API
BRINGWINDOWTOTOP
WIN32API
SHOWWINDOW
GETCURRENTTHREADID
KERNEL32
GETWINDOWTHREADPROCESSID
USER32
ATTACHTHREADINPUT
GETFOREGROUNDWINDOW
FINDWINDOW
LNHWND
CAPTION
LNFORETHREAD
LNAPPTHREADy
nLastPercent
CancelInstrText
CancelQueryText
ReportIncompleteText
AttentionText
INITSTATUS
PREPSTATUS
RUNSTATUS
SECONDS
CANCELINST
CANCELQUER
REPINCOMPL
ATTENTION
Initializing...
Running calculation prepass...
Creating output...
sec(s)
Press Esc to cancel...
Stop report execution?C
(If you press 'No', report execution will continue.)
Report execution was cancelled.C
Your results are not complete.
Attention
FindWindow
user32
SetParent
User32
m.cMessage+ " "+
TRANSFORM(THIS.PercentDone,"999"+
IIF(THIS.ThermPrecision=0,"","."+REPL("9",THIS.ThermPrecision))) + "%"
+ IIF(NOT THIS.IncludeSeconds, "" , "   "+
TRANSFORM(IIF(THIS.IsRunning,DATETIME(), THIS.ReportStopRunDateTime)-
THIS.ReportStartRunDateTime)+" " + THIS.SecondsText)
ADDPROPERTY
VISIBLE
CREATETHERM
_GOHELPER
INITSTATUSTEXT
GETLOC
PREPASSSTATUSTEXT
RUNSTATUSTEXT
SECONDSTEXT
CANCELINSTRTEXT
CANCELQUERYTEXT
REPORTINCOMPLETETEXT
ATTENTIONTEXT
OFOXYPREVIEWER
_INITSTATUSTEXT
_PREPASSSTATUSTEXT
_RUNSTATUSTEXT
_SECONDSTEXT
_CANCELINSTRTEXT
_CANCELQUERYTEXT
_REPORTINCOMPLETETEXT
_ATTENTIONTEXT
_ODESTSCREEN
LCTITLE
LNDESTHWND
FINDWINDOW
USER32
SETPARENT
THERMCAPTION
RESETUSERFEEDBACK
applyfx,
includeseconds_assign
initstatustext_assign
prepassstatustext_assign{
runstatustext_assign
secondstext_assign
thermcaption_assignT
thermformcaption_assign
thermformheight_assign
thermformwidth_assign
thermmargin_assigny
getparentwindowrefL
getreportscopedriver
resetuserfeedback
setthermformcaption
synchstatusW
dostatus
clearstatus
updatestatus
pushuserfeedbackglobalsets0"
popuserfeedbackglobalsets
setupreport5%
thermprecision_assign
persistbetweenruns_assignj+
createtherm
bringwindowtofront
Initr3
Invalid parameter. Report listener not available
Error
The helper FRX table is not available. Output can't be created
Error
Datasessionv
<html><head><META http-equiv="Content-Type" content="text/html">
<title>
</title></head><body>
%  -
100%  - CCC
</body></html>
TOLISTENER
TCOUTPUTDBF
TNWIDTH
TNHEIGHT
CFRXALIAS
THIS
QUIETMODE
LNSECS
DOFOXYTHERM
OFOXYPREVIEWER
_INITSTATUSTEXT
LNSELECT
LNORIGDATASESSION
LISTENERDATASESSION
LDEFAULTMODE
NPAGEHEIGHT
NSCREENDPI
NPAGEWIDTH
NOUTFILE
CTARGETFILENAME
CHTML
LNPGFROM
LNPGTO
COMMANDCLAUSES
RANGEFROM
RANGETO
_GOHELPER
_CLAUSENRANGETO
RENDERHTML
FRXRECNO
WIDTH
HEIGHT
CONTTYPE
UNCONTENTS
LNPERCENT
LNLASTPERCENT
LNDELAY
LNTOTRECS
LNREC
_SECONDSTEXT
_RUNSTATUSTEXT
LLSAVED
LCFILE
APAGESIMGS
LOBJTYPEMODE
LSAVED
LOPENVIEWER
SHELLEXEC)
FRX_OBJCOD_TITLE
FRX_OBJCOD_PAGEHEADER
FRX_OBJCOD_COLHEADER
FRX_OBJCOD_GROUPHEADER
FRX_OBJCOD_DETAIL
FRX_OBJCOD_GROUPFOOTER
FRX_OBJCOD_COLFOOTER
FRX_OBJCOD_PAGEFOOTER
FRX_OBJCOD_SUMMARY
FRX_OBJCOD_DETAILHEADER
FRX_OBJCOD_DETAILFOOTER
NBANDOBJCODE1
NFONTSTYLE
CSTYLE[
NGREEN
NBLUE
LISTENER_CONTINUATION_NONE
LISTENER_CONTINUATION_START
LISTENER_CONTINUATION_MIDDLE
LISTENER_CONTINUATION_END
NOBJECTCONTINUATIONTYPE
REPORTLISTENER
TEMP5
LOLISTENER
LNPAGE
COMMANDCLAUSES
RANGEFROM
APAGESIMGS
LNDEVICETYPE
LCFILE
LNHANDLE
OUTPUTPAGE
TNWIDTH
TNHEIGHT
TCFILE
LCFILE
GETPAGEIMG
LNHOR
LNVERT
LCNEWFILE
CROPIMAGE
_IMAGES
_IMAGES
IMAGE
Image
<img src="
" width="
" height="
<span style="position:absolute;left:C
px;top:
clip: rect(0
px 0);
</span>
IMAGE
Image
<img src="
" width="
" height="
<span style="position:absolute;left:C
px;top:
clip: rect(0
px 0);
</span>
<img src="
" width="
" height="
<span style="position:absolute;left:C
px;top:
px;">
</span>
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
CCONTENTSTOBERENDERED
LCFILE
LCPATH
LCSHORTPATH
LCIMAGECOPY
LCPATHLOCATION
CTARGETFILENAME
CEXTERNALFILELOCATION
NIMGCOUNTER
GETPICTUREFROMLISTENER
PR_PATHFILEEXISTS
LCHTML
LCIMGHTML
GENERAL
LNWIDTH
LNHEIGHT
LNPICTWIDTH
LNPICTHEIGHT
LOVFPIMG
PICTURE
WIDTH
HEIGHT
LNHORFACTOR
LNVERTFACTOR
LNRESIZEFACTOR
LNISOWIDTH
LNISOHEIGHTN
lcText = STRTRAN(lcOrigText, [&], [&])
lcText = STRTRAN(lcText, [<], [<])
lcText = STRTRAN(lcText, [>], [>])
text-align: left;
text-align: right;
text-align: center;
white-space:normal;
overflow:hidden ;
white-space:nowrap;
white-space:normal;
<span style="
position:absolute;left:
px;top:
width:
px;height:
background-color:
font-family:
font-size:
color:
</span>
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
CCONTENTSTOBERENDERED
LCHTML
LCTEXT
LCORIGTEXT
LCALIGN
OFFSET
LCFILLHEX
LCPRESPAN
LCPOSTSPAN
LCFOREHEX
LCPREFONT
LCPOSTFONT
FILLRED
FILLGREEN
FILLBLUE
RGBTOHEX
PENRED
PENGREEN
PENBLUE
STRETCH
LCWWRAP
LNLINES
GETLINESCNT
FONTFACE
FONTSIZE
FONTSTYLE
LCFONTSTYLE
LCPRESTYLE
LCPOSTSTYLE
GETFONTSTYLE(
<span style="position:absolute;left:C
px;top:
px;width:
height:
px;text-align: left;border:1px solid
<font face="Arial" fontsize=10 color=#000000></font></span>
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
LCHTML
RGBTOHEX
PENRED
PENGREEN
PENBLUEZ
background-color:
border-left:C
 solid;
border-right:
 solid;
border-top:
 solid;
border-left:C
 solid;
border-right:
 solid;
border-left:C
 solid;
border-right:
 solid;
border-bottom:
 solid;
border:C
 solid;
<span style="position:absolute;left:C
px;top:
px;width:
height:
px;text-align: left;
</span>
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
TNOBJECTCONTINUATIONTYPE
LCFILLHEX
FILLPAT
FILLRED
FILLGREEN
FILLBLUE
RGBTOHEX
LCBORDERHEX
PENPAT
PENRED
PENGREEN
PENBLUE
PENSIZE
LCHTML3
GPRECTANGLE
\ffc\_Gdiplus.vcx
GPRectangle
_Gdiplus.vcx
GPFont
_Gdiplus.vcx
GPGRAPHICS
\ffc\_Gdiplus.vcx
GpGraphics
_Gdiplus.vcx
333333
GPSIZE
\ffc\_Gdiplus.vcx
TCTEXT
TCFONTNAME
TNSIZE
TCSTYLE
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
LOFONT
LNCHARS
LNLINES
LNHEIGHT
LNWIDTH
LNFACTOR
LORECT
CREATE
LOGFX
CREATEFROMHWND
PAGEUNIT
PAGESCALE
LOSIZE
MEASURESTRINGA
GDIPRECTF
STRING
INTEGER
INTEGER
GPBITMAP
ffc\_gdiplus.vcx
GpBitmap
_GdiPlus.vcx
GdipCloneBitmapAreaI
GDIPLUS.DLLQ
pdfxGdipCloneBitmapAreaI
GPBITMAP
ffc\_gdiplus.vcx
GpBitmap
_GdiPlus.vcx
image/png
image/jpeg6
LCFILE
LNWIDTH
LNHEIGHT
TCNEWFILE
_CTEMPFOLDER
LCEXT
LOBMP
CREATEFROMFILE
IMAGEHEIGHT
IMAGEWIDTH
LHBITMAP
LNSTATUS
GDIPCLONEBITMAPAREAI
GDIPLUS
PDFXGDIPCLONEBITMAPAREAI
PIXELFORMAT
GETHANDLE
LOCROPPED
SETHANDLE
SETRESOLUTION
HORIZONTALRESOLUTION
VERTICALRESOLUTION
LCENCODER
LCCROPPEDFILE
SAVETOFILE
OIMAGES
<!-- nLeft:C
, nTop:
, nWidth:
, nHeight:
, ContinuationType:
, cContents:
NFRXRECNO
NLEFT
NWIDTH
NHEIGHT
NOBJECTCONTINUATIONTYPE
CCONTENTSTOBERENDERED
GDIPLUSIMAGE
LCDEBUGINFO
LCHTML
LDEBUG
GETCONTINUATIONTYPE
NOUTFILE
LNADJUST
NSCREENDPI
NPAGEHEIGHT
COMMANDCLAUSES
RANGEFROM
OBJTYPE
PROCESSLINES
PROCESSSHAPES
PROCESSTEXT
PROCESSIMAGES
LCOUTPUTDBF
LNWIDTH
LNHEIGHT
GETFULLFRXDATA
GETPAGEWIDTH
GETPAGEHEIGHT
OUTPUTFROMDATA
LDEFAULTMODE
PREPAREOUTPUT
<!-- AfterBand:
pagefooter
NBANDOBJCODE
NFRXRECNO
CBAND
FRXDATASESSION
GETBANDNAME
LDEBUG
NOUTFILE
CURRENTDATASESSION
<!-- BeforeBand:C
NBANDOBJCODE
NFRXRECNO
FRXDATASESSION
LDEBUG
NOUTFILE
GETBANDNAME
CURRENTDATASESSION
NOUTFILE
GetDeviceCaps
WIN32API
GetDC
WIN32API
Collection
GETDEVICECAPS
WIN32API
GETDC
LNSCREENDPI
NSCREENDPI
LDEBUG
_CTEMPFOLDER
OIMAGES
LOBJTYPEMODE
OFOXYPREVIEWER
COMMANDCLAUSES
LOPENVIEWER
PREVIEW
TOFILE
CTARGETFILENAME
CDESTFILE
LCDESTFILE
COUTPUTPATH
LCFILE
_REPORTLISTENER
CANCELREPORT
QUIETMODE
LQUIETMODE
outputfromdata,
getbandnamea
getfontstyle
rgbtohex
getcontinuationtypeY
getpageimgt
getpicturefromlistener
processimages
processtext
processlines`
processshapes
getlinescnt
cropimage$*
renderhtml
prepareoutput
BeforeReport
AfterReport!4
AfterBandS4
BeforeBand
Destroy
updateproperties
PROCEDURE checkreportforgeneralfields
LOCAL m.liGeneralFields, m.lcID, m.llOpened
m.liGeneralFields = 0
IF TYPE("THIS.CommandClauses.File") = "C" AND ;
   (NOT EMPTY(THIS.CommandClauses.File)) AND ;
   (FILE(THIS.CommandClauses.File)) && NB this is done before setting up dummy CommandClauses
   THIS.SetFRXDataSession()
   IF USED("FRX")
      * this will be true
      * if we call in BeforeReport,
      * but that seems to cause a problem,
      * when we re-assign SendGDIPlusImage
      * so we're likely to call earlier,
      * in the LoadReport method
      SELECT FRX
   ELSE
      USE (THIS.CommandClauses.File) SHARED NOUPDATE ALIAS FRX IN 0
      SELECT FRX
      m.llOpened = .T.
   ENDIF
   COUNT FOR ObjType = FRX_OBJTYP_PICTURE  AND  ;
           Offset =  FRX_PICTURE_SOURCE_GENERAL TO ;
             m.liGeneralFields
   IF m.llOpened
      USE IN FRX
   ENDIF
   THIS.ResetDataSession()
ENDIF
RETURN ( m.liGeneralFields > 0 )
ENDPROC
PROCEDURE imagesrcattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal) AND ;
   (NOT m.vNewVal == THIS.imageSrcAttr)
   THIS.imageSrcAttr = m.vNewVal
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE imagefilebasename_assign
LPARAMETERS m.vNewVal
THIS.ImageFileBaseName = ALLTR(CHRTRAN(JUSTSTEM(TRANSFORM(m.vNewVal)),;
                         OUTPUTCLASS_FILENAME_CHARS_DISALLOWED,"_"))
ENDPROC
PROCEDURE copyimagefilestoexternalfilelocation_assign
LPARAMETERS m.vNewVal
IF NOT THIS.IsRunning and VARTYPE(m.vNewVal) = "L"
   IF NOT (m.vNewVal = THIS.CopyImageFilesToExternalFileLocation)
      THIS.CopyImageFilesToExternalFileLocation = m.vNewVal
      THIS.adjustXSLTParameter(IIF(m.vNewVal,"1","0"),"copyImageFiles")
      IF THIS.CopyImageFilesToExternalFileLocation
         THIS.makeExternalFileLocationReachable()
      ENDIF
   ENDIF
ENDIF
ENDPROC
PROCEDURE initializefilecopysettings
#define CLSID_JPG     "{557CF401-1A04-11D3-9A73-0000F81EF32E}"
DECLARE INTEGER GdipSaveImageToFile in GDIPLUS.DLL  ;
       integer image,string filename,string @ CLSID_clsidEncoder,integer encoderParams
LOCAL m.lcID
IF ISNULL(THIS.Jpgclsid) OR EMPTY(THIS.Jpgclsid)
   DECLARE integer CLSIDFromString IN ole32 string,string @
   m.lcID = SPACE(20)
   CLSIDFromString(STRCONV(CLSID_JPG ,STRCONV_DBCS_UNICODE),@m.lcID)
   THIS.Jpgclsid = m.lcID
   m.lcID = ""
ENDIF
IF THIS.SendGDIPlusImage < LISTENER_SEND_GDI_IMAGE_HANDLE
   THIS.SendGDIPlusImage =   LISTENER_SEND_GDI_IMAGE_HANDLE
ENDIF
THIS.makeExternalFileLocationReachable()
ENDPROC
PROCEDURE adjustshapeaspectratio
LPARAMETERS m.tnWidth, m.tnHeight
IF VARTYPE(THIS.utilityImage) = "O"
    * the image is coming from a file of some sort
    * and we need to scale-and-retain
    LOCAL m.llAdjustHeight, m.llAdjustWidth
    DO CASE
        CASE (tnWidth > tnHeight)
            * use 100% of the width of the space and scale the height
            m.llAdjustHeight = .T.
        CASE (tnWidth < tnHeight)
            * use 100% of the height of the space and scale the width
            m.llAdjustWidth = .T.
        CASE (m.tnWidth = m.tnHeight)
            DO CASE
                CASE THIS.utilityImage.HEIGHT > THIS.utilityImage.WIDTH
                    m.llAdjustWidth = .T.
                CASE THIS.utilityImage.HEIGHT < THIS.utilityImage.WIDTH
                    m.llAdjustHeight = .T.
                OTHERWISE
                    * both square, don't do adjustment
            ENDCASE
    ENDCASE
    *!* ----------------------------------------------------------------------
    *!* ----------------------------------------------------------------------
    *!* 2011-08-12 - Jacques Parent
    *!* Added MIN() with the currect tnHeight/tnWidth.
    *!* Sometime, if the report place is much larger than the image
    *!* ieself, the result is a picture much bigger as what is supposed to.
    *!* ----------------------------------------------------------------------
    *!* Example:  place of W = 1500 H = 300, but picture of PW = 600 PH = 200
    *!* Since W > H, then ajust H
    *!* IF H = W * (PH/PW), then 1500 * (200/600), so 1500 * 0.33333 = 500
    *!* In nthis case, even if the place in the report is 300, the picture
    *!* will be displayed with a height of 500.
    *!* Adding a MIN get this fixed.
    *!* ----------------------------------------------------------------------
    *!* ----------------------------------------------------------------------
    IF m.llAdjustWidth
        m.tnWidth = MIN(m.tnHeight *  ;
            (THIS.utilityImage.WIDTH / THIS.utilityImage.HEIGHT), m.tnWidth)
    ENDIF
    IF m.llAdjustHeight
        m.tnHeight = MIN(m.tnWidth * ;
            (THIS.utilityImage.HEIGHT / THIS.utilityImage.WIDTH), m.tnHeight)
    ENDIF
ENDIF
ENDPROC
PROCEDURE fillalphaattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal) ;
   AND NOT (m.vNewVal == THIS.fillAlphaAttr)
   THIS.fillAlphaAttr = m.vNewVal
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE fillredattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal);
   AND NOT (m.vNewVal == THIS.fillRedAttr)
   THIS.fillRedAttr = m.vNewVal
   THIS.synchXsltProcessorUser()
ENDIF
ENDPROC
PROCEDURE fillgreenattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal);
   AND NOT (m.vNewVal == THIS.fillGreenAttr)
   THIS.fillGreenAttr = m.vNewVal
   THIS.synchXsltProcessorUser()
ENDIF
ENDPROC
PROCEDURE fillblueattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal);
   AND NOT (m.vNewVal == THIS.fillBlueAttr)
   THIS.fillBlueAttr = m.vNewVal
   THIS.synchXsltProcessorUser()
ENDIF
ENDPROC
PROCEDURE penalphaattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal);
   AND NOT (m.vNewVal == THIS.penAlphaAttr)
   THIS.penAlphaAttr = m.vNewVal
   THIS.synchXsltProcessorUser()
ENDIF
ENDPROC
PROCEDURE penredattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal);
   AND NOT (m.vNewVal == THIS.penRedAttr)
   THIS.penRedAttr = m.vNewVal
   THIS.synchXsltProcessorUser()
ENDIF
ENDPROC
PROCEDURE pengreenattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal);
   AND NOT (m.vNewVal == THIS.penGreenAttr)
   THIS.penGreenAttr = m.vNewVal
   THIS.synchXsltProcessorUser()
ENDIF
ENDPROC
PROCEDURE penblueattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal);
   AND NOT (m.vNewVal == THIS.penBlueAttr)
   THIS.penBlueAttr = m.vNewVal
   THIS.synchXsltProcessorUser()
ENDIF
ENDPROC
PROCEDURE fontnameattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal);
   AND NOT (m.vNewVal == THIS.fontNameAttr)
   THIS.fontNameAttr = m.vNewVal
   THIS.synchXsltProcessorUser()
ENDIF
ENDPROC
PROCEDURE fontstyleattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal);
   AND NOT (m.vNewVal == THIS.fontStyleAttr)
   THIS.fontStyleAttr = m.vNewVal
   THIS.synchXsltProcessorUser()
ENDIF
ENDPROC
PROCEDURE fontsizeattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal);
   AND NOT (m.vNewVal == THIS.fontSizeAttr)
   THIS.fontSizeAttr = m.vNewVal
   THIS.synchXsltProcessorUser()
ENDIF
ENDPROC
PROCEDURE pageimageattr_assign
LPARAMETERS vNewVal
LOCAL m.lcVal
m.lcVal = THIS.pageImageAttr
DODEFAULT(m.vNewVal)
IF NOT (m.lcVal == THIS.pageImageAttr)
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE datatypeattr_assign
LPARAMETERS m.vNewVal
LOCAL m.lcVal
m.lcVal = THIS.dataTypeAttr
DODEFAULT(m.vNewVal)
IF NOT (m.lcVal == THIS.dataTypeAttr )
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE datatextattr_assign
LPARAMETERS m.vNewVal
LOCAL m.lcVal
m.lcVal = THIS.dataTextAttr
DODEFAULT(m.vNewVal)
IF NOT (m.lcVal == THIS.dataTextAttr)
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE EvaluateContents
LPARAMETERS m.nFRXRecno, m.oObjProperties
IF DODEFAULT(m.nFRXRecno,m.oObjProperties)
   THIS.setFRXDataSession()
   IF USED(THIS.formattingChanges) AND NOT(EOF(THIS.formattingChanges))
      SELECT (THIS.formattingChanges)
      WITH m.oObjProperties
         IF .Reload
              REPLACE Reload WITH .T., ;
                   FR WITH .FillRed, ;
                   FG WITH .FillGreen, ;
                   FB WITH .FillBlue, ;
                   FA WITH .FillAlpha, ;
                   PR WITH .PenRed, ;
                   PG WITH .PenGreen, ;
                   PB WITH .PenBlue, ;
                   PA WITH .PenAlpha, ;
                   FNAME WITH .FontName, ;
                   FSTYLE WITH .FontStyle, ;
                   FSIZE WITH .FontSize
         ENDIF
      ENDWITH
      SELECT FRX
   ENDIF
   THIS.resetDataSession()
ENDIF

ENDPROC
PROCEDURE initializeformattingchangescursor
DODEFAULT()
IF THIS.CallEvaluateContents = LISTENER_CALLDYNAMICMETHOD_ALWAYS
   IF USED(THIS.formattingChanges)
      USE IN (THIS.formattingChanges) && override, faster to re-create
      CREATE CURSOR (THIS.FormattingChanges) ;
             (FRXRecno i, ;
              Reload l, ;
              DText M, ;
              DType c(1), ;
              FA i, ;
              FR i, ;
              FG i, ;
              FB i, ;
              PA i, ;
              PR i, ;
              PG i, ;
              PB i, ;
              FName v(50), ;
              FStyle i, ;
              FSize i ;
              )
    ELSE
       CREATE CURSOR (THIS.FormattingChanges) ;
             (FRXRecno i, ;
              Reload l, ;
              FA i, ;
              FR i, ;
              FG i, ;
              FB i, ;
              PA i, ;
              PR i, ;
              PG i, ;
              PB i, ;
              FName v(50), ;
              FStyle i, ;
              FSize i ;
              )
    ENDIF
ENDIF
ENDPROC
PROCEDURE Destroy
STORE NULL TO ;
   THIS.JPGclsid, ;
   THIS.FormattingChanges, ;
   THIS.UtilityImage
DODEFAULT()
ENDPROC
PROCEDURE contattr_assign
LPARAMETERS m.vNewVal
LOCAL m.lcVal
m.lcVal = THIS.ContAttr
DODEFAULT(m.vNewVal)
IF NOT (m.lcVal == THIS.ContAttr)
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE widthattr_assign
LPARAMETERS m.vNewVal
LOCAL m.lcVal
m.lcVal = THIS.WidthAttr
DODEFAULT(m.vNewVal)
IF NOT (m.lcVal == THIS.WidthAttr)
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE heightattr_assign
LPARAMETERS m.vNewVal
LOCAL m.lcVal
m.lcVal = THIS.HeightAttr
DODEFAULT(m.vNewVal)
IF NOT (m.lcVal == THIS.HeightAttr)
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE leftattr_assign
LPARAMETERS m.vNewVal
LOCAL m.lcVal
m.lcVal = THIS.LeftAttr
DODEFAULT(m.vNewVal)
IF NOT (m.lcVal == THIS.LeftAttr)
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE topattr_assign
LPARAMETERS m.vNewVal
LOCAL m.lcVal
m.lcVal = THIS.TopAttr
DODEFAULT(m.vNewVal)
IF NOT (m.lcVal == THIS.TopAttr)
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE idattribute_assign
LPARAMETERS m.vNewVal
LOCAL m.lcVal
m.lcVal = THIS.IdAttribute
DODEFAULT(m.vNewVal)
IF NOT (m.lcVal == THIS.IdAttribute)
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE idrefattribute_assign
LPARAMETERS m.vNewVal
LOCAL m.lcVal
m.lcVal = THIS.IdRefAttribute
DODEFAULT(m.vNewVal)
IF NOT (m.lcVal == THIS.IdRefAttribute)
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE Init
IF DODEFAULT()
   THIS.AppName = OUTPUTXMLDISPLAY_APPNAME_LOC
   RETURN .F.
ENDIF
RETURN NOT THIS.HadError
ENDPROC
PROCEDURE getrawformattinginfo
LPARAMETERS m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight, m.tnObjectContinuationType
LOCAL m.lcInfo
THIS.adjustShapeAspectRatio (@tnWidth, @tnHeight)
m.lcInfo = DODEFAULT(m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight, m.tnObjectContinuationType)
IF NOT EMPTY(THIS.ImageFieldtoFile)
   m.lcInfo = m.lcInfo + " "+THIS.ImageSrcAttr+"='"+THIS.ImageFieldtoFile+"'"
ENDIF
THIS.setFRXDataSession()
IF USED(THIS.formattingChanges) AND ;
   SEEK(RECNO("FRX"),THIS.formattingChanges,"FRXRecno")
   SELECT (THIS.formattingChanges)
   IF Reload
      m.lcInfo = m.lcInfo + " "+THIS.penAlphaAttr+"='"+TRANSFORM(PA)+"'"
      m.lcInfo = m.lcInfo + " "+THIS.penRedAttr+"='"+TRANSFORM(PR)+"'"
      m.lcInfo = m.lcInfo + " "+THIS.penGreenAttr+"='"+TRANSFORM(PG)+"'"
      m.lcInfo = m.lcInfo + " "+THIS.penBlueAttr+"='"+TRANSFORM(PB)+"'"
      m.lcInfo = m.lcInfo + " "+THIS.fillAlphaAttr+"='"+TRANSFORM(FA)+"'"
      m.lcInfo = m.lcInfo + " "+THIS.fillRedAttr+"='"+TRANSFORM(FR)+"'"
      m.lcInfo = m.lcInfo + " "+THIS.fillGreenAttr+"='"+TRANSFORM(FG)+"'"
      m.lcInfo = m.lcInfo + " "+THIS.fillBlueAttr+"='"+TRANSFORM(FB)+"'"
      m.lcInfo = m.lcInfo + " "+THIS.fontNameAttr+"='"+TRANSFORM(FNAME)+"'"
      m.lcInfo = m.lcInfo + " "+THIS.fontSizeAttr+"='"+TRANSFORM(FSIZE)+"'"
      m.lcInfo = m.lcInfo + " "+THIS.fontStyleAttr+"='"+TRANSFORM(FSTYLE)+"'"
   ENDIF
   SELECT FRX
ENDIF
RETURN m.lcInfo
ENDPROC
PROCEDURE setdomformattinginfo
LPARAMETERS m.toNode, m.tnLeft, m.tnTop, m.tnWidth,m.tnHeight, m.tnObjectContinuationType
THIS.adjustShapeAspectRatio (@m.tnWidth, @m.tnHeight)
DODEFAULT( m.toNode, m.tnLeft, m.tnTop, m.tnWidth,m.tnHeight, m.tnObjectContinuationType)
IF NOT EMPTY(THIS.ImageFieldtoFile)
   m.toNode.SetAttribute(THIS.ImageSrcAttr,THIS.ImageFieldtoFile )
ENDIF
THIS.setFRXDataSession()
IF USED(THIS.formattingChanges) AND ;
   SEEK(RECNO("FRX"),THIS.formattingChanges,"FRXRecno")
   SELECT (THIS.formattingChanges)
   IF Reload
      WITH m.toNode
          .setAttribute(THIS.penAlphaAttr,PA)
          .setAttribute(THIS.penRedAttr,PR)
          .setAttribute(THIS.penGreenAttr,PG)
          .setAttribute(THIS.penBlueAttr,PB)
          .setAttribute(THIS.fillAlphaAttr,FA)
          .setAttribute(THIS.fillRedAttr,FR)
          .setAttribute(THIS.fillGreenAttr,FG)
          .setAttribute(THIS.fillBlueAttr,FB)
          .setAttribute(THIS.fontNameAttr,FNAME)
          .setAttribute(THIS.fontSizeAttr,FSIZE)
          .setAttribute(THIS.fontStyleAttr,FSTYLE)
      ENDWITH
   ENDIF
   SELECT FRX
ENDIF
ENDPROC
PROCEDURE Render
LPARAMETERS m.nFRXRecNo,m.nLeft,m.nTop,m.nWidth,m.nHeight, ;
            m.nObjectContinuationType, m.cContentsToBeRendered, m.GDIPlusImage
LOCAL m.llCopyImage, m.lcFile, m.liDefaultBehavior
IF m.GDIPlusImage > 0 AND ;
  (ISNULL(THIS.Jpgclsid) OR EMPTY(THIS.Jpgclsid))
   * we didn't have any general fields but we do have
   * an image control, referenced as an expression,
   * they have explicitly turned on SendGDIPlusImage, and
   * this is the first time we're hitting an image control:
   THIS.initializeFileCopySettings()
ENDIF
THIS.SetFRXDataSession()
GO m.nFRXRecNo IN FRX
IF THIS.CopyImageFilesToExternalFileLocation
    IF (FRX.ObjType = FRX_OBJTYP_PICTURE) AND ;
       FRX.Offset # FRX_PICTURE_SOURCE_GENERAL AND ;
       FILE(m.cContentsToBeRendered)
       * use FILE() function here,
       * need to find if it is
       * built into an app
       m.llCopyImage = .T.
    ENDIF
ENDIF
IF (FRX.ObjType = FRX_OBJTYP_PICTURE) AND ;
    FRX.General = FRX_PICTUREMODE_SCALE_KEEP_SHAPE AND ;
    FRX.Offset # FRX_PICTURE_SOURCE_GENERAL AND ;
    FILE(m.cContentsToBeRendered)
    * NB: doing this *only* when necessary for re-scaling.
    * see above for why FILE() function -- this will work
    * with the image object.
    *!* -----------------------------------------
    *!* -----------------------------------------
    *!* 2011-08-18 - Jacques Parent
    *!* -----------------------------------------
    *!* Eliminate the LOADPICTURE that only use BMP, ICO ans WMF
    *!* Instead, open the image file with the IMAGE object
    THIS.utilityImage = CreateObject("Image")
    THIS.utilityImage.Picture = m.cContentsToBeRendered
    *!*        THIS.utilityImage = NewObject("GpBitmap", "_GdiPlus.vcx")
    *!*        THIS.utilityImage.CreateFromFile(m.cContentsToBeRendered)
    *!* -----------------------------------------
    *!* -----------------------------------------
ENDIF
THIS.SetCurrentDataSession()
DO CASE
CASE m.llCopyImage
   m.lcFile = FORCEPATH(m.cContentsToBeRendered, ;
            FULLPATH(THIS.ExternalFileLocation,ADDBS(JUSTPATH(THIS.TargetFileName))))

   IF EMPTY(SYS(2000,m.lcFile))
      * used to be:
      * COPY FILE (cContentsToBeRendered) TO (lcFile)
      * to handle files built into an app

      STRTOFILE(FILETOSTR(m.cContentsToBeRendered),m.lcFile)
   ENDIF
   IF EMPTY(SYS(2000,m.lcFile))
      THIS.ImageFieldToFile = ""
   ELSE
      THIS.ImageFieldToFile = JUSTFNAME(m.lcFile)
   ENDIF
CASE THIS.SendGDIPlusImage > LISTENER_SEND_GDI_IMAGE_NONE  AND ;
   m.GDIPlusImage > 0  AND ;
   GdipSaveImageToFile(m.GDIPlusImage,;
       STRCONV(FORCEPATH(THIS.ImageFileBaseName + "_"+ ;
                         TRANSFORM(THIS.ImageFieldInstance+1)+".jpg",;
                         FULLPATH(THIS.ExternalFileLocation,ADDBS(JUSTPATH(THIS.TargetFileName))))+CHR(0), ;
               STRCONV_DBCS_UNICODE) ,THIS.JPGCLSID,0) = 0
   THIS.ImageFieldInstance = THIS.ImageFieldInstance + 1
   THIS.ImageFieldToFile = THIS.ImageFileBaseName +"_"+ ;
                           TRANSFORM(THIS.ImageFieldInstance)+".jpg"
OTHERWISE
   THIS.ImageFieldToFile = ""
ENDCASE
m.liDefaultBehavior = DODEFAULT(m.nFRXRecNo, @m.nLeft,@m.nTop,@m.nWidth,@m.nHeight, ;
          @m.nObjectContinuationType, @m.cContentsToBeRendered, @m.GDIPlusImage)

THIS.ImageFieldToFile = ""
*!* -----------------------------------------
*!* -----------------------------------------
*!* 2011-08-18 - Jacques Parent
*!* -----------------------------------------
*!* Just make sure to clear up the the picture
*!* by destroying the image object AND by
*!* clearing the resources for the image
IF NOT ISNULL(THIS.UtilityImage)
    THIS.UtilityImage = NULL
    CLEAR RESOURCES (m.cContentsToBeRendered)
ENDIF
*!* -----------------------------------------
*!* -----------------------------------------
THIS.resetDataSession()
RETURN m.liDefaultBehavior
ENDPROC
PROCEDURE UnloadReport
DODEFAULT()
*!* 2011-08-12 - Jacques Parent - Cleanup ehe Temp Image collection
WITH This
    If VARTYPE(.oTempImagesCollection) = "O" Then && Cleanup Temporary Images Files
        LOCAL lcItem AS String
        FOR EACH lcItem IN .oTempImagesCollection FOXOBJECT
            *!* 2010-08-25 - Jacques Parent - Add TRY CATCH ENDTRY to catch error message
            IF VARTYPE(lcItem) = "C" AND FILE(lcItem)
                LOCAL loExc as Exception
                TRY
                    DELETE FILE (lcItem)
                CATCH TO loExc
                    * SET STEP ON
                ENDTRY
            ENDIF
        ENDFOR
        .oTempImagesCollection = Null
    ENDIF
ENDWITH
IF NOT (THIS.noPageEject OR ;
 ((TYPE("THIS.CommandClauses.NoPageEject") = "L") AND ;
   THIS.CommandClauses.NoPageEject))
   IF NOT ISNULL(THIS.OldExternalFileLocation)
      * even if empty
      THIS.ExternalFileLocation = THIS.OldExternalFileLocation
      THIS.OldExternalFileLocation = NULL
   ENDIF
   IF NOT (THIS.OldSendGDIPlusImage = THIS.SendGDIPlusImage)
      THIS.SendGDIPlusImage = THIS.OldSendGDIPlusImage
   ENDIF
ENDIF
THIS.resetDataSession()
ENDPROC
PROCEDURE resetdocument
THIS.ResetToDefault("ImageFieldInstance")
THIS.ResetToDefault("ImageFieldToFile")
THIS.ResetToDefault("UtilityImage")
DODEFAULT()
ENDPROC
PROCEDURE BeforeReport
IF THIS.XMLMode # OUTPUTXML_RDL_ONLY
   THIS.oldSendGDIPlusImage = THIS.SendGDIPlusImage
   THIS.oldExternalFileLocation =  THIS.ExternalFileLocation
   THIS.JPGclsid = NULL && force reinitialization for each report
                        && on possible discovery of an image control mid-way
   IF THIS.checkReportForGeneralFields()
      THIS.initializeFileCopySettings()
   ENDIF
ENDIF
DODEFAULT()
THIS.resetDataSession()
ENDPROC
PROCEDURE getvfprdlcontents
LPARAMETERS m.tcNodeName, m.tlAsString
IF VARTYPE(THIS.CommandClauses) = "O"
   ADDPROPERTY(THIS.CommandClauses,;
             "externalFileLocation", ;
             THIS.externalFileLocation)

   ADDPROPERTY(THIS.CommandClauses, ;
            "copyImageFilesToExternalFileLocation", ;
            THIS.copyImageFilesToExternalFileLocation)

   ADDPROPERTY(THIS.CommandClauses, ;
            "imageFileBaseName", ;
            THIS.imageFileBaseName)
ENDIF

RETURN DODEFAULT(m.tcNodeName, m.tlAsString)
ENDPROC
PROCEDURE AfterReport
LPARAMETERS tlCalledEarly
DODEFAULT(tlCalledEarly)
THIS.resetDataSession()
ENDPROC
PROCEDURE gdipluslib_assign
LPARAMETERS m.tvValue
IF VARTYPE(m.tvValue) = "C"
   m.tvValue = ALLTRIM(m.tvValue)
   DO CASE
   CASE(EMPTY(m.tvValue) OR FILE(m.tvValue))
       THIS.gdiPlusLib = m.tvValue
   CASE FILE(FORCEEXT(m.tvValue,"VCX"))
       THIS.gdiPlusLib = FORCEEXT(m.tvValue,"VCX")
   ENDCASE
ENDIF
ENDPROC
PROCEDURE mimetype_assign
LPARAMETERS m.tvValue
IF VARTYPE(m.tvValue) = "C" AND "/" $ m.tvValue
   THIS.mimetype = ALLTRIM(m.tvValue)
ENDIF
ENDPROC
PROCEDURE forceon_assign
LPARAMETERS m.tvValue
IF VARTYPE(m.tvValue) = "L"
   THIS.forceOn = m.tvValue
ENDIF
ENDPROC
PROCEDURE applyfx
LPARAMETERS m.toListener, m.tcMethodToken, ;
            m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, m.tP6, ;
            m.tP7, m.tP8, m.tP9, m.tP10, m.tP11, m.tP12

LOCAL m.liSession, m.liSelect, m.liFRXRecno, m.lvReturn, ;
      m.liDriver, m.err AS EXCEPTION
m.lvReturn = .T.
IF THIS.listenerSupportsSaveClip(m.toListener)
   TRY
      m.liSession = SET("DATASESSION")
      IF m.toListener.FRXDATASESSION > -1
         SET DATASESSION TO m.toListener.FRXDATASESSION
         m.liSelect = SELECT(0)
         DO CASE
         CASE m.tcMethodToken == "BEFOREREPORT"
            THIS.aImageCopies = .F.
            THIS.iImageInstanceIndex = 0
            IF USED (m.toListener.MemberDataAlias)
               SELECT (m.toListener.MemberDataAlias)
               LOCATE FOR ;
                  NAME == THIS.sNameSpace
               THIS.lOnThisRun = (FOUND() OR THIS.forceOn)
               IF THIS.lOnThisRun
                  THIS.Setup(m.toListener)
               ENDIF
            ENDIF
         CASE m.tcMethodToken == "RENDER" AND ;
              NOT ISNULL(m.toListener.FFCGraphics) AND ;
              THIS.lOnThisRun
            m.lvReturn = OUTPUTFX_DEFAULT_RENDER_BEHAVIOR
            m.liFRXRecno =  m.toListener.getFRXRecno(m.tcMethodToken,m.tP1, m.tP2)
            GO m.liFRXRecNo IN FRX
            SELECT (m.toListener.MemberDataAlias)
            LOCATE FOR FRXRecno = m.liFRXRecno AND ;
                   NAME == THIS.sNameSpace
            IF FOUND()
               THIS.setupImageClip(m.toListener, ;
                   m.tP2, m.tP3, m.tP4, m.tP5, @m.tP7, ;
                   (FRX.ObjType = FRX_OBJTYP_PICTURE))
            ENDIF
         CASE m.tcMethodToken == "AFTERREPORT"
            IF THIS.listenerSupportsSaveClip(m.toListener,.F.)
               THIS.saveImageClips(m.toListener)
            ENDIF
            THIS.Cleanup(m.toListener)
         ENDCASE
     ELSE
         THIS.lOnThisRun = .F.
     ENDIF

  CATCH TO m.err
     #IF OUTPUTCLASS_DEBUGGING
         SUSPEND
     #ENDIF
  FINALLY
     IF VARTYPE(m.err) = "O"
        *&* this object cleans up after an error --
        *&* doesn't provide a choice, although it could.
        THIS.Cleanup(m.toListener)
     ENDIF
     IF m.toListener.FRXDataSession # -1
        SET DATASESSION TO m.toListener.FrxDataSession
        SELECT (m.liSelect)
        SET DATASESSION TO (m.liSession)
     ENDIF
  ENDTRY
ENDIF
RETURN  m.lvReturn



ENDPROC
PROCEDURE getcurrentclipfilename
IF THIS.iImageInstanceIndex = 0 OR ;
   EMPTY(THIS.aImageCopies[THIS.iImageInstanceIndex,2])
   RETURN ""
   RETURN THIS.aImageCopies[THIS.iImageInstanceIndex,2]
ENDIF
ENDPROC
PROCEDURE outputpageclip
LPARAMETERS m.nPageNo, ;
            m.eDevice, ;
            m.nDeviceType, ;
            m.nleft, m.nTop, m.nWidth, m.nHeight, ;
            m.nClipLeft,m.nClipTop, m.nClipWidth, m.nClipHeight
  LOCAL m.laBind[1]
  AEVENTS(m.laBind,0)
  THIS.saveImageClips(laBind[1],m.nPageNo)
ENDPROC
PROCEDURE setupimageclip
LPARAMETERS m.toListener, ;
            m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight, ;
            m.tvContentsToBeRendered, m.tlImageControl
LOCAL m.lcFileName
THIS.iImageInstanceIndex = THIS.iImageInstanceIndex + 1
DIME THIS.aImageCopies[THIS.iImageInstanceIndex,6]

* create a file name based on THIS.Name and THIS.iImageInstanceIndex
* unless the name of the object is the name of the class, which
* may happen if it is a privately-owned object
IF UPPER(THIS.Name) == UPPER(THIS.Class)
   m.lcFileName = "C"+SYS(2015)
   m.lcFileName = THIS.Name
ENDIF
m.lcFileName = FORCEPATH(FORCEEXT(;
               m.lcFileName + "_"+TRANSFORM(THIS.iImageInstanceIndex), ;
              THIS.getImageExt()),THIS.sImagePath)
IF m.tlImageControl
   m.tvContentsToBeRendered = m.lcFileName
   #IF OUTPUTCLASS_DEBUGGING
       m.tvContentsToBeRendered = STRCONV(m.lcFileName,STRCONV_DBCS_UNICODE)
   #ENDIF
ENDIF

THIS.aImageCopies[THIS.iImageInstanceIndex,1] = m.toListener.PageNo
THIS.aImageCopies[THIS.iImageInstanceIndex,2] = m.lcFileName
THIS.aImageCopies[THIS.iImageInstanceIndex,3] = m.tnLeft
THIS.aImageCopies[THIS.iImageInstanceIndex,4] = m.tnTop
THIS.aImageCopies[THIS.iImageInstanceIndex,5] = m.tnWidth
THIS.aImageCopies[THIS.iImageInstanceIndex,6] = m.tnHeight
ENDPROC
PROCEDURE saveimageclips
LPARAMETERS m.toListener, m.tiPage
IF NOT THIS.listenerSupportsSaveClip(m.toListener)
   RETURN .F.
ENDIF
LOCAL m.lcTempfile, m.liPageIndex, m.liImageIndex, m.liStartPage, m.liEndPage
m.lcTempFile = FORCEEXT(FORCEPATH(SYS(2015),SYS(2023)),"EMF") && always goes to temp dir
THIS.oPoint.Set(0,0)
IF THIS.listenerSupportsSaveClip(m.toListener, .T.)
   m.liStartPage = VAL(TRANSFORM(m.tiPage))
   m.liEndPage  = m.liStartPage
   UNBINDEVENTS(THIS)
   * avoid recursion the easy way.
   m.liStartPage = 1
   m.liEndPage = m.toListener.PageTotal
ENDIF
IF EMPTY(THIS.sImageFullPath)
   * should just happen the first time through
   * in paged mode
   IF PEMSTATUS(m.toListener,"targetFileName",5) AND ;
      NOT EMPTY(JUSTPATH(m.toListener.targetFileName))
      THIS.sImageFullPath = FULLPATH(THIS.sImagePath,m.toListener.targetFileName)
   ELSE
      THIS.sImageFullPath = FULLPATH(THIS.sImagePath)
   ENDIF
ENDIF
m.liImageIndex = ASCAN(THIS.aImageCopies,m.liStartPage,1,THIS.iImageInstanceIndex,1,8)
IF m.liImageIndex > 0
   FOR m.liPageIndex = m.liStartPage TO m.liEndPage
       m.toListener.OutputPage(m.liPageIndex,m.lcTempFile,100)
       THIS.oImageSrc.CreateFromFile(m.lcTempFile)
       DO WHILE m.liImageIndex <= THIS.iImageInstanceIndex
          IF THIS.aImageCopies[m.liImageIndex,1] > m.liPageIndex
              EXIT
          ENDIF
          THIS.oImageDest.Create(CEILING(THIS.aImageCopies[m.liImageIndex,5]/10) + ;
                                 THIS.margin,;
                                 CEILING(THIS.aImageCopies[liImageIndex,6]/10) + ;
                                 THIS.margin)
          THIS.oPrivateGraphics.CreateFromImage(THIS.oImageDest)
          THIS.oRect.Set(FLOOR(THIS.aImageCopies[m.liImageIndex,3]/10) ,;
                         FLOOR(THIS.aImageCopies[m.liImageIndex,4]/10) ,;
                         CEILING(THIS.aImageCopies[m.liImageIndex,5]/10  + ;
                         THIS.margin),;
                         CEILING(THIS.aImageCopies[liImageIndex,6]/10) + ;
                         THIS.margin)
          THIS.oPrivateGraphics.DrawImagePortionAt(;
                    THIS.oImageSrc, THIS.oPoint, THIS.oRect, 2)
          THIS.oImageDest.SaveToFile(FORCEPATH(THIS.aImageCopies[m.liImageIndex,2], ;
                                               THIS.sImageFullPath), ;
                                     THIS.mimetype)
          m.liImageIndex = m.liImageIndex + 1
       ENDDO
    NEXT
    ERASE (m.lcTempFile)
ENDIF
IF THIS.listenerSupportsSaveClip(m.toListener,.T.)
   BINDEVENT(m.toListener,"OutputPage",THIS,"outputPageClip")
ENDIF
ENDPROC
PROCEDURE getimageext
*&* override as you see fit.
RETURN SUBSTR(THIS.mimetype,RAT("/",THIS.mimetype) + 1)
ENDPROC
PROCEDURE setup
LPARAMETERS m.toListener
IF VARTYPE(m.toListener) # "O"
   THIS.lOnThisRun = .F.
   * early quit
ENDIF
IF THIS.lOnThisRun
   IF EMPTY(THIS.gdiPlusLib) OR ;
      NOT FILE(THIS.gdiPlusLib)
      IF ISNULL(m.toListener.FFCGraphics)
         THIS.lOnThisRun = .F.
      ELSE
         THIS.gdiPlusLib = m.toListener.FFCGraphics.ClassLibrary
      ENDIF
   ENDIF
   * test:
   LOCAL loTemp
   TRY
      loTemp = NEWOBJECT("gpPoint",THIS.gdiPlusLib,THIS.gdiPlusLibModule)
   CATCH WHEN .T.
      THIS.gdiPlusLib = "_gdiplus.vcx"
      IF FILE(THIS.gdiPlusLib)
         THIS.gdiPlusLib = ""
      ELSE
         THIS.gdiPlusLib = _REPORTOUTPUT
      ENDIF
      * one more try
      TRY
         loTemp = NEWOBJECT("gpPoint",THIS.gdiPlusLib,THIS.gdiPlusLibModule)
      CATCH WHEN .T.
         loTemp = NULL
      ENDTRY
   FINALLY
      IF VARTYPE(loTemp) # "O"
         THIS.lOnThisRun = .F.
      ENDIF
      loTemp = NULL
   ENDTRY
ENDIF
IF THIS.lOnThisRun
   IF PEMSTATUS(m.toListener,"externalFileLocation",5) AND ;
      (NOT EMPTY(m.toListener.externalFileLocation))
      THIS.sImagePath = ADDBS(m.toListener.externalFileLocation)
   ELSE
      STORE SYS(2023) TO THIS.sImagePath, THIS.sImageFullPath
   ENDIF
   IF THIS.listenerSupportsSaveClip(m.toListener,.T.)
      * page-at-a-time mode
      * bind to outputpage event
      BINDEVENT(m.toListener,"OutputPage",THIS,"outputPageClip")
   ENDIF
   IF VARTYPE(THIS.oImageSrc) # "O"
      THIS.oImageSrc = NEWOBJECT("gpBitMap",THIS.gdiPlusLib,THIS.gdiPlusLibModule)
   ENDIF
   IF VARTYPE(THIS.oImageDest) # "O"
       THIS.oImageDest = NEWOBJECT("gpBitMap",THIS.gdiPlusLib,THIS.gdiPlusLibModule)
   ENDIF
   IF VARTYPE(THIS.oPoint) # "O"
      THIS.oPoint = NEWOBJECT("gpPoint",THIS.gdiPlusLib,THIS.gdiPlusLibModule)
   ENDIF
   IF VARTYPE(THIS.oRect) # "O"
      THIS.oRect = NEWOBJECT("gpRectangle",THIS.gdiPlusLib,THIS.gdiPlusLibModule)
   ENDIF
   IF VARTYPE(THIS.oPrivateGraphics) # "O"
      THIS.oPrivateGraphics = NEWOBJECT("gpGraphics",THIS.gdiPlusLib,THIS.gdiPlusLibModule)
   ENDIF
 ENDIF
ENDPROC
PROCEDURE gdipluslibmodule_assign
LPARAMETERS m.tvValue
IF VARTYPE(m.tvValue) = "C"
   m.tvValue = ALLTRIM(m.tvValue)
   IF(EMPTY(m.tvValue) OR (NOT EMPTY(SYS(2000,(m.tvValue)))))
       THIS.gdiPlusLibModule = m.tvValue
   ENDIF
ENDIF
ENDPROC
PROCEDURE listenersupportssaveclip
LPARAMETERS m.toListener,m.tlActInPagedMode
DO CASE
CASE m.toListener.ListenerType = LISTENER_TYPE_DEF
   RETURN .F.
CASE PCOUNT() < 2
   RETURN m.toListener.ListenerType # LISTENER_TYPE_DEF
CASE tlActInPagedMode
   RETURN INLIST(m.toListener.ListenerType,LISTENER_TYPE_PRN,LISTENER_TYPE_PAGED)
OTHERWISE
   RETURN INLIST(m.toListener.ListenerType,LISTENER_TYPE_PRV,LISTENER_TYPE_ALLPGS)
ENDCASE
ENDPROC
PROCEDURE cleanup
LPARAMETERS m.toListener
IF THIS.lOnThisRun AND VARTYPE(m.toListener) = "O" AND ;
   THIS.listenerSupportsSaveClip(m.toListener,.T.)
   UNBINDEVENTS(THIS)
ENDIF
THIS.lOnThisRun = .F.
STORE "" TO ;
      THIS.sImagePath, ;
      THIS.sImageFullPath
STORE NULL TO  ;
      THIS.oImageSrc, ;
      THIS.oImageDest, THIS.oPrivateGraphics, ;
      THIS.oPoint, THIS.oRect
ENDPROC
PROCEDURE margin_assign
LPARAMETERS m.tvNewVal
IF VARTYPE(m.tvNewVal) = "N"
   THIS.margin = INT(m.tvNewVal)
ENDIF
ENDPROC
PROCEDURE Init
       #DEFINE THISNAMESPACE         "Spacefold.LSN.gfxOutputClip"

       *&* An appropriate namespace must be defined for cases in which
       *&* you want to use this gfx on its own and share it
       *&* by placing it in the GFXs collection.
       *&* You can set the outputclip behavior to occur only
       *&* after all other rendering is through, and
       *&* also ensure availability of the clip files and
       *&* clip file names to all Successors, by using this
       *&* approach.  Simply add memberdata to the layout elements
       *&* you want clipped (no other memberdata property besides
       *&* the name attribute is needed by this object).
       *&* The layout elements to be clipped
       *&* can be of any report control type.

       *&* However, this object can be invoked explicitly, even
       *&* when shared, by a custom rendering extension
       *&* using "ForceOn" behavior, and without
       *&* any memberdata instructions in the report.
       *&* It is also constructed to be
       *&* well-behaved if multiple custom rendering extensions
       *&* keeps private copies and invoke them explicitly
       *&* rather than putting a shared copy in the GFXs collection.

       *&* Now that you have read this note <g>
       *&* and if you want this object to work on its
       *&* own in the GFXs collection as a shared worker object,
       *&* you can :
       *&* override the Init in your subclass with
       *&* an appropriate namespace value
       *&* OR
       *&* uncomment the IF/ENDIF below and set
       *&* an appropriate default property definition
       *&* in your subclass.
       *&* IF VARTYPE(THIS.sNamespace) # "C" OR EMPTY(THIS.sNamespace)
          THIS.sNameSpace = THISNAMESPACE
       *&* ENDIF
ENDPROC
PROCEDURE Destroy
THIS.Cleanup()
ENDPROC
~%PROCEDURE allowmodalmessages_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L"
   THIS.AllowModalMessages = m.vNewVal
ENDIF
ENDPROC
PROCEDURE lignoreerrors_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L"
   THIS.lIgnoreErrors = m.vNewVal
ENDIf
ENDPROC
PROCEDURE prepareerrormessage
LPARAMETERS m.nError, m.cMethod, m.nLine, m.cName, m.cMessage, m.cCodeLine
LOCAL m.lcErrorMessage, m.lcCodeLineMsg
IF VARTYPE(cMessage) = "C"
   m.lcErrorMessage = m.cMessage
   m.lcErrorMessage = MESSAGE()
ENDIF
m.lcErrorMessage = m.lcErrorMessage + CHR(13) + CHR(13)
IF VARTYPE(cName) = "C"
   m.lcErrorMessage = m.lcErrorMessage + m.cName
   m.lcErrorMessage = m.lcErrorMessage + this.Name
ENDIF
m.lcErrorMessage = m.lcErrorMessage + CHR(13)+ ;
          OUTPUTCLASS_ERRNOLABEL_LOC +ALLTRIM(STR(m.nError))+CHR(13)+ ;
         OUTPUTCLASS_ERRPROCLABEL_LOC +LOWER(ALLTRIM(m.cMethod))
IF VARTYPE(m.cCodeLine) = "C"
   m.lcCodeLineMsg = m.cCodeLine
   m.lcCodeLineMsg = MESSAGE(1)
ENDIF
IF BETWEEN(m.nLine,1,100000) AND NOT m.lcCodeLineMsg="..."
    m.lcErrorMessage= ;
       m.lcErrorMessage+CHR(13)+ OUTPUTCLASS_ERRLINELABEL_LOC+ ;
        ALLTRIM(STR(m.nLine))
    IF NOT EMPTY(m.lcCodeLineMsg)
       m.lcErrorMessage= ;
           m.lcErrorMessage+CHR(13)+CHR(13)+m.lcCodeLineMsg
    ENDIF
ENDIF
RETURN m.lcErrorMessage
ENDPROC
PROCEDURE pushglobalsets
  * abstract: set any globals here that aren't session-bound
ENDPROC
PROCEDURE popglobalsets
* abstract: restore any globals here that aren't session-bound
ENDPROC
PROCEDURE clearerrors
THIS.HadError = .F.
THIS.LastErrorMessage = ""
ENDPROC
PROCEDURE getlasterrormessage
RETURN STRTRAN(THIS.LastErrorMessage, CHR(13), " ")
ENDPROC
PROCEDURE addreport
LPARAMETERS m.tcFRXName, m.tcClauses, m.toListener
* can this one be done while report is running?
* Possibly yes because we're always adding to the end.
IF VARTYPE(m.tcFrxName) = "C" AND ;
   (FILE(m.tcFRXName) OR FILE(FORCEEXT(m.tcFRXName,"FRX")) OR FILE(FORCEEXT(m.tcFRXName,"LBX")))
   * If any is null, create all collections
   * always add to all three collections
   * to keep them in synch
   IF ISNULL(THIS.ReportFileNames) OR ;
      ISNULL(THIS.ReportClauses) OR ;
      ISNULL(THIS.Listeners)
      * start fresh
      * this *shouldn't* be a datasession problem
      * unless they're doing it from inside a form,
      * but JIC:
      LOCAL liSession
      m.liSession = SET("DATASESSION")
      THIS.resetDataSession()
      THIS.ReportFileNames = CREATEOBJECT("Collection")
      THIS.ReportClauses = CREATEOBJECT("Collection")
      THIS.Listeners = CREATEOBJECT("Collection")
      DIME THIS.ReportPages[1]
      SET DATASESSION TO (m.liSession)
   ENDIF
   THIS.ReportFileNames.Add(m.tcFRXName)
   DIME THIS.ReportPages[THIS.ReportFileNames.Count]
   THIS.ReportPages[THIS.ReportFileNames.Count] = 0
   IF VARTYPE(m.tcClauses) = "C"
      THIS.ReportClauses.Add(m.tcClauses)
   ELSE
      THIS.ReportClauses.Add("")
   ENDIF
   IF TYPE("toListener.BaseClass") = "C" AND ;
      UPPER(toListener.BaseClass) == "REPORTLISTENER"
      THIS.Listeners.Add(toListener)
   ELSE
      THIS.Listeners.Add(NULL)
   ENDIF
   * TBD: should we error here?
ENDIF
ENDPROC
PROCEDURE removereports
IF NOT (THIS.IsRunningReports)
   THIS.ReportFileNames = NULL
   THIS.ReportClauses = NULL
   THIS.Listeners = NULL
   DIME THIS.ReportPages[1]
   THIS.ReportPages[1] = 0
ENDIF
ENDPROC
PROCEDURE runreports
LPARAMETERS m.tlRemoveReportsAfterRun, m.tlOmitListenerReferences
IF NOT ;
 (THIS.IsRunningReports OR ;
  ISNULL(THIS.ReportFileNames) OR ;
  THIS.ReportFileNames.Count = 0)
  LOCAL m.oError, m.liIndex, m.lcClauses, m.loListener, m.lcParse
  m.oError = NULL
  THIS.IsRunningReports = .T.
  TRY
    FOR m.liIndex = 1 TO THIS.ReportFileNames.Count
       * the clauses, filenames, and listener collections are
       * protected properties, we're
       * taking care of how they match up,
       * that FRXs exist, etc.
       m.lcClauses = UPPER(THIS.ReportClauses[m.liIndex])
       m.loListener = THIS.Listeners[m.liIndex]
       DO CASE
       CASE " OBJE " $ STRTRAN(" "+m.lcClauses,"CT", " ") OR ;
            " OBJEC " $ " "+m.lcClauses OR ;
            m.tlOmitListenerReferences
          m.loListener = NULL
          REPORT FORM (THIS.ReportFileNames[m.liIndex]) &lcClauses
          TRY
             m.lcParse = " " + STRTRAN(" "+m.lcClauses," OBJECT ", " OBJE ")
             m.lcParse = STRTRAN(m.lcParse," OBJEC ", " OBJE ")
             m.lcParse = SUBSTR(m.lcParse,AT(" OBJE ", m.lcParse)+5)
             DO CASE
             CASE m.tlOmitListenerReferences
                * we're going with old-style behavior for sure here
             CASE " TYPE " $ " " + m.lcClauses
                m.lcParse = ALLTRIM(STRTRAN(" " + m.lcParse," TYPE ",""))
                IF " " $ m.lcParse
                   m.lcParse = ALLTRIM(LEFT(m.lcParse,AT(" ",m.lcParse,1)))
                ENDIF
                IF VAL(m.lcParse) > 0
                   m.loListener = EVALUATE("_oReportOutput['" + m.lcParse+"']")
                ENDIF
             OTHERWISE
                m.lcParse = ALLTRIM(m.lcParse)
                IF " " $ m.lcParse
                   m.lcParse = ALLTRIM(LEFT(m.lcParse,AT(" ",m.lcParse,1)))
                ENDIF
                m.loListener = EVALUATE(m.lcParse)
             ENDCASE
          CATCH
             m.loListener = NULL
          ENDTRY
       CASE ISNULL(loListener)
          REPORT FORM (THIS.ReportFileNames[m.liIndex]) &lcClauses  OBJECT THIS
          m.loListener = THIS
       OTHERWISE
          REPORT FORM (THIS.ReportFileNames[m.liIndex]) &lcClauses  OBJECT m.loListener
       ENDCASE

       THIS.adjustReportPagesInfo(m.liIndex, m.lcClauses, m.loListener)
*&* Sedna change:
*&*  see new THIS.adjustReportPagesInfo method, to which we pass report index, clauses, and
*&*  evaluated listener ref.  Original code here was:
*&*          IF NOT (" NOWA " $ STRTRAN(" "+m.lcClauses,"IT"," ") OR ;
*&*                  " NOWAI " $ " " + m.lcClauses)
*&*             THIS.ReportPages[m.liIndex] = THIS.SharedPageTotal
*&*             * TBD: make this a two-column array with
*&*             * output pages (responsive to RANGE clause)
*&*             * represented as well?
*&*          ENDIF

    ENDFOR

  CATCH TO m.oError
     LOCAL lcErrMsg
     IF (ISNULL(m.oError))
         lcErrMsg = MESSAGE() + CHR(13) + MESSAGE(1)
     ELSE
         lcErrMsg = THIS.PrepareErrorMessage(;
               m.oError.ErrorNo, ;
               m.oError.PROCEDURE, ;
               m.oError.LINENO, ;
               THIS.AppName, ;
               m.oError.MESSAGE, ;
               m.oError.LineContents)
     ENDIF
     THIS.DoMessage(lcErrMsg, MB_ICONSTOP)
     THIS.lastErrorMessage = lcErrMsg
     #IF OUTPUTCLASS_DEBUGGING
         SUSPEND
     #ENDIF
     EXIT
  FINALLY
     THIS.IsRunningReports = .F.
     IF m.tlRemoveReportsAfterRun
       THIS.RemoveReports()
     ENDIF
     STORE NULL TO m.loListener, m.oError
  ENDTRY
ENDIF
ENDPROC
PROCEDURE setfrxdatasessionenvironment
THIS.setFRXDataSession()
SET TALK OFF
ENDPROC
PROCEDURE invokeoncurrentpass
RETURN .T.
ENDPROC
PROCEDURE resetdatasession
IF PEMSTATUS(This, "lDefaultMode", 5) AND (This.lDefaultMode = .F.)
    RETURN
ENDIF
IF (THIS.listenerDataSession > -1)
   TRY
      SET DATASESSION TO (THIS.listenerDataSession)
   CATCH WHEN .T.
      THIS.ResetToDefault("listenerDataSession")
      SET DATASESSION TO (THIS.listenerDataSession)
   ENDTRY
ENDIF
ENDPROC
PROCEDURE setfrxdatasession
IF PEMSTATUS(This, "lDefaultMode", 5) AND (This.lDefaultMode = .F.)
    RETURN
ENDIF
IF (THIS.FRXDataSession > -1) AND (THIS.FRXDataSession # SET("DATASESSION"))
   TRY
      SET DATASESSION TO (THIS.FRXDataSession)
   CATCH WHEN .T.
      THIS.ResetToDefault("FRXDataSession")
      THIS.resetDataSession()
   ENDTRY
ENDIF
ENDPROC
PROCEDURE setcurrentdatasession
IF PEMSTATUS(This, "lDefaultMode", 5) AND (This.lDefaultMode = .F.)
    RETURN
ENDIF
IF (THIS.CurrentDataSession # SET("DATASESSION"))
   TRY
      SET DATASESSION TO (THIS.CurrentDataSession)
   CATCH WHEN .T.
      THIS.ResetToDefault("CurrentDataSession")
      THIS.resetDataSession()
   ENDTRY
ENDIF
ENDPROC
PROCEDURE quietmode_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L"
   THIS.quietmode = m.vNewVal
ENDIF
ENDPROC
PROCEDURE issuccessor_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L"
   THIS.isSuccessor = m.vNewVal
ENDIF
ENDPROC
PROCEDURE successor_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND ;
   (ISNULL(m.vNewVal) OR ;
   (VARTYPE(m.vNewVal) = "O" AND UPPER(m.vNewVal.BaseClass) == "REPORTLISTENER"))
   THIS.Successor = m.vNewVal
ENDIF
ENDPROC
PROCEDURE getfrxstartupinfo
THIS.SetFRXDataSession()
IF USED("FRX")
   SELECT FRX
   LOCATE FOR ObjType = FRX_OBJTYP_DATAENV AND ;
              Platform = FRX_PLATFORM_WINDOWS AND ;
              NOT DELETED()
   THIS.ReportUsesPrivateDataSession = Frx.Environ
   * could also use
   * THIS.CommandClauses.StartDataSession # THIS.CurrentDataSession
   LOCATE FOR ObjType = FRX_OBJTYP_REPORTHEADER AND ;
                        Platform = FRX_PLATFORM_WINDOWS AND ;
                        NOT DELETED()
   THIS.frxHeaderRecno = RECNO("FRX")
   THIS.ReportUsesPrivateDataSession = .F.
   THIS.frxHeaderRecno = -1
ENDIF
THIS.SetCurrentDataSession()
IF THIS.reportUsesPrivateDataSession
   SET TALK OFF
ENDIF
THIS.DrivingAlias = UPPER(ALIAS())
ENDPROC
PROCEDURE setsuccessordynamicproperties
IF NOT THIS.isSuccessor
   THIS.sharedOutputPageCount = THIS.OutputPageCount
   THIS.sharedPageTotal = THIS.PageTotal
   THIS.sharedPageNo = THIS.PageNo
   THIS.sharedGdiplusGraphics = THIS.GDIPlusGraphics
ENDIF
WITH THIS.Successor
   .CurrentPass = THIS.CurrentPass
   .TwoPassProcess = THIS.TwoPassProcess
   .sharedOutputPageCount = THIS.sharedOutputPageCount
   .sharedPageTotal = THIS.sharedPageTotal
   .sharedPageNo = THIS.sharedPageNo
   .sharedGdiplusGraphics  = THIS.sharedGdiplusGraphics
   .CallEvaluateContents = THIS.CallEvaluateContents
   .CallAdjustObjectSize = THIS.CallAdjustObjectSize
ENDWITH
ENDPROC
PROCEDURE appname_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.appname = m.vNewVal
ENDIF
ENDPROC
PROCEDURE sharedgdiplusgraphics_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N"
   THIS.SharedGDIplusGraphics = m.vNewVal
ENDIF
ENDPROC
PROCEDURE sharedpageheight_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N"
   THIS.sharedPageHeight = m.vNewVal
ENDIF
ENDPROC
PROCEDURE sharedpagewidth_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N"
   THIS.sharedPageWidth = m.vNewVal
ENDIF
ENDPROC
PROCEDURE listenertype_assign
LPARAMETERS m.vNewVal
IF THIS.SupportsListenerType(m.vNewVal) AND ;
   NOT THIS.IsRunning
   THIS.ListenerType = m.vNewVal
ENDIF
ENDPROC
PROCEDURE outputtype_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N" AND NOT THIS.IsRunning
   THIS.OutputType = INT(m.vNewVal)
   IF THIS.SupportsListenerType(THIS.OutputType)
      THIS.ListenerType = THIS.OutputType
   ENDIF
ENDIF
ENDPROC
PROCEDURE sharedoutputpagecount_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N"
   THIS.sharedOutputPageCount = m.vNewVal
ENDIF
ENDPROC
PROCEDURE sharedpageno_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N"
   THIS.sharedPageNo = m.vNewVal
ENDIF
ENDPROC
PROCEDURE sharedpagetotal_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N"
   THIS.sharedPageTotal = m.vNewVal
ENDIF
ENDPROC
PROCEDURE setfrxrunstartupconditions
IF ISNULL(THIS.CommandClauses)
   THIS.CommandClauses = CREATEOBJECT("Empty")
ENDIF
IF TYPE("THIS.CommandClauses.NoDialog") # "L"
   ADDPROPERTY(THIS.CommandClauses,"NoDialog",.F.)
ENDIF
* add anything critical during a run
* that might not be available, whether
* because this is a custom attribute
* or because public methods of ReportListener
* might be called outside a normal report run.
ENDPROC
PROCEDURE pagelimit_assign
LPARAMETERS m.tVal
IF VARTYPE(m.tVal) = "N" AND CEILING(m.tVal) > 0
   THIS.PageLimit = CEILING(m.tVal)
ELSE
   THIS.PageLimit = -1
ENDIF
ENDPROC
PROCEDURE pagetoplimit_assign
LPARAMETERS m.tVal
IF VARTYPE(m.tVal) = "N" AND CEILING(m.tVal) > 0
   THIS.PageTopLimit = CEILING(m.tVal)
ELSE
   THIS.PageTopLimit = -1
ENDIF
ENDPROC
PROCEDURE pagetaillimit_assign
LPARAMETERS m.tVal
IF VARTYPE(m.tVal) = "N" AND CEILING(m.tVal) > 0
   THIS.PageTailLimit = CEILING(m.tVal)
ELSE
   THIS.PageTailLimit = -1
ENDIF
ENDPROC
PROCEDURE pagelimitquietmode_assign
LPARAMETERS m.tVal
IF VARTYPE(m.tVal) = "L"
   THIS.PageLimitQuietMode = m.tVal
ENDIF
ENDPROC
PROCEDURE pagelimitinsiderange_assign
LPARAMETERS m.tVal
IF VARTYPE(m.tVal) = "L"
   THIS.PageLimitInsideRange = m.tVal
ENDIF
ENDPROC
PROCEDURE resetdynamicmethodcalls
*&* Sedna:
* poll Successor, who would
* have already run all this code on its
* own behalf:
IF INLIST(THIS.callAdjustObjectSize,;
          LISTENER_CALLDYNAMICMETHOD_CHECK_CODE,;
          LISTENER_CALLDYNAMICMETHOD_NEVER)
   THIS.resetCallAdjustObjectSize()
ELSE  && already set to LISTENER_CALLDYNAMICMETHOD_ALWAYS, always call
  * leave alone
ENDIF
IF INLIST(THIS.callEvaluateContents,;
          LISTENER_CALLDYNAMICMETHOD_CHECK_CODE,;
          LISTENER_CALLDYNAMICMETHOD_NEVER)
   THIS.resetCallEvaluateContents()
ELSE  && already set to LISTENER_CALLDYNAMICMETHOD_ALWAYS, always call
  * leave alone
ENDIF
IF NOT ISNULL(THIS.Successor)
   IF PEMSTATUS(THIS.successor,"CallAdjustObjectSize",5) AND ;
      THIS.successor.CallAdjustObjectSize = LISTENER_CALLDYNAMICMETHOD_ALWAYS
      THIS.CallAdjustObjectSize = LISTENER_CALLDYNAMICMETHOD_ALWAYS
   ENDIF
   IF PEMSTATUS(THIS.successor,"CallEvaluateContents",5) AND ;
      THIS.successor.CallEvaluateContents = LISTENER_CALLDYNAMICMETHOD_ALWAYS
      THIS.CallEvaluateContents = LISTENER_CALLDYNAMICMETHOD_ALWAYS
   ENDIF
ENDIF
ENDPROC
PROCEDURE resetcalladjustobjectsize
* abstract, poll members
ENDPROC
PROCEDURE resetcallevaluatecontents
* abstract, poll members
ENDPROC
PROCEDURE sharedlistenertype_assign
LPARAMETERS vNewVal
IF VARTYPE(m.vNewVal) = "N" AND ;
   INLIST(m.vNewVal,LISTENER_TYPE_DEF,;
                    LISTENER_TYPE_PRN,;
                    LISTENER_TYPE_PRV,;
                    LISTENER_TYPE_PAGED,;
                    LISTENER_TYPE_ALLPGS)
   THIS.sharedListenerType = m.vNewVal
ENDIF
ENDPROC
PROCEDURE commandclausesfile_assign
LPARAMETERS m.tvNewVal
IF VARTYPE(m.tvNewVal) = "C" AND ;
   FILE(m.tvNewVal) && not SYS(2000), could be built into an app
   THIS.commandClausesFile = m.tvNewVal
   THIS.commandClausesFile = NULL
ENDIF
ENDPROC
PROCEDURE preparefrxswapcopy
LPARAMETERS m.tcPath, m.tlKeepCopyOpen, m.tlAdjustCommandClausesInLoadReport
LOCAL m.lcPath, m.lcFile, m.liSession, m.lcAlias, m.liSelect, m.llSafety
m.lcFile = ""
m.liSession = SET("DATASESSION")
m.liSelect = 0
   THIS.setFRXDataSession()
   m.liSelect = SELECT(0)
   DO CASE
   CASE VARTYPE(m.tcPath) = "C" AND ;
      (NOT EMPTY(m.tcPath)) AND DIRECTORY(ADDBS(m.tcPath))
      m.lcPath = m.tcPath
   CASE NOT DIRECTORY(ADDBS(JUSTPATH(THIS.CommandClauses.FILE)))
      * report does not exist on disk
      * and its path has not been re-created in the
      * current environment, potentially with related
      * image directories, etc.
      m.lcPath = SYS(2023)
   CASE EMPTY(SYS(2000,THIS.CommandClauses.File))
      * report does not exist on disk
      m.lcPath = SYS(2023)
   OTHERWISE
      * whenever possible,
      * the best place for this copy will
      * always be in the same location as the
      * original FRX, for relative-pathing reasons.
      m.lcPath = JUSTPATH(THIS.CommandClauses.File)
   ENDCASE
   m.lcFile = FORCEEXT(FORCEPATH("F"+SYS(2015), m.lcPath),"FRX")
   IF USED("FRX") && this method should ordinarily
                  && be used as part of a report swap, and that
                  && means in LoadReport only.  FRX isn't used yet.
                  && But we'll provide this mechanism,
                  && in case somebody has a different reason
                  && to use this method at another
                  && point in report processing --
                  && XML Listener has one,
                  && for example!
      SELECT 0
      CREATE CURSOR x (onefield l)
      * we're in the frxdatasession, this is safe
      CREATE REPORT (m.lcFile) FROM  (ALIAS()) && (DBF("x"))
      USE IN x
      SELECT 0
      USE (m.lcFile) EXCLUSIVE ALIAS (JUSTSTEM(m.lcFile))
      m.lcAlias = ALIAS()
      m.llSafety = (SET("SAFETY") == "ON")
      SET SAFETY OFF
      ZAP
      IF m.llSafety
         SET SAFETY ON
      ENDIF
      SELECT FRX
      SCAN ALL FOR NOT DELETED()
         SCATTER MEMVAR MEMO
         INSERT INTO (m.lcAlias) FROM MEMVAR
      ENDSCAN
      IF NOT m.tlKeepCopyOpen
         USE IN (m.lcAlias)
      ENDIF
   ELSE
      * this is the normal swap mechanism
      * SYS(2000) may be empty but FILE() should not
      * be, even if this report was not on disk,
      * and CommandClauses.File should be fully-qualified.
      SELECT 0
      USE (THIS.CommandClauses.File) ;
        SHARED NOUPDATE ;
        ALIAS (JUSTSTEM(THIS.CommandClauses.File))
      m.lcAlias = ALIAS()
      SELECT * FROM (THIS.CommandClauses.File) ;
         WHERE NOT DELETED() ;
         INTO TABLE (m.lcFile)
      USE IN (m.lcAlias)
      IF NOT m.tlKeepCopyOpen
         m.lcAlias = JUSTSTEM(m.lcFile)
         * this should always work because of the way
         * we've defined the m.lcFile contents
         IF USED(m.lcAlias)
            USE IN (m.lcAlias)
         ENDIF
      ENDIF
   ENDIF
CATCH WHEN .T.
   m.lcFile = ""
FINALLY
   IF (NOT (EMPTY(m.lcFile) OR EMPTY(SYS(2000,m.lcFile)))) AND ;
      m.tlAdjustCommandClausesInLoadReport AND ;
      NOT m.tlKeepCopyOpen
      THIS.CommandClauses.File = m.lcFile
   ENDIF
   IF m.liSelect > 0
      SELECT (m.liSelect)
   ENDIF
   SET DATASESSION TO (m.liSession)
ENDTRY
RETURN m.lcFile
ENDPROC
PROCEDURE removefrxswapcopy
LPARAMETERS m.tcFile,m.tlRecycle
LOCAL m.lcRecyle, m.llResettingSharedCopy
IF EMPTY(m.tcFile) AND THIS.isFRXSwapCopyPresent()
   m.llResettingSharedCopy = .T.
   m.tcFile = THIS.CommandClauses.File
ENDIF
IF NOT EMPTY(m.tcFile)
   IF m.tlRecycle
      m.lcRecycle = " RECYCLE"
   ELSE
      m.lcRecycle = ""
   ENDIF
   IF NOT EMPTY(SYS(2000,FORCEEXT(m.tcFile,"FRX")))
      ERASE (FORCEEXT(m.tcFile,"FRX")) &lcRecycle
   ENDIF
   IF NOT EMPTY(SYS(2000,FORCEEXT(m.tcFile,"FRT")))
      ERASE (FORCEEXT(m.tcFile,"FRT")) &lcRecycle
   ENDIF
   IF m.llResettingSharedCopy
      THIS.CommandClauses.File = THIS.commandClausesFile
   ENDIF
ENDIF
ENDPROC
PROCEDURE isfrxswapcopypresent
RETURN (NOT ISNULL(THIS.commandClausesFile)) AND ;
       (NOT EMPTY(THIS.commandClausesFile)) AND ;
       (TYPE("THIS.commandClauses.File") = "C") AND ;
       (NOT UPPER(THIS.commandClausesFile) == UPPER(THIS.CommandClauses.File))
ENDPROC
PROCEDURE adjustreportpagesinfo
LPARAMETERS m.tiReportIndex, m.tcClauses, m.toListener
   * this is a *sketch*.  There are lots of different ways you
   * could decide you wanted this to work.
   * Subclasses can make this a multi-column array with
   * output pages (responsive to RANGE clause)
   * represented as well, decide when to accumulate and when not,
   * or whether to set up a separate array col for
   * curr page versus total page,
   * when to use listener ref data versus _PAGENO when a
   * listener ref is available,
   * and if so how to deal with NORESET,
   * when to use the shared/writable versions of FFC's SharedPageNo
   * and SharedPageTotal versus the readonly product versions,
   * because they are more similar to _PAGENO and _PAGETOTAL,
   * whether page limits (top and tail) are significant, etc, etc, etc, etc.
IF m.tiReportIndex = 1
   * adjust the columns however you want to use them...
   * in our version:
   IF ALEN(THIS.reportPages,2) < 2
      DIME THIS.reportPages(THIS.ReportFileNames.Count,2)
   ENDIF
ENDIF
IF THIS.ReportFileNames.Count >= m.tiReportIndex
   IF ISNULL(m.toListener)
      THIS.reportPages[m.tiReportIndex,1] = _PAGENO
   ELSE
      THIS.reportPages[m.tiReportIndex,1] = m.toListener.PageNo
   ENDIF
   IF m.tiReportIndex = 1
      THIS.reportPages[m.tiReportIndex,2] = THIS.reportPages[m.tiReportIndex,1]
   ELSE
      THIS.reportPages[m.tiReportIndex,2] = ;
         THIS.reportPages[m.tiReportIndex,1] + ;
         THIS.reportPages[m.tiReportIndex-1,2]
   ENDIF
ENDIF
ENDPROC
PROCEDURE shellexec
LPARAMETERS lcLink As String, lcAction As String, lcParms As String
IF EMPTY(lcLink)
    RETURN
ENDIF
IF NOT "\" $ lcLink
    lcLink = FULLPATH(lcLink)
ENDIF
lcAction = Iif(Empty(lcAction), "Open", lcAction)
lcParms = IIF(Empty(lcParms), "", lcParms)
Declare Integer ShellExecute In SHELL32.Dll Integer nWinHandle, String cOperation, String cFileName, String cParameters, String cDirectory, Integer nShowWindow
Declare Integer FindWindow In WIN32API String cNull,String cWinName
Return ShellExecute(FindWindow(0, _Screen.Caption), lcAction, lcLink, lcParms, Sys(2023), 1)
ENDPROC
PROCEDURE IncludePageInOutput
LPARAMETERS m.nPageNo
LOCAL m.llInclude
IF (NOT THIS.isSuccessor) AND ;
   (THIS.PageLimit > 0) AND ;
   (THIS.PageNo > THIS.PageLimit)
   * note that nPageNo and the
   * current CommandClauses.RangeFrom and RangeTo values
   * only refer to the current report, which
   * is potentially one of a series using NOPAGEEJECT.
   * THIS.PageNo refers to the overall number of pages that
   * have been run, across the multiple reports.
   IF NOT THIS.pageLimitQuietMode
      THIS.DoMessage(OUTPUTCLASS_PAGELIMIT_LOC , MB_ICONEXCLAMATION)
   ENDIF
   THIS.LastErrorMessage = OUTPUTCLASS_PAGELIMIT_LOC
   THIS.CancelReport()
   DO CASE
   CASE (THIS.isSuccessor)
      * do not try to limit run unless
      * communicating with native engine
      m.llInclude = .T.
   CASE (THIS.PageTopLimit = -1) AND ;
        (THIS.PageTailLimit = -1)
      * no limits set
      m.llInclude = .T.
   CASE THIS.PageTopLimit = -1
     * only bottom end requested
      IF THIS.PageLimitInsideRange
         m.llInclude = (THIS.PageNo <= THIS.PageTailLimit)
      ELSE
         m.llInclude = (THIS.PageNo >= THIS.PageTailLimit)
      ENDIF
   CASE THIS.PageTailLimit = -1
     * only top end requested
      IF THIS.PageLimitInsideRange
         m.llInclude = (THIS.PageNo >= THIS.PageTopLimit)
      ELSE
         m.llInclude = (THIS.PageNo <= THIS.PageTopLimit)
      ENDIF
   OTHERWISE
      * both top and tail requested
      IF THIS.PageLimitInsideRange
         m.llInclude = BETWEEN(THIS.PageNo,THIS.PageTopLimit, THIS.PageTailLimit)
      ELSE
         m.llInclude = ((THIS.PageNo <= THIS.PageTopLimit) OR ;
                        (THIS.PageNo >= THIS.PageTailLimit))
      ENDIF
   ENDCASE
ENDIF
RETURN (m.llInclude AND DODEFAULT(m.nPageNo))
ENDPROC
PROCEDURE DoStatus
LPARAMETERS m.cMessage
NODEFAULT
IF NOT (THIS.QuietMode OR (THIS.IsRunning AND THIS.CommandClauses.Nodialog))
   IF THIS.TwoPassProcess AND THIS.CurrentPass = 0
      WAIT WINDOW NOWAIT OUTPUTCLASS_PREPSTATUS_LOC
   ELSE
      IF VARTYPE(m.cMessage) = "C"
         DODEFAULT(m.cMessage)
      ENDIF
   ENDIF
ENDIF
ENDPROC
PROCEDURE LoadReport
THIS.clearErrors()
THIS.setFRXDataSessionEnvironment()
THIS.resetDataSession()
THIS.frxHeaderRecno = -1
IF NOT ISNULL(THIS.Successor)
   WITH THIS.Successor
      .AddProperty("isSuccessor",.T.)
      .AddProperty("commandClausesFile",THIS.commandClausesFile )
      .PrintJobName = THIS.PrintJobName
      .CommandClauses = THIS.CommandClauses
      .LoadReport()
   ENDWITH
ENDIF
ENDPROC
PROCEDURE ClearStatus
DODEFAULT()
IF NOT ISNULL(THIS.Successor)
   THIS.SetSuccessorDynamicProperties()
   THIS.Successor.ClearStatus()
ENDIF
ENDPROC
PROCEDURE UpdateStatus
DODEFAULT()
IF NOT ISNULL(THIS.Successor)
   THIS.SetSuccessorDynamicProperties()
   THIS.Successor.UpdateStatus()
ENDIF
ENDPROC
PROCEDURE UnloadReport
IF NOT THIS.IsSuccessor
   THIS.SharedPageWidth = THIS.GetPageWidth()
   THIS.SharedPageHeight = THIS.GetPageHeight()
ENDIF
THIS.resetDataSession()
IF NOT ISNULL(THIS.Successor)
   WITH THIS.Successor
      .FRXDataSession = THIS.FRXDataSession
      .CurrentDataSession = THIS.CurrentDataSession
      .TwoPassProcess = THIS.TwoPassProcess
      .CommandClauses = THIS.CommandClauses
      .SharedPageHeight = THIS.SharedPageHeight
      .SharedPageWidth = THIS.SharedPageWidth
      THIS.SetSuccessorDynamicProperties()
      .UnloadReport()
      .IsSuccessor = .F.
   ENDWITH
ENDIF
ENDPROC
PROCEDURE CancelReport
IF NOT THIS.IsSuccessor
   DODEFAULT()
   NODEFAULT
ENDIF
IF NOT ISNULL(THIS.Successor)
   THIS.SetSuccessorDynamicProperties()
   THIS.Successor.CancelReport()
ENDIF
ENDPROC
PROCEDURE AfterReport
IF NOT THIS.IsSuccessor
   THIS.SharedPageWidth = THIS.GetPageWidth()
   THIS.SharedPageHeight = THIS.GetPageHeight()
ENDIF
IF NOT ISNULL(THIS.Successor)
   WITH THIS.Successor
      .FRXDataSession = THIS.FRXDataSession
      .CurrentDataSession = THIS.CurrentDataSession
      .TwoPassProcess = THIS.TwoPassProcess
      .CommandClauses = THIS.CommandClauses
      .SharedPageHeight = THIS.SharedPageHeight
      .SharedPageWidth = THIS.SharedPageWidth
      THIS.SetSuccessorDynamicProperties()
      .AfterReport()
      .ResetToDefault("FRXDataSession")
      .ResetToDefault("CurrentDataSession")

   ENDWITH
ENDIF
IF NOT THIS.IsSuccessor
   NODEFAULT
   DODEFAULT()
ENDIF
ENDPROC
PROCEDURE Init
THIS.listenerDataSession = SET("DATASESSION")
IF DODEFAULT()
   THIS.AppName = OUTPUTCLASS_APPNAME_LOC + " - " + This.Class
   RETURN .F.
ENDIF
*&* Sedna
* this may be necessary if you
* modify and compile these classes in a build that
* does have the two native properties
* and then go back to use them with a version
* that does *not* have the native properties
* (it's possible to lose the custom definitions)
IF NOT PEMSTATUS(THIS,"CallEvaluateContents",5)
   THIS.AddProperty("CallEvaluateContents", LISTENER_CALLDYNAMICMETHOD_CHECK_CODE)
ENDIF
IF NOT PEMSTATUS(THIS,"CallAdjustObjectSize",5)
   THIS.AddProperty("CallAdjustObjectSize", LISTENER_CALLDYNAMICMETHOD_CHECK_CODE)
ENDIF
RETURN NOT THIS.HadError
ENDPROC
PROCEDURE BeforeBand
LPARAMETERS m.nBandObjCode, m.nFRXRecNo
IF NOT ISNULL(THIS.Successor)
   THIS.SetSuccessorDynamicProperties()
   THIS.Successor.BeforeBand(m.nBandObjCode, m.nFRXRecNo)
ENDIF
THIS.resetDataSession()
ENDPROC
PROCEDURE DoMessage
LPARAMETERS m.cMessage,m.iParams,m.cTitle
NODEFAULT
IF THIS.QuietMode OR ;
  (THIS.IsRunning AND THIS.CommandClauses.NoDialog)
   * to emulate the base class behavior, do both checks,
   * in case the call to DoMessage() occurs
   * before the baseclass sets QuietMode .T. in response
   * to NoDialog at the beginning of the report run,
   * or after the baseclass re-sets Quietmode to .F.
   * at the end of the report run.
   RETURN 0
   IF THIS.AllowModalMessages
      IF VARTYPE(m.cTitle) = "C"
         RETURN MESSAGEBOX(TRANS(m.cMessage),VAL(TRANS(m.iParams)),m.cTitle)
      ELSE
         RETURN MESSAGEBOX(TRANS(m.cMessage),VAL(TRANS(m.iParams)),THIS.AppName)
      ENDIF
   ELSE
      THIS.DoStatus(m.cMessage)
      RETURN 0
   ENDIF
ENDIF
ENDPROC
PROCEDURE Error
LPARAMETERS m.nError, m.cMethod, m.nLine
LOCAL m.lcOnError,m.lcErrorMsg,m.lcCodeLineMsg
THIS.HadError = .T.
IF this.lIgnoreErrors OR _vfp.StartMode>0
    RETURN .F.
ENDIF
m.lcOnError=UPPER(ALLTRIM(ON("ERROR")))
IF NOT EMPTY(m.lcOnError)
    m.lcOnError=STRTRAN(STRTRAN(STRTRAN(lcOnError,"ERROR()","nError"), ;
            "PROGRAM()","cMethod"),"LINENO()","nLine")
    &lcOnError
    RETURN
ENDIF
m.lcErrorMsg = THIS.PrepareErrorMessage(m.nError,m.cMethod, m.nLine)
THIS.LastErrorMessage = m.lcErrorMsg
THIS.DoMessage(m.lcErrorMsg, MB_ICONSTOP )
#IF OUTPUTCLASS_DEBUGGING
    ERROR m.nError
#ENDIF
ENDPROC
PROCEDURE BeforeReport
THIS.setFRXRunStartupConditions()
THIS.getFRXStartupInfo()
THIS.resetDataSession()
IF NOT THIS.IsSuccessor
   THIS.sharedPageHeight = THIS.GetPageHeight()
   THIS.sharedPageWidth = THIS.GetPageWidth()
   THIS.sharedListenerType = THIS.ListenerType
   THIS.ResetToDefault("sharedPageNo")
   THIS.ResetToDefault("sharedPageTotal")
   THIS.ResetToDefault("sharedOutputPageCount")
   THIS.ResetToDefault("sharedGDIPlusGraphics")
ENDIF
IF NOT ISNULL(THIS.Successor)
   WITH THIS.Successor
      .AddProperty("sharedGDIPlusGraphics", THIS.sharedGDIPlusGraphics)
      .AddProperty("sharedPageHeight", THIS.sharedPageHeight)
      .AddProperty("sharedPageWidth", THIS.sharedPageWidth)
      .AddProperty("sharedOutputPageCount", THIS.sharedOutputPageCount)
      .AddProperty("sharedPageNo", THIS.sharedPageNo)
      .AddProperty("sharedPageTotal", THIS.sharedPageTotal)
      .AddProperty("sharedListenerType",THIS.ListenerType)
       THIS.setSuccessorDynamicProperties()
      .FRXDataSession = THIS.FRXDataSession
      .CurrentDataSession = THIS.CurrentDataSession
      .TwoPassProcess = THIS.TwoPassProcess
      .CommandClauses = THIS.CommandClauses
      .commandClausesFile = THIS.commandClausesFile
      * doing the above line here because some dynamic
      * object may have adjusted it in the Load and we can
      * correct original value here.
      .BeforeReport()
   ENDWITH
ENDIF
*&* Sedna -- we want this *after* successor has run BeforeReport code,
*&* but some Successor.BeforeReport code might
*&* have an affect on Dynamics
THIS.resetDynamicMethodCalls()
*&* .. so we'll re-set those dynamic properties again afterwards
IF NOT ISNULL(THIS.Successor)
   WITH THIS.successor
       IF .CallEvaluateContents < THIS.CallEvaluateContents
          .CallEvaluateContents = THIS.CallEvaluateContents
       ENDIF
       IF .CallAdjustObjectSize < THIS.CallAdjustObjectSize
          .CallAdjustObjectSize = THIS.CallAdjustObjectSize
       ENDIF
   ENDWITH
ENDIF
ENDPROC
PROCEDURE Destroy
STORE NULL TO ;
  THIS.runCollector, ;
  THIS.Successor, ;
  THIS.Listeners, ;
  THIS.ReportClauses, ;
  THIS.ReportFileNames, ;
  THIS.PreviewContainer, ;
  THIS.CommandClauses
ENDPROC
PROCEDURE AfterBand
LPARAMETERS m.nBandObjCode, m.nFRXRecno
IF NOT ISNULL(THIS.Successor)
   THIS.SetSuccessorDynamicProperties()
   THIS.Successor.AfterBand(m.nBandObjCode, m.nFRXRecNo)
ENDIF
ENDPROC
PROCEDURE Render
LPARAMETERS m.nFRXRecno, m.nLeft, m.nTop, m.nWidth, m.nHeight, ;
            m.nObjectContinuationType, m.cContentsToBeRendered, m.GDIPlusImage
IF NOT ISNULL(THIS.Successor)
   THIS.SetSuccessorDynamicProperties()
   THIS.Successor.Render( m.nFRXRecno, m.nLeft, m.nTop, m.nWidth, m.nHeight, ;
                          m.nObjectContinuationType, m.cContentsToBeRendered, m.GDIPlusImage)
ENDIF
ENDPROC
GPFONT
\ffc\_gdiplus.vcx
GPSOLIDBRUSH
\ffc\_gdiplus.vcx
GPRECTANGLE
\ffc\_gdiplus.vcx
BOOLEAN
GPGRAPHICS
\ffc\_gdiplus.vcx
XFCGRAPHICSSTATE
EXCEPTION
 <CR>
 <CR>
 <CR>
 <LASTWORD>
<LASTWORD>
<LASTWORD>
EXCEPTION
Error drawing the justified string !C
Line:
String that generated the error
TCSTRING
TOFONT
TOBRUSH
TORECTANGLE
TLJUSTLAST
TOGFX
LHFONT
LHGRAPHICS
LHBRUSH
LCRECTF
LNSPACEWIDTH
LNLINEHEIGHT
LCTEXT
LOGFXSTATE
LHTEMPSTRFORMAT
LHSTRINGFORMAT
LHLEFTALIGNHANDLE
LHRIGHTALIGNHANDLE
LNWORDS
LNWORDWIDTH
LNCHARS
LCCURRWORD
LCCUTWORD
LNREDUCE
LLENDOFSENTENCE
LNWORDSWIDTH
LNWORDSINLINE
LNCURRWORD
LNCURRLINE
LNWIDTHOFBETWEEN
LNSTRINGFORMATHANDLE
LLLAST
LOEXC
LHGFXSTATE
SAVE
GETHANDLE
GETHEIGHT
XFCGDIPSETTEXTRENDERINGHINT(
XFCGDIPSTRINGFORMATGETGENERICTYPOGRAPHIC
XFCGDIPCLONESTRINGFORMAT
XFCGDIPDELETESTRINGFORMAT
XFCGDIPSETSTRINGFORMATFLAGS
XFCGDIPCREATESTRINGFORMAT
XFCGDIPSETSTRINGFORMATALIGN
PCBOUNDINGBOX
XFCGDIPMEASURESTRING
LAWORDS
RESTORE
LLLASTLINE
LCCHAR
XFCGDIPDRAWSTRING
ERRORNO
MESSAGE
LINENO
LINECONTENTS
LCMSG
ZZZZZZZZFOXYPREVIEWER
EXCEPTION
GPGRAPHICS
\FFC\_GdiPlus.vcx
GPFont
GPFont
GPFont
gpColorC
gpSolidBrush
ffffff
gpColorC
gpSolidBrush
TNFRXRECNO
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
TNOBJECTCONTINUATIONTYPE
TCCONTENTSTOBERENDERED
TIGDIPLUSIMAGE
TCFULLTEXT
TCFONTNAME0
TNFONTSIZE0
TNFONTSTYLE0
TNFILLRED0
TNFILLGREEN0
TNFILLBLUE0
TNPENRED0
TNPENGREEN0
TNPENBLUE0
LCSTEP
LOFRXRECORD
LNSELECT
THIS
CFRXALIAS
LOFRXREC
LOEXC
LHTEMPSTRFORMAT
LHSTRINGFORMAT
LHLEFTALIGNHANDLE
LHRIGHTALIGNHANDLE
LCRECTF
PCBOUNDINGBOX
LOGFX
OGDIGRAPHICS
LHGFX
LHFONT
GETHANDLE
LHGFXSTATE
XFCGDIPSETTEXTRENDERINGHINT(
XFCGDIPSTRINGFORMATGETGENERICTYPOGRAPHIC
XFCGDIPCLONESTRINGFORMAT
XFCGDIPDELETESTRINGFORMAT
XFCGDIPSETSTRINGFORMATFLAGS
XFCGDIPCREATESTRINGFORMAT
XFCGDIPSETSTRINGFORMATALIGN
XFCGDIPSETSTRINGFORMATLINEALIGN
TFPROCESS
LNWORDS
LNMAXHEIGHT
ATFWORDS
LCWORD
LCFONT
LNFONTSIZE
LCFONTSTYLE
LNRED
LNGREEN
LNBLUE
LNBACKRED
LNBACKGREEN
LNBACKBLUE
LNSTYLE
LNLINEHEIGHT
LNWORDWIDTH
LNWORDHEIGHT
LNFONTHEIGHT
LOFONT
CREATE
GETHEIGHT
XFCGDIPMEASURESTRING
LOCOLOR
LOBRUSH
LNXNEXT
LNCURRLINE
LALINES
LCOLDFORMAT
LCNEXTFORMAT
LCOLDWORD
LCNEXTWORD
LNCOUNT
LCCURRWORD
LNCURRWIDTH
LANEWWORDS
LNPREVLINE
RESTORE
LNSTRINGFORMATHANDLE
LOFONT1
LHFONT1
LOBACKCOLOR
LOBACKBRUSH
FILLRECTANGLE
XFCGDIPDRAWSTRING
TFADDTOOUTPUT<$
 [CR]
 [CR]
 [CR]
 [CR]
 [CR]
 [CR]
CCCCC
CCCCC
<color=
<fname=
<fsize=
CCCCC
<fstyle=
CCCCC
<fontname=
<fontsize=
CCCCC
<highlight=
<fontstyle=
<color=
</color>
<highlight=
</highlight>
<fontname=
</fontname>
<fontsize=
</fontsize>
<fontstyle=
</fontstyle>
<fname=
</fname>
<fsize=
</fsize>
<fstyle=
</fstyle>
<color=
<highlight=
<fname=
<fontname=
<fsize=
<fontsize=
<fstyle=
<fontstyle=
</color>
</highlight>
</fname>
</fontname>
</fsize>
</fontsize>
</fstyle>
</fontstyle>
<color=
<highlight=
<fontname=
<fontsize=
<fontstyle=
<fname=
<fsize=
<fstyle=
</color>
</highlight>
</fontname>
</fontsize>
</fontstyle>
</fname>
</fsize>
</fstyle>
<color=
<highlight=
<fname=
<fontname=
<fsize=
<fontsize=
<fstyle=
<fontstyle=
</color>
</highlight>
</fname>
</fontname>
</fsize>
</fontsize>
</fstyle>
</fontstyle>
TCSTRING
TLRETURNVANILLASTRING
LCRESULTSTRING
LCCOLORSTACK
LCHIGHLIGHTSTACK
LCFONTNAMESTACK
LCFONTSIZESTACK
LCFONTSTYLESTACK
LLBOLD
LLITALIC
LLUNDERLINE
LLSTRIKETHRU
LLCOLOR
LLHIGHLIGHT
LLFONTNAME
LLFONTSIZE
LLFONTSTYLE
LLWHITESTYLED
LCPARAMWORD
LCPARAMFNAME
LNPARAMFSIZE
LCPARAMFSTYLE
LNPARAMCRED
LNPARAMCGREEN
LNPARAMCBLUE
LNPARAMHRED
LNPARAMHGREEN
LNPARAMHBLUE
LCWHITEFNAME
LNWHITEFSIZE
LCWHITEFSTYLE
LNWHITECRED
LNWHITECGREEN
LNWHITECBLUE
LNWHITEHRED
LNWHITEHGREEN
LNWHITEHBLUE
LNWORDS
LCWORD
LCWORDLOW
LCCOLORVALUE
LCTAGVALUE
LCSTYLE
LNKSTART
LCKSTRING
LCKCHUNK
LCKTAGPRE
LCKTAGVALUE
LCTEMPSTRING
LCNEXTCHAR
ATFWORDS
INTEGER
ffffff
TNRECNO
TNOBJECTCONTINUATIONTYPE
TCWORD
TIGDIPLUSIMAGE
TCFONT
TNFONTSIZE
TNFONTSTYLE
TNPENRED
TNPENGREEN
TNPENBLUE
TNFILLRED
TNFILLGREEN
TNFILLBLUE
TOFRX
LNSELECT
LNRECNO
CAUXFULLOUTPUTALIAS
NRECNO
FRXWIDTH
FRXHEIGHT
FRXTOP
FRXRECNO
DBFRECNO
CONTTYPE
CONTENTS
UNCONTENTS
FRXINDEX
DYNAMICS
ROTATE
CFRXALIAS
COUTPUTALIAS
PAGENO
FONTFACE
FONTSIZE
FONTSTYLE
PENRED
PENGREEN
PENBLUE
FILLRED
FILLGREEN
FILLBLUE
WIDTH
HEIGHT
OWATERMARKBMP
DESTROY
DataSessionv
m.oObjProperties.Text = SPACE(1) + ALLTRIM(TRANSFORM(m.lnValue, &lcFormat.))
NFRXRECNO
OOBJPROPERTIES
VALUE
LCFORMAT
LNVALUE
ARECORDS
NADJ
LNSESSION
LNSELECT
SETFRXDATASESSION
PICTURE
RELOAD
LOEXC
oGDIGraphics
aRecords[1]
lHasFJ-
lNewPage-
lHasUserFld-
lUsingWatermark-
cWatermarkImage
nWatermarkType
nWatermarkTransparency
nWatermarkWidthRatio
nWatermarkHeightRatio
oWatermarkBmp
ADDPROPERTY"
GPGraphics
GPGraphics
_GdiPlus.vcx
USER/
<FJ>C
<TF>C
GPBITMAP
\ffc\_gdiplus.vcx
GpBitmap
COLORMATRIX
PR_GdiplusHelper.Prg
GpAttrib
PR_GdiplusHelper.Prg
333333
333333
333333
OGDIGRAPHICS
SETFRXDATASESSION
LHASUSERFLD
LNADJ
LNOLDSIZE
ARECORDS
LHASFJ
RESETDATASESSION
OFOXYPREVIEWER
CWATERMARKIMAGE
NWATERMARKTYPE
NWATERMARKTRANSPARENCY
NWATERMARKWIDTHRATIO
NWATERMARKHEIGHTRATIO
LUSINGWATERMARK
LOBMP
CREATEFROMFILE
LOATT
LCMATRIX
COLORMATRIX
APPLYCOLORMATRIX
OWATERMARKBMP
DESTROY
NBANDOBJCODE
NFRXRECNO
LHASFJ
LEXPANDFIELDS
CALLEVALUATECONTENTS
LNEWPAGE
ISSUCCESSOR
SHAREDGDIPLUSGRAPHICS
GDIPLUSGRAPHICS
OGDIGRAPHICS
SETHANDLE
GPRECTANGLE
GPRectangle
GPBITMAP
FFC\_Gdiplus.vcx
GpBitmap
GPGRAPHICS
FFC\_Gdiplus.vcx
GPGRAPHICS
\FFC\_GdiPlus.vcx
GPRECTANGLE
\FFC\_GdiPlus.vcx
GPFONT
\FFC\_GdiPlus.vcx
GPSOLIDBRUSH
\FFC\_GdiPlus.vcx
GPCOLOR
\FFC\_GdiPlus.vcx
<TF>C
GPRectangle
GPFont
gpColor
gpSolidBrush
gpColor
gpSolidBrush
TNFRXRECNO
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
TNOBJECTCONTINUATIONTYPE
TCCONTENTSTOBERENDERED
TIGDIPLUSIMAGE
ARECORDS
LNEWPAGE
LUSINGWATERMARK
OGDIGRAPHICS
SETHANDLE
ISSUCCESSOR
SHAREDGDIPLUSGRAPHICS
GDIPLUSGRAPHICS
LNWIDTH
LNHEIGHT
NWATERMARKWIDTHRATIO
NWATERMARKHEIGHTRATIO
LORECT
SHAREDPAGEWIDTH
SHAREDPAGEHEIGHT
LOBMP
OWATERMARKBMP
CREATEFROMFILE
CWATERMARKIMAGE
LOGFX
DRAWIMAGESCALED
LOOBJECT
LCTEXT
LLFLAG
LOFONT
LOBRUSH
LOCOLOR
LNALPHA
LLSTOREDATA
LSTOREDATA
STOREFRXDATA
LHASFJ
DRAWSTRINGINTF
FONTNAME
FONTSIZE
FONTSTYLE
FILLRED
FILLGREEN
FILLBLUE
PENRED
PENGREEN
PENBLUE
CREATE
FILLALPHA
FILLRECTANGLE
PENALPHA
DRAWSTRINGJUSTIFIED/
OGDIGRAPHICS
SETHANDLE
drawstringjustified,
drawstringintf
tfprocess
tfaddtooutput
Destroyd_
EvaluateContents
Init c
BeforeReport
BeforeBandVk
Render
AfterReport_y
THIS.CommandClauses.Fileb
LIGENERALFIELDS
LLOPENED
COMMANDCLAUSES
SETFRXDATASESSION
OBJTYPE
OFFSET
RESETDATASESSIONd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
IMAGESRCATTR
SYNCHXSLTPROCESSORUSER4
?*"<>|
VNEWVAL
IMAGEFILEBASENAME
copyImageFiles
VNEWVAL
THIS
ISRUNNING$
COPYIMAGEFILESTOEXTERNALFILELOCATION
ADJUSTXSLTPARAMETER!
MAKEEXTERNALFILELOCATIONREACHABLE*
GdipSaveImageToFile
GDIPLUS.DLL
CLSIDFromString
ole32
{557CF401-1A04-11D3-9A73-0000F81EF32E}
GDIPSAVEIMAGETOFILE
GDIPLUS
JPGCLSID
CLSIDFROMSTRING
OLE32
SENDGDIPLUSIMAGE!
MAKEEXTERNALFILELOCATIONREACHABLE
TNWIDTH
TNHEIGHT
UTILITYIMAGE
LLADJUSTHEIGHT
LLADJUSTWIDTH
HEIGHT
WIDTHd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
FILLALPHAATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
FILLREDATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
FILLGREENATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
FILLBLUEATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
PENALPHAATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
PENREDATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
PENGREENATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
PENBLUEATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
FONTNAMEATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
FONTSTYLEATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
FONTSIZEATTR
SYNCHXSLTPROCESSORUSER]
VNEWVAL
LCVAL
PAGEIMAGEATTR
SYNCHXSLTPROCESSORUSER_
VNEWVAL
LCVAL
DATATYPEATTR
SYNCHXSLTPROCESSORUSER_
VNEWVAL
LCVAL
DATATEXTATTR
SYNCHXSLTPROCESSORUSER*
NFRXRECNO
OOBJPROPERTIES
SETFRXDATASESSION
FORMATTINGCHANGES
RELOAD
FILLRED
FILLGREEN
FILLBLUE
FILLALPHA
PENRED
PENGREEN
PENBLUE
PENALPHA
FNAME
FONTNAME
FSTYLE
FONTSTYLE
FSIZE
FONTSIZE
RESETDATASESSIONc
CALLEVALUATECONTENTS
FORMATTINGCHANGES
FRXRECNO
RELOAD
DTEXT
DTYPE
FNAME
FSTYLE
FSIZE(
JPGCLSID
FORMATTINGCHANGES
UTILITYIMAGE_
VNEWVAL
LCVAL
CONTATTR
SYNCHXSLTPROCESSORUSER_
VNEWVAL
LCVAL
THIS
WIDTHATTR
SYNCHXSLTPROCESSORUSER_
VNEWVAL
LCVAL
HEIGHTATTR
SYNCHXSLTPROCESSORUSER_
VNEWVAL
LCVAL
LEFTATTR
SYNCHXSLTPROCESSORUSER_
VNEWVAL
LCVAL
TOPATTR
SYNCHXSLTPROCESSORUSER_
VNEWVAL
LCVAL
IDATTRIBUTE
SYNCHXSLTPROCESSORUSER_
VNEWVAL
LCVAL
IDREFATTRIBUTE
SYNCHXSLTPROCESSORUSERT
XML Display Listener
APPNAME
HADERROR!
FRXRecno
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
TNOBJECTCONTINUATIONTYPE
LCINFO
ADJUSTSHAPEASPECTRATIO
IMAGEFIELDTOFILE
IMAGESRCATTR
SETFRXDATASESSION
FORMATTINGCHANGES
RELOAD
PENALPHAATTR
PENREDATTR
PENGREENATTR
PENBLUEATTR
FILLALPHAATTR
FILLREDATTR
FILLGREENATTR
FILLBLUEATTR
FONTNAMEATTR
FNAME
FONTSIZEATTR
FSIZE
FONTSTYLEATTR
FSTYLE
FRXRecno
TONODE
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
TNOBJECTCONTINUATIONTYPE
ADJUSTSHAPEASPECTRATIO
IMAGEFIELDTOFILE
SETATTRIBUTE
IMAGESRCATTR
SETFRXDATASESSION
FORMATTINGCHANGES
RELOAD
PENALPHAATTR
PENREDATTR
PENGREENATTR
PENBLUEATTR
FILLALPHAATTR
FILLREDATTR
FILLGREENATTR
FILLBLUEATTR
FONTNAMEATTR
FNAME
FONTSIZEATTR
FSIZE
FONTSTYLEATTR
FSTYLE
Image
NFRXRECNO
NLEFT
NWIDTH
NHEIGHT
NOBJECTCONTINUATIONTYPE
CCONTENTSTOBERENDERED
GDIPLUSIMAGE
LLCOPYIMAGE
LCFILE
LIDEFAULTBEHAVIOR
JPGCLSID
INITIALIZEFILECOPYSETTINGS
SETFRXDATASESSION
COPYIMAGEFILESTOEXTERNALFILELOCATION
OBJTYPE
OFFSET
GENERAL
UTILITYIMAGE
PICTURE
SETCURRENTDATASESSION
EXTERNALFILELOCATION
TARGETFILENAME
IMAGEFIELDTOFILE
SENDGDIPLUSIMAGE
GDIPSAVEIMAGETOFILE
IMAGEFILEBASENAME
IMAGEFIELDINSTANCE
RESETDATASESSION
STRING
EXCEPTION
THIS.CommandClauses.NoPageEjectb
OTEMPIMAGESCOLLECTION
LCITEM
LOEXC
NOPAGEEJECT
COMMANDCLAUSES
OLDEXTERNALFILELOCATION
EXTERNALFILELOCATION
OLDSENDGDIPLUSIMAGE
SENDGDIPLUSIMAGE
RESETDATASESSIONj
ImageFieldInstance
ImageFieldToFile
UtilityImage
RESETTODEFAULT
XMLMODE
OLDSENDGDIPLUSIMAGE
SENDGDIPLUSIMAGE
OLDEXTERNALFILELOCATION
EXTERNALFILELOCATION
JPGCLSID
CHECKREPORTFORGENERALFIELDS
INITIALIZEFILECOPYSETTINGS
RESETDATASESSION
externalFileLocation
copyImageFilesToExternalFileLocation
imageFileBaseName
TCNODENAME
TLASSTRING
COMMANDCLAUSES
EXTERNALFILELOCATION$
COPYIMAGEFILESTOEXTERNALFILELOCATION
IMAGEFILEBASENAME$
TLCALLEDEARLY
RESETDATASESSION
checkreportforgeneralfields,
imagesrcattr_assign
imagefilebasename_assign
copyimagefilestoexternalfilelocation_assign
initializefilecopysettings
adjustshapeaspectratio
fillalphaattr_assign
fillredattr_assignk
fillgreenattr_assign
fillblueattr_assign
penalphaattr_assign
penredattr_assignC
pengreenattr_assign
penblueattr_assign
fontnameattr_assignb
fontstyleattr_assign
fontsizeattr_assign
pageimageattr_assign
datatypeattr_assign#
datatextattr_assign
EvaluateContentsa
initializeformattingchangescursor
Destroy
contattr_assign
widthattr_assign|
heightattr_assign
leftattr_assign
topattr_assignP
idattribute_assign
idrefattribute_assign
Init)
getrawformattinginfo
setdomformattinginfoC
Render
UnloadReport[(
resetdocument
BeforeReport
getvfprdlcontentsb,
AfterReport
GetSysColor
Win32API
DATASESSIONv
ThermBack
shape
ThermLabel
label
ThermShape
shape
THIS
THERMFORM
GETSYSCOLOR
WIN32API
LITHERMTOP
LITHERMLEFT
LITHERMWIDTH
LITHERMHEIGHT
LISESSION
RESETDATASESSION
SCALEMODE
HEIGHT
THERMFORMHEIGHT
HALFHEIGHTCAPTION
WIDTH
THERMFORMWIDTH
AUTOCENTER
BORDERSTYLE
CONTROLBOX
CLOSABLE
ISRUNNING
MAXBUTTON
MINBUTTON
MOVABLE
ALWAYSONTOP
ALLOWOUTPUT
ADDOBJECT
THERMMARGIN
SETCURRENTDATASESSION
SETTHERMFORMCAPTION
THERMBACK
VISIBLE
BACKSTYLE
THERMLABEL
PARENT
AUTOSIZE
CAPTION
FORECOLOR
THERMSHAPE
FILLSTYLE
BACKCOLOR
FILLCOLOR
DRAWMODE9
VNEWVAL
SECONDSTEXTF
VNEWVAL
THERMFORMCAPTION
SETTHERMFORMCAPTION
VNEWVAL
THIS
ISRUNNING
THERMFORMHEIGHT
THERMMARGIN
THERMFORM
VNEWVAL
THIS
ISRUNNING
THERMFORMWIDTH
THERMMARGIN
THERMFORM
VNEWVAL
THIS
ISRUNNING
THERMFORMHEIGHT
THERMFORMWIDTH
THERMMARGIN
THERMFORM9
VNEWVAL
INCLUDESECONDS
_SCREEN.ActiveFormb
THIS.CommandClauses.InWindowb
THIS.CommandClauses.Windowb
_SCREEN.ActiveFormb
_SCREEN.ActiveFormb
LOFORM
LOTOPFORM
LCINWINDOW
ACTIVEFORM
SHOWWINDOW
COMMANDCLAUSES
INWINDOW
WINDOW
FORMS
NAME
FORMCOUNT"
THIS.CommandClauses.Fileb
Press Esc to cancel...
THIS
THERMFORM
THERMFORMCAPTION
CNAME
PRINTJOBNAME
COMMANDCLAUSES
CAPTION
VNEWVAL
LCTYPE
CMESSAGE
THERMCAPTION9
VNEWVAL
INITSTATUSTEXT9
VNEWVAL
PREPASSSTATUSTEXT9
VNEWVAL
RUNSTATUSTEXTh
TLRESETTIMES
CURRENTRECORD
PERCENTDONE
REPORTSTARTRUNDATETIME
REPORTSTOPRUNDATETIME
WINDOWS
SKIPv
LISELECT
LCALIAS
LISKIPS
LASKIPS
DESIGNATEDDRIVER
DRIVINGALIAS
SETFRXDATASESSION
OBJTYPE
OBJCODE
SETCURRENTDATASESSION
PLATFORM
NBANDOBJCODE
NFRXRECNO
THIS
ISRUNNING
HADERROR
FRXBANDRECNO
SETCURRENTDATASESSION
DRIVINGALIASCURRENTRECNO
DRIVINGALIAS
CURRENTRECORD
COMMANDCLAUSES
RECORDTOTAL
CURRENTPASS
TWOPASSPROCESS
RESETUSERFEEDBACK
UPDATESTATUS
RESETDATASESSION=
VNEWVAL
THERMPRECISION
THIS.CommandClauses.Summaryb
Summary-
THIS.CommandClauses.RecordTotalb
RecordTotal
COMMANDCLAUSES
NBANDOBJCODE
NFRXRECNO
SUCCESSORSYS2024
CURRENTPASS
SETCURRENTDATASESSION
DESIGNATEDDRIVER
SYNCHSTATUS
RESETDATASESSIONs
THIS
ISRUNNING
POPGLOBALSETS
REPORTSTOPRUNDATETIME
CLEARSTATUS
THERMFORM
RESETDATASESSION
MACDESKTOP
SCREEN
MACDESKTOP
SCREEN
CMESSAGE
LOPARENTFORM
LCCAPTION
LCPARENTFORMNAME
THIS
QUIETMODE
ISRUNNING
COMMANDCLAUSES
NODIALOG
THERMCAPTION
THERMFORM
CREATETHERM
CLOSABLE
MOVABLE
THERMSHAPE
WIDTH
PERCENTDONE
THERMBACK
VISIBLE
GETPARENTWINDOWREF
DESKTOP
MACDESKTOP
SHOWWINDOW
ALWAYSONTOP
AUTOCENTER
THERMLABEL
CAPTION
LEFTm
THIS
THERMFORM
VISIBLE
SUCCESSOR
CLEARSTATUS7
DRIVINGALIASCURRENTRECNO
ISRUNNING
RESETDATASESSION
Initializing...
Running calculation prepass...
Creating output...
sec(s)
m.cMessage+ " "+
TRANSFORM(THIS.PercentDone,"999"+
IIF(THIS.ThermPrecision=0,"","."+REPL("9",THIS.ThermPrecision))) + "%"
+ IIF(NOT THIS.IncludeSeconds, "" , " "+
TRANSFORM(IIF(THIS.IsRunning,DATETIME(), THIS.ReportStopRunDateTime)-
THIS.ReportStartRunDateTime)+" " + THIS.SecondsText)
INITSTATUSTEXT
PREPASSSTATUSTEXT
RUNSTATUSTEXT
SECONDSTEXT
THERMCAPTION
HADERROR
THIS.CommandClauses.RecordTotalb
THIS
ISRUNNING
CURRENTRECORD
COMMANDCLAUSES
RECORDTOTAL
UPDATESTATUS
CLEARSTATUS
DESIGNATEDDRIVER
SUCCESSORSYS2024
THERMFORM
REPORTSTOPRUNDATETIME
POPGLOBALSETSp
Stop report execution?C
(If you press 'No', report execution will continue.)
DATASESSIONv
Report execution was cancelled.C
Your results are not complete.
Report execution was cancelled.C
Your results are not complete.
THIS
ISRUNNING
QUIETMODE
PAGELIMIT
PAGENO
ALLOWMODALMESSAGES
DOMESSAGE
ISSUCCESSOR
DESIGNATEDDRIVER
SUCCESSORSYS2024
LISESSION
SETCURRENTDATASESSION
THERMFORM
LASTERRORMESSAGEK
Notify
ESCAPE
PUBLIC &lcRef.
ON ESCAPE &lcRef..CancelReport()
ESCAPEv
STARTMODE
LCREF
SETNOTIFYCURSOR
ONESCAPECOMMAND
ESCAPEREFERENCE
SETESCAPE
RELEASE &lcRef.
ON ESCAPE &lcRef
STARTMODE
LCREF
ESCAPEREFERENCE
ONESCAPECOMMAND
SETNOTIFYCURSOR
SETESCAPE
WINDOWS
WINDOWS
WINDOWS
WINDOWS
WINDOWS
LLFRXAVAILABLE
LCALIAS
GETREPORTSCOPEDRIVER
SETFRXDATASESSION
FRXBANDRECNO
COMMANDCLAUSES
SUMMARY
OBJTYPE
OBJCODE
PLATFORM
SETCURRENTDATASESSION
DRIVINGALIAS
THIS
ISRUNNING
LIRECTOTAL
LNNEWPERCENT
LLSHOW
COMMANDCLAUSES
RECORDTOTAL
CURRENTRECORD
THERMPRECISION
PERCENTDONE
DOSTATUS
CURRENTPASS
TWOPASSPROCESS
PREPASSSTATUSTEXT
RUNSTATUSTEXT
THIS.CommandClauses.NoDialogb
RESETUSERFEEDBACK
QUIETMODE
COMMANDCLAUSES
NODIALOG
DOSTATUS
INITSTATUSTEXT
PUSHGLOBALSETS
CLEARSTATUSM
NBANDOBJCODE
NFRXRECNO
SYNCHSTATUS
RESETDATASESSION
THIS
THERMFORM
createtherm,
secondstext_assign\
thermformcaption_assign
thermformheight_assign5
thermformwidth_assign1
thermmargin_assign,
includeseconds_assign
getparentwindowrefj
setthermformcaption
thermcaption_assignM
initstatustext_assign
prepassstatustext_assignu
runstatustext_assign
resetuserfeedback/
getreportscopedriver
synchstatus
thermprecision_assign
setfrxrunstartupconditions
BeforeBand
UnloadReport
DoStatus
ClearStatus
BeforeReport
Init4
AfterReport
CancelReport4$
pushglobalsetsf'
popglobalsets
getfrxstartupinfof*
UpdateStatus7.
LoadReport
AfterBandA1
Destroy
PROCEDURE applyfx
LPARAMETERS m.toListener, m.tcMethodToken,;
            m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, m.tP6, ;
            m.tP7, m.tP8, m.tP9, m.tP10, m.tP11, m.tP12
LOCAL m.liSession
IF VARTYPE(m.toListener) = "O" && AND ;
   (NOT m.toListener.IsSuccessor)
   DO CASE
   CASE m.tcMethodToken == "DOSTATUS"
      THIS.DoStatus(m.toListener, m.tP1)
   CASE m.tcMethodToken == "UPDATESTATUS"
      THIS.UpdateStatus(m.toListener)
   CASE m.tcMethodToken == "CLEARSTATUS"
      THIS.ClearStatus(m.toListener)
   CASE m.tcMethodToken == "AFTERBAND"
       THIS.synchStatus(m.toListener,m.tP1,m.tP2)
   CASE m.tcMethodToken == "AFTERREPORT"
      IF SYS(2024) # "Y"
         IF THIS.isRunning AND TYPE("m.toListener.CommandClauses.RecordTotal") = "N"
            THIS.CurrentRecord = m.toListener.CommandClauses.RecordTotal
         ENDIF
         THIS.UpdateStatus(m.toListener)
      ENDIF
      THIS.designatedDriver = ""
      THIS.drivingAlias = ""
      THIS.successorSys2024 = "N"
      THIS.Visible = .F.
      THIS.ReportStopRunDateTime = DATETIME()
      THIS.popUserFeedbackGlobalSets()
      THIS.ClearStatus(m.toListener)
   CASE m.tcMethodToken == "BEFOREBAND"
      IF THIS.successorSys2024 = "Y" AND ;
         m.toListener.CurrentPass = LISTENER_FULLPASS
         * user cancelled during the prepass,
         * we need to re-cancel.
         m.liSession = SET("DATASESSION")
         SET DATASESSION TO (m.toListener.CurrentDataSession)
         IF USED(THIS.designatedDriver)
            GO BOTTOM IN (THIS.designatedDriver)
         ENDIF
         SET DATASESSION TO (m.liSession)
      ENDIF
      THIS.synchStatus(m.toListener,m.tP1,m.tP2)
  CASE m.tcMethodToken == "BEFOREREPORT"
      THIS.setupReport(m.toListener)
   CASE m.tcMethodToken == "CANCELREPORT"
      IF THIS.isRunning AND ;
         (m.toListener.QuietMode OR ;
         (m.toListener.pageLimit > 0 AND m.toListener.PageNo > m.toListener.pageLimit) OR ;
          (NOT m.toListener.AllowModalMessages) OR ;
          m.toListener.DoMessage(This.CancelQueryText,;  && OUTPUTCLASS_REPORT_CANCELQUERY_LOC
                                 MB_ICONQUESTION+MB_YESNO, This.AttentionText) =  IDYES )
          m.toListener.cancelRequested = .T.
          IF m.toListener.isSuccessor AND NOT EMPTY(THIS.designatedDriver)
             * NB: FX should ordinarily not be used in a successor,
             * but this won't hurt and will take care of the exception
             THIS.successorSys2024 = "Y"
             m.liSession = SET("DATASESSION")
             SET DATASESSION TO (m.toListener.CurrentDataSession)
             IF USED(THIS.designatedDriver)
                GO BOTTOM IN (THIS.designatedDriver)
             ENDIF
             SET DATASESSION TO (m.liSession)
          ENDIF
          IF SYS(2024) = "Y"  OR m.toListener.IsSuccessor
             THIS.Visible = .F.
             IF (m.toListener.pageLimit = -1 OR m.toListener.PageNo <= m.toListener.pageLimit)
                m.toListener.DoMessage(;
                        This.ReportIncompleteText, ; && OUTPUTCLASS_REPORT_INCOMPLETE_LOC
                        MB_ICONEXCLAMATION, This.AttentionText)
             ENDIF
          ENDIF
          RETURN .F.
       ELSE
          RETURN .T. && did not handle, use default behavior
       ENDIF
   CASE m.tcMethodToken == "LOADREPORT"
      THIS.ResetUserFeedback(.T.)
      m.toListener.AddProperty("reportStartRunDatetime",THIS.reportStartRunDatetime)
      IF NOT (m.toListener.QuietMode OR ;
           (TYPE("m.toListener.CommandClauses.NoDialog") = "L" AND ;
           m.toListener.CommandClauses.NoDialog) )
           THIS.DoStatus(m.toListener,THIS.initStatusText)
          * NB: a user can call LoadReport manually,
          * hence the need for a TYPE() check here.
      ENDIF
      THIS.pushUserFeedbackGlobalSets(m.toListener)
   CASE m.tcMethodToken == "UNLOADREPORT"
      THIS.ReportStopRunDateTime = DATETIME()
      m.toListener.AddProperty("reportStopRunDatetime",THIS.reportStopRunDatetime)
      THIS.IsRunning = .F.
      THIS.ClearStatus()
      IF NOT THIS.persistBetweenRuns
         SET DATASESSION TO (m.toListener.ListenerDataSession)
         THIS.Release()
      ENDIF
   ENDCASE
   SET DATASESSION TO (m.toListener.ListenerDataSession)
ENDIF
*!*    LPARAMETERS m.toListener, m.tcMethodToken,;
*!*                m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, m.tP6, ;
*!*                m.tP7, m.tP8, m.tP9, m.tP10, m.tP11, m.tP12
*!*    LOCAL m.liSession
*!*    IF VARTYPE(m.toListener) = "O" && AND ;
*!*       (NOT m.toListener.IsSuccessor)
*!*       DO CASE
*!*       CASE m.tcMethodToken == "DOSTATUS"
*!*          THIS.DoStatus(m.toListener, m.tP1)
*!*       CASE m.tcMethodToken == "UPDATESTATUS"
*!*          THIS.UpdateStatus(m.toListener)
*!*       CASE m.tcMethodToken == "CLEARSTATUS"
*!*          THIS.ClearStatus(m.toListener)
*!*       CASE m.tcMethodToken == "AFTERBAND"
*!*           THIS.synchStatus(m.toListener,m.tP1,m.tP2)
*!*       CASE m.tcMethodToken == "AFTERREPORT"
*!*          IF SYS(2024) # "Y"
*!*             IF THIS.isRunning AND TYPE("m.toListener.CommandClauses.RecordTotal") = "N"
*!*                THIS.CurrentRecord = m.toListener.CommandClauses.RecordTotal
*!*             ENDIF
*!*             THIS.UpdateStatus(m.toListener)
*!*          ENDIF
*!*          THIS.designatedDriver = ""
*!*          THIS.drivingAlias = ""
*!*          THIS.successorSys2024 = "N"
*!*          THIS.Visible = .F.
*!*          THIS.ReportStopRunDateTime = DATETIME()
*!*          THIS.popUserFeedbackGlobalSets()
*!*          THIS.ClearStatus(m.toListener)
*!*       CASE m.tcMethodToken == "BEFOREBAND"
*!*          IF THIS.successorSys2024 = "Y" AND ;
*!*             m.toListener.CurrentPass = LISTENER_FULLPASS
*!*             * user cancelled during the prepass,
*!*             * we need to re-cancel.
*!*             m.liSession = SET("DATASESSION")
*!*             SET DATASESSION TO (m.toListener.CurrentDataSession)
*!*             IF USED(THIS.designatedDriver)
*!*                GO BOTTOM IN (THIS.designatedDriver)
*!*             ENDIF
*!*             SET DATASESSION TO (m.liSession)
*!*          ENDIF
*!*          THIS.synchStatus(m.toListener,m.tP1,m.tP2)
*!*      CASE m.tcMethodToken == "BEFOREREPORT"
*!*          THIS.setupReport(m.toListener)
*!*       CASE m.tcMethodToken == "CANCELREPORT"
*!*          IF THIS.isRunning AND ;
*!*             (m.toListener.QuietMode OR ;
*!*             (m.toListener.pageLimit > 0 AND m.toListener.PageNo > m.toListener.pageLimit) OR ;
*!*              (NOT m.toListener.AllowModalMessages) OR ;
*!*              m.toListener.DoMessage(OUTPUTCLASS_REPORT_CANCELQUERY_LOC,;
*!*                                     MB_ICONQUESTION+MB_YESNO) =  IDYES )
*!*              m.toListener.cancelRequested = .T.
*!*              IF m.toListener.isSuccessor AND NOT EMPTY(THIS.designatedDriver)
*!*                 * NB: FX should ordinarily not be used in a successor,
*!*                 * but this won't hurt and will take care of the exception
*!*                 THIS.successorSys2024 = "Y"
*!*                 m.liSession = SET("DATASESSION")
*!*                 SET DATASESSION TO (m.toListener.CurrentDataSession)
*!*                 IF USED(THIS.designatedDriver)
*!*                    GO BOTTOM IN (THIS.designatedDriver)
*!*                 ENDIF
*!*                 SET DATASESSION TO (m.liSession)
*!*              ENDIF
*!*              IF SYS(2024) = "Y"  OR m.toListener.IsSuccessor
*!*                 THIS.Visible = .F.
*!*                 IF (m.toListener.pageLimit = -1 OR m.toListener.PageNo <= m.toListener.pageLimit)
*!*                    m.toListener.DoMessage(OUTPUTCLASS_REPORT_INCOMPLETE_LOC, ;
*!*                                   MB_ICONEXCLAMATION)
*!*                 ENDIF
*!*              ENDIF
*!*              RETURN .F.
*!*           ELSE
*!*              RETURN .T. && did not handle, use default behavior
*!*           ENDIF
*!*       CASE m.tcMethodToken == "LOADREPORT"
*!*          THIS.ResetUserFeedback(.T.)
*!*          m.toListener.AddProperty("reportStartRunDatetime",THIS.reportStartRunDatetime)
*!*          IF NOT (m.toListener.QuietMode OR ;
*!*               (TYPE("m.toListener.CommandClauses.NoDialog") = "L" AND ;
*!*               m.toListener.CommandClauses.NoDialog) )
*!*               THIS.DoStatus(m.toListener,THIS.initStatusText)
*!*              * NB: a user can call LoadReport manually,
*!*              * hence the need for a TYPE() check here.
*!*          ENDIF
*!*          THIS.pushUserFeedbackGlobalSets(m.toListener)
*!*       CASE m.tcMethodToken == "UNLOADREPORT"
*!*          THIS.ReportStopRunDateTime = DATETIME()
*!*          m.toListener.AddProperty("reportStopRunDatetime",THIS.reportStopRunDatetime)
*!*          THIS.IsRunning = .F.
*!*          THIS.ClearStatus()
*!*          IF NOT THIS.persistBetweenRuns
*!*             SET DATASESSION TO (m.toListener.ListenerDataSession)
*!*             THIS.Release()
*!*          ENDIF
*!*       ENDCASE
*!*       SET DATASESSION TO (m.toListener.ListenerDataSession)
*!*    ENDIF
ENDPROC
PROCEDURE includeseconds_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L"
   THIS.includeSeconds = m.vNewVal
ENDIF
ENDPROC
PROCEDURE initstatustext_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.initStatusText = m.vNewVal
ENDIF
ENDPROC
PROCEDURE prepassstatustext_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.prepassStatusText = m.vNewVal
ENDIF
ENDPROC
PROCEDURE runstatustext_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.runStatusText = m.vNewVal
ENDPROC
PROCEDURE secondstext_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.secondsText = m.vNewVal
ENDPROC
PROCEDURE thermcaption_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   LOCAL m.lcType, m.cMessage
   m.cMessage = ""
   TRY
    m.lcType = VARTYPE(EVALUATE(m.vNewVal))
      IF m.lcType = "C"
        THIS.thermCaption = m.vNewVal
    ENDIF
   CATCH
   ENDTRY
ENDIF
ENDPROC
PROCEDURE thermformcaption_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.thermFormCaption = m.vNewVal
   THIS.setThermFormCaption()
ENDIF
ENDPROC
PROCEDURE thermformheight_assign
LPARAMETERS m.vNewVal
IF  VARTYPE(m.vNewVal) = "N" AND ;
   BETWEEN(m.vNewVal,30,SYSMETRIC(SYSMETRIC_SCREENHEIGHT )-30)  AND ;
   INT(m.vNewVal) # THIS.thermFormHeight
   THIS.thermFormHeight = INT(m.vNewVal)
   IF THIS.thermMargin > THIS.thermFormHeight/4
      THIS.thermMargin = THIS.thermFormHeight/4
   ENDIF
   THIS.synchUserInterface()
ENDIF
ENDPROC
PROCEDURE thermformwidth_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N" AND ;
   BETWEEN(m.vNewVal,100,SYSMETRIC( SYSMETRIC_SCREENWIDTH  )-100) AND ;
   INT(m.vNewVal) # THIS.ThermFormWidth
   THIS.thermFormWidth = INT(m.vNewVal)
   IF THIS.thermMargin > THIS.thermFormWidth/4
      THIS.thermMargin = THIS.thermFormWidth/4
   ENDIF
   THIS.synchUserInterface()
ENDIF
ENDPROC
PROCEDURE thermmargin_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N" AND ;
   BETWEEN(m.vNewVal,1,MIN(THIS.ThermFormHeight/4,THIS.ThermFormWidth/4)) AND ;
   INT(m.vNewVal) # THIS.thermMargin
   THIS.thermMargin = INT(m.vNewVal)
   THIS.synchUserInterface()
ENDIF
ENDPROC
PROCEDURE getparentwindowref
LOCAL m.loForm, m.loTopForm, m.lcInWindow
* first top form in the list
* will be the current top form.
ASSERT TYPE("_SCREEN.ActiveForm") # "O"  OR ;
       INLIST(_SCREEN.ActiveForm.ShowWindow, 0,1,2)
m.loTopForm = NULL
IF TYPE("THIS.CommandClauses.InWindow") = "C"
   m.lcInWindow = UPPER(ALLTRIM(THIS.CommandClauses.InWindow))
ENDIF
IF EMPTY(lcInWindow) AND TYPE("THIS.CommandClauses.Window") = "C"
   m.lcInWindow = UPPER(ALLTRIM(THIS.CommandClauses.Window))
ENDIF
IF NOT EMPTY(m.lcInWindow)
     FOR EACH m.loForm IN _SCREEN.Forms  FOXOBJECT
        IF m.loForm.ShowWindow = 2  AND ;
           UPPER(m.loForm.Name) == m.lcInWindow
           m.loTopForm = m.loForm
           EXIT
        ENDIF
     ENDFOR

ENDIF
DO CASE
CASE VARTYPE(m.loTopForm) = "O"
    * already found
CASE _SCREEN.FormCount = 0 OR ;
     (TYPE("_SCREEN.ActiveForm") = "O" AND ;
     _SCREEN.ActiveForm.ShowWindow = 0 )     && ShowWindow In Screen

     m.loTopForm = _SCREEN
CASE (TYPE("_SCREEN.ActiveForm") = "O" AND ;
      _SCREEN.ActiveForm.ShowWindow = 2 )    && ShowWindow As Top Form
     m.loTopForm = _SCREEN.ActiveForm

OTHERWISE

     FOR EACH m.loForm IN _SCREEN.Forms  FOXOBJECT
        IF m.loForm.ShowWindow = 2
           m.loTopForm = m.loForm
           EXIT
        ENDIF
     ENDFOR

     IF VARTYPE(m.loTopForm) # "O"
        m.loTopForm = _SCREEN
     ENDIF

ENDCASE
IF VARTYPE(m.loTopForm) # "O" OR ;
   EMPTY(m.loTopForm.Name)
   m.loTopForm = NULL
ENDIF
RETURN m.loTopForm
ENDPROC
PROCEDURE getreportscopedriver
LPARAMETERS m.toListener
LOCAL m.liSelect, m.lcAlias, ;
      m.liSkips,  laSkips[1]
IF m.toListener.FRXDataSession > 0
   SET DATASESSION TO (m.toListener.FRXDataSession)
   RETURN .F.
ENDIF
THIS.designatedDriver = THIS.drivingAlias
* used later if we have to cancel report as
* a Successor
IF USED("frx")
   m.liSelect = SELECT(0)
   m.lcAlias = ""
   SELECT FRX
   * first look for any target alias that
   * is the same as the driver
   SCAN ALL FOR ObjType = FRX_OBJTYP_BAND AND ;
           Objcode = FRX_OBJCOD_DETAIL AND ;
           TYPE(Expr) = "C" AND ;
           NOT (EMPTY(Expr)  OR DELETED())
       m.lcAlias = ALLTRIM(Expr)
       SET DATASESSION TO (m.toListener.CurrentDataSession)
       m.lcAlias = UPPER(EVALUATE(m.lcAlias))
       SET DATASESSION TO (m.toListener.FRXDataSession)
       IF m.lcAlias == UPPER(THIS.drivingAlias)
          EXIT
       ENDIF
   ENDSCAN
   IF m.lcAlias == UPPER(THIS.drivingAlias)
      SELECT (m.liSelect)
      * if the driver is also a target alias,
      * don't touch.
      * otherwise:
   ELSE
      LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
              Objcode = FRX_OBJCOD_DETAIL AND ;
              Platform = FRX_PLATFORM_WINDOWS AND ;
              NOT (EMPTY(Expr) OR DELETED())
      IF FOUND()
         * use the first detail band, on the theory
         * that people are going to put pre-processing
         * calculations before other bands,
         * so an early band has the best chance to be
         * the right driver.
         m.lcAlias = ALLTRIM(Expr)
         SET DATASESSION TO (m.toListener.CurrentDataSession)
         THIS.drivingAlias = UPPER(EVALUATE(m.lcAlias))
         SET DATASESSION TO (m.toListener.FrxDataSession)
         SELECT (m.liSelect)
      ELSE
         * adjust the driver based on any
         * one to many relationships we can find.
         SELECT (m.liSelect)
         SET DATASESSION TO (m.toListener.CurrentDataSession)
         m.lcAlias = THIS.drivingAlias
         m.liSelect = SELECT(0)
         DO WHILE NOT EMPTY(m.lcAlias)
            SELECT (m.lcAlias)
            m.liSkips = ALINES(laSkips,SET("SKIP"),",")
            IF m.liSkips = 0 OR EMPTY(laSkips[1])
               THIS.drivingAlias = m.lcAlias
               m.lcAlias = ""
            ELSE
               m.lcAlias = laSkips[1]
               * it doesn't really matter how many lines there
               * are in the array; this is not going to be perfect
               * but we can't predict which child
               * has the most records.
            ENDIF
         ENDDO
         SELECT (m.liSelect)
      ENDIF
   ENDIF
   RETURN .F.
ENDIF
ENDPROC
PROCEDURE resetuserfeedback
LPARAMETERS m.tlResetTimes
THIS.CurrentRecord = 0
THIS.PercentDone = 0
IF m.tlResetTimes
   THIS.ReportStartRunDateTime= DATETIME()
   THIS.ReportStopRunDateTime= DTOT({})
   THIS.thermFormCaption = ""
   THIS.synchUserInterface()
ENDIF
ENDPROC
PROCEDURE setthermformcaption
*!*    LPARAMETERS tcCommandClausesFile, tcPrintJobName
*!*    IF EMPTY(THIS.ThermFormCaption)
*!*       IF VARTYPE(tcCommandClausesFile) = "C"
*!*          LOCAL m.cName
*!*          IF EMPTY( tcPrintJobName) OR VARTYPE( tcPrintJobName) # "C"
*!*             m.cName = PROPER(JUSTFNAME(tcCommandClausesFile))
*!*          ELSE
*!*             m.cName =  tcPrintJobName
*!*          ENDIF
*!*          THIS.thermFormCaption = ;
*!*             m.cName + ": " + OUTPUTCLASS_CANCEL_INSTRUCTIONS_LOC
*!*       ELSE
*!*          THIS.thermFormCaption = ""
*!*       ENDIF
*!*    ENDIF
*!*    THIS.Caption = THIS.thermFormCaption
LPARAMETERS tcCommandClausesFile, tcPrintJobName
IF EMPTY(THIS.ThermFormCaption)
   IF VARTYPE(tcCommandClausesFile) = "C"
      LOCAL m.cName
      IF EMPTY(tcPrintJobName) OR VARTYPE(tcPrintJobName) # "C"
         m.cName = PROPER(JUSTFNAME(tcCommandClausesFile))
      ELSE
         m.cName =  tcPrintJobName
      ENDIF
      THIS.thermFormCaption = ;
         m.cName + ": " + This.CancelInstrText && OUTPUTCLASS_CANCEL_INSTRUCTIONS_LOC
   ELSE
      THIS.thermFormCaption = ""
   ENDIF
ENDIF
This.Caption = THIS.thermFormCaption
ENDPROC
PROCEDURE synchstatus
LPARAMETERS m.toListener, m.nBandObjCode, m.nFRXRecNo
IF THIS.isRunning AND ;
   THIS.frxBandRecno = m.nFRXRecNo
   WITH m.toListener
      TRY
         SET DATASESSION TO (.CurrentDataSession)
         IF THIS.drivingAliasCurrentRecno  # RECNO(THIS.drivingAlias)
            THIS.currentRecord = THIS.CurrentRecord + 1
            THIS.drivingAliasCurrentRecno = RECNO(THIS.drivingAlias)
         ENDIF
         IF THIS.currentRecord >= .CommandClauses.RecordTotal
            IF .CurrentPass = 0 AND .TwoPassProcess
               THIS.resetUserFeedback()
            ELSE
               THIS.currentRecord = .CommandClauses.RecordTotal
            ENDIF
         ENDIF
         THIS.updateStatus(m.toListener)
       CATCH TO err
          #IF OUTPUTCLASS_DEBUGGING
              SUSPEND
          #ENDIF
       ENDTRY
       SET DATASESSION TO (.ListenerDataSession)
   ENDWITH
ENDIF
ENDPROC
PROCEDURE dostatus
LPARAMETERS m.toListener, m.cMessage
LOCAL m.loParentForm, m.lcCaption, m.lcParentFormName
IF (VARTYPE(m.toListener) # "O") OR (NOT (m.toListener.QuietMode OR ;
   (THIS.isRunning AND m.toListener.CommandClauses.NoDialog)))
   IF EMPTY(m.cMessage) OR ISNULL(m.cMessage)
      m.cMessage = ""
   ENDIF
   m.lcCaption = EVALUATE(THIS.ThermCaption)
   WITH THIS

      IF THIS.isRunning
         THIS.Closable = .F.
         THIS.Movable = .F.
      ENDIF
     .ThermShape.Width = MAX( (((THIS.PercentDone/100) * .ThermBack.Width)-2) ,0)
     IF NOT .Visible

        m.loParentForm = THIS.GetParentWindowRef()

        DO CASE
        CASE VARTYPE(m.loParentForm) # "O" AND (NOT _SCREEN.Visible)
           m.lcParentFormName = "MACDESKTOP"
        CASE VARTYPE(m.loParentForm) # "O"
           m.lcParentFormName = "SCREEN"
        CASE (NOT m.loParentForm.Visible) AND ;
           (m.loParentForm.DeskTop OR NOT EMPTY(m.loParentForm.MacDesktop) OR ;
           m.loParentForm.ShowWindow = 2 OR (NOT _SCREEN.Visible))
           * in many cases,
           * they've probably made a programming error,
           * the parent should be visible according to
           * the requirements of REPORT FORM ... IN WINDOW
           * if it's a WINDOW clause they
           * have no need to show it, might not be an error
           * Either way, they should see the therm
           * to know that the report is progressing
           m.lcParentFormName = "MACDESKTOP"
        CASE (NOT m.loParentForm.Visible)
           * same comment as above
           m.lcParentFormName = "SCREEN"
        OTHERWISE
           m.lcParentFormName = m.loParentForm.Name
        ENDCASE

        SHOW WINDOW (.Name) IN WINDOW (m.lcParentFormName)
        .AlwaysOnTop = .T.
        .AutoCenter = .T.
        .Visible = .T.
     ENDIF
     .ThermLabel.Visible = .F.
     .ThermLabel.Caption = m.lcCaption
     .ThermLabel.Left = (.Width - .ThermLabel.Width) /2 && doesn't work until after visibility of form
     .ThermLabel.Visible = .T.

   ENDWITH
   m.loParentForm = NULL
ENDIF
ENDPROC
PROCEDURE clearstatus
LPARAMETERS m.toListener
IF THIS.Visible
   THIS.Visible = .F.
ENDIF
ENDPROC
PROCEDURE updatestatus
LPARAMETERS m.toListener
IF VARTYPE(m.toListener) = "O" AND THIS.isRunning
   LOCAL m.liRecTotal, m.lnNewPercent, m.llShow
   m.liRecTotal = m.toListener.CommandClauses.RecordTotal
   IF m.liRecTotal > 0
      m.lnNewPercent = ROUND(THIS.CurrentRecord/m.liRecTotal,(THIS.ThermPrecision + 2) ) * 100
      IF (THIS.PercentDone # m.lnNewPercent)
         THIS.PercentDone = m.lnNewPercent
         m.llShow = .T.
         #IF OUTPUTCLASS_DEBUGGING
             ? THIS.PercentDone, THIS.CurrentRecord, m.liRecTotal, m.toListener.PageTotal
             ? REPL(OUTPUTCLASS_STATUSCHAR_PCT_DONE,INT(THIS.PercentDone/100* OUTPUTCLASS_ONE_HUNDRED_PCT_MARK))+ ;
               REPL(OUTPUTCLASS_STATUSCHAR_PCT_NOT_DONE,MAX(FLOOR(OUTPUTCLASS_ONE_HUNDRED_PCT_MARK - ;
                                                            (OUTPUTCLASS_ONE_HUNDRED_PCT_MARK *THIS.PercentDone/100)),0) )
         #ENDIF
      ENDIF
   ELSE
      m.llShow = .T.
   ENDIF
   IF m.llShow
      THIS.DoStatus(m.toListener, ;
                    IIF(m.toListener.CurrentPass = LISTENER_PREPASS  AND m.toListener.TwoPassProcess,;
                     THIS.PrepassStatusText, ;
                     THIS.RunStatusText) )
   ENDIF
ENDIF
ENDPROC
PROCEDURE pushuserfeedbackglobalsets
LPARAMETERS m.toListener
IF (NOT INLIST(_VFP.StartMode,2,3,5))
   PUSH KEY CLEAR
   LOCAL m.lcRef
   SET MESSAGE TO ""
   THIS.SetNotifyCursor = (SET("Notify",2) = "ON")
   IF THIS.SetNotifyCursor
      SET NOTIFY CURSOR OFF
   ENDIF
   THIS.OnEscapeCommand = ON("ESCAPE")
   m.lcRef = SYS(2015)
   PUBLIC &lcRef.
   STORE m.toListener TO (m.lcRef)
   ON ESCAPE &lcRef..CancelReport()
   THIS.EscapeReference = m.lcRef
   THIS.SetEscape = (SET("ESCAPE")="OFF")
   IF THIS.SetEscape
      SET ESCAPE ON
   ENDIF
ENDIF
ENDPROC
PROCEDURE popuserfeedbackglobalsets
IF (NOT INLIST(_VFP.StartMode,2,3,5))
   LOCAL m.lcRef
   m.lcRef = THIS.EscapeReference
   IF (NOT EMPTY(m.lcRef)) AND ;
       TYPE(m.lcRef) = "O"
      * push occurred earlier
      STORE NULL TO (m.lcRef)
      RELEASE &lcRef.
      THIS.escapeReference = ""
      m.lcRef = THIS.OnEscapeCommand
      ON ESCAPE &lcRef
      POP KEY
      IF THIS.SetNotifyCursor
         SET NOTIFY CURSOR ON
      ENDIF
      IF THIS.SetEscape
         SET ESCAPE OFF
      ENDIF
   ENDIF
ENDIF
ENDPROC
PROCEDURE synchuserinterface
#define CTLCOLOR_MSGBOX             0
#define CTLCOLOR_EDIT               1
#define CTLCOLOR_LISTBOX            2
#define CTLCOLOR_BTN                3
#define CTLCOLOR_DLG                4
#define CTLCOLOR_SCROLLBAR          5
#define CTLCOLOR_STATIC             6
#define CTLCOLOR_MAX                7
#define COLOR_SCROLLBAR             0
#define COLOR_BACKGROUND            1
#define COLOR_ACTIVECAPTION         2
#define COLOR_INACTIVECAPTION       3
#define COLOR_MENU                  4
#define COLOR_WINDOW                5
#define COLOR_WINDOWFRAME           6
#define COLOR_MENUTEXT              7
#define COLOR_WINDOWTEXT            8
#define COLOR_CAPTIONTEXT           9
#define COLOR_ACTIVEBORDER         10
#define COLOR_INACTIVEBORDER       11
#define COLOR_APPWORKSPACE         12
#define COLOR_HIGHLIGHT            13
#define COLOR_HIGHLIGHTTEXT        14
#define COLOR_BTNFACE              15
#define COLOR_BTNSHADOW            16
#define COLOR_GRAYTEXT             17
#define COLOR_BTNTEXT              18
#define COLOR_INACTIVECAPTIONTEXT  19
#define COLOR_BTNHIGHLIGHT         20
#if("4" $ OS())
#define COLOR_3DDKSHADOW           21
#define COLOR_3DLIGHT              22
#define COLOR_INFOTEXT             23
#define COLOR_INFOBK               24
#define COLOR_DESKTOP           COLOR_BACKGROUND
#define COLOR_3DFACE            COLOR_BTNFACE
#define COLOR_3DSHADOW          COLOR_BTNSHADOW
#define COLOR_3DHIGHLIGHT       COLOR_BTNHIGHLIGHT
#define COLOR_3DHILIGHT         COLOR_BTNHIGHLIGHT
#define COLOR_BTNHILIGHT        COLOR_BTNHIGHLIGHT
#endif
DECLARE INTEGER GetSysColor IN Win32API INTEGER
LOCAL m.liThermTop, m.liThermLeft, m.liThermWidth, m.liThermHeight
WITH THIS
     .Height = .ThermFormHeight
     .Width = .ThermFormWidth
     .ControlBox = .F.
     .Closable = .T.
     .Movable = .T.
     m.liThermHeight = .Height - (.ThermMargin* 2)
     m.liThermWidth =  .Width - (.ThermMargin*2)
     .SetThermFormCaption()
     m.liThermTop =  .ThermMargin
     m.liThermLeft = .ThermMargin
ENDWITH
WITH THIS.ThermBack
   .Top = m.liThermTop
   .Left = m.liThermLeft
   .Height = m.liThermHeight
   .Width = m.liThermWidth
ENDWITH
WITH THIS.ThermLabel
   .Top = (.Parent.Height - .Height) /2
   .ForeColor = GetSysColor( COLOR_MENUTEXT )
ENDWITH
WITH THIS.ThermShape
   .Top = m.liThermTop +1
   .Left = m.liThermLeft+1
   .Height = m.liThermHeight -2
   .Width = 0
   .BackColor = .Parent.BackColor
   .FillColor = GetSysColor(COLOR_HIGHLIGHT)
ENDWITH
ENDPROC
PROCEDURE setupreport
LPARAMETERS m.toListener
LOCAL m.llFRXAvailable, m.lcAlias
THIS.isRunning = .T.
WITH m.toListener
   SET DATASESSION TO (.CurrentDataSession)
   THIS.DrivingAlias = UPPER(ALIAS())
   IF .FRXDataSession > 0
      SET DATASESSION TO (.FRXDataSession)
   ENDIF
   m.llFRXAvailable = THIS.getReportScopeDriver(m.toListener)
   IF m.llFRXAvailable
      THIS.setThermformCaption(m.toListener.CommandClauses.File, m.toListener.PrintJobName)
      IF TYPE("m.toListener.CommandClauses.Summary") # "L"
         ADDPROPERTY(.CommandClauses,"Summary",.F.)
      ENDIF
      IF TYPE("m.toListener.CommandClauses.RecordTotal") # "N"
         ADDPROPERTY(.CommandClauses,"RecordTotal",0)
      ENDIF
      IF TYPE("m.toListener.CommandClauses.NoDialog") # "L"
        ADDPROPERTY(.CommandClauses,"NoDialog",.F.)
      ENDIF
      SET DATASESSION TO (.FRXDataSession)
      THIS.FRXBandRecno = 0
      SELECT FRX
      IF .CommandClauses.Summary
         * don't use groups unless
         * we're forced to by Summary.
         * Group usage will not work if
         * there's a group on .T. or some
         * other nonsensical expression that
         * doesn't change.
         LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
             Objcode = FRX_OBJCOD_GROUPHEADER AND ;
             Platform = FRX_PLATFORM_WINDOWS AND ;
             NOT DELETED()
         DO WHILE NOT EOF()
            * find the innermost group
            THIS.FRXBandRecno = RECNO()
            CONTINUE
         ENDDO

         IF THIS.frxBandRecno = 0
            * no groups in a Summary report
            * doesn't make a lot of sense, but
            * can happen.
             LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
                Platform = FRX_PLATFORM_WINDOWS AND ;
                Objcode = FRX_OBJCOD_PAGEHEADER AND ;
                NOT DELETED()
             IF NOT EOF()
                THIS.FRXBandRecno = RECNO()
             ENDIF
         ENDIF
      ENDIF
      IF THIS.FRXBandRecno = 0
         * not a Summary report.
         * look for the appropriate detail
         * using the report driver
         LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
                    Objcode = FRX_OBJCOD_DETAIL AND ;
                    Platform = FRX_PLATFORM_WINDOWS AND ;
                    TYPE(Expr) = "C" AND ;
                    NOT (EMPTY(Expr) OR DELETED())
         DO WHILE NOT EOF()
             m.lcAlias = ALLTRIM(Expr)
             SET DATASESSION TO (.CurrentDataSession)
             m.lcAlias = UPPER(EVALUATE(m.lcAlias))
             SET DATASESSION TO (.FRXDataSession)
             IF m.lcAlias == UPPER(THIS.DrivingAlias)
                THIS.FRXBandRecno = RECNO()
             ENDIF
             CONTINUE && try not to use the first detail band
         ENDDO
      ENDIF
      IF THIS.frxBandRecno = 0
         * couldn't match up a band with
         * the known driver
         LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
              Objcode = FRX_OBJCOD_DETAIL AND ;
              Platform = FRX_PLATFORM_WINDOWS AND ;
              EMPTY(Expr) AND NOT DELETED()
         IF NOT EOF()
            THIS.FRXBandRecno = RECNO()
         ELSE
            IF THIS.FRXBandRecno = 0
               LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
                    Platform = FRX_PLATFORM_WINDOWS AND ;
                    Objcode = FRX_OBJCOD_DETAIL AND ;
                    NOT DELETED()
               IF NOT EOF()
                  THIS.FRXBandRecno = RECNO()
               ENDIF
            ENDIF
         ENDIF
      ENDIF
   ENDIF
   THIS.DrivingAliasCurrentRecno = 0
   SET DATASESSION TO (.ListenerDataSession)
ENDWITH
ENDPROC
PROCEDURE thermprecision_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N"
   THIS.thermPrecision  = ABS(INT(m.vNewVal))
ENDIF
ENDPROC
PROCEDURE persistbetweenruns_assign
LPARAMETERS vNewVal
IF VARTYPE(m.vNewVal) = "L"
   THIS.persistBetweenRuns = m.vNewVal
ENDIF
ENDPROC
PROCEDURE Init
* THIS.Name = "X"+SYS(2015)
* WITH THIS
*     .InitStatusText = OUTPUTCLASS_INITSTATUS_LOC
*     .PrepassStatusText = OUTPUTCLASS_PREPSTATUS_LOC
*     .RunStatusText =  OUTPUTCLASS_RUNSTATUS_LOC
*     .SecondsText = OUTPUTCLASS_TIME_SECONDS_LOC
*     .thermCaption = OUTPUTCLASS_THERMCAPTION_LOC
*     .resetUserFeedback()
* ENDWITH
This.AddProperty("CancelInstrText", "")
This.AddProperty("CancelQueryText", "")
This.AddProperty("ReportIncompleteText", "")
This.AddProperty("AttentionText", "")
THIS.Name = "X"+SYS(2015)
WITH THIS
*!*    #DEFINE OUTPUTCLASS_INITSTATUS_LOC           "Initializing... "
*!*    #DEFINE OUTPUTCLASS_PREPSTATUS_LOC           "Running calculation prepass... "
*!*    #DEFINE OUTPUTCLASS_RUNSTATUS_LOC            "Creating output... "
*!*    #DEFINE OUTPUTCLASS_TIME_SECONDS_LOC         "sec(s)"
*!*    #DEFINE OUTPUTCLASS_CANCEL_INSTRUCTIONS_LOC  "Press Esc to cancel... "
*!*    #DEFINE OUTPUTCLASS_REPORT_CANCELQUERY_LOC   "Stop report execution? (If you press 'No', report execution will continue.)"
*!*    #DEFINE OUTPUTCLASS_REPORT_INCOMPLETE_LOC    "Report execution was cancelled." + CHR(13) + ;
                                             "Your results are not complete."
#DEFINE OUTPUTCLASS_THERMCAPTION_LOC2        [m.cMessage+ " "+ ] + ;
            [TRANSFORM(THIS.PercentDone,"999"+ ] + ;
            [IIF(THIS.ThermPrecision=0,"","."+REPL("9",THIS.ThermPrecision))) + "%" ] + ;
            [+ IIF(NOT THIS.IncludeSeconds, "" , "   "+] + ;
            [TRANSFORM(IIF(THIS.IsRunning,DATETIME(), THIS.ReportStopRunDateTime)-] + ;
            [THIS.ReportStartRunDateTime)+" " + THIS.SecondsText)]
    IF VARTYPE(_goHelper) = "O"
        .InitStatusText       = _goHelper.GetLoc("INITSTATUS") + SPACE(1)
        .PrepassStatusText    = _goHelper.GetLoc("PREPSTATUS") + SPACE(1)
        .RunStatusText        = _goHelper.GetLoc("RUNSTATUS")  + SPACE(1)
        .SecondsText          = _goHelper.GetLoc("SECONDS")    + SPACE(1)
        .CancelInstrText      = _goHelper.GetLoc("CANCELINST") + SPACE(1)
        .CancelQueryText      = _goHelper.GetLoc("CANCELQUER")
        .ReportIncompleteText = _goHelper.GetLoc("REPINCOMPL")
        .AttentionText        = _goHelper.GetLoc("ATTENTION")
    ELSE
        .InitStatusText       = OUTPUTCLASS_INITSTATUS_LOC
        .PrepassStatusText    = OUTPUTCLASS_PREPSTATUS_LOC
        .RunStatusText        = OUTPUTCLASS_RUNSTATUS_LOC
        .SecondsText          = OUTPUTCLASS_TIME_SECONDS_LOC
        .CancelInstrText      = OUTPUTCLASS_CANCEL_INSTRUCTIONS_LOC
        .CancelQueryText      = OUTPUTCLASS_REPORT_CANCELQUERY_LOC
        .ReportIncompleteText = OUTPUTCLASS_REPORT_INCOMPLETE_LOC
        .AttentionText        = "Attention"
     ENDIF
    .thermCaption      = OUTPUTCLASS_THERMCAPTION_LOC2    && Keep original
    .resetUserFeedback()
ENDWITH
ENDPROC
PROCEDURE Load

ENDPROC
<?xml version="1.0"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
  <xsl:output method="html" version="1.0" encoding="UTF-8" indent="no" doctype-public="-//W3C//DTD HTML 4.0//EN" doctype-system="http://www.w3.org/TR/REC-html40/strict.dtd"/>
  <xsl:param name="externalFileLocation"/>
  <!--select="'./whatever/'" or 'http://something/myimages/' or "'./'" or... -->
  <xsl:param name="copyImageFiles" select="0"/>
  <xsl:param name="generalFieldDPI" select="96"/>
  <xsl:param name="fillPatternShade" select="180*3"/>
  <xsl:param name="fillPatternOffset" select="128"/>
  <xsl:param name="numberPrecision" select="5"/>
  <xsl:param name="fieldAlphaOpacityOffset" select="75"/>
  <xsl:param name="fieldAlphaOpacityShade" select="180*3"/>
  <xsl:param name="useTextAreaForStretchingText" select="1"/>
  <xsl:param name="hideScrollbarsForTextAreas" select="0"/>
  <xsl:param name="PageTitlePrefix_LOC" select="''"/>
<!--    <xsl:param name="unpagedModeIncludesOnePageHeader" select="0"/> -->
  <xsl:param name="unpagedModeIncludesTitle" select="1"/>
  <xsl:param name="noBody" select="0"/>
  <xsl:param name="useDynamicTextAttributes" select="1"/>
  <xsl:param name="anchorAttrName" select="1"/>
  <!-- id is theoretically better if you wanted to write
   script against this element, or in case name is
   deprecated in a future version of the standard,
   but a value of 1 forces name to be used instead.
   Current-newer browsers will be okay with this, and older
   browsers might prefer it. -->
  <xsl:variable name="FRUs" select="10000"/>
  <xsl:variable name="printDPI" select="960"/>
  <xsl:variable name="FRUsInPixelsat96DPI" select="104.167"/>
  <xsl:variable name="imagePixelRatio" select="$generalFieldDPI div $printDPI"/>
  <xsl:variable name="zeros" select="substring('0000000000000000000000000',1,$numberPrecision)"/>
  <xsl:variable name="thisPageHeight">
    <xsl:value-of select="number(/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXPrintJob/@pageheight  div $printDPI)"/>
  </xsl:variable>
  <xsl:variable name="lineNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=6]/name"/>
  <xsl:variable name="labelNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=5]/name"/>
  <xsl:variable name="fieldNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=8]/name"/>
  <xsl:variable name="shapeNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=7]/name"/>
  <xsl:variable name="pictureNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=17]/name"/>
  <xsl:variable name="detailNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=4]/name"/>
  <xsl:variable name="detailHeaderNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=9]/name"/>
  <xsl:variable name="detailFooterNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=10]/name"/>
  <xsl:variable name="pageHeaderNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=1]/name"/>
  <xsl:variable name="pageFooterNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=7]/name"/>
  <xsl:variable name="columnHeaderNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=2]/name"/>
  <xsl:variable name="columnFooterNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=6]/name"/>
  <xsl:variable name="groupHeaderNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=3]/name"/>
  <xsl:variable name="groupFooterNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=5]/name"/>
  <xsl:variable name="titleNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=0]/name"/>
  <xsl:variable name="summaryNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=8]/name"/>
  <xsl:variable name="anchorAttr">
  <xsl:choose>
  <xsl:when test="$anchorAttrName=1">name</xsl:when>
  <xsl:otherwise>id</xsl:otherwise>
  </xsl:choose>
  </xsl:variable>
  <xsl:key name="Layout" match="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[platform='WINDOWS']" use="concat(frxrecno,../../@id)"/>
  <xsl:template match="/">
      <xsl:choose>
        <xsl:when test="number($noBody)=1">
        <div>
         <meta http-equiv="Content-Type"  content="text/html; charset=UTF-8"/>
          <xsl:call-template name="renderStyles"/>
          <xsl:call-template name="body"/>
         </div>
        </xsl:when>
        <xsl:otherwise>
          <xsl:apply-templates select="/" mode="full"/>
        </xsl:otherwise>
      </xsl:choose>
  </xsl:template>
  <xsl:template match="/" mode="full">
    <html>
       <xsl:if test="/Reports/VFP-Report[1]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=1 and (fontcharset=177 or fontcharset=178)]">
       <xsl:attribute name="dir">rtl</xsl:attribute>
       </xsl:if>
      <head>
        <meta  http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<xsl:comment>
the above repeated-explicit declaration is necessary because
some versions of MSXML xslt processing don't include the
charset as required by the XSLT standard when method="html".
Explicitly including the META creates a doubled meta content-type tag,
but we do need the encoding to be specified properly and the doubled tag is okay.
</xsl:comment>
        <meta name="description"
content="{/Reports/VFP-Report[1]/Run/property[@id='description']/.}"/>
        <meta name="author"
content="{/Reports/VFP-Report[1]/Run/property[@id='author']/.}"/>
        <meta name="copyright"
content="{/Reports/VFP-Report[1]/Run/property[@id='copyright']/.}"/>
        <meta name="date"
content="{/Reports/VFP-Report[1]/Run/property[@id='date']/.}"/>
        <xsl:if test="/Reports/VFP-Report/Run/property[@id='keywords']">
        <meta name="keywords">
        <xsl:attribute name="content">
         <xsl:for-each select="/Reports/VFP-Report/Run/property[@id='keywords']">
         <xsl:value-of select="."/><xsl:if test="not(position()=last())">,</xsl:if>
        </xsl:for-each>
        </xsl:attribute>
        </meta>
        </xsl:if>
        <xsl:if test="/Reports/VFP-Report/Run/property[@id='http-equiv']">
            <xsl:for-each select="/Reports/VFP-Report/Run/property[@id='http-equiv']//meta">
          <xsl:variable name="thisMeta" select="concat(ancestor-or-self::*[@id='http-equiv']/@id ,'.',@name)"/>
          <!-- the extra Run nodes being looked up are potentially evaluated, not original values of the property,
          so we can account for expressions -->
          <meta  http-equiv="{@name}" content="{/Reports/VFP-Report/Run/property[@id=$thisMeta]}"/>
          </xsl:for-each>
        </xsl:if>
        <title>
          <xsl:choose>
          <xsl:when test="/Reports/VFP-Report[1]/Run/property[@id='title']">
            <xsl:value-of select="/Reports/VFP-Report[1]/Run/property[@id='title']/."/>
          </xsl:when>
          <xsl:otherwise>
            <!-- default/VFP 9.0 RTM handling -->
             <xsl:value-of select="$PageTitlePrefix_LOC"/>
             <xsl:if test="string-length(/Reports/VFP-Report[1]/VFP-RDL/VFPDataSet/VFPFRXPrintJob/@name) = 0">
               <xsl:value-of select="/Reports/VFP-Report[1]/VFP-RDL/@id"/>
             </xsl:if>
             <xsl:value-of select="/Reports/VFP-Report[1]/VFP-RDL/VFPDataSet/VFPFRXPrintJob/@name"/>
          </xsl:otherwise>
          </xsl:choose>
        </title>
        <xsl:call-template name="renderStyles"/>
      </head>
      <body>
        <xsl:call-template name="body"/>
      </body>
    </html>
  </xsl:template>
  <xsl:template name="renderStyles">
     <xsl:call-template name="DocumentStyles"/>
    <xsl:for-each select="/Reports/VFP-Report">
      <xsl:call-template name="Styles">
        <xsl:with-param name="thisReport" select="position()"/>
        <xsl:with-param name="thisReportID" select="./VFP-RDL/@id"/>
      </xsl:call-template>
      <!--        <xsl:call-template name="Script"/> avoid security problems: no script, not even a lone comment indicating TBD -->
    </xsl:for-each>
  </xsl:template>
  <xsl:template name="body">
    <xsl:for-each select="/Reports/VFP-Report">
      <xsl:variable name="thisReport" select="position()"/>
      <xsl:variable name="thisReportID" select="./VFP-RDL/@id"/>
      <xsl:variable name="thisReportRangeFrom" select="number(./VFP-RDL/VFPDataSet/VFPFRXCommand/@RANGEFROM)"/>
      <xsl:variable name="separateTitlePage" select="./Data/*[name()=$titleNodeName] and ./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandtype='0' and pagebreak='true']"/>
      <xsl:variable name="separateSummaryPage" select="./Data/*[name()=$summaryNodeName] and ./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandtype='8' and pagebreak='true' and ejectbefor='false']"/>
      <xsl:variable name="reportPages" select="count(./Data/*[(name()=$pageHeaderNodeName) or (name()=$titleNodeName and $separateTitlePage=true()) or  (name()=$summaryNodeName and $separateSummaryPage=true())])"/>
      <div>
        <xsl:if test="number($noBody)=1">
          <xsl:attribute name="style">
               position=relative;height=<xsl:value-of select="$reportPages * $thisPageHeight"/>in;
               </xsl:attribute>
        </xsl:if>
        <xsl:choose>
          <xsl:when test="./Data/*[name() = $pageHeaderNodeName]">
            <xsl:if test="$separateTitlePage">
              <xsl:apply-templates select="./Data/*[name()=$titleNodeName]" mode="titlesummarypage">
                <xsl:with-param name="thisReport" select="$thisReport"/>
                <xsl:with-param name="thisReportID" select="$thisReportID"/>
              </xsl:apply-templates>
            </xsl:if>
            <xsl:apply-templates select="./Data/*[name()=$pageHeaderNodeName]" mode="page">
              <xsl:with-param name="thisReport" select="$thisReport"/>
              <xsl:with-param name="thisReportID" select="$thisReportID"/>
              <xsl:with-param name="thisReportRangeFrom" select="$thisReportRangeFrom"/>
            </xsl:apply-templates>
            <xsl:if test="$separateSummaryPage">
              <xsl:apply-templates select="./Data/*[name()=$summaryNodeName]" mode="titlesummarypage">
                <xsl:with-param name="thisReport" select="$thisReport"/>
                <xsl:with-param name="thisReportID" select="$thisReportID"/>
              </xsl:apply-templates>
            </xsl:if>
          </xsl:when>
          <xsl:otherwise>
            <!-- unpaginated-->
            <xsl:variable name="thisPageHeaderHeight" select="/Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Header'][1]/height  div $FRUs"/>
            <xsl:variable name="thisReportPageHeight" select="number($thisPageHeight - ( $thisPageHeaderHeight +  (/Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Footer'][1]/height div $FRUs)) )"/>
            <xsl:if test="./Data/Pages/*[name() = $pageHeaderNodeName]"> <!-- $unpagedModeIncludesOnePageHeader=1" -->
              <!-- show the contents of the first page header -->
              <xsl:apply-templates mode="formattingBand" select="./Data/Pages/*[@idref = /Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Header']/frxrecno][1]">
                <xsl:with-param name="thisReport" select="$thisReport"/>
                <xsl:with-param name="thisReportID" select="$thisReportID"/>
                <xsl:with-param name="thisReportPageHeight" select="$thisReportPageHeight"/>
                <xsl:with-param name="thisPageHeight" select="$thisPageHeight"/>
              </xsl:apply-templates>
            </xsl:if>

            <!-- the @id criteria below leaves out the Pages and Columns collections, if any -->
            <!-- we could add in an initial page header but then we'd have to do the additional work to handle any title, etc; all the height offsets will change -->
            <xsl:apply-templates select="./Data/*[@idref and ($unpagedModeIncludesTitle=1 or not(name() = $titleNodeName))]" mode="unpagedBand">
              <xsl:with-param name="thisReport" select="$thisReport"/>
              <xsl:with-param name="thisReportID" select="$thisReportID"/>
              <xsl:with-param name="thisPageHeight" select="$thisPageHeight"/>
              <xsl:with-param name="thisReportPageHeight" select="$thisReportPageHeight"/>
              <xsl:with-param name="thisPageHeaderHeight" select="$thisPageHeaderHeight"/>
            </xsl:apply-templates>
          </xsl:otherwise>
        </xsl:choose>
      </div>
    </xsl:for-each>
  </xsl:template>
  <xsl:template match="/Reports/VFP-Report/Data/*" mode="titlesummarypage">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:param name="thisReportRangeFrom" select="1"/>
    <xsl:variable name="thisBand" select="@id"/>
    <div>
      <xsl:attribute name="style"> width:100%;top:<xsl:value-of select="$thisPageHeight * (number( ./@idref) -$thisReportRangeFrom)"/>in; position:absolute; </xsl:attribute>
      <xsl:apply-templates select="." mode="band">
        <xsl:with-param name="thisReport" select="$thisReport"/>
        <xsl:with-param name="thisReportID" select="$thisReportID"/>
      </xsl:apply-templates>
      <xsl:if test="/Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[frxrecno=$thisBand and ejectafter='true']">
        <!-- page footer for this summary page -->
        <xsl:apply-templates select="/Reports/VFP-Report[$thisReport]/Data/*[name()=$pageFooterNodeName][position()=last()]" mode="band">
          <xsl:with-param name="thisReport" select="$thisReport"/>
          <xsl:with-param name="thisReportID" select="$thisReportID"/>
        </xsl:apply-templates>
      </xsl:if>
    </div>
  </xsl:template>
  <xsl:template match="/Reports/VFP-Report/Data/*" mode="page">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:param name="thisReportRangeFrom" select="1"/>
    <xsl:variable name="thisPage" select="@id"/>
    <div>
      <xsl:attribute name="style"> width:100%;top:<xsl:value-of select="$thisPageHeight * ($thisPage -$thisReportRangeFrom)"/>in;position:absolute; </xsl:attribute>
      <xsl:apply-templates select="." mode="band">
        <xsl:with-param name="thisReport" select="$thisReport"/>
        <xsl:with-param name="thisReportID" select="$thisReportID"/>
      </xsl:apply-templates>
      <xsl:if test="$thisPage = 1 and /Reports/VFP-Report[$thisReport]/Data/*[name()=$titleNodeName] and /Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandtype='0' and pagebreak='false']">
        <xsl:apply-templates select="/Reports/VFP-Report[$thisReport]/Data/*[name()=$titleNodeName]" mode="band">
          <xsl:with-param name="thisReport" select="$thisReport"/>
          <xsl:with-param name="thisReportID" select="$thisReportID"/>
        </xsl:apply-templates>
      </xsl:if>
      <xsl:apply-templates select="/Reports/VFP-Report/Data/*[( (@id=$thisPage and contains(concat('|',$pageFooterNodeName,'|',$columnHeaderNodeName,'|',$columnFooterNodeName,'|'),concat('|',name(),'|'))) or (@idref=$thisPage and contains(concat('|',$detailHeaderNodeName,'|',$detailFooterNodeName,'|',$detailNodeName,'|',$groupHeaderNodeName,'|',$groupFooterNodeName,'|',$summaryNodeName,'|'),concat('|',name(),'|'))) )]" mode="band">
        <xsl:with-param name="thisReport" select="$thisReport"/>
        <xsl:with-param name="thisReportID" select="$thisReportID"/>
      </xsl:apply-templates>
    </div>
  </xsl:template>
  <xsl:template match="/Reports/VFP-Report/Data/Pages/*" mode="formattingBand">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:param name="thisPageHeight"/>
    <xsl:param name="thisReportPageHeight"/>
    <xsl:variable name="thisPage" select="@id"/>
    <xsl:variable name="thisPageRenderOffset" select="(($thisPage - 1) * $thisReportPageHeight)  + sum((/Reports/VFP-Report[position() < $thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Header']/height) ) "/>
    <xsl:for-each select="./*">
      <xsl:variable name="thisID" select="translate(@id,'+','')"/>
      <xsl:call-template name="Render">
        <xsl:with-param name="thisID" select="$thisID"/>
        <xsl:with-param name="thisZ" select="position()"/>
        <xsl:with-param name="thisPage" select="../@idref"/>
        <xsl:with-param name="thisReport" select="$thisReport"/>
        <xsl:with-param name="thisReportID" select="$thisReportID"/>
        <xsl:with-param name="topOffset" select="number($thisPageRenderOffset) * $printDPI"/>
      </xsl:call-template>
    </xsl:for-each>
  </xsl:template>
  <xsl:template match="/Reports/VFP-Report/Data/*" mode="unpagedBand">
      <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:param name="thisPageHeight"/>
    <xsl:param name="thisReportPageHeight"/>
    <xsl:param name="thisPageHeaderHeight"/>
    <xsl:variable name="thisPage" select="@idref"/>
    <xsl:variable name="thisPageRenderOffset">
      <xsl:choose>
        <xsl:when test="../Pages/*[name() = $pageHeaderNodeName]"> <!-- $unpagedModeIncludesOnePageHeader=1" -->
          <xsl:value-of select="(($thisPage - 1) * $thisReportPageHeight) + (sum(/Reports/VFP-Report[position() < $thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Header'][1]/height)div $FRUs)  + $thisPageHeaderHeight "/>
        </xsl:when>
        <xsl:otherwise>
          <xsl:value-of select="(($thisPage - 1) * $thisReportPageHeight) -($thisPageHeaderHeight*$thisPage)  "/>
        </xsl:otherwise>
      </xsl:choose>
    </xsl:variable>
    <xsl:call-template name="addAnchor"/>
    <xsl:for-each select="./*">
      <xsl:variable name="thisID" select="translate(@id,'+','')"/>
      <xsl:call-template name="Render">
        <xsl:with-param name="thisID" select="$thisID"/>
        <xsl:with-param name="thisZ" select="position()"/>
        <xsl:with-param name="thisPage" select="../@idref"/>
        <xsl:with-param name="thisReport" select="$thisReport"/>
        <xsl:with-param name="thisReportID" select="$thisReportID"/>
        <xsl:with-param name="topOffset" select="number($thisPageRenderOffset) * $printDPI"/>
      </xsl:call-template>
    </xsl:for-each>
  </xsl:template>
  <xsl:template match="/Reports/VFP-Report/Data/*" mode="band">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:call-template name="addAnchor"/>
    <xsl:for-each select="./*">
      <xsl:variable name="thisID" select="translate(@id,'+','')"/>
      <!--        <xsl:if test="key('Layout',concat($thisID, $thisReportID))/vpos > key('Layout',preceding-sibling::*/concat(@id,$thisReportID))/vpos"><div style="position=absolute;"/></xsl:if>  -->
      <xsl:call-template name="Render">
        <xsl:with-param name="thisID" select="$thisID"/>
        <xsl:with-param name="thisZ" select="position()"/>
        <xsl:with-param name="thisPage" select="../@idref"/>
        <xsl:with-param name="thisReport" select="$thisReport"/>
        <xsl:with-param name="thisReportID" select="$thisReportID"/>
      </xsl:call-template>
    </xsl:for-each>
  </xsl:template>
  <xsl:template name="Render">
    <xsl:param name="thisID"/>
    <xsl:param name="thisZ"/>
    <xsl:param name="thisPage"/>
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID" select="1"/>
    <xsl:param name="topOffset" select="0"/>
    <xsl:call-template name="addAnchor"/>
    <xsl:choose>
      <xsl:when test="name()=$lineNodeName and key('Layout',concat($thisID, $thisReportID))/height <  key('Layout',concat($thisID, $thisReportID))/width">
        <hr>
          <xsl:call-template name="addClassAttribute">
             <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID)"/>
        </xsl:call-template>
        <xsl:call-template name="addTitleAttribute"/>
          <xsl:call-template name="addStyleAttribute">
            <xsl:with-param name="topOffset" select="$topOffset"/>
            <xsl:with-param name="thisZ" select="$thisZ"/>
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
           <xsl:with-param name="thisID" select="$thisID"/>
           <xsl:with-param name="styleType" select="'HR'"/>
          </xsl:call-template>
        </hr>
      </xsl:when>
      <xsl:when test="name()=$lineNodeName">
        <!-- vertical line -->
        <span>
          <xsl:call-template name="addClassAttribute">
            <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID)"/>
        </xsl:call-template>
          <xsl:call-template name="addTitleAttribute"/>
          <xsl:call-template name="addStyleAttribute">
            <xsl:with-param name="topOffset" select="$topOffset"/>
            <xsl:with-param name="thisZ" select="$thisZ"/>
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
           <xsl:with-param name="thisID" select="$thisID"/>
              <xsl:with-param name="styleType" select="'VR'"/>
          </xsl:call-template>
        </span>
      </xsl:when>
      <xsl:when test="$useTextAreaForStretchingText=1 and string-length(@hlink) = 0  and name()=$fieldNodeName and key('Layout',concat($thisID, $thisReportID))[stretch='true']">
        <textarea readonly="readonly" rows="0" cols="0">
          <xsl:call-template name="addClassAttribute">
             <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID)"/>
        </xsl:call-template>
          <xsl:call-template name="addTitleAttribute"/>
          <xsl:call-template name="addStyleAttribute">
            <xsl:with-param name="topOffset" select="$topOffset"/>
            <xsl:with-param name="thisZ" select="$thisZ"/>
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
          <xsl:with-param name="thisID" select="$thisID"/>
          <xsl:with-param name="styleType" select="'TextArea'"/>
          </xsl:call-template>
          <xsl:value-of select="."/>
        </textarea>
      </xsl:when>
      <xsl:otherwise>
        <div>
           <xsl:choose>
             <xsl:when test="@c=1">
                <xsl:call-template name="addClassAttribute">
                   <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID,'T')"/>
                </xsl:call-template>
             </xsl:when>
             <xsl:when test="@c=2">
                <xsl:call-template name="addClassAttribute">
                   <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID,'M')"/>
                </xsl:call-template>
             </xsl:when>
             <xsl:when test="@c=3">
                <xsl:call-template name="addClassAttribute">
                   <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID,'B')"/>
                </xsl:call-template>
             </xsl:when>
             <xsl:otherwise>
                <xsl:call-template name="addClassAttribute">
                   <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID)"/>
                </xsl:call-template>
             </xsl:otherwise>
           </xsl:choose>
          <xsl:call-template name="addTitleAttribute"/>
          <xsl:call-template name="addStyleAttribute">
            <xsl:with-param name="topOffset" select="$topOffset"/>
            <xsl:with-param name="thisZ" select="$thisZ"/>
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
          <xsl:with-param name="thisID" select="$thisID"/>
          <xsl:with-param name="styleType" select="'Div'"/>
          </xsl:call-template>
          <xsl:choose>
            <xsl:when test="name()=$shapeNodeName or name()=$lineNodeName">
              <!-- nothing -->
            </xsl:when>
            <xsl:when test="name()=$pictureNodeName and string-length(@hlink) > 0">
              <a href="{@hlink}">
                <xsl:call-template name="renderPicture">
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
            <xsl:with-param name="thisID" select="$thisID"/>
                </xsl:call-template>
              </a>
            </xsl:when>
            <xsl:when test="name()=$pictureNodeName and string-length(@PLINK) > 0">
              <a href="{translate(@PLINK,'\','/')}"  target="blank">
                <xsl:call-template name="renderPicture">
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
            <xsl:with-param name="thisID" select="$thisID"/>
                </xsl:call-template>
              </a>
            </xsl:when>
            <xsl:when test="name()=$pictureNodeName">
              <xsl:call-template name="renderPicture">
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
            <xsl:with-param name="thisID" select="$thisID"/>
              </xsl:call-template>
            </xsl:when>
            <xsl:when test="string-length(@hlink) > 0">
              <a href="{@hlink}">
                <xsl:call-template name="replaceText"/>
              </a>
            </xsl:when>
            <xsl:when test="string-length(@PLINK) > 0">
              <a href="{translate(@PLINK,'\','/')}" target="blank">
                <xsl:call-template name="replaceText"/>
              </a>
            </xsl:when>
            <xsl:otherwise>
              <xsl:call-template name="replaceText"/>
            </xsl:otherwise>
          </xsl:choose>
        </div>
      </xsl:otherwise>
    </xsl:choose>
    <!-- /xsl:if -->
  </xsl:template>
  <xsl:template name="getCSSName">
  <xsl:param name="thisReport" select="1"/>
  <xsl:param name="thisItem" select="0"/>
  <xsl:param name="itemType" select="''"/>
  <xsl:param name="firstPass" select="1"/>
  <xsl:variable name="subst" select="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$thisItem]/@css"/>
    <xsl:choose>
     <xsl:when test="number($firstPass)=1 or string-length($subst) = 0"><xsl:value-of select="concat('.FRX',$thisReport,'_',$thisItem,$itemType)"/></xsl:when>
     <xsl:otherwise>.<xsl:value-of select="$subst"/></xsl:otherwise>
     </xsl:choose>
  </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="imagestyles">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
     <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
  position: absolute;overflow: hidden;width: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;height: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="height div $FRUs"/></xsl:call-template>in;
  <!-- <xsl:if test="offset=0">
left: <xsl:value-of select="hpos div $FRUs"/>in;
</xsl:if>
<xsl:if test="offset=2">
left: <xsl:value-of select="hpos div $FRUs"/>in;
</xsl:if> -->
 </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="shapestyles">
   <xsl:param name="thisReport" select="1"/>
   <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
     <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
       position: absolute ;font-size:1pt; border: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;<xsl:if test="(mode=0 and not(fillpat=0)) or (mode=1 and fillpat=1)">background-color:<xsl:call-template name="fillcolor"/>;</xsl:if>width: <xsl:call-template name="setPrecision"> <xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;left: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="hpos div $FRUs"/></xsl:call-template>in;
      }
      <!--    <xsl:if test="stretch='true'">
overflow: auto;
   </xsl:if> -->
  </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="shapestylesT">
    <xsl:param name="thisReport" select="1"/>
   <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
     <xsl:with-param name="itemType" select="'T'"/>
     <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
   position: absolute ;font-size:1pt; border-left: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-right: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-top: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;<xsl:if test="(mode=0 and not(fillpat=0)) or (mode=1 and fillpat=1)">background-color:<xsl:call-template name="fillcolor"/>;</xsl:if>width: <xsl:call-template name="setPrecision"> <xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;left: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="hpos div $FRUs"/></xsl:call-template>in;
      }
      <!--    <xsl:if test="stretch='true'">
overflow: auto;
   </xsl:if> -->
  </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="shapestylesM">
    <xsl:param name="thisReport" select="1"/>
   <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
     <xsl:with-param name="itemType" select="'M'"/>
     <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
   position: absolute ;font-size:1pt; border-left: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-right: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;<xsl:if test="(mode=0 and not(fillpat=0)) or (mode=1 and fillpat=1)">background-color:<xsl:call-template name="fillcolor"/>;</xsl:if>width: <xsl:call-template name="setPrecision"> <xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;left: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="hpos div $FRUs"/></xsl:call-template>in;
      }
      <!--    <xsl:if test="stretch='true'">
overflow: auto;
   </xsl:if> -->
  </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="shapestylesB">
    <xsl:param name="thisReport" select="1"/>
   <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
     <xsl:with-param name="itemType" select="'B'"/>
     <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
   position: absolute ;font-size:1pt; border-left: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-right: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-bottom: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;<xsl:if test="(mode=0 and not(fillpat=0)) or (mode=1 and fillpat=1)">background-color:<xsl:call-template name="fillcolor"/>;</xsl:if>width: <xsl:call-template name="setPrecision"> <xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;left: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="hpos div $FRUs"/></xsl:call-template>in;
      }
      <!--    <xsl:if test="stretch='true'">
overflow: auto;
   </xsl:if> -->
  </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="textstyles">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
     <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
  <xsl:call-template name="getTextAlignment"/>vertical-align: top; font-family: "<xsl:value-of select="fontface"/>"; font-size: <xsl:value-of select="fontsize"/>pt; border: 0px none; padding: 0px; margin: 0px;<xsl:call-template name="getFontAttributes"/>color:<xsl:call-template name="pencolor"/>;<xsl:choose>
      <xsl:when test="mode mod 2 = 1">background-color:transparent;</xsl:when>
      <xsl:otherwise>background-color: <xsl:call-template name="fillcolor"/>;</xsl:otherwise>
    </xsl:choose><xsl:choose>
      <xsl:when test="stretch='true' and objtype=8 and $useTextAreaForStretchingText=1 and $hideScrollbarsForTextAreas=1"> overflow:hidden;margin-top:4px;</xsl:when>
      <xsl:when test="stretch='true' and objtype=8 and $useTextAreaForStretchingText=1"> overflow: auto;margin-top:4px;</xsl:when>
      <xsl:otherwise>overflow:hidden;</xsl:otherwise>
    </xsl:choose> position: absolute;
   }
    <!-- tbd, make vertical-align more dynamic -->
  </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="linestyles">
    <xsl:param name="thisReport" select="1"/>
   <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
      <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
   position:absolute;font-size:1pt;border: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;left: <xsl:value-of select="hpos div $FRUs"/>in;
      <xsl:choose>
      <xsl:when test="height < width"> width: <xsl:value-of select="width div $FRUs"/>in;
  height: <xsl:value-of select="floor(height div $FRUsInPixelsat96DPI)"/>px; margin: 0px;</xsl:when>
      <xsl:otherwise>  height: <xsl:value-of select="height div $FRUs"/>in;
  width: <xsl:value-of select="floor(width div $FRUsInPixelsat96DPI)"/>px;  </xsl:otherwise>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="pattern">
    <xsl:choose>
      <xsl:when test="penpat=0"> none </xsl:when>
      <xsl:when test="penpat=1"> dotted </xsl:when>
      <xsl:when test="penpat=2"> dashed </xsl:when>
      <xsl:otherwise> solid </xsl:otherwise>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="pencolor">#<xsl:call-template name="getHexColorValue">
      <xsl:with-param name="theNumber" select="penred"/>
    </xsl:call-template>
    <xsl:call-template name="getHexColorValue">
      <xsl:with-param name="theNumber" select="pengreen"/>
    </xsl:call-template>
    <xsl:call-template name="getHexColorValue">
      <xsl:with-param name="theNumber" select="penblue"/>
    </xsl:call-template>
  </xsl:template>
  <xsl:template name="fillcolor">#<xsl:call-template name="getHexColorValue">
      <xsl:with-param name="theNumber" select="fillred"/>
      <xsl:with-param name="fill" select="1"/>
    </xsl:call-template>
    <xsl:call-template name="getHexColorValue">
      <xsl:with-param name="theNumber" select="fillgreen"/>
      <xsl:with-param name="fill" select="1"/>
    </xsl:call-template>
    <xsl:call-template name="getHexColorValue">
      <xsl:with-param name="theNumber" select="fillblue"/>
      <xsl:with-param name="fill" select="1"/>
    </xsl:call-template>
  </xsl:template>
  <xsl:template name="getFontAttributes">
    <xsl:param name="theStyles" select="0"/>
    <xsl:choose>
      <xsl:when test="fontbold='true'">font-weight: bold;</xsl:when>
      <xsl:otherwise>font-weight: normal;</xsl:otherwise>
    </xsl:choose>
    <xsl:if test="fontstrikethrough='true' or fontunderline='true'">text-decoration: <xsl:if test="fontstrikethrough='true'">line-through </xsl:if>
      <xsl:if test="fontunderline='true'">underline</xsl:if>;</xsl:if>
    <xsl:if test="fontitalic='true'">font-style: italic;</xsl:if>
  </xsl:template>
  <xsl:template name="getHexColorValue">
    <xsl:param name="theNumber" select="-1"/>
    <xsl:param name="fill" select="0"/>
    <xsl:variable name="useNumber">
      <xsl:choose>
        <xsl:when test="$fill=1 and fillpat > 1 and ((fillred+fillblue+fillgreen) < $fillPatternShade)">
          <xsl:choose>
            <xsl:when test="($fillPatternOffset + $theNumber) > 254">255</xsl:when>
            <xsl:otherwise>
              <xsl:value-of select="$fillPatternOffset + $theNumber"/>
            </xsl:otherwise>
          </xsl:choose>
        </xsl:when>
        <xsl:otherwise>
          <xsl:value-of select="$theNumber"/>
        </xsl:otherwise>
      </xsl:choose>
    </xsl:variable>
    <xsl:choose>
      <xsl:when test="$useNumber=-1 and $fill=1">FF</xsl:when>
      <xsl:when test="$useNumber=-1">00</xsl:when>
      <xsl:otherwise>
        <xsl:call-template name="getHexForNumber">
          <xsl:with-param name="theNumber" select="floor($useNumber div 16)"/>
        </xsl:call-template>
        <xsl:call-template name="getHexForNumber">
          <xsl:with-param name="theNumber" select="round($useNumber mod 16)"/>
        </xsl:call-template>
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="setPrecision">
    <xsl:param name="theNumber" select="-1"/>
    <xsl:choose>
      <xsl:when test="$numberPrecision = -1 or not(contains(string($theNumber),'.'))">
        <xsl:value-of select="$theNumber"/>
      </xsl:when>
      <xsl:when test="$numberPrecision > 0">
        <!--        <xsl:value-of select="concat(string(floor($theNumber)),'.',substring(substring-after(string($theNumber),'.'),1,$numberPrecision))"/>  -->
        <xsl:value-of select="format-number($theNumber,concat('##0.',$zeros))"/>
      </xsl:when>
      <xsl:when test="$numberPrecision=0">
        <xsl:value-of select="round($theNumber)"/>
      </xsl:when>
      <xsl:otherwise>
        <!-- shouldn't happen-->
        <xsl:value-of select="$theNumber"/>
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="getHexForNumber">
    <xsl:param name="theNumber" select="-1"/>
    <xsl:choose>
      <xsl:when test="$theNumber=-1">00</xsl:when>
      <xsl:when test="$theNumber < 10">
        <xsl:value-of select="$theNumber"/>
      </xsl:when>
      <xsl:when test="$theNumber = 10">A</xsl:when>
      <xsl:when test="$theNumber = 11">B</xsl:when>
      <xsl:when test="$theNumber = 12">C</xsl:when>
      <xsl:when test="$theNumber = 13">D</xsl:when>
      <xsl:when test="$theNumber = 14">E</xsl:when>
      <xsl:when test="$theNumber = 15">F</xsl:when>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="getTextAlignment">text-align:<xsl:choose>
      <xsl:when test="objtype=5"><!-- picture field empty for left (default), @I for centered and @J right -->
        <xsl:choose>
          <xsl:when test="string-length(picture) = 0">left;</xsl:when>
          <xsl:when test="contains(picture,'@J')">right;</xsl:when>
          <xsl:otherwise>center;</xsl:otherwise>
        </xsl:choose>
      </xsl:when>
      <xsl:otherwise>
        <xsl:choose>
          <xsl:when test="offset=0">left;</xsl:when>
          <xsl:when test="offset=1">right;</xsl:when>
          <xsl:otherwise>center;</xsl:otherwise>
        </xsl:choose>
      </xsl:otherwise>
    </xsl:choose>
    <!-- don't include direction at all if you want context -->
    <xsl:if test="mode < 4">direction:<xsl:choose>
        <xsl:when test="mode > 1">rtl;</xsl:when>
        <xsl:otherwise>ltr;</xsl:otherwise>
      </xsl:choose>
    </xsl:if>
  </xsl:template>
  <xsl:template name="ExternalStyleSheets">
    <xsl:param name="thisReportNode" select="/Reports/VFP-Report[1]"/>
    <xsl:param name="thisReportID" select="'this report'"/>
   <xsl:if test="count($thisReportNode/Run/property[@id='css_sheet']) > 0">
   <xsl:comment>
   External stylesheet(s) for <xsl:value-of select="$thisReportID"/>
   </xsl:comment>
   <xsl:for-each select="$thisReportNode/Run/property[@id='css_sheet']">
      <link type="text/css" href="{./text()}" rel="stylesheet"/>
   </xsl:for-each>
   </xsl:if>
  </xsl:template>
  <xsl:template name="DocumentStyles">
  <xsl:comment>Global document styles, if any</xsl:comment>
    <style type="text/css">
     <xsl:comment><xsl:if test="/Reports/VFP-Report[1]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=1 and (fontcharset=177 or fontcharset=178)]">
     <xsl:if test="number($noBody)!=1">html{direction:rtl;}
     body{direction:rtl;}</xsl:if>
     div{direction:rtl;}
     span{direction:rtl;}
     </xsl:if>
     </xsl:comment>
    </style>
  </xsl:template>
  <xsl:template name="Styles">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:comment>
    Styles for report # <xsl:value-of select="$thisReport"/>  in this run,
    <xsl:value-of select="$thisReportID"/>
    </xsl:comment>
    <style type="text/css">
      <xsl:comment>
        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=6]" mode="linestyles">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>

      <xsl:for-each select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=6]">
        <xsl:variable name="frxrecno" select="frxrecno"/>
        <xsl:if test="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$frxrecno]/@css">
              <xsl:apply-templates select="." mode="linestyles">
              <xsl:with-param name="thisReport" select="$thisReport"/>
                 <xsl:with-param name="firstPass" select="0"/>
              </xsl:apply-templates>
        </xsl:if>
      </xsl:for-each>

        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]" mode="shapestyles">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>
        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]" mode="shapestylesT">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>
        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]" mode="shapestylesM">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>
        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]" mode="shapestylesB">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>
      <xsl:for-each select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]">
         <xsl:variable name="frxrecno" select="frxrecno"/>
        <xsl:if test="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$frxrecno]/@css">
              <xsl:apply-templates select="." mode="shapestyles">
                <xsl:with-param name="thisReport" select="$thisReport"/>
                <xsl:with-param name="firstPass" select="0"/>
              </xsl:apply-templates>
        </xsl:if>
      </xsl:for-each>
        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[contains('|5|8|',concat('|',./objtype,'|'))]" mode="textstyles">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>
      <xsl:for-each select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[contains('|5|8|',concat('|',./objtype,'|'))]">
        <xsl:variable name="frxrecno" select="frxrecno"/>
        <xsl:if test="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$frxrecno]/@css">
              <xsl:apply-templates select="." mode="textstyles">
              <xsl:with-param name="thisReport" select="$thisReport"/>
                 <xsl:with-param name="firstPass" select="0"/>
              </xsl:apply-templates>
        </xsl:if>
      </xsl:for-each>

        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=17]" mode="imagestyles">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>
      <xsl:for-each select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=17]">
        <xsl:variable name="frxrecno" select="frxrecno"/>
        <xsl:if test="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$frxrecno]/@css">
              <xsl:apply-templates select="." mode="imagestyles">
              <xsl:with-param name="thisReport" select="$thisReport"/>
                 <xsl:with-param name="firstPass" select="0"/>
              </xsl:apply-templates>
        </xsl:if>
      </xsl:for-each>
      </xsl:comment>
    </style>
   <xsl:call-template name="ExternalStyleSheets">
   <xsl:with-param name="thisReportNode" select="/Reports/VFP-Report[$thisReport]"/>
   <xsl:with-param name="thisReportID" select="$thisReportID"/>
   </xsl:call-template>
  </xsl:template>
  <xsl:template name="replaceText">
    <xsl:choose>
      <xsl:when test="$useTextAreaForStretchingText=1">
        <xsl:value-of select="."/>
      </xsl:when>
      <xsl:otherwise>
        <xsl:call-template name="replaceWhiteSpace">
          <xsl:with-param name="string" select="."/>
        </xsl:call-template>
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="renderPicture">
  <xsl:param name="thisReportID"/>
  <xsl:param name="thisID"/>
    <img>
      <xsl:attribute name="alt"><xsl:choose><xsl:when test="@alt"><xsl:value-of select="@alt"/></xsl:when><xsl:otherwise><xsl:value-of select="key('Layout',concat($thisID, $thisReportID))/unpathedimg"/></xsl:otherwise></xsl:choose></xsl:attribute>
      <xsl:variable name="srcImage">
   <xsl:choose>
          <xsl:when test="@img and $externalFileLocation">
            <xsl:value-of select="translate(concat($externalFileLocation,@img),'\','/')"/>
          </xsl:when>
          <xsl:when test="@img and not(contains(./@img,':'))">
               <xsl:value-of select="translate(@img,'\','/')"/>
          </xsl:when>
          <xsl:when test="@img">
            <xsl:value-of select="concat('file://',translate(@img,'\','/'))"/>
          </xsl:when>
          <xsl:when test="$copyImageFiles = '1'">
            <xsl:value-of select="translate(concat($externalFileLocation,key('Layout',concat($thisID, $thisReportID))/unpathedimg),'\','/')"/>
          </xsl:when>
          <xsl:when test="string-length(./text()) > 0 and not(contains(./text(),':')) ">
            <xsl:value-of select="translate(./text(),'\','/')"/>
          </xsl:when>
          <xsl:when test="string-length(./text()) > 0">
            <xsl:value-of select="concat('file://',translate(./text(),'\','/'))"/>
          </xsl:when>
          <xsl:otherwise>
            <xsl:value-of select="concat('file://',translate(key('Layout',concat($thisID, $thisReportID))/pathedimg,'\','/'))"/>
          </xsl:otherwise>
        </xsl:choose>
      </xsl:variable>
      <xsl:attribute name="src"><xsl:value-of select="$srcImage"/></xsl:attribute>
      <xsl:attribute name="style"><xsl:variable name="imgGeneral" select="key('Layout',concat($thisID, $thisReportID))"/><xsl:choose><xsl:when test="$imgGeneral/general='0' "><!-- clip top, right, bottom, left -->
 clip: rect(0in,<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@w div $printDPI"/></xsl:call-template>in,<xsl:value-of select="@h div $printDPI"/>in,0in);
 </xsl:when><xsl:when test="$imgGeneral/general='1'"><!-- scale and retain --><xsl:choose><xsl:when test="@h > @w">
 width:100%;
 </xsl:when><xsl:otherwise>
 height:100%;
 </xsl:otherwise></xsl:choose></xsl:when><xsl:otherwise><!-- stretch to fill frame -->
 height: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@h div $printDPI"/></xsl:call-template>in;
width: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@w div $printDPI"/></xsl:call-template>in;
 </xsl:otherwise></xsl:choose></xsl:attribute>
    </img>
  </xsl:template>
  <xsl:template name="addClassAttribute">
  <xsl:param name="item" select="."/>
  <xsl:param name="default" select="''"/>
  <xsl:attribute name="class"><xsl:choose>
  <xsl:when test="string-length($item/@CSS) > 0">
  <xsl:value-of select="$item/@CSS"/>
  </xsl:when>
  <xsl:when test="string-length($item/@css) = 0">
  <xsl:value-of select="$default"/>
  </xsl:when>
  <xsl:otherwise>
  <xsl:value-of select="$item/@css"/>
  </xsl:otherwise>
  </xsl:choose></xsl:attribute>
  </xsl:template>
  <xsl:template name="addTitleAttribute">
    <xsl:param name="item" select="."/>
    <xsl:if test="string-length($item/@title) > 0">
      <xsl:attribute name="title"><xsl:value-of select="$item/@title"/></xsl:attribute>
    </xsl:if>
  </xsl:template>
  <xsl:template name="addAnchor">
    <xsl:param name="item" select="."/>
    <xsl:if test="string-length($item/@anchor) > 0">
      <a>
     <xsl:attribute name="{$anchorAttr}"><xsl:value-of select="$item/@anchor"/></xsl:attribute>
        <xsl:text disable-output-escaping="yes">&nbsp;</xsl:text>
      </a>
    </xsl:if>
  </xsl:template>
  <xsl:template name="addStyleAttribute">
    <xsl:param name="topOffset" select="0"/>
    <xsl:param name="thisZ" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:param name="thisID"/>
    <xsl:param name="styleType" select="'Div'"/>
<!-- do NOT mess around with the white space in here, even though it
looks ugly the way it is!! -->
<xsl:attribute name="style">z-Index:<xsl:value-of select="$thisZ"/>;left:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@l div $printDPI"/></xsl:call-template>in;
top:<xsl:choose>
  <xsl:when test="styleType='TextArea'"><xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="((@t  + $topOffset) div $printDPI) - .1"/></xsl:call-template></xsl:when>
  <xsl:otherwise><xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="(@t +$topOffset) div $printDPI"/></xsl:call-template></xsl:otherwise>
</xsl:choose>in;<xsl:choose>
  <xsl:when test="$styleType='VR'">width:0in;</xsl:when>
  <xsl:when test="$styleType='TextArea'">width:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@w div $printDPI"/></xsl:call-template>in;</xsl:when>
<xsl:when test="$styleType='Div'">width:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@w div $printDPI"/></xsl:call-template>in;height:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@h div $printDPI"/></xsl:call-template>in;</xsl:when></xsl:choose><xsl:if test="not($styleType='Div')">height:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@h div $printDPI"/></xsl:call-template>in;</xsl:if>
<xsl:if test="$useDynamicTextAttributes=1 and key('Layout',concat($thisID,$thisReportID))[objtype=5 or objtype=8]">
<xsl:call-template name="addDynamicTextStyleAttributes"/>
</xsl:if>
</xsl:attribute>
    </xsl:template>
    <xsl:template name="addDynamicTextStyleAttributes">
  <!-- dynamic values for font, omit these attributes if they don't appear on each object-->
  <xsl:if test="@FNAME">
    font-family:'<xsl:value-of select="@FNAME"/>';font-size:<xsl:value-of select="@FSIZE"/>pt;
    <xsl:if test="((@FSTYLE div 128) mod 2 = 1) or ( (@FSTYLE div 4) mod 2 = 1)">text-decoration:<xsl:if test="((@FSTYLE div 128) mod 2 = 1)">line-through</xsl:if><xsl:if test="( (@FSTYLE div 8) mod 2 = 1)">underline</xsl:if>;</xsl:if>
    font-weight:<xsl:choose><xsl:when test="@FSTYLE mod 2 = 1">bold</xsl:when><xsl:otherwise>normal</xsl:otherwise></xsl:choose>;
    font-style:<xsl:choose><xsl:when test="(@FSTYLE div 2) mod 2 =1">italic</xsl:when><xsl:otherwise>normal</xsl:otherwise></xsl:choose>;
   background-color:<xsl:call-template name="getAlphaColor">
   <xsl:with-param name="alpha" select="@FA"/>
   <xsl:with-param name="r" select="@FR"/>
   <xsl:with-param name="g" select="@FG"/>
   <xsl:with-param name="b" select="@FB"/>
   </xsl:call-template>;color:<xsl:call-template name="getAlphaColor"/>;
    </xsl:if>
    </xsl:template>
   <xsl:template name="getAlphaColor">
   <xsl:param name="alpha" select="@PA"/>
   <xsl:param name="r" select="@PR"/>
   <xsl:param name="g" select="@PG"/>
   <xsl:param name="b" select="@PB"/>
   <xsl:choose>
   <xsl:when test="$alpha=0">transparent</xsl:when>
   <xsl:when test="$alpha=255 or ($r+$g+$b > $fieldAlphaOpacityShade)"><xsl:value-of select="concat('rgb(',$r,',',$g,',',$b,')')"/></xsl:when>
   <xsl:otherwise><xsl:value-of select="concat('rgb(',$r+$fieldAlphaOpacityOffset,',',$g+$fieldAlphaOpacityOffset,',',$b+$fieldAlphaOpacityOffset,')')"/></xsl:otherwise>
   </xsl:choose>
   </xsl:template>
    <xsl:template name="replaceWhiteSpace">
    <xsl:param name="string" select="."/>
    <xsl:choose>
      <xsl:when test="contains($string,'
')">
        <xsl:call-template name="replaceWhiteSpace">
          <xsl:with-param name="string" select="substring-before($string, '
')"/>
        </xsl:call-template>
        <br/>
        <xsl:call-template name="replaceWhiteSpace">
          <xsl:with-param name="string" select="substring-after($string, '
')"/>
        </xsl:call-template>
      </xsl:when>
      <xsl:otherwise>
        <xsl:value-of select="$string"/>
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="Script">
    <script language="JavaScript">
      <xsl:comment>
     //TBD
      </xsl:comment>
    </script>
  </xsl:template>
  <xsl:template match="*|@*" mode="debug">
   <xsl:copy-of select="."/>
  </xsl:template>
</xsl:stylesheet>
LCRESULTd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
CSSCLASSATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
ANCHORATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
TITLEATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
LINKATTR
SYNCHXSLTPROCESSORUSERd
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
CSSCLASSOVERRIDEATTR
SYNCHXSLTPROCESSORUSER
ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
.?=&#
TCVALUE
TLENCODEURLCONTROLCHARS
TLENCODESPACE
LCRESULT
LCCHAR
LCOKCHARS
TCVAL
TLXMLENCODE
LCVAL
LCTEMPVAL
LAVALS
LIINDEX
LISEPARATORS
URLSTRINGENCODE
XMLRAWCONVH
LOBJTYPEMODE
OFOXYPREVIEWER
COMMANDCLAUSES
LOPENVIEWER
PREVIEW
TOFILE
TARGETFILENAME
CDESTFILE
LCDESTFILE
COUTPUTPATH
LCFILE
_REPORTLISTENER
CANCELREPORT
QUIETMODE
LQUIETMODE
Microsoft.XMLDOM
Microsoft.XMLDOM
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.Metatag.HTTP-EQUIV
/VFPData/reportdata
[@name='
' and @execwhen='
HTML.Metatag.HTTP-EQUIV
']/@execute
//meta
content
HTML.Metatag.HTTP-EQUIV
HTML.Metatag.HTTP-EQUIV
RUNCOLLECTOR
SETFRXDATASESSION
MEMBERDATAALIAS
LVVALUE
LCEXPR
LISELECT
LOXML
LOXMLTEMP
LONODE
FRXHEADERRECNO
LOADXML
STYLE
FRXRECNO
EXECWHEN
DECLASS
EXECUTE
SELECTSINGLENODE
SELECTNODES
GETATTRIBUTE
EVALUATEUSEREXPRESSION
GETKEY
FRXRecno
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.CSSClass.OverrideFRX
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.CSSClass.ExtendFRX
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.Link
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.Alt-Title
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.Anchor
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
TNOBJECTCONTINUATIONTYPE
LCINFO
LCVAL
LIRECNO
SETFRXDATASESSION
MEMBERDATAALIAS
FRXRECNO
EXECWHEN
DECLASS
EVALUATEUSEREXPRESSION
EXECUTE
CSSCLASSOVERRIDEATTR
CSSCLASSATTR
LINKATTR
PATHENCODE
TITLEATTR
ANCHORATTR
@id='description'
@id='
Document.Description
@id='author'
@id='
Document.Author
@id='keywords'
@id='
Document.Keywords
@id='title'
@id='
Document.Title
@id='copyright'
@id='
Document.Copyright
@id='date'
@id='
Document.Date
@id='css_sheet'
@id='
HTML.CSSFile
@id='http-equiv'
@id='
HTML.Metatag.HTTP-EQUIV
@idref
@DTEXT
@DTYPE
@PLINK
@FNAME
@FSIZE
@FSTYLE
@title
@anchor
@hlink
LCRESULT
GETDEFAULTUSERXSLTASSTRING
HEIGHTATTR
WIDTHATTR
LEFTATTR
TOPATTR
CONTATTR
IDREFATTRIBUTE
IDATTRIBUTE
IMAGESRCATTR
DATATEXTATTR
DATATYPEATTR
PAGEIMAGEATTR
PENALPHAATTR
PENREDATTR
PENGREENATTR
PENBLUEATTR
FILLALPHAATTR
FILLREDATTR
FILLGREENATTR
FILLBLUEATTR
FONTNAMEATTR
FONTSIZEATTR
FONTSTYLEATTR
TITLEATTR
CSSCLASSATTR
CSSCLASSOVERRIDEATTR
ANCHORATTR
LINKATTR
XSLTPROCESSORUSERM
HTML Listener
APPNAME
HADERROR7
FRXRecno
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.CSSClass.OverrideFRX
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.CSSClass.ExtendFRX
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.Link
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.Alt-Title
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.Anchor
TONODE
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
TNOBJECTCONTINUATIONTYPE
LCVAL
LIRECNO
SETFRXDATASESSION
MEMBERDATAALIAS
FRXRECNO
EXECWHEN
DECLASS
EVALUATEUSEREXPRESSION
EXECUTE
SETATTRIBUTE
CSSCLASSOVERRIDEATTR
CSSCLASSATTR
LINKATTR
PATHENCODE
TITLEATTR
ANCHORATTR
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.PrintablePageLink
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.TextAreasOff
useTextAreaForStretchingText
useTextAreaForStretchingText
useTextAreaForStretchingText
OLDPAGEIMAGETYPE
XMLMODE
LLSETTING
LISELECT
SETFRXDATASESSION
MEMBERDATAALIAS
EXECWHEN
EVALUATESTRINGTOBOOLEAN
EXECUTE
PAGEIMAGETYPE
LISTENERTYPE
SUPPORTSPAGEIMAGES!
MAKEEXTERNALFILELOCATIONREACHABLE
ISSUCCESSOR
COMMANDCLAUSES
NOPAGEEJECT
XSLTPARAMETERS
GETKEY
OLDTEXTAREASETTING
ADJUSTXSLTPARAMETER
RESETDATASESSION
TLCALLEDEARLY
OLDPAGEIMAGETYPE
PAGEIMAGETYPE
RESETDATASESSION
LOBJTYPEMODE
LLSAVED
TARGETFILENAME
OFOXYPREVIEWER
LSAVED
LOPENVIEWER
SHELLEXECh
useTextAreaForStretchingText
OLDTEXTAREASETTING
ADJUSTXSLTPARAMETER
UPDATEPROPERTIES
getdefaultuserxsltasstring,
cssclassattr_assign
anchorattr_assign:
titleattr_assign
linkattr_assign
cssclassoverrideattr_assignS
urlstringencode
pathencode
updateproperties
fillruncollector
getrawformattinginfo
getdefaultuserxslt
setdomformattinginfo
BeforeReport
AfterReport
applyusertransformtooutput
LoadReport!
TCNODE
TLOPEN
TCIDREF
TVFORMATTING
LCNODE
IDATTRIBUTE
IDREFATTRIBUTE
TCNODE
TCVALUE
TVIDREF
TVFORMATTING
LCVALUE
LCNODE
XMLRAWCONV
XMLRAWTAGD
m.lcValue = STRTRAN(m.tcValue, '&', '&' )
m.lcValue = STRTRAN(m.lcValue, '<', '<' )
m.lcValue = STRTRAN(m.lcValue, '>', '>' )
m.lcValue = STRTRAN(m.lcValue, '"', '"' )
m.lcValue = STRTRAN(m.lcValue, ['], ''' )
TCVALUE
LCVALUE
LICHAR
TCCONTENTS
TARGETHANDLEX
VNEWVAL
THIS
ISRUNNING
INCLUDEBREAKSINDATAb
VNEWVAL
THIS
ISRUNNING
XMLMODE
INCLUDEPAGE
ISRUNNING
DATANODES
PAGENODES
COLUMNNODES
CURRENTBAND
CURRENTPAGE
CURRENTCOLUMN
EVALUATECONTENTSVALUES
SUCCESSORGFXNORENDER
CLEARSTATUS
Msxml2.FreeThreadedDOMDocument.4.0
|DOCUMENT|
|ELEMENT|
COLLECTION
externalFileLocation
TVSOURCE
TVPROCESSOR
TVPARAMCOLLECTION
TVFRXALIAS
LOSOURCE
LOPROCESSOR
LCRETURN
LLSUCCESS
LIPARAM
LISESSION
LLCHARSETSINUSE
FRXCHARSETSINUSE
FIXMSXMLOBJECTFORDTDS
LOADXML
PARSEERROR
REASON
NODETYPESTRING
LOADPROCESSOROBJECT
CREATEPROCESSOR
STYLESHEET
BASECLASS
COUNT
ADDPARAMETER
GETKEY
EXTERNALFILELOCATION
INPUT
TRANSFORM
OUTPUT
VNEWVAL
CURRENTDOCUMENTE
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
IDATTRIBUTEE
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
IDREFATTRIBUTE
VNEWVAL
XSLTPROCESSORRDL
STYLESHEET
LOPROCESSOR
LOADPROCESSOROBJECT
VNEWVAL
XSLTPROCESSORUSER
STYLESHEET
LOPROCESSOR
LOADPROCESSOROBJECTf
QuietMode
RESETREPORT
CLOSETARGETFILE
NOPAGEEJECT
HADERROR
RESETTODEFAULT
CURRENTDOCUMENT?
TCNAME
LLVALID
LICHAR
LCCHAR9
VNEWVAL
THIS
INCLUDEFORMATTINGINLAYOUTOBJECTSD
VNEWVAL
THIS
ISRUNNING
INCLUDEBANDSWITHNOOBJECTS
Nodes
Nodes
LISELECT
LLSUCCESS
NODES
OBJTYPE
VERIFYNCNAME
OBJVALUE
VNEWVAL
THIS
ISRUNNING
NOPAGEEJECT
DATASESSIONv
Msxml2.XSLTemplate.4.0
Msxml2.FreeThreadedDOMDocument.4.0
TCVAL
LORETURN
LOPROCESSOR
LOSTYLESHEET
LISESSION
RESETDATASESSION
FIXMSXMLOBJECTFORDTDS
LOADXML
PARSEERROR
REASON
STYLESHEET
FRXRecno
FRXRecno
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.PrintablePageLink
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
TNOBJECTCONTINUATIONTYPE
LCINFO
CONTATTR
INCLUDEFORMATTINGINLAYOUTOBJECTS
LEFTATTR
TOPATTR
WIDTHATTR
HEIGHTATTR
SETFRXDATASESSION
LLPAGEIMAGES
CURRENTPAGEIMAGEFILENAME
MEMBERDATAALIAS
INCLUDEDATATYPEATTRIBUTES
FORMATTINGCHANGES
DTEXT
DATATYPEATTR
DTYPE
DATATEXTATTR
XMLRAWCONV
FRXRECNO
EXECWHEN
EVALUATESTRINGTOBOOLEAN
EXECUTE
PAGEIMAGEATTR
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
TOPATTRE
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
LEFTATTRE
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
HEIGHTATTRE
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
WIDTHATTRE
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
CONTATTRJ
DATASESSIONv
VFPDataSource
ORDERv
 DESCC
FILTERv
SKIPv
VFPDataSource
SELECT &lcResult  FROM (m.lcAlias)  LEFT JOIN Bands ON &lcAlias..UniqueID = Bands.UniqueID  LEFT JOIN Objects ON &lcAlias..UniqueID = Objects.UniqueID  WHERE Platform = "WINDOWS" AND NOT DELETED()  INTO CURSOR VFPFRXLayoutObject READWRITE
VFPFRXLayoutObject.Tagb
VFPFRXLayoutObject.Tag2b
VFPFRXLayoutObject.Fontfaceb
Nodes
VFPFRXLayoutNode
attrC
VFPFRXLayoutNode
THIS.C
 attribute nodename
XMLAdapter
VFPFRXLayoutObject
VFPFRXLayoutNode
VFPFRXMemberData
VFPDataSource
lcResult
Microsoft.XMLDOM
VFPFRXCommand
THIS.CommandClauses.C
false
OutputTypeC
appName
targetFileName
VFPFRXPrintJob
pagewidth
pageheight
pagedesignC
whole
printable6
printresolutionCC
PRINTER
printresolution
TCNODENAME
TLASSTRING
LISELECTCURRENT
LISELECTFRX
LISESSION
LIFLDS
LIDBFS
LIINDEX1
LIINDEX2
LAFLDS
LADBFS
LARELS
LCALIAS
LCKEY
LLDESC
LCFILTER
LCREL
LIRELS
LCSKIP
LCRESULT
LLWHOLEPAGE
ONODE
OCOMMAND
SETFRXDATASESSION
INCLUDEDATASOURCESINVFPRDL
VFPDATASOURCE
THE_ALIAS
RPT_DRIVER
THE_DBF
THE_ORDER
ORDER_DESC
THE_FILTER
THE_SKIP
FLDS
THE_FIELD
THE_TYPE
THE_PARENT
THE_TARGET
THE_EXPR
SETCURRENTDATASESSION
LIINDEX
LCDBF
LITAG
DRIVINGALIAS
PREPAREFRXCOPY
GETFRXLAYOUTOBJECTFIELDLIST
REMOVEFRXCOPY
VFPFRXLAYOUTOBJECT
OBJTYPE
FONTFACE
NODES
OBJVALUE
OBJCODE
OBJINFO
VFPFRXLAYOUTNODE
RESPECTCURSORCP
ADDTABLESCHEMA
MEMBERDATAALIAS
RESPECTNESTING
XMLSCHEMALOCATION
TOXML
RESETDATASESSION
LOADXML
SELECTSINGLENODE
COMMANDCLAUSES
CREATEELEMENT
SETATTRIBUTE
OUTPUTTYPE
APPNAME
TARGETFILENAME
APPENDCHILD
SHAREDPAGEWIDTH
SHAREDPAGEHEIGHT
PRINTJOBNAME
VNEWVAL
INCLUDEDATASOURCESINVFPRDL
TOBJTYPE
TNAME
TPICTURE
TOFFSET
TPATHED
LCRETURN
LCFILE
COMMANDCLAUSES
APPLYUSERTRANSFORM
XSLTPROCESSORUSER
APPLYRDLTRANSFORM
LVPROCESSOR
XMLMODE
XSLTPROCESSORRDL
SAVETARGETFILENAME
APPLYXSLT
TARGETFILENAME
XSLTPARAMETERSr
VNEWVAL
THIS
ISRUNNING
APPLYUSERTRANSFORM
XSLTPROCESSORUSER
GETDEFAULTUSERXSLT
FRXRecno
FRXRecno
Microsoft.VFP.Reporting.Builder.AdvancedProperty
HTML.PrintablePageLink
TONODE
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
TNOBJECTCONTINUATIONTYPE
SETATTRIBUTE
CONTATTR
INCLUDEFORMATTINGINLAYOUTOBJECTS
LEFTATTR
TOPATTR
WIDTHATTR
HEIGHTATTR
LLPAGEIMAGES
SETFRXDATASESSION
CURRENTPAGEIMAGEFILENAME
MEMBERDATAALIAS
INCLUDEDATATYPEATTRIBUTES
FORMATTINGCHANGES
DTEXT
DATATYPEATTR
DTYPE
DATATEXTATTR
FRXRECNO
EXECWHEN
EXECUTE
PAGEIMAGEATTR
APPLYUSERTRANSFORM
XSLTPROCESSORUSER2
Title
Title Band nodename
Page Header Band nodename
Column Header Band nodename
Group Header Band nodename
Detail Band nodename
Group Footer Band nodename
Column Footer Band nodename
Page Footer Band nodename
Summary
Summary Band nodename
Detail Header Band nodename
Detail Footer Band nodename
VFP-Report
Report root nodename
Text object nodename
Expression object nodename
Picture object nodename
Shape object nodename
Line object nodename
Variable nodename
FontRes
FontResource nodename
DataEnv
DataEnvironment nodename
DE-Cursor
DE-Cursor nodename
DE-Relation
DE-Relation nodename
Group
Group selector nodename
Reports
XML Document root nodename
Report scope data root nodename
VFP-RDL
RDL layout description root nodename
Pages
Pages collection root nodename
Columns
Column collection root nodename
Run property set root nodename
OBJTYPE
COLLECTION
VNEWVAL
XSLTPARAMETERS
BASECLASS
RECNO() AS FrxRecno,
.PLATFORM,
.NAME,
.EXPR,
.OFFSET,
.VPOS,
.HPOS,
.HEIGHT,
.OBJTYPE,
.TAG,
.TAG2,
.PENSIZE,
.PENPAT,
.FILLPAT,
.WIDTH,
.STYLE,
.PICTURE,
.ORDER,
.COMMENT,
.FILLCHAR,
.PENRED,
.PENGREEN,
.PENBLUE,
.FILLRED,
.FILLGREEN,
.FILLBLUE,
.FONTFACE,
.FONTSTYLE,
.FONTSIZE,
.MODE,
.FLOAT,
.STRETCH,
.STRETCHTOP,
BITTEST(
.FONTSTYLE, 0 ) AS FontBold,
BITTEST(
.FONTSTYLE, 1 ) AS FontItalic,
BITTEST(
.FONTSTYLE, 3 ) AS FontUnderline,
BITTEST(
.FONTSTYLE, 7 ) AS FontStrikeThrough,
THIS.GetPathedImageInfo(
.ObjType,
.Name,
.Picture,
.Offset) AS UnpathedImg,
THIS.GetPathedImageInfo(
.ObjType,
.Name,
.Picture,
.Offset, .T.) AS PathedImg,
.TOP,
.BOTTOM,
.NOREPEAT,
.PAGEBREAK,
.COLBREAK,
.RESETPAGE,
.GENERAL,
.SPACING,
.SWAPHEADER,
.SWAPFOOTER,
.EJECTBEFOR,
.EJECTAFTER,
.TOTALTYPE,
.RESETTOTAL,
.DOUBLE,
.RESOID,1) AS FONTCHARSET,
.SUPALWAYS,
.SUPOVFLOW,
.SUPRPCOL,
.SUPGROUP,
.SUPVALCHNG,
.SUPEXPR,
.USER,
OBJECTS.UniqueID AS ObjID, OBJECTS.ObjName, Objects.Locale_ID,
OBJECTS.START_BAND_ID,OBJECTS.BAND_OFFSET,OBJECTS.END_BAND_ID,
BANDS.UNIQUEID AS BandID,BANDS.OBJCODE AS BandType,Bands.BANDLABEL,Bands.START,
Bands.STOP,Bands.BAND_SEQ,Bands.REL_BAND_ID, (
.ObjType=9 AND (NOT
.Plain)) AS BandStretch
TCALIAS
LCALIAS
LCFILE
COMMANDCLAUSES
PREPAREFRXSWAPCOPY
TARGETFILENAME
TCALIAS
LCFILE
REMOVEFRXSWAPCOPYD
DATASESSIONv
Collection
TVVALUE
TSKEY
TLREMOVEONLY
LIINDEX
LISESSION
XSLTPARAMETERS
RESETDATASESSION
COUNT
GETKEY
REMOVE
Nodes
FrxNodes
XXXX6
DATASESSIONv
Microsoft.XMLDOM
PCCO_
THIS.runCollector.Baseclassb
THIS.runCollector.C
COLLECTION
THIS.runCollector[C
TLASSTRING
LCITEM
LVVALUE
LISESSION
SETFRXDATASESSION
NODES
OBJVALUE
RESETDATASESSION
LOADXML
SETCURRENTDATASESSION
RUNCOLLECTOR
LCFIELD1
LCFIELD2
LIINDEX
LISELECT
ADDRUNNODE
LAMEMBERS
BASECLASS
COUNT
GETKEY
DOCUMENTELEMENT
property
m.vValue.XMLb
TVVALUEEXPR
TCPROPERTYNAME
ONODE
VVALUE
CREATEELEMENT
SETATTRIBUTE
EVALUATEUSEREXPRESSION
APPENDCHILD
DOCUMENTELEMENT9
TVNEWVAL
INCLUDEDATATYPEATTRIBUTESE
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
DATATYPEATTRE
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
DATATEXTATTR]
FORMATTINGCHANGES
INCLUDEDATATYPEATTRIBUTES
FRXRECNO
DTEXT
DTYPER
TVALC
VNEWVAL
THIS
ISRUNNING
VERIFYNCNAME
PAGEIMAGEATTR0
TCVAL"
XMLMODE
XSLTPROCESSORRDL
ProhibitDTD-
TOXML
VALIDATEONPARSE
RESOLVEEXTERNALS
SETPROPERTY
DATASESSIONv
TCALIAS
LISESSION
LISELECT
LITALLY
LIREC
LCALIAS
LLSWITCHSESSIONS
FRXDATASESSION
SETFRXDATASESSION
OBJTYPE
DOUBLE
RESOIDE
CALLEVALUATECONTENTS
INCLUDEDATATYPEATTRIBUTES
XMLMODE
LLRESETQUIETMODE
HADERROR
QUIETMODE
APPLYUSERTRANSFORM
APPLYRDLTRANSFORM$
Nodes
FrxNodes
XXXX6
NBANDOBJCODE
NFRXRECNO
INVOKEONCURRENTPASS
TARGETHANDLE
LCBAND
LONODE
LCIDREF
LLFORMATBREAKBAND
LOOBJECTS
LLOMITBAND
SETFRXDATASESSION
NODES
OBJVALUE
INCLUDEBANDSWITHNOOBJECTS
FRXCURSOR
GETOBJECTSINBAND
UNIQUEID
FRXDATASESSION
COUNT
SETCURRENTDATASESSION
INCLUDEBREAKSINDATA
CURRENTBAND
XMLRAWTAG
WRITERAW
CURRENTPAGE
PAGENODES
CURRENTCOLUMN
COLUMNNODES
RESETDATASESSION
INCLUDEPAGEf
RESETDOCUMENT
COLUMNNODES
CURRENTBAND
CURRENTCOLUMN
CURRENTDOCUMENT
CURRENTPAGE
DATANODES
PAGENODES
XSLTPROCESSORRDL
XSLTPROCESSORUSER
XSLTPARAMETERS
SAFETYv
TCDBF
TLOVERWRITE
HADERROR
LISELECT
LLSAFETYON
OBJTYPE
OBJCODE
FRXNODES
INSERTXMLCONFIGRECORDS
XML Listener
READCONFIGURATION
APPNAME
RESETDOCUMENT
APPLYUSERTRANSFORM
GETDEFAULTUSERXSLT
HADERRORC
Nodes
FrxNodes
XXXX6
Nodes
FrxNodes
XXXX6
Nodes
FrxNodes
XXXX6
Nodes
ObjType
XXXX6
TLCALLEDEARLY
SETFRXDATASESSION
TARGETHANDLE
HADERROR
FILLRUNCOLLECTOR
LCNODE
XMLMODE
CURRENTBAND
XMLRAWTAG
WRITERAW
INCLUDEBREAKSINDATA
PAGENODES
NODES
OBJVALUE
COLUMNNODES
GETRUNNODECONTENTS
NOPAGEEJECT
COMMANDCLAUSES
CURRENTDOCUMENT
RUNCOLLECTORRESETLEVEL
RESETRUNCOLLECTOR
RESETREPORT
RESETDOCUMENT
APPLYUSERTRANSFORM
APPLYRDLTRANSFORM
APPLYUSERTRANSFORMTOOUTPUT
RESETDATASESSIONo
NERROR
CMETHOD
NLINE
CLOSETARGETFILE
ISRUNNING
QUIETMODE
CANCELREPORTh
RENDER
Nodes
ObjType
XXXX6
XXXXa
NFRXRECNO
NLEFT
NWIDTH
NHEIGHT
NOBJECTCONTINUATIONTYPE
CCONTENTSTOBERENDERED
GDIPLUSIMAGE
SUCCESSORGFXNORENDER
APPLYFX
INVOKEONCURRENTPASS
TARGETHANDLE
LCNODE
LONODE
LCFORMATTINGINFO
LCCONTENTS
LLTEXTTYPE
LOBANDREF
LIBANDRECNO
SETFRXDATASESSION
OBJTYPE
INCLUDEBREAKSINDATA
CURRENTPAGE
CURRENTCOLUMN
NODES
OBJVALUE
GETRAWFORMATTINGINFO
XMLRAWNODE
CURRENTBAND
FRXCURSOR
GETBANDFOR
UNIQUEID
FRXDATASESSION
XMLRAWTAG
SHAREDPAGENO
PAGENO
SETCURRENTDATASESSION
BEFOREBAND
WRITERAW
RESETDATASESSIONN
Nodes
FrxNodes
XXXX6
NBANDOBJCODE
NFRXRECNO
TLCONTINUEDBAND
INCLUDEPAGE
INCLUDEPAGEINOUTPUT
INVOKEONCURRENTPASS
TARGETHANDLE
LCBAND
LONODE
LCIDREF
LLFORMATBREAKBAND
LCINTERRUPTEDBAND
LLOMITBAND
LOOBJECTS
SETFRXDATASESSION
INCLUDEBANDSWITHNOOBJECTS
FRXCURSOR
GETOBJECTSINBAND
UNIQUEID
FRXDATASESSION
COUNT
NODES
OBJVALUE
SETCURRENTDATASESSION
SHAREDPAGENO
PAGENO
INCLUDEBREAKSINDATA
CURRENTBAND
WRITERAW
XMLRAWTAG
CURRENTPAGE
CURRENTCOLUMN
RESETDATASESSION
SaveTargetFileName
Nodes
_ReportOutputConfig
OBJECTS-a
UniqueID
UniqueID
Nodes
FrxNodes
XXXX6
Nodes
ObjType
XXXX6
Nodes
FrxNodes
XXXX6
Nodes
FrxNodes
XXXX6
Nodes
FrxNodes
XXXX6
Nodes
FrxNodes
XXXX6
WINDOWS
Required FRX cursor is not available.
Required FRX cursor is not available.
HADERROR
SETFRXDATASESSION
ISSUCCESSOR
SUCCESSORGFXNORENDER!
CHECKCOLLECTIONFORSPECIFIEDMEMBER
GFXNORENDERCLASS
GFXNORENDERCLASSLIB
LISELECT
LCDOCUMENT
LCREPORT
LCRDL
LCPAGE
LCCOL
LCDATA
LONODE
LOPARENT
TARGETHANDLE
APPLYUSERTRANSFORM
APPLYRDLTRANSFORM
VERIFYTARGETFILE
TARGETFILENAME
TARGETFILEEXT
ADDPROPERTY
OPENTARGETFILE
CONFIGURATIONTABLE
NODES
VERIFYNODENAMES
VERIFYATTRIBUTENAMES
INCLUDEBANDSWITHNOOBJECTS
XMLMODE
LOADFRXCURSOR
FRXCURSOR
CREATEOBJECTCURSOR
FRXDATASESSION
BANDS
UNIQUEID
OBJECTS
ISRUNNING
OBJVALUE
INCLUDEBREAKSINDATA
CURRENTDOCUMENT
WRITERAW
XMLRAWTAG
XMLRAWCONV
COMMANDCLAUSES
GETVFPRDLCONTENTS
PAGENODES
COLUMNNODES
AFTERREPORT!
INITIALIZEFORMATTINGCHANGESCURSOR
FORMATTINGCHANGES
PLATFORM
OBJTYPE
FRXRECNO
DOMESSAGE
LASTERRORMESSAGE
RESETDATASESSION;
INCLUDEPAGE
XMLMODE
TWOPASSPROCESS
CURRENTPASS
OBJTYPE
OBJTYPE
FRXNODES
OBJTYPE+OBJCODE+IIF(OBJTYPE=C
9999999_
9999999_
SAFETYv
FIXEDv
INDEX ON &lcIndex TAG &lcTag
At least one required index tag is missing C
from the configuration table.
At least one required index tag is missing C
from the configuration table.
ObjType
TCALIAS
LLRETURN
LAREQUIRED
LIINDEX
LISELECT
LITAG
LCTAG
LCINDEX
LLSAFETYON
LLFIXEDON
LCMESSAGE
THIS
DOMESSAGE
LASTERRORMESSAGE
INSERTXMLCONFIGRECORDST
VNEWVAL
THIS.CommandClauses.Fileb
THIS.CommandClauses.NoPageEjectb
NoPageEject-
COMMANDCLAUSES
FRXRecno
FRXRecno
NFRXRECNO
OOBJPROPERTIES
INVOKEONCURRENTPASS
TARGETHANDLE
SETFRXDATASESSION
FORMATTINGCHANGES
EVALUATECONTENTSVALUES
FRXRECNO
INCLUDEDATATYPEATTRIBUTES
VALUE
DTYPE
DTEXT
FORMATDATAVALUE
RESETDATASESSION
RUNCOLLECTOR
DATASESSIONv
Collection
Microsoft.XMLDOM
Microsoft.XMLDOM
/VFPData/reportdata
[@name='
' and @execwhen='
']/@execute
Microsoft.VFP.Reporting.Builder.AdvancedProperty
RUNCOLLECTOR
LISESSION
RESETDATASESSION
SETFRXDATASESSION
MEMBERDATAALIAS
LVVALUE
LCEXPR
LISELECT
LOXML
LOXMLTEMP
FRXHEADERRECNO
LOADXML
STYLE
FRXRECNO
EXECUTE
EXECWHEN
DECLASS
EVALUATEUSEREXPRESSION
SELECTSINGLENODE
DOCUMENTELEMENT
GETKEY
TVNEWVAL
RUNCOLLECTORRESETLEVEL
xmlrawtag,
xmlrawnode
xmlrawconv~
writeraw
includebreaksindata_assign#
xmlmode_assign
resetreport7
applyxslt|
currentdocument_assign
idattribute_assign1
idrefattribute_assign
xsltprocessorrdl_assign0
xsltprocessoruser_assign
resetdocument
verifyncname
includeformattinginlayoutobjects_assign
includebandswithnoobjects_assignk
verifynodenames
verifyattributenames
nopageeject_assign
loadprocessorobject
getrawformattinginfo
topattr_assign
leftattr_assign
heightattr_assign
widthattr_assign
contattr_assign
getvfprdlcontentsy
includedatasourcesinvfprdl_assign
getpathedimageinfo54
applyusertransformtooutput
applyusertransform_assignM9
getdefaultuserxslt
setdomformattinginfo
synchxsltprocessoruser
insertxmlconfigrecords
xsltparameters_assignPG
getfrxlayoutobjectfieldlist9H
preparefrxcopy
removefrxcopy
adjustxsltparameterMQ
getrunnodecontents
addrunnode
includedatatypeattributes_assign'[
datatypeattr_assign
datatextattr_assign
initializeformattingchangescursor
formatdatavalue:]
pageimageattr_assign
evaluatestringtoboolean
applyrdltransform_accessO^
fixmsxmlobjectfordtds
frxcharsetsinuseU_
resetcallevaluatecontents
closetargetfile`b
setfrxdatasessionenvironmentEc
opentargetfilemc
AfterBand}c
Destroy
createconfigtable    j
Initpk
AfterReportal
ErrorIr
Render
BeforeBand
BeforeReport
invokeoncurrentpass5
verifyconfigtable
targetfileext_assign
setfrxrunstartupconditionsi
EvaluateContents-
resetruncollector
fillruncollector
runcollectorresetlevel_assign
^5PROCEDURE createtherm
#define CTLCOLOR_MSGBOX             0
#define CTLCOLOR_EDIT               1
#define CTLCOLOR_LISTBOX            2
#define CTLCOLOR_BTN                3
#define CTLCOLOR_DLG                4
#define CTLCOLOR_SCROLLBAR          5
#define CTLCOLOR_STATIC             6
#define CTLCOLOR_MAX                7
#define COLOR_SCROLLBAR             0
#define COLOR_BACKGROUND            1
#define COLOR_ACTIVECAPTION         2
#define COLOR_INACTIVECAPTION       3
#define COLOR_MENU                  4
#define COLOR_WINDOW                5
#define COLOR_WINDOWFRAME           6
#define COLOR_MENUTEXT              7
#define COLOR_WINDOWTEXT            8
#define COLOR_CAPTIONTEXT           9
#define COLOR_ACTIVEBORDER         10
#define COLOR_INACTIVEBORDER       11
#define COLOR_APPWORKSPACE         12
#define COLOR_HIGHLIGHT            13
#define COLOR_HIGHLIGHTTEXT        14
#define COLOR_BTNFACE              15
#define COLOR_BTNSHADOW            16
#define COLOR_GRAYTEXT             17
#define COLOR_BTNTEXT              18
#define COLOR_INACTIVECAPTIONTEXT  19
#define COLOR_BTNHIGHLIGHT         20
#if("4" $ OS())
#define COLOR_3DDKSHADOW           21
#define COLOR_3DLIGHT              22
#define COLOR_INFOTEXT             23
#define COLOR_INFOBK               24
#define COLOR_DESKTOP           COLOR_BACKGROUND
#define COLOR_3DFACE            COLOR_BTNFACE
#define COLOR_3DSHADOW          COLOR_BTNSHADOW
#define COLOR_3DHIGHLIGHT       COLOR_BTNHIGHLIGHT
#define COLOR_3DHILIGHT         COLOR_BTNHIGHLIGHT
#define COLOR_BTNHILIGHT        COLOR_BTNHIGHLIGHT
#endif
IF ISNULL(THIS.ThermForm)
  DECLARE INTEGER GetSysColor IN Win32API INTEGER
  LOCAL m.liThermTop, m.liThermLeft, m.liThermWidth, m.liThermHeight, m.liSession
  m.liSession = SET("DATASESSION")
  THIS.resetDataSession()
  THIS.ThermForm = CREATEOBJECT("FORM")
  WITH THIS.ThermForm
     .ScaleMode = SCALEMODE_PIXELS
     .Height = THIS.ThermFormHeight
     .HalfHeightCaption = .T.
     .Width = THIS.ThermFormWidth
     .AutoCenter = .T.
     .BorderStyle = BORDER_DOUBLE  && fixed dialog
     .ControlBox = .F.
     .Closable = (NOT THIS.IsRunning)
     .MaxButton = .F.
     .MinButton = .F.
     .Movable = (NOT THIS.IsRunning)
     .AlwaysOnTop = .T.
     .AllowOutput = .F.
     .AddObject("ThermBack","shape")
     .AddObject("ThermLabel","label")
     .AddObject("ThermShape","shape")
     m.liThermHeight = .Height - (THIS.ThermMargin* 2)
     m.liThermWidth =  .Width - (THIS.ThermMargin*2)
  ENDWITH
  THIS.setCurrentDataSession()
  THIS.SetThermFormCaption()
  m.liThermTop = THIS.ThermMargin
  m.liThermLeft = THIS.ThermMargin
  WITH THIS.ThermForm.ThermBack
     .Top = m.liThermTop
     .Left = m.liThermLeft
     .Height = m.liThermHeight
     .Width = m.liThermWidth
     .Visible = .T.
     .BorderStyle = BORDER_SINGLE
     .BackStyle = 0
  ENDWITH
  WITH THIS.ThermForm.ThermLabel
     .Top = (.Parent.Height - .Height) /2
     .Autosize = .T.
     .BackStyle = FILLSTYLE_SOLID
     .Caption = ""
     .Visible = .T.
     .ForeColor = GetSysColor( COLOR_MENUTEXT )
  ENDWITH
  WITH THIS.ThermForm.ThermShape
     .Top = m.liThermTop +1
     .Left = m.liThermLeft+1
     .Height = m.liThermHeight -2
     .Width = 0
     .Visible = .T.
     .BorderStyle = BORDER_NONE
     .BackStyle = FILLSTYLE_SOLID
     .FillStyle = FILLSTYLE_SOLID
     .BackColor = .Parent.BackColor
     .FillColor = GetSysColor(COLOR_HIGHLIGHT)
     .DrawMode = DRAWMODE_MERGE_PEN_NOT
  ENDWITH
  SET DATASESSION TO (m.liSession)
ENDIF
RETURN NOT ISNULL(THIS.ThermForm)
ENDPROC
PROCEDURE secondstext_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.SecondsText = m.vNewVal
ENDIF
ENDPROC
PROCEDURE thermformcaption_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.ThermFormCaption = m.vNewVal
   THIS.SetThermFormCaption()
ENDIF
ENDPROC
PROCEDURE thermformheight_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND VARTYPE(m.vNewVal) = "N" AND ;
   BETWEEN(m.vNewVal,30,SYSMETRIC(SYSMETRIC_SCREENHEIGHT )-30)  AND ;
   INT(m.vNewVal) # THIS.ThermFormHeight
   THIS.thermformheight = INT(m.vNewVal)
   IF THIS.ThermMargin > THIS.ThermFormHeight/4
      THIS.ThermMargin = THIS.ThermFormHeight/4
   ENDIF
   THIS.thermForm = NULL
ENDIF
ENDPROC
PROCEDURE thermformwidth_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND VARTYPE(m.vNewVal) = "N" AND ;
   BETWEEN(m.vNewVal,100,SYSMETRIC( SYSMETRIC_SCREENWIDTH  )-100) AND ;
   INT(m.vNewVal) # THIS.ThermFormWidth
   THIS.thermformwidth = INT(m.vNewVal)
   IF THIS.ThermMargin > THIS.ThermFormWidth/4
      THIS.ThermMargin = THIS.ThermFormWidth/4
   ENDIF
   THIS.ThermForm = NULL
ENDIF
ENDPROC
PROCEDURE thermmargin_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND VARTYPE(m.vNewVal) = "N" AND ;
   BETWEEN(m.vNewVal,1,MIN(THIS.ThermFormHeight/4,THIS.ThermFormWidth/4)) AND ;
   INT(m.vNewVal) # THIS.ThermMargin
   THIS.thermmargin = INT(m.vNewVal)
   THIS.thermForm = NULL
ENDIF
ENDPROC
PROCEDURE includeseconds_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L"
   THIS.includeseconds = m.vNewVal
ENDIF
ENDPROC
PROCEDURE getparentwindowref
LOCAL m.loForm, m.loTopForm, m.lcInWindow
* first top form in the list
* will be the current top form.
ASSERT TYPE("_SCREEN.ActiveForm") # "O"  OR ;
       INLIST(_SCREEN.ActiveForm.ShowWindow, 0,1,2)
m.loTopForm = NULL
IF TYPE("THIS.CommandClauses.InWindow") = "C"
   m.lcInWindow = UPPER(ALLTRIM(THIS.CommandClauses.InWindow))
ENDIF
IF EMPTY(lcInWindow) AND TYPE("THIS.CommandClauses.Window") = "C"
   m.lcInWindow = UPPER(ALLTRIM(THIS.CommandClauses.Window))
ENDIF
IF NOT EMPTY(m.lcInWindow)
     FOR EACH m.loForm IN _SCREEN.Forms  FOXOBJECT
        IF m.loForm.ShowWindow = 2  AND ;
           UPPER(m.loForm.Name) == m.lcInWindow
           m.loTopForm = m.loForm
           EXIT
        ENDIF
     ENDFOR

ENDIF
DO CASE
CASE VARTYPE(m.loTopForm) = "O"
    * already found
CASE _SCREEN.FormCount = 0 OR ;
     (TYPE("_SCREEN.ActiveForm") = "O" AND ;
     _SCREEN.ActiveForm.ShowWindow = 0 )     && ShowWindow In Screen

     m.loTopForm = _SCREEN
CASE (TYPE("_SCREEN.ActiveForm") = "O" AND ;
      _SCREEN.ActiveForm.ShowWindow = 2 )    && ShowWindow As Top Form
     m.loTopForm = _SCREEN.ActiveForm

OTHERWISE

     FOR EACH m.loForm IN _SCREEN.Forms  FOXOBJECT
        IF m.loForm.ShowWindow = 2
           m.loTopForm = m.loForm
           EXIT
        ENDIF
     ENDFOR

     IF VARTYPE(m.loTopForm) # "O"
        m.loTopForm = _SCREEN
     ENDIF

ENDCASE
IF VARTYPE(m.loTopForm) # "O" OR ;
   EMPTY(m.loTopForm.Name)
   m.loTopForm = NULL
ENDIF
RETURN m.loTopForm
ENDPROC
PROCEDURE setthermformcaption
IF NOT ISNULL(THIS.ThermForm)
   IF EMPTY(THIS.ThermFormCaption)

      IF TYPE("THIS.CommandClauses.File") = "C"
         LOCAL m.cName
         IF EMPTY(THIS.PrintJobName)
            m.cName = PROPER(JUSTFNAME(THIS.CommandClauses.File))
         ELSE
            m.cName = THIS.PrintJobName
         ENDIF
         THIS.ThermForm.Caption = ;
            m.cName + ": " + OUTPUTCLASS_CANCEL_INSTRUCTIONS_LOC
      ELSE
         THIS.ThermForm.Caption = ""
      ENDIF
   ELSE
      THIS.ThermForm.Caption = THIS.ThermFormCaption
   ENDIF
ENDIF
ENDPROC
PROCEDURE thermcaption_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   LOCAL m.lcType, m.cMessage
   m.cMessage = ""
   TRY
    m.lcType = VARTYPE(EVALUATE(m.vNewVal))
      IF m.lcType = "C"
        THIS.ThermCaption = m.vNewVal
    ENDIF
   CATCH
   ENDTRY
ENDIF
ENDPROC
PROCEDURE initstatustext_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.InitStatusText = m.vNewVal
ENDIF
ENDPROC
PROCEDURE prepassstatustext_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.PrepassStatusText = m.vNewVal
ENDIF
ENDPROC
PROCEDURE runstatustext_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.RunStatusText = m.vNewVal
ENDIF
ENDPROC
PROCEDURE resetuserfeedback
LPARAMETERS m.tlResetTimes
THIS.CurrentRecord = 0
THIS.PercentDone = 0
IF m.tlResetTimes
   THIS.ReportStartRunDateTime= DATETIME()
   THIS.ReportStopRunDateTime= DTOT({})
ENDIF
ENDPROC
PROCEDURE getreportscopedriver
LOCAL m.liSelect, m.lcAlias, ;
      m.liSkips,  laSkips[1]
THIS.designatedDriver = THIS.drivingAlias
* used later if we have to cancel report as
* a Successor
THIS.setFRXDataSession()
IF USED("frx")
   m.liSelect = SELECT(0)
   m.lcAlias = ""
   SELECT FRX
   * first look for any target alias that
   * is the same as the driver
   SCAN ALL FOR ObjType = FRX_OBJTYP_BAND AND ;
           Objcode = FRX_OBJCOD_DETAIL AND ;
           TYPE(Expr) = "C" AND ;
           NOT (EMPTY(Expr)  OR DELETED())
       m.lcAlias = ALLTRIM(Expr)
       THIS.setCurrentDataSession()
       m.lcAlias = UPPER(EVALUATE(m.lcAlias))
       THIS.setFRXDataSession()
       IF m.lcAlias == UPPER(THIS.drivingAlias)
          EXIT
       ENDIF
   ENDSCAN
   IF m.lcAlias == UPPER(THIS.drivingAlias)
      SELECT (m.liSelect)
      * if the driver is also a target alias,
      * don't touch.
      * otherwise:
   ELSE
      LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
              Objcode = FRX_OBJCOD_DETAIL AND ;
              Platform = FRX_PLATFORM_WINDOWS AND ;
              NOT (EMPTY(Expr) OR DELETED())
      IF FOUND()
         * use the first detail band, on the theory
         * that people are going to put pre-processing
         * calculations before other bands,
         * so an early band has the best chance to be
         * the right driver.
         m.lcAlias = ALLTRIM(Expr)
         THIS.setCurrentDataSession()
         THIS.drivingAlias = UPPER(EVALUATE(m.lcAlias))
         THIS.setFRXDataSession()
         SELECT (m.liSelect)
      ELSE
         * adjust the driver based on any
         * one to many relationships we can find.
         SELECT (m.liSelect)
         THIS.setCurrentDataSession()
         m.lcAlias = THIS.drivingAlias
         m.liSelect = SELECT(0)
         DO WHILE NOT EMPTY(m.lcAlias)
            SELECT (m.lcAlias)
            m.liSkips = ALINES(laSkips,SET("SKIP"),",")
            IF m.liSkips = 0 OR EMPTY(laSkips[1])
               THIS.drivingAlias = m.lcAlias
               m.lcAlias = ""
            ELSE
               m.lcAlias = laSkips[1]
               * it doesn't really matter how many lines there
               * are in the array; this is not going to be perfect
               * but we can't predict which child
               * has the most records.
            ENDIF
         ENDDO
         SELECT (m.liSelect)
      ENDIF
   ENDIF
   RETURN .F.
ENDIF
ENDPROC
PROCEDURE synchstatus
LPARAMETERS m.nBandObjCode, m.nFRXRecNo
IF THIS.isRunning AND (NOT THIS.hadError) AND ;
   THIS.frxBandRecno = m.nFRXRecNo
   THIS.setCurrentDataSession()
   IF THIS.drivingAliasCurrentRecno  # RECNO(THIS.drivingAlias)
      THIS.currentRecord = THIS.CurrentRecord + 1
      THIS.drivingAliasCurrentRecno = RECNO(THIS.drivingAlias)
   ENDIF
   IF THIS.currentRecord >= THIS.CommandClauses.RecordTotal
      IF THIS.CurrentPass = 0 AND THIS.TwoPassProcess
         THIS.resetUserFeedback()
      ELSE
         THIS.currentRecord = THIS.CommandClauses.RecordTotal
      ENDIF
   ENDIF
   THIS.UpdateStatus()
   THIS.resetDataSession()
ENDIF
ENDPROC
PROCEDURE thermprecision_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N"
   THIS.thermPrecision  = ABS(INT(m.vNewVal))
ENDIF
ENDPROC
PROCEDURE setfrxrunstartupconditions
DODEFAULT()
IF TYPE("THIS.CommandClauses.Summary") # "L"
   ADDPROPERTY(THIS.CommandClauses,"Summary",.F.)
ENDIF
IF TYPE("THIS.CommandClauses.RecordTotal") # "N"
   ADDPROPERTY(THIS.CommandClauses,"RecordTotal",0)
ENDIF
ENDPROC
PROCEDURE BeforeBand
LPARAMETERS m.nBandObjCode, m.nFRXRecNo
DODEFAULT(m.nBandObjCode, m.nFRXRecNo)
IF THIS.successorSys2024 = "Y" AND ;
   THIS.CurrentPass = LISTENER_FULLPASS
   * user cancelled during the prepass,
   * we need to re-cancel.
   THIS.setCurrentDataSession()
   IF USED(THIS.designatedDriver)
      GO BOTTOM IN (THIS.designatedDriver)
   ENDIF
ENDIF
THIS.synchStatus(m.nBandObjCode,m.nFRXRecNo)
THIS.resetDataSession()
ENDPROC
PROCEDURE UnloadReport
IF THIS.IsRunning
   THIS.IsRunning = .F.
   THIS.PopGlobalSets()
ENDIF
THIS.ReportStopRunDateTime = DATETIME()
THIS.ClearStatus()
THIS.ThermForm = NULL
DODEFAULT()
THIS.resetDataSession()
ENDPROC
PROCEDURE DoStatus
LPARAMETERS m.cMessage
LOCAL m.loParentForm, m.lcCaption, m.lcParentFormName
NODEFAULT
IF (NOT (THIS.QuietMode or ;
   (THIS.IsRunning AND THIS.CommandClauses.NoDialog)))
   IF EMPTY(m.cMessage) OR ISNULL(m.cMessage)
      m.cMessage = ""
   ENDIF
   m.lcCaption = EVALUATE(THIS.ThermCaption)
   IF ((NOT ISNULL(THIS.ThermForm)) OR (THIS.CreateTherm()) )
      WITH THIS.ThermForm

         IF THIS.IsRunning
            .Closable = .F.
            .Movable = .F.
         ENDIF

        .ThermShape.Width = MAX( (((THIS.PercentDone/100) * .ThermBack.Width)-2) ,0)

        IF NOT .Visible

           m.loParentForm = THIS.GetParentWindowRef()

           DO CASE
           CASE VARTYPE(m.loParentForm) # "O" AND (NOT _SCREEN.Visible)
              m.lcParentFormName = "MACDESKTOP"
           CASE VARTYPE(m.loParentForm) # "O"
              m.lcParentFormName = "SCREEN"
           CASE (NOT m.loParentForm.Visible) AND ;
              (m.loParentForm.DeskTop OR NOT EMPTY(m.loParentForm.MacDesktop) OR ;
              m.loParentForm.ShowWindow = 2 OR (NOT _SCREEN.Visible))
              * in many cases,
              * they've probably made a programming error,
              * the parent should be visible according to
              * the requirements of REPORT FORM ... IN WINDOW
              * if it's a WINDOW clause they
              * have no need to show it, might not be an error
              * Either way, they should see the therm
              * to know that the report is progressing
              m.lcParentFormName = "MACDESKTOP"
           CASE (NOT m.loParentForm.Visible)
              * same comment as above
              m.lcParentFormName = "SCREEN"
           OTHERWISE
              m.lcParentFormName = m.loParentForm.Name
           ENDCASE

           SHOW WINDOW (.Name) IN WINDOW (m.lcParentFormName)
           .AlwaysOnTop = .T.
           .AutoCenter = .T.
           .Visible = .T.

        ENDIF
        .ThermLabel.Visible = .F.
        .ThermLabel.Caption = m.lcCaption
        .ThermLabel.Left = (.Width - .ThermLabel.Width) /2  && must be after visible
        .ThermLabel.Visible = .T.

      ENDWITH
   ENDIF
ENDIF
ENDPROC
PROCEDURE ClearStatus
NODEFAULT
IF NOT ISNULL(THIS.ThermForm)
   IF THIS.ThermForm.Visible
      THIS.ThermForm.Visible = .F.
   ENDIF
ENDIF
IF NOT ISNULL(THIS.Successor)
   THIS.Successor.ClearStatus()
ENDIF
ENDPROC
PROCEDURE BeforeReport
DODEFAULT()
* THIS.ResetUserFeedback(.T.)
THIS.DrivingAliasCurrentRecno = 0
THIS.IsRunning = .T.
THIS.resetDataSession()
ENDPROC
PROCEDURE Init
IF DODEFAULT()
   THIS.InitStatusText = OUTPUTCLASS_INITSTATUS_LOC
   THIS.PrepassStatusText = OUTPUTCLASS_PREPSTATUS_LOC
   THIS.RunStatusText =  OUTPUTCLASS_RUNSTATUS_LOC
   THIS.SecondsText = OUTPUTCLASS_TIME_SECONDS_LOC
   THIS.thermCaption = OUTPUTCLASS_THERMCAPTION_LOC
   RETURN (NOT THIS.HadError)
   RETURN .F.
ENDIF
ENDPROC
PROCEDURE AfterReport
IF SYS(2024) # "Y"
   IF THIS.IsRunning OR TYPE("THIS.CommandClauses.RecordTotal") = "N"
      THIS.CurrentRecord = THIS.CommandClauses.RecordTotal
   ENDIF
   THIS.UpdateStatus()
ENDIF
THIS.IsRunning = .F.
THIS.ClearStatus()
THIS.designatedDriver = ""
THIS.successorSys2024 = "N"
THIS.ThermForm = NULL
THIS.ReportStopRunDateTime = DATETIME()
THIS.PopGlobalSets()
DODEFAULT()
ENDPROC
PROCEDURE CancelReport
IF THIS.IsRunning AND ;
   (THIS.QuietMode OR ;
   (THIS.pageLimit > 0 AND THIS.PageNo > THIS.pageLimit) OR ;
    (NOT THIS.AllowModalMessages) OR ;
    THIS.DoMessage(OUTPUTCLASS_REPORT_CANCELQUERY_LOC,;
                   MB_ICONQUESTION+MB_YESNO) =  IDYES )
   IF THIS.isSuccessor AND NOT EMPTY(THIS.designatedDriver)
      * make an exception for this Listener
      * to the rule that Successors don't
      * handle cancelling the report, because
      * this guy's job is to handle user intervention:
      THIS.successorSys2024 = "Y"
      LOCAL m.liSession
      m.liSession = SET("DATASESSION")
      THIS.setCurrentDataSession()
      IF USED(THIS.designatedDriver)
         GO BOTTOM IN (THIS.designatedDriver)
      ENDIF
      SET DATASESSION TO (m.liSession)
   ENDIF

   DODEFAULT()
   IF SYS(2024) = "Y"  OR THIS.IsSuccessor
      THIS.ThermForm = NULL
      IF (THIS.pageLimit = -1 OR THIS.PageNo <= THIS.pageLimit)
         THIS.DoMessage(OUTPUTCLASS_REPORT_INCOMPLETE_LOC, ;
                        MB_ICONEXCLAMATION)
         THIS.lastErrorMessage = OUTPUTCLASS_REPORT_INCOMPLETE_LOC
      ENDIF
   ENDIF
   NODEFAULT
ENDIF
ENDPROC
PROCEDURE pushglobalsets
DODEFAULT()
IF (NOT INLIST(_VFP.StartMode,2,3,5))
   PUSH KEY CLEAR
   LOCAL m.lcRef
   SET MESSAGE TO ""
   THIS.SetNotifyCursor = (SET("Notify",2) = "ON")
   IF THIS.SetNotifyCursor
      SET NOTIFY CURSOR OFF
   ENDIF
   THIS.OnEscapeCommand = ON("ESCAPE")
   m.lcRef = SYS(2015)
   PUBLIC &lcRef.
   STORE THIS TO (m.lcRef)
   ON ESCAPE &lcRef..CancelReport()
   THIS.EscapeReference = m.lcRef
   THIS.SetEscape = (SET("ESCAPE")="OFF")
   IF THIS.SetEscape
      SET ESCAPE ON
   ENDIF
ENDIF
ENDPROC
PROCEDURE popglobalsets
DODEFAULT()
IF (NOT INLIST(_VFP.StartMode,2,3,5))
   LOCAL m.lcRef
   m.lcRef = THIS.EscapeReference
   IF (NOT EMPTY(m.lcRef)) AND ;
       TYPE(m.lcRef) = "O"
      * push occurred earlier
      STORE NULL TO (m.lcRef)
      RELEASE &lcRef.
      THIS.escapeReference = ""
      m.lcRef = THIS.OnEscapeCommand
      ON ESCAPE &lcRef
      POP KEY
      IF THIS.SetNotifyCursor
         SET NOTIFY CURSOR ON
      ENDIF
      IF THIS.SetEscape
         SET ESCAPE OFF
      ENDIF
   ENDIF
ENDIF
ENDPROC
PROCEDURE getfrxstartupinfo
DODEFAULT()
LOCAL m.llFRXAvailable, m.lcAlias
m.llFRXAvailable = THIS.getReportScopeDriver()
IF m.llFRXAvailable
   THIS.SetFRXDataSession()
   THIS.FRXBandRecno = 0
   SELECT FRX
   IF THIS.CommandClauses.Summary
      * don't use groups unless
      * we're forced to by Summary.
      * Group usage will not work if
      * there's a group on .T. or some
      * other nonsensical expression that
      * doesn't change.
      LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
          Objcode = FRX_OBJCOD_GROUPHEADER AND ;
          Platform = FRX_PLATFORM_WINDOWS AND ;
          NOT DELETED()
      DO WHILE NOT EOF()
         * find the innermost group
         THIS.FRXBandRecno = RECNO()
         CONTINUE
      ENDDO

      IF THIS.frxBandRecno = 0
         * no groups in a Summary report
         * doesn't make a lot of sense, but
         * can happen.
          LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
             Objcode = FRX_OBJCOD_PAGEHEADER AND ;
             Platform = FRX_PLATFORM_WINDOWS AND ;
             NOT DELETED()
          IF NOT EOF()
             THIS.FRXBandRecno = RECNO()
          ENDIF
      ENDIF
   ENDIF

   IF THIS.FRXBandRecno = 0
      * not a Summary report.
      * look for the appropriate detail
      * using the report driver
      LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
                 Objcode = FRX_OBJCOD_DETAIL AND ;
                 Platform = FRX_PLATFORM_WINDOWS AND ;
                 TYPE(Expr) = "C" AND ;
                 NOT (EMPTY(Expr) OR DELETED())
       DO WHILE NOT EOF()
          m.lcAlias = ALLTRIM(Expr)
          THIS.SetCurrentDataSession()
          m.lcAlias = UPPER(EVALUATE(m.lcAlias))
          THIS.SetFRXDataSession()
          IF m.lcAlias == UPPER(THIS.DrivingAlias)
             THIS.FRXBandRecno = RECNO()
          ENDIF
          CONTINUE && try not to use the first detail band
       ENDDO
   ENDIF
   IF THIS.frxBandRecno = 0
      * couldn't match up a band with
      * the known driver
      LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
           Objcode = FRX_OBJCOD_DETAIL AND ;
           Platform = FRX_PLATFORM_WINDOWS AND ;
           EMPTY(Expr) AND NOT DELETED()
      IF NOT EOF()
         THIS.FRXBandRecno = RECNO()
      ELSE
         IF THIS.FRXBandRecno = 0
            LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
                 Platform = FRX_PLATFORM_WINDOWS AND ;
                 Objcode = FRX_OBJCOD_DETAIL AND ;
                 NOT DELETED()
            IF NOT EOF()
               THIS.FRXBandRecno = RECNO()
            ENDIF
         ENDIF
      ENDIF
   ENDIF
ENDIF
THIS.setCurrentDataSession()
ENDPROC
PROCEDURE UpdateStatus
NODEFAULT
* the THIS.IsRunning check here
* make sure that this code doesn't
* run if the Engine calls UpdateStatus
* after we're through
IF THIS.isRunning
   LOCAL m.liRecTotal, m.lnNewPercent, m.llShow
   m.liRecTotal = THIS.CommandClauses.RecordTotal
   IF m.liRecTotal > 0
      m.lnNewPercent = ROUND(THIS.CurrentRecord/m.liRecTotal,(THIS.ThermPrecision + 2) ) * 100
      IF (THIS.PercentDone # m.lnNewPercent)
         THIS.PercentDone = m.lnNewPercent
         m.llShow = .T.
         #IF OUTPUTCLASS_DEBUGGING
             ? THIS.PercentDone, THIS.CurrentRecord, m.liRecTotal, THIS.PageTotal
             ? REPL(OUTPUTCLASS_STATUSCHAR_PCT_DONE,INT(THIS.PercentDone/100* OUTPUTCLASS_ONE_HUNDRED_PCT_MARK))+ ;
               REPL(OUTPUTCLASS_STATUSCHAR_PCT_NOT_DONE,MAX(FLOOR(OUTPUTCLASS_ONE_HUNDRED_PCT_MARK - ;
                                                            (OUTPUTCLASS_ONE_HUNDRED_PCT_MARK *THIS.PercentDone/100)),0) )
         #ENDIF
      ENDIF
   ELSE
      m.llShow = .T.
   ENDIF
   IF m.llShow
      THIS.DoStatus( IIF(THIS.CurrentPass = LISTENER_PREPASS  AND THIS.TwoPassProcess,;
                     THIS.PrepassStatusText, ;
                     THIS.RunStatusText) )
   ENDIF
ENDIF
ENDPROC
PROCEDURE LoadReport
IF DODEFAULT()
   THIS.ResetUserFeedback(.T.)
   IF NOT (THIS.QuietMode OR ;
           (TYPE("THIS.CommandClauses.NoDialog") = "L" AND ;
           THIS.CommandClauses.NoDialog) )
      THIS.DoStatus(THIS.initStatusText)
      * NB: a user can call LoadReport manually,
      * hence the need for a TYPE() check here.
   ENDIF
   THIS.PushGlobalSets()
   THIS.ClearStatus()
   RETURN .F.
ENDIF
ENDPROC
PROCEDURE AfterBand
LPARAMETERS m.nBandObjCode, m.nFRXRecNo
DODEFAULT(m.nBandObjCode, m.nFRXRecNo)
THIS.synchStatus(m.nBandObjCode,m.nFRXRecNo)
THIS.resetDataSession()
ENDPROC
PROCEDURE Destroy
STORE NULL TO THIS.thermForm
DODEFAULT()
ENDPROC
PROCEDURE readconfiguration_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N" AND NOT THIS.IsRunning
   THIS.ReadConfiguration = m.vNewVal
ENDIF
ENDPROC
PROCEDURE setconfiguration
LPARAMETERS m.tlCalledFromInit
IF NOT THIS.IsRunning
   * do some config work, don't change sessions --
   * at this point we don't have our private session
   * if we're being called in the Init
   LOCAL m.liSelect, m.lcPEM, m.llOpened, m.lcOrder, m.liType, m.llQuiet
   m.liSelect = SELECT(0)
   IF NOT USED("OutputConfig")
      * if called from Init,
      * do this in quietmode
      * because the caller has no
      * opportunity to
      * turn off the message
      m.llQuiet = (m.tlCalledFromInit AND NOT THIS.QuietMode)
      IF m.llQuiet
         THIS.QuietMode = .T.
      ENDIF
      THIS.GetConfigTable()
      IF m.llQuiet
         THIS.QuietMode = .F.
      ENDIF
        * CChalom
        * Sometimes users erase one of the Configuration table files, like the CDX, FPT or DBF
        * So let's check if it's safe
        IF FILE(THIS.ConfigurationTable) AND ;
                FILE(FORCEEXT(THIS.ConfigurationTable, "CDX")) AND ;
                FILE(FORCEEXT(THIS.ConfigurationTable, "FPT"))
            USE (THIS.ConfigurationTable) ALIAS "OutputConfig" IN 0 AGAIN NOUPDATE SHARED
            m.llOpened = .T.
        ELSE
            m.llOpened = .F.
        ENDIF
   ELSE
      m.lcOrder = ORDER("OutputConfig")
      SET ORDER TO ObjCode
   ENDIF
   IF (NOT THIS.HadError) AND THIS.VerifyConfigTable("OutputConfig")
      SELECT OutputConfig
      m.liType = THIS.ConfigurationObjtype
      SCAN FOR ObjType = m.liType AND ;
            NOT(DELETED() OR ;
                ObjName == "" OR ;
                ObjValue =="" )

         IF PEMSTATUS(THIS,ObjName,5)
            m.lcPEM = UPPER(PEMSTATUS(THIS,ObjName,3))
            DO CASE
            CASE lcPEM == "PROPERTY"
               STORE EVAL(ObjValue) TO ("THIS."+ObjName)
            CASE INLIST("|"+lcPEM+"|","|METHOD|","|EVENT|")
               EVAL("THIS."+ObjName+"("+ObjValue+")")
            OTHERWISE
            ENDCASE
          ENDIF
      ENDSCAN
      IF m.llOpened
         USE IN OutputConfig
      ELSE
         SET ORDER TO (m.lcOrder) IN OutputConfig
      ENDIF
   ENDIF
   SELECT (m.liSelect)
ENDIF
ENDPROC
PROCEDURE getconfigtable
LPARAMETERS m.tlForceExternal
LOCAL m.lcDBF, m.lcPath
m.lcDBF = ""
IF m.tlForceExternal OR (NOT EMPTY(SYS(2000,FULLPATH(FORCEEXT(OUTPUTCLASS_EXTERNALDBF,"DBF")))))
   m.lcDBF = FULLPATH(FORCEEXT(OUTPUTCLASS_EXTERNALDBF,"DBF"))
   m.lcDBF = FORCEEXT(OUTPUTCLASS_INTERNALDBF,"DBF")
ENDIF
* CChalom
* Sometimes users erase one of the COnfiguration table files, like the CDX, FPT or DBF
* So let's check if it's safe
LOCAL llIsDBF
llIsDBF = FILE(m.lcDBF) AND ;
            FILE(FORCEEXT(m.lcDBF, "CDX")) AND ;
            FILE(FORCEEXT(m.lcDBF, "FPT"))
IF NOT llIsDBF && One or more files are missing, so it's safer to delete them all
    TRY
        DELETE FILE (m.lcDBF)
    CATCH
    ENDTRY
    TRY
        DELETE FILE (FORCEEXT(m.lcDBF, "CDX"))
    CATCH
    ENDTRY
    TRY
        DELETE FILE (FORCEEXT(m.lcDBF, "FPT"))
    CATCH
    ENDTRY
ENDIF
* IF NOT (FILE(m.lcDBF) OR THIS.IsRunning)
IF NOT (llIsDBF OR THIS.IsRunning)
      m.lcPath = THIS.GetPathForExternals()
      * this may be the internal *or* external dbf name;
      * we could be testing and not yet built into an app,
      * so accept either, before the next test:
      m.lcDBF = FORCEPATH(m.lcDBF,m.lcPath)

      IF NOT FILE(m.lcDBF)
         * now force to the external name:
         m.lcDBF = FORCEEXT(FORCEPATH(OUTPUTCLASS_EXTERNALDBF,m.lcPath),"DBF")
         * now check again
         IF NOT FILE(m.lcDBF)
            THIS.CreateConfigTable(m.lcDBF)
            IF FILE(m.lcDBF)
               THIS.DoMessage(OUTPUTCLASS_CONFIGTABLECREATED_LOC)
            ENDIF
         ENDIF
      ENDIF
ENDIF
IF NOT FILE(m.lcDBF)
   m.lcDBF = ""
ENDIF
THIS.ConfigurationTable = m.lcDBF
RETURN m.lcDBF
ENDPROC
PROCEDURE createconfigtable
LPARAMETERS m.tcDBF, m.tlOverWrite
LOCAL m.liSelect, m.lcFile
m.lcFile = FORCEEXT(m.tcDBF,"DBF")
IF (NOT EMPTY(SYS(2000,m.lcFile))) AND m.tlOverWrite
   ERASE (m.lcFile) RECYCLE
   ERASE (FORCEEXT(m.lcFile,"FPT")) RECYCLE
   ERASE (FORCEEXT(m.lcFile,"CDX")) RECYCLE
ENDIF
m.liSelect = SELECT(0)
SELECT 0
CREATE TABLE (m.lcFile) FREE ;
   (objtype i, ;
    objcode i, ;
    objname v(60), ;
    objvalue v(60), ;
    objinfo m)
IF NOT EMPTY(ALIAS()) && can happen if SAFETY ON and they decide not to overwrite
   INDEX ON Objtype TAG ObjType
   INDEX ON ObjCode TAG ObjCode
   INDEX ON ObjName TAG ObjName
   INDEX ON ObjValue TAG ObjValue
   INDEX ON DELETED() TAG OnDeleted
   INSERT INTO (ALIAS()) VALUES ;
      (OUTPUTCLASS_OBJTYPE_CONFIG,0,'DoMessage','"Welcome to the demo run!",64','Sample initialization/config method call')
   DELETE NEXT 1
   INSERT INTO (ALIAS()) VALUES ;
     (OUTPUTCLASS_OBJTYPE_CONFIG,0,'TargetFileName','"xxx"','Sample initialization/config property')
   DELETE NEXT 1
   USE
ENDIF
SELECT (m.liSelect)
ENDPROC
PROCEDURE opentargetfile
   THIS.VerifyTargetFile()
   THIS.TargetHandle = FCREATE(THIS.TargetFileName)
   IF THIS.TargetHandle < 0 OR THIS.HadError
      THIS.HadError = .T.
      THIS.DoMessage(OUTPUTCLASS_NOFILECREATE_LOC,MB_ICONSTOP )
      THIS.lastErrorMessage = OUTPUTCLASS_NOFILECREATE_LOC
   ENDIF
RETURN (NOT THIS.HadError)

ENDPROC
PROCEDURE verifytargetfile
LOCAL m.lcFile
m.lcFile =  ALLTR(CHRTRAN(CHRTRAN(THIS.TargetFileName,;
                       OUTPUTCLASS_FILENAME_CHARS_DISALLOWED,"_"),"/","\"))
* embracing chrtran for slashes is necessary because of FULLPATH behavior.
IF NOT DIRECTORY(JUSTPATH(m.lcFile))
   m.lcFile = FULLPATH(ALLTR(m.lcFile))
ENDIF
IF DIRECTORY(m.lcFile)
   * we have to generate a filename
   m.lcFile = FORCEPATH(SYS(2015), m.lcFile)
ENDIF
THIS.TargetFileName = m.lcFile
IF JUSTEXT(THIS.TargetFileName) == "" AND ;
   RIGHT(THIS.TargetFileName,1) # "."
   THIS.TargetFileExt = CHRTRAN(THIS.TargetFileExt,;
                        OUTPUTCLASS_FILENAME_CHARS_DISALLOWED,"_")
   THIS.TargetFileName = FORCEEXT(THIS.TargetFileName, ;
                                    THIS.TargetFileExt)
ENDIF
IF NOT EMPTY(SYS(2000,THIS.TargetFileName))
   ERASE (THIS.TargetFileName) NORECYCLE
ENDIF
ENDPROC
PROCEDURE targetfileext_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C" AND NOT THIS.IsRunning
   THIS.targetfileext = m.vNewVal
ENDIF
ENDPROC
PROCEDURE targetfilename_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C" AND NOT THIS.IsRunning
   THIS.targetfilename = m.vNewVal
ENDIF
ENDPROC
PROCEDURE targethandle_assign
LPARAMETERS m.vNewVal
* Readonly during report run
IF VARTYPE(m.vNewVal) = "N" AND NOT THIS.IsRunning
   THIS.targethandle = m.vNewVal
ENDIF
ENDPROC
PROCEDURE closetargetfile
   LOCAL laDummy[1]

   IF THIS.TargetHandle > -1
      =FCLOSE(THIS.TargetHandle)
      THIS.TargetHandle = -1

      IF ADIR(laDummy,THIS.TargetFileName) = 1 AND ;
         laDummy[1,2] > 0
         * NB: have to check this as well as
         * error because some COM errors may not
         * end up in THIS.HadError.
          * if continuation, update status rather than
          * modal message
         IF THIS.HadError
            THIS.DoMessage(OUTPUTCLASS_CREATEERRORS_LOC,MB_ICONEXCLAMATION  )
            THIS.lastErrorMessage = OUTPUTCLASS_CREATEERRORS_LOC
        ELSE
            *IF THIS.DoMessage( OUTPUTCLASS_SUCCESS_LOC + ;
                            IIF(SYS(2024)="Y",CHR(13)+OUTPUTCLASS_REPORT_INCOMPLETE_LOC,""),;
                            MB_ICONINFORMATION + MB_YESNO ) = IDYES
            *   _CLIPTEXT = THIS.TargetFileName
            * ENDIF
         ENDIF
      ELSE
         THIS.DoMessage(OUTPUTCLASS_NOCREATE_LOC,MB_ICONSTOP )
         THIS.lastErrorMessage = OUTPUTCLASS_NOCREATE_LOC

      ENDIF

   ENDIF
ENDPROC
PROCEDURE verifyconfigtable
LPARAMETERS m.tcAlias, m.tcFailureMsgTable, m.tcFailureMsgIndexes
IF EMPTY(m.tcAlias) OR VARTYPE(m.tcAlias) # "C"
   RETURN .F.
ENDIF
LOCAL m.lcTable, m.lcMessage, m.lcAlias, m.liSelect, ;
      m.llReturn, m.liTagCount, laRequired[1], laKeys[1], ;
      m.liFound, m.llExactOff, m.llSafetyOn
m.llReturn = ;
       TYPE(m.tcAlias+".OBJTYPE") = "N" AND ;
       TYPE(m.tcAlias+".OBJCODE") = "N" AND ;
       TYPE(m.tcAlias+".OBJNAME") = "C" AND ;
       TYPE(m.tcAlias+".OBJVALUE") = "C" AND ;
       TYPE(m.tcAlias+".OBJINFO") = "M"

* additional fields may be included and order
* is not significant

IF NOT m.llReturn
   m.lcMessage = IIF(EMPTY(m.tcFailureMsgTable),;
                         OUTPUTCLASS_CONFIGTABLEWRONG_LOC, ;
                         m.tcFailureMsgTable)  + ;
               CHR(13)+CHR(13)+ ;
               DBF(m.tcAlias)
ENDIF
IF m.llReturn
   IF (SET("EXACT") = "OFF")
      SET EXACT ON
      m.llExactOff = .T.
   ENDIF
   m.liSelect = SELECT(0)
   SELECT (m.tcAlias)
   * check for required keys...
   DIME laRequired[5]
   laRequired[1] = "OBJTYPE"
   laRequired[2] = "OBJCODE"
   laRequired[3] = "OBJNAME"
   laRequired[4] = "OBJVALUE"
   laRequired[5] = "DELETED()"
   IF TAGCOUNT() > 0
      DIME laKeys[TAGCOUNT()]
      FOR m.liTagCount = 1 TO TAGCOUNT()
          laKeys[m.liTagCount] = UPPER(KEY(m.liTagCount))
      ENDFOR
      FOR m.liTagCount = 1 TO ALEN(laRequired)
         m.liFound = ASCAN(laKeys,UPPER(laRequired[m.liTagCount]))
         IF m.liFound = 0
            m.llReturn = .F.
            EXIT
         ENDIF
      ENDFOR
   ELSE
      m.llReturn = .F.
   ENDIF
   IF NOT m.llReturn
     m.llSafetyOn = (SET("SAFETY") = "ON")
     SET SAFETY OFF
     TRY
         USE (DBF(m.tcAlias)) EXCLU ALIAS (m.tcAlias)
         INDEX ON Objtype TAG ObjType
         INDEX ON ObjCode TAG ObjCode
         INDEX ON ObjName TAG ObjName
         INDEX ON ObjValue TAG ObjValue
         INDEX ON DELETED() TAG OnDeleted
         m.llReturn = .T.
      CATCH
      ENDTRY

      IF m.llSafetyOn
         SET SAFETY ON
      ENDIF

      IF m.llReturn
         DIME laKeys[TAGCOUNT()]
         FOR m.liTagCount = 1 TO TAGCOUNT()
             laKeys[m.liTagCount] = UPPER(KEY(m.liTagCount))
         ENDFOR
         FOR m.liTagCount = 1 TO ALEN(laRequired)
            m.liFound = ASCAN(laKeys,UPPER(laRequired[m.liTagCount]))
            IF m.liFound = 0
               m.llReturn = .F.
               EXIT
            ENDIF
         ENDFOR
      ENDIF
      USE (DBF(m.tcAlias)) SHARED ALIAS (m.tcAlias)
   ENDIF
   IF NOT m.llReturn
      m.lcMessage =  IIF(EMPTY(m.tcFailureMsgIndexes),;
                         OUTPUTCLASS_CONFIGINDEXMISSING_LOC, ;
                         m.tcFailureMsgTable) + CHR(13)
      FOR m.liTagCount = 1 TO ALEN(laRequired)
          m.lcMessage = m.lcMessage +  CHR(13) + ;
                      laRequired[m.liTagCount]
      ENDFOR
   ENDIF
   IF m.llExactOff
      SET EXACT OFF
   ENDIF
   SELECT (m.liSelect)
ENDIF
IF NOT(m.llReturn)
   THIS.DoMessage(m.lcMessage,MB_ICONSTOP )
   THIS.lastErrorMessage = m.lcMessage
ENDIF
RETURN m.llReturn
ENDPROC
PROCEDURE configurationobjtype_access
* readonly property
RETURN OUTPUTCLASS_OBJTYPE_CONFIG
ENDPROC
PROCEDURE externalfilelocation_assign
LPARAMETERS m.vNewVal
IF THIS.isRunning AND NOT EMPTY(THIS.externalFileLocation)
   RETURN
ENDIF
IF VARTYPE(m.vNewVal) = "C"
   THIS.externalFileLocation = ALLTRIM(m.vNewVal)
   IF NOT EMPTY(THIS.externalFileLocation)
         THIS.externalFileLocation = ADDBS(THIS.externalFileLocation)
   ENDIF
ENDIF
ENDPROC
PROCEDURE pageimagetype_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N" AND ;
   (m.vNewVal = 0 OR ;
   INLIST(m.vNewVal,;
          LISTENER_DEVICE_TYPE_EMF,;
          LISTENER_DEVICE_TYPE_TIF,;
          LISTENER_DEVICE_TYPE_JPG,;
          LISTENER_DEVICE_TYPE_GIF,;
          LISTENER_DEVICE_TYPE_PNG,;
          LISTENER_DEVICE_TYPE_BMP,;
          LISTENER_DEVICE_TYPE_MTIF))
   THIS.pageImageType = m.vNewVal
   THIS.pageImageExtension = THIS.getPageImageExtension()
ENDIF
ENDPROC
PROCEDURE getpageimageextension
LOCAL lcExt
m.lcExt = ""
DO CASE
CASE INLIST(THIS.pageImageType,;
            LISTENER_DEVICE_TYPE_TIF,;
            LISTENER_DEVICE_TYPE_MTIF)
   m.lcExt = "TIF"
CASE THIS.pageImageType = LISTENER_DEVICE_TYPE_JPG
   m.lcExt = "JPG"
CASE THIS.pageImageType = LISTENER_DEVICE_TYPE_GIF
   m.lcExt = "GIF"
CASE THIS.pageImageType = LISTENER_DEVICE_TYPE_PNG
   m.lcExt = "PNG"
CASE THIS.pageImageType = LISTENER_DEVICE_TYPE_BMP
   m.lcExt = "BMP"
ENDCASE
RETURN m.lcExt
ENDPROC
PROCEDURE generatepageimagefilename
LPARAMETERS m.tiPage, m.tlFullPath
LOCAL lcFileName
m.lcFileName = FORCEEXT(JUSTSTEM(THIS.targetFileName) + ;
                        "_" + ;
                        PADL(TRANSFORM(m.tiPage),;
                             OUTPUTFILE_MAX_FILEPLACES ,"0"), ;
                        THIS.pageImageExtension)
IF m.tlFullPath
   RETURN  FULLPATH(FORCEPATH( m.lcFileName,THIS.ExternalFileLocation),;
                    ADDBS(JUSTPATH(THIS.TargetFileName)))
   RETURN FORCEPATH(m.lcFileName,THIS.externalFileLocation)
ENDIF


ENDPROC
PROCEDURE supportspageimages
LPARAMETERS tcMethodToken
DO CASE
CASE THIS.isSuccessor OR EMPTY(THIS.pageImageType)
   RETURN .F.
CASE EMPTY(m.tcMethodToken)
   RETURN THIS.ListenerType # LISTENER_TYPE_DEF
        * this indicates the set we are supporting in total
CASE m.tcMethodToken = "OUTPUTPAGE"
   RETURN INLIST(THIS.ListenerType,LISTENER_TYPE_PRN,LISTENER_TYPE_PAGED)
CASE INLIST(m.tcMethodToken,"AFTERREPORT","UNLOADREPORT")
   RETURN INLIST(THIS.ListenerType,LISTENER_TYPE_PRV,LISTENER_TYPE_ALLPGS)
ENDCASE
ENDPROC
PROCEDURE outputpageimage
LPARAMETERS m.tiPage
LOCAL m.lcFile, m.llError
   IF THIS.pageImageType = LISTENER_DEVICE_TYPE_MTIF
      m.lcFile = THIS.generatePageImageFilename(1, .T.)
      IF m.tiPage = 1
         IF NOT EMPTY(SYS(2000,m.lcFile))
            ERASE (m.lcFile) NORECYCLE
         ENDIF
         THIS.OutputPage(m.tiPage,m.lcFile,LISTENER_DEVICE_TYPE_TIF )
      ELSE
         THIS.OutputPage(m.tiPage,m.lcFile,LISTENER_DEVICE_TYPE_MTIF )
      ENDIF
   ELSE
      m.lcFile = THIS.generatePageImageFilename(m.tiPage, .T.)
      IF NOT EMPTY(SYS(2000,m.lcFile))
         ERASE (m.lcFile) NORECYCLE
      ENDIF
      THIS.OutputPage(m.tiPage,m.lcFile,THIS.pageImageType)
   ENDIF
CATCH WHEN .T.
   m.llError = .T.
ENDTRY
RETURN (NOT m.llError)
ENDPROC
PROCEDURE currentpageimagefilename_assign
LPARAMETERS m.tvNewVal
IF VARTYPE(m.tvNewVal) # "C"
   THIS.currentPageImageFilename = ""
   THIS.currentPageImageFilename = m.tvNewVal
ENDIF
ENDPROC
PROCEDURE makeexternalfilelocationreachable
IF EMPTY(THIS.externalFileLocation)
   THIS.externalFileLocation = "."
ENDIF
IF NOT DIRECTORY(FULLPATH(THIS.ExternalFileLocation,ADDBS(JUSTPATH(THIS.TargetFileName))))
   TRY
     MD (FULLPATH(THIS.ExternalFileLocation,ADDBS(JUSTPATH(THIS.TargetFileName))))
   CATCH
     LOCAL m.llRunning
     m.llRunning = THIS.isRunning
     THIS.isRunning = .F.
     THIS.externalFileLocation = "."
     THIS.isRunning = m.llRunning
   ENDTRY
ENDIF
ENDPROC
PROCEDURE BeforeBand
LPARAMETERS m.nBandObjCode, m.nFRXRecNo
IF (m.nBandObjCode = FRX_OBJCOD_PAGEHEADER OR ;
    m.nBandObjCode = FRX_OBJCOD_TITLE) AND ;
   THIS.supportsPageImages()
   * Note: this assignment does not occur in
   * OutputPageImage, because we don't know
   * what listener mode (PRN vs cached) we're in.
   * The point of this property is to make the value
   * available either way, as it will eventually be
   * used by OutputPageImage no matter when that occurs,
   * during the run of the report.
   LOCAL lcFile, liPageNo
   m.lcFile = ""
   DO CASE
   CASE THIS.pageImageType = LISTENER_DEVICE_TYPE_MTIF
      m.liPageNo = 1
   CASE THIS.CommandClauses.RangeFrom < 2
      IF THIS.isSuccessor
         m.liPageNo = THIS.sharedPageNo
      ELSE
         m.liPageNo = THIS.PageNo
      ENDIF
   OTHERWISE
      IF THIS.isSuccessor
         m.liPageNo = (THIS.sharedPageNo - THIS.CommandClauses.RangeFrom) + 1
      ELSE
         m.liPageNo = (THIS.PageNo - THIS.CommandClauses.RangeFrom) + 1
      ENDIF
   ENDCASE
   m.lcFile = THIS.generatePageImageFileName(m.liPageNo)
   THIS.currentPageImageFilename = m.lcFile
   IF NOT ISNULL(THIS.successor)
      THIS.successor.currentPageImageFilename = m.lcFile
   ENDIF
ENDIF
IF THIS.sharedPageNo  = 1 AND ;
   m.nBandObjCode = FRX_OBJCOD_PAGEHEADER AND ;
   (NOT EMPTY(THIS.pageImageType)) AND ;
   (EMPTY(THIS.currentPageImageFilename)) AND ;
   ((NOT THIS.TwoPassProcess) OR THIS.CurrentPass = LISTENER_FULLPASS)
   THIS.DoMessage(OUTPUTFILE_NOIMAGEFILES_LOC,MB_ICONEXCLAMATION)
ENDIF
DODEFAULT(m.nBandObjCode, m.nFRXRecNo)
ENDPROC
PROCEDURE BeforeReport
THIS.currentPageImageFilename =""
IF (NOT EMPTY(THIS.pageImageType)) AND ;
   (NOT THIS.supportsPageImages())
   IF (NOT THIS.isSuccessor)
     THIS.ListenerType = LISTENER_TYPE_PAGED
   ENDIF
ENDIF
IF THIS.supportsPageImages()
   THIS.makeExternalFileLocationReachable()
ENDIF
IF NOT ISNULL(THIS.successor)
   THIS.successor.AddProperty("currentPageImageFilename","")
ENDIF
DODEFAULT()
 IF INLIST(THIS.ReadConfiguration,;
                  OUTPUTCLASS_READCONFIG_REPORT,;
                  OUTPUTCLASS_READCONFIG_BOTH)
     THIS.SetConfiguration()
ENDIF
THIS.resetDataSession()
ENDPROC
PROCEDURE setfrxdatasessionenvironment
DODEFAULT()
SET DELETED ON
SET EXCLUSIVE OFF
SET TALK OFF
ENDPROC
PROCEDURE Destroy
THIS.CloseTargetFile()
DODEFAULT()
ENDPROC
PROCEDURE Init
IF DODEFAULT()
   * NB: this one doesn't necessarily need its
   * own AppName LOC'd value, because
   * it is basically an abstract layer
   * and should not be instantiated directly.
   * Doesn't hurt, though.
   THIS.appName = OUTPUTFILE_APPNAME_LOC
   IF INLIST(THIS.ReadConfiguration,;
                  OUTPUTCLASS_READCONFIG_INIT,;
                  OUTPUTCLASS_READCONFIG_BOTH)
     THIS.SetConfiguration(.T.)
   ENDIF
   RETURN .F.
ENDIF
RETURN NOT THIS.HadError
ENDPROC
PROCEDURE AfterReport
DODEFAULT()
IF (NOT THIS.CommandClauses.NOPAGEEJECT) AND ;
   THIS.supportsPageImages("AFTERREPORT")
   LOCAL m.lcFileLocation, m.liPage,  m.lcFile
   m.lcFileLocation = THIS.ExternalFileLocation
   THIS.makeExternalFileLocationReachable()
   FOR m.liPage = 1 TO THIS.OutputPageCount
      IF NOT THIS.outputPageImage(m.liPage)
         EXIT
      ENDIF
   NEXT
   THIS.externalFileLocation = m.lcFileLocation
ENDIF
ENDPROC
PROCEDURE OutputPage
LPARAMETERS nPageNo, eDevice, nDeviceType, nLeft, nTop, nWidth, nHeight, nClipLeft, nClipTop, nClipWidth, nClipHeight
IF THIS.supportsPageImages("OUTPUTPAGE")
   IF m.nDeviceType < 100
      * ascertain that this is the native call; have to make
      * sure it's not recursive...
      THIS.OutputPageImage(m.nPageNo)
   ENDIF
   IF m.nDeviceType > 99
      DODEFAULT(nPageNo, eDevice, nDeviceType)
   ENDIF
ENDIF
ENDPROC
PROCEDURE createhelperobjects
LPARAMETERS m.tlCalledFromBeforeReport
* see note in CheckCollectionMembers method about parameter, which
* is not used here but could provide significant information to
* subclasses
* NB this method creates only required helpers, not optional FX objects
* which is handled in CheckCollectionMembers
EXTERNAL CLASS _GDIPLUS.VCX
LOCAL liSession
m.liSession = SET("DATASESSION")
THIS.resetDataSession()
THIS.ensureCollection()
THIS.ensureCollection(.T.)
SET DATASESSION TO (m.liSession)
IF VARTYPE(THIS.FFCGraphics) # "O"  AND THIS.GFXs.Count > 0
   THIS.FFCGraphics =;
      THIS.getObjectInstance("GpGraphics","_GDIPlus.VCX","", .T.,"GP", .T.)
   IF NOT ISNULL(THIS.FFCGraphics)
      THIS.FFCGraphics.QuietOnError = THIS.QuietMode
   ENDIF
ENDIF
ENDPROC
PROCEDURE needgfxs
LPARAMETERS m.tcProgram,;
            m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, m.tP6, ;
            m.tP7, m.tP8, m.tP8, m.tP10, m.tP11, m.tP12
* hook
* a subclass could evaluate conditions,
* such as whether any objects have custom properties
* requiring GFX activity.
RETURN .T.
ENDPROC
PROCEDURE sendfx
LPARAMETERS m.tcProgram, ;
            m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, ;
            m.tP6, m.tP7, m.tP8, m.tP9, m.tP10, ;
            m.tP11, m.tP12)
  LOCAL m.loFX, m.liRenderBehavior, m.liTemp, m.lcMethodToken
  m.liRenderBehavior = OUTPUTFX_DEFAULT_RENDER_BEHAVIOR
  IF THIS.IsSuccessor
     * Only the lead does this work.
     RETURN m.liRenderBehavior
  ENDIF
  m.lcMethodToken = THIS.upperMethodName(m.tcProgram)
  IF VARTYPE(THIS.FXs) = "O" AND THIS.FXs.Count > 0
     * The order of the
     * invocation of this method,
     * which precedes the DODEFAULT()
     * in each event,
     * makes the results available
     * for all Successors.
     FOR EACH m.loFX IN THIS.FXs FOXOBJECT
         IF VARTYPE(m.loFX) = "O" && contract API is checked in LoadReport and BeforeReport
                                && but the object could release itself midway through a run
            THIS.setCurrentDataSession()
            m.loFX.ApplyFX(THIS,m.lcMethodToken, ;
                       @tP1, @tP2, @tP3, @tP4, @tP5, @tP6, ;
                       @tP7, @tP8, @tP9, @tP10, @tP11, @tP12)
         ENDIF
      NEXT
  ENDIF
  IF VARTYPE(THIS.GFXs) = "O" AND THIS.GFXs.Count > 0 AND ;
     THIS.NeedGFXs(m.lcMethodToken,;
                   m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, ;
                   m.tP6, m.tP7, m.tP8, m.tP9, m.tP10, ;
                   m.tP11, m.tP12)
      FOR EACH m.loFX IN THIS.GFXs FOXOBJECT
          IF VARTYPE(m.loFX) = "O" && contract API is checked in LoadReport and BeforeReport
                                   && but the object could release itself midway through a run
             THIS.setCurrentDataSession()
             m.liTemp = INT(VAL(TRANSFORM(m.loFX.ApplyFX(THIS, m.lcMethodToken, ;
                        @tP1, @tP2, @tP3, @tP4, @tP5, @tP6, ;
                        @tP7, @tP8, @tP9, @tP10, @tP11, @tP12))))
             IF m.liTemp > m.liRenderBehavior  && behavior is cumulative
                m.liRenderBehavior = INT(m.liTemp)
             ENDIF
          ENDIF
      NEXT
  ENDIF
 RETURN m.liRenderBehavior  && this value only affects calls during Render method
ENDPROC
PROCEDURE checkcollectionmembers
LPARAMETERS m.tlCalledFromBeforeReport
* NB: use of this argument and
* no distinction made between calls from
* BeforeReport and LoadReport at this level,
* this distinction is made available for subclasses
* that might not have all materials prepared for
* creation of required collection members during Load.
LOCAL m.liIndex, m.loX, m.loXs as Collection
THIS.getFeedbackFXObject()
THIS.getMemberDataScriptFXObject()
THIS.getRotateGFXObject()
THIS.getNoRenderGFXObject()
m.loXs = THIS.FXs
FOR m.liIndex = 1 TO THIS.FXs.Count
   m.loX = loXs.Item(m.liIndex)
   IF VARTYPE(m.loX) # "O" OR ;
     (NOT PEMSTATUS(m.loX,"ApplyFX",5))
     loXs.Remove(m.liIndex)
   ENDIF
m.loXs = THIS.GFXs
FOR m.liIndex = 1 TO THIS.GFXs.Count
   m.loX = loXs.Item(liIndex)
   IF VARTYPE(m.loX) # "O" OR ;
     (NOT PEMSTATUS(m.loX,"ApplyFX",5))
     loXs.Remove(m.liIndex)
   ENDIF
STORE NULL TO m.loX, m.loXs
ENDPROC
PROCEDURE uppermethodname
LPARAMETERS m.tcProgram
LOCAL m.lcProgram
m.lcProgram = UPPER(TRANSFORM(m.tcProgram))
RETURN SUBSTR(m.lcProgram,RAT(".",m.lcProgram) + 1)
ENDPROC
PROCEDURE cancelrequested_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L"
   THIS.cancelRequested = m.vNewVal
ENDIF
ENDPROC
PROCEDURE fxfeedbackclass_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C" AND NOT EMPTY(m.vNewVal)
   THIS.fxFeedbackClass = m.vNewVal
ENDIF
ENDPROC
PROCEDURE fxfeedbackclasslib_assign
LPARAMETERS vNewVal
IF VARTYPE(m.vNewVal) = "C" AND NOT EMPTY(m.vNewVal)
   THIS.fxFeedbackClassLib = m.vNewVal
ENDIF
ENDPROC
PROCEDURE fxfeedbackmodule_assign
LPARAMETERS vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.fxFeedbackModule = m.vNewVal
ENDIF
ENDPROC
PROCEDURE getfeedbackfxobject
LPARAMETERS m.tlQuiet
IF (NOT THIS.QuietMode) AND ;
   (NOT THIS.isSuccessor) AND ;
   (TYPE("THIS.CommandClauses.NoDialog") # "L" OR ;
    (NOT THIS.CommandClauses.NoDialog))
   THIS.addCollectionMember(;
         THIS.fxFeedbackClass,;
         THIS.fxFeedbackClassLib,;
         THIS.fxFeedbackModule, .T.)

   IF NOT THIS.checkCollectionForSpecifiedMember(;
          THIS.fxFeedbackClass,;
          THIS.fxFeedbackClassLib)
       IF _VFP.StartMode = 0 AND NOT m.tlQuiet
*          THIS.DoMessage(OUTPUTFX_USERFEEDBACK_UNAVAILABLE_LOC,MB_ICONEXCLAMATION)
       ENDIF
       THIS.QuietMode = .T.
   ENDIF
ENDIF
ENDPROC
PROCEDURE classpath_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C" AND ;
   DIRECTORY(m.vNewVal)
   IF NOT EMPTY(m.vNewVal)
      m.vNewVal = ADDBS(m.vNewVal)
   ENDIF
   THIS.classPath = m.vNewVal
   THIS.ResetToDefault("classPath")
ENDIF
ENDPROC
PROCEDURE getobjectinstance
LPARAMETERS m.tcClass, m.tcClassLib, m.tcModule, ;
            m.tlAssignUniqueNameToObject, ;
            m.tcNamePrefix, m.tlMandatoryObject
IF VARTYPE(m.tcClass) # "C" OR EMPTY(m.tcClass)
   IF m.tlMandatoryObject
      THIS.DoMessage(OUTPUTFX_REQUIREDOBJECTDEF_MISSING_LOC,MB_ICONEXCLAMATION)
   ENDIF
   RETURN NULL
ENDIF
LOCAL m.loX,m.lcForceVCX, m.lcForceFXP, m.lcUseThisLib, m.lcExternalsPath, m.liSession
liSession = SET("DATASESSION")
THIS.ResetDataSession()
m.lcForceVCX = FORCEEXT(m.tcClassLib,"VCX")
m.lcForceFXP = STRTRAN(m.tcClassLib,".PRG",".FXP")
m.lcExternalsPath = THIS.getPathForExternals()
m.loX = NULL
   DO CASE
   CASE FILE(m.tcClassLib) OR ;
        FILE(m.lcForceVCX) OR ;
        ATC(FULLPATH(m.lcForceVCX) + " ALIAS ",SET("CLASSLIB")) > 0 OR ;
        ATC("\" + JUSTFNAME(m.lcForceVCX) + " ALIAS ",SET("CLASSLIB")) > 0 OR ;
        ATC(m.tcClassLib,SET("PROCEDURE")) > 0 OR ;
        ATC(m.lcForceFXP,SET("PROCEDURE")) > 0
        m.lcUseThisLib = m.tcClassLib
   CASE FILE(FORCEPATH(m.tcClassLib,m.lcExternalsPath)) OR ;
        FILE(FORCEPATH(m.lcForceVCX,m.lcExternalsPath)) OR ;
        FILE(FORCEPATH(m.lcForceFXP,m.lcExternalsPath))
        m.lcUseThisLib = FORCEPATH(m.tcClassLib,m.lcExternalsPath)
   CASE FILE(FORCEPATH(m.tcClassLib,HOME(0)+"FFC\")) OR ;
        FILE(FORCEPATH(m.lcForceVCX,HOME(0)+"FFC\"))
        FILE(FORCEPATH(m.lcForceFXP,HOME(0)+"FFC\"))
        m.lcUseThisLib = FORCEPATH(m.tcClassLib,HOME(0) + "FFC\")
   CASE FILE(FORCEPATH(m.tcClassLib,HOME(0)+"FFC\" + THIS.classPath)) OR ;
        FILE(FORCEPATH(m.lcForceVCX,HOME(0)+"FFC\" + THIS.classPath))
        FILE(FORCEPATH(m.lcForceFXP,HOME(0)+"FFC\" + THIS.classPath))
        m.lcUseThisLib = FORCEPATH(m.tcClassLib,HOME(0) + "FFC\" + THIS.classPath)
   OTHERWISE
        m.lcUseThisLib = m.tcClassLib
        * may error, but if it's a required object,
        * it *should* error.
   ENDCASE

   m.loX =  NEWOBJECT(m.tcClass, m.lcUseThisLib, ;
            IIF(VARTYPE(m.tcModule)="C",m.tcModule,""))
   IF (NOT ISNULL(m.loX)) AND m.tlAssignUniqueNameToObject
      m.tcNamePrefix = IIF(VARTYPE(m.tcNamePrefix) = "C", ;
                            m.tcNamePrefix, "FXH")
      m.loX.Name = m.tcNamePrefix + SYS(2015)
   ENDIF
CATCH TO err
   m.loX = NULL
   #IF OUTPUTCLASS_DEBUGGING
       SUSPEND
   #ENDIF
ENDTRY
IF m.tlMandatoryObject AND ISNULL(m.loX)
   THIS.DoMessage(OUTPUTFX_REQUIREDOBJECT_UNAVAILABLE_LOC,MB_ICONEXCLAMATION)
ENDIF
SET DATASESSION TO (m.liSession)
RETURN m.loX
ENDPROC
PROCEDURE checkcollectionforspecifiedmember
LPARAMETERS m.tcClass, m.tcClassLib, m.tlInGFX, m.tlReturnRef
LOCAL m.liIndex, m.loXs, m.loX, m.lcForceVCX, m.lcClassLib, ;
      m.lcClass, m.lcThisLib, m.llFound, m.loRef
THIS.ensureCollection(m.tlInGFX)
IF m.tlInGFX
  m.loXs = THIS.GFXs
   m.loXs = THIS.FXs
ENDIF
m.loRef = NULL
m.lcClass = UPPER(m.tcClass)
IF NOT EMPTY(m.tcClassLib)
   m.lcClassLib = UPPER(JUSTFNAME(m.tcClassLib))
   m.lcForceVCX = FORCEEXT(lcClassLib,"VCX")
   m.lcForceFXP = STRTRAN(lcClassLib,".PRG",".FXP")
ENDIF
FOR m.liIndex = 1 TO m.loXs.Count
   m.loX = loXs.Item(liIndex)
   m.lcThisLib = UPPER(JUSTFNAME(loX.ClassLibrary))
   IF UPPER(loX.Class) == m.lcClass AND ;
      (EMPTY(m.lcClassLib) OR ;
       m.lcThisLib == m.lcClassLib OR ;
       m.lcThisLib == m.lcForceVCX OR ;
       m.lcThisLib == m.lcForceFXP)
       m.llFound = .T.
       m.loRef = m.loX
       EXIT
   ENDIF
IF m.tlReturnRef
   RETURN m.loRef
   RETURN m.llFound
ENDIF
ENDPROC
PROCEDURE addcollectionmember
LPARAMETERS m.tcClass, m.tcClassLib,m.tcModule,m.tlSingleton, m.tlInGFX, m.tlRequired
LOCAL m.loX, m.lExists, m.liReturn
m.liReturn = OUTPUTFX_ADDCOLLECTION_NOACTION
IF m.tlSingleton
  m.lExists =  THIS.checkCollectionForSpecifiedMember(m.tcClass,m.tcClassLib,m.tlInGFX)
  * checkCollectionForSpecifiedMember will have done this already
  THIS.ensureCollection(m.tlInGFX)
ENDIF
IF NOT m.lExists
   m.loX = THIS.getObjectInstance(;
          m.tcClass,;
          m.tcClassLib,;
          m.tcModule, ;
         .T., IIF(tlInGFX,"GFX","FX"),tlRequired)
   IF ISNULL(m.loX)
      m.liReturn = OUTPUTFX_ADDCOLLECTION_FAILURE
   ELSE
      IF (NOT PEMSTATUS(m.loX,"ApplyFX",5))
         m.liReturn = OUTPUTFX_ADDCOLLECTION_UNSUITABLE
      ELSE
         IF tlInGFX
            THIS.GFXs.Add(m.loX)
         ELSE
            THIS.FXs.Add(m.loX)
         ENDIF
         m.liReturn = OUTPUTFX_ADDCOLLECTION_SUCCESS
      ENDIF
   ENDIF
ENDIF
RETURN m.liReturn
ENDPROC
PROCEDURE getpathforexternals
* this is  mostly for standalone use
* first figure out where to put it
* with the idea of not littering
* the disk too much based on CURDIR().
* For app pieces, look for a container module
* and put it there.
* if there isn't one,
* put it with the VCX

LOCAL m.liLevel, m.lcSys16, m.lcPath
IF ":" $ THIS.classPath
   * explicit path
   m.lcPath = THIS.classPath
   FOR m.liLevel = PROGRAM(-1) TO 1 STEP -1
       m.lcSys16 = UPPER(SYS(16,m.liLevel))
      IF INLIST(RIGHT(m.lcSys16,3),"APP","EXE","DLL")
         m.lcPath = JUSTPATH(m.lcSys16)
         EXIT
      ENDIF
   ENDFOR
   IF (NOT EMPTY(lcPath)) AND ;
      (NOT EMPTY(THIS.classPath)) AND ;
       DIRECTORY(FULLPATH(THIS.classPath,ADDBS(lcPath)))
       m.lcPath = FULLPATH(THIS.classPath,ADDBS(lcPath))
   ENDIF
ENDIF

IF EMPTY(m.lcPath)
   m.lcPath = JUSTPATH(THIS.ClassLibrary)
   IF (NOT EMPTY(lcPath)) AND ;
      (NOT EMPTY(THIS.classPath)) AND ;
       DIRECTORY(FULLPATH(THIS.classPath,ADDBS(lcPath)))
       m.lcPath = FULLPATH(THIS.classPath,ADDBS(lcPath))
   ENDIF
ENDIF
IF NOT DIRECTORY(m.lcPath)
   m.lcPath = ""
ELSE
   m.lcPath = ADDBS(m.lcPath)
ENDIF
RETURN m.lcPath
ENDPROC
PROCEDURE ffcgraphics_assign
LPARAMETERS m.tvNewVal
DO CASE
CASE ISNULL(m.tvNewVal) AND (NOT THIS.isRunning)
   THIS.FFCGraphics = m.tvNewVal
CASE VARTYPE(m.tvNewVal) = "O"
   LOCAL laDummy[1]
   IF ACLASS(laDummy,m.tvNewVal) > 0 AND ;
      ASCAN(laDummy,"GpGraphics",1,ALEN(laDummy),1, 7) > 0 && case insensitive, exact on
      THIS.FFCGraphics = m.tvNewVal
   ENDIF
OTHERWISE
   * don't
ENDCASE
ENDPROC
PROCEDURE getmemberdatascriptfxobject
THIS.setFRXDataSession()
IF USED(THIS.memberDataAlias) AND ;
   RECCOUNT(THIS.memberDataAlias) > 0
   SELECT (THIS.memberDataAlias)
   LOCATE FOR (NOT EMPTY(Execute))
   IF NOT EOF()
      THIS.addCollectionMember(;
           THIS.fxMemberDataScriptClass,;
           THIS.fxMemberDataScriptClassLib,;
           THIS.fxMemberDataScriptModule, .T.)
      IF NOT THIS.checkCollectionForSpecifiedMember(;
           THIS.fxMemberDataScriptClass,;
           THIS.fxMemberDataScriptClassLib)
           THIS.DoMessage(OUTPUTFX_SCRIPTING_UNAVAILABLE_LOC,MB_ICONEXCLAMATION)
      ENDIF
   ENDIF
   IF USED("FRX")
      SELECT FRX
   ENDIF
ENDIF
ENDPROC
PROCEDURE fxmemberdatascriptclass_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C" AND NOT EMPTY(m.vNewVal)
   THIS.fxMemberDataScriptClass = m.vNewVal
ENDIF
ENDPROC
PROCEDURE fxmemberdatascriptclasslib_assign
LPARAMETERS vNewVal
IF VARTYPE(m.vNewVal) = "C" AND NOT EMPTY(m.vNewVal)
   THIS.fxMemberDataScriptClassLib = m.vNewVal
ENDIF
ENDPROC
PROCEDURE fxmemberdatascriptmodule_assign
LPARAMETERS vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.fxMemberDataScriptModule = m.vNewVal
ENDIF
ENDPROC
PROCEDURE frxcursor_access
IF (NOT THIS.IsRunning) AND ;
   ISNULL(THIS.frxCursor) AND THIS.loadFRXCursor
   THIS.frxCursor = ;
      THIS.getObjectInstance("FRXCursor","_FRXCURSOR.VCX","", .T.,"frx", .T.)
   IF ISNULL(THIS.frxCursor)
      THIS.loadFRXCursor = .F.
   ELSE
      THIS.frxCursor.QuietMode = THIS.QuietMode
   ENDIF
ENDIF
RETURN THIS.frxCursor
ENDPROC
PROCEDURE frxcursor_assign
LPARAMETERS m.vNewVal
IF ISNULL(m.vNewVal) OR (NOT THIS.IsRunning)
   THIS.frxcursor = m.vNewVal
ENDIF
ENDPROC
PROCEDURE loadfrxcursor_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L" AND NOT THIS.IsRunning
   THIS.loadfrxcursor = m.vNewVal
ENDIF
ENDPROC
PROCEDURE memberdataalias_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C" AND NOT EMPTY(m.vNewVal)
   THIS.memberDataAlias = m.vNewVal
ENDIF
ENDPROC
PROCEDURE creatememberdatacursor
IF USED("FRX")
   SELECT FRX
   LOCATE FOR Platform = FRX_PLATFORM_WINDOWS AND NOT (EMPTY(Style) OR DELETED())
   IF  EOF()
      THIS.loadFrxCursor = .F.
   ELSE
      THIS.loadFRXCursor = .T.
      DO CASE
      CASE (NOT THIS.loadFRXCursor) OR ISNULL(THIS.FRXCursor)
         * message already taken care of
      CASE PEMSTATUS(THIS.FRXCursor,"UnpackFRXMemberdata",5)
         THIS.FRXCursor.UnpackFRXMemberData("FRX",THIS.memberDataAlias,THIS.FRXDataSession)
      OTHERWISE
         THIS.DoMessage(OUTPUTFX_SCRIPTING_UNAVAILABLE_LOC ,MB_ICONEXCLAMATION)
      ENDCASE
   ENDIF
ENDIF
ENDPROC
PROCEDURE runcollectorresetlevel_assign
LPARAMETERS tvNewVal
IF VARTYPE(m.tvNewVal) = "N" AND ;
   INLIST(m.tvNewVal,OUTPUTFX_RUNCOLLECTOR_RESET_NEVER , ;
                     OUTPUTFX_RUNCOLLECTOR_RESET_ONREPORT,;
                     OUTPUTFX_RUNCOLLECTOR_RESET_ONCHAIN)
   THIS.runCollectorResetLevel = m.tvNewVal
ENDIF
ENDPROC
PROCEDURE getfrxrecno
LPARAMETERS m.tcMethodToken,m.tP1, m.tP2
LOCAL m.liFRXRecno, m.liSession
m.liFRXRecno = 0
DO CASE
CASE INLIST(m.tcMethodToken,"BEFOREREPORT","AFTERREPORT","LOADREPORT","UNLOADREPORT")
   IF THIS.frxHeaderRecno = -1
      * this is an early call. find the value early if possible
      m.liSession = SET("DATASESSION")
      THIS.setFRXDataSession()
      IF USED("FRX")
         SELECT FRX
         LOCATE FOR ObjType = FRX_OBJTYP_REPORTHEADER AND ;
                    Platform = FRX_PLATFORM_WINDOWS AND ;
                    NOT DELETED()
         THIS.frxHeaderRecno = RECNO()
      ELSE
         THIS.frxHeaderRecno = 1
      ENDIF
      SET DATASESSION TO (m.liSession)
   ENDIF
   m.liFRXRecNo = THIS.frxHeaderRecno
CASE INLIST(m.tcMethodToken,"BEFOREBAND","AFTERBAND") AND ;
     VARTYPE(m.tP2) = "N" && Band events
   m.liFRXRecNo = m.tP2
CASE VARTYPE(m.tP1) = "N"  && Render, other events
   m.liFRXRecNo = m.tP1
OTHERWISE
   * called inappropriately
ENDCASE
RETURN  m.liFRXRecno
ENDPROC
PROCEDURE getrotategfxobject
THIS.setFRXDataSession()
IF USED(THIS.memberDataAlias) AND RECCOUNT(THIS.memberDataAlias) > 0
   SELECT (THIS.memberDataAlias)
   LOCATE FOR  Type = FRX_BLDR_MEMBERDATATYPE AND ;
               Name == FRX_BLDR_NAMESPACE_ROTATE AND ;
               NOT EMPTY(Execute)
   IF NOT EOF()
      THIS.addCollectionMember(;
           THIS.gfxRotateClass,;
           THIS.gfxRotateClassLib,;
           THIS.gfxRotateModule, .T., .T.)
      IF NOT THIS.checkCollectionForSpecifiedMember(;
           THIS.gfxRotateClass,;
           THIS.gfxRotateClassLib, .T.)
           THIS.DoMessage(OUTPUTFX_ROTATION_UNAVAILABLE_LOC,MB_ICONEXCLAMATION)
      ENDIF
   ENDIF
   IF USED("FRX")
      SELECT FRX
   ENDIF
ENDIF
ENDPROC
PROCEDURE gfxrotateclass_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C" AND NOT EMPTY(m.vNewVal)
   THIS.gfxRotateClass = m.vNewVal
ENDIF
ENDPROC
PROCEDURE gfxrotateclasslib_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C" AND NOT EMPTY(m.vNewVal)
   THIS.gfxRotateClassLib = m.vNewVal
ENDIF
ENDPROC
PROCEDURE gfxrotatemodule_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.gfxRotateModule = m.vNewVal
ENDIF
ENDPROC
PROCEDURE removecollectionmember
LPARAMETERS m.tcName, m.tlInGFX, m.tlNameIsClass
LOCAL m.liIndex, m.loXs, m.loX, m.llFound, m.lcName
IF EMPTY(m.tcName) OR VARTYPE(m.tcName) # "C"
   RETURN .F.
ENDIF
IF m.tlInGFX
  m.loXs = THIS.GFXs
   m.loXs = THIS.FXs
ENDIF
m.lcName = ALLTRIM(UPPER(m.tcName))
FOR m.liIndex = 1 TO m.loXs.Count
   m.loX = loXs.Item(liIndex)
   IF (UPPER(loX.Name) == m.lcName) OR ;
      (m.tlNameIsClass AND UPPER(loX.Class) == m.lcName)
       m.loXs.Remove(m.liIndex)
       m.llFound = .T.
       EXIT
   ENDIF
RETURN m.llFound
ENDPROC
PROCEDURE reportstoprundatetime_access
LOCAL m.lox, m.ldt
m.lox = THIS.checkCollectionForSpecifiedMember(;
      THIS.fxFeedbackClass, THIS.fxFeedbackClassLib,.F., .T.)
IF (NOT ISNULL(m.lox)) AND PEMSTATUS(m.lox,"reportStopRunDatetime",5)
   m.ldt = lox.reportStopRunDateTime
   m.ldt = THIS.reportStopRunDateTime
ENDIF
m.lox = NULL
RETURN m.ldt
ENDPROC
PROCEDURE reportstartrundatetime_access
LOCAL m.lox, m.ldt
m.lox = THIS.checkCollectionForSpecifiedMember(;
      THIS.fxFeedbackClass, THIS.fxFeedbackClassLib,.f., .t.)
IF (NOT ISNULL(m.lox)) AND PEMSTATUS(m.lox,"reportStartRunDatetime",5)
   m.ldt = m.lox.reportStartRunDateTime
   m.ldt = THIS.reportStartRunDateTime
ENDIF
m.lox = NULL
RETURN m.ldt
ENDPROC
PROCEDURE evaluateuserexpression
LPARAMETERS m.tvValueExpr
LOCAL m.liSession, m.lvValue
m.lvValue = ""
m.liSession = SET("DATASESSION")
THIS.setCurrentDataSession()
IF TYPE(m.tvValueExpr) # "U"
   m.lvValue = EVALUATE(m.tvValueExpr)
   THIS.setFRXDataSession()
   IF TYPE(m.tvValueExpr) # "U"
      m.lvValue = EVALUATE(m.tvValueExpr)
   ELSE
      THIS.resetDataSession()
      IF TYPE(m.tvValueExpr) # "U"
         m.lvValue = EVALUATE(m.tvValueExpr)
      ELSE
         IF TYPE ("THIS.CommandClauses.StartDatasession") = "N" AND ;
            THIS.CommandClauses.StartDatasession > 0 AND ;
            (THIS.CommandClauses.StartDatasession # THIS.ListenerDataSession)
            SET DATASESSION TO (THIS.CommandClauses.StartDataSession)
            IF TYPE(m.tvValueExpr) # "U"
               m.lvValue = EVALUATE(m.tvValueExpr)
            ENDIF
         ENDIF
      ENDIF
   ENDIF
ENDIF
SET DATASESSION TO (m.liSession)
RETURN m.lvValue
ENDPROC
PROCEDURE gfxnorenderclass_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.gfxNoRenderClass = m.vNewVal
ENDIF
ENDPROC
PROCEDURE gfxnorenderclasslib_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.gfxNoRenderClassLib = m.vNewVal
ENDIF
ENDPROC
PROCEDURE gfxnorendermodule_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.gfxNoRenderModule = m.vNewVal
ENDIF
ENDPROC
PROCEDURE getnorendergfxobject
IF NOT EMPTY(THIS.gfxNoRenderClass)
   LOCAL m.llNeedThisGFX, m.llOpenedMemberData
   THIS.setFRXDataSession()
   IF (NOT USED(THIS.memberDataAlias)) AND ;
      (NOT THIS.CommandClauses.IsDesignerLoaded) AND ;
      (NOT THIS.checkCollectionForSpecifiedMember(;
              THIS.gfxNoRenderClass,;
              THIS.gfxNoRenderClassLib, .T.))
      IF NOT USED("FRX") && during LoadReport
         IF FILE(THIS.CommandClauses.File)
            USE (THIS.CommandClauses.File) AGAIN SHARED NOUPDATE ALIAS FRX
            * this is a special situation, in that
            * this gfx needs to be available to do a swap
            * *before* memberdata is commonly available.
            * At this point, depending on what else has happened,
            * Memberdata may or may not be here. If it is not,
            * we could build the memberdata cursor here temporarily --
            * the gfx itself will do that, in fact -- but in this
            * method we're just ascertaining the requirement for
            * the gfx to *exist*.  This doesn't merit the extra time
            * to do an exact comparison of the appropriate memberdata
            * element.  If we might need it, the class should be
            * instantiated.  Let it do the special build of memberdata
            * later and do its evaluations at that time.
            LOCATE FOR  FRX_BLDR_ADVPROP_PREPROCESS_NORENDER $ Style ;
                        AND NOT DELETED()
            m.llNeedThisGFX = (NOT EOF())
            USE IN FRX
         ELSE
            * built-into another app, just load without the check
            m.llNeedThisGFX = .T.
         ENDIF
         IF m.llNeedThisGFX
            THIS.loadFrxCursor = .T.
         ENDIF
      ENDIF
   ENDIF
   IF (NOT m.llNeedThisGFX) AND ;
      USED(THIS.memberDataAlias) AND ;
      RECCOUNT(THIS.memberDataAlias) > 0
      * now we'll check in the normal way later in the report for
      * any required instance suppression, which occurs
      * later in the report cycle and can use the normal build
      * of memberdata
      SELECT (THIS.memberDataAlias)
      LOCATE FOR Type = FRX_BLDR_MEMBERDATATYPE AND ;
                 Name == FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
                 (ExecWhen == FRX_BLDR_ADVPROP_INSTANCE_NORENDER AND ;
                 NOT EMPTY(Execute))  OR ;
                 (ExecWhen == FRX_BLDR_ADVPROP_PREPROCESS_NORENDER)
      IF NOT EOF()
         m.llNeedThisGFX = .T.
      ENDIF
   ENDIF
   IF m.llNeedThisGFX
      THIS.addCollectionMember(;
           THIS.gfxNoRenderClass,;
           THIS.gfxNoRenderClassLib,;
           THIS.gfxNoRenderModule, .T., .T.)
      IF NOT THIS.checkCollectionForSpecifiedMember(;
           THIS.gfxNoRenderClass,;
           THIS.gfxNoRenderClassLib, .T.)
           THIS.DoMessage(OUTPUTFX_CONDITIONALRENDERING_UNAVAILABLE_LOC,MB_ICONEXCLAMATION)
      ENDIF
   ENDIF
   IF USED("FRX")
      SELECT FRX
   ENDIF
ENDIF
ENDPROC
PROCEDURE ensurecollection
LPARAMETERS m.tlGFXs
IF m.tlGFXs
   IF VARTYPE(THIS.GFXs) # "O" OR ;
      (NOT UPPER(THIS.GFXs.BaseClass) == "COLLECTION")
      THIS.GFXs = CREATEOBJECT("Collection")
   ENDIF
   IF VARTYPE(THIS.FXs) # "O" OR ;
      (NOT UPPER(THIS.FXs.BaseClass) == "COLLECTION")
      THIS.FXs = CREATEOBJECT("Collection")
   ENDIF
ENDIF
ENDPROC
PROCEDURE setgdiplusgraphics
LPARAMETERS tnHandle
IF VARTYPE(THIS.FFCGraphics) = "O"
   THIS.FFCGraphics.SetHandle(tnHandle)
ENDIF
This.sharedGdiplusGraphics = tnHandle
This.nExternalGdiPlusGfx   = tnHandle
* THIS.GDIPlusGraphics = tnHandle
ENDPROC
PROCEDURE CancelReport
IF THIS.FXs.Count > 0
   THIS.sendFX(PROGRAM())
   IF THIS.cancelRequested
      DODEFAULT()
   ELSE
      NODEFAULT
   ENDIF
   DODEFAULT()
ENDIF
ENDPROC
PROCEDURE Destroy
STORE NULL TO THIS.FXs, THIS.GFXs, THIS.FFCGraphics, ;
      THIS.FRXCursor
DODEFAULT()
ENDPROC
PROCEDURE Render
LPARAMETERS m.nFRXRecno, m.nLeft, m.nTop, m.nWidth, m.nHeight, ;
            m.nObjectContinuationType, m.cContentsToBeRendered, m.GDIPlusImage
LOCAL m.liDefaultBehavior,m.llNeedGFXs, m.lnState
LOCAL lhGfx
* lhGfx = IIF(This.GDIPlusGraphics > 0, This.GDIPlusGraphics, This.nExternalGdiPlusGfx)
lhGfx = This.GDIPlusGraphics
m.llNeedGFXs = (NOT THIS.IsSuccessor) AND THIS.GFXs.Count > 0 AND ;
               THIS.NeedGFXs(PROGRAM(),m.nFRXRecno, m.nLeft, m.nTop, m.nWidth, m.nHeight, ;
               m.nObjectContinuationType, m.cContentsToBeRendered, m.GDIPlusImage) ;
               AND (lhGfx > 0)
IF m.llNeedGFXs
   THIS.FFCGraphics.SetHandle(lhGfx)
   * done in BeforeBand for the page header
   * for GFX objects, in case they (for any reason) choose to
   * manipulate the page in other methods than Render.
   * but we'll do it again here.
   THIS.FFCGraphics.Save(@m.lnState)
ENDIF

m.liDefaultBehavior = ;
    THIS.sendFX(PROGRAM(),m.nFRXRecNo,;
                @m.nLeft,@m.nTop,@m.nWidth,@m.nHeight,;
                @m.nObjectContinuationType, ;
                @m.cContentsToBeRendered, @m.GDIPlusImage)
NODEFAULT
* note that FX objects get the args passed by reference,
* however the GFX objects
* should not be seeking to change these args and
* receive the args passed by value. Their
* job is to draw, not to change what is drawn by others or the base.

DO CASE

CASE m.llNeedGFXs AND ;
     m.liDefaultBehavior = OUTPUTFX_BASERENDER_RENDER_BEFORE_RESTORE

     DODEFAULT( m.nFRXRecno, m.nLeft, m.nTop, m.nWidth, m.nHeight, ;
            m.nObjectContinuationType, m.cContentsToBeRendered, m.GDIPlusImage)
     THIS.FFCGraphics.Restore(m.lnState)
CASE m.llNeedGFXs AND ;
     m.liDefaultBehavior >= OUTPUTFX_BASERENDER_NORENDER
     THIS.FFCGraphics.Restore(m.lnState)
     IF (NOT ISNULL(THIS.Successor))
        THIS.SetSuccessorDynamicProperties()
        THIS.Successor.Render(m.nFRXRecno, m.nLeft, m.nTop, m.nWidth, m.nHeight, ;
             m.nObjectContinuationType, m.cContentsToBeRendered, m.GDIPlusImage)
     ENDIF

CASE m.llNeedGFXs && OUTPUTFX_BASERENDER_AFTERRESTORE, ;
                  && OUTPUTFX_DEFAULT_RENDER_BEHAVIOR
     THIS.FFCGraphics.Restore(m.lnState)
     DODEFAULT( m.nFRXRecno, m.nLeft, m.nTop, m.nWidth, m.nHeight, ;
                m.nObjectContinuationType, m.cContentsToBeRendered, m.GDIPlusImage)
OTHERWISE  && no GFX behavior at all, just base behavior
     DODEFAULT( m.nFRXRecno, m.nLeft, m.nTop, m.nWidth, m.nHeight, ;
                m.nObjectContinuationType, m.cContentsToBeRendered, m.GDIPlusImage)
ENDCASE
RETURN m.liDefaultBehavior
ENDPROC
PROCEDURE AdjustObjectSize
LPARAMETERS m.nFRXRecno, m.oObjProperties
THIS.sendFX(PROGRAM(),m.nFRXRecno, m.oObjProperties)
NODEFAULT
IF (NOT ISNULL(THIS.Successor))
   THIS.SetSuccessorDynamicProperties()
   THIS.Successor.AdjustObjectSize(m.nFRXRecno, m.oObjProperties)
ENDIF
DODEFAULT(m.nFRXRecno, m.oObjProperties)
ENDPROC
PROCEDURE EvaluateContents
LPARAMETERS m.nFRXRecno, m.oObjProperties
THIS.sendFX(PROGRAM(),m.nFRXRecno, m.oObjProperties)
NODEFAULT
IF (NOT ISNULL(THIS.Successor))
   THIS.SetSuccessorDynamicProperties()
   THIS.Successor.EvaluateContents(m.nFRXRecno, m.oObjProperties)
ENDIF
DODEFAULT(m.nFRXRecno, m.oObjProperties)
ENDPROC
PROCEDURE AfterBand
LPARAMETERS m.nBandObjCode, m.nFRXRecNo
THIS.sendFX(PROGRAM(),m.nBandObjCode, m.nFRXRecNo)
NODEFAULT
RETURN DODEFAULT(m.nBandObjCode, m.nFRXRecNo)
ENDPROC
PROCEDURE BeforeBand
LPARAMETERS m.nBandObjCode, m.nFRXRecNo
IF m.nBandObjCode = FRX_OBJCOD_PAGEHEADER  ;
   AND THIS.GFXs.Count > 0
   THIS.FFCGraphics.SetHandle(THIS.GDIPlusGraphics)
ENDIF
THIS.sendFX(PROGRAM(),m.nBandObjCode, m.nFRXRecNo)
NODEFAULT
RETURN DODEFAULT(m.nBandObjCode, m.nFRXRecNo)
ENDPROC
PROCEDURE UnloadReport
THIS.sendFX(PROGRAM())
THIS.CommandClauses.File = THIS.commandClausesFile
THIS.commandClausesFile = NULL
RETURN DODEFAULT()
ENDPROC
PROCEDURE AfterReport
THIS.sendFX(PROGRAM())
NODEFAULT
RETURN DODEFAULT()
ENDPROC
PROCEDURE BeforeReport
THIS.setFRXDataSession()
IF (NOT THIS.IsSuccessor)
   THIS.createMemberDataCursor()
   IF NOT ISNULL(THIS.successor)
      THIS.successor.AddProperty("memberDataAlias",THIS.memberDataAlias)
   ENDIF
ENDIF
* second opportunity to create FX and GFX objects,
* in case some are needed that were not needed before:
THIS.checkCollectionMembers(.T.)
* second opportunity to create non-optional helper members,
* in case some are needed that were not needed before,
* Any items that would have been required for
* FX/GFX-specific use should already have been created during
* LoadReport, so this set of calls is "backwards"
* from LoadReport pairing:
THIS.createHelperObjects(.T.)
* note: at this point,
* the FX and GFX objects have
* an opportunity to
* adjust items such as CallAdjustObjectSize, CallEvaluateContents, TwoPassProcess
THIS.sendFX(PROGRAM())
NODEFAULT
RETURN DODEFAULT()
ENDPROC
PROCEDURE LoadReport
* always start with full reset for this run:
THIS.CallAdjustObjectSize = LISTENER_CALLDYNAMICMETHOD_NEVER
THIS.CallEvaluateContents = LISTENER_CALLDYNAMICMETHOD_NEVER
THIS.commandClausesFile = THIS.CommandClauses.File
* see notes in BeforeReport
THIS.setFRXDataSessionEnvironment()
THIS.createHelperObjects()
THIS.checkCollectionMembers()
THIS.sendFX(PROGRAM())
*!*    Fix by Cathy Pountney
*!*    http://cathypountney.blogspot.com/2009/04/set-talk-appears-to-be-on-when-running.html
* Modify the fxListener class of the _ReportListener class library and change the code in
* the LoadReport method.
* Simply move This.setFRXDataSessionEnvironment() so it comes before This.createHelperObjects()
* and the problem is solved.
* Original code:
*!*    THIS.createHelperObjects()
*!*    THIS.checkCollectionMembers()
*!*    THIS.setFRXDataSessionEnvironment()
*!*    THIS.sendFX(PROGRAM())
NODEFAULT
RETURN DODEFAULT() && these changes can be passed on to successors
ENDPROC
PROCEDURE Init
IF DODEFAULT()
   THIS.AppName = OUTPUTFX_APPNAME_LOC
   THIS.Name = "FX" + SYS(2015)
   THIS.createHelperObjects()
   *&* THIS.getFeedbackFXObject(.T.)
   RETURN .F.
ENDIF
RETURN NOT THIS.hadError
ENDPROC
PROCEDURE DoStatus
LPARAMETERS m.cMessage
THIS.sendFX(PROGRAM(),m.cMessage)
NODEFAULT
ENDPROC
PROCEDURE UpdateStatus
THIS.sendFX(PROGRAM())
NODEFAULT
ENDPROC
PROCEDURE resetcalladjustobjectsize
* abstract, note that fx and gfx objects already
* have an opportunity via sendFX call.
ENDPROC
PROCEDURE resetcallevaluatecontents
* abstract, note that fx and gfx objects already
* have an opportunity via sendFX call.
ENDPROC
PROCEDURE ClearStatus
THIS.sendFX(PROGRAM())
ENDPROC
PROCEDURE quietmode_assign
LPARAMETERS m.vNewVal
DODEFAULT(m.vNewVal)
IF THIS.loadFRXCursor AND (NOT ISNULL(THIS.FRXCursor))
   THIS.FRXCursor.QuietMode = THIS.QuietMode
ENDIF
IF NOT ISNULL(THIS.FFCGraphics)
   THIS.FFCGraphics.QuietOnError = THIS.QuietMode
ENDIF
ENDPROC
PROCEDURE getdefaultuserxsltasstring
LOCAL m.lcResult
SET TEXTMERGE TO MEMVAR m.lcResult NOSHOW
SET TEXTMERGE ON
*!* -------------------------------------------------------------------
*!* -------------------------------------------------------------------
*!* -------------------------------------------------------------------
*!* 2011-08-12 - Jacques Parent
*!* -------------------------------------------------------------------
*!* The following text have been modified to let boxes that print from
*!* header to footer can print correctly.
*!* -------------------------------------------------------------------
*!* Changes (This is pretty complicated...)
*!*     - Classe "getCSSName" have been modified to add an "itemType"
*!*          to the class name:  T = TOP; M = Middle; B = Bottom;
*!*          Default:  do not add anything.
*!*        - New clases "shapestylesT", "shapestylesM" and "shapestylesB"
*!*       have been created:
*!*         shapestylesT:  Print only top, left and right lines
*!*         shapestylesM:  Print left and right lines
*!*         shapestylesB:  Print only bottom, left and right lines
*!*        - "Render" class have been modified to add a "T", "M" or "B"
*!*          to the boxes' class depending of the "@c" variable,
*!*       containing the "continuation" information (0 = complete;
*!*          (1 = Top; 2 = Middle; 3 = Bottom)
*!* -------------------------------------------------------------------
*!* I am hoping that this change do not cause problems elseware...  It
*!* is a pain do search in that text when you have never heard of xsl
*!* or Microsoft DOM...  but I've managed for this time.  So let's hope! :)
*!* -------------------------------------------------------------------
*!* -------------------------------------------------------------------
*!* -------------------------------------------------------------------
<?xml version="1.0"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
  <xsl:output method="html" version="1.0" encoding="UTF-8" indent="no" doctype-public="-//W3C//DTD HTML 4.0//EN" doctype-system="http://www.w3.org/TR/REC-html40/strict.dtd"/>
  <xsl:param name="externalFileLocation"/>
  <!--select="'./whatever/'" or 'http://something/myimages/' or "'./'" or... -->
  <xsl:param name="copyImageFiles" select="0"/>
  <xsl:param name="generalFieldDPI" select="96"/>
  <xsl:param name="fillPatternShade" select="180*3"/>
  <xsl:param name="fillPatternOffset" select="128"/>
  <xsl:param name="numberPrecision" select="5"/>
  <xsl:param name="fieldAlphaOpacityOffset" select="75"/>
  <xsl:param name="fieldAlphaOpacityShade" select="180*3"/>
  <xsl:param name="useTextAreaForStretchingText" select="1"/>
  <xsl:param name="hideScrollbarsForTextAreas" select="0"/>
  <xsl:param name="PageTitlePrefix_LOC" select="''"/>
<!--    <xsl:param name="unpagedModeIncludesOnePageHeader" select="0"/> -->
  <xsl:param name="unpagedModeIncludesTitle" select="1"/>
  <xsl:param name="noBody" select="0"/>
  <xsl:param name="useDynamicTextAttributes" select="1"/>
  <xsl:param name="anchorAttrName" select="1"/>
  <!-- id is theoretically better if you wanted to write
   script against this element, or in case name is
   deprecated in a future version of the standard,
   but a value of 1 forces name to be used instead.
   Current-newer browsers will be okay with this, and older
   browsers might prefer it. -->
  <xsl:variable name="FRUs" select="10000"/>
  <xsl:variable name="printDPI" select="960"/>
  <xsl:variable name="FRUsInPixelsat96DPI" select="104.167"/>
  <xsl:variable name="imagePixelRatio" select="$generalFieldDPI div $printDPI"/>
  <xsl:variable name="zeros" select="substring('0000000000000000000000000',1,$numberPrecision)"/>
  <xsl:variable name="thisPageHeight">
    <xsl:value-of select="number(/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXPrintJob/@pageheight  div $printDPI)"/>
  </xsl:variable>
  <xsl:variable name="lineNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=6]/name"/>
  <xsl:variable name="labelNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=5]/name"/>
  <xsl:variable name="fieldNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=8]/name"/>
  <xsl:variable name="shapeNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=7]/name"/>
  <xsl:variable name="pictureNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=17]/name"/>
  <xsl:variable name="detailNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=4]/name"/>
  <xsl:variable name="detailHeaderNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=9]/name"/>
  <xsl:variable name="detailFooterNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=10]/name"/>
  <xsl:variable name="pageHeaderNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=1]/name"/>
  <xsl:variable name="pageFooterNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=7]/name"/>
  <xsl:variable name="columnHeaderNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=2]/name"/>
  <xsl:variable name="columnFooterNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=6]/name"/>
  <xsl:variable name="groupHeaderNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=3]/name"/>
  <xsl:variable name="groupFooterNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=5]/name"/>
  <xsl:variable name="titleNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=0]/name"/>
  <xsl:variable name="summaryNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=8]/name"/>
  <xsl:variable name="anchorAttr">
  <xsl:choose>
  <xsl:when test="$anchorAttrName=1">name</xsl:when>
  <xsl:otherwise>id</xsl:otherwise>
  </xsl:choose>
  </xsl:variable>
  <xsl:key name="Layout" match="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[platform='WINDOWS']" use="concat(frxrecno,../../@id)"/>
  <xsl:template match="/">
      <xsl:choose>
        <xsl:when test="number($noBody)=1">
        <div>
         <meta http-equiv="Content-Type"  content="text/html; charset=UTF-8"/>
          <xsl:call-template name="renderStyles"/>
          <xsl:call-template name="body"/>
         </div>
        </xsl:when>
        <xsl:otherwise>
          <xsl:apply-templates select="/" mode="full"/>
        </xsl:otherwise>
      </xsl:choose>
  </xsl:template>
  <xsl:template match="/" mode="full">
    <html>
       <xsl:if test="/Reports/VFP-Report[1]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=1 and (fontcharset=177 or fontcharset=178)]">
       <xsl:attribute name="dir">rtl</xsl:attribute>
       </xsl:if>
      <head>
        <meta  http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<xsl:comment>
the above repeated-explicit declaration is necessary because
some versions of MSXML xslt processing don't include the
charset as required by the XSLT standard when method="html".
Explicitly including the META creates a doubled meta content-type tag,
but we do need the encoding to be specified properly and the doubled tag is okay.
</xsl:comment>
        <meta name="description"
content="{/Reports/VFP-Report[1]/Run/property[@id='description']/.}"/>
        <meta name="author"
content="{/Reports/VFP-Report[1]/Run/property[@id='author']/.}"/>
        <meta name="copyright"
content="{/Reports/VFP-Report[1]/Run/property[@id='copyright']/.}"/>
        <meta name="date"
content="{/Reports/VFP-Report[1]/Run/property[@id='date']/.}"/>
        <xsl:if test="/Reports/VFP-Report/Run/property[@id='keywords']">
        <meta name="keywords">
        <xsl:attribute name="content">
         <xsl:for-each select="/Reports/VFP-Report/Run/property[@id='keywords']">
         <xsl:value-of select="."/><xsl:if test="not(position()=last())">,</xsl:if>
        </xsl:for-each>
        </xsl:attribute>
        </meta>
        </xsl:if>
        <xsl:if test="/Reports/VFP-Report/Run/property[@id='http-equiv']">
            <xsl:for-each select="/Reports/VFP-Report/Run/property[@id='http-equiv']//meta">
          <xsl:variable name="thisMeta" select="concat(ancestor-or-self::*[@id='http-equiv']/@id ,'.',@name)"/>
          <!-- the extra Run nodes being looked up are potentially evaluated, not original values of the property,
          so we can account for expressions -->
          <meta  http-equiv="{@name}" content="{/Reports/VFP-Report/Run/property[@id=$thisMeta]}"/>
          </xsl:for-each>
        </xsl:if>
        <title>
          <xsl:choose>
          <xsl:when test="/Reports/VFP-Report[1]/Run/property[@id='title']">
            <xsl:value-of select="/Reports/VFP-Report[1]/Run/property[@id='title']/."/>
          </xsl:when>
          <xsl:otherwise>
            <!-- default/VFP 9.0 RTM handling -->
             <xsl:value-of select="$PageTitlePrefix_LOC"/>
             <xsl:if test="string-length(/Reports/VFP-Report[1]/VFP-RDL/VFPDataSet/VFPFRXPrintJob/@name) = 0">
               <xsl:value-of select="/Reports/VFP-Report[1]/VFP-RDL/@id"/>
             </xsl:if>
             <xsl:value-of select="/Reports/VFP-Report[1]/VFP-RDL/VFPDataSet/VFPFRXPrintJob/@name"/>
          </xsl:otherwise>
          </xsl:choose>
        </title>
        <xsl:call-template name="renderStyles"/>
      </head>
      <body>
        <xsl:call-template name="body"/>
      </body>
    </html>
  </xsl:template>
  <xsl:template name="renderStyles">
     <xsl:call-template name="DocumentStyles"/>
    <xsl:for-each select="/Reports/VFP-Report">
      <xsl:call-template name="Styles">
        <xsl:with-param name="thisReport" select="position()"/>
        <xsl:with-param name="thisReportID" select="./VFP-RDL/@id"/>
      </xsl:call-template>
      <!--        <xsl:call-template name="Script"/> avoid security problems: no script, not even a lone comment indicating TBD -->
    </xsl:for-each>
  </xsl:template>
  <xsl:template name="body">
    <xsl:for-each select="/Reports/VFP-Report">
      <xsl:variable name="thisReport" select="position()"/>
      <xsl:variable name="thisReportID" select="./VFP-RDL/@id"/>
      <xsl:variable name="thisReportRangeFrom" select="number(./VFP-RDL/VFPDataSet/VFPFRXCommand/@RANGEFROM)"/>
      <xsl:variable name="separateTitlePage" select="./Data/*[name()=$titleNodeName] and ./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandtype='0' and pagebreak='true']"/>
      <xsl:variable name="separateSummaryPage" select="./Data/*[name()=$summaryNodeName] and ./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandtype='8' and pagebreak='true' and ejectbefor='false']"/>
      <xsl:variable name="reportPages" select="count(./Data/*[(name()=$pageHeaderNodeName) or (name()=$titleNodeName and $separateTitlePage=true()) or  (name()=$summaryNodeName and $separateSummaryPage=true())])"/>
      <div>
        <xsl:if test="number($noBody)=1">
          <xsl:attribute name="style">
               position=relative;height=<xsl:value-of select="$reportPages * $thisPageHeight"/>in;
               </xsl:attribute>
        </xsl:if>
        <xsl:choose>
          <xsl:when test="./Data/*[name() = $pageHeaderNodeName]">
            <xsl:if test="$separateTitlePage">
              <xsl:apply-templates select="./Data/*[name()=$titleNodeName]" mode="titlesummarypage">
                <xsl:with-param name="thisReport" select="$thisReport"/>
                <xsl:with-param name="thisReportID" select="$thisReportID"/>
              </xsl:apply-templates>
            </xsl:if>
            <xsl:apply-templates select="./Data/*[name()=$pageHeaderNodeName]" mode="page">
              <xsl:with-param name="thisReport" select="$thisReport"/>
              <xsl:with-param name="thisReportID" select="$thisReportID"/>
              <xsl:with-param name="thisReportRangeFrom" select="$thisReportRangeFrom"/>
            </xsl:apply-templates>
            <xsl:if test="$separateSummaryPage">
              <xsl:apply-templates select="./Data/*[name()=$summaryNodeName]" mode="titlesummarypage">
                <xsl:with-param name="thisReport" select="$thisReport"/>
                <xsl:with-param name="thisReportID" select="$thisReportID"/>
              </xsl:apply-templates>
            </xsl:if>
          </xsl:when>
          <xsl:otherwise>
            <!-- unpaginated-->
            <xsl:variable name="thisPageHeaderHeight" select="/Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Header'][1]/height  div $FRUs"/>
            <xsl:variable name="thisReportPageHeight" select="number($thisPageHeight - ( $thisPageHeaderHeight +  (/Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Footer'][1]/height div $FRUs)) )"/>
            <xsl:if test="./Data/Pages/*[name() = $pageHeaderNodeName]"> <!-- $unpagedModeIncludesOnePageHeader=1" -->
              <!-- show the contents of the first page header -->
              <xsl:apply-templates mode="formattingBand" select="./Data/Pages/*[@idref = /Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Header']/frxrecno][1]">
                <xsl:with-param name="thisReport" select="$thisReport"/>
                <xsl:with-param name="thisReportID" select="$thisReportID"/>
                <xsl:with-param name="thisReportPageHeight" select="$thisReportPageHeight"/>
                <xsl:with-param name="thisPageHeight" select="$thisPageHeight"/>
              </xsl:apply-templates>
            </xsl:if>

            <!-- the @id criteria below leaves out the Pages and Columns collections, if any -->
            <!-- we could add in an initial page header but then we'd have to do the additional work to handle any title, etc; all the height offsets will change -->
            <xsl:apply-templates select="./Data/*[@idref and ($unpagedModeIncludesTitle=1 or not(name() = $titleNodeName))]" mode="unpagedBand">
              <xsl:with-param name="thisReport" select="$thisReport"/>
              <xsl:with-param name="thisReportID" select="$thisReportID"/>
              <xsl:with-param name="thisPageHeight" select="$thisPageHeight"/>
              <xsl:with-param name="thisReportPageHeight" select="$thisReportPageHeight"/>
              <xsl:with-param name="thisPageHeaderHeight" select="$thisPageHeaderHeight"/>
            </xsl:apply-templates>
          </xsl:otherwise>
        </xsl:choose>
      </div>
    </xsl:for-each>
  </xsl:template>
  <xsl:template match="/Reports/VFP-Report/Data/*" mode="titlesummarypage">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:param name="thisReportRangeFrom" select="1"/>
    <xsl:variable name="thisBand" select="@id"/>
    <div>
      <xsl:attribute name="style"> width:100%;top:<xsl:value-of select="$thisPageHeight * (number( ./@idref) -$thisReportRangeFrom)"/>in; position:absolute; </xsl:attribute>
      <xsl:apply-templates select="." mode="band">
        <xsl:with-param name="thisReport" select="$thisReport"/>
        <xsl:with-param name="thisReportID" select="$thisReportID"/>
      </xsl:apply-templates>
      <xsl:if test="/Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[frxrecno=$thisBand and ejectafter='true']">
        <!-- page footer for this summary page -->
        <xsl:apply-templates select="/Reports/VFP-Report[$thisReport]/Data/*[name()=$pageFooterNodeName][position()=last()]" mode="band">
          <xsl:with-param name="thisReport" select="$thisReport"/>
          <xsl:with-param name="thisReportID" select="$thisReportID"/>
        </xsl:apply-templates>
      </xsl:if>
    </div>
  </xsl:template>
  <xsl:template match="/Reports/VFP-Report/Data/*" mode="page">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:param name="thisReportRangeFrom" select="1"/>
    <xsl:variable name="thisPage" select="@id"/>
    <div>
      <xsl:attribute name="style"> width:100%;top:<xsl:value-of select="$thisPageHeight * ($thisPage -$thisReportRangeFrom)"/>in;position:absolute; </xsl:attribute>
      <xsl:apply-templates select="." mode="band">
        <xsl:with-param name="thisReport" select="$thisReport"/>
        <xsl:with-param name="thisReportID" select="$thisReportID"/>
      </xsl:apply-templates>
      <xsl:if test="$thisPage = 1 and /Reports/VFP-Report[$thisReport]/Data/*[name()=$titleNodeName] and /Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandtype='0' and pagebreak='false']">
        <xsl:apply-templates select="/Reports/VFP-Report[$thisReport]/Data/*[name()=$titleNodeName]" mode="band">
          <xsl:with-param name="thisReport" select="$thisReport"/>
          <xsl:with-param name="thisReportID" select="$thisReportID"/>
        </xsl:apply-templates>
      </xsl:if>
      <xsl:apply-templates select="/Reports/VFP-Report/Data/*[( (@id=$thisPage and contains(concat('|',$pageFooterNodeName,'|',$columnHeaderNodeName,'|',$columnFooterNodeName,'|'),concat('|',name(),'|'))) or (@idref=$thisPage and contains(concat('|',$detailHeaderNodeName,'|',$detailFooterNodeName,'|',$detailNodeName,'|',$groupHeaderNodeName,'|',$groupFooterNodeName,'|',$summaryNodeName,'|'),concat('|',name(),'|'))) )]" mode="band">
        <xsl:with-param name="thisReport" select="$thisReport"/>
        <xsl:with-param name="thisReportID" select="$thisReportID"/>
      </xsl:apply-templates>
    </div>
  </xsl:template>
  <xsl:template match="/Reports/VFP-Report/Data/Pages/*" mode="formattingBand">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:param name="thisPageHeight"/>
    <xsl:param name="thisReportPageHeight"/>
    <xsl:variable name="thisPage" select="@id"/>
    <xsl:variable name="thisPageRenderOffset" select="(($thisPage - 1) * $thisReportPageHeight)  + sum((/Reports/VFP-Report[position() < $thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Header']/height) ) "/>
    <xsl:for-each select="./*">
      <xsl:variable name="thisID" select="translate(@id,'+','')"/>
      <xsl:call-template name="Render">
        <xsl:with-param name="thisID" select="$thisID"/>
        <xsl:with-param name="thisZ" select="position()"/>
        <xsl:with-param name="thisPage" select="../@idref"/>
        <xsl:with-param name="thisReport" select="$thisReport"/>
        <xsl:with-param name="thisReportID" select="$thisReportID"/>
        <xsl:with-param name="topOffset" select="number($thisPageRenderOffset) * $printDPI"/>
      </xsl:call-template>
    </xsl:for-each>
  </xsl:template>
  <xsl:template match="/Reports/VFP-Report/Data/*" mode="unpagedBand">
      <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:param name="thisPageHeight"/>
    <xsl:param name="thisReportPageHeight"/>
    <xsl:param name="thisPageHeaderHeight"/>
    <xsl:variable name="thisPage" select="@idref"/>
    <xsl:variable name="thisPageRenderOffset">
      <xsl:choose>
        <xsl:when test="../Pages/*[name() = $pageHeaderNodeName]"> <!-- $unpagedModeIncludesOnePageHeader=1" -->
          <xsl:value-of select="(($thisPage - 1) * $thisReportPageHeight) + (sum(/Reports/VFP-Report[position() < $thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Header'][1]/height)div $FRUs)  + $thisPageHeaderHeight "/>
        </xsl:when>
        <xsl:otherwise>
          <xsl:value-of select="(($thisPage - 1) * $thisReportPageHeight) -($thisPageHeaderHeight*$thisPage)  "/>
        </xsl:otherwise>
      </xsl:choose>
    </xsl:variable>
    <xsl:call-template name="addAnchor"/>
    <xsl:for-each select="./*">
      <xsl:variable name="thisID" select="translate(@id,'+','')"/>
      <xsl:call-template name="Render">
        <xsl:with-param name="thisID" select="$thisID"/>
        <xsl:with-param name="thisZ" select="position()"/>
        <xsl:with-param name="thisPage" select="../@idref"/>
        <xsl:with-param name="thisReport" select="$thisReport"/>
        <xsl:with-param name="thisReportID" select="$thisReportID"/>
        <xsl:with-param name="topOffset" select="number($thisPageRenderOffset) * $printDPI"/>
      </xsl:call-template>
    </xsl:for-each>
  </xsl:template>
  <xsl:template match="/Reports/VFP-Report/Data/*" mode="band">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:call-template name="addAnchor"/>
    <xsl:for-each select="./*">
      <xsl:variable name="thisID" select="translate(@id,'+','')"/>
      <!--        <xsl:if test="key('Layout',concat($thisID, $thisReportID))/vpos > key('Layout',preceding-sibling::*/concat(@id,$thisReportID))/vpos"><div style="position=absolute;"/></xsl:if>  -->
      <xsl:call-template name="Render">
        <xsl:with-param name="thisID" select="$thisID"/>
        <xsl:with-param name="thisZ" select="position()"/>
        <xsl:with-param name="thisPage" select="../@idref"/>
        <xsl:with-param name="thisReport" select="$thisReport"/>
        <xsl:with-param name="thisReportID" select="$thisReportID"/>
      </xsl:call-template>
    </xsl:for-each>
  </xsl:template>
  <xsl:template name="Render">
    <xsl:param name="thisID"/>
    <xsl:param name="thisZ"/>
    <xsl:param name="thisPage"/>
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID" select="1"/>
    <xsl:param name="topOffset" select="0"/>
    <xsl:call-template name="addAnchor"/>
    <xsl:choose>
      <xsl:when test="name()=$lineNodeName and key('Layout',concat($thisID, $thisReportID))/height <  key('Layout',concat($thisID, $thisReportID))/width">
        <hr>
          <xsl:call-template name="addClassAttribute">
             <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID)"/>
        </xsl:call-template>
        <xsl:call-template name="addTitleAttribute"/>
          <xsl:call-template name="addStyleAttribute">
            <xsl:with-param name="topOffset" select="$topOffset"/>
            <xsl:with-param name="thisZ" select="$thisZ"/>
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
           <xsl:with-param name="thisID" select="$thisID"/>
           <xsl:with-param name="styleType" select="'HR'"/>
          </xsl:call-template>
        </hr>
      </xsl:when>
      <xsl:when test="name()=$lineNodeName">
        <!-- vertical line -->
        <span>
          <xsl:call-template name="addClassAttribute">
            <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID)"/>
        </xsl:call-template>
          <xsl:call-template name="addTitleAttribute"/>
          <xsl:call-template name="addStyleAttribute">
            <xsl:with-param name="topOffset" select="$topOffset"/>
            <xsl:with-param name="thisZ" select="$thisZ"/>
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
           <xsl:with-param name="thisID" select="$thisID"/>
              <xsl:with-param name="styleType" select="'VR'"/>
          </xsl:call-template>
        </span>
      </xsl:when>
      <xsl:when test="$useTextAreaForStretchingText=1 and string-length(@hlink) = 0  and name()=$fieldNodeName and key('Layout',concat($thisID, $thisReportID))[stretch='true']">
        <textarea readonly="readonly" rows="0" cols="0">
          <xsl:call-template name="addClassAttribute">
             <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID)"/>
        </xsl:call-template>
          <xsl:call-template name="addTitleAttribute"/>
          <xsl:call-template name="addStyleAttribute">
            <xsl:with-param name="topOffset" select="$topOffset"/>
            <xsl:with-param name="thisZ" select="$thisZ"/>
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
          <xsl:with-param name="thisID" select="$thisID"/>
          <xsl:with-param name="styleType" select="'TextArea'"/>
          </xsl:call-template>
          <xsl:value-of select="."/>
        </textarea>
      </xsl:when>
      <xsl:otherwise>
        <div>
           <xsl:choose>
             <xsl:when test="@c=1">
                <xsl:call-template name="addClassAttribute">
                   <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID,'T')"/>
                </xsl:call-template>
             </xsl:when>
             <xsl:when test="@c=2">
                <xsl:call-template name="addClassAttribute">
                   <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID,'M')"/>
                </xsl:call-template>
             </xsl:when>
             <xsl:when test="@c=3">
                <xsl:call-template name="addClassAttribute">
                   <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID,'B')"/>
                </xsl:call-template>
             </xsl:when>
             <xsl:otherwise>
                <xsl:call-template name="addClassAttribute">
                   <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID)"/>
                </xsl:call-template>
             </xsl:otherwise>
           </xsl:choose>
          <xsl:call-template name="addTitleAttribute"/>
          <xsl:call-template name="addStyleAttribute">
            <xsl:with-param name="topOffset" select="$topOffset"/>
            <xsl:with-param name="thisZ" select="$thisZ"/>
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
          <xsl:with-param name="thisID" select="$thisID"/>
          <xsl:with-param name="styleType" select="'Div'"/>
          </xsl:call-template>
          <xsl:choose>
            <xsl:when test="name()=$shapeNodeName or name()=$lineNodeName">
              <!-- nothing -->
            </xsl:when>
            <xsl:when test="name()=$pictureNodeName and string-length(@hlink) > 0">
              <a href="{@hlink}">
                <xsl:call-template name="renderPicture">
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
            <xsl:with-param name="thisID" select="$thisID"/>
                </xsl:call-template>
              </a>
            </xsl:when>
            <xsl:when test="name()=$pictureNodeName and string-length(@PLINK) > 0">
              <a href="{translate(@PLINK,'\','/')}"  target="blank">
                <xsl:call-template name="renderPicture">
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
            <xsl:with-param name="thisID" select="$thisID"/>
                </xsl:call-template>
              </a>
            </xsl:when>
            <xsl:when test="name()=$pictureNodeName">
              <xsl:call-template name="renderPicture">
            <xsl:with-param name="thisReportID" select="$thisReportID"/>
            <xsl:with-param name="thisID" select="$thisID"/>
              </xsl:call-template>
            </xsl:when>
            <xsl:when test="string-length(@hlink) > 0">
              <a href="{@hlink}">
                <xsl:call-template name="replaceText"/>
              </a>
            </xsl:when>
            <xsl:when test="string-length(@PLINK) > 0">
              <a href="{translate(@PLINK,'\','/')}" target="blank">
                <xsl:call-template name="replaceText"/>
              </a>
            </xsl:when>
            <xsl:otherwise>
              <xsl:call-template name="replaceText"/>
            </xsl:otherwise>
          </xsl:choose>
        </div>
      </xsl:otherwise>
    </xsl:choose>
    <!-- /xsl:if -->
  </xsl:template>
  <xsl:template name="getCSSName">
  <xsl:param name="thisReport" select="1"/>
  <xsl:param name="thisItem" select="0"/>
  <xsl:param name="itemType" select="''"/>
  <xsl:param name="firstPass" select="1"/>
  <xsl:variable name="subst" select="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$thisItem]/@css"/>
    <xsl:choose>
     <xsl:when test="number($firstPass)=1 or string-length($subst) = 0"><xsl:value-of select="concat('.FRX',$thisReport,'_',$thisItem,$itemType)"/></xsl:when>
     <xsl:otherwise>.<xsl:value-of select="$subst"/></xsl:otherwise>
     </xsl:choose>
  </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="imagestyles">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
     <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
  position: absolute;overflow: hidden;width: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;height: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="height div $FRUs"/></xsl:call-template>in;
  <!-- <xsl:if test="offset=0">
left: <xsl:value-of select="hpos div $FRUs"/>in;
</xsl:if>
<xsl:if test="offset=2">
left: <xsl:value-of select="hpos div $FRUs"/>in;
</xsl:if> -->
 </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="shapestyles">
   <xsl:param name="thisReport" select="1"/>
   <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
     <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
       position: absolute ;font-size:1pt; border: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;<xsl:if test="(mode=0 and not(fillpat=0)) or (mode=1 and fillpat=1)">background-color:<xsl:call-template name="fillcolor"/>;</xsl:if>width: <xsl:call-template name="setPrecision"> <xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;left: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="hpos div $FRUs"/></xsl:call-template>in;
      }
      <!--    <xsl:if test="stretch='true'">
overflow: auto;
   </xsl:if> -->
  </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="shapestylesT">
    <xsl:param name="thisReport" select="1"/>
   <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
     <xsl:with-param name="itemType" select="'T'"/>
     <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
   position: absolute ;font-size:1pt; border-left: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-right: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-top: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;<xsl:if test="(mode=0 and not(fillpat=0)) or (mode=1 and fillpat=1)">background-color:<xsl:call-template name="fillcolor"/>;</xsl:if>width: <xsl:call-template name="setPrecision"> <xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;left: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="hpos div $FRUs"/></xsl:call-template>in;
      }
      <!--    <xsl:if test="stretch='true'">
overflow: auto;
   </xsl:if> -->
  </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="shapestylesM">
    <xsl:param name="thisReport" select="1"/>
   <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
     <xsl:with-param name="itemType" select="'M'"/>
     <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
   position: absolute ;font-size:1pt; border-left: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-right: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;<xsl:if test="(mode=0 and not(fillpat=0)) or (mode=1 and fillpat=1)">background-color:<xsl:call-template name="fillcolor"/>;</xsl:if>width: <xsl:call-template name="setPrecision"> <xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;left: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="hpos div $FRUs"/></xsl:call-template>in;
      }
      <!--    <xsl:if test="stretch='true'">
overflow: auto;
   </xsl:if> -->
  </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="shapestylesB">
    <xsl:param name="thisReport" select="1"/>
   <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
     <xsl:with-param name="itemType" select="'B'"/>
     <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
   position: absolute ;font-size:1pt; border-left: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-right: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-bottom: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;<xsl:if test="(mode=0 and not(fillpat=0)) or (mode=1 and fillpat=1)">background-color:<xsl:call-template name="fillcolor"/>;</xsl:if>width: <xsl:call-template name="setPrecision"> <xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;left: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="hpos div $FRUs"/></xsl:call-template>in;
      }
      <!--    <xsl:if test="stretch='true'">
overflow: auto;
   </xsl:if> -->
  </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="textstyles">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
     <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
  <xsl:call-template name="getTextAlignment"/>vertical-align: top; font-family: "<xsl:value-of select="fontface"/>"; font-size: <xsl:value-of select="fontsize"/>pt; border: 0px none; padding: 0px; margin: 0px;<xsl:call-template name="getFontAttributes"/>color:<xsl:call-template name="pencolor"/>;<xsl:choose>
      <xsl:when test="mode mod 2 = 1">background-color:transparent;</xsl:when>
      <xsl:otherwise>background-color: <xsl:call-template name="fillcolor"/>;</xsl:otherwise>
    </xsl:choose><xsl:choose>
      <xsl:when test="stretch='true' and objtype=8 and $useTextAreaForStretchingText=1 and $hideScrollbarsForTextAreas=1"> overflow:hidden;margin-top:4px;</xsl:when>
      <xsl:when test="stretch='true' and objtype=8 and $useTextAreaForStretchingText=1"> overflow: auto;margin-top:4px;</xsl:when>
      <xsl:otherwise>overflow:hidden;</xsl:otherwise>
    </xsl:choose> position: absolute;
   }
    <!-- tbd, make vertical-align more dynamic -->
  </xsl:template>
  <xsl:template match="VFPFRXLayoutObject" mode="linestyles">
    <xsl:param name="thisReport" select="1"/>
   <xsl:param name="firstPass" select="1"/>
     <xsl:call-template name="getCSSName">
     <xsl:with-param name="thisReport" select="$thisReport"/>
     <xsl:with-param name="thisItem" select="frxrecno"/>
      <xsl:with-param name="firstPass" select="$firstPass"/>
     </xsl:call-template>{
   position:absolute;font-size:1pt;border: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;left: <xsl:value-of select="hpos div $FRUs"/>in;
      <xsl:choose>
      <xsl:when test="height < width"> width: <xsl:value-of select="width div $FRUs"/>in;
  height: <xsl:value-of select="floor(height div $FRUsInPixelsat96DPI)"/>px; margin: 0px;</xsl:when>
      <xsl:otherwise>  height: <xsl:value-of select="height div $FRUs"/>in;
  width: <xsl:value-of select="floor(width div $FRUsInPixelsat96DPI)"/>px;  </xsl:otherwise>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="pattern">
    <xsl:choose>
      <xsl:when test="penpat=0"> none </xsl:when>
      <xsl:when test="penpat=1"> dotted </xsl:when>
      <xsl:when test="penpat=2"> dashed </xsl:when>
      <xsl:otherwise> solid </xsl:otherwise>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="pencolor">#<xsl:call-template name="getHexColorValue">
      <xsl:with-param name="theNumber" select="penred"/>
    </xsl:call-template>
    <xsl:call-template name="getHexColorValue">
      <xsl:with-param name="theNumber" select="pengreen"/>
    </xsl:call-template>
    <xsl:call-template name="getHexColorValue">
      <xsl:with-param name="theNumber" select="penblue"/>
    </xsl:call-template>
  </xsl:template>
  <xsl:template name="fillcolor">#<xsl:call-template name="getHexColorValue">
      <xsl:with-param name="theNumber" select="fillred"/>
      <xsl:with-param name="fill" select="1"/>
    </xsl:call-template>
    <xsl:call-template name="getHexColorValue">
      <xsl:with-param name="theNumber" select="fillgreen"/>
      <xsl:with-param name="fill" select="1"/>
    </xsl:call-template>
    <xsl:call-template name="getHexColorValue">
      <xsl:with-param name="theNumber" select="fillblue"/>
      <xsl:with-param name="fill" select="1"/>
    </xsl:call-template>
  </xsl:template>
  <xsl:template name="getFontAttributes">
    <xsl:param name="theStyles" select="0"/>
    <xsl:choose>
      <xsl:when test="fontbold='true'">font-weight: bold;</xsl:when>
      <xsl:otherwise>font-weight: normal;</xsl:otherwise>
    </xsl:choose>
    <xsl:if test="fontstrikethrough='true' or fontunderline='true'">text-decoration: <xsl:if test="fontstrikethrough='true'">line-through </xsl:if>
      <xsl:if test="fontunderline='true'">underline</xsl:if>;</xsl:if>
    <xsl:if test="fontitalic='true'">font-style: italic;</xsl:if>
  </xsl:template>
  <xsl:template name="getHexColorValue">
    <xsl:param name="theNumber" select="-1"/>
    <xsl:param name="fill" select="0"/>
    <xsl:variable name="useNumber">
      <xsl:choose>
        <xsl:when test="$fill=1 and fillpat > 1 and ((fillred+fillblue+fillgreen) < $fillPatternShade)">
          <xsl:choose>
            <xsl:when test="($fillPatternOffset + $theNumber) > 254">255</xsl:when>
            <xsl:otherwise>
              <xsl:value-of select="$fillPatternOffset + $theNumber"/>
            </xsl:otherwise>
          </xsl:choose>
        </xsl:when>
        <xsl:otherwise>
          <xsl:value-of select="$theNumber"/>
        </xsl:otherwise>
      </xsl:choose>
    </xsl:variable>
    <xsl:choose>
      <xsl:when test="$useNumber=-1 and $fill=1">FF</xsl:when>
      <xsl:when test="$useNumber=-1">00</xsl:when>
      <xsl:otherwise>
        <xsl:call-template name="getHexForNumber">
          <xsl:with-param name="theNumber" select="floor($useNumber div 16)"/>
        </xsl:call-template>
        <xsl:call-template name="getHexForNumber">
          <xsl:with-param name="theNumber" select="round($useNumber mod 16)"/>
        </xsl:call-template>
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="setPrecision">
    <xsl:param name="theNumber" select="-1"/>
    <xsl:choose>
      <xsl:when test="$numberPrecision = -1 or not(contains(string($theNumber),'.'))">
        <xsl:value-of select="$theNumber"/>
      </xsl:when>
      <xsl:when test="$numberPrecision > 0">
        <!--        <xsl:value-of select="concat(string(floor($theNumber)),'.',substring(substring-after(string($theNumber),'.'),1,$numberPrecision))"/>  -->
        <xsl:value-of select="format-number($theNumber,concat('##0.',$zeros))"/>
      </xsl:when>
      <xsl:when test="$numberPrecision=0">
        <xsl:value-of select="round($theNumber)"/>
      </xsl:when>
      <xsl:otherwise>
        <!-- shouldn't happen-->
        <xsl:value-of select="$theNumber"/>
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="getHexForNumber">
    <xsl:param name="theNumber" select="-1"/>
    <xsl:choose>
      <xsl:when test="$theNumber=-1">00</xsl:when>
      <xsl:when test="$theNumber < 10">
        <xsl:value-of select="$theNumber"/>
      </xsl:when>
      <xsl:when test="$theNumber = 10">A</xsl:when>
      <xsl:when test="$theNumber = 11">B</xsl:when>
      <xsl:when test="$theNumber = 12">C</xsl:when>
      <xsl:when test="$theNumber = 13">D</xsl:when>
      <xsl:when test="$theNumber = 14">E</xsl:when>
      <xsl:when test="$theNumber = 15">F</xsl:when>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="getTextAlignment">text-align:<xsl:choose>
      <xsl:when test="objtype=5"><!-- picture field empty for left (default), @I for centered and @J right -->
        <xsl:choose>
          <xsl:when test="string-length(picture) = 0">left;</xsl:when>
          <xsl:when test="contains(picture,'@J')">right;</xsl:when>
          <xsl:otherwise>center;</xsl:otherwise>
        </xsl:choose>
      </xsl:when>
      <xsl:otherwise>
        <xsl:choose>
          <xsl:when test="offset=0">left;</xsl:when>
          <xsl:when test="offset=1">right;</xsl:when>
          <xsl:otherwise>center;</xsl:otherwise>
        </xsl:choose>
      </xsl:otherwise>
    </xsl:choose>
    <!-- don't include direction at all if you want context -->
    <xsl:if test="mode < 4">direction:<xsl:choose>
        <xsl:when test="mode > 1">rtl;</xsl:when>
        <xsl:otherwise>ltr;</xsl:otherwise>
      </xsl:choose>
    </xsl:if>
  </xsl:template>
  <xsl:template name="ExternalStyleSheets">
    <xsl:param name="thisReportNode" select="/Reports/VFP-Report[1]"/>
    <xsl:param name="thisReportID" select="'this report'"/>
   <xsl:if test="count($thisReportNode/Run/property[@id='css_sheet']) > 0">
   <xsl:comment>
   External stylesheet(s) for <xsl:value-of select="$thisReportID"/>
   </xsl:comment>
   <xsl:for-each select="$thisReportNode/Run/property[@id='css_sheet']">
      <link type="text/css" href="{./text()}" rel="stylesheet"/>
   </xsl:for-each>
   </xsl:if>
  </xsl:template>
  <xsl:template name="DocumentStyles">
  <xsl:comment>Global document styles, if any</xsl:comment>
    <style type="text/css">
     <xsl:comment><xsl:if test="/Reports/VFP-Report[1]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=1 and (fontcharset=177 or fontcharset=178)]">
     <xsl:if test="number($noBody)!=1">html{direction:rtl;}
     body{direction:rtl;}</xsl:if>
     div{direction:rtl;}
     span{direction:rtl;}
     </xsl:if>
     </xsl:comment>
    </style>
  </xsl:template>
  <xsl:template name="Styles">
    <xsl:param name="thisReport" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:comment>
    Styles for report # <xsl:value-of select="$thisReport"/>  in this run,
    <xsl:value-of select="$thisReportID"/>
    </xsl:comment>
    <style type="text/css">
      <xsl:comment>
        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=6]" mode="linestyles">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>

      <xsl:for-each select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=6]">
        <xsl:variable name="frxrecno" select="frxrecno"/>
        <xsl:if test="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$frxrecno]/@css">
              <xsl:apply-templates select="." mode="linestyles">
              <xsl:with-param name="thisReport" select="$thisReport"/>
                 <xsl:with-param name="firstPass" select="0"/>
              </xsl:apply-templates>
        </xsl:if>
      </xsl:for-each>

        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]" mode="shapestyles">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>
        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]" mode="shapestylesT">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>
        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]" mode="shapestylesM">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>
        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]" mode="shapestylesB">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>
      <xsl:for-each select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]">
         <xsl:variable name="frxrecno" select="frxrecno"/>
        <xsl:if test="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$frxrecno]/@css">
              <xsl:apply-templates select="." mode="shapestyles">
                <xsl:with-param name="thisReport" select="$thisReport"/>
                <xsl:with-param name="firstPass" select="0"/>
              </xsl:apply-templates>
        </xsl:if>
      </xsl:for-each>
        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[contains('|5|8|',concat('|',./objtype,'|'))]" mode="textstyles">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>
      <xsl:for-each select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[contains('|5|8|',concat('|',./objtype,'|'))]">
        <xsl:variable name="frxrecno" select="frxrecno"/>
        <xsl:if test="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$frxrecno]/@css">
              <xsl:apply-templates select="." mode="textstyles">
              <xsl:with-param name="thisReport" select="$thisReport"/>
                 <xsl:with-param name="firstPass" select="0"/>
              </xsl:apply-templates>
        </xsl:if>
      </xsl:for-each>

        <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=17]" mode="imagestyles">
          <xsl:with-param name="thisReport" select="$thisReport"/>
        </xsl:apply-templates>
      <xsl:for-each select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=17]">
        <xsl:variable name="frxrecno" select="frxrecno"/>
        <xsl:if test="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$frxrecno]/@css">
              <xsl:apply-templates select="." mode="imagestyles">
              <xsl:with-param name="thisReport" select="$thisReport"/>
                 <xsl:with-param name="firstPass" select="0"/>
              </xsl:apply-templates>
        </xsl:if>
      </xsl:for-each>
      </xsl:comment>
    </style>
   <xsl:call-template name="ExternalStyleSheets">
   <xsl:with-param name="thisReportNode" select="/Reports/VFP-Report[$thisReport]"/>
   <xsl:with-param name="thisReportID" select="$thisReportID"/>
   </xsl:call-template>
  </xsl:template>
  <xsl:template name="replaceText">
    <xsl:choose>
      <xsl:when test="$useTextAreaForStretchingText=1">
        <xsl:value-of select="."/>
      </xsl:when>
      <xsl:otherwise>
        <xsl:call-template name="replaceWhiteSpace">
          <xsl:with-param name="string" select="."/>
        </xsl:call-template>
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="renderPicture">
  <xsl:param name="thisReportID"/>
  <xsl:param name="thisID"/>
    <img>
      <xsl:attribute name="alt"><xsl:choose><xsl:when test="@alt"><xsl:value-of select="@alt"/></xsl:when><xsl:otherwise><xsl:value-of select="key('Layout',concat($thisID, $thisReportID))/unpathedimg"/></xsl:otherwise></xsl:choose></xsl:attribute>
      <xsl:variable name="srcImage">
   <xsl:choose>
          <xsl:when test="@img and $externalFileLocation">
            <xsl:value-of select="translate(concat($externalFileLocation,@img),'\','/')"/>
          </xsl:when>
          <xsl:when test="@img and not(contains(./@img,':'))">
               <xsl:value-of select="translate(@img,'\','/')"/>
          </xsl:when>
          <xsl:when test="@img">
            <xsl:value-of select="concat('file://',translate(@img,'\','/'))"/>
          </xsl:when>
          <xsl:when test="$copyImageFiles = '1'">
            <xsl:value-of select="translate(concat($externalFileLocation,key('Layout',concat($thisID, $thisReportID))/unpathedimg),'\','/')"/>
          </xsl:when>
          <xsl:when test="string-length(./text()) > 0 and not(contains(./text(),':')) ">
            <xsl:value-of select="translate(./text(),'\','/')"/>
          </xsl:when>
          <xsl:when test="string-length(./text()) > 0">
            <xsl:value-of select="concat('file://',translate(./text(),'\','/'))"/>
          </xsl:when>
          <xsl:otherwise>
            <xsl:value-of select="concat('file://',translate(key('Layout',concat($thisID, $thisReportID))/pathedimg,'\','/'))"/>
          </xsl:otherwise>
        </xsl:choose>
      </xsl:variable>
      <xsl:attribute name="src"><xsl:value-of select="$srcImage"/></xsl:attribute>
      <xsl:attribute name="style"><xsl:variable name="imgGeneral" select="key('Layout',concat($thisID, $thisReportID))"/><xsl:choose><xsl:when test="$imgGeneral/general='0' "><!-- clip top, right, bottom, left -->
 clip: rect(0in,<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@w div $printDPI"/></xsl:call-template>in,<xsl:value-of select="@h div $printDPI"/>in,0in);
 </xsl:when><xsl:when test="$imgGeneral/general='1'"><!-- scale and retain --><xsl:choose><xsl:when test="@h > @w">
 width:100%;
 </xsl:when><xsl:otherwise>
 height:100%;
 </xsl:otherwise></xsl:choose></xsl:when><xsl:otherwise><!-- stretch to fill frame -->
 height: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@h div $printDPI"/></xsl:call-template>in;
width: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@w div $printDPI"/></xsl:call-template>in;
 </xsl:otherwise></xsl:choose></xsl:attribute>
    </img>
  </xsl:template>
  <xsl:template name="addClassAttribute">
  <xsl:param name="item" select="."/>
  <xsl:param name="default" select="''"/>
  <xsl:attribute name="class"><xsl:choose>
  <xsl:when test="string-length($item/@CSS) > 0">
  <xsl:value-of select="$item/@CSS"/>
  </xsl:when>
  <xsl:when test="string-length($item/@css) = 0">
  <xsl:value-of select="$default"/>
  </xsl:when>
  <xsl:otherwise>
  <xsl:value-of select="$item/@css"/>
  </xsl:otherwise>
  </xsl:choose></xsl:attribute>
  </xsl:template>
  <xsl:template name="addTitleAttribute">
    <xsl:param name="item" select="."/>
    <xsl:if test="string-length($item/@title) > 0">
      <xsl:attribute name="title"><xsl:value-of select="$item/@title"/></xsl:attribute>
    </xsl:if>
  </xsl:template>
  <xsl:template name="addAnchor">
    <xsl:param name="item" select="."/>
    <xsl:if test="string-length($item/@anchor) > 0">
      <a>
     <xsl:attribute name="{$anchorAttr}"><xsl:value-of select="$item/@anchor"/></xsl:attribute>
        <xsl:text disable-output-escaping="yes">&nbsp;</xsl:text>
      </a>
    </xsl:if>
  </xsl:template>
  <xsl:template name="addStyleAttribute">
    <xsl:param name="topOffset" select="0"/>
    <xsl:param name="thisZ" select="1"/>
    <xsl:param name="thisReportID"/>
    <xsl:param name="thisID"/>
    <xsl:param name="styleType" select="'Div'"/>
<!-- do NOT mess around with the white space in here, even though it
looks ugly the way it is!! -->
<xsl:attribute name="style">z-Index:<xsl:value-of select="$thisZ"/>;left:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@l div $printDPI"/></xsl:call-template>in;
top:<xsl:choose>
  <xsl:when test="styleType='TextArea'"><xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="((@t  + $topOffset) div $printDPI) - .1"/></xsl:call-template></xsl:when>
  <xsl:otherwise><xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="(@t +$topOffset) div $printDPI"/></xsl:call-template></xsl:otherwise>
</xsl:choose>in;<xsl:choose>
  <xsl:when test="$styleType='VR'">width:0in;</xsl:when>
  <xsl:when test="$styleType='TextArea'">width:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@w div $printDPI"/></xsl:call-template>in;</xsl:when>
<xsl:when test="$styleType='Div'">width:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@w div $printDPI"/></xsl:call-template>in;height:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@h div $printDPI"/></xsl:call-template>in;</xsl:when></xsl:choose><xsl:if test="not($styleType='Div')">height:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@h div $printDPI"/></xsl:call-template>in;</xsl:if>
<xsl:if test="$useDynamicTextAttributes=1 and key('Layout',concat($thisID,$thisReportID))[objtype=5 or objtype=8]">
<xsl:call-template name="addDynamicTextStyleAttributes"/>
</xsl:if>
</xsl:attribute>
    </xsl:template>
    <xsl:template name="addDynamicTextStyleAttributes">
  <!-- dynamic values for font, omit these attributes if they don't appear on each object-->
  <xsl:if test="@FNAME">
    font-family:'<xsl:value-of select="@FNAME"/>';font-size:<xsl:value-of select="@FSIZE"/>pt;
    <xsl:if test="((@FSTYLE div 128) mod 2 = 1) or ( (@FSTYLE div 4) mod 2 = 1)">text-decoration:<xsl:if test="((@FSTYLE div 128) mod 2 = 1)">line-through</xsl:if><xsl:if test="( (@FSTYLE div 8) mod 2 = 1)">underline</xsl:if>;</xsl:if>
    font-weight:<xsl:choose><xsl:when test="@FSTYLE mod 2 = 1">bold</xsl:when><xsl:otherwise>normal</xsl:otherwise></xsl:choose>;
    font-style:<xsl:choose><xsl:when test="(@FSTYLE div 2) mod 2 =1">italic</xsl:when><xsl:otherwise>normal</xsl:otherwise></xsl:choose>;
   background-color:<xsl:call-template name="getAlphaColor">
   <xsl:with-param name="alpha" select="@FA"/>
   <xsl:with-param name="r" select="@FR"/>
   <xsl:with-param name="g" select="@FG"/>
   <xsl:with-param name="b" select="@FB"/>
   </xsl:call-template>;color:<xsl:call-template name="getAlphaColor"/>;
    </xsl:if>
    </xsl:template>
   <xsl:template name="getAlphaColor">
   <xsl:param name="alpha" select="@PA"/>
   <xsl:param name="r" select="@PR"/>
   <xsl:param name="g" select="@PG"/>
   <xsl:param name="b" select="@PB"/>
   <xsl:choose>
   <xsl:when test="$alpha=0">transparent</xsl:when>
   <xsl:when test="$alpha=255 or ($r+$g+$b > $fieldAlphaOpacityShade)"><xsl:value-of select="concat('rgb(',$r,',',$g,',',$b,')')"/></xsl:when>
   <xsl:otherwise><xsl:value-of select="concat('rgb(',$r+$fieldAlphaOpacityOffset,',',$g+$fieldAlphaOpacityOffset,',',$b+$fieldAlphaOpacityOffset,')')"/></xsl:otherwise>
   </xsl:choose>
   </xsl:template>
    <xsl:template name="replaceWhiteSpace">
    <xsl:param name="string" select="."/>
    <xsl:choose>
      <xsl:when test="contains($string,'
')">
        <xsl:call-template name="replaceWhiteSpace">
          <xsl:with-param name="string" select="substring-before($string, '
')"/>
        </xsl:call-template>
        <br/>
        <xsl:call-template name="replaceWhiteSpace">
          <xsl:with-param name="string" select="substring-after($string, '
')"/>
        </xsl:call-template>
      </xsl:when>
      <xsl:otherwise>
        <xsl:value-of select="$string"/>
      </xsl:otherwise>
    </xsl:choose>
  </xsl:template>
  <xsl:template name="Script">
    <script language="JavaScript">
      <xsl:comment>
     //TBD
      </xsl:comment>
    </script>
  </xsl:template>
  <xsl:template match="*|@*" mode="debug">
   <xsl:copy-of select="."/>
  </xsl:template>
</xsl:stylesheet>
ENDTEXT
SET TEXTMERGE OFF
SET TEXTMERGE TO
RETURN m.lcResult
*!*    LOCAL m.lcResult
*!*    SET TEXTMERGE TO MEMVAR m.lcResult NOSHOW
*!*    SET TEXTMERGE ON
*!*    *!* -------------------------------------------------------------------
*!*    *!* -------------------------------------------------------------------
*!*    *!* -------------------------------------------------------------------
*!*    *!* 2011-08-12 - Jacques Parent
*!*    *!* -------------------------------------------------------------------
*!*    *!* The following text have been modified to let boxes that print from
*!*    *!* header to footer can print correctly.
*!*    *!* -------------------------------------------------------------------
*!*    *!* Changes (This is pretty complicated...)
*!*    *!*     - Classe "getCSSName" have been modified to add an "itemType"
*!*    *!*          to the class name:  T = TOP; M = Middle; B = Bottom;
*!*    *!*          Default:  do not add anything.
*!*    *!*        - New clases "shapestylesT", "shapestylesM" and "shapestylesB"
*!*    *!*       have been created:
*!*    *!*         shapestylesT:  Print only top, left and right lines
*!*    *!*         shapestylesM:  Print left and right lines
*!*    *!*         shapestylesB:  Print only bottom, left and right lines
*!*    *!*        - "Render" class have been modified to add a "T", "M" or "B"
*!*    *!*          to the boxes' class depending of the "@c" variable,
*!*    *!*       containing the "continuation" information (0 = complete;
*!*    *!*          (1 = Top; 2 = Middle; 3 = Bottom)
*!*    *!* -------------------------------------------------------------------
*!*    *!* I am hoping that this change do not cause problems elseware...  It
*!*    *!* is a pain do search in that text when you have never heard of xsl
*!*    *!* or Microsoft DOM...  but I've managed for this time.  So let's hope! :)
*!*    *!* -------------------------------------------------------------------
*!*    *!* -------------------------------------------------------------------
*!*    *!* -------------------------------------------------------------------
*!*    TEXT
*!*    <?xml version="1.0"?>
*!*    <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
*!*      <xsl:output method="html" version="1.0" encoding="UTF-8" indent="no" doctype-public="-//W3C//DTD HTML 4.0//EN" doctype-system="http://www.w3.org/TR/REC-html40/strict.dtd"/>
*!*      <xsl:param name="externalFileLocation"/>
*!*      <!--select="'./whatever/'" or 'http://something/myimages/' or "'./'" or... -->
*!*      <xsl:param name="copyImageFiles" select="0"/>
*!*      <xsl:param name="generalFieldDPI" select="96"/>
*!*      <xsl:param name="fillPatternShade" select="180*3"/>
*!*      <xsl:param name="fillPatternOffset" select="128"/>
*!*      <xsl:param name="numberPrecision" select="5"/>
*!*      <xsl:param name="fieldAlphaOpacityOffset" select="75"/>
*!*      <xsl:param name="fieldAlphaOpacityShade" select="180*3"/>
*!*      <xsl:param name="useTextAreaForStretchingText" select="1"/>
*!*      <xsl:param name="hideScrollbarsForTextAreas" select="0"/>
*!*      <xsl:param name="PageTitlePrefix_LOC" select="''"/>
*!*    <!--    <xsl:param name="unpagedModeIncludesOnePageHeader" select="0"/> -->
*!*      <xsl:param name="unpagedModeIncludesTitle" select="1"/>
*!*      <xsl:param name="noBody" select="0"/>
*!*      <xsl:param name="useDynamicTextAttributes" select="1"/>
*!*      <xsl:param name="anchorAttrName" select="1"/>
*!*      <!-- id is theoretically better if you wanted to write
*!*       script against this element, or in case name is
*!*       deprecated in a future version of the standard,
*!*       but a value of 1 forces name to be used instead.
*!*       Current-newer browsers will be okay with this, and older
*!*       browsers might prefer it. -->
*!*      <xsl:variable name="FRUs" select="10000"/>
*!*      <xsl:variable name="printDPI" select="960"/>
*!*      <xsl:variable name="FRUsInPixelsat96DPI" select="104.167"/>
*!*      <xsl:variable name="imagePixelRatio" select="$generalFieldDPI div $printDPI"/>
*!*      <xsl:variable name="zeros" select="substring('0000000000000000000000000',1,$numberPrecision)"/>
*!*      <xsl:variable name="thisPageHeight">
*!*        <xsl:value-of select="number(/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXPrintJob/@pageheight  div $printDPI)"/>
*!*      </xsl:variable>
*!*      <xsl:variable name="lineNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=6]/name"/>
*!*      <xsl:variable name="labelNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=5]/name"/>
*!*      <xsl:variable name="fieldNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=8]/name"/>
*!*      <xsl:variable name="shapeNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=7]/name"/>
*!*      <xsl:variable name="pictureNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[type=17]/name"/>
*!*      <xsl:variable name="detailNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=4]/name"/>
*!*      <xsl:variable name="detailHeaderNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=9]/name"/>
*!*      <xsl:variable name="detailFooterNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=10]/name"/>
*!*      <xsl:variable name="pageHeaderNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=1]/name"/>
*!*      <xsl:variable name="pageFooterNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=7]/name"/>
*!*      <xsl:variable name="columnHeaderNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=2]/name"/>
*!*      <xsl:variable name="columnFooterNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=6]/name"/>
*!*      <xsl:variable name="groupHeaderNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=3]/name"/>
*!*      <xsl:variable name="groupFooterNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=5]/name"/>
*!*      <xsl:variable name="titleNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=0]/name"/>
*!*      <xsl:variable name="summaryNodeName" select="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutNode[code=8]/name"/>
*!*      <xsl:variable name="anchorAttr">
*!*      <xsl:choose>
*!*      <xsl:when test="$anchorAttrName=1">name</xsl:when>
*!*      <xsl:otherwise>id</xsl:otherwise>
*!*      </xsl:choose>
*!*      </xsl:variable>
*!*      <xsl:key name="Layout" match="/Reports/VFP-Report/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[platform='WINDOWS']" use="concat(frxrecno,../../@id)"/>
*!*      <xsl:template match="/">
*!*          <xsl:choose>
*!*            <xsl:when test="number($noBody)=1">
*!*            <div>
*!*             <meta http-equiv="Content-Type"  content="text/html; charset=UTF-8"/>
*!*              <xsl:call-template name="renderStyles"/>
*!*              <xsl:call-template name="body"/>
*!*             </div>
*!*            </xsl:when>
*!*            <xsl:otherwise>
*!*              <xsl:apply-templates select="/" mode="full"/>
*!*            </xsl:otherwise>
*!*          </xsl:choose>
*!*      </xsl:template>
*!*      <xsl:template match="/" mode="full">
*!*        <html>
*!*           <xsl:if test="/Reports/VFP-Report[1]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=1 and (fontcharset=177 or fontcharset=178)]">
*!*           <xsl:attribute name="dir">rtl</xsl:attribute>
*!*           </xsl:if>
*!*          <head>
*!*            <meta  http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
*!*    <xsl:comment>
*!*    the above repeated-explicit declaration is necessary because
*!*    some versions of MSXML xslt processing don't include the
*!*    charset as required by the XSLT standard when method="html".
*!*    Explicitly including the META creates a doubled meta content-type tag,
*!*    but we do need the encoding to be specified properly and the doubled tag is okay.
*!*    </xsl:comment>
*!*            <meta name="description"
*!*    content="{/Reports/VFP-Report[1]/Run/property[@id='description']/.}"/>
*!*            <meta name="author"
*!*    content="{/Reports/VFP-Report[1]/Run/property[@id='author']/.}"/>
*!*            <meta name="copyright"
*!*    content="{/Reports/VFP-Report[1]/Run/property[@id='copyright']/.}"/>
*!*            <meta name="date"
*!*    content="{/Reports/VFP-Report[1]/Run/property[@id='date']/.}"/>
*!*            <xsl:if test="/Reports/VFP-Report/Run/property[@id='keywords']">
*!*            <meta name="keywords">
*!*            <xsl:attribute name="content">
*!*             <xsl:for-each select="/Reports/VFP-Report/Run/property[@id='keywords']">
*!*             <xsl:value-of select="."/><xsl:if test="not(position()=last())">,</xsl:if>
*!*            </xsl:for-each>
*!*            </xsl:attribute>
*!*            </meta>
*!*            </xsl:if>
*!*            <xsl:if test="/Reports/VFP-Report/Run/property[@id='http-equiv']">
*!*                <xsl:for-each select="/Reports/VFP-Report/Run/property[@id='http-equiv']//meta">
*!*              <xsl:variable name="thisMeta" select="concat(ancestor-or-self::*[@id='http-equiv']/@id ,'.',@name)"/>
*!*              <!-- the extra Run nodes being looked up are potentially evaluated, not original values of the property,
*!*              so we can account for expressions -->
*!*              <meta  http-equiv="{@name}" content="{/Reports/VFP-Report/Run/property[@id=$thisMeta]}"/>
*!*              </xsl:for-each>
*!*            </xsl:if>
*!*            <title>
*!*              <xsl:choose>
*!*              <xsl:when test="/Reports/VFP-Report[1]/Run/property[@id='title']">
*!*                <xsl:value-of select="/Reports/VFP-Report[1]/Run/property[@id='title']/."/>
*!*              </xsl:when>
*!*              <xsl:otherwise>
*!*                <!-- default/VFP 9.0 RTM handling -->
*!*                 <xsl:value-of select="$PageTitlePrefix_LOC"/>
*!*                 <xsl:if test="string-length(/Reports/VFP-Report[1]/VFP-RDL/VFPDataSet/VFPFRXPrintJob/@name) = 0">
*!*                   <xsl:value-of select="/Reports/VFP-Report[1]/VFP-RDL/@id"/>
*!*                 </xsl:if>
*!*                 <xsl:value-of select="/Reports/VFP-Report[1]/VFP-RDL/VFPDataSet/VFPFRXPrintJob/@name"/>
*!*              </xsl:otherwise>
*!*              </xsl:choose>
*!*            </title>
*!*            <xsl:call-template name="renderStyles"/>
*!*          </head>
*!*          <body>
*!*            <xsl:call-template name="body"/>
*!*          </body>
*!*        </html>
*!*      </xsl:template>
*!*      <xsl:template name="renderStyles">
*!*         <xsl:call-template name="DocumentStyles"/>
*!*        <xsl:for-each select="/Reports/VFP-Report">
*!*          <xsl:call-template name="Styles">
*!*            <xsl:with-param name="thisReport" select="position()"/>
*!*            <xsl:with-param name="thisReportID" select="./VFP-RDL/@id"/>
*!*          </xsl:call-template>
*!*          <!--        <xsl:call-template name="Script"/> avoid security problems: no script, not even a lone comment indicating TBD -->
*!*        </xsl:for-each>
*!*      </xsl:template>
*!*      <xsl:template name="body">
*!*        <xsl:for-each select="/Reports/VFP-Report">
*!*          <xsl:variable name="thisReport" select="position()"/>
*!*          <xsl:variable name="thisReportID" select="./VFP-RDL/@id"/>
*!*          <xsl:variable name="thisReportRangeFrom" select="number(./VFP-RDL/VFPDataSet/VFPFRXCommand/@RANGEFROM)"/>
*!*          <xsl:variable name="separateTitlePage" select="./Data/*[name()=$titleNodeName] and ./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandtype='0' and pagebreak='true']"/>
*!*          <xsl:variable name="separateSummaryPage" select="./Data/*[name()=$summaryNodeName] and ./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandtype='8' and pagebreak='true' and ejectbefor='false']"/>
*!*          <xsl:variable name="reportPages" select="count(./Data/*[(name()=$pageHeaderNodeName) or (name()=$titleNodeName and $separateTitlePage=true()) or  (name()=$summaryNodeName and $separateSummaryPage=true())])"/>
*!*          <div>
*!*            <xsl:if test="number($noBody)=1">
*!*              <xsl:attribute name="style">
*!*                   position=relative;height=<xsl:value-of select="$reportPages * $thisPageHeight"/>in;
*!*                   </xsl:attribute>
*!*            </xsl:if>
*!*            <xsl:choose>
*!*              <xsl:when test="./Data/*[name() = $pageHeaderNodeName]">
*!*                <xsl:if test="$separateTitlePage">
*!*                  <xsl:apply-templates select="./Data/*[name()=$titleNodeName]" mode="titlesummarypage">
*!*                    <xsl:with-param name="thisReport" select="$thisReport"/>
*!*                    <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*                  </xsl:apply-templates>
*!*                </xsl:if>
*!*                <xsl:apply-templates select="./Data/*[name()=$pageHeaderNodeName]" mode="page">
*!*                  <xsl:with-param name="thisReport" select="$thisReport"/>
*!*                  <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*                  <xsl:with-param name="thisReportRangeFrom" select="$thisReportRangeFrom"/>
*!*                </xsl:apply-templates>
*!*                <xsl:if test="$separateSummaryPage">
*!*                  <xsl:apply-templates select="./Data/*[name()=$summaryNodeName]" mode="titlesummarypage">
*!*                    <xsl:with-param name="thisReport" select="$thisReport"/>
*!*                    <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*                  </xsl:apply-templates>
*!*                </xsl:if>
*!*              </xsl:when>
*!*              <xsl:otherwise>
*!*                <!-- unpaginated-->
*!*                <xsl:variable name="thisPageHeaderHeight" select="/Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Header'][1]/height  div $FRUs"/>
*!*                <xsl:variable name="thisReportPageHeight" select="number($thisPageHeight - ( $thisPageHeaderHeight +  (/Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Footer'][1]/height div $FRUs)) )"/>
*!*                <xsl:if test="./Data/Pages/*[name() = $pageHeaderNodeName]"> <!-- $unpagedModeIncludesOnePageHeader=1" -->
*!*                  <!-- show the contents of the first page header -->
*!*                  <xsl:apply-templates mode="formattingBand" select="./Data/Pages/*[@idref = /Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Header']/frxrecno][1]">
*!*                    <xsl:with-param name="thisReport" select="$thisReport"/>
*!*                    <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*                    <xsl:with-param name="thisReportPageHeight" select="$thisReportPageHeight"/>
*!*                    <xsl:with-param name="thisPageHeight" select="$thisPageHeight"/>
*!*                  </xsl:apply-templates>
*!*                </xsl:if>
*!*
*!*                <!-- the @id criteria below leaves out the Pages and Columns collections, if any -->
*!*                <!-- we could add in an initial page header but then we'd have to do the additional work to handle any title, etc; all the height offsets will change -->
*!*                <xsl:apply-templates select="./Data/*[@idref and ($unpagedModeIncludesTitle=1 or not(name() = $titleNodeName))]" mode="unpagedBand">
*!*                  <xsl:with-param name="thisReport" select="$thisReport"/>
*!*                  <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*                  <xsl:with-param name="thisPageHeight" select="$thisPageHeight"/>
*!*                  <xsl:with-param name="thisReportPageHeight" select="$thisReportPageHeight"/>
*!*                  <xsl:with-param name="thisPageHeaderHeight" select="$thisPageHeaderHeight"/>
*!*                </xsl:apply-templates>
*!*              </xsl:otherwise>
*!*            </xsl:choose>
*!*          </div>
*!*        </xsl:for-each>
*!*      </xsl:template>
*!*      <xsl:template match="/Reports/VFP-Report/Data/*" mode="titlesummarypage">
*!*        <xsl:param name="thisReport" select="1"/>
*!*        <xsl:param name="thisReportID"/>
*!*        <xsl:param name="thisReportRangeFrom" select="1"/>
*!*        <xsl:variable name="thisBand" select="@id"/>
*!*        <div>
*!*          <xsl:attribute name="style"> width:100%;top:<xsl:value-of select="$thisPageHeight * (number( ./@idref) -$thisReportRangeFrom)"/>in; position:absolute; </xsl:attribute>
*!*          <xsl:apply-templates select="." mode="band">
*!*            <xsl:with-param name="thisReport" select="$thisReport"/>
*!*            <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*          </xsl:apply-templates>
*!*          <xsl:if test="/Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[frxrecno=$thisBand and ejectafter='true']">
*!*            <!-- page footer for this summary page -->
*!*            <xsl:apply-templates select="/Reports/VFP-Report[$thisReport]/Data/*[name()=$pageFooterNodeName][position()=last()]" mode="band">
*!*              <xsl:with-param name="thisReport" select="$thisReport"/>
*!*              <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*            </xsl:apply-templates>
*!*          </xsl:if>
*!*        </div>
*!*      </xsl:template>
*!*      <xsl:template match="/Reports/VFP-Report/Data/*" mode="page">
*!*        <xsl:param name="thisReport" select="1"/>
*!*        <xsl:param name="thisReportID"/>
*!*        <xsl:param name="thisReportRangeFrom" select="1"/>
*!*        <xsl:variable name="thisPage" select="@id"/>
*!*        <div>
*!*          <xsl:attribute name="style"> width:100%;top:<xsl:value-of select="$thisPageHeight * ($thisPage -$thisReportRangeFrom)"/>in;position:absolute; </xsl:attribute>
*!*          <xsl:apply-templates select="." mode="band">
*!*            <xsl:with-param name="thisReport" select="$thisReport"/>
*!*            <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*          </xsl:apply-templates>
*!*          <xsl:if test="$thisPage = 1 and /Reports/VFP-Report[$thisReport]/Data/*[name()=$titleNodeName] and /Reports/VFP-Report[$thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandtype='0' and pagebreak='false']">
*!*            <xsl:apply-templates select="/Reports/VFP-Report[$thisReport]/Data/*[name()=$titleNodeName]" mode="band">
*!*              <xsl:with-param name="thisReport" select="$thisReport"/>
*!*              <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*            </xsl:apply-templates>
*!*          </xsl:if>
*!*          <xsl:apply-templates select="/Reports/VFP-Report/Data/*[( (@id=$thisPage and contains(concat('|',$pageFooterNodeName,'|',$columnHeaderNodeName,'|',$columnFooterNodeName,'|'),concat('|',name(),'|'))) or (@idref=$thisPage and contains(concat('|',$detailHeaderNodeName,'|',$detailFooterNodeName,'|',$detailNodeName,'|',$groupHeaderNodeName,'|',$groupFooterNodeName,'|',$summaryNodeName,'|'),concat('|',name(),'|'))) )]" mode="band">
*!*            <xsl:with-param name="thisReport" select="$thisReport"/>
*!*            <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*          </xsl:apply-templates>
*!*        </div>
*!*      </xsl:template>
*!*      <xsl:template match="/Reports/VFP-Report/Data/Pages/*" mode="formattingBand">
*!*        <xsl:param name="thisReport" select="1"/>
*!*        <xsl:param name="thisReportID"/>
*!*        <xsl:param name="thisPageHeight"/>
*!*        <xsl:param name="thisReportPageHeight"/>
*!*        <xsl:variable name="thisPage" select="@id"/>
*!*        <xsl:variable name="thisPageRenderOffset" select="(($thisPage - 1) * $thisReportPageHeight)  + sum((/Reports/VFP-Report[position() < $thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Header']/height) ) "/>
*!*        <xsl:for-each select="./*">
*!*          <xsl:variable name="thisID" select="translate(@id,'+','')"/>
*!*          <xsl:call-template name="Render">
*!*            <xsl:with-param name="thisID" select="$thisID"/>
*!*            <xsl:with-param name="thisZ" select="position()"/>
*!*            <xsl:with-param name="thisPage" select="../@idref"/>
*!*            <xsl:with-param name="thisReport" select="$thisReport"/>
*!*            <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*            <xsl:with-param name="topOffset" select="number($thisPageRenderOffset) * $printDPI"/>
*!*          </xsl:call-template>
*!*        </xsl:for-each>
*!*      </xsl:template>
*!*      <xsl:template match="/Reports/VFP-Report/Data/*" mode="unpagedBand">
*!*          <xsl:param name="thisReport" select="1"/>
*!*        <xsl:param name="thisReportID"/>
*!*        <xsl:param name="thisPageHeight"/>
*!*        <xsl:param name="thisReportPageHeight"/>
*!*        <xsl:param name="thisPageHeaderHeight"/>
*!*        <xsl:variable name="thisPage" select="@idref"/>
*!*        <xsl:variable name="thisPageRenderOffset">
*!*          <xsl:choose>
*!*            <xsl:when test="../Pages/*[name() = $pageHeaderNodeName]"> <!-- $unpagedModeIncludesOnePageHeader=1" -->
*!*              <xsl:value-of select="(($thisPage - 1) * $thisReportPageHeight) + (sum(/Reports/VFP-Report[position() < $thisReport]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[bandlabel='Page Header'][1]/height)div $FRUs)  + $thisPageHeaderHeight "/>
*!*            </xsl:when>
*!*            <xsl:otherwise>
*!*              <xsl:value-of select="(($thisPage - 1) * $thisReportPageHeight) -($thisPageHeaderHeight*$thisPage)  "/>
*!*            </xsl:otherwise>
*!*          </xsl:choose>
*!*        </xsl:variable>
*!*        <xsl:call-template name="addAnchor"/>
*!*        <xsl:for-each select="./*">
*!*          <xsl:variable name="thisID" select="translate(@id,'+','')"/>
*!*          <xsl:call-template name="Render">
*!*            <xsl:with-param name="thisID" select="$thisID"/>
*!*            <xsl:with-param name="thisZ" select="position()"/>
*!*            <xsl:with-param name="thisPage" select="../@idref"/>
*!*            <xsl:with-param name="thisReport" select="$thisReport"/>
*!*            <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*            <xsl:with-param name="topOffset" select="number($thisPageRenderOffset) * $printDPI"/>
*!*          </xsl:call-template>
*!*        </xsl:for-each>
*!*      </xsl:template>
*!*      <xsl:template match="/Reports/VFP-Report/Data/*" mode="band">
*!*        <xsl:param name="thisReport" select="1"/>
*!*        <xsl:param name="thisReportID"/>
*!*        <xsl:call-template name="addAnchor"/>
*!*        <xsl:for-each select="./*">
*!*          <xsl:variable name="thisID" select="translate(@id,'+','')"/>
*!*          <!--        <xsl:if test="key('Layout',concat($thisID, $thisReportID))/vpos > key('Layout',preceding-sibling::*/concat(@id,$thisReportID))/vpos"><div style="position=absolute;"/></xsl:if>  -->
*!*          <xsl:call-template name="Render">
*!*            <xsl:with-param name="thisID" select="$thisID"/>
*!*            <xsl:with-param name="thisZ" select="position()"/>
*!*            <xsl:with-param name="thisPage" select="../@idref"/>
*!*            <xsl:with-param name="thisReport" select="$thisReport"/>
*!*            <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*          </xsl:call-template>
*!*        </xsl:for-each>
*!*      </xsl:template>
*!*      <xsl:template name="Render">
*!*        <xsl:param name="thisID"/>
*!*        <xsl:param name="thisZ"/>
*!*        <xsl:param name="thisPage"/>
*!*        <xsl:param name="thisReport" select="1"/>
*!*        <xsl:param name="thisReportID" select="1"/>
*!*        <xsl:param name="topOffset" select="0"/>
*!*        <xsl:call-template name="addAnchor"/>
*!*        <xsl:choose>
*!*          <xsl:when test="name()=$lineNodeName and key('Layout',concat($thisID, $thisReportID))/height <  key('Layout',concat($thisID, $thisReportID))/width">
*!*            <hr>
*!*              <xsl:call-template name="addClassAttribute">
*!*            <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID)"/>
*!*            </xsl:call-template>
*!*            <xsl:call-template name="addTitleAttribute"/>
*!*              <xsl:call-template name="addStyleAttribute">
*!*                <xsl:with-param name="topOffset" select="$topOffset"/>
*!*                <xsl:with-param name="thisZ" select="$thisZ"/>
*!*                <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*               <xsl:with-param name="thisID" select="$thisID"/>
*!*               <xsl:with-param name="styleType" select="'HR'"/>
*!*              </xsl:call-template>
*!*            </hr>
*!*          </xsl:when>
*!*          <xsl:when test="name()=$lineNodeName">
*!*            <!-- vertical line -->
*!*            <span>
*!*              <xsl:call-template name="addClassAttribute">
*!*                <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID)"/>
*!*            </xsl:call-template>
*!*              <xsl:call-template name="addTitleAttribute"/>
*!*              <xsl:call-template name="addStyleAttribute">
*!*                <xsl:with-param name="topOffset" select="$topOffset"/>
*!*                <xsl:with-param name="thisZ" select="$thisZ"/>
*!*                <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*               <xsl:with-param name="thisID" select="$thisID"/>
*!*                  <xsl:with-param name="styleType" select="'VR'"/>
*!*              </xsl:call-template>
*!*            </span>
*!*          </xsl:when>
*!*          <xsl:when test="$useTextAreaForStretchingText=1 and string-length(@hlink) = 0  and name()=$fieldNodeName and key('Layout',concat($thisID, $thisReportID))[stretch='true']">
*!*            <textarea readonly="readonly" rows="0" cols="0">
*!*              <xsl:call-template name="addClassAttribute">
*!*                 <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID)"/>
*!*            </xsl:call-template>
*!*              <xsl:call-template name="addTitleAttribute"/>
*!*              <xsl:call-template name="addStyleAttribute">
*!*                <xsl:with-param name="topOffset" select="$topOffset"/>
*!*                <xsl:with-param name="thisZ" select="$thisZ"/>
*!*                <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*              <xsl:with-param name="thisID" select="$thisID"/>
*!*              <xsl:with-param name="styleType" select="'TextArea'"/>
*!*              </xsl:call-template>
*!*              <xsl:value-of select="."/>
*!*            </textarea>
*!*          </xsl:when>
*!*          <xsl:otherwise>
*!*            <div>
*!*               <xsl:choose>
*!*                 <xsl:when test="@c=1">
*!*                    <xsl:call-template name="addClassAttribute">
*!*                       <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID,'T')"/>
*!*                    </xsl:call-template>
*!*                 </xsl:when>
*!*                 <xsl:when test="@c=2">
*!*                    <xsl:call-template name="addClassAttribute">
*!*                       <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID,'M')"/>
*!*                    </xsl:call-template>
*!*                 </xsl:when>
*!*                 <xsl:when test="@c=3">
*!*                    <xsl:call-template name="addClassAttribute">
*!*                       <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID,'B')"/>
*!*                    </xsl:call-template>
*!*                 </xsl:when>
*!*                 <xsl:otherwise>
*!*                    <xsl:call-template name="addClassAttribute">
*!*                       <xsl:with-param name="default" select="concat('FRX',$thisReport,'_',$thisID)"/>
*!*                    </xsl:call-template>
*!*                 </xsl:otherwise>
*!*               </xsl:choose>
*!*              <xsl:call-template name="addTitleAttribute"/>
*!*              <xsl:call-template name="addStyleAttribute">
*!*                <xsl:with-param name="topOffset" select="$topOffset"/>
*!*                <xsl:with-param name="thisZ" select="$thisZ"/>
*!*                <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*              <xsl:with-param name="thisID" select="$thisID"/>
*!*              <xsl:with-param name="styleType" select="'Div'"/>
*!*              </xsl:call-template>
*!*              <xsl:choose>
*!*                <xsl:when test="name()=$shapeNodeName or name()=$lineNodeName">
*!*                  <!-- nothing -->
*!*                </xsl:when>
*!*                <xsl:when test="name()=$pictureNodeName and string-length(@hlink) > 0">
*!*                  <a href="{@hlink}">
*!*                    <xsl:call-template name="renderPicture">
*!*                <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*                <xsl:with-param name="thisID" select="$thisID"/>
*!*                    </xsl:call-template>
*!*                  </a>
*!*                </xsl:when>
*!*                <xsl:when test="name()=$pictureNodeName and string-length(@PLINK) > 0">
*!*                  <a href="{translate(@PLINK,'\','/')}"  target="blank">
*!*                    <xsl:call-template name="renderPicture">
*!*                <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*                <xsl:with-param name="thisID" select="$thisID"/>
*!*                    </xsl:call-template>
*!*                  </a>
*!*                </xsl:when>
*!*                <xsl:when test="name()=$pictureNodeName">
*!*                  <xsl:call-template name="renderPicture">
*!*                <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*                <xsl:with-param name="thisID" select="$thisID"/>
*!*                  </xsl:call-template>
*!*                </xsl:when>
*!*                <xsl:when test="string-length(@hlink) > 0">
*!*                  <a href="{@hlink}">
*!*                    <xsl:call-template name="replaceText"/>
*!*                  </a>
*!*                </xsl:when>
*!*                <xsl:when test="string-length(@PLINK) > 0">
*!*                  <a href="{translate(@PLINK,'\','/')}" target="blank">
*!*                    <xsl:call-template name="replaceText"/>
*!*                  </a>
*!*                </xsl:when>
*!*                <xsl:otherwise>
*!*                  <xsl:call-template name="replaceText"/>
*!*                </xsl:otherwise>
*!*              </xsl:choose>
*!*            </div>
*!*          </xsl:otherwise>
*!*        </xsl:choose>
*!*        <!-- /xsl:if -->
*!*      </xsl:template>
*!*      <xsl:template name="getCSSName">
*!*      <xsl:param name="thisReport" select="1"/>
*!*      <xsl:param name="thisItem" select="0"/>
*!*      <xsl:param name="itemType" select="''"/>
*!*      <xsl:param name="firstPass" select="1"/>
*!*      <xsl:variable name="subst" select="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$thisItem]/@css"/>
*!*        <xsl:choose>
*!*         <xsl:when test="number($firstPass)=1 or string-length($subst) = 0"><xsl:value-of select="concat('.FRX',$thisReport,'_',$thisItem,$itemType)"/></xsl:when>
*!*         <xsl:otherwise>.<xsl:value-of select="$subst"/></xsl:otherwise>
*!*         </xsl:choose>
*!*      </xsl:template>
*!*      <xsl:template match="VFPFRXLayoutObject" mode="imagestyles">
*!*        <xsl:param name="thisReport" select="1"/>
*!*        <xsl:param name="firstPass" select="1"/>
*!*         <xsl:call-template name="getCSSName">
*!*         <xsl:with-param name="thisReport" select="$thisReport"/>
*!*         <xsl:with-param name="thisItem" select="frxrecno"/>
*!*         <xsl:with-param name="firstPass" select="$firstPass"/>
*!*         </xsl:call-template>{
*!*      position: absolute;overflow: hidden;width: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;height: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="height div $FRUs"/></xsl:call-template>in;
*!*      }
*!*      <!-- <xsl:if test="offset=0">
*!*    left: <xsl:value-of select="hpos div $FRUs"/>in;
*!*    </xsl:if>
*!*    <xsl:if test="offset=2">
*!*    left: <xsl:value-of select="hpos div $FRUs"/>in;
*!*    </xsl:if> -->
*!*     </xsl:template>
*!*      <xsl:template match="VFPFRXLayoutObject" mode="shapestyles">
*!*        <xsl:param name="thisReport" select="1"/>
*!*       <xsl:param name="firstPass" select="1"/>
*!*         <xsl:call-template name="getCSSName">
*!*         <xsl:with-param name="thisReport" select="$thisReport"/>
*!*         <xsl:with-param name="thisItem" select="frxrecno"/>
*!*         <xsl:with-param name="firstPass" select="$firstPass"/>
*!*         </xsl:call-template>{
*!*       position: absolute ;font-size:1pt; border: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;<xsl:if test="(mode=0 and not(fillpat=0)) or (mode=1 and fillpat=1)">background-color:<xsl:call-template name="fillcolor"/>;</xsl:if>width: <xsl:call-template name="setPrecision"> <xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;left: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="hpos div $FRUs"/></xsl:call-template>in;
*!*          }
*!*          <!--    <xsl:if test="stretch='true'">
*!*    overflow: auto;
*!*       </xsl:if> -->
*!*      </xsl:template>
*!*      </xsl:template>
*!*      <xsl:template match="VFPFRXLayoutObject" mode="shapestylesT">
*!*        <xsl:param name="thisReport" select="1"/>
*!*       <xsl:param name="firstPass" select="1"/>
*!*         <xsl:call-template name="getCSSName">
*!*         <xsl:with-param name="thisReport" select="$thisReport"/>
*!*         <xsl:with-param name="thisItem" select="frxrecno"/>
*!*         <xsl:with-param name="itemType" select="'T'"/>
*!*         <xsl:with-param name="firstPass" select="$firstPass"/>
*!*         </xsl:call-template>{
*!*       position: absolute ;font-size:1pt; border-left: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-right: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-top: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;<xsl:if test="(mode=0 and not(fillpat=0)) or (mode=1 and fillpat=1)">background-color:<xsl:call-template name="fillcolor"/>;</xsl:if>width: <xsl:call-template name="setPrecision"> <xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;left: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="hpos div $FRUs"/></xsl:call-template>in;
*!*          }
*!*          <!--    <xsl:if test="stretch='true'">
*!*    overflow: auto;
*!*       </xsl:if> -->
*!*      </xsl:template>
*!*      <xsl:template match="VFPFRXLayoutObject" mode="shapestylesM">
*!*        <xsl:param name="thisReport" select="1"/>
*!*       <xsl:param name="firstPass" select="1"/>
*!*         <xsl:call-template name="getCSSName">
*!*         <xsl:with-param name="thisReport" select="$thisReport"/>
*!*         <xsl:with-param name="thisItem" select="frxrecno"/>
*!*         <xsl:with-param name="itemType" select="'M'"/>
*!*         <xsl:with-param name="firstPass" select="$firstPass"/>
*!*         </xsl:call-template>{
*!*       position: absolute ;font-size:1pt; border-left: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-right: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;<xsl:if test="(mode=0 and not(fillpat=0)) or (mode=1 and fillpat=1)">background-color:<xsl:call-template name="fillcolor"/>;</xsl:if>width: <xsl:call-template name="setPrecision"> <xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;left: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="hpos div $FRUs"/></xsl:call-template>in;
*!*          }
*!*          <!--    <xsl:if test="stretch='true'">
*!*    overflow: auto;
*!*       </xsl:if> -->
*!*      </xsl:template>
*!*      <xsl:template match="VFPFRXLayoutObject" mode="shapestylesB">
*!*        <xsl:param name="thisReport" select="1"/>
*!*       <xsl:param name="firstPass" select="1"/>
*!*         <xsl:call-template name="getCSSName">
*!*         <xsl:with-param name="thisReport" select="$thisReport"/>
*!*         <xsl:with-param name="thisItem" select="frxrecno"/>
*!*         <xsl:with-param name="itemType" select="'B'"/>
*!*         <xsl:with-param name="firstPass" select="$firstPass"/>
*!*         </xsl:call-template>{
*!*       position: absolute ;font-size:1pt; border-left: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-right: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;border-bottom: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;<xsl:if test="(mode=0 and not(fillpat=0)) or (mode=1 and fillpat=1)">background-color:<xsl:call-template name="fillcolor"/>;</xsl:if>width: <xsl:call-template name="setPrecision"> <xsl:with-param name="theNumber" select="width div $FRUs"/></xsl:call-template>in;left: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="hpos div $FRUs"/></xsl:call-template>in;
*!*          }
*!*          <!--    <xsl:if test="stretch='true'">
*!*    overflow: auto;
*!*       </xsl:if> -->
*!*      </xsl:template>
*!*      <xsl:template match="VFPFRXLayoutObject" mode="textstyles">
*!*        <xsl:param name="thisReport" select="1"/>
*!*        <xsl:param name="firstPass" select="1"/>
*!*         <xsl:call-template name="getCSSName">
*!*         <xsl:with-param name="thisReport" select="$thisReport"/>
*!*         <xsl:with-param name="thisItem" select="frxrecno"/>
*!*         <xsl:with-param name="firstPass" select="$firstPass"/>
*!*         </xsl:call-template>{
*!*      <xsl:call-template name="getTextAlignment"/>vertical-align: top; font-family: "<xsl:value-of select="fontface"/>"; font-size: <xsl:value-of select="fontsize"/>pt; border: 0px none; padding: 0px; margin: 0px;<xsl:call-template name="getFontAttributes"/>color:<xsl:call-template name="pencolor"/>;<xsl:choose>
*!*          <xsl:when test="mode mod 2 = 1">background-color:transparent;</xsl:when>
*!*          <xsl:otherwise>background-color: <xsl:call-template name="fillcolor"/>;</xsl:otherwise>
*!*        </xsl:choose><xsl:choose>
*!*          <xsl:when test="stretch='true' and objtype=8 and $useTextAreaForStretchingText=1 and $hideScrollbarsForTextAreas=1"> overflow:hidden;margin-top:4px;</xsl:when>
*!*          <xsl:when test="stretch='true' and objtype=8 and $useTextAreaForStretchingText=1"> overflow: auto;margin-top:4px;</xsl:when>
*!*          <xsl:otherwise>overflow:hidden;</xsl:otherwise>
*!*        </xsl:choose> position: absolute;
*!*       }
*!*        <!-- tbd, make vertical-align more dynamic -->
*!*      </xsl:template>
*!*      <xsl:template match="VFPFRXLayoutObject" mode="linestyles">
*!*        <xsl:param name="thisReport" select="1"/>
*!*       <xsl:param name="firstPass" select="1"/>
*!*         <xsl:call-template name="getCSSName">
*!*         <xsl:with-param name="thisReport" select="$thisReport"/>
*!*         <xsl:with-param name="thisItem" select="frxrecno"/>
*!*          <xsl:with-param name="firstPass" select="$firstPass"/>
*!*         </xsl:call-template>{
*!*       position:absolute;font-size:1pt;border: <xsl:value-of select="pensize"/>px <xsl:call-template name="pattern"/><xsl:call-template name="pencolor"/>;left: <xsl:value-of select="hpos div $FRUs"/>in;
*!*          <xsl:choose>
*!*          <xsl:when test="height < width"> width: <xsl:value-of select="width div $FRUs"/>in;
*!*      height: <xsl:value-of select="floor(height div $FRUsInPixelsat96DPI)"/>px; margin: 0px;</xsl:when>
*!*          <xsl:otherwise>  height: <xsl:value-of select="height div $FRUs"/>in;
*!*      width: <xsl:value-of select="floor(width div $FRUsInPixelsat96DPI)"/>px;  </xsl:otherwise>
*!*        </xsl:choose>
*!*       }
*!*      </xsl:template>
*!*      <xsl:template name="pattern">
*!*        <xsl:choose>
*!*          <xsl:when test="penpat=0"> none </xsl:when>
*!*          <xsl:when test="penpat=1"> dotted </xsl:when>
*!*          <xsl:when test="penpat=2"> dashed </xsl:when>
*!*          <xsl:otherwise> solid </xsl:otherwise>
*!*        </xsl:choose>
*!*      </xsl:template>
*!*      <xsl:template name="pencolor">#<xsl:call-template name="getHexColorValue">
*!*          <xsl:with-param name="theNumber" select="penred"/>
*!*        </xsl:call-template>
*!*        <xsl:call-template name="getHexColorValue">
*!*          <xsl:with-param name="theNumber" select="pengreen"/>
*!*        </xsl:call-template>
*!*        <xsl:call-template name="getHexColorValue">
*!*          <xsl:with-param name="theNumber" select="penblue"/>
*!*        </xsl:call-template>
*!*      </xsl:template>
*!*      <xsl:template name="fillcolor">#<xsl:call-template name="getHexColorValue">
*!*          <xsl:with-param name="theNumber" select="fillred"/>
*!*          <xsl:with-param name="fill" select="1"/>
*!*        </xsl:call-template>
*!*        <xsl:call-template name="getHexColorValue">
*!*          <xsl:with-param name="theNumber" select="fillgreen"/>
*!*          <xsl:with-param name="fill" select="1"/>
*!*        </xsl:call-template>
*!*        <xsl:call-template name="getHexColorValue">
*!*          <xsl:with-param name="theNumber" select="fillblue"/>
*!*          <xsl:with-param name="fill" select="1"/>
*!*        </xsl:call-template>
*!*      </xsl:template>
*!*      <xsl:template name="getFontAttributes">
*!*        <xsl:param name="theStyles" select="0"/>
*!*        <xsl:choose>
*!*          <xsl:when test="fontbold='true'">font-weight: bold;</xsl:when>
*!*          <xsl:otherwise>font-weight: normal;</xsl:otherwise>
*!*        </xsl:choose>
*!*        <xsl:if test="fontstrikethrough='true' or fontunderline='true'">text-decoration: <xsl:if test="fontstrikethrough='true'">line-through </xsl:if>
*!*          <xsl:if test="fontunderline='true'">underline</xsl:if>;</xsl:if>
*!*        <xsl:if test="fontitalic='true'">font-style: italic;</xsl:if>
*!*      </xsl:template>
*!*      <xsl:template name="getHexColorValue">
*!*        <xsl:param name="theNumber" select="-1"/>
*!*        <xsl:param name="fill" select="0"/>
*!*        <xsl:variable name="useNumber">
*!*          <xsl:choose>
*!*            <xsl:when test="$fill=1 and fillpat > 1 and ((fillred+fillblue+fillgreen) < $fillPatternShade)">
*!*              <xsl:choose>
*!*                <xsl:when test="($fillPatternOffset + $theNumber) > 254">255</xsl:when>
*!*                <xsl:otherwise>
*!*                  <xsl:value-of select="$fillPatternOffset + $theNumber"/>
*!*                </xsl:otherwise>
*!*              </xsl:choose>
*!*            </xsl:when>
*!*            <xsl:otherwise>
*!*              <xsl:value-of select="$theNumber"/>
*!*            </xsl:otherwise>
*!*          </xsl:choose>
*!*        </xsl:variable>
*!*        <xsl:choose>
*!*          <xsl:when test="$useNumber=-1 and $fill=1">FF</xsl:when>
*!*          <xsl:when test="$useNumber=-1">00</xsl:when>
*!*          <xsl:otherwise>
*!*            <xsl:call-template name="getHexForNumber">
*!*              <xsl:with-param name="theNumber" select="floor($useNumber div 16)"/>
*!*            </xsl:call-template>
*!*            <xsl:call-template name="getHexForNumber">
*!*              <xsl:with-param name="theNumber" select="round($useNumber mod 16)"/>
*!*            </xsl:call-template>
*!*          </xsl:otherwise>
*!*        </xsl:choose>
*!*      </xsl:template>
*!*      <xsl:template name="setPrecision">
*!*        <xsl:param name="theNumber" select="-1"/>
*!*        <xsl:choose>
*!*          <xsl:when test="$numberPrecision = -1 or not(contains(string($theNumber),'.'))">
*!*            <xsl:value-of select="$theNumber"/>
*!*          </xsl:when>
*!*          <xsl:when test="$numberPrecision > 0">
*!*            <!--        <xsl:value-of select="concat(string(floor($theNumber)),'.',substring(substring-after(string($theNumber),'.'),1,$numberPrecision))"/>  -->
*!*            <xsl:value-of select="format-number($theNumber,concat('##0.',$zeros))"/>
*!*          </xsl:when>
*!*          <xsl:when test="$numberPrecision=0">
*!*            <xsl:value-of select="round($theNumber)"/>
*!*          </xsl:when>
*!*          <xsl:otherwise>
*!*            <!-- shouldn't happen-->
*!*            <xsl:value-of select="$theNumber"/>
*!*          </xsl:otherwise>
*!*        </xsl:choose>
*!*      </xsl:template>
*!*      <xsl:template name="getHexForNumber">
*!*        <xsl:param name="theNumber" select="-1"/>
*!*        <xsl:choose>
*!*          <xsl:when test="$theNumber=-1">00</xsl:when>
*!*          <xsl:when test="$theNumber < 10">
*!*            <xsl:value-of select="$theNumber"/>
*!*          </xsl:when>
*!*          <xsl:when test="$theNumber = 10">A</xsl:when>
*!*          <xsl:when test="$theNumber = 11">B</xsl:when>
*!*          <xsl:when test="$theNumber = 12">C</xsl:when>
*!*          <xsl:when test="$theNumber = 13">D</xsl:when>
*!*          <xsl:when test="$theNumber = 14">E</xsl:when>
*!*          <xsl:when test="$theNumber = 15">F</xsl:when>
*!*        </xsl:choose>
*!*      </xsl:template>
*!*      <xsl:template name="getTextAlignment">text-align:<xsl:choose>
*!*          <xsl:when test="objtype=5"><!-- picture field empty for left (default), @I for centered and @J right -->
*!*            <xsl:choose>
*!*              <xsl:when test="string-length(picture) = 0">left;</xsl:when>
*!*              <xsl:when test="contains(picture,'@J')">right;</xsl:when>
*!*              <xsl:otherwise>center;</xsl:otherwise>
*!*            </xsl:choose>
*!*          </xsl:when>
*!*          <xsl:otherwise>
*!*            <xsl:choose>
*!*              <xsl:when test="offset=0">left;</xsl:when>
*!*              <xsl:when test="offset=1">right;</xsl:when>
*!*              <xsl:otherwise>center;</xsl:otherwise>
*!*            </xsl:choose>
*!*          </xsl:otherwise>
*!*        </xsl:choose>
*!*        <!-- don't include direction at all if you want context -->
*!*        <xsl:if test="mode < 4">direction:<xsl:choose>
*!*            <xsl:when test="mode > 1">rtl;</xsl:when>
*!*            <xsl:otherwise>ltr;</xsl:otherwise>
*!*          </xsl:choose>
*!*        </xsl:if>
*!*      </xsl:template>
*!*      <xsl:template name="ExternalStyleSheets">
*!*        <xsl:param name="thisReportNode" select="/Reports/VFP-Report[1]"/>
*!*        <xsl:param name="thisReportID" select="'this report'"/>
*!*       <xsl:if test="count($thisReportNode/Run/property[@id='css_sheet']) > 0">
*!*       <xsl:comment>
*!*       External stylesheet(s) for <xsl:value-of select="$thisReportID"/>
*!*       </xsl:comment>
*!*       <xsl:for-each select="$thisReportNode/Run/property[@id='css_sheet']">
*!*          <link type="text/css" href="{./text()}" rel="stylesheet"/>
*!*       </xsl:for-each>
*!*       </xsl:if>
*!*      </xsl:template>
*!*      <xsl:template name="DocumentStyles">
*!*      <xsl:comment>Global document styles, if any</xsl:comment>
*!*        <style type="text/css">
*!*         <xsl:comment><xsl:if test="/Reports/VFP-Report[1]/VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=1 and (fontcharset=177 or fontcharset=178)]">
*!*         <xsl:if test="number($noBody)!=1">html{direction:rtl;}
*!*         body{direction:rtl;}</xsl:if>
*!*         div{direction:rtl;}
*!*         span{direction:rtl;}
*!*         </xsl:if>
*!*         </xsl:comment>
*!*        </style>
*!*
*!*      </xsl:template>
*!*      <xsl:template name="Styles">
*!*        <xsl:param name="thisReport" select="1"/>
*!*        <xsl:param name="thisReportID"/>
*!*        <xsl:comment>
*!*        Styles for report # <xsl:value-of select="$thisReport"/>  in this run,
*!*        <xsl:value-of select="$thisReportID"/>
*!*        </xsl:comment>
*!*
*!*        <style type="text/css">
*!*
*!*          <xsl:comment>
*!*
*!*            <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=6]" mode="linestyles">
*!*              <xsl:with-param name="thisReport" select="$thisReport"/>
*!*            </xsl:apply-templates>
*!*
*!*          <xsl:for-each select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=6]">
*!*            <xsl:variable name="frxrecno" select="frxrecno"/>
*!*            <xsl:if test="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$frxrecno]/@css">
*!*                  <xsl:apply-templates select="." mode="linestyles">
*!*                  <xsl:with-param name="thisReport" select="$thisReport"/>
*!*                     <xsl:with-param name="firstPass" select="0"/>
*!*                  </xsl:apply-templates>
*!*            </xsl:if>
*!*          </xsl:for-each>
*!*
*!*            <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]" mode="shapestyles">
*!*              <xsl:with-param name="thisReport" select="$thisReport"/>
*!*            </xsl:apply-templates>
*!*            <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]" mode="shapestylesT">
*!*              <xsl:with-param name="thisReport" select="$thisReport"/>
*!*            </xsl:apply-templates>
*!*            <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]" mode="shapestylesM">
*!*              <xsl:with-param name="thisReport" select="$thisReport"/>
*!*            </xsl:apply-templates>
*!*            <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]" mode="shapestylesB">
*!*              <xsl:with-param name="thisReport" select="$thisReport"/>
*!*            </xsl:apply-templates>
*!*          <xsl:for-each select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=7]">
*!*             <xsl:variable name="frxrecno" select="frxrecno"/>
*!*            <xsl:if test="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$frxrecno]/@css">
*!*                  <xsl:apply-templates select="." mode="shapestyles">
*!*                  <xsl:with-param name="thisReport" select="$thisReport"/>
*!*                     <xsl:with-param name="firstPass" select="0"/>
*!*                  </xsl:apply-templates>
*!*            </xsl:if>
*!*          </xsl:for-each>
*!*            <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[contains('|5|8|',concat('|',./objtype,'|'))]" mode="textstyles">
*!*              <xsl:with-param name="thisReport" select="$thisReport"/>
*!*            </xsl:apply-templates>
*!*          <xsl:for-each select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[contains('|5|8|',concat('|',./objtype,'|'))]">
*!*            <xsl:variable name="frxrecno" select="frxrecno"/>
*!*            <xsl:if test="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$frxrecno]/@css">
*!*                  <xsl:apply-templates select="." mode="textstyles">
*!*                  <xsl:with-param name="thisReport" select="$thisReport"/>
*!*                     <xsl:with-param name="firstPass" select="0"/>
*!*                  </xsl:apply-templates>
*!*            </xsl:if>
*!*          </xsl:for-each>
*!*
*!*            <xsl:apply-templates select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=17]" mode="imagestyles">
*!*              <xsl:with-param name="thisReport" select="$thisReport"/>
*!*            </xsl:apply-templates>
*!*          <xsl:for-each select="./VFP-RDL/VFPDataSet/VFPFRXLayoutObject[objtype=17]">
*!*            <xsl:variable name="frxrecno" select="frxrecno"/>
*!*            <xsl:if test="/Reports/VFP-Report[$thisReport]/Data/*/*[@id=$frxrecno]/@css">
*!*                  <xsl:apply-templates select="." mode="imagestyles">
*!*                  <xsl:with-param name="thisReport" select="$thisReport"/>
*!*                     <xsl:with-param name="firstPass" select="0"/>
*!*                  </xsl:apply-templates>
*!*            </xsl:if>
*!*          </xsl:for-each>
*!*
*!*          </xsl:comment>
*!*
*!*        </style>
*!*       <xsl:call-template name="ExternalStyleSheets">
*!*       <xsl:with-param name="thisReportNode" select="/Reports/VFP-Report[$thisReport]"/>
*!*       <xsl:with-param name="thisReportID" select="$thisReportID"/>
*!*       </xsl:call-template>
*!*      </xsl:template>
*!*      <xsl:template name="replaceText">
*!*        <xsl:choose>
*!*          <xsl:when test="$useTextAreaForStretchingText=1">
*!*            <xsl:value-of select="."/>
*!*          </xsl:when>
*!*          <xsl:otherwise>
*!*            <xsl:call-template name="replaceWhiteSpace">
*!*              <xsl:with-param name="string" select="."/>
*!*            </xsl:call-template>
*!*          </xsl:otherwise>
*!*        </xsl:choose>
*!*      </xsl:template>
*!*      <xsl:template name="renderPicture">
*!*      <xsl:param name="thisReportID"/>
*!*      <xsl:param name="thisID"/>
*!*        <img>
*!*          <xsl:attribute name="alt"><xsl:choose><xsl:when test="@alt"><xsl:value-of select="@alt"/></xsl:when><xsl:otherwise><xsl:value-of select="key('Layout',concat($thisID, $thisReportID))/unpathedimg"/></xsl:otherwise></xsl:choose></xsl:attribute>
*!*          <xsl:variable name="srcImage">
*!*       <xsl:choose>
*!*              <xsl:when test="@img and $externalFileLocation">
*!*                <xsl:value-of select="translate(concat($externalFileLocation,@img),'\','/')"/>
*!*              </xsl:when>
*!*              <xsl:when test="@img and not(contains(./@img,':'))">
*!*                   <xsl:value-of select="translate(@img,'\','/')"/>
*!*              </xsl:when>
*!*              <xsl:when test="@img">
*!*                <xsl:value-of select="concat('file://',translate(@img,'\','/'))"/>
*!*              </xsl:when>
*!*              <xsl:when test="$copyImageFiles = '1'">
*!*                <xsl:value-of select="translate(concat($externalFileLocation,key('Layout',concat($thisID, $thisReportID))/unpathedimg),'\','/')"/>
*!*              </xsl:when>
*!*              <xsl:when test="string-length(./text()) > 0 and not(contains(./text(),':')) ">
*!*                <xsl:value-of select="translate(./text(),'\','/')"/>
*!*              </xsl:when>
*!*              <xsl:when test="string-length(./text()) > 0">
*!*                <xsl:value-of select="concat('file://',translate(./text(),'\','/'))"/>
*!*              </xsl:when>
*!*              <xsl:otherwise>
*!*                <xsl:value-of select="concat('file://',translate(key('Layout',concat($thisID, $thisReportID))/pathedimg,'\','/'))"/>
*!*              </xsl:otherwise>
*!*            </xsl:choose>
*!*          </xsl:variable>
*!*          <xsl:attribute name="src"><xsl:value-of select="$srcImage"/></xsl:attribute>
*!*          <xsl:attribute name="style"><xsl:variable name="imgGeneral" select="key('Layout',concat($thisID, $thisReportID))"/><xsl:choose><xsl:when test="$imgGeneral/general='0' "><!-- clip top, right, bottom, left -->
*!*     clip: rect(0in,<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@w div $printDPI"/></xsl:call-template>in,<xsl:value-of select="@h div $printDPI"/>in,0in);
*!*     </xsl:when><xsl:when test="$imgGeneral/general='1'"><!-- scale and retain --><xsl:choose><xsl:when test="@h > @w">
*!*     width:100%;
*!*     </xsl:when><xsl:otherwise>
*!*     height:100%;
*!*     </xsl:otherwise></xsl:choose></xsl:when><xsl:otherwise><!-- stretch to fill frame -->
*!*     height: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@h div $printDPI"/></xsl:call-template>in;
*!*    width: <xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@w div $printDPI"/></xsl:call-template>in;
*!*     </xsl:otherwise></xsl:choose></xsl:attribute>
*!*        </img>
*!*      </xsl:template>
*!*      <xsl:template name="addClassAttribute">
*!*      <xsl:param name="item" select="."/>
*!*      <xsl:param name="default" select="''"/>
*!*      <xsl:attribute name="class"><xsl:choose>
*!*      <xsl:when test="string-length($item/@CSS) > 0">
*!*      <xsl:value-of select="$item/@CSS"/>
*!*      </xsl:when>
*!*      <xsl:when test="string-length($item/@css) = 0">
*!*      <xsl:value-of select="$default"/>
*!*      </xsl:when>
*!*      <xsl:otherwise>
*!*      <xsl:value-of select="$item/@css"/>
*!*      </xsl:otherwise>
*!*      </xsl:choose></xsl:attribute>
*!*      </xsl:template>
*!*      <xsl:template name="addTitleAttribute">
*!*        <xsl:param name="item" select="."/>
*!*        <xsl:if test="string-length($item/@title) > 0">
*!*          <xsl:attribute name="title"><xsl:value-of select="$item/@title"/></xsl:attribute>
*!*        </xsl:if>
*!*      </xsl:template>
*!*      <xsl:template name="addAnchor">
*!*        <xsl:param name="item" select="."/>
*!*        <xsl:if test="string-length($item/@anchor) > 0">
*!*          <a>
*!*         <xsl:attribute name="{$anchorAttr}"><xsl:value-of select="$item/@anchor"/></xsl:attribute>
*!*            <xsl:text disable-output-escaping="yes">&nbsp;</xsl:text>
*!*          </a>
*!*        </xsl:if>
*!*      </xsl:template>
*!*      <xsl:template name="addStyleAttribute">
*!*        <xsl:param name="topOffset" select="0"/>
*!*        <xsl:param name="thisZ" select="1"/>
*!*        <xsl:param name="thisReportID"/>
*!*        <xsl:param name="thisID"/>
*!*        <xsl:param name="styleType" select="'Div'"/>
*!*    <!-- do NOT mess around with the white space in here, even though it
*!*    looks ugly the way it is!! -->
*!*    <xsl:attribute name="style">z-Index:<xsl:value-of select="$thisZ"/>;left:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@l div $printDPI"/></xsl:call-template>in;
*!*    top:<xsl:choose>
*!*      <xsl:when test="styleType='TextArea'"><xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="((@t  + $topOffset) div $printDPI) - .1"/></xsl:call-template></xsl:when>
*!*      <xsl:otherwise><xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="(@t +$topOffset) div $printDPI"/></xsl:call-template></xsl:otherwise>
*!*    </xsl:choose>in;<xsl:choose>
*!*      <xsl:when test="$styleType='VR'">width:0in;</xsl:when>
*!*      <xsl:when test="$styleType='TextArea'">width:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@w div $printDPI"/></xsl:call-template>in;</xsl:when>
*!*    <xsl:when test="$styleType='Div'">width:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@w div $printDPI"/></xsl:call-template>in;height:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@h div $printDPI"/></xsl:call-template>in;</xsl:when></xsl:choose><xsl:if test="not($styleType='Div')">height:<xsl:call-template name="setPrecision"><xsl:with-param name="theNumber" select="@h div $printDPI"/></xsl:call-template>in;</xsl:if>
*!*    <xsl:if test="$useDynamicTextAttributes=1 and key('Layout',concat($thisID,$thisReportID))[objtype=5 or objtype=8]">
*!*    <xsl:call-template name="addDynamicTextStyleAttributes"/>
*!*    </xsl:if>
*!*    </xsl:attribute>
*!*        </xsl:template>
*!*        <xsl:template name="addDynamicTextStyleAttributes">
*!*      <!-- dynamic values for font, omit these attributes if they don't appear on each object-->
*!*      <xsl:if test="@FNAME">
*!*        font-family:'<xsl:value-of select="@FNAME"/>';font-size:<xsl:value-of select="@FSIZE"/>pt;
*!*        <xsl:if test="((@FSTYLE div 128) mod 2 = 1) or ( (@FSTYLE div 4) mod 2 = 1)">text-decoration:<xsl:if test="((@FSTYLE div 128) mod 2 = 1)">line-through</xsl:if><xsl:if test="( (@FSTYLE div 8) mod 2 = 1)">underline</xsl:if>;</xsl:if>
*!*        font-weight:<xsl:choose><xsl:when test="@FSTYLE mod 2 = 1">bold</xsl:when><xsl:otherwise>normal</xsl:otherwise></xsl:choose>;
*!*        font-style:<xsl:choose><xsl:when test="(@FSTYLE div 2) mod 2 =1">italic</xsl:when><xsl:otherwise>normal</xsl:otherwise></xsl:choose>;
*!*       background-color:<xsl:call-template name="getAlphaColor">
*!*       <xsl:with-param name="alpha" select="@FA"/>
*!*       <xsl:with-param name="r" select="@FR"/>
*!*       <xsl:with-param name="g" select="@FG"/>
*!*       <xsl:with-param name="b" select="@FB"/>
*!*       </xsl:call-template>;color:<xsl:call-template name="getAlphaColor"/>;
*!*        </xsl:if>
*!*        </xsl:template>
*!*       <xsl:template name="getAlphaColor">
*!*       <xsl:param name="alpha" select="@PA"/>
*!*       <xsl:param name="r" select="@PR"/>
*!*       <xsl:param name="g" select="@PG"/>
*!*       <xsl:param name="b" select="@PB"/>
*!*       <xsl:choose>
*!*       <xsl:when test="$alpha=0">transparent</xsl:when>
*!*       <xsl:when test="$alpha=255 or ($r+$g+$b > $fieldAlphaOpacityShade)"><xsl:value-of select="concat('rgb(',$r,',',$g,',',$b,')')"/></xsl:when>
*!*       <xsl:otherwise><xsl:value-of select="concat('rgb(',$r+$fieldAlphaOpacityOffset,',',$g+$fieldAlphaOpacityOffset,',',$b+$fieldAlphaOpacityOffset,')')"/></xsl:otherwise>
*!*       </xsl:choose>
*!*       </xsl:template>
*!*
*!*        <xsl:template name="replaceWhiteSpace">
*!*        <xsl:param name="string" select="."/>
*!*        <xsl:choose>
*!*          <xsl:when test="contains($string,'
')">
*!*            <xsl:call-template name="replaceWhiteSpace">
*!*              <xsl:with-param name="string" select="substring-before($string, '
')"/>
*!*            </xsl:call-template>
*!*            <br/>
*!*            <xsl:call-template name="replaceWhiteSpace">
*!*              <xsl:with-param name="string" select="substring-after($string, '
')"/>
*!*            </xsl:call-template>
*!*          </xsl:when>
*!*          <xsl:otherwise>
*!*            <xsl:value-of select="$string"/>
*!*          </xsl:otherwise>
*!*        </xsl:choose>
*!*      </xsl:template>
*!*      <xsl:template name="Script">
*!*        <script language="JavaScript">
*!*          <xsl:comment>
*!*         //TBD
*!*          </xsl:comment>
*!*        </script>
*!*      </xsl:template>
*!*      <xsl:template match="*|@*" mode="debug">
*!*       <xsl:copy-of select="."/>
*!*      </xsl:template>
*!*    </xsl:stylesheet>
*!*    ENDTEXT
*!*    SET TEXTMERGE OFF
*!*    SET TEXTMERGE TO
*!*    RETURN m.lcResult
ENDPROC
PROCEDURE cssclassattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal) ;
   AND NOT (m.vNewVal == THIS.cssClassAttr)
   THIS.cssClassAttr = m.vNewVal
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE anchorattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal) ;
   AND NOT (m.vNewVal == THIS.anchorAttr)
   THIS.anchorAttr = m.vNewVal
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE titleattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal) ;
   AND NOT (m.vNewVal == THIS.titleAttr )
   THIS.titleAttr  = m.vNewVal
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE linkattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal) ;
   AND NOT (m.vNewVal == THIS.linkAttr)
   THIS.linkAttr = m.vNewVal
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE cssclassoverrideattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal) ;
   AND NOT (m.vNewVal == THIS.cssClassOverrideAttr)
   THIS.cssClassOverrideAttr = m.vNewVal
   THIS.SynchXSLTProcessorUser()
ENDIF
ENDPROC
PROCEDURE urlstringencode
LPARAMETER m.tcValue, m.tlEncodeURLControlChars, m.tlEncodeSpace
* Thanks to Rick Strahl and West Wind for help and advice!
IF VARTYPE(m.tcValue) # "C"
   RETURN ""
ENDIF
LOCAL m.lcResult, m.lcChar, m.ii, m.lcOKChars
m.lcResult=""
m.lcOKChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
IF NOT m.tlEncodeURLControlChars
   * by default, we also exempt chars that might
   * indicate an anchor or a query string element
   m.lcOKChars = m.lcOKChars + ".?=&#"
ENDIF
FOR m.ii=1 TO LEN(m.tcValue)
   m.lcChar = SUBSTR(m.tcValue,m.ii,1)
   IF ATC(m.lcChar,m.lcOKChars) > 0
      m.lcResult=m.lcResult + m.lcChar
      LOOP
   ENDIF
   IF m.lcChar=" " AND NOT m.tlEncodeSpace
      m.lcResult = m.lcResult + "+"
      LOOP
   ENDIF
   m.lcResult = m.lcResult + "%" + RIGHT(TRANSFORM(ASC(m.lcChar),"@0"),2)
ENDFOR
RETURN m.lcResult
ENDPROC
PROCEDURE pathencode
LPARAMETERS m.tcVal, m.tlXMLEncode
LOCAL m.lcVal, m.lcTempVal, m.laVals[1], m.liIndex, m.liSeparators
m.lcVal = ALLTRIM(CHRTRAN(m.tcVal,"\","/"))
* default XSLT would take care of the above anyway, but
* no harm in doing it here
DO CASE
CASE LEN(m.lcVal) = 0
   * nothing
CASE AT("/",m.lcVal) > 0
   m.lcTempVal = ""
   m.liSeparators = ALINES(m.laVals,m.lcVal,0,"/")
   FOR m.liIndex = 1 TO m.liSeparators
      IF ":" $ m.laVals[m.liIndex]
         m.lcTempVal = m.lcTempVal + m.laVals[m.liIndex]
      ELSE
         m.lcTempVal = m.lcTempVal + ;
                       THIS.urlStringEncode(m.laVals[m.liIndex])
      ENDIF
      IF m.liIndex < m.liSeparators
         m.lcTempVal = m.lcTempVal + "/"
      ENDIF
   ENDFOR
   IF RIGHT(m.lcVal,1) = "/"
      m.lcTempVal = m.lcTempVal + "/"
   ENDIF
   m.lcVal = m.lcTempVal
OTHERWISE
   m.lcVal = THIS.urlStringEncode(m.lcVal)
ENDCASE
#IF OUTPUTXML = OUTPUTXML_RAW
   IF m.tlXMLEncode
      * the result is going to an XML document
      m.lcVal = THIS.xmlRawConv(m.lcVal)
   ENDIF
#ENDIF
RETURN m.lcVal
ENDPROC
PROCEDURE updateproperties
IF NOT This.lObjTypeMode OR (VARTYPE(_Screen.oFoxyPreviewer) <> "O")
    RETURN
ENDIF
LOCAL loFP
loFP = _Screen.oFoxyPreviewer
IF VARTYPE(This.CommandClauses) = "O"
    *!*    IF This.CommandClauses.Preview
    *!*        This.lOpenViewer = .T.
    *!*    ELSE
    *!*        This.lOpenViewer = NVL(loFP.lOpenViewer, .T.)
    *!*    ENDIF
    This.lOpenViewer = This.CommandClauses.Preview
    IF NOT EMPTY(This.CommandClauses.ToFile)
        This.TargetFileName = This.CommandClauses.ToFile
    ELSE
        IF VARTYPE(_Screen.oFoxyPreviewer) = "O" AND ;
                NOT EMPTY(_Screen.oFoxyPreviewer.cDestFile) AND ;
                EMPTY(This.TargetFileName)
            LOCAL lcDestFile
            lcDestFile = _Screen.oFoxyPreviewer.cDestFile
            IF NOT "\" $ lcDestFile
                lcDestFile = ALLTRIM(ADDBS(_Screen.oFoxyPreviewer.cOutputPath) + lcDestFile)
            ENDIF
            This.TargetFileName = lcDestFile
        ELSE
            LOCAL lcFile
            lcFile = This.TargetFileName
            IF EMPTY(lcFile)
                lcFile = PUTFILE("","","htm")
            ENDIF
            IF EMPTY(lcFile)
                _ReportListener::CancelReport()
                * This.CancelReport()
                RETURN .F.
            ENDIF
            This.TargetFileName = lcFile
        ENDIF
    ENDIF
ENDIF
This.QUIETMODE        = NVL(loFP.lQuietMode         , .F.)
IF VARTYPE(This.CommandClauses) = "O"
    IF This.CommandClauses.Preview
        This.lOpenViewer = .T.
    ENDIF
    IF NOT EMPTY(This.CommandClauses.ToFile)
        This.TargetFileName = This.CommandClauses.ToFile
    ENDIF
ENDIF
ENDPROC
PROCEDURE fillruncollector
DODEFAULT()
IF NOT ISNULL(THIS.runCollector)
   * should have been taken care of by superclass
   THIS.setFRXDataSession()
   IF USED(THIS.memberDataAlias)
      LOCAL m.lvValue, m.lcExpr, m.liSelect, m.loXML, m.loXMLTemp, m.loNode
      IF USED("FRX")
         GO (THIS.frxHeaderRecno) IN FRX
         #IF OUTPUTXML = OUTPUTXML_DOM
            m.loXML = CREATEOBJECT(OUTPUTXML_DOMFREETHREADED_DOCUMENTOBJECT)
            m.loXMLTemp = CREATEOBJECT(OUTPUTXML_DOMFREETHREADED_DOCUMENTOBJECT)
         #ELSE
            m.loXML = CREATEOBJECT("Microsoft.XMLDOM")
            m.loXMLTemp = CREATEOBJECT("Microsoft.XMLDOM")
         #ENDIF
         IF NOT m.loXML.LoadXML(FRX.Style)
            m.loXML = NULL
         ENDIF
      ENDIF
      IF NOT ISNULL(m.loXML)
         m.liSelect = SELECT(0)
         SELECT (THIS.memberDataAlias)
         LOCATE FOR FRXRecno = THIS.frxHeaderRecno AND ;
                 Type = FRX_BLDR_MEMBERDATATYPE  ;
                 AND Name == FRX_BLDR_NAMESPACE_ADVANCEDPROPS ;
                 AND ExecWhen == FRX_BLDR_ADVPROP_HTML_HTTPEQUIV ;
                 AND VAL(DeClass) = ADVPROP_EDITMODE_TEXT ;
                 AND NOT EMPTY(Execute)
         IF FOUND()
            m.lvValue = ;
                      m.loXML.SelectSingleNode("/VFPData/reportdata" + ;
                      "[@name='" + Name + "' and @execwhen='" + ;
                      FRX_BLDR_ADVPROP_HTML_HTTPEQUIV + "']/@execute")
            IF (NOT ISNULL(m.lvValue)) AND ;
                 m.loXMLTemp.LoadXML(m.lvValue.Text)
                 m.loXML = m.loXMLTemp.SelectNodes("//meta")
                 FOR EACH m.loNode IN m.loXML
                    m.lcExpr = m.loNode.getAttribute("name")
                    m.lvValue = m.loNode.getAttribute("content")
                    IF NOT (ISNULL(m.lcExpr) OR ISNULL(m.lvValue) OR ;
                           EMPTY(m.lcExpr) OR EMPTY(m.lvValue))
                       IF VAL(m.loNode.getAttribute("type")) = ADVPROP_EDITMODE_GETEXPR
                          m.lvValue = THIS.evaluateUserExpression(m.lvValue)
                       ENDIF
                      IF THIS.runCollector.getKey(FRX_BLDR_ADVPROP_HTML_HTTPEQUIV+"." + m.lcExpr) = 0
                         THIS.runCollector.add(m.lvValue,FRX_BLDR_ADVPROP_HTML_HTTPEQUIV+"." + m.lcExpr)
                      ENDIF
                   ENDIF
                NEXT
            ENDIF
         ENDIF
         STORE NULL  TO m.loXML, m.loXMLTemp, m.loNode
         SELECT (liSelect)
      ENDIF
   ENDIF
ENDIF
ENDPROC
PROCEDURE getrawformattinginfo
LPARAMETERS m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight, m.tnObjectContinuationType
LOCAL m.lcInfo, m.lcVal, m.liRecno
m.lcInfo = DODEFAULT(m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight, m.tnObjectContinuationType)
THIS.setFRXDataSession()
m.liRecno = RECNO("FRX")
IF USED(THIS.MemberDataAlias) AND ;
   SEEK(m.liRecno,THIS.MemberDataAlias,"FRXRecno")
   SELECT (THIS.MemberDataAlias)
   m.lcVal = ""
   LOCATE FOR FRXRecno = m.liRecno AND ;
          Type = FRX_BLDR_MEMBERDATATYPE  AND  ;
          Name = FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
          ExecWhen =  FRX_BLDR_ADVPROP_HTML_CSS_CLASSOVERRIDE
   IF FOUND()
      IF VAL(DeClass) = ADVPROP_EDITMODE_GETEXPR
         m.lcVal = TRANSFORM(THIS.evaluateUserExpression(Execute))
      ELSE
         m.lcVal = Execute
      ENDIF
   ENDIF
   SELECT (THIS.MemberDataAlias)
   IF NOT EMPTY(m.lcVal)
      m.lcInfo = m.lcInfo + " "+THIS.cssClassOverrideAttr+"='"+m.lcVal+"'"
   ELSE
      * try again with other css class attribute
      LOCATE FOR FRXRecno = m.liRecno AND ;
             Type = FRX_BLDR_MEMBERDATATYPE  AND  ;
             Name = FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
             ExecWhen =  FRX_BLDR_ADVPROP_HTML_CSS_CLASSEXTEND
      IF FOUND()
         IF VAL(DeClass) = ADVPROP_EDITMODE_GETEXPR
            m.lcVal = TRANSFORM(THIS.evaluateUserExpression(Execute))
         ELSE
            m.lcVal = Execute
         ENDIF
      ENDIF
      IF NOT EMPTY(m.lcVal)
         m.lcInfo = m.lcInfo + " "+THIS.cssClassAttr+"='"+m.lcVal+"'"
      ENDIF
   ENDIF
   SELECT (THIS.MemberDataAlias)
   m.lcVal = ""
   LOCATE FOR FRXRecno = m.liRecno AND ;
          Type = FRX_BLDR_MEMBERDATATYPE  AND  ;
          Name = FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
          ExecWhen =  FRX_BLDR_ADVPROP_HTML_ITEMHREF
   IF FOUND()
      IF VAL(DeClass) = ADVPROP_EDITMODE_GETEXPR
         m.lcVal = TRANSFORM(THIS.evaluateUserExpression(Execute))
      ELSE
         m.lcVal = Execute
      ENDIF
   ENDIF
   IF NOT EMPTY(m.lcVal)
      m.lcInfo = m.lcInfo + " "+ ;
        THIS.linkAttr +"='"+ ;
        THIS.pathEncode(m.lcVal, .T.)+"'"
   ENDIF
   SELECT (THIS.MemberDataAlias)
   m.lcVal = ""
   LOCATE FOR FRXRecno = m.liRecno AND ;
          Type = FRX_BLDR_MEMBERDATATYPE  AND  ;
          Name = FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
          ExecWhen =  FRX_BLDR_ADVPROP_HTML_ITEMTITLE
   IF FOUND()
      IF VAL(DeClass) = ADVPROP_EDITMODE_GETEXPR
         m.lcVal = TRANSFORM(THIS.evaluateUserExpression(Execute))
      ELSE
         m.lcVal = Execute
      ENDIF
   ENDIF
   IF NOT EMPTY(m.lcVal)
      m.lcInfo = m.lcInfo + " "+THIS.titleAttr +"='"+m.lcVal+"'"
   ENDIF
   SELECT (THIS.MemberDataAlias)
   m.lcVal = ""
   LOCATE FOR FRXRecno = m.liRecno AND ;
          Type = FRX_BLDR_MEMBERDATATYPE  AND  ;
          Name = FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
          ExecWhen =  FRX_BLDR_ADVPROP_HTML_ITEMANCHOR
   IF FOUND()
      IF VAL(DeClass) = ADVPROP_EDITMODE_GETEXPR
         m.lcVal = TRANSFORM(THIS.evaluateUserExpression(Execute))
      ELSE
         m.lcVal = Execute
      ENDIF
   ENDIF
   IF NOT EMPTY(m.lcVal)
      m.lcInfo = m.lcInfo + " "+ ;
                 THIS.anchorAttr +"='"+ ;
                 THIS.pathEncode(m.lcVal, .T.)+"'"
   ENDIF
   SELECT FRX
ENDIF
RETURN m.lcInfo
ENDPROC
PROCEDURE getdefaultuserxslt
LOCAL m.lcResult
m.lcResult = THIS.getDefaultUserXSLTAsString()
* document properties, general
m.lcResult = STRTRAN(m.lcResult,"@id='description'","@id='"+FRX_BLDR_ADVPROP_DESCRIPTION+"'")
m.lcResult = STRTRAN(m.lcResult,"@id='author'","@id='"+FRX_BLDR_ADVPROP_AUTHOR+"'")
m.lcResult = STRTRAN(m.lcResult,"@id='keywords'","@id='"+FRX_BLDR_ADVPROP_KEYWORDS+"'")
m.lcResult = STRTRAN(m.lcResult,"@id='title'","@id='"+FRX_BLDR_ADVPROP_TITLE+"'")
m.lcResult = STRTRAN(m.lcResult,"@id='copyright'","@id='"+FRX_BLDR_ADVPROP_COPYRIGHT+"'")
m.lcResult = STRTRAN(m.lcResult,"@id='date'","@id='"+FRX_BLDR_ADVPROP_DATE+"'")
* document properties, HTML-specific
m.lcResult = STRTRAN(m.lcResult,"@id='css_sheet'","@id='"+FRX_BLDR_ADVPROP_HTML_CSS_FILE +"'")
m.lcResult = STRTRAN(m.lcResult,"@id='http-equiv'","@id='"+FRX_BLDR_ADVPROP_HTML_HTTPEQUIV  +"'")
* base VFP-RDL XML characteristics set
m.lcResult = STRTRAN(m.lcResult,"@h","@"+ THIS.HeightAttr)
m.lcResult = STRTRAN(m.lcResult,"@w","@"+ THIS.WidthAttr)
m.lcResult = STRTRAN(m.lcResult,"@l","@"+ THIS.LeftAttr)
m.lcResult = STRTRAN(m.lcResult,"@t","@"+ THIS.TopAttr)
m.lcResult = STRTRAN(m.lcResult,"@c","@"+ THIS.ContAttr)
m.lcResult = STRTRAN(m.lcResult,"@idref","@"+ THIS.IdRefAttribute)
m.lcResult = STRTRAN(m.lcResult,"@id","@"+THIS.IdAttribute)
m.lcResult = STRTRAN(m.lcResult,"@img","@"+THIS.imageSrcAttr )
* dynamic data and page-image extension set implemented in XMLListener
m.lcResult = STRTRAN(m.lcResult,"@DTEXT","@"+THIS.dataTextAttr  )
m.lcResult = STRTRAN(m.lcResult,"@DTYPE","@"+THIS.dataTypeAttr  )
m.lcResult = STRTRAN(m.lcResult,"@PLINK","@"+THIS.pageImageAttr  )
* dynamic formatting extension set implemented in XMLDisplayListener
m.lcResult = STRTRAN(m.lcResult,"@PA","@"+THIS.penAlphaAttr  )
m.lcResult = STRTRAN(m.lcResult,"@PR","@"+THIS.penRedAttr  )
m.lcResult = STRTRAN(m.lcResult,"@PG","@"+THIS.penGreenAttr  )
m.lcResult = STRTRAN(m.lcResult,"@PB","@"+THIS.penBlueAttr  )
m.lcResult = STRTRAN(m.lcResult,"@FA","@"+THIS.fillAlphaAttr  )
m.lcResult = STRTRAN(m.lcResult,"@FR","@"+THIS.fillRedAttr  )
m.lcResult = STRTRAN(m.lcResult,"@FG","@"+THIS.fillGreenAttr  )
m.lcResult = STRTRAN(m.lcResult,"@FB","@"+THIS.fillBlueAttr  )
m.lcResult = STRTRAN(m.lcResult,"@FNAME","@"+THIS.fontNameAttr  )
m.lcResult = STRTRAN(m.lcResult,"@FSIZE","@"+THIS.fontSizeAttr  )
m.lcResult = STRTRAN(m.lcResult,"@FSTYLE","@"+THIS.fontStyleAttr  )
* dynamic HTML extension set implemented in this class
m.lcResult = STRTRAN(m.lcResult,"@title","@"+THIS.titleAttr )
m.lcResult = STRTRAN(m.lcResult,"@alt","@"+THIS.titleAttr )
m.lcResult = STRTRAN(m.lcResult,"@css","@"+THIS.cssClassAttr )
m.lcResult = STRTRAN(m.lcResult,"@CSS","@"+THIS.cssClassOverrideAttr )
m.lcResult = STRTRAN(m.lcResult,"@anchor","@"+THIS.anchorAttr )
m.lcResult = STRTRAN(m.lcResult,"@hlink","@"+THIS.linkAttr )
THIS.XSLTProcessorUser = m.lcResult
ENDPROC
PROCEDURE Init
IF DODEFAULT()
   THIS.AppName = OUTPUTHTML_APPNAME_LOC
   RETURN .F.
ENDIF
RETURN NOT THIS.HadError
ENDPROC
PROCEDURE setdomformattinginfo
LPARAMETERS m.toNode, m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight, m.tnObjectContinuationType
LOCAL  m.lcVal, m.liRecno
DODEFAULT( m.toNode, m.tnLeft, m.tnTop, m.tnWidth,m.tnHeight, m.tnObjectContinuationType)
THIS.setFRXDataSession()
m.liRecno = RECNO("FRX")
IF USED(THIS.MemberDataAlias) AND ;
   SEEK(m.liRecno,THIS.MemberDataAlias,"FRXRecno")
   SELECT (THIS.MemberDataAlias)
   m.lcVal = ""
   LOCATE FOR FRXRecno = m.liRecno AND ;
          Type = FRX_BLDR_MEMBERDATATYPE  AND  ;
          Name = FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
          ExecWhen =  FRX_BLDR_ADVPROP_HTML_CSS_CLASSOVERRIDE
   IF FOUND()
      IF VAL(DeClass) = ADVPROP_EDITMODE_GETEXPR
         m.lcVal = TRANSFORM(THIS.evaluateUserExpression(Execute))
      ELSE
         m.lcVal = Execute
      ENDIF
   ENDIF
   SELECT (THIS.MemberDataAlias)
   IF NOT EMPTY(m.lcVal)
      m.toNode.SetAttribute(THIS.cssClassOverrideAttr,m.lcVal )
   ELSE
      * try again with other css class attribute
      LOCATE FOR FRXRecno = m.liRecno AND ;
             Type = FRX_BLDR_MEMBERDATATYPE  AND  ;
             Name = FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
             ExecWhen =  FRX_BLDR_ADVPROP_HTML_CSS_CLASSEXTEND
      IF FOUND()
         IF VAL(DeClass) = ADVPROP_EDITMODE_GETEXPR
            m.lcVal = TRANSFORM(THIS.evaluateUserExpression(Execute))
         ELSE
            m.lcVal = Execute
         ENDIF
      ENDIF
      IF NOT EMPTY(m.lcVal)
         m.toNode.SetAttribute(THIS.cssClassAttr,m.lcVal )
      ENDIF
   ENDIF
   SELECT (THIS.MemberDataAlias)
   m.lcVal = ""
   LOCATE FOR FRXRecno = m.liRecno AND ;
          Type = FRX_BLDR_MEMBERDATATYPE  AND  ;
          Name = FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
          ExecWhen =  FRX_BLDR_ADVPROP_HTML_ITEMHREF
   IF FOUND()
      IF VAL(DeClass) = ADVPROP_EDITMODE_GETEXPR
         m.lcVal = TRANSFORM(THIS.evaluateUserExpression(Execute))
      ELSE
         m.lcVal = Execute
      ENDIF
   ENDIF
   IF NOT EMPTY(m.lcVal)
      m.toNode.SetAttribute(THIS.linkAttr,THIS.pathEncode(m.lcVal))
   ENDIF
   SELECT (THIS.MemberDataAlias)
   m.lcVal = ""
   LOCATE FOR FRXRecno = m.liRecno AND ;
          Type = FRX_BLDR_MEMBERDATATYPE  AND  ;
          Name = FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
          ExecWhen =  FRX_BLDR_ADVPROP_HTML_ITEMTITLE
   IF FOUND()
      IF VAL(DeClass) = ADVPROP_EDITMODE_GETEXPR
         m.lcVal = TRANSFORM(THIS.evaluateUserExpression(Execute))
      ELSE
         m.lcVal = Execute
      ENDIF
   ENDIF
   IF NOT EMPTY(m.lcVal)
      m.toNode.SetAttribute(THIS.titleAttr,m.lcVal )
   ENDIF
   SELECT (THIS.MemberDataAlias)
   m.lcVal = ""
   LOCATE FOR FRXRecno = m.liRecno AND ;
          Type = FRX_BLDR_MEMBERDATATYPE  AND  ;
          Name = FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
          ExecWhen =  FRX_BLDR_ADVPROP_HTML_ITEMANCHOR
   IF FOUND()
      IF VAL(DeClass) = ADVPROP_EDITMODE_GETEXPR
         m.lcVal = TRANSFORM(THIS.evaluateUserExpression(Execute))
      ELSE
         m.lcVal = Execute
      ENDIF
   ENDIF
   IF NOT EMPTY(m.lcVal)
      m.toNode.SetAttribute(THIS.anchorAttr,THIS.pathEncode(m.lcVal) )
   ENDIF
   SELECT FRX
ENDIF
ENDPROC
PROCEDURE BeforeReport
DODEFAULT()
THIS.oldPageImageType = -1
IF THIS.XMLMode # OUTPUTXML_RDL_ONLY
   LOCAL llSetting, liSelect
   THIS.setFRXDataSession()
   IF USED(THIS.memberDataAlias)
      m.liSelect = SELECT(0)
      SELECT (THIS.memberDataAlias)
      LOCATE FOR Type == FRX_BLDR_MEMBERDATATYPE AND ;
                 Name == FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
                 ExecWhen == FRX_BLDR_ADVPROP_HTML_PAGEIMAGEHREF AND ;
                 THIS.evaluateStringToBoolean(Execute)
      IF FOUND() AND THIS.pageImageType = 0
         THIS.oldPageImageType = 0
         THIS.pageImageType =  OUTPUTHTML_DEFAULT_PAGEIMAGE_TYPE
         IF THIS.ListenerType = LISTENER_TYPE_DEF
            THIS.ListenerType = LISTENER_TYPE_PAGED
         ENDIF
         IF THIS.supportsPageImages()
            THIS.makeExternalFileLocationReachable()
         ELSE
            IF NOT THIS.IsSuccessor
               THIS.pageImageType =  0
            ENDIF
         ENDIF
      ENDIF
      IF NOT THIS.CommandClauses.NoPageEject
         * we can only make this adjustment once per chain,
         * since it can only be applied once per chain.
         * Last one wins.
         LOCATE FOR Type == FRX_BLDR_MEMBERDATATYPE AND ;
                    Name == FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
                    ExecWhen == FRX_BLDR_ADVPROP_HTML_TEXTAREAS_OFF
         IF FOUND()
            llSetting = THIS.evaluateStringToBoolean(Execute)
            IF VARTYPE(THIS.xsltParameters) = "O" AND ;
               THIS.xsltParameters.GetKey("useTextAreaForStretchingText") > 0
               THIS.oldTextAreaSetting = THIS.xsltParameters["useTextAreaForStretchingText"]
            ELSE
               THIS.oldTextAreaSetting = 1
            ENDIF
            THIS.adjustXSLTParameter( ;
                 IIF(llSetting,0,1),"useTextAreaForStretchingText")
         ENDIF
      ENDIF
   ENDIF
ENDIF
THIS.resetDataSession()
ENDPROC
PROCEDURE AfterReport
LPARAMETERS tlCalledEarly
DODEFAULT(tlCalledEarly)
IF THIS.oldPageImageType <> -1
   THIS.pageImageType = THIS.oldPageImageType
ENDIF
THIS.resetDataSession()
* by CChalom
IF This.lObjTypeMode
    LOCAL llSaved
    llSaved = FILE(This.targetFileName)
    IF llSaved
        _Screen.oFoxyPreviewer.lSaved = llSaved
        IF This.lOpenViewer
            This.ShellExec(This.TargetFileName)
        ENDIF
    ENDIF
ENDIF
ENDPROC
PROCEDURE applyusertransformtooutput
DODEFAULT()
IF THIS.oldTextAreaSetting <> -1
   THIS.adjustXSLTParameter( THIS.oldTextAreaSetting,"useTextAreaForStretchingText")
   THIS.oldTextAreaSetting = -1
ENDIF
ENDPROC
PROCEDURE LoadReport
This.UpdateProperties()
DODEFAULT()
ENDPROC
VNEWVAL
THIS
ISRUNNING
READCONFIGURATION2
OutputConfig
OutputConfig
OutputConfig
ObjCode
OutputConfig
PROPERTY
THIS.
|METHOD|
|EVENT|
THIS.
TLCALLEDFROMINIT
THIS
ISRUNNING
LISELECT
LCPEM
LLOPENED
LCORDER
LITYPE
LLQUIET
QUIETMODE
GETCONFIGTABLE
CONFIGURATIONTABLE
OBJCODE
HADERROR
VERIFYCONFIGTABLE
OUTPUTCONFIG
CONFIGURATIONOBJTYPE
OBJTYPE
OBJNAME
OBJVALUE
FoxyOutputConfig
FoxyOutputConfig
_ReportOutputConfig
FoxyOutputConfig
Configuration table
 was created.
TLFORCEEXTERNAL
LCDBF
LCPATH
LLISDBF
THIS
ISRUNNING
GETPATHFOREXTERNALS
CREATECONFIGTABLE
DOMESSAGE
CONFIGURATIONTABLEP
DoMessage
"Welcome to the demo run!",64
Sample initialization/config method call
TargetFileName
"xxx"
Sample initialization/config property
TCDBF
TLOVERWRITE
LISELECT
LCFILE
OBJTYPE
OBJCODE
OBJNAME
OBJVALUE
OBJINFO
ONDELETED
File
 cannot be created.
File
 cannot be created.
VERIFYTARGETFILE
TARGETHANDLE
TARGETFILENAME
HADERROR
DOMESSAGE
LASTERRORMESSAGEA
?*"<>|
?*"<>|
LCFILE
TARGETFILENAME
TARGETFILEEXTD
VNEWVAL
THIS
ISRUNNING
TARGETFILEEXTD
VNEWVAL
THIS
ISRUNNING
TARGETFILENAMED
VNEWVAL
THIS
ISRUNNING
TARGETHANDLE
 created your report as
However, an error occurred during processing.
Report execution was cancelled.
Your results are not complete.
 created your report as
However, an error occurred during processing.
Report execution was cancelled.
Your results are not complete.
 was not able to create your report.
 was not able to create your report.
LADUMMY
TARGETHANDLE
TARGETFILENAME
HADERROR
DOMESSAGE
APPNAME
LASTERRORMESSAGEB
.OBJTYPE
.OBJCODE
.OBJNAME
.OBJVALUE
.OBJINFO
Configuration table is not in correct format.
EXACTv
OBJTYPE
OBJCODE
OBJNAME
OBJVALUE
DELETED()
SAFETYv
Configuration table is missing C
one or more required indexes.
TCALIAS
TCFAILUREMSGTABLE
TCFAILUREMSGINDEXES
LCTABLE
LCMESSAGE
LCALIAS
LISELECT
LLRETURN
LITAGCOUNT
LAREQUIRED
LAKEYS
LIFOUND
LLEXACTOFF
LLSAFETYON
OBJTYPE
OBJCODE
OBJNAME
OBJVALUE
ONDELETED
THIS
DOMESSAGE
LASTERRORMESSAGE
VNEWVAL
THIS
ISRUNNING
EXTERNALFILELOCATION{
VNEWVAL
PAGEIMAGETYPE
PAGEIMAGEEXTENSION
GETPAGEIMAGEEXTENSION
LCEXT
PAGEIMAGETYPE
TIPAGE
TLFULLPATH
LCFILENAME
TARGETFILENAME
PAGEIMAGEEXTENSION
EXTERNALFILELOCATION
OUTPUTPAGE
AFTERREPORT
UNLOADREPORT
TCMETHODTOKEN
ISSUCCESSOR
PAGEIMAGETYPE
LISTENERTYPEd
TIPAGE
LCFILE
LLERROR
PAGEIMAGETYPE
GENERATEPAGEIMAGEFILENAME
OUTPUTPAGEQ
TVNEWVAL
CURRENTPAGEIMAGEFILENAME
EXTERNALFILELOCATION
TARGETFILENAME
LLRUNNING
ISRUNNING
You have asked for page image files to be generated, C
but this report run is not in a mode that currently supports
this feature.
Your main output file will be generated without them.
NBANDOBJCODE
NFRXRECNO
SUPPORTSPAGEIMAGES
LCFILE
LIPAGENO
PAGEIMAGETYPE
COMMANDCLAUSES
RANGEFROM
ISSUCCESSOR
SHAREDPAGENO
PAGENO
GENERATEPAGEIMAGEFILENAME
CURRENTPAGEIMAGEFILENAME
SUCCESSOR
TWOPASSPROCESS
CURRENTPASS
DOMESSAGE
currentPageImageFilename
CURRENTPAGEIMAGEFILENAME
PAGEIMAGETYPE
SUPPORTSPAGEIMAGES
ISSUCCESSOR
LISTENERTYPE!
MAKEEXTERNALFILELOCATIONREACHABLE
SUCCESSOR
ADDPROPERTY
READCONFIGURATION
SETCONFIGURATION
RESETDATASESSION
CLOSETARGETFILE}
FileOutput Listener
APPNAME
READCONFIGURATION
SETCONFIGURATION
HADERROR
AFTERREPORT
COMMANDCLAUSES
NOPAGEEJECT
SUPPORTSPAGEIMAGES
LCFILELOCATION
LIPAGE
LCFILE
EXTERNALFILELOCATION!
MAKEEXTERNALFILELOCATIONREACHABLE
OUTPUTPAGECOUNT
OUTPUTPAGEIMAGE
OUTPUTPAGE
NPAGENO
EDEVICE
NDEVICETYPE
NLEFT
NWIDTH
NHEIGHT
NCLIPLEFT
NCLIPTOP
NCLIPWIDTH
NCLIPHEIGHT
SUPPORTSPAGEIMAGES
OUTPUTPAGEIMAGE
readconfiguration_assign,
setconfiguration
getconfigtable
createconfigtable
opentargetfile
verifytargetfile
targetfileext_assignx
targetfilename_assign
targethandle_assign[
closetargetfile
verifyconfigtable
configurationobjtype_access
externalfilelocation_assign%
pageimagetype_assign
getpageimageextension
generatepageimagefilename
supportspageimages
outputpageimage
currentpageimagefilename_assign
makeexternalfilelocationreachable
BeforeBand*!
BeforeReport'%
setfrxdatasessionenvironment
Destroy!'
InitU'
AfterReport
OutputPage
DOSTATUS
UPDATESTATUS
CLEARSTATUS
AFTERBAND
AFTERREPORT
m.toListener.CommandClauses.RecordTotalb
BEFOREBAND
DATASESSIONv
BEFOREREPORT
CANCELREPORT
DATASESSIONv
LOADREPORT
reportStartRunDatetime
m.toListener.CommandClauses.NoDialogb
UNLOADREPORT
reportStopRunDatetime
TOLISTENER
TCMETHODTOKEN
TP12
LISESSION
DOSTATUS
UPDATESTATUS
CLEARSTATUS
SYNCHSTATUS
ISRUNNING
CURRENTRECORD
COMMANDCLAUSES
RECORDTOTAL
DESIGNATEDDRIVER
DRIVINGALIAS
SUCCESSORSYS2024
VISIBLE
REPORTSTOPRUNDATETIME
POPUSERFEEDBACKGLOBALSETS
CURRENTPASS
CURRENTDATASESSION
SETUPREPORT
QUIETMODE
PAGELIMIT
PAGENO
ALLOWMODALMESSAGES
DOMESSAGE
CANCELQUERYTEXT
ATTENTIONTEXT
CANCELREQUESTED
ISSUCCESSOR
REPORTINCOMPLETETEXT
RESETUSERFEEDBACK
ADDPROPERTY
REPORTSTARTRUNDATETIME
NODIALOG
INITSTATUSTEXT
PUSHUSERFEEDBACKGLOBALSETS
PERSISTBETWEENRUNS
LISTENERDATASESSION
RELEASE9
VNEWVAL
INCLUDESECONDS9
VNEWVAL
INITSTATUSTEXT9
VNEWVAL
PREPASSSTATUSTEXT
VNEWVAL
RUNSTATUSTEXT
VNEWVAL
SECONDSTEXT
VNEWVAL
LCTYPE
CMESSAGE
THERMCAPTIONF
VNEWVAL
THERMFORMCAPTION
SETTHERMFORMCAPTION
VNEWVAL
THERMFORMHEIGHT
THERMMARGIN
SYNCHUSERINTERFACE
VNEWVAL
THERMFORMWIDTH
THERMMARGIN
SYNCHUSERINTERFACE~
VNEWVAL
THERMFORMHEIGHT
THERMFORMWIDTH
THERMMARGIN
SYNCHUSERINTERFACE
_SCREEN.ActiveFormb
THIS.CommandClauses.InWindowb
THIS.CommandClauses.Windowb
_SCREEN.ActiveFormb
_SCREEN.ActiveFormb
LOFORM
LOTOPFORM
LCINWINDOW
ACTIVEFORM
SHOWWINDOW
COMMANDCLAUSES
INWINDOW
WINDOW
FORMS
NAME
FORMCOUNT6
WINDOWS
SKIPv
TOLISTENER
LISELECT
LCALIAS
LISKIPS
LASKIPS
FRXDATASESSION
DESIGNATEDDRIVER
DRIVINGALIAS
OBJTYPE
OBJCODE
CURRENTDATASESSION
PLATFORM
TLRESETTIMES
CURRENTRECORD
PERCENTDONE
REPORTSTARTRUNDATETIME
REPORTSTOPRUNDATETIME
THERMFORMCAPTION
SYNCHUSERINTERFACE
TCCOMMANDCLAUSESFILE
TCPRINTJOBNAME
THERMFORMCAPTION
CNAME
CANCELINSTRTEXT
CAPTION@
TOLISTENER
NBANDOBJCODE
NFRXRECNO
THIS
ISRUNNING
FRXBANDRECNO
CURRENTDATASESSION
DRIVINGALIASCURRENTRECNO
DRIVINGALIAS
CURRENTRECORD
COMMANDCLAUSES
RECORDTOTAL
CURRENTPASS
TWOPASSPROCESS
RESETUSERFEEDBACK
UPDATESTATUS
LISTENERDATASESSION
MACDESKTOP
SCREEN
MACDESKTOP
SCREEN
TOLISTENER
CMESSAGE
LOPARENTFORM
LCCAPTION
LCPARENTFORMNAME
QUIETMODE
THIS
ISRUNNING
COMMANDCLAUSES
NODIALOG
THERMCAPTION
CLOSABLE
MOVABLE
THERMSHAPE
WIDTH
PERCENTDONE
THERMBACK
VISIBLE
GETPARENTWINDOWREF
DESKTOP
MACDESKTOP
SHOWWINDOW
ALWAYSONTOP
AUTOCENTER
THERMLABEL
CAPTION
LEFT.
TOLISTENER
VISIBLE>
TOLISTENER
THIS
ISRUNNING
LIRECTOTAL
LNNEWPERCENT
LLSHOW
COMMANDCLAUSES
RECORDTOTAL
CURRENTRECORD
THERMPRECISION
PERCENTDONE
DOSTATUS
CURRENTPASS
TWOPASSPROCESS
PREPASSSTATUSTEXT
RUNSTATUSTEXTM
Notify
ESCAPE
PUBLIC &lcRef.
ON ESCAPE &lcRef..CancelReport()
ESCAPEv
TOLISTENER
STARTMODE
LCREF
SETNOTIFYCURSOR
ONESCAPECOMMAND
ESCAPEREFERENCE
SETESCAPE
RELEASE &lcRef.
ON ESCAPE &lcRef
STARTMODE
LCREF
ESCAPEREFERENCE
ONESCAPECOMMAND
SETNOTIFYCURSOR
SETESCAPE
GetSysColor
Win32API
GETSYSCOLOR
WIN32API
LITHERMTOP
LITHERMLEFT
LITHERMWIDTH
LITHERMHEIGHT
HEIGHT
THERMFORMHEIGHT
WIDTH
THERMFORMWIDTH
CONTROLBOX
CLOSABLE
MOVABLE
THERMMARGIN
SETTHERMFORMCAPTION
THERMBACK
THERMLABEL
PARENT
FORECOLOR
THERMSHAPE
BACKCOLOR
FILLCOLOR
m.toListener.CommandClauses.Summaryb
Summary-
m.toListener.CommandClauses.RecordTotalb
RecordTotal
m.toListener.CommandClauses.NoDialogb
NoDialog-
WINDOWS
WINDOWS
WINDOWS
WINDOWS
WINDOWS
TOLISTENER
LLFRXAVAILABLE
LCALIAS
THIS
ISRUNNING
CURRENTDATASESSION
DRIVINGALIAS
FRXDATASESSION
GETREPORTSCOPEDRIVER
SETTHERMFORMCAPTION
COMMANDCLAUSES
PRINTJOBNAME
FRXBANDRECNO
SUMMARY
OBJTYPE
OBJCODE
PLATFORM
DRIVINGALIASCURRENTRECNO
LISTENERDATASESSION=
VNEWVAL
THERMPRECISION7
VNEWVAL
PERSISTBETWEENRUNS
CancelInstrText
CancelQueryText
ReportIncompleteText
AttentionText
INITSTATUS
PREPSTATUS
RUNSTATUS
SECONDS
CANCELINST
CANCELQUER
REPINCOMPL
ATTENTION
Initializing...
Running calculation prepass...
Creating output...
sec(s)
Press Esc to cancel...
Stop report execution?C
(If you press 'No', report execution will continue.)
Report execution was cancelled.C
Your results are not complete.
Attention
m.cMessage+ " "+
TRANSFORM(THIS.PercentDone,"999"+
IIF(THIS.ThermPrecision=0,"","."+REPL("9",THIS.ThermPrecision))) + "%"
+ IIF(NOT THIS.IncludeSeconds, "" , "   "+
TRANSFORM(IIF(THIS.IsRunning,DATETIME(), THIS.ReportStopRunDateTime)-
THIS.ReportStartRunDateTime)+" " + THIS.SecondsText)
ADDPROPERTY
NAME
_GOHELPER
INITSTATUSTEXT
GETLOC
PREPASSSTATUSTEXT
RUNSTATUSTEXT
SECONDSTEXT
CANCELINSTRTEXT
CANCELQUERYTEXT
REPORTINCOMPLETETEXT
ATTENTIONTEXT
THERMCAPTION
RESETUSERFEEDBACK
applyfx,
includeseconds_assign
initstatustext_assign
prepassstatustext_assignd
runstatustext_assign
secondstext_assign
thermcaption_assign=
thermformcaption_assign
thermformheight_assign
thermformwidth_assignv
thermmargin_assignb
getparentwindowref5
getreportscopedriver
resetuserfeedbackw
setthermformcaption
synchstatus
dostatus
clearstatusE
updatestatus
pushuserfeedbackglobalsets
popuserfeedbackglobalsetsX#
synchuserinterface
setupreport
thermprecision_assign
persistbetweenruns_assign
Initd.
PROCEDURE xmlrawtag
LPARAMETERS m.tcNode, m.tlOpen, m.tcID, m.tcIDRef, m.tvFormatting
LOCAL m.lcNode
IF ISNULL(m.tlOpen) OR m.tlOpen
   m.lcNode = "<" + m.tcNode
   IF NOT EMPTY(m.tcID)
      m.lcNode = m.lcNode + " "+THIS.idAttribute+"='"+m.tcID+"'"
   ENDIF
   IF NOT EMPTY(m.tcIDRef)
      m.lcNode = m.lcNode + " "+THIS.idRefAttribute+"='"+m.tcIDRef+"'"
   ENDIF
   IF NOT EMPTY(m.tvFormatting)
      m.lcNode = m.lcNode + " " + m.tvFormatting
   ENDIF
   IF ISNULL(m.tlOpen)
      m.lcNode = m.lcNode +  "/"
   ENDIF
   m.lcNode = m.lcNode + ">"
   m.lcNode = "</"+ m.tcNode + ">"
ENDIF
RETURN m.lcNode
ENDPROC
PROCEDURE xmlrawnode
LPARAMETERS m.tcNode,m.tcValue, m.tvID, m.tvIDRef, m.tvFormatting
LOCAL m.lcValue, m.lcNode
IF PARAMETERS() < 2
   m.lcValue = ""
   m.lcValue = THIS.XMLRawConv(m.tcValue)
ENDIF
IF EMPTY(m.lcValue)
  m.lcNode = THIS.XMLRawTag(m.tcNode,NULL, m.tvID, m.tvIDRef, m.tvFormatting)
  m.lcNode = THIS.XMLRawTag(m.tcNode, .T., m.tvID, m.tvIDRef, m.tvFormatting)+m.lcValue+THIS.XMLRawTag(m.tcNode)
ENDIF
RETURN m.lcNode
ENDPROC
PROCEDURE xmlrawconv
LPARAMETERS m.tcValue
LOCAL m.lcValue, m.liChar
* must have ampersand as the first STRTRAN()
m.lcValue = STRTRAN(m.tcValue, '&', '&' )
m.lcValue = STRTRAN(m.lcValue, '<', '<' )
m.lcValue = STRTRAN(m.lcValue, '>', '>' )
m.lcValue = STRTRAN(m.lcValue, '"', '"' )
m.lcValue = STRTRAN(m.lcValue, ['], ''' )
m.lcValue = CHRTRAN(m.lcValue, CHR(0)+CHR(4), "  ")
RETURN m.lcValue
* TBD: make any adjustments
* and, if needed, for different element types if needed
ENDPROC
PROCEDURE writeraw
LPARAMETERS m.tcContents
 FWRITE(THIS.TargetHandle, m.tcContents)
ENDPROC
PROCEDURE includebreaksindata_assign
LPARAMETERS m.vNewVal
* Readonly during report run
IF VARTYPE(m.vNewVal) = "N" AND ;
   INLIST(m.vNewVal, ;
          OUTPUTXML_BREAKS_INDATA,;
          OUTPUTXML_BREAKS_NONE, ;
          OUTPUTXML_BREAKS_COLLECTION) AND ;
   NOT THIS.IsRunning
   THIS.IncludeBreaksInData = m.vNewVal
ENDIF
ENDPROC
PROCEDURE xmlmode_assign
LPARAMETERS m.vNewVal
* Readonly during report run
IF NOT THIS.IsRunning
   IF VARTYPE(m.vNewVal) = "N" AND ;
      INLIST(m.vNewVal,;
             OUTPUTXML_DATA_ONLY,;
             OUTPUTXML_RDL_ONLY, ;
             OUTPUTXML_DATA_RDL)
      THIS.xmlmode = m.vNewVal
   ENDIF
ENDIF
ENDPROC
PROCEDURE resetreport
THIS.IncludePage = .T.
THIS.IsRunning = .F.
THIS.DataNodes = NULL
THIS.PageNodes = NULL
THIS.ColumnNodes = NULL
THIS.CurrentBand = NULL
THIS.CurrentPage = NULL
THIS.CurrentColumn = NULL
THIS.evaluateContentsValues = NULL
THIS.successorGFXNoRender = NULL
THIS.ClearStatus()
ENDPROC
PROCEDURE applyxslt
LPARAMETERS m.tvSource, m.tvProcessor, m.tvParamCollection, m.tvFRXAlias
LOCAL m.loSource, m.loProcessor, m.lcReturn, m.llSuccess, m.liParam, m.liSession, m.llCharsetsInUse
m.lcReturn = ""
STORE NULL TO m.loSource, m.loProcessor
IF VARTYPE(m.tvSource) = "C"
   * first param can be filename, string, or object
   * if filename or string, test existance
   * and try to load as a dom object
*   m.liSession = SET("DATASESSION")
*   THIS.resetDataSession()
   m.llCharsetsInUse = THIS.frxCharsetsInUse(m.tvFRXAlias)
   m.loSource = CREATEOBJECT(OUTPUTXML_DOMDOCUMENTOBJECT)
   THIS.fixMSXMLObjectForDTDs(m.loSource)
   DO CASE
   CASE FILE(m.tvSource) AND NOT m.llCharsetsInUse
      m.loSource.Load(m.tvSource)
   CASE FILE(m.tvSource)
      *&* m.loSource.Load(m.tvSource)
      *&* would introduce problems with the (multi) charset-handling
      *&* in FRX by engine
      *&* see notes below
      m.loSource.LoadXML(FILETOSTR(m.tvSource))
   OTHERWISE
      m.loSource.LoadXML(m.tvSource)
   ENDCASE
*   SET DATASESSION TO (m.liSession)
   IF NOT ISNULL(m.loSource) AND ;
      LEN(m.loSource.XML) > 0 AND ;
      EMPTY(m.loSource.parseError.reason)
      m.llSuccess = .T.
   ELSE
      m.loSource = NULL
*      IF NOT ISNULL(m.loSource)
*         THIS.LastErrorMessage = loSource.parseError.reason
*      ENDIF
   ENDIF
   * if object, test nodetypestring availability
   * and then for document/tree shape.
   IF VARTYPE(m.tvSource) = "O"
      TRY
         IF INLIST("|"+UPPER(m.tvSource.nodeTypeString)+"|", ;
                       "|DOCUMENT|","|ELEMENT|") && quick and dirty test for tree shape
            m.loSource = m.tvSource
            m.llSuccess = .T.
         ENDIF
      ENDTRY
   ENDIF
ENDIF
IF m.llSuccess
   * for failed transformations, return source XML
   m.lcReturn = m.loSource.XML
   * as above
   * second param can be filename or object
   * if filename, as above
   *  if object, test for appropriate interface
   * figure out if it's a processor factory
   * or an instance (either dom or stylesheet)
   *  and error out if we can't figure it out
   m.llSuccess = .F.
   IF VARTYPE(m.tvProcessor) = "C"
      m.loProcessor = THIS.LoadProcessorObject(m.tvProcessor)
      IF NOT ISNULL(m.loProcessor)
         m.loProcessor = m.loProcessor.createProcessor()
      ENDIF
   ELSE
      IF VARTYPE(m.tvProcessor) = "O"
         TRY
            IF VARTYPE(m.tvProcessor.styleSheet) = "O"
               m.loProcessor = m.tvProcessor
               * if the object was a processor object
               * get a stylesheet instance
               m.loProcessor = m.loProcessor.createProcessor()
            ENDIF
         CATCH
            * just want to swallow the errors here because
            * of the primitive tests being used
         ENDTRY
      ENDIF
   ENDIF
   IF NOT ISNULL(m.loProcessor)
      m.llSuccess = .T.
   ENDIF
ENDIF
IF m.llSuccess

   WITH m.loProcessor
      IF VARTYPE(m.tvParamCollection) = "O" AND ;
         UPPER(m.tvParamCollection.BaseClass) == "COLLECTION" AND ;
         m.tvParamCollection.Count > 0
         FOR m.liParam = 1 TO m.tvParamCollection.Count
            .AddParameter(m.tvParamCollection.GetKey(m.liParam), ;
                         m.tvParamCollection.Item(m.liParam))
         ENDFOR
      ENDIF
      * always override for current external file location info, if we have one:
       IF NOT EMPTY(THIS.externalFileLocation)
          .AddParameter("externalFileLocation", THIS.externalFileLocation)
       ENDIF
      .input = m.loSource
      .transform()
      m.lcReturn = .output
   ENDWITH
ENDIF
STORE NULL TO m.loSource, m.loProcessor
*&* Sedna change to
*&* ensure UTF-8 File contents per documented
*&* behavior of this class.  xsl:output encoding is ignored
*&* by the msxml processor transform anyway when outputting
*&* to a string (see http://msdn2.microsoft.com/en-us/library/ms753765.aspx)
*&* and as a result we are outputting a file with no encoding
*&* specified after the transform.  So we should ensure that it
*&* is in the default XML encoding when none is specified,
*&* which is UTF-8. But Fox has changed the UTF-16 return value
*&* from the MSXML processor objects to DBCS.  We need to fix
*&* that at the time we send to disk for other applications to
*&* read, can't do it before this point.  We can't do it
*&* in cases where the user has marked explicit fontcharsets in
*&* the FRX, since this information is passed along in VFP-RDL XML
*&* and could be treated differently by different output mechanisms/XSLT.
*&* We will preserve original behavior in that case.
IF m.llCharsetsInUse
   RETURN m.lcReturn
   RETURN (STRCONV(m.lcReturn,STRCONV_DBCS_UTF8))
ENDIF
ENDPROC
PROCEDURE currentdocument_assign
LPARAMETERS m.vNewVal
* TBD: evaluate for readonly status during the life of the report run
THIS.currentdocument = m.vNewVal
ENDPROC
PROCEDURE idattribute_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal)
   THIS.idattribute = m.vNewVal
ENDIF
ENDPROC
PROCEDURE idrefattribute_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal)
   THIS.idrefattribute = m.vNewVal
ENDIF
ENDPROC
PROCEDURE xsltprocessorrdl_assign
LPARAMETERS m.vNewVal
DO CASE
CASE VARTYPE(m.vNewVal) = "X"
   THIS.XSLTProcessorRDL = NULL
CASE VARTYPE(m.vNewVal) = "O"
   TRY
     IF VARTYPE(m.vNewVal.stylesheet) = "O"
       THIS.XSLTProcessorRDL = m.vNewVal
     ENDIF
   CATCH
   ENDTRY
CASE VARTYPE(m.vNewVal) = "C"
   LOCAL m.loProcessor
   m.loProcessor = THIS.LoadProcessorObject(m.vNewVal)
   IF NOT ISNULL(m.loProcessor)
      THIS.XSLTProcessorRDL = m.loProcessor
   ENDIF
ENDCASE
ENDPROC
PROCEDURE xsltprocessoruser_assign
LPARAMETERS m.vNewVal
DO CASE
CASE VARTYPE(m.vNewVal) = "X"
   THIS.XSLTProcessorUser = NULL
CASE VARTYPE(m.vNewVal) = "O"
   TRY
     IF VARTYPE(m.vNewVal.stylesheet) = "O"
       THIS.XSLTProcessorUser = m.vNewVal
     ENDIF
   CATCH
   ENDTRY
CASE VARTYPE(m.vNewVal) = "C"
   LOCAL m.loProcessor
   m.loProcessor = THIS.LoadProcessorObject(m.vNewVal)
   IF NOT ISNULL(m.loProcessor)
      THIS.XSLTProcessorUser = m.loProcessor
   ENDIF
ENDCASE
ENDPROC
PROCEDURE resetdocument
* Do *not* reset
* page number/total
THIS.ResetReport()
THIS.CloseTargetFile()
THIS.NoPageEject = .F.
IF THIS.HadError
   THIS.ResetToDefault("QuietMode")
ENDIF
THIS.CurrentDocument = NULL
ENDPROC
PROCEDURE verifyncname
LPARAMETERS m.tcName
LOCAL m.llValid, m.liChar, m.lcChar
DO CASE
CASE VARTYPE(m.tcName) # "C" OR EMPTY(m.tcName)
  * invalid
CASE LEFT(m.tcName,1) # "_" AND NOT ISALPHA(LEFT(m.tcName,1))
  * invalid
CASE LEFT(UPPER(m.tcName),3) = "XML"
  * invalid
OTHERWISE
  m.llValid = .T.
  FOR m.liChar = 2 TO LEN(tcName)
     m.lcChar = SUBSTR(m.tcName,m.liChar,1)
     IF NOT (ISALPHA(m.lcChar) OR ;
             ISDIGIT(m.lcChar) OR ;
             INLIST(m.lcChar,".","-","_"))
        m.llValid = .F.
        EXIT
     ENDIF
  ENDFOR
ENDCASE
RETURN m.llValid
ENDPROC
PROCEDURE includeformattinginlayoutobjects_assign
LPARAMETERS m.vNewVal
*TBD: evaluate whether
* it's okay to do this during a run?
IF VARTYPE(m.vNewVal) = "L"
   THIS.IncludeFormattingInLayoutObjects = m.vNewVal
ENDIF
ENDPROC
PROCEDURE includebandswithnoobjects_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L" AND NOT THIS.IsRunning
   THIS.IncludeBandsWithNoObjects = m.vNewVal
ENDIF
ENDPROC
PROCEDURE verifynodenames
IF NOT USED("Nodes")
   RETURN .F.
ENDIF
IF ISREADONLY("Nodes")
   RETURN .T.
ENDIF
LOCAL m.liSelect, m.llSuccess
m.liSelect = SELECT(0)
m.llSuccess = .T.
SELECT Nodes
SCAN FOR BETWEEN(ObjType,OUTPUTXML_OBJTYPE_NODES,OUTPUTXML_OBJTYPE_NODES+99) ;
     AND NOT DELETED()
   IF NOT THIS.VerifyNCName(ObjValue)
      DELETE
      m.llSuccess = .F.
   ENDIF
ENDSCAN

SELECT (m.liSelect)
RETURN m.llSuccess
ENDPROC
PROCEDURE verifyattributenames
* abstract
ENDPROC
PROCEDURE nopageeject_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L" AND NOT THIS.IsRunning
   THIS.NoPageEject = m.vNewVal
ENDIF
ENDPROC
PROCEDURE loadprocessorobject
LPARAMETERS m.tcVal
LOCAL m.loReturn
m.loReturn = NULL
IF VARTYPE(m.tcVal) = "C" AND NOT EMPTY(m.tcVal)
  LOCAL m.loProcessor, m.loStylesheet, m.liSession
  m.liSession = SET("DATASESSION")
  THIS.resetDataSession()
  m.loProcessor  = CREATEOBJECT(OUTPUTXML_XSLT_PROCESSOROBJECT)
  m.loStyleSheet = CREATEOBJECT(OUTPUTXML_DOMFREETHREADED_DOCUMENTOBJECT)
  THIS.fixMSXMLObjectForDTDs(m.loStyleSheet)
  SET DATASESSION TO (m.liSession)
  IF FILE(m.tcVal)
    m.loStyleSheet.Load(m.tcVal)
  ELSE
    * try to load it as a string
    m.loStyleSheet.LoadXML(m.tcVal)
  ENDIF
  IF LEN(m.loStyleSheet.XML) > 0 AND ;
     EMPTY(m.loStyleSheet.parseError.reason)
     m.loProcessor.styleSheet = loStyleSheet
     m.loReturn = m.loProcessor
*  ELSE
*     THIS.LastErrorMessage = loSStyleSheet.parseError.reason
  ENDIF
ENDIF
RETURN loReturn
ENDPROC
PROCEDURE getrawformattinginfo
LPARAMETERS m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight, m.tnObjectContinuationType
LOCAL m.lcInfo
m.lcInfo = ""
m.lcInfo = m.lcInfo + " "+THIS.contAttr+"='"+TRANSFORM(m.tnObjectContinuationType)+"'"
IF THIS.IncludeFormattingInLayoutObjects
   m.lcInfo = m.lcInfo + " "+THIS.leftAttr+"='"+ TRANSFORM(m.tnLeft)+"'"
   m.lcInfo = m.lcInfo + " "+THIS.topAttr+"='"+TRANSFORM(m.tnTop)+"'"
   m.lcInfo = m.lcInfo + " "+THIS.widthAttr+"='"+TRANSFORM(m.tnWidth)+"'"
   m.lcInfo = m.lcInfo + " "+THIS.heightAttr+"='"+TRANSFORM(m.tnHeight)+"'"
ENDIF
THIS.setFRXDataSession()
m.llPageImages = (NOT EMPTY(THIS.currentPageImageFilename)) ;
                  AND USED(THIS.memberDataAlias)
IF THIS.includeDataTypeAttributes  OR m.llPageImages
   IF USED(THIS.FormattingChanges) AND ;
      SEEK(RECNO("FRX"),THIS.FormattingChanges,"FRXRecno")
      SELECT (THIS.FormattingChanges)
      IF THIS.includeDataTypeAttributes
         IF EMPTY(DText)
            m.lcInfo = m.lcInfo + " "+THIS.dataTypeAttr+"='"+DType+"'"
         ELSE
            m.lcInfo = m.lcInfo + " "+THIS.dataTypeAttr+"='"+DType+"'"
            m.lcInfo = m.lcInfo + " "+THIS.dataTextAttr+"='"+THIS.xmlRawConv(DText)+"'"
         ENDIF
      ENDIF
   ENDIF
   IF m.llPageImages AND SEEK(RECNO("FRX"),THIS.memberDataAlias,"FRXRecno")
      SELECT (THIS.memberDataAlias)
      LOCATE FOR FRXRecno = RECNO("FRX") AND ;
                 Type == FRX_BLDR_MEMBERDATATYPE AND ;
                 Name == FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
                 ExecWhen == FRX_BLDR_ADVPROP_HTML_PAGEIMAGEHREF AND ;
                 THIS.evaluateStringToBoolean(Execute)
      IF FOUND()
         m.lcInfo = m.lcInfo + " " + THIS.pageImageAttr+"='"+ ;
                    THIS.currentPageImageFilename +"'"
      ENDIF
   ENDIF
   SELECT FRX
ENDIF
RETURN m.lcInfo
ENDPROC
PROCEDURE topattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal)
   THIS.topAttr = m.vNewVal
ENDIF
ENDPROC
PROCEDURE leftattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal)
   THIS.leftAttr = m.vNewVal
ENDIF
ENDPROC
PROCEDURE heightattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal)
   THIS.heightAttr = m.vNewVal
ENDIF
ENDPROC
PROCEDURE widthattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal)
   THIS.widthAttr = m.vNewVal
ENDIF
ENDPROC
PROCEDURE contattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal)
   THIS.contAttr = m.vNewVal
ENDIF
ENDPROC
PROCEDURE getvfprdlcontents
LPARAMETERS m.tcNodeName, m.tlAsString
* NB: no push/pop session here, don't bother
* because we're switching back and forth
* rapidly and not changing anything important
LOCAL m.liSelectCurrent, m.liSelectFRX, m.liSession, ;
      m.liFlds, m.liDBFS, m.liIndex1, m.liIndex2, laFlds[1], ;
      laDBFS[1], laRels[1], m.lcAlias, m.lcKey, m.llDesc, ;
      m.lcFilter, m.lcRel, m.liRels, m.lcSkip, m.lcResult, m.llWholePage
LOCAL m.oXA, m.oXT1, m.oXT2, m.oXT3, m.oXT4, m.oXT5,m.oXT6, ;
      m.oXML, m.oNode, m.oCommand
m.liSession = SET("DATASESSION")
THIS.setFRXDataSession()
m.liSelectFRX = SELECT(0)
IF THIS.IncludeDataSourcesInVFPRDL
   CREATE CURSOR VFPDataSource (the_alias c(200), rpt_driver l, the_dbf m, the_order m, order_desc l, the_filter m, the_skip m )
   CREATE CURSOR flds (the_alias c(200), the_field m, the_type c(1))
   CREATE CURSOR rels (the_parent c(200), the_target c(200), the_expr m)
   SELECT flds
   INDEX ON the_alias TAG the_alias
   SELECT rels
   INDEX ON the_parent TAG the_alias
   SELECT VFPDataSource
   SET RELATION TO the_alias INTO flds, the_alias INTO rels
   THIS.setCurrentDataSession()
   m.liSelectCurrent = SELECT(0)
   m.liDBFS = AUSED(laDBFS)
   FOR m.liIndex = 1 TO m.liDBFS
      THIS.setCurrentDataSession()
      m.lcAlias = laDBFs[m.liIndex,1]
      SELECT (m.lcAlias)
      m.lcDBF = DBF()
      m.liFlds = AFIELDS(laFlds)
      m.lcKey = SET("ORDER")
      m.llDesc =  (" DESC" $ UPPER(m.lcKey))
      m.lcFilter = SET("FILTER")
      m.lcSkip = SET("SKIP")
      IF NOT EMPTY(m.lcKey)
         m.lcKey = STRTRAN(UPPER(m.lcKey),"TAG","")
         m.liIndex2 = ATC(" OF",m.lcKey)
         IF m.liIndex2 > 0
            m.lcKey = LEFT(m.lcKey,m.liIndex2)
         ENDIF
         m.lcKey = ALLTR(m.lcKey)
         m.liTag = TAGNO(m.lcKey)
         IF m.liTag > 0
            m.lcKey = KEY(m.liTag)
         ELSE
            m.lcKey = ""
         ENDIF
      ENDIF
      m.liRels = 0
      STORE "" TO laRels
      DO WHILE .T.
         m.lcRel = RELATION(m.liRels + 1)
         IF EMPTY(m.lcRel)
            EXIT
         ELSE
            m.liRels = m.liRels + 1
            DIME laRels[m.liRels,3]
            laRels[m.liRels,1] = TARGET(m.liRels)
            laRels[m.liRels,2] = m.lcRel
         ENDIF
      ENDDO
      THIS.setFRXDataSession()
      INSERT INTO VFPDataSource VALUES (m.lcAlias, (UPPER(m.lcAlias)==UPPER(THIS.Drivingalias)), m.lcDBF, m.lcKey, m.llDesc, m.lcFilter, m.lcSkip)
      FOR m.liIndex2 = 1 TO m.liFlds
         INSERT INTO flds VALUES (m.lcAlias, laFlds[m.liIndex2,1], laFlds[m.liIndex2,2])
      ENDFOR
      FOR m.liIndex2 = 1 TO m.liRels
         INSERT INTO rels VALUES (m.lcAlias, laRels[m.liIndex2,1], laRels[m.liIndex2,2])
      ENDFOR
   ENDFOR
   THIS.setCurrentDataSession()
   SELECT (m.liSelectCurrent)
ENDIF
THIS.setFRXDataSession()
m.lcAlias = THIS.prepareFrxCopy()
m.lcResult = THIS.getFRXLayoutObjectFieldList(m.lcAlias)
SELECT &lcResult ;
   FROM (m.lcAlias) ;
   LEFT JOIN Bands ON &lcAlias..UniqueID = Bands.UniqueID ;
   LEFT JOIN Objects ON &lcAlias..UniqueID = Objects.UniqueID ;
   WHERE Platform = FRX_PLATFORM_WINDOWS AND NOT DELETED() ;
   INTO CURSOR VFPFRXLayoutObject READWRITE
THIS.removeFRXCopy(m.lcAlias)
SELECT VFPFRXLayoutObject
* get rid of compiled data:
IF TYPE("VFPFRXLayoutObject.Tag") # "U"
   REPLACE Tag WITH "" ALL FOR NOT INLIST(ObjType,FRX_OBJTYP_VARIABLE,FRX_OBJTYP_BAND,FRX_OBJTYP_DATAENV ,FRX_OBJTYP_DATAOBJ)
ENDIF
IF TYPE("VFPFRXLayoutObject.Tag2") # "U"
   REPLACE Tag2 WITH "" ALL FOR INLIST(ObjType,FRX_OBJTYP_REPORTHEADER,FRX_OBJTYP_DATAENV,FRX_OBJTYP_DATAOBJ)
ENDIF
IF TYPE("VFPFRXLayoutObject.Fontface") # "U"
   REPLACE Fontface WITH ""  ALL FOR INLIST(ObjType,FRX_OBJTYP_DATAENV,FRX_OBJTYP_DATAOBJ)
ENDIF
GO TOP IN VFPFRXLayoutObject
m.llWholePage = VFPFRXLayoutObject.Top
SELECT Nodes.ObjValue AS Name, ;
       Nodes.ObjType-OUTPUTXML_OBJTYPE_NODES AS Type, ;
       Nodes.ObjCode AS Code, ;
       Nodes.ObjInfo AS Info ;
    FROM Nodes ;
    WHERE BETWEEN(ObjType,OUTPUTXML_OBJTYPE_NODES, OUTPUTXML_OBJTYPE_NODES+100) ;
    AND NOT DELETED() ;
    INTO CURSOR VFPFRXLayoutNode READWRITE
m.liFlds = AMEMBERS(laFlds, THIS,0)
FOR m.liIndex1 = 1 TO m.liFlds
   IF ATC("attr",laFlds[m.liIndex1]) > 1
      INSERT INTO VFPFRXLayoutNode VALUES ;
        (TRANSFORM(EVALUATE("THIS."+laFlds[m.liIndex1])),;
         0, ;
         OUTPUTXML_OBJCODE_ATTRIBMEMBER,;
         laFlds[m.liIndex1]+ " attribute nodename")
   ENDIF
ENDFOR
m.oXA=CREATEOBJECT("XMLAdapter")
m.oXA.RespectCursorCP = .T.
m.oXT4 = m.oXA.AddTableSchema("VFPFRXLayoutObject")
m.oXT5 = m.oXA.AddTableSchema("VFPFRXLayoutNode")
IF USED(THIS.memberDataAlias) AND ;
   RECCOUNT(THIS.memberDataAlias) > 0
   m.oXT6 = m.oXA.AddTableSchema(THIS.memberDataAlias,.F.,;
                                 STRCONV("VFPFRXMemberData",STRCONV_DBCS_UNICODE))
ENDIF
m.oXA.RespectNesting=.T.
IF THIS.IncludeDataSourcesInVFPRDL
   m.oXT1=oXA.AddTableSchema("VFPDataSource")
   m.oXT2=oXA.AddTableSchema("flds")
   m.oXT3=oXA.AddTableSchema("rels")
   m.oXT1.Nest(m.oXT2)
   m.oXT1.Nest(m.oXT3)
ENDIF
m.oXA.XMLSchemaLocation = ""
m.oXA.ToXML("lcResult")
THIS.resetDataSession()
#IF OUTPUTXML = OUTPUTXML_DOM
   m.oXML = CREATEOBJECT(OUTPUTXML_DOMFREETHREADED_DOCUMENTOBJECT)
#ELSE
   m.oXML = CREATEOBJECT("Microsoft.XMLDOM")
#ENDIF
THIS.setFRXDataSession()
m.oXML.LoadXML(m.lcResult)
m.oNode = m.oXML.SelectSingleNode("/./*")
IF NOT ISNULL(THIS.CommandClauses)
   m.oCommand = m.oXML.createElement("VFPFRXCommand")
   m.liFlds = AMEMBERS(laFlds, THIS.CommandClauses)
   FOR m.liIndex1 = 1 TO m.liFlds
       m.lcKey = EVAL("THIS.CommandClauses."+laFlds[m.liIndex1])
       IF VARTYPE(m.lcKey) = "L"
          IF m.lcKey
             m.lcKey = "true"
          ELSE
             m.lcKey = "false"
          ENDIF
       ENDIF
       m.oCommand.SetAttribute(laFlds[m.liIndex1], TRANSFORM(m.lcKey))
   ENDFOR
   m.oCommand.SetAttribute("OutputType",TRANSFORM(THIS.OutputType))
   m.oCommand.SetAttribute("appName",THIS.appName)
   m.oCommand.SetAttribute("targetFileName",THIS.targetFileName)
   m.oNode.appendChild(m.oCommand)
ENDIF
m.oCommand =  oXML.createElement("VFPFRXPrintJob")
m.oCommand.SetAttribute("pagewidth", THIS.SharedPageWidth)
m.oCommand.SetAttribute("pageheight", THIS.SharedPageHeight)
m.oCommand.SetAttribute("name",THIS.PrintJobName)
m.oCommand.SetAttribute("pagedesign",IIF(llWholePage,"whole","printable"))
   * if PROMPT was used this will probably work
   m.oCommand.SetAttribute("printresolution",TRANSFORM(PRTINFO(PRT_YRESOLUTION ,SET("PRINTER",3))))
   #IF .F.
      * OUTPUTXML_RESOLUTIONFIX
      * try to reset based on current printer FRX information
      GO (THIS.frxHeaderRecno) IN FRX
      SELECT FRX
      m.liIndex = IIF(ALINES(laFlds,Picture,.T.) > 0, ASCAN(laFlds,"YRESOLUTION"),0)
      IF m.liIndex = 0
         m.liIndex = IIF(ALINES(laFlds,Expr,.T.) > 0, ASCAN(laFlds,"YRESOLUTION"),0)
      ENDIF
      IF m.liIndex > 0
         m.liIndex = VAL(ALLTRIM(SUBSTR(laFlds[liIndex],AT("=",laFlds[m.liIndex])+1)))
         IF m.liIndex > 0
            m.oCommand.SetAttribute("printresolution",TRANSFORM(m.liIndex))
         ELSE
            m.oCommand.SetAttribute("printresolution","-1")
         ENDIF
      ENDIF
      IF USED("SetPrinter")
         USE IN SetPrinter
      ENDIF
   #ENDIF
CATCH WHEN .T.
   * this can happen when there is no printer
   m.oCommand.SetAttribute("printresolution","-1")
ENDTRY
m.oNode.appendChild(m.oCommand)
IF THIS.IncludeDataSourcesInVFPRDL
   USE IN VFPDataSource
   USE IN flds
   USE IN rels
ENDIF
USE IN VFPFRXLayoutObject
USE IN VFPFRXLayoutNode
STORE NULL TO ;
   m.oXA, m.oXT1, m.oXT2, m.oXT3, m.oXT4, m.oXT5, m.oXT6, m.oXML, m.oCommand
SELECT (m.liSelectFRX)
SET DATASESSION TO (m.liSession)
IF tlAsString
   RETURN m.oNode.XML
   RETURN m.oNode
ENDIF
ENDPROC
PROCEDURE includedatasourcesinvfprdl_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L"
   THIS.IncludeDataSourcesinVFPRDL = m.vNewVal
ENDIF
ENDPROC
PROCEDURE getpathedimageinfo
LPARAMETERS m.tObjType, m.tName, m.tPicture, m.tOffset, m.tPathed
LOCAL m.lcReturn, m.lcFile
m.lcReturn = ""
IF m.tObjType =  FRX_OBJTYP_PICTURE
   DO CASE
   CASE m.tOffset = 0 && literal filename
      m.lcReturn = STRTRAN(m.tPicture,["],[])
      IF m.tPathed
         m.lcReturn = FULLPATH(m.tPicture,THIS.CommandClauses.File)
      ELSE
         m.lcReturn = JUSTFNAME(m.tPicture)
      ENDIF
   CASE m.tOffset = 1 && general field
      m.lcReturn = "["+m.tName+"]"
   CASE m.tOffset = 2 AND TYPE(m.tName)= "O" && imagecontrol
      m.lcReturn = "["+m.tName+"]"
   CASE m.tOffset = 2 AND TYPE(m.tName) = "C" && expression
      m.lcFile = EVALUATE(m.tName)
      IF NOT FILE(m.lcFile)
         m.lcFile = EVALUATE(STRTRAN(m.tName,"()","")) && indirect
      ENDIF
      IF FILE(m.lcFile)
         IF m.tPathed
            m.lcReturn = FULLPATH(EVALUATE(m.tName))
         ELSE
            m.lcReturn = JUSTFNAME(EVALUATE(m.tName))
         ENDIF
      ELSE
         m.lcReturn =  "["+m.tName+"]"
      ENDIF
   OTHERWISE
      m.lcReturn = "["+m.tName+"]"
   ENDCASE
ENDIF
m.lcReturn = PADR(CHRTRAN(m.lcReturn,"\","/"), OUTPUTXML_CHARFIELD_LIMIT)
RETURN m.lcReturn
ENDPROC
PROCEDURE applyusertransformtooutput
DO CASE
CASE (THIS.applyUserTransform AND NOT ;
   (ISNULL(THIS.XSLTProcessorUser))) OR ;
   THIS.applyRDLTransform
   LOCAL m.lvProcessor
   * THIS.SaveTargetFileName is real
   * THIS.TargetFileName is TMP
   IF THIS.xmlMode = OUTPUTXML_RDL_ONLY
      m.lvProcessor = THIS.XSLTProcessorRDL
   ELSE
      m.lvProcessor = THIS.XSLTProcessorUser
   ENDIF
   IF NOT EMPTY(SYS(2000,THIS.SaveTargetFileName))
      ERASE (THIS.SaveTargetFileName) NORECYCLE
   ENDIF
   *&* Sedna change to ensure better encoding behavior
   *&* See notes in .ApplyXSLT method
   STRTOFILE(THIS.ApplyXSLT(THIS.TargetFileName,m.lvProcessor, THIS.XSLTParameters), ;
             THIS.SaveTargetFileName)
   ERASE (THIS.TargetFileName) NORECYCLE
   THIS.TargetFileName = THIS.SaveTargetFileName
   RETURN .T.
CASE THIS.applyUserTransform && no processor but public property is still set
   IF NOT EMPTY(SYS(2000,THIS.SaveTargetFileName))
      ERASE (THIS.SaveTargetFileName) NORECYCLE
   ENDIF
   COPY FILE (THIS.TargetFileName) TO (THIS.SaveTargetFileName)
   ERASE (THIS.TargetFileName) NORECYCLE
   THIS.TargetFileName = THIS.SaveTargetFileName
   RETURN .F.
OTHERWISE
   RETURN .F.
ENDCASE
ENDPROC
PROCEDURE applyusertransform_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L" AND NOT THIS.IsRunning
   THIS.applyUserTransform = m.vNewVal
   IF THIS.applyUserTransform AND ;
      (ISNULL(THIS.XSLTProcessorUser))
      THIS.GetDefaultUserXSLT()
   ENDIF
ENDIF
ENDPROC
PROCEDURE getdefaultuserxslt
** this is an abstract method for use by subclasses
ENDPROC
PROCEDURE setdomformattinginfo
LPARAMETERS m.toNode, m.tnLeft, m.tnTop, m.tnWidth,m.tnHeight, m.tnObjectContinuationType
m.toNode.SetAttribute(THIS.ContAttr,TRANSFORM(m.tnObjectContinuationType))
IF THIS.IncludeFormattingInLayoutObjects
   m.toNode.SetAttribute(THIS.LeftAttr,TRANSFORM(m.tnLeft))
   m.toNode.SetAttribute(THIS.TopAttr,TRANSFORM(m.tnTop))
   m.toNode.SetAttribute(THIS.WidthAttr,TRANSFORM(m.tnWidth))
   m.toNode.SetAttribute(THIS.HeightAttr,TRANSFORM(m.tnHeight))
ENDIF
LOCAL  m.llPageImages
THIS.setFRXDataSession()
m.llPageImages = (NOT EMPTY(THIS.currentPageImageFilename)) ;
                  AND USED(THIS.memberDataAlias)
IF THIS.includeDataTypeAttributes OR m.llPageImages
   IF USED(THIS.FormattingChanges) AND ;
      SEEK(RECNO("FRX"),THIS.FormattingChanges,"FRXRecno")
      SELECT (THIS.FormattingChanges)
      IF THIS.includeDataTypeAttributes
         IF EMPTY(DText)
            m.toNode.SetAttribute(THIS.dataTypeAttr,DType)
         ELSE
            m.toNode.SetAttribute(THIS.dataTypeAttr,DType)
            m.toNode.SetAttribute(THIS.dataTextAttr,DText)
         ENDIF
      ENDIF
   ENDIF
   IF m.llPageImages AND SEEK(RECNO("FRX"),THIS.memberDataAlias,"FRXRecno")
      SELECT (THIS.memberDataAlias)
      LOCATE FOR FRXRecno = RECNO("FRX") AND ;
                 Type == FRX_BLDR_MEMBERDATATYPE AND ;
                 Name == FRX_BLDR_NAMESPACE_ADVANCEDPROPS AND ;
                 ExecWhen == FRX_BLDR_ADVPROP_HTML_PAGEIMAGEHREF AND ;
                 INLIST(UPPER(Execute),"YES",".T.","TRUE","1")
      IF FOUND()
         m.toNode.SetAttribute(THIS.pageImageAttr,;
                               THIS.currentPageImageFileName)
      ENDIF
   ENDIF
   SELECT FRX
ENDIF
ENDPROC
PROCEDURE synchxsltprocessoruser
IF THIS.applyUserTransform AND NOT ISNULL(THIS.XSLTProcessorUser)
   THIS.XSLTProcessorUser = NULL
   THIS.applyUserTransform = .T. && kickstart
ENDIF
ENDPROC
PROCEDURE insertxmlconfigrecords
* protected,
* assumes it is being called with config
* table already SELECTed.
   DELETE FOR ;
      BETWEEN(OBJTYPE,OUTPUTXML_OBJTYPE_NODES, OUTPUTXML_OBJTYPE_NODES + 100)
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_BAND, ;
      FRX_OBJCOD_TITLE,'','Title','Title Band nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_BAND,;
      FRX_OBJCOD_PAGEHEADER,'','PH','Page Header Band nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_BAND,;
      FRX_OBJCOD_COLHEADER,'','CH','Column Header Band nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_BAND,;
      FRX_OBJCOD_GROUPHEADER,'','GH','Group Header Band nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_BAND, ;
      FRX_OBJCOD_DETAIL,'','D','Detail Band nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+FRX_OBJTYP_BAND, ;
      FRX_OBJCOD_GROUPFOOTER,'','GF','Group Footer Band nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_BAND, ;
      FRX_OBJCOD_COLFOOTER,'','CF','Column Footer Band nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_BAND, ;
      FRX_OBJCOD_PAGEFOOTER,'','PF','Page Footer Band nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_BAND, ;
      FRX_OBJCOD_SUMMARY,'','Summary','Summary Band nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_BAND, ;
      FRX_OBJCOD_DETAILHEADER,'','DH','Detail Header Band nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_BAND, ;
      FRX_OBJCOD_DETAILFOOTER,'','DF','Detail Footer Band nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_REPORTHEADER,;
      FRX_OBJCOD_REPORTHEADER ,'','VFP-Report','Report root nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_LABEL, ;
      FRX_OBJCOD_OTHER,'','T','Text object nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_FIELD, ;
      FRX_OBJCOD_OTHER,'','E','Expression object nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_PICTURE,;
      FRX_OBJCOD_OTHER,'','P','Picture object nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_RECTANGLE,;
      FRX_OBJCOD_RECTANGLE,'','S','Shape object nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_LINE, ;
      FRX_OBJCOD_OTHER,'','L','Line object nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_VARIABLE,;
      FRX_OBJCOD_OTHER,'','V','Variable nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_FONTRES,;
      FRX_OBJCOD_OTHER,'','FontRes','FontResource nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_DATAENV,;
      FRX_OBJCOD_OTHER,'','DataEnv','DataEnvironment nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_DATAOBJ,;
      FRX_OBJCOD_OTHER,'','DE-Cursor','DE-Cursor nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_DATAOBJ, ;
      FRX_OBJCOD_OTHER+1,'','DE-Relation','DE-Relation nodename')
     * offset the DE Relation because
     * this information isn't in ObjType or ObjCode
     * as distinct from DE-Cursor other than in the Name field
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_GROUP, ;
      FRX_OBJCOD_OTHER,'','Group','Group selector nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES, ;
     OUTPUTXML_OBJCODE_DOC,'','Reports','XML Document root nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES,;
     OUTPUTXML_OBJCODE_DATA,'','Data','Report scope data root nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES, ;
     OUTPUTXML_OBJCODE_RDL,'','VFP-RDL','RDL layout description root nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES, ;
     OUTPUTXML_OBJCODE_PAGES,'','Pages','Pages collection root nodename')
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES, ;
     OUTPUTXML_OBJCODE_COLS,'','Columns','Column collection root nodename')
   *&* Sedna
   INSERT INTO (ALIAS()) VALUES ;
    (OUTPUTXML_OBJTYPE_NODES, ;
     OUTPUTXML_OBJCODE_RUN,'','Run','Run property set root nodename')
ENDPROC
PROCEDURE xsltparameters_assign
LPARAMETERS m.vNewVal
DO CASE
CASE VARTYPE(m.vNewVal) = "X"
  THIS.XSLTParameters= NULL
CASE VARTYPE(m.vNewVal) = "O"
   TRY
     IF UPPER(m.vNewVal.BaseClass) == "COLLECTION"
       THIS.XSLTParameters = m.vNewVal
     ENDIF
   CATCH
   ENDTRY
OTHERWISE
  THIS.XSLTParameters= NULL
ENDCASE
ENDPROC
PROCEDURE getfrxlayoutobjectfieldlist
LPARAMETERS m.tcAlias
* frx
* PLATFORM,UNIQUEID,TIMESTAMP,OBJTYPE,OBJCODE,NAME,EXPR,VPOS,HPOS,HEIGHT,WIDTH,STYLE,
* PICTURE,ORDER,UNIQUE,COMMENT,ENVIRON,BOXCHAR,FILLCHAR,TAG,TAG2,PENRED,PENGREEN,PENBLUE,
* FILLRED,FILLGREEN,FILLBLUE,PENSIZE,PENPAT,FILLPAT,FONTFACE,FONTSTYLE,FONTSIZE,MODE,RULER,
* RULERLINES,GRID,GRIDV,GRIDH,FLOAT,STRETCH,STRETCHTOP,TOP,BOTTOM,SUPTYPE,SUPREST,NOREPEAT,RESETRPT,PAGEBREAK,COLBREAK,RESETPAGE,GENERAL,SPACING,DOUBLE,SWAPHEADER,SWAPFOOTER,EJECTBEFOR,EJECTAFTER,PLAIN,SUMMARY,ADDALIAS,OFFSET,TOPMARGIN,BOTMARGIN,TOTALTYPE,RESETTOTAL,RESOID,CURPOS,SUPALWAYS,SUPOVFLOW,SUPRPCOL,SUPGROUP,SUPVALCHNG,SUPEXPR,USER
* objects
* UNIQUEID,OBJTYPE,OBJCODE,EXPR,VPOS,HPOS,HEIGHT,WIDTH,OBJNAME,LOCALE_ID,START_BAND_ID,BAND_OFFSET,END_BAND_ID,BANDLABEL,SELECTED,OBJ_PICT,BAND_SEQ
* bands
* UNIQUEID,OBJTYPE,OBJCODE,EXPR,BANDLABEL,START,STOP,HEIGHT,P_START,P_STOP,P_HEIGHT,RESETTOTAL,BAND_SEQ,REL_BAND_ID
RETURN ;
       "RECNO() AS FrxRecno, "+m.tcAlias+".PLATFORM, "+m.tcAlias+".NAME,"+m.tcAlias+".EXPR,"+m.tcAlias+".OFFSET,"+m.tcAlias+".VPOS,"+m.tcAlias+".HPOS,"+m.tcAlias+".HEIGHT,"+;
       ""+m.tcAlias+".OBJTYPE, "+m.tcAlias+".TAG, "+m.tcAlias+".TAG2,"+m.tcAlias+".PENSIZE,"+m.tcAlias+".PENPAT,"+m.tcAlias+".FILLPAT,"+;
       ""+m.tcAlias+".WIDTH,"+m.tcAlias+".STYLE,"+m.tcAlias+".PICTURE,"+m.tcAlias+".ORDER,"+m.tcAlias+".COMMENT,"+m.tcAlias+".FILLCHAR,"+;
       ""+m.tcAlias+".PENRED,"+m.tcAlias+".PENGREEN,"+m.tcAlias+".PENBLUE,"+m.tcAlias+".FILLRED,"+m.tcAlias+".FILLGREEN,"+m.tcAlias+".FILLBLUE,"+;
       ""+m.tcAlias+".FONTFACE, "+m.tcAlias+".FONTSTYLE,"+m.tcAlias+".FONTSIZE,"+m.tcAlias+".MODE,"+m.tcAlias+".FLOAT,"+m.tcAlias+".STRETCH,"+m.tcAlias+".STRETCHTOP,"+;
       "BITTEST( "+m.tcAlias+".FONTSTYLE, 0 ) AS FontBold,"+ ;
       "BITTEST( "+m.tcAlias+".FONTSTYLE, 1 ) AS FontItalic,"+ ;
       "BITTEST( "+m.tcAlias+".FONTSTYLE, 3 ) AS FontUnderline,"+ ;
       "BITTEST( "+m.tcAlias+".FONTSTYLE, 7 ) AS FontStrikeThrough,"+ ;
       "THIS.GetPathedImageInfo("+m.tcAlias+".ObjType, "+m.tcAlias+".Name, "+m.tcAlias+".Picture, "+m.tcAlias+".Offset) AS UnpathedImg,"+ ;
       "THIS.GetPathedImageInfo("+m.tcAlias+".ObjType, "+m.tcAlias+".Name, "+m.tcAlias+".Picture, "+m.tcAlias+".Offset, .T.) AS PathedImg,"+ ;
       ""+m.tcAlias+".TOP,"+m.tcAlias+".BOTTOM,"+m.tcAlias+".NOREPEAT,"+m.tcAlias+".PAGEBREAK,"+m.tcAlias+".COLBREAK,"+m.tcAlias+".RESETPAGE,"+m.tcAlias+".GENERAL,"+m.tcAlias+".SPACING,"+ ;
       ""+m.tcAlias+".SWAPHEADER,"+m.tcAlias+".SWAPFOOTER,"+m.tcAlias+".EJECTBEFOR,"+m.tcAlias+".EJECTAFTER,"+m.tcAlias+".TOTALTYPE,"+m.tcAlias+".RESETTOTAL,"+ ;
       "IIF("+m.tcAlias+".DOUBLE,"+m.tcAlias+".RESOID,1) AS FONTCHARSET,"+m.tcAlias+".SUPALWAYS,"+m.tcAlias+".SUPOVFLOW,"+m.tcAlias+".SUPRPCOL,"+m.tcAlias+".SUPGROUP,"+m.tcAlias+".SUPVALCHNG,"+m.tcAlias+".SUPEXPR,"+m.tcAlias+".USER,"+ ;
       "OBJECTS.UniqueID AS ObjID, OBJECTS.ObjName, Objects.Locale_ID,"+ ;
       "OBJECTS.START_BAND_ID,OBJECTS.BAND_OFFSET,OBJECTS.END_BAND_ID,"+ ;
       "BANDS.UNIQUEID AS BandID,BANDS.OBJCODE AS BandType,Bands.BANDLABEL,Bands.START,"+;
       "Bands.STOP,Bands.BAND_SEQ,Bands.REL_BAND_ID, ("+m.tcAlias+".ObjType=9 AND (NOT "+m.tcAlias+".Plain)) AS BandStretch"
ENDPROC
PROCEDURE preparefrxcopy
LOCAL m.lcAlias, m.lcFile
m.lcAlias = "FRX"
IF EMPTY(SYS(2000,THIS.CommandClauses.File)) AND ;
   USED("FRX")
   *&* streamlined in Sedna leveraging new superclass capabilities.
   m.lcFile = THIS.prepareFRXSwapCopy(JUSTPATH(THIS.targetFileName),.T.)
   m.lcAlias = JUSTSTEM(m.lcFile)
   * prepareFRXSwapCopy defines the file name suitably for the
   * above JUSTSTEM() evaluation -> alias to work all the time.
   SELECT FRX
ENDIF
RETURN m.lcAlias
ENDPROC
PROCEDURE removefrxcopy
LPARAMETERS m.tcAlias
LOCAL m.lcFile
IF m.tcAlias # "FRX"
   m.lcFile = DBF(m.tcAlias)
   USE IN (m.tcAlias)
   * streamlined in Sedna using
   * new superclass feature
   THIS.removeFRXSwapCopy(m.lcFile)
ENDIF
ENDPROC
PROCEDURE adjustxsltparameter
LPARAMETERS m.tvValue, m.tsKey, m.tlRemoveOnly
LOCAL m.liIndex, m.liSession
IF ISNULL(THIS.XSLTParameters) AND NOT m.tlRemoveOnly
   m.liSession = SET("DATASESSION")
   THIS.resetDataSession()
   THIS.XSLTParameters = CREATEOBJECT("Collection")
   SET DATASESSION TO (m.liSession)
ENDIF
IF NOT ISNULL(THIS.XSLTParameters)
   WITH THIS.XSLTParameters
      FOR m.liIndex = 1 TO .COUNT
          IF .GETKEY(m.liIndex) == m.tsKey
             .REMOVE(m.liIndex)
             EXIT
          ENDIF
      NEXT
      IF NOT (m.tlRemoveOnly)
         .ADD(m.tvValue,m.tsKey)
      ENDIF
   ENDWITH
ENDIF
ENDPROC
PROCEDURE getrunnodecontents
LPARAMETERS m.tlAsString
LOCAL m.lcItem, m.oXML, m.lvValue, m.liSession
THIS.setFRXDataSession()
m.lcItem =  IIF(SEEK( OUTPUTXML_OBJTYPE_NODES+ OUTPUTXML_OBJCODE_RUN , ;
                      "Nodes","FrxNodes"), ;
                       Nodes.ObjValue, ;
                      OUTPUTXML_GOOFTAG)

* Handles Cursor, Empty object, Collection
* Raw or dom method.
m.lcItem = "<"  + m.lcItem + "/>"
m.liSession = SET("DATASESSION")
THIS.resetDataSession()
#IF OUTPUTXML = OUTPUTXML_DOM
   m.oXML = CREATEOBJECT(OUTPUTXML_DOMFREETHREADED_DOCUMENTOBJECT)
#ELSE
   m.oXML = CREATEOBJECT("Microsoft.XMLDOM")
#ENDIF
SET DATASESSION TO (m.liSession)
IF m.oXML.LoadXML(m.lcItem)
   THIS.setCurrentDataSession()
   DO CASE
   CASE ISNULL(THIS.runCollector)
      m.oXML = NULL
   CASE VARTYPE(THIS.runCollector) = "C"
      IF NOT (USED(THIS.runCollector) AND ;
              RECCOUNT(THIS.runCollector) > 0)
         * try FRX datasession
         THIS.setFRXDataSession()
      ENDIF
      IF (USED(THIS.runCollector) AND ;
              RECCOUNT(THIS.runCollector) > 0)
         * two fields significant, first evaluates to property value,
         * second is property name
         LOCAL m.lcField1, m.lcField2, m.liIndex, m.liSelect
         m.liSelect = SELECT(0)
         SELECT (THIS.runCollector)
         FOR m.liIndex = 1 TO FCOUNT()
             IF INLIST(TYPE(FIELD(m.liIndex)),"M","C")
                IF EMPTY(m.lcField1)
                   m.lcField1 = FIELD(m.liIndex)
                ELSE
                   m.lcField2 = FIELD(m.liIndex)
                   EXIT
                ENDIF
             ENDIF
         ENDFOR
         IF (EMPTY(m.lcField1))
            m.oXML = NULL
         ELSE
            SCAN ALL FOR NOT DELETED()
               THIS.addRunNode(m.oXML,EVAL(m.lcField1),;
                            IIF(EMPTY(m.lcField2) OR EMPTY(EVAL(m.lcField2)), ;
                     "P" + TRANSFORM(RECNO()), EVAL(m.lcField2)))
            ENDSCAN
         ENDIF
      ENDIF
      SELECT (m.liSelect)
   CASE VARTYPE(THIS.runCollector) = "O" AND ;
       TYPE("THIS.runCollector.Baseclass") = "U"
         * empty object
       LOCAL m.liIndex, m.laMembers[1]
       IF AMEMBERS(m.laMembers,THIS.runCollector) = 0
          m.oXML = NULL
       ELSE
          FOR m.liIndex = 1 TO ALEN(m.laMembers)
             THIS.addRunNode(m.oXML,;
                             "THIS.runCollector." + m.laMembers[m.liIndex], ;
                             m.laMembers[m.liIndex])
          ENDFOR
       ENDIF
   CASE VARTYPE(THIS.runCollector) = "O" AND ;
      UPPER(THIS.runCollector.BaseClass) == "COLLECTION"
      LOCAL m.liIndex
      IF THIS.runCollector.Count = 0
         m.oXML = NULL
      ELSE
         FOR m.liIndex = 1 TO THIS.runCollector.Count
            THIS.addRunNode(m.oXML,"THIS.runCollector[" + TRANSFORM(m.liIndex) + "]",;
                            IIF(EMPTY(THIS.runCollector.getKey[m.liIndex]), ;
                                "P" + TRANSFORM(m.liIndex), ;
                                THIS.runCollector.getKey[m.liIndex] ))
         ENDFOR

      ENDIF
   OTHERWISE
      m.oXML = NULL
   ENDCASE
   THIS.setFRXDataSession()
   DO CASE
   CASE ISNULL(m.oXML)
      RETURN NULL
   CASE m.tlAsString
      RETURN m.oXML.DocumentElement.XML
   OTHERWISE
      RETURN m.oXML.DocumentElement
   ENDCASE
   RETURN NULL
ENDIF
ENDPROC
PROCEDURE addrunnode
LPARAMETERS m.oXML, m.tvValueExpr, m.tcPropertyName
LOCAL m.oNode, m.vValue
m.oNode = m.oXML.createElement("property")
m.oNode.setAttribute("id",m.tcPropertyName)
m.vValue = THIS.evaluateUserExpression(m.tvValueExpr)
IF TYPE("m.vValue.XML") = "C" && xmlnode
   m.oNode.appendChild(m.vValue)
   m.oNode.Text = TRANSFORM(m.vValue)
ENDIF
m.vValue = NULL
m.oXML.DocumentElement.appendChild(m.oNode)
m.oNode = NULL
ENDPROC
PROCEDURE includedatatypeattributes_assign
LPARAMETERS m.tvNewVal
IF VARTYPE(m.tvNewVal) = "L"
   THIS.includeDataTypeAttributes = m.tvNewVal
ENDIF
ENDPROC
PROCEDURE datatypeattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal)
   THIS.dataTypeAttr = m.vNewVal
ENDIF
ENDPROC
PROCEDURE datatextattr_assign
LPARAMETERS m.vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal)
   THIS.dataTextAttr = m.vNewVal
ENDIF
ENDPROC
PROCEDURE initializeformattingchangescursor
THIS.formattingChanges= "F"+SYS(2015)
IF THIS.includeDataTypeAttributes
   CREATE CURSOR (THIS.formattingChanges) ;
             (FRXRecno i, ;
              DText M, ;
              DType C(1))
ENDIF
ENDPROC
PROCEDURE formatdatavalue
LPARAMETERS m.tVal
IF INLIST(VARTYPE(m.tVal),"D","T")
   RETURN TTOC(m.tVal,3)
   * a subclass could do more here
   RETURN TRANSFORM(m.tVal)
ENDIF
ENDPROC
PROCEDURE pageimageattr_assign
LPARAMETERS vNewVal
IF (NOT THIS.IsRunning) AND THIS.VerifyNCName(m.vNewVal)
   THIS.pageImageAttr = m.vNewVal
ENDIF
ENDPROC
PROCEDURE evaluatestringtoboolean
LPARAMETERS tcVal
RETURN INLIST(UPPER(m.tcVal),"YES",".T.","TRUE","1")
ENDPROC
PROCEDURE applyrdltransform_access
RETURN (THIS.XMLMode = OUTPUTXML_RDL_ONLY AND ;
       (NOT ISNULL(THIS.xsltProcessorRdl )))
ENDPROC
PROCEDURE fixmsxmlobjectfordtds
LPARAMETERS m.toXML
IF VARTYPE(m.toXML) = "O"
  TRY
     WITH m.toXML
        .validateOnParse = .F.
        .resolveExternals = .F.
        .setProperty("ProhibitDTD",.F.)
     ENDWITH
   CATCH WHEN .T. && Swallow any errors.
     *&* This fix primarily benefits
     *&* external usees of the ApplyXSLT public method;
     *&* it does not affect standard/automatic
     *&* usage of ApplyXSLT to VFP-RDL XML files.
     *&* It allows people to use the ApplyXSLT method
     *&* more flexibly when transforming XML data
     *&* between two schemas (standard B2B requirement).
     *&* However, the "ProhibitDTD" property
     *&* is not supported by the original 2003 msxml4.dll
     *&* distribution file.
     *&* The property will exist, and
     *&* the behavior will be supported, if the user has
     *&* applied fixes and updates to MSXML as is usually
     *&* the case.
     *&* If the msxml4.dll file has been deployed using
     *&* an MSM supplied with VFP as part of a distribution
     *&* setup to a Vista machine, rather than as part of
     *&* normal OS files in pre-Vista environments, this
     *&* may *not* be the case.
     *&* For information about updates and patches
     *&* to msxml4.dll,
     *&* see http://www.microsoft.com/downloads/details.aspx?FamilyID=24b7d141-6cdf-4fc4-a91b-6f18fe6921d4&DisplayLang=en#Instructions
     *&* Vulnerabilities in Microsoft XML Core Services 4.0 Could Allow Remote Code Execution (927978)
     *&* Note that msxml4.dll is a side-by-side installation file and
     *&* the update will fail to occur properly if the DLL is currently locked
     *&* because an application is, or has been, using it.  This would including
     *&* loading VFP.
     *&* For instructions regarding "locked" file that may cause installation to fail
     *&* and how to get around it, see http://support.microsoft.com/?kbid=927978
     *&* To ensure that the updates have been applied, check the current date
     *&* of the msxml4.dll file in %windir%/system32 directory.
     *&* At this writing (Sedna development timeframe), the date of msxml4.dll is 11/2006.
   ENDTRY
ENDIF
ENDPROC
PROCEDURE frxcharsetsinuse
LPARAMETERS tcAlias
LOCAL m.liSession, m.liSelect, m.liTally, m.liRec, m.lcAlias, m.llSwitchSessions
IF VARTYPE(tcAlias) # "C" OR EMPTY(tcAlias) OR UPPER(ALLTRIM(tcAlias)) == "FRX"
   m.lcAlias = "FRX"
   m.llSwitchSessions = .T.
   m.lcAlias = ALLTRIM(tcAlias)
ENDIF
m.liTally = 0
IF THIS.FRXDataSession > -1 AND m.llSwitchSessions
   m.liSession = SET("DATASESSION")
   THIS.setFRXDataSession()
   m.liSession = -1
ENDIF
IF USED(m.lcAlias)
   m.liSelect = SELECT(0)
   m.liRec = RECNO(m.lcAlias)
   SELECT (m.lcAlias)
   COUNT ALL FOR INLIST(ObjType,;
                        FRX_OBJTYP_LABEL,;
                        FRX_OBJTYP_FIELD) AND ;
                  Double AND Resoid # 1 ;
         TO m.liTally
         *&* RESOID=1 indicates use of default locale, treat this like no charset indication
         *&* do not pay attention to header value, just text labels and expressions,
         *&* because the header value doesn't propagate to existing controls (even at designtime)
         *&* -- it just indicates the default for new objects.
         *&* If you adjusted the FRX contents at runtime with new
         *&* text controls, you might want to pay attention to the contents
         *&* of the header RESOID and DOUBLE values, though -- just as the design-time
         *&* components do.
  IF m.liRec > RECCOUNT()
     GO BOTTOM
     SKIP
  ELSE
     GO m.liRec
  ENDIF
  SELECT (m.liSelect)
ENDIF
IF m.liSession > -1
   SET DATASESSION TO (m.liSession)
ENDIF
RETURN (m.liTally > 0)
ENDPROC
PROCEDURE resetcallevaluatecontents
IF (THIS.CallEvaluateContents # LISTENER_CALLDYNAMICMETHOD_ALWAYS) AND ;
   THIS.includeDataTypeAttributes AND ;
   (THIS.xmlMode #  OUTPUTXML_RDL_ONLY)
   THIS.CallEvaluateContents = LISTENER_CALLDYNAMICMETHOD_ALWAYS
ENDIF
ENDPROC
PROCEDURE closetargetfile
LOCAL m.llResetQuietMode
m.llResetQuietMode =  ;
 ((NOT THIS.HadError) AND (NOT THIS.QuietMode) AND  ;
  (THIS.applyUserTransform OR THIS.applyRDLTransform ))
IF m.llResetQuietMode
   THIS.QuietMode = .T.
ENDIF
DODEFAULT()
IF m.llResetQuietMode
   THIS.QuietMode = .F.
ENDIF
ENDPROC
PROCEDURE setfrxdatasessionenvironment
DODEFAULT()
SET EXACT ON
SET SYSFORMATS ON
SET CENTURY ON
SET SAFETY OFF
ENDPROC
PROCEDURE opentargetfile
#IF OUTPUTXML = OUTPUTXML_DOM
   THIS.VerifyTargetFile()
   THIS.TargetHandle = 0
   RETURN (NOT THIS.HadError)
#ELSE
   RETURN DODEFAULT()
#ENDIF
ENDPROC
PROCEDURE AfterBand
LPARAMETERS m.nBandObjCode, m.nFRXRecNo
DODEFAULT(m.nBandObjCode, m.nFRXRecNo)
IF THIS.InvokeOnCurrentPass() AND ;
   THIS.Targethandle > -1
   LOCAL m.lcBand, m.loNode, m.lcID, m.lcIDRef, ;
         m.llFormatBreakBand, m.loObjects, m.llOmitBand
   THIS.SetFRXDataSession()
   m.lcBand =  IIF(SEEK(OUTPUTXML_OBJTYPE_NODES+FRX_OBJTYP_BAND+ ;
                    OUTPUTXML_OBJTYPE_BANDOFFSET+nBandObjCode,;
                    "Nodes","FrxNodes"),;
                    Nodes.ObjValue, ;
                    OUTPUTXML_GOOFTAG)

   GO m.nFRXRecNo IN FRX
   IF NOT THIS.IncludeBandsWithNoObjects
      m.loObjects = THIS.FRXCursor.GetObjectsInBand(FRX.UniqueID,.F.,THIS.FRXDataSession)
      IF loObjects.Count = 0
          m.llOmitBand = .T.
      ENDIF
      m.loObjects = NULL
   ENDIF
   THIS.SetCurrentDataSession()

   m.llFormatBreakBand = INLIST(m.nBandObjCode,;
                    FRX_OBJCOD_PAGEHEADER, ;
                    FRX_OBJCOD_PAGEFOOTER, ;
                    FRX_OBJCOD_COLHEADER, ;
                    FRX_OBJCOD_COLFOOTER)

   * first evaluate THIS.IncludeBreaksInData
   DO CASE
   CASE m.llOmitBand = .T.
      * nothing
   CASE THIS.IncludeBreaksInData = OUTPUTXML_BREAKS_INDATA OR ;
        NOT m.llFormatBreakBand
      #IF OUTPUTXML = OUTPUTXML_RAW

         IF EMPTY(NVL(THIS.CurrentBand,""))
           * see continuation discussion in Render.
           * our fix there may have left us with
           * no band here
           * do nothing
         ELSE

            THIS.CurrentBand = NVL(THIS.CurrentBand,"") + ;
               THIS.XMLRawTag( m.lcBand, .F., m.lcID, m.lcIDRef )
            IF NOT (ISNULL(THIS.CurrentBand) OR EMPTY(THIS.CurrentBand))
               THIS.WriteRaw(THIS.CurrentBand)
               THIS.CurrentBand = ""
            ENDIF
         ENDIF

      #ELIF OUTPUTXML = OUTPUTXML_DOTNET
      #ELSE
         * nothing to do here when using the DOM
         THIS.CurrentBand = NULL
      #ENDIF
   CASE THIS.IncludeBreaksInData = OUTPUTXML_BREAKS_COLLECTION
      * build the collection which will be inserted into the
      * data before finishing.
      * but the band output at this point is .F.
      #IF OUTPUTXML = OUTPUTXML_RAW
          IF INLIST( m.nBandObjCode, ;
                 FRX_OBJCOD_PAGEHEADER, ;
                 FRX_OBJCOD_PAGEFOOTER)
             THIS.CurrentPage = NVL(THIS.CurrentPage,"")
             THIS.CurrentPage = THIS.CurrentPage +  ;
                               THIS.XMLRawTag( m.lcBand, .F., m.lcID, m.lcIDRef )
             THIS.PageNodes = THIS.PageNodes + THIS.CurrentPage
             THIS.CurrentPage = NULL
          ELSE
             THIS.CurrentColumn = NVL(THIS.CurrentColumn,"")
             THIS.CurrentColumn = THIS.CurrentColumn + ;
                                THIS.XMLRawTag( m.lcBand, .F., m.lcID, m.lcIDRef )
             THIS.ColumnNodes = THIS.ColumnNodes + THIS.CurrentColumn
             THIS.CurrentColumn = NULL
          ENDIF

      #ELIF OUTPUTXML = OUTPUTXML_DOTNET

      #ELSE

          * we leave THIS.CurrentBand alone in this case,
          * to use after the band has finished.
          IF INLIST( nBandObjCode, ;
                 FRX_OBJCOD_PAGEHEADER, ;
                 FRX_OBJCOD_PAGEFOOTER)
             THIS.CurrentPage = NULL
          ELSE
             THIS.CurrentColumn = NULL
          ENDIF

      #ENDIF
   CASE INLIST( m.nBandObjCode, ;
                 FRX_OBJCOD_COLHEADER, ;
                 FRX_OBJCOD_COLFOOTER)   && XMLBREAKS_NONE and column band
       THIS.CurrentColumn = NULL
   OTHERWISE  && XMLBREAKS_NONE and page band
       THIS.CurrentPage = NULL
   ENDCASE
   THIS.resetDataSession()
ENDIF
IF INLIST(m.nBandObjCode,FRX_OBJCOD_PAGEFOOTER, FRX_OBJCOD_TITLE)
   THIS.includePage = .F.
ENDIF
ENDPROC
PROCEDURE Destroy
DODEFAULT()
THIS.ResetDocument()
STORE NULL TO ;
   THIS.ColumnNodes, ;
   THIS.CurrentBand, ;
   THIS.CurrentColumn, ;
   THIS.CurrentDocument, ;
   THIS.CurrentPage, ;
   THIS.DataNodes, ;
   THIS.pageNodes, ;
   THIS.XSLTProcessorRDL, ;
   THIS.XSLTProcessorUser, ;
   THIS.xsltParameters
ENDPROC
PROCEDURE createconfigtable
LPARAMETERS m.tcDBF, m.tlOverWrite
* table is being created from scratch,
* may be in a VCX in an unknown environment
* (definitely not in REPORTOUTPUT.APP!)
DODEFAULT(m.tcDBF, m.tlOverWrite)
IF NOT THIS.HadError
   LOCAL m.liSelect, m.llSafetyOn
   m.llSafetyOn = (SET("SAFETY") = "ON")
   SET SAFETY OFF
   m.liSelect = SELECT(0)
   SELECT 0
   USE (m.tcDBF) EXCLU
   INDEX ON ObjType+ObjCode+ ;
      IIF(ObjType=FRX_OBJTYP_BAND+OUTPUTXML_OBJTYPE_NODES, ;
          OUTPUTXML_OBJTYPE_BANDOFFSET,0) ;
      TAG FRXNodes
   IF m.llSafetyOn
      SET SAFETY ON
   ENDIF
   THIS.InsertXMLConfigRecords()
   USE
   SELECT (m.liSelect)
ENDIF
ENDPROC
PROCEDURE Init
THIS.ReadConfiguration = OUTPUTCLASS_READCONFIG_INIT
IF DODEFAULT()
   THIS.AppName = OUTPUTXML_APPNAME_LOC
   THIS.ResetDocument()
   RETURN .F.
ENDIF
IF THIS.applyUserTransform
   THIS.GetDefaultUserXSLT()
ENDIF
RETURN NOT THIS.HadError
ENDPROC
PROCEDURE AfterReport
LPARAMETERS tlCalledEarly
THIS.SetFRXDataSession()
IF THIS.TargetHandle > -1 AND NOT (THIS.HadError )
    THIS.fillRunCollector()
   #IF OUTPUTXML = OUTPUTXML_RAW
       LOCAL m.lcNode
       IF NOT THIS.XMLMode = OUTPUTXML_RDL_ONLY

          IF  NOT EMPTY(NVL(THIS.CurrentBand,""))
             m.lcNode = SUBSTR(THIS.CurrentBand,2,AT(" ", THIS.CurrentBand)-2)
             THIS.CurrentBand = THIS.CurrentBand + THIS.XMLRawTag(m.lcNode)
             * write a closing tag
             THIS.WriteRaw(THIS.CurrentBand)
          ENDIF
          IF THIS.IncludeBreaksInData = OUTPUTXML_BREAKS_COLLECTION
             IF NOT ISNULL(THIS.PageNodes)
                 lcNode =  IIF(SEEK( OUTPUTXML_OBJTYPE_NODES+OUTPUTXML_OBJCODE_PAGES,;
                             "Nodes","FrxNodes"), ;
                           Nodes.ObjValue, ;
                           OUTPUTXML_GOOFTAG)
                 THIS.WriteRaw(THIS.PageNodes)
                 THIS.WriteRaw(THIS.XMLRawTag(m.lcNode))
             ENDIF
             IF NOT ISNULL(THIS.ColumnNodes)
                m.lcNode =  IIF(SEEK( OUTPUTXML_OBJTYPE_NODES+OUTPUTXML_OBJCODE_COLS,;
                             "Nodes","FrxNodes"), ;
                           Nodes.ObjValue, ;
                           OUTPUTXML_GOOFTAG)
                 THIS.WriteRaw(THIS.ColumnNodes)
                 THIS.WriteRaw(THIS.XMLRawTag(m.lcNode))
             ENDIF
          ENDIF

          m.lcNode =  IIF(SEEK( OUTPUTXML_OBJTYPE_NODES+OUTPUTXML_OBJCODE_DATA,;
                        "Nodes","FrxNodes"), ;
                      Nodes.ObjValue, ;
                      OUTPUTXML_GOOFTAG)

          THIS.WriteRaw( THIS.XMLRawTag(m.lcNode))
       ENDIF

       m.lcNode = THIS.getRunNodeContents(.T.)

       IF NOT (ISNULL(lcNode) OR EMPTY(lcNode))
          THIS.WriteRaw(lcNode)
       ENDIF
       m.lcNode =  IIF(SEEK( OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_REPORTHEADER, ;
                           "Nodes","ObjType"), ;
                            Nodes.ObjValue, ;
                            OUTPUTXML_GOOFTAG)
       THIS.WriteRaw( THIS.XMLRawTag(m.lcNode))
       * check to see if continuation...
       IF NOT OUTPUTXML_CONTINUATION
          THIS.WriteRaw( THIS.XMLRawTag(THIS.CurrentDocument))
       ENDIF
   #ELIF OUTPUTXML = OUTPUTXML_DOTNET
      * XMLTextWriter work
   #ELSE
       LOCAL m.loNode
       * domwork here
       IF THIS.IncludeBreaksInData = OUTPUTXML_BREAKS_COLLECTION
          * currently all this is done on entry, but
          * if not:
          * append the pages collection
          * into the report data node --
          * that's where we should be right now
          * THIS.DataNodes.AppendChild(THIS.PageNodes)
          ** IF NOT ISNULL(THIS.ColumnNodes)
          * THIS.DataNodes.AppendChild(THIS.ColumnNodes)
          ** ENDIF
       ENDIF

       m.loNode = THIS.getRunNodeContents()

       IF NOT ISNULL(m.loNode)
          THIS.DataNodes.ParentNode.AppendChild(m.loNode)
       ENDIF
       IF NOT OUTPUTXML_CONTINUATION
          THIS.CurrentDocument.Save(THIS.TargetFileName)
       ENDIF
       m.loNode = NULL
    #ENDIF
ENDIF
IF OUTPUTXML_CONTINUATION
   IF THIS.runCollectorResetLevel = OUTPUTFX_RUNCOLLECTOR_RESET_ONREPORT
      THIS.resetRunCollector()
   ENDIF
   THIS.ResetReport()
   IF THIS.runCollectorResetLevel > OUTPUTFX_RUNCOLLECTOR_RESET_NEVER
      THIS.resetRunCollector()
   ENDIF
   THIS.ResetDocument()
   IF (NOT tlCalledEarly) AND ;
      (THIS.applyUserTransform OR ;
       THIS.applyRDLTransform)
      THIS.ApplyUserTransformToOutput()
      IF (NOT THIS.HadError)
         * we suppressed this message earlier when closing the target file,
         * which is just an intermediary format in this case:
         * IF THIS.DoMessage( OUTPUTCLASS_SUCCESS_LOC + ;
                        IIF(SYS(2024)="Y",CHR(13)+OUTPUTCLASS_REPORT_INCOMPLETE_LOC,""),;
                        MB_ICONINFORMATION + MB_YESNO ) = IDYES
         *   _CLIPTEXT = THIS.TargetFileName
         * ENDIF
      ENDIF
   ENDIF
ENDIF
THIS.resetDataSession()
IF (NOT tlCalledEarly)
   DODEFAULT()
ENDIF
ENDPROC
PROCEDURE Error
LPARAMETERS m.nError, m.cMethod, m.nLine
   DODEFAULT(m.nError,m.cMethod,m.nLine)
   * we could evaluate errors first, but generally,
   THIS.CloseTargetFile()
   IF THIS.isRunning
      THIS.QuietMode = .T.
   ENDIF
   THIS.CancelReport()
ENDPROC
PROCEDURE Render
LPARAMETERS m.nFRXRecNo, m.nLeft,m.nTop,m.nWidth,m.nHeight, ;
            m.nObjectContinuationType, m.cContentsToBeRendered, m.GDIPlusImage
IF NOT ISNULL(THIS.successorGFXNoRender)
   * XML Output and descendents respect norendering properties
   * as successors, evaluating them individually since the conditions
   * might apply only to some output types
   IF THIS.successorGFXNoRender.applyFX(THIS,"RENDER",m.nFRXRecNo, m.nLeft) = ;
       OUTPUTFX_BASERENDER_NORENDER
       RETURN OUTPUTFX_BASERENDER_NORENDER
   ENDIF
ENDIF
IF (DODEFAULT(m.nFRXRecNo, @m.nLeft,@m.nTop,@m.nWidth,@m.nHeight, ;
              @m.nObjectContinuationType, @m.cContentsToBeRendered, @m.GDIPlusImage) # ;
              OUTPUTFX_BASERENDER_NORENDER) AND ;
   THIS.InvokeOnCurrentPass() AND ;
   THIS.Targethandle > -1
   * also evaluate THIS.IncludeBreaksInData and
   * the band for the object in question.
   * If the stars align, create the node for the object here.  For now:
   LOCAL m.lcNode, m.loNode, m.lcFormattingInfo, m.lcContents,  ;
         m.llTextType, m.loBandRef, m.liBandRecno, m.lcID
   THIS.SetFRXDataSession()
   GO m.nFRXRecNo IN FRX
   m.lcContents = m.cContentsToBeRendered
   m.llTextType = INLIST(FRX.ObjType,  FRX_OBJTYP_LABEL, FRX_OBJTYP_FIELD)
   m.lcID = TRANSFORM(m.nFRXRecNo)
   IF INLIST(m.nObjectContinuationType, ;
             LISTENER_CONTINUATION_MIDDLE, ;
             LISTENER_CONTINUATION_END)
      m.lcID = m.lcID + "+"
   ENDIF

   IF THIS.IncludeBreaksInData = OUTPUTXML_BREAKS_COLLECTION ;
      OR (ISNULL(THIS.CurrentPage) AND ISNULL(THIS.CurrentColumn))
      m.lcNode =   IIF(SEEK(OUTPUTXML_OBJTYPE_NODES+FRX.ObjType,"Nodes","ObjType"), ;
                     Nodes.ObjValue,;
                     OUTPUTXML_GOOFTAG)

      #IF OUTPUTXML = OUTPUTXML_RAW
          m.lcFormattingInfo = THIS.GetRawFormattingInfo( m.nLeft, m.nTop, m.nWidth,m.nHeight, m.nObjectContinuationType)
          THIS.setFRXDataSession()
          IF m.llTextType
             * build 1515: render gets unicode
             m.lcContents = STRCONV(TRANSFORM(m.lcContents),STRCONV_UNICODE_UTF8)
          ELSE
             m.lcContents = TRANSFORM(m.lcContents)
          ENDIF
          DO CASE
          CASE NOT ISNULL(THIS.CurrentPage)
             THIS.CurrentPage = THIS.CurrentPage +  ;
                 THIS.XMLRawNode( ;
                 m.lcNode, ;
                 m.lcContents, ;
                 m.lcID,.F.,m.lcFormattingInfo) && FRX.UniqueID
          CASE NOT ISNULL(THIS.CurrentColumn)
             THIS.CurrentColumn = THIS.CurrentColumn +  ;
                 THIS.XMLRawNode( ;
                 m.lcNode, ;
                 m.lcContents, ;
                 m.lcID,.F.,m.lcFormattingInfo)
          OTHERWISE
             * write directly to the stream
             * First, take care of continuation.
             IF EMPTY(NVL(THIS.CurrentBand,""))
                * first object in a continued band
                 IF ISNULL(THIS.FRXCursor)
                    m.liBandRecno = 0
                 ELSE
                    m.loBandRef =  THIS.FRXCursor.GetBandFor(FRX.UniqueID, .T.,THIS.FRXDataSession)
                    SELECT FRX
                    LOCATE FOR UniqueID == loBandRef.UniqueID
                    IF EOF()
                       m.liBandRecno = 0
                    ELSE
                       m.liBandRecno = RECNO()
                    ENDIF
                 ENDIF
                 IF m.liBandRecno = 0
                    THIS.CurrentBand = THIS.XMLRawTag(OUTPUTXML_GOOFTAG, .T.,;
                                  "0",TRANSFORM(IIF(THIS.sharedPageNo = 0, THIS.PageNo, THIS.sharedPageNo)) )
                 ELSE
                    THIS.SetCurrentDataSession()
                    THIS.BeforeBand(FRX_OBJCOD_DETAIL,m.liBandRecno, .T.)
                    THIS.SetFRXDataSession()
                 ENDIF
                 THIS.CurrentBand = THIS.CurrentBand + ;
                      THIS.XMLRawNode( ;
                       m.lcNode, ;
                       m.lcContents, ;
                       m.lcID,.F.,m.lcFormattingInfo)
                IF EOF()
                   THIS.WriteRaw(THIS.CurrentBand + ;
                                THIS.XMLRawTag(OUTPUTXML_GOOFTAG))
                   THIS.CurrentBand = ""
                ENDIF
                GO m.nFRXRecNo IN FRX
             ELSE
                THIS.CurrentBand = THIS.CurrentBand + ;
                     THIS.XMLRawNode( ;
                      m.lcNode, ;
                      m.lcContents, ;
                      m.lcID,.F., m.lcFormattingInfo)
             ENDIF

          ENDCASE

      #ELIF OUTPUTXML =  OUTPUTXML_DOTNET
          * XMLTextWriter work
      #ELSE
          * if continuation type is of type 2 or 3
          * and we're in a text type object
          * we have to create a new
          * continued band node as if a BeforeBand event has occurred.
          THIS.setFRXDataSession()
          IF ISNULL(THIS.CurrentBand)
             * first object in a continued band
             IF ISNULL(THIS.FRXcursor)
                m.liBandRecno = 0
             ELSE
                m.loBandRef =  THIS.FRXCursor.GetBandFor(FRX.UniqueID, .T., THIS.FRXDataSession)
                SELECT FRX
                LOCATE FOR UniqueID == m.loBandRef.UniqueID
                m.liBandRecno = RECNO()
             ENDIF
             THIS.SetCurrentDataSession()
             IF EOF()
                 THIS.BeforeBand(FRX_OBJCOD_DETAIL,1, .T.)
             ELSE
                 THIS.BeforeBand(FRX_OBJCOD_DETAIL,m.liBandRecno, .T.)
             ENDIF
             THIS.SetFRXDataSession()
             GO m.nFRXRecNo IN FRX
          ENDIF
          m.loNode = THIS.CurrentDocument.CreateElement(m.lcNode)
          m.lcContents = TRANSFORM(m.lcContents)
          * build 1515: render gets unicode, and is already regionally transformed
          * EXCEPT if it's a filename for an image, in which case it's DBCS
          IF m.llTextType
             m.loNode.Text = CREATEBINARY(m.lcContents)
          ELSE
             m.loNode.Text = m.lcContents
          ENDIF
          m.loNode.SetAttribute(THIS.IdAttribute,m.lcID)
          THIS.SetDOMFormattingInfo( m.loNode, m.nLeft, m.nTop, m.nWidth,m.nHeight, m.nObjectContinuationType)
          DO CASE
          CASE NOT ISNULL(THIS.CurrentPage)
             THIS.CurrentPage.AppendChild(m.loNode)
          CASE NOT ISNULL(THIS.CurrentColumn)
             THIS.CurrentColumn.AppendChild(m.loNode)
          OTHERWISE
             THIS.CurrentBand.AppendChild(m.loNode)
          ENDCASE
          m.loNode = NULL
       #ENDIF
   ELSE
      * otherwise object belongs to a formatting header or footer
      * and we're not processing them (XMLBREAKS_NONE)
   ENDIF
   THIS.resetDataSession()
ENDIF
RETURN
ENDPROC
PROCEDURE BeforeBand
LPARAMETERS m.nBandObjCode, m.nFRXRecNo, m.tlContinuedBand
DODEFAULT(m.nBandObjCode, m.nFRXRecNo)
IF INLIST(m.nBandObjCode,FRX_OBJCOD_PAGEHEADER, FRX_OBJCOD_TITLE,FRX_OBJCOD_SUMMARY)
   THIS.includePage =  THIS.IncludePageInOutput(_PAGENO)
   *(THIS.PageNo >= THIS.CommandClauses.RangeFrom) AND ;
   *    ((THIS.CommandClauses.RangeTo = -1) OR (THIS.PageNo <= THIS.CommandClauses.RangeTo))
   * possibly to be adapted later:
   * regardless of whether IncludePageInOutput() is used
   * or the manual evaluation above (commented) is used,
   * _PAGENO will work for continued reports only if NORESET is not used.
   * THIS.PageNo/THIS.SharedPageNo will not work whether NORESET is used or not,
   * for continued reports,
   * unless you maintain a private offset.  RANGE is
   * sensitive to the current REPORT FORM command, not the full
   * NOPAGEEJECT (chained) run
ENDIF
IF THIS.InvokeOnCurrentPass() AND ;
  THIS.Targethandle > -1
   LOCAL m.lcBand, m.loNode, m.lcID, m.lcIDRef, ;
         m.llFormatBreakBand, m.lcInterruptedBand,;
         m.llOmitBand, m.loObjects
   THIS.SetFRXDataSession()
   GO m.nFRXRecNo IN FRX
   IF NOT THIS.IncludeBandsWithNoObjects
      m.loObjects = THIS.FRXCursor.GetObjectsInBand(FRX.UniqueID,.F.,THIS.FRXDataSession)
      IF m.loObjects.Count = 0
          m.llOmitBand = .T.
      ENDIF
      m.loObjects = NULL
   ENDIF

   m.lcBand =  IIF(SEEK(OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_BAND+ ;
                    OUTPUTXML_OBJTYPE_BANDOFFSET+nBandObjCode,;
                    "Nodes","FrxNodes"),;
                    Nodes.ObjValue, ;
                    OUTPUTXML_GOOFTAG)
   THIS.SetCurrentDataSession()

   m.llFormatBreakBand = INLIST(nBandObjCode,;
                    FRX_OBJCOD_PAGEHEADER, ;
                    FRX_OBJCOD_PAGEFOOTER, ;
                    FRX_OBJCOD_COLHEADER, ;
                    FRX_OBJCOD_COLFOOTER)

   IF m.llFormatBreakBand
      m.lcIDRef =  TRANSFORM(m.nFRXRecNo) && TRANSFORM(IIF(EMPTY(FRX.UniqueID),"",FRX.UniqueID))
      m.lcID = TRANSFORM(IIF(THIS.sharedPageNo = 0, THIS.PageNo, THIS.sharedPageNo))

   ELSE
      m.lcID =  TRANSFORM(m.nFRXRecNo) && TRANSFORM(IIF(EMPTY(FRX.UniqueID),"",FRX.UniqueID) )
      IF m.tlContinuedBand
         m.lcID = m.lcID + "+"
      ENDIF
      m.lcIDRef = TRANSFORM(IIF(THIS.sharedPageNo = 0, THIS.PageNo, THIS.sharedPageNo))

   ENDIF
   * first evaluate THIS.IncludeBreaksInData
   DO CASE
   CASE m.llOmitBand
      * do nothing -- TBD checked later.
   CASE THIS.IncludeBreaksInData = OUTPUTXML_BREAKS_INDATA OR ;
        NOT m.llFormatBreakBand
      #IF OUTPUTXML = OUTPUTXML_RAW
         IF NOT (ISNULL(THIS.CurrentBand) OR EMPTY(THIS.CurrentBand))
             * a data band has spanned
             * formatting breaks (pages or columns)
             * and we haven't otherwise caught it.
             * This should not happen.
             m.lcInterruptedBand = SUBSTR(ALLTR(THIS.CurrentBand),2,AT(" ", THIS.CurrentBand)-2)
             * write a closing tag
             THIS.WriteRaw(THIS.CurrentBand + THIS.XMLRawTag(m.lcInterruptedBand))
         ENDIF


        THIS.CurrentBand =  THIS.XMLRawTag( m.lcBand,.T., m.lcID, m.lcIDRef )


      #ELIF OUTPUTXML = OUTPUTXML_DOTNET
      #ELSE
          m.loNode = THIS.CurrentDocument.CreateElement(m.lcBand)
          m.loNode.SetAttribute(THIS.idAttribute,m.lcID)
          m.loNode.SetAttribute(THIS.idrefAttribute,m.lcIDRef)
          THIS.DataNodes.AppendChild(m.loNode)
          THIS.CurrentBand = m.loNode
          m.loNull = NULL
      #ENDIF
   CASE THIS.IncludeBreaksInData = OUTPUTXML_BREAKS_COLLECTION
      * build the collection which will be inserted into the
      * data before finishing.
      * but the band output at this point is .F.
      #IF OUTPUTXML = OUTPUTXML_RAW
          IF INLIST( m.nBandObjCode, ;
                 FRX_OBJCOD_PAGEHEADER, ;
                 FRX_OBJCOD_PAGEFOOTER)
             THIS.CurrentPage = NVL(THIS.CurrentPage,"")
             THIS.CurrentPage = THIS.CurrentPage + ;
                                THIS.XMLRawTag( m.lcBand, .T.,m.lcID, m.lcIDRef )
          ELSE
             THIS.CurrentColumn = NVL(THIS.CurrentColumn,"")
             THIS.CurrentColumn = THIS.CurrentColumn + ;
                                  THIS.XMLRawTag( m.lcBand, .T., m.lcID, m.lcIDRef )
          ENDIF


      #ELIF OUTPUTXML = OUTPUTXML_DOTNET

      #ELSE

          * we leave THIS.CurrentBand alone in this case,
          * to use after the band has finished.
          IF INLIST( m.nBandObjCode, ;
                 FRX_OBJCOD_PAGEHEADER, ;
                 FRX_OBJCOD_PAGEFOOTER)
             THIS.CurrentPage = THIS.CurrentDocument.CreateElement(m.lcBand)
             THIS.CurrentPage.SetAttribute(THIS.idAttribute,m.lcID)
             THIS.CurrentPage.SetAttribute(THIS.idrefAttribute,m.lcIDRef)
             THIS.PageNodes.AppendChild(THIS.CurrentPage)
          ELSE
             THIS.CurrentColumn = THIS.CurrentDocument.CreateElement(m.lcBand)
             THIS.CurrentColumn.SetAttribute(THIS.idAttribute,m.lcID)
             THIS.CurrentColumn.SetAttribute(THIS.idrefAttribute,m.lcIDRef)
             THIS.ColumnNodes.AppendChild(THIS.CurrentColumn)
          ENDIF

      #ENDIF
   CASE INLIST( m.nBandObjCode, ;
                 FRX_OBJCOD_COLHEADER, ;
                 FRX_OBJCOD_COLFOOTER)   && XMLBREAKS_NONE and column band
      THIS.CurrentColumn = "X"
   OTHERWISE  && XMLBREAKS_NONE and page band
      THIS.CurrentPage = "X"
   ENDCASE
   THIS.resetDataSession()
ENDIF
ENDPROC
PROCEDURE BeforeReport
DODEFAULT()
IF (NOT THIS.HadError)
   THIS.SetFRXDataSession()
   IF THIS.isSuccessor
      * need a private norender object
      * to handle potential rendering tests
      * specific to this output type
      THIS.successorGFXNoRender = ;
           THIS.checkCollectionForSpecifiedMember(;
           THIS.gfxNoRenderClass,;
           THIS.gfxNoRenderClassLib,.T.,.T.)
   ENDIF
   IF USED("FRX")
      LOCAL m.liSelect, m.lcDocument, m.lcReport, ;
            m.lcRDL, m.lcPage, m.lcCol, m.lcData, m.loNode, m.loParent
      m.liSelect = SELECT(0)
      SELECT FRX
      IF THIS.TargetHandle = -1 AND ;
         (THIS.applyUserTransform OR ;
          THIS.applyRDLTransform)
         THIS.verifyTargetFile()
         IF EMPTY(JUSTEXT(THIS.TargetFileName))
            THIS.TargetFileName = FORCEEXT(THIS.TargetFileName,THIS.TargetFileExt)
         ENDIF
         THIS.AddProperty("SaveTargetFileName",THIS.TargetFileName)
         THIS.TargetFileName = FORCEEXT(THIS.TargetFileName,"TMP")
      ENDIF

      IF (THIS.TargetHandle > -1 OR THIS.OpenTargetFile())
         IF NOT USED("Nodes")
            IF  UPPER(FULLPATH(THIS.ConfigurationTable)) == ;
                UPPER(FULLPATH(FORCEEXT(OUTPUTCLASS_INTERNALDBF,"DBF")))
                USE (THIS.ConfigurationTable) AGAIN IN 0  ;
                   NOUPDATE ALIAS Nodes SHARED
            ELSE
                USE (THIS.ConfigurationTable) AGAIN IN 0  ;
                   ALIAS Nodes SHARED
                THIS.VerifyNodeNames()
                THIs.VerifyAttributeNames()
            ENDIF
         ENDIF

         * create helper object
         * create band and object cursors
         * we may want to evaluate raw mode
         * as well as THIS.XMLMode to see if these are needed:
         IF (NOT (THIS.IncludeBandsWithNoObjects AND  ;
            THIS.XMLMode = OUTPUTXML_DATA_ONLY) ) && OR OUTPUTXML_PERFORMLOCALECONVERSION
            THIS.LoadFRXCursor = .T.
            IF ISNULL(THIS.FRXCursor) OR ;
               (NOT THIS.FRXCursor.CreateObjectCursor("FRX", "OBJECTS", .F., .T. ,THIS.FRXDataSession)) && force the load and make sure
                                                         && we have access to runtime
                                                         && version of the cursor
               THIS.IncludeBandsWithNoObjects = .T.
            ELSE
               SELECT Bands
               IF TAGNO("UniqueID") = 0
                  INDEX ON UniqueID TAG UniqueID
               ENDIF
               SET ORDER TO 0
               SELECT Objects
               IF TAGNO("UniqueID") = 0
                  INDEX ON UniqueID TAG UniqueID
               ENDIF
               SET ORDER TO 0
            ENDIF
         ENDIF

         THIS.IsRunning = .T.
         SET ORDER TO 0 IN FRX
         m.lcDocument =  IIF(SEEK(OUTPUTXML_OBJTYPE_NODES+ ;
                              OUTPUTXML_OBJCODE_DOC,;
                              "Nodes","FrxNodes"), ;
                              Nodes.ObjValue, ;
                            OUTPUTXML_GOOFTAG)
         m.lcReport =  IIF(SEEK( OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_REPORTHEADER, ;
                            "Nodes","ObjType"), ;
                             Nodes.ObjValue, ;
                             OUTPUTXML_GOOFTAG)
         IF NOT THIS.XMLMode = OUTPUTXML_RDL_ONLY
            m.lcData =  IIF(SEEK( OUTPUTXML_OBJTYPE_NODES+ ;
                                 OUTPUTXML_OBJCODE_DATA, ;
                                "Nodes","FrxNodes"), ;
                                 Nodes.ObjValue, ;
                                 OUTPUTXML_GOOFTAG)
         ENDIF
         IF NOT THIS.XMLMode = OUTPUTXML_DATA_ONLY
            m.lcRDL = IIF(SEEK( OUTPUTXML_OBJTYPE_NODES+ ;
                             OUTPUTXML_OBJCODE_RDL, ;
                             "Nodes","FrxNodes"), ;
                             Nodes.ObjValue, ;
                             OUTPUTXML_GOOFTAG)
         ENDIF
         IF THIS.IncludeBreaksInData = OUTPUTXML_BREAKS_COLLECTION
            m.lcPage =  IIF(SEEK( OUTPUTXML_OBJTYPE_NODES+ ;
                                OUTPUTXML_OBJCODE_PAGES, ;
                                "Nodes","FrxNodes"), ;
                                Nodes.ObjValue, ;
                                OUTPUTXML_GOOFTAG)
   *        GO (THIS.frxHeaderRecno) IN FRX
   *        IF FRX.VPos > 1
            m.lcCol = IIF(SEEK( OUTPUTXML_OBJTYPE_NODES+;
                              OUTPUTXML_OBJCODE_COLS,;
                              "Nodes","FrxNodes"), ;
                               Nodes.ObjValue, ;
                              OUTPUTXML_GOOFTAG)
    *       ENDIF
         ENDIF
         #IF OUTPUTXML = OUTPUTXML_RAW
             IF EMPTY(THIS.CurrentDocument) OR ISNULL(THIS.CurrentDocument)
                THIS.CurrentDocument = m.lcDocument
                THIS.WriteRaw( ;
                     THIS.XMLRawTag( THIS.CurrentDocument,.T.) )
             ENDIF
             THIS.WriteRaw( ;
                  THIS.XMLRawTag( m.lcReport,.T.) )
             * could add FRXname as ID here
             IF NOT THIS.XMLMode = OUTPUTXML_DATA_ONLY
                * write RDL here
                THIS.WriteRaw( ;
                     THIS.XMLRawTag( m.lcRDL,.T.,THIS.xmlRawConv( THIS.CommandClauses.FILE)) )
                THIS.WriteRaw( STRCONV(THIS.GetVFPRDLContents(m.lcRDL, .T.),STRCONV_DBCS_UTF8)  )
                THIS.WriteRaw( ;
                     THIS.XMLRawTag( m.lcRDL) )
             ENDIF
             IF NOT THIS.XMLMode = OUTPUTXML_RDL_ONLY
                THIS.WriteRaw( ;
                 THIS.XMLRawTag( m.lcData,.T.) )

                IF THIS.IncludeBreaksInData = OUTPUTXML_BREAKS_COLLECTION
                   THIS.PageNodes =  THIS.XMLRawTag( m.lcPage,.T.)
 *                 IF NOT EMPTY(lcCol)
                      THIS.ColumnNodes = THIS.XMLRawTag(m.lcCol,.T.)
 *                 ENDIF
                ENDIF
              ENDIF

         #ELIF OUTPUTXML = OUTPUTXML_DOTNET
             * XMLTextWriter work
         #ELSE
             IF VARTYPE(THIS.CurrentDocument) # "O"
                LOCAL m.liSession
                m.liSession = SET("DATASESSION")
                THIS.resetDataSession()
                THIS.CurrentDocument = CREATEOBJECT(OUTPUTXML_DOMFREETHREADED_DOCUMENTOBJECT)
                SET DATASESSION TO (m.liSession)
                * COMPROP(THIS.CurrentDocument,"UTF8",1)
                THIS.CurrentDocument.DocumentElement = THIS.CurrentDocument.CreateElement(m.lcDocument)
             ENDIF
             loNode = THIS.CurrentDocument.CreateElement(m.lcReport)
             * setattribute id using FRXName here
             * idref?
             THIS.CurrentDocument.DocumentElement.AppendChild(m.loNode)
             m.loParent = loNode
             IF NOT THIS.XMLMode = OUTPUTXML_DATA_ONLY
                m.loNode = THIS.CurrentDocument.CreateElement(m.lcRDL)
                m.loNode.SetAttribute(THIS.idAttribute,THIS.CommandClauses.FILE)
                m.loNode.AppendChild(THIS.GetVFPRDLContents(m.lcRDL))
                m.loParent.AppendChild(m.loNode)
             ENDIF
             IF NOT THIS.XMLMode = OUTPUTXML_RDL_ONLY
                m.loNode = THIS.CurrentDocument.CreateElement(m.lcData)
                * possibly add DE stuff here
                m.loParent.AppendChild(m.loNode)
                THIS.DataNodes = m.loNode
                IF THIS.IncludeBreaksInData = OUTPUTXML_BREAKS_COLLECTION
                   THIS.PageNodes = THIS.CurrentDocument.CreateElement(m.lcPage)
                   THIS.DataNodes.AppendChild(THIS.PageNodes)
                   THIS.ColumnNodes = THIS.CurrentDocument.CreateElement(m.lcCol)
                   THIS.DataNodes.AppendChild(THIS.ColumnNodes)
                ENDIF
             ENDIF
         #ENDIF
         IF THIS.XMLMode = OUTPUTXML_RDL_ONLY
            THIS.AfterReport(.T.)
         ENDIF
      ENDIF
      *&* Sedna
      IF THIS.XMLMode # OUTPUTXML_RDL_ONLY
         THIS.initializeFormattingChangesCursor()
         SELECT FRX
         IF USED(THIS.formattingChanges)
            SELECT FRX
            SCAN FOR Platform = FRX_PLATFORM_WINDOWS AND ;
                 ObjType = FRX_OBJTYP_FIELD AND NOT DELETED() && fields only
                INSERT INTO (THIS.FormattingChanges) ;
                  (FRXRecno) VALUES (RECNO("FRX"))
            ENDSCAN
            SELECT (THIS.FormattingChanges)
            INDEX ON FRXRecno TAG FRXRecno
            SELECT FRX
         ENDIF
      ENDIF
      STORE NULL TO m.loNode, m.loParent
      SELECT (m.liSelect)
   ELSE
      THIS.DoMessage(OUTPUTXML_FRXMISSING_LOC,MB_ICONSTOP )
      THIS.lastErrorMessage = OUTPUTXML_FRXMISSING_LOC
   ENDIF
   THIS.resetDataSession()
ENDIF
RETURN
ENDPROC
PROCEDURE invokeoncurrentpass
RETURN (THIS.includePage) AND ;
       (NOT THIS.XMLMode = OUTPUTXML_RDL_ONLY ) AND ;
       ((NOT THIS.TwoPassProcess) OR THIS.CurrentPass = LISTENER_FULLPASS)

ENDPROC
PROCEDURE verifyconfigtable
LPARAMETERS m.tcAlias
LOCAL m.llReturn, laRequired[1], m.liIndex, m.liSelect, ;
      m.liTag, m.lcTag, m.lcIndex, m.llSafetyOn, m.llFixedOn
m.llReturn = DODEFAULT(m.tcAlias)
IF m.llReturn
   * check for required tagnames (used in SEEKs)
   m.liSelect = SELECT(0)
   SELECT (m.tcAlias)
   DIME laRequired[2,2]
   laRequired[1,1] = "OBJTYPE"
   laRequired[1,2] = "OBJTYPE"
   laRequired[2,1] = "FRXNODES"
   laRequired[2,2] = NORMALIZE("OBJTYPE+OBJCODE+IIF(OBJTYPE="+ ;
                      TRANSFORM(FRX_OBJTYP_BAND+OUTPUTXML_OBJTYPE_NODES,"9999999")+"," + ;
                      TRANSFORM(OUTPUTXML_OBJTYPE_BANDOFFSET,"9999999")+",0)")
   FOR m.liIndex = 1 TO ALEN(laRequired,1)
       m.liTag = TAGNO(laRequired[m.liIndex,1])
       IF m.liTag = 0 OR NOT NORMALIZE(KEY(m.liTag)) == ;
          laRequired[m.liIndex,2]
          m.llReturn = .F.
       ENDIF
   ENDFOR
   IF NOT m.llReturn
      m.llSafetyOn = (SET("SAFETY") = "ON")
      SET SAFETY OFF
      m.llFixedOn = (SET("FIXED") = "ON")
      SET FIXED OFF
      TRY
         USE (DBF(m.tcAlias)) EXCLU ALIAS (m.tcAlias)
         FOR m.liIndex = 1 TO ALEN(laRequired,1)
            m.lcTag = laRequired[m.liIndex,1]
            m.lcIndex = laRequired[m.liIndex,2]
            INDEX ON &lcIndex TAG &lcTag
         ENDFOR

         m.llReturn = .T.
      CATCH
      ENDTRY


      IF m.llReturn
         FOR m.liIndex = 1 TO ALEN(laRequired,1)
             m.liTag = TAGNO(laRequired[m.liIndex,1])
             IF m.liTag = 0 OR NOT NORMALIZE(KEY(m.liTag)) == ;
                laRequired[m.liIndex,2]
                m.llReturn = .F.
             ENDIF
         ENDFOR
      ENDIF

      USE (DBF(m.tcAlias)) SHARED ALIAS (m.tcAlias)

      IF m.llSafetyOn
         SET SAFETY ON
      ENDIF
      IF m.llFixedOn
         SET FIXED ON
      ENDIF
   ENDIF
   IF NOT m.llReturn
      m.lcMessage =  OUTPUTXML_CONFIGTAGMISSING_LOC + CHR(13)
      FOR m.liIndex = 1 TO ALEN(laRequired,1)
          m.lcMessage = m.lcMessage + ;
                     CHR(13) + laRequired[m.liIndex,1] + ;
                     "=" + laRequired[m.liIndex,2]
      ENDFOR
      THIS.DoMessage(m.lcMessage,MB_ICONSTOP )
      THIS.lastErrorMessage = OUTPUTXML_CONFIGTAGMISSING_LOC
   ENDIF
   IF m.llReturn

     * just do one check, this is in case
     * a different listener created the config file.
     * the XML will run just fine without these records,
     * it will just use its gooftag instead of regular
     * nodenames if all or any are missing
     IF NOT SEEK( OUTPUTXML_OBJTYPE_NODES+ FRX_OBJTYP_REPORTHEADER, ;
                               ALIAS(),"ObjType")
        TRY
           IF IsReadOnly()
              USE (DBF(m.tcAlias)) SHARED ALIAS (m.tcAlias)
           ENDIF
           THIS.InsertXMLConfigRecords()
        CATCH
        ENDTRY

     ENDIF
   ENDIF
   SELECT (m.liSelect)
ENDIF
RETURN m.llReturn
ENDPROC
PROCEDURE targetfileext_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C" AND ;
   NOT UPPER(ALLTRIM(STRTRAN(m.vNewVal,".",""))) == "TMP"
   DODEFAULT(m.vNewVal)
   * this class reserves the extension
   * TMP for swapping in and out when
   * using temporary files and XLSTs transforms
ENDIF
ENDPROC
PROCEDURE setfrxrunstartupconditions
DODEFAULT()
IF TYPE("THIS.CommandClauses.File") # "C"
   ADDPROPERTY(THIS.CommandClauses,"File","")
ENDIF
IF TYPE("THIS.CommandClauses.NoPageEject") # "L"
   ADDPROPERTY(THIS.CommandClauses,"NoPageEject",.F.)
ENDIF
ENDPROC
PROCEDURE EvaluateContents
LPARAMETERS m.nFRXRecno, m.oObjProperties
DODEFAULT(m.nFRXRecno,m.oObjProperties)
* do some work even though we may not be
* adding DTYPE and DTEXT, so that
* subclasses can rely on the right record
* being made available in the formattingChanges alias
* and the "empty values" object always being there
IF THIS.InvokeOnCurrentPass() AND ;
   THIS.targetHandle <> -1
   THIS.setFRXDataSession()
   IF USED(THIS.formattingChanges)
      IF ISNULL(THIS.evaluateContentsValues)
         * first time
         SELECT (THIS.formattingChanges)
         SCATTER MEMO BLANK NAME THIS.evaluateContentsValues ;
              FIELDS EXCEPT FRXRecno
      ENDIF
      =SEEK(m.nFRXRecno,THIS.FormattingChanges, "FRXRecno")
      IF NOT EOF(THIS.formattingChanges)
         SELECT (THIS.formattingChanges)
         GATHER NAME THIS.evaluateContentsValues  && always start off empty
         IF THIS.includeDataTypeAttributes
            WITH m.oObjProperties
               IF EMPTY(.Value)
                 REPLACE DType WITH "C"
               ELSE
                 REPLACE DType WITH VARTYPE(.Value), ;
                         DText WITH THIS.formatDataValue(.Value)
               ENDIF
            ENDWITH
         ENDIF
         SELECT FRX
      ENDIF
   ENDIF
   THIS.resetDataSession()
   RETURN .F.
ENDIF

ENDPROC
PROCEDURE resetruncollector
THIS.runCollector = NULL
ENDPROC
PROCEDURE fillruncollector
* getRunNodeContents will allow a Collection,
* a table/alias, or an empty-type object.
* Table/Alias is easiest, and allows you to use
* reset levels of OUTPUTFX_RUNCOLLECTOR_RESET_NEVER or
* OUTPUTFX_RUNCOLLECTOR_RESET_ONCHAIN, because the entry
* keys do not have to be unique.
* However, a Collection or EMPTY object
* allows you to add serialized XML documents as the values
* of a single property if you like. (This is done
* in addRunNode method.) You also don't have to
* place a cursor in the user's data session.
* (The getRunNodeContents method will find the cursor in the FRX data session
* as well, but that wouldn't work very well for
* chained reports; in fact, even CurrentDataSession is
* dicey with chained reports unless you're sure none
* of them has a private data session.)
* For these reasons, although its known document
* properties are all simple values, xmlListener
* chooses to implement
* fillRunCollector using a Collection object, and
* a CASE exists below to load the XML contents properly
* for any consumers that wish to read it as true XML.
* runCollectorResetLevel is readonly at OUTPUTFX_RUNCOLLECTOR_RESET_ONREPORT
* to ensure uniqueness of the keys for each report run.
* If you override this method to use an alias, you can
* gather data cumulatively for chained runs however you
* choose, and getRunNodeContents should cope.
* If you augment this method to add to the collection,
* you can add serialized objects
* in the form of XML nodes that have nothing to do with the
* original memberdata contents, and may be completely different
* in schema.  HTMLListener does this for HTTP-EQUIV handling.
IF ISNULL(THIS.runCollector) OR VARTYPE(THIS.runCollector) # "O"
   * because we are using OUTPUTFX_RUNCOLLECTOR_RESET_ONREPORT,
   * this should always be true, and the session issue is
   * probably not relevant.  But we will adjust the session
   * in case somebody changes this #DEFINEd life-period of
   * the runCollector object
   LOCAL m.liSession
   m.liSession = SET("DATASESSION")
   THIS.resetDataSession()
   THIS.runCollector = CREATEOBJECT("Collection")
   SET DATASESSION TO (m.liSession)
ENDIF
THIS.setFRXDataSession()
IF USED(THIS.memberDataAlias)
   LOCAL m.lvValue, m.lcExpr, m.liSelect, m.loXML, m.loXMLTemp
   IF USED("FRX")
      GO (THIS.frxHeaderRecno) IN FRX
      #IF OUTPUTXML = OUTPUTXML_DOM
         m.loXML = CREATEOBJECT(OUTPUTXML_DOMFREETHREADED_DOCUMENTOBJECT)
         m.loXMLTemp = CREATEOBJECT(OUTPUTXML_DOMFREETHREADED_DOCUMENTOBJECT)
      #ELSE
         m.loXML = CREATEOBJECT("Microsoft.XMLDOM")
         m.loXMLTemp = CREATEOBJECT("Microsoft.XMLDOM")
      #ENDIF
      IF NOT m.loXML.LoadXML(FRX.Style)
         m.loXML = NULL
      ENDIF
   ENDIF
   m.liSelect = SELECT(0)
   SELECT (THIS.memberDataAlias)
   SCAN ALL FOR FRXRecno = THIS.frxHeaderRecno AND ;
        Type = FRX_BLDR_MEMBERDATATYPE  ;
        AND (NOT (EMPTY(Execute) OR EMPTY(Name) OR EMPTY(ExecWhen) OR DELETED()))
        * do not check
        * for Name == FRX_BLDR_NAMESPACE_ADVANCEDPROPS
        * because you can add your own in.
        * But it must have *some* namespace.
        * IOW, the original metadata record with
        * blank namespace is not included in this treatment,
        * because its Execute and ExecWhen fields
        * are specified to have different scripting behavior.
        m.lvValue = ""
        m.lcExpr = Execute
        DO CASE
        CASE VAL(DeClass) = ADVPROP_EDITMODE_GETEXPR
           m.lvValue = THIS.evaluateUserExpression(m.lcExpr)
        CASE VAL(DeClass) = ADVPROP_EDITMODE_TEXT AND ;
           NOT ISNULL(m.loXML)
           m.lvValue = ;
              m.loXML.SelectSingleNode("/VFPData/reportdata" + ;
                      "[@name='" + Name + "' and @execwhen='" + ExecWhen + "']/@execute")
           IF (NOT ISNULL(m.lvValue)) AND ;
              m.loXMLTemp.LoadXML(m.lvValue.Text)
              m.lvValue = m.loXMLTemp.DocumentElement
           ELSE
              m.lvValue = m.lcExpr
               * may not really be XML, we still want the information
           ENDIF
        OTHERWISE
           m.lvValue = m.lcExpr
        ENDCASE
        * The following help ensures uniqueness of key values
        * in case people use the same property names in ExecWhen.

        IF Name == FRX_BLDR_NAMESPACE_ADVANCEDPROPS
           m.lcExpr = ExecWhen
        ELSE
           m.lcExpr = Name+"."+ExecWhen
        ENDIF
        IF THIS.runCollector.getKey(m.lcExpr) = 0
           THIS.runCollector.add(m.lvValue,m.lcExpr)
        ENDIF
   ENDSCAN
   SELECT (liSelect)
   STORE NULL  TO m.loXML, m.loXMLTemp
ENDIF
ENDPROC
PROCEDURE runcollectorresetlevel_assign
LPARAMETERS tvNewVal
THIS.runCollectorResetLevel = OUTPUTFX_RUNCOLLECTOR_RESET_ONREPORT
ENDPROC
o^PROCEDURE outputfromdata
LPARAMETERS toListener, tcOutputDBF, tnWidth, tnHeight
IF VARTYPE(toListener) <> "O"
    MESSAGEBOX("Invalid parameter. Report listener not available", 16, "Error")
    RETURN
ENDIF
IF EMPTY(toListener.cFRXAlias)
    MESSAGEBOX("The helper FRX table is not available. Output can't be created", 16, "Error")
    RETURN
ENDIF
* =DoFoxyTherm(90, "Texto label", "Titulo")
* =DoFoxyTherm(-1, "Teste2", "Titulo") && Continuo
* =DoFoxyTherm() && Desliga
IF NOT This.QuietMode
    LOCAL lnSecs
    lnSecs = SECONDS()
    *!*    ._InitStatusText    = .GetLoc("INITSTATUS") + SPACE(1)
    *!*    ._RunStatusText     = .GetLoc("RUNSTATUS")  + SPACE(1)
    *!*    ._SecondsText       = .GetLoc("SECONDS")    + SPACE(1)
    =DoFoxyTherm(1, "0%", _Screen.oFoxyPreviewer._InitStatusText)
ENDIF
LOCAL lnSelect, lnOrigDataSession
lnSelect          = SELECT()
lnOrigDataSession = SET("Datasession")
* Ensure we are at the correct DataSession
SET DATASESSION TO (toListener.ListenerDataSession)
* SET DATASESSION TO (toListener.CurrentDataSession)
SELECT (tcOutputDBF)
* Generate RTF using the stored information
This.lDefaultMode = .F.
* This.BeforeReport()
THIS.nPageHeight = CEILING(THIS.nScreenDPI * tnHeight / 960)
THIS.nPageWidth  = CEILING(THIS.nScreenDPI * tnWidth / 960)
THIS.nOutFile    = FCREATE(THIS.cTargetFileName) && .cOutFile)
LOCAL cHtml
cHtml = [<html><head><META http-equiv="Content-Type" content="text/html">] + ;
    [<title>] + This.cTargetFileName + [</title></head><body>]
FPUTS(THIS.nOutFile, cHtml)
LOCAL lnPgFrom, lnPgTo
lnPgFrom = toListener.COMMANDCLAUSES.RangeFrom  && _goHelper._ClausenRangeFrom
lnPgTo   = IIF(toListener.COMMANDCLAUSES.RangeTo = -1, 999999, _goHelper._ClausenRangeTo) && = loListener.COMMANDCLAUSES.RangeTo && -1 = All pages
&& _goHelper._ClausenRangeTo
* Initialize class
SELECT (tcOutputDBF)
IF This.QuietMode
    SCAN
        IF BETWEEN(Page, lnPgFrom, lnPgTo)
            This.RenderHTML(FRXRECNO, Left, Top, Width, Height, ContType, UNContents, 0)
        ENDIF
    ENDSCAN
ELSE
    LOCAL lnPercent, lnLastPercent, lnDelay, lnTotRecs, lnRec
    lnLastPercent = 0
    lnDelay       = 1
    lnTotRecs     = RECCOUNT()
    lnRec         = 0
    SCAN
        IF BETWEEN(Page, lnPgFrom, lnPgTo)
            lnRec = lnRec + 1
            lnPercent = CEILING(100*lnRec/lnTotRecs)
            IF (lnLastPercent > 0 AND ;
                    lnPercent - lnLastPercent < lnDelay  AND ;
                    lnPercent <> 100)
            ELSE
                =DoFoxyTherm(lnPercent, ;
                    ALLTRIM(TRANSFORM(lnPercent)) + "%  - " + TRANSFORM(FLOOR(SECONDS() - lnSecs)) + " " + _Screen.oFoxyPreviewer._SecondsText, ;
                    _Screen.oFoxyPreviewer._RunStatusText)
            ENDIF
            This.RenderHTML(FRXRECNO, Left, Top, Width, Height, ContType, UNContents, 0)
        ENDIF
    ENDSCAN
    =DoFoxyTherm(100, ;
        "100%  - " + TRANSFORM(CEILING(SECONDS() - lnSecs)) + " " + _Screen.oFoxyPreviewer._SecondsText, ;
                _Screen.oFoxyPreviewer._RunStatusText)
ENDIF
* Finalize
* This.AfterReport()
FPUTS(THIS.nOutFile, [</body></html>])
LOCAL llSaved
llSaved = FCLOSE(THIS.nOutFile)
* Delete the pages image files
LOCAL n, lcFile
FOR m.n = 1 TO ALEN(This.aPagesImgs,1)
    lcFile = This.aPagesImgs(m.n)
    IF NOT EMPTY(lcFile)
        TRY
            DELETE FILE (lcFile)
        CATCH
        ENDTRY
    ENDIF
ENDFOR
USE IN SELECT(tcOutputDBF)
* Restore DataSession, ALias
SET DATASESSION TO (lnOrigDataSession)
SELECT (lnSelect)
IF NOT This.QuietMode
    =DoFoxyTherm()
ENDIF
IF llSaved
    IF This.lObjTypeMode
        _Screen.oFoxyPreviewer.lSaved = llSaved
    ENDIF
    IF This.lOpenViewer
        This.ShellExec(This.cTargetFileName)
    ENDIF
ENDIF
RETURN
ENDPROC
PROCEDURE getbandname
LPARAMETERS nBandObjCode
DO CASE
    CASE nBandObjCode = FRX_OBJCOD_TITLE
        RETURN 'FRX_OBJCOD_TITLE'
    CASE nBandObjCode = FRX_OBJCOD_PAGEHEADER
        RETURN 'FRX_OBJCOD_PAGEHEADER'
    CASE nBandObjCode = FRX_OBJCOD_COLHEADER
        RETURN 'FRX_OBJCOD_COLHEADER'
    CASE nBandObjCode = FRX_OBJCOD_GROUPHEADER
        RETURN 'FRX_OBJCOD_GROUPHEADER'
    CASE nBandObjCode = FRX_OBJCOD_DETAIL
        RETURN 'FRX_OBJCOD_DETAIL'
    CASE nBandObjCode = FRX_OBJCOD_GROUPFOOTER
        RETURN 'FRX_OBJCOD_GROUPFOOTER'
    CASE nBandObjCode = FRX_OBJCOD_COLFOOTER
        RETURN 'FRX_OBJCOD_COLFOOTER'
    CASE nBandObjCode = FRX_OBJCOD_PAGEFOOTER
        RETURN 'FRX_OBJCOD_PAGEFOOTER'
    CASE nBandObjCode = FRX_OBJCOD_SUMMARY
        RETURN 'FRX_OBJCOD_SUMMARY'
    CASE nBandObjCode = FRX_OBJCOD_DETAILHEADER
        RETURN 'FRX_OBJCOD_DETAILHEADER'
    CASE nBandObjCode = FRX_OBJCOD_DETAILFOOTER
        RETURN 'FRX_OBJCOD_DETAILFOOTER'
    OTHERWISE
        RETURN ''
ENDCASE
ENDPROC
PROCEDURE getfontstyle
LPARAMETERS nFontStyle
LOCAL cStyle
cStyle = ''
* extended styles
IF nFontStyle = FRX_FONTSTYLE_UNDERLINED
    cStyle = 'U'
    nFontStyle = nFontStyle - FRX_FONTSTYLE_UNDERLINED
ENDIF
IF nFontStyle = FRX_FONTSTYLE_STRIKETHROUGH
    cStyle = cStyle + 'S'
    nFontStyle = nFontStyle - FRX_FONTSTYLE_STRIKETHROUGH
ENDIF
* standart styles
DO CASE
    CASE nFontStyle = FRX_FONTSTYLE_NORMAL
        cStyle = cStyle + 'N'
    CASE nFontStyle = FRX_FONTSTYLE_BOLD
        cStyle = cStyle + 'B'
    CASE nFontStyle = FRX_FONTSTYLE_ITALIC
        cStyle = cStyle + 'I'
    CASE nFontStyle = FRX_FONTSTYLE_BOLD + FRX_FONTSTYLE_ITALIC
        cStyle = cStyle + 'BI'
ENDCASE
RETURN cStyle
ENDPROC
PROCEDURE rgbtohex
LPARAMETERS nReg, nGreen, nBlue
RETURN [#] + RIGHT(TRANSFORM(MAX(nReg, 0), [@0]), 2) + ;
    RIGHT(TRANSFORM(MAX(nGreen, 0), [@0]), 2) + RIGHT(TRANSFORM(MAX(nBlue, 0), [@0]), 2)
ENDPROC
PROCEDURE getcontinuationtype
LPARAMETERS nObjectContinuationType
DO CASE
    CASE nObjectContinuationType = LISTENER_CONTINUATION_NONE
        RETURN 'LISTENER_CONTINUATION_NONE'
    CASE nObjectContinuationType = LISTENER_CONTINUATION_START
        RETURN 'LISTENER_CONTINUATION_START'
    CASE nObjectContinuationType = LISTENER_CONTINUATION_MIDDLE
        RETURN 'LISTENER_CONTINUATION_MIDDLE'
    CASE nObjectContinuationType = LISTENER_CONTINUATION_END
        RETURN 'LISTENER_CONTINUATION_END'
    OTHERWISE
        RETURN ''
ENDCASE
ENDPROC
PROCEDURE getpageimg
#DEFINE OutputJPEG     102
#DEFINE OutputPNG     104
LOCAL loListener as ReportListener
* loListener = IIF(VARTYPE(This.oActiveListener)="O", This.oActiveListener, This)
loListener = This  && This.oActiveListener
LOCAL lnPage
lnPage = PAGE - loListener.CommandClauses.RangeFrom + 1
DIMENSION This.aPagesImgs(lnPage)
IF EMPTY(This.aPagesImgs(lnPage))
    LOCAL lnDeviceType, lcFile, lnDeviceType, lnHandle
    lnDeviceType = OutputJpeg  && OutputPNG
    lcFile = ADDBS(GETENV("TEMP")) + SYS(2015) + ".JPG" && ".PNG"
    loListener.OutputPage(lnPage, lcFile, lnDeviceType)
    This.aPagesImgs(lnPage) = lcFile
ENDIF
RETURN This.aPagesImgs(lnPage)
ENDPROC
PROCEDURE getpicturefromlistener
* 2011/02/25 CChalom
* When we can't access the image from the EXE or from a General field, we still can get
* an image of the object, and draw it to the PDF document
LPARAMETERS tnX, tnY, tnWidth, tnHeight, tcFile
LOCAL lcFile
lcFile = This.GetPageImg()
IF EMPTY(lcFile)
    RETURN .F. && Could not load image
ENDIF
* Horizontal and Vertical factors to divide to convert to the correct coordinate
LOCAL lnHor, lnVert
lnHor  = 9.972
lnVert = 9.996
lcNewFile = This.CropImage(lcFile, tnX / lnHor, tnY / lnVert, tnWidth / lnHor, tnHeight / lnVert, tcFile)
RETURN lcNewFile
ENDPROC
PROCEDURE processimages
LPARAMETERS tnLeft, tnTop, tnWidth, tnHeight, cContentsToBeRendered
* TODO:
* Manage new possibilities for storing images, using the new properties:
* cExternalFileLocation = ".\images"
* lCopyImageFilesToExternalFileLocation = .T.
* Create Images directory
LOCAL lcFile, lcPath, lcShortPath, lcImageCopy, lcPathLocation
lcFile = This.cTargetFileName
IF EMPTY(This.cExternalFileLocation)
    lcPathLocation = JUSTSTEM(lcFile) + "_IMAGES"
ELSE
    lcPathLocation = This.cExternalFileLocation
ENDIF
lcPath = ADDBS(JUSTPATH(lcFile)) + lcPathLocation
lcShortPath = lcPathLocation + "\" + JUSTFNAME(cContentsToBeRendered)
IF NOT DIRECTORY(lcPath)
    MKDIR (lcPath)
ENDIF
DO CASE
CASE EMPTY(cContentsToBeRendered)  && General field
    This.nImgCounter = This.nImgCounter + 1
    lcImageCopy = ADDBS(lcPath) + "_" + TRANSFORM(This.nImgCounter) + ".jpg"
    This.GetPictureFromListener(This.nX0, This.nY0, This.nW0, This.nH0, lcImageCopy)
    lcShortPath = JUSTSTEM(lcFile) + "_IMAGES" + "\" + "_" + TRANSFORM(This.nImgCounter) + ".jpg"
CASE NOT EMPTY(SYS(2000, cContentsToBeRendered))  && File is accessible in the disk
    lcImageCopy = ADDBS(lcPath) + JUSTFNAME(cContentsToBeRendered)
    IF PR_PathFileExists(lcImageCopy + CHR(0)) = 0 && PR_PathFileExists function in FoxyPreviewer.app
*    IF NOT FILE(lcImageCopy)
        COPY FILE (cContentsToBeRendered) TO (lcImageCopy)
    ENDIF
CASE EMPTY(SYS(2000, cContentsToBeRendered))  && Image embedded in EXE
    lcImageCopy = ADDBS(lcPath) + JUSTFNAME(cContentsToBeRendered)
    This.GetPictureFromListener(This.nX0, This.nY0, This.nW0, This.nH0, lcImageCopy)
    IF PR_PathFileExists(lcImageCopy + CHR(0)) = 0 && PR_PathFileExists function in FoxyPreviewer.app
*    IF NOT FILE(lcImageCopy)
        COPY FILE (cContentsToBeRendered) TO (lcImageCopy)
    ENDIF
OTHERWISE
    RETURN ""
ENDCASE
* If we could not generate the image copy, leave
IF PR_PathFileExists(lcImageCopy + CHR(0)) = 0 && PR_PathFileExists function in FoxyPreviewer.app
    RETURN ""
ENDIF
LOCAL lcHTML, lcImgHTML
DO CASE
CASE General = 0        && Clip
    * Get the picture size
    LOCAL lnWidth, lnHeight, lnPictWidth, lnPictHeight, lcHTML
    LOCAL loVFPImg as Image
    loVFPImg = CREATEOBJECT("Image")
    loVFPImg.Picture = lcImageCopy
    lnWidth = loVFPImg.Width
    lnHeight = loVFPImg.Height
    loVFPImg = NULL
    CLEAR RESOURCES (lcImageCopy)
    lcImgHTML = [<img src="] + lcShortPath + [" width="] + TRANSFORM(lnWidth) + [" height="] + TRANSFORM(lnHeight) +  [">]
    lcHTML = ;
        [<span style="position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;] + ;
        [clip: rect(0 ] + TRANSFORM(tnWidth) + [px ] + TRANSFORM(tnHeight) + [px 0);] + ;
        [">] + ;
        lcImgHTML + ;
        [</span>]
*!*    img {    position: absolute;
*!*    clip: rect(0 100px 200px 0);
*!*    /* clip: shape(top right bottom left); NB 'rect' is the only available option */}
* <span style="position:absolute;left:9px;top:400px;clip: rect(0 100px 50px 0);"><img src="TEST22222_IMAGES\pr_mail_32.bmp" width="234" height="64"></span>
CASE General = 1    && Isometric
    * Calculating the image size for isometric images
    * Get the picture size
    LOCAL lnWidth, lnHeight, lnPictWidth, lnPictHeight, lcHTML
    LOCAL loVFPImg as Image
    loVFPImg = CREATEOBJECT("Image")
    loVFPImg.Picture = lcImageCopy
    lnPictWidth  = loVFPImg.Width
    lnPictHeight = loVFPImg.Height
    loVFPImg     = NULL
    CLEAR RESOURCES (lcImageCopy)
    * Isometric Adjustment
    LOCAL lnHorFactor, lnVertFactor, lnResizeFactor, lnIsoWidth, lnIsoHeight
    m.lnHorFactor    = m.tnWidth  / m.lnPictWidth
    m.lnVertFactor   = m.tnHeight / m.lnPictHeight
    m.lnResizeFactor = MIN(m.lnHorFactor, m.lnVertFactor)
    m.lnIsoWidth     = m.lnPictWidth * m.lnResizeFactor
    m.lnIsoHeight = m.lnPictHeight * m.lnResizeFactor
    lcImgHTML = [<img src="] + lcShortPath + [" width="] + TRANSFORM(lnIsoWidth) + [" height="] + TRANSFORM(lnIsoHeight) +  [">]
    lcHTML = ;
        [<span style="position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;] + ;
        [clip: rect(0 ] + TRANSFORM(tnWidth) + [px ] + TRANSFORM(tnHeight) + [px 0);] + ;
        [">] + ;
        lcImgHTML + ;
        [</span>]
OTHERWISE
*!*    CASE .General = 2    && Stretch
    lcImgHTML = [<img src="] + lcShortPath + [" width="] + TRANSFORM(tnWidth) + [" height="] + TRANSFORM(tnHeight) +  [">]
    lcHTML = ;
        [<span style="position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;">] + ;
        lcImgHTML + ;
        [</span>]
ENDCASE
RETURN lcHTML
ENDPROC
PROCEDURE processtext
LPARAMETERS tnLeft, tnTop, tnWidth, tnHeight, cContentsToBeRendered
LOCAL lcHTML, lcText, lcOrigText
lcOrigText = ALLTRIM(STRCONV(cContentsToBeRendered, 6)) && STRCONV_UNICODE_UTF8) for Russian
IF EMPTY(lcOrigText)
    RETURN ""
ENDIF
* Html special chars
lcText = STRTRAN(lcOrigText, [&], [&]) && first!
*lcText = STRTRAN(lcText, [ ], [ ])
lcText = STRTRAN(lcText, [<], [<])
lcText = STRTRAN(lcText, [>], [>])
* Alignment settings
*     Offset = 0 && Left Aligned
*     Offset = 1 && Right Aligned
*     Offset = 2 && Center Aligned
LOCAL lcAlign
DO CASE
CASE Offset = 0
    lcAlign = "text-align: left;"
CASE Offset = 1
    lcAlign = "text-align: right;"
CASE Offset = 2
    lcAlign = "text-align: center;"
OTHERWISE
    lcAlign = ""
ENDCASE
* css style for span to output
LOCAL lcFillHex, lcPreSpan, lcPostSpan, lcForeHex, lcPreFont, lcForeHex, lcPostFont
* Mode: 0 = Opaque background; 1 = Transparent
DO CASE
*CASE (fillred = 255 AND fillgreen = 255 AND fillblue = 255) OR Mode = 1 && Transparent
*    lcFillHex = "" && white
CASE Mode = 1 && Transparent
    lcFillHex = "" && white
CASE fillred = -1   AND fillgreen = -1  AND fillblue = -1
    lcFillHex = THIS.RgbToHex(255,255,255) && White
*    lcFillHex = "" && white
OTHERWISE
    lcFillHex = THIS.RgbToHex(fillred, fillgreen, fillblue)
ENDCASE
IF PenRed = -1
    lcForeHex = THIS.RgbToHex(0, 0, 0)
ELSE
    lcForeHex = THIS.RgbToHex(penred, pengreen, penblue)
ENDIF
IF Stretch
    lcWWrap = [white-space:normal;]
ELSE
    * Get the quantity of lines needed
    LOCAL lnLines
    lnLines = 0
    lnLines = This.GetLinesCnt(lcOrigText, FontFace, FontSize, FontStyle, tnLeft, tnTop, tnWidth, tnHeight)
    IF lnLines <= 1
        lcWWrap = [overflow:hidden ;] + [white-space:nowrap;]
    ELSE
        lcWWrap = [white-space:normal;]
    ENDIF
ENDIF
lcPreSpan = [<span style="] + ;
            [position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;] + ;
            [width:] + TRANSFORM(tnWidth) + [px;height:] + TRANSFORM(tnHeight) + [px;] + lcAlign + ;
            IIF(EMPTY(lcFillHex), "", [background-color:] + lcFillHex + [;]) + ;
            [font-family:] + ALLTRIM(FontFace) + [;] + [font-size:] + TRANSFORM(FONTSIZE+2) + [px;] + ;
            [color:] +  + lcForeHex + ";" + ;
            lcWWrap + ;
            [">]
lcPostSpan = [</span>]
*    [word-wrap:break-word;] + ;
*    [overflow:hidden ;] + ;
*    [white-space:normal;] + ;
*    [overflow: visible;] + ;
* Font attrib
lcForeHex = THIS.RgbToHex(penred, pengreen, penblue)
*lcPreFont = [<font face="] + ALLTRIM(FontFace) + [" fontsize=] + TRANSFORM(FONTSIZE-2) + [ color=] + lcForeHex + [>]
*lcPostFont = [</font>]
lcPreFont = ""
lcPostFont = ""
* Set Html font style
LOCAL lcFontStyle, lcPreStyle, lcPostStyle
lcFontStyle = THIS.GetFontStyle(FontStyle)
STORE '' TO lcPreStyle, lcPostStyle
IF AT('B', lcFontStyle) > 0
    lcPreStyle = [<b>]
    lcPostStyle = [</b>]
ENDIF
IF AT('I', lcFontStyle) > 0
    lcPreStyle = lcPreStyle + [<i>]
    lcPostStyle = [</i>] + lcPostStyle
ENDIF
IF AT('U', lcFontStyle) > 0
    lcPreStyle = lcPreStyle + [<u>]
    lcPostStyle = [</u>] + lcPostStyle
ENDIF
IF AT('S', lcFontStyle) > 0
    lcPreStyle = lcPreStyle + [<s>]
    lcPostStyle = [</s>] + lcPostStyle
ENDIF
* write to file
lcHtml = lcPreSpan + lcPreFont + lcPreStyle + lcText + lcPostStyle + lcPostFont + lcPostSpan
RETURN lcHTML
ENDPROC
PROCEDURE processlines
LPARAMETERS tnLeft, tnTop, tnWIdth, tnHeight
LOCAL lcHTML
*!*    lcHTML = ;
*!*        [<span style="position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;width:] + TRANSFORM(tnWidth) + [px;] + ;
*!*        [height:1px;text-align: left;border:1px solid ] + THIS.RgbToHex(MAX(penred,0), MAX(pengreen,0), MAX(penblue,0)) + [;">] + ;
*!*        [<font face="Arial" fontsize=10 color=#000000></font></span>]
lcHTML = ;
    [<span style="position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;width:] + TRANSFORM(tnWidth) + [px;] + ;
    [height:] + TRANSFORM(tnHeight) + [px;text-align: left;border:1px solid ] + THIS.RgbToHex(MAX(penred,0), MAX(pengreen,0), MAX(penblue,0)) + [;">] + ;
    [<font face="Arial" fontsize=10 color=#000000></font></span>]
RETURN lcHTML
ENDPROC
PROCEDURE processshapes
LPARAMETERS tnLeft, tnTop, tnWidth, tnHeight, tnObjectContinuationType
*!* 2011-08-17 - Jacques Parent
*!* Added tnObjectContinuationType parameter
* Process Background information
LOCAL lcFillHex
* Mode    : 0 = Opaque background; 1 = Transparent
* FillPat : 0 = Transparent; others fill patterns (opaque)
DO CASE
CASE ((Mode = 1) OR (FillPat = 0)) AND (FillRed = -1) && Transparent
    lcFillHex = "" && white
CASE fillred = -1   AND fillgreen = -1  AND fillblue = -1
    * lcFillHex = "" && White
    lcFillHex = THIS.RgbToHex(255,255,255) && White
OTHERWISE
    lcFillHex = THIS.RgbToHex(fillred, fillgreen, fillblue)
ENDCASE
lcFillHex = IIF(EMPTY(lcFillHex), "", [background-color:] + lcFillHex + [;])
* Process Border color
LOCAL lcBorderHex
lcBorderHex = ""
* PenPat: 0 = Transparent (no border)
DO CASE
CASE PenPat = 0 && Transparent
CASE PenRed = -1
    lcBorderHex = THIS.RgbToHex(0,0,0) && Black
OTHERWISE
    lcBorderHex = THIS.RgbToHex(PenRed, PenGreen, PenBlue)
ENDCASE
IF NOT EMPTY(lcBorderHex)
    *!* --------------------------------------------------------------------------------------------------------
    *!* --------------------------------------------------------------------------------------------------------
    *!* --------------------------------------------------------------------------------------------------------
    *!* 2011-08-17 - Jacques Parent
    *!* In case tnObjectContinuationType is <> 0, we must deactivate some borders...
    DO CASE
        CASE tnObjectContinuationType == 1    && Top of box only
            lcBorderHex = [border-left:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;] +;
                          [border-right:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;] +;
                          [border-top:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;]
        CASE tnObjectContinuationType == 2    && Middle of box only
            lcBorderHex = [border-left:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;] +;
                          [border-right:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;]
        CASE tnObjectContinuationType == 3    && Bottom of box only
            lcBorderHex = [border-left:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;] +;
                          [border-right:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;] +;
                          [border-bottom:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;]
        OTHERWISE    && Complete box
            lcBorderHex = [border:] + TRANSFORM(PenSize) + [px ] + ;
                lcBorderHex + [ solid;]
            * border:1px solid
    ENDCASE
    *!* --------------------------------------------------------------------------------------------------------
    *!* --------------------------------------------------------------------------------------------------------
    *!* --------------------------------------------------------------------------------------------------------
ENDIF
LOCAL lcHTML
lcHTML = ;
    [<span style="position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;width:] + TRANSFORM(tnWidth) + [px;] + ;
    [height:] + TRANSFORM(tnHeight) + [px;text-align: left;] + ;
    lcBorderHex + ;
    lcFillHex + [">] + [ ] + ;
    [</span>]
RETURN lcHTML
ENDPROC
PROCEDURE getlinescnt
LPARAMETERS tcText, tcFontName, tnSize, tcStyle, tnLeft, tnTop, tnWidth, tnHeight
LOCAL loFont, lnChars, lnLines, lnHeight, lnWidth, lnFactor
LOCAL loRect as GpRectangle OF HOME() + "\ffc\_Gdiplus.vcx"
loRect = NEWOBJECT("GPRectangle", "_Gdiplus.vcx", "", 0, 0, tnWidth, tnHeight)
* Create a font object using the text object's settings.
loFont = NEWOBJECT("GPFont", "_Gdiplus.vcx")
loFont.Create(tcFontName, tnSize, tcStyle, 3)
LOCAL loGfx as GpGraphics OF HOME() + "\ffc\_Gdiplus.vcx"
loGfx  = NEWOBJECT("GpGraphics", "_Gdiplus.vcx")
lnFactor = 1 && 10
loGfx.CreateFromHWND(_Screen.HWnd)
loGfx.PageUnit  = 1
loGfx.PageScale = 0.3
loRect.w = tnWidth  / lnFactor
loRect.h = tnHeight / lnFactor
LOCAL loSize as GpSize OF HOME() + "\ffc\_Gdiplus.vcx"
loSize = loGfx.MeasureStringA(tcText, loFont, loRect.GdipRectF, .F., @lnChars, @lnLines)
lnWidth  = loSize.w
lnHeight = loSize.h
RETURN lnLines
* loGfx.SetHandle(0)
*RETURN (lnHeight / 960) * 72 * lnFactor
ENDPROC
PROCEDURE cropimage
Lparameters lcFile As String, tnX, tnY, lnWidth As Integer, lnHeight As Integer, tcNewFile
IF EMPTY(tcNewFile)
    tcNewFile = FORCEEXT(This._cTempFolder + Sys(2015), lcEXT)
ENDIF
Local loBmp As gpBitmap OF HOME() + "ffc\_gdiplus.vcx"
loBmp = NEWOBJECT("GpBitmap", "_GdiPlus.vcx")
loBmp.CreateFromFile(lcFile)
lnHeight = MIN(lnHeight, loBmp.ImageHeight)
lnWidth  = MIN(lnWidth , loBmp.ImageWidth)
LOCAL lhBitmap, lnStatus
lhBitmap = 0
* Function used in the CropImage method
DECLARE Long GdipCloneBitmapAreaI IN GDIPLUS.DLL AS pdfxGdipCloneBitmapAreaI Long x, Long y, Long nWidth, Long Height, Long PixelFormat, Long srcBitmap, Long @dstBitmap
lnStatus = pdfxGdipCloneBitmapAreaI(tnX, tnY, lnWidth, lnHeight, loBmp.PixelFormat, loBmp.GetHandle(), @lhBitmap)
IF (lnStatus <> 0) OR (lhBitmap = 0)
    loBmp = NULL
    * lnHandle = 0
    RETURN ""
ENDIF
LOCAL loCropped As gpBitmap OF HOME() + "ffc\_gdiplus.vcx"
loCropped = NEWOBJECT("GpBitmap", "_GdiPlus.vcx")
loCropped.SetHandle(lhBitmap, .T.)  && Owns handle, please destroy the Bmp object when releasing
loCropped.SetResolution(loBmp.HorizontalResolution, loBmp.VerticalResolution)
LOCAL lcEXT, lcEncoder
lcEXT = UPPER(JUSTEXT(lcFile))
lcEncoder = IIF(lcEXT = "PNG", "image/png", "image/jpeg")
LOCAL lcCroppedFile
lcCroppedFile = tcNewFile && FORCEEXT(This._cTempFolder + Sys(2015), lcEXT)
loCropped.SaveToFile(lcCroppedFile, lcEncoder)
loCropped = NULL
loBMP     = NULL
This.oImages.Add(lcCroppedFile)
RETURN lcCroppedFile
ENDPROC
PROCEDURE renderhtml
* 2011-07-14 CChalom:
* Introduced text alignment, Width and Height
* Adjusted positions
* Fixed transparent background texts
* Reduced FontSize in 2 points to make text fit in space
* Added lines
* Created separate methods to deal with different tasks
* TODO:
* Manage images and shapes
LPARAMETERS nFRXRecno, nLeft, nTop, nWidth, nHeight, nObjectContinuationType, cContentsToBeRendered, GDIPlusImage
This.nX0 = nLeft
This.nY0 = nTop
This.nW0 = nWidth
This.nH0 = nHeight
LOCAL lcDebugInfo, lcHTML
IF THIS.lDebug
    lcDebugInfo = [<!-- nLeft:] + TRANSFORM(nLeft) + [, nTop:] + TRANSFORM(nTop) + [, nWidth:] + ;
        TRANSFORM(nWidth) + [, nHeight:] + TRANSFORM(nHeight) + [, ContinuationType:] + ;
        THIS.GetContinuationType(nObjectContinuationType) + [, cContents:] + cContentsToBeRendered + [ -->]
    FPUTS(THIS.nOutFile, lcDebugInfo)
ENDIF
#Define OBJ_COMMENT                  0
#Define OBJ_LABEL                    5
#Define OBJ_LINE                     6
#Define OBJ_RECTANGLE                7
#Define OBJ_FIELD                    8
#Define OBJ_PICTURE                 17
#Define OBJ_VARIABLE                18
LOCAL lnAdjust
lnAdjust = 1.10
* dpi2pix
nLeft   = CEILING(CEILING(THIS.nScreenDPI * nLeft / 960) * lnAdjust)
nTop    = ROUND(THIS.nScreenDPI * nTop / 960, 0)
nWidth  = CEILING(CEILING(THIS.nScreenDPI * nWidth / 960) * lnAdjust)
nHeight = CEILING(THIS.nScreenDPI * nHeight / 960)
IF PAGE > 1
*    nTop = THIS.nPageHeight * (PAGE - This.oActiveListener.CommandClauses.RangeFrom) + nTop && Original -1
    nTop = THIS.nPageHeight * (PAGE - This.CommandClauses.RangeFrom) + nTop && Original -1
ENDIF
DO CASE
CASE ObjType = OBJ_LINE
    lcHTML = This.ProcessLines(nLeft, nTop, nWidth, nHeight)
CASE ObjType = OBJ_RECTANGLE
    lcHTML = This.ProcessShapes(nLeft, nTop, nWidth, nHeight, nObjectContinuationType)
    *!* 2011-08-17 - Jacques Parent
    *!* Added nObjectContinuationType parameter
CASE INLIST(ObjType, OBJ_LABEL, OBJ_FIELD)
    lcHTML = This.ProcessText(nLeft, nTop, nWidth, nHeight, cContentsToBeRendered)
CASE ObjType = OBJ_PICTURE
    lcHTML = This.ProcessImages(nLeft, nTop, nWidth, nHeight, cContentsToBeRendered)
OTHERWISE
    RETURN
ENDCASE
IF VARTYPE(lcHTML) <> "C"
    RETURN
ENDIF
IF NOT EMPTY(lcHTML)
    =FPUTS(THIS.nOutFile, lcHtml)
ENDIF
ENDPROC
PROCEDURE prepareoutput
LOCAL lcOutputDBF, lnWidth, lnHeight
m.lcOutputDBF = This.GetFullFRXData()
IF NOT EMPTY(m.lcOutputDBF)
    m.lnWidth  = This.GETPAGEWIDTH()
    m.lnHeight = This.GETPAGEHEIGHT()
    This.OutputFromData(This, m.lcOutputDBF, m.lnWidth, m.lnHeight)
ENDIF
ENDPROC
PROCEDURE BeforeReport
This.lDefaultMode = .T.
DODEFAULT()
ENDPROC
PROCEDURE AfterReport
This.PrepareOutput()
DODEFAULT()
ENDPROC
PROCEDURE AfterBand
LPARAMETERS nBandObjCode, nFRXRecno
DODEFAULT(nBandObjCode, nFRXRecno)
LOCAL cBand
SET DATASESSION TO THIS.FRXDATASESSION
GO nFRXRecno IN frx
cBand = THIS.GetBandName(nBandObjCode)
IF THIS.lDebug
    FPUTS(THIS.nOutFile, '<!-- AfterBand:' + cBand + ' -->')
ENDIF
IF ATC('pagefooter', cBand) > 0
* fputs(This.nOutFile, '<hr color = black>')
ENDIF
SET DATASESSION TO THIS.CURRENTDATASESSION
ENDPROC
PROCEDURE BeforeBand
LPARAMETERS nBandObjCode, nFRXRecno
DODEFAULT(nBandObjCode, nFRXRecno)
SET DATASESSION TO THIS.FRXDATASESSION
GO nFRXRecno IN frx
IF THIS.lDebug
    FPUTS(THIS.nOutFile, '<!-- BeforeBand:' + THIS.GetBandName(nBandObjCode) + ' -->')
ENDIF
SET DATASESSION TO THIS.CURRENTDATASESSION
ENDPROC
PROCEDURE Destroy
FCLOSE(This.nOutFile)
DODEFAULT()
ENDPROC
PROCEDURE Init
* Author: aMaximum
* Class adapted from the class posted at www.foxclub.ru
* Original info:
**************************************************
*-- Class: html_listener (c:\projects\vfp9_preview\html_listener.vcx)
*-- ParentClass: reportlistener
*-- BaseClass: reportlistener
*-- Time Stamp: 06/18/04 03:09:01 PM
* http://forum.foxclub.ru/read.php?29,144472
* http://translate.google.com/translate?js=n&prev=_t&hl=pt-BR&ie=UTF-8&layout=2&eotf=1&sl=ru&tl=en&u=http%3A%2F%2Fforum.foxclub.ru%2Fread.php%3F29%2C144472&act=url
* http://forum.foxclub.ru/read.php?29,144639,144728
* http://translate.google.com/translate?js=n&prev=_t&hl=pt-BR&ie=UTF-8&layout=2&eotf=1&sl=ru&tl=en&u=http%3A%2F%2Fforum.foxclub.ru%2Fread.php%3F29%2C144639%2C144728&act=url
* The report emerged, but the problem with the encoding of Russian letters. What is the trick?
* Change in the method of render on strconv
* cText = strconv (cContentsToBeRendered, 6)
*   Or changing
* cHtml = [<html><head><META http-equiv="Content-Type" content="text/html;">] + ;
*   to
* cHtml = [<html><head><META http-equiv="Content-Type" content="text/html;charset=utf-8">] + ;
* and then there is a UNICODE conversion to UTF-8
DODEFAULT()
#define LOGPIXELSX 88
DECLARE INTEGER GetDeviceCaps IN WIN32API INTEGER HDC, INTEGER ITEM
DECLARE INTEGER GetDC IN WIN32API INTEGER HWND
LOCAL HDC, lnScreenDPI
HDC = GetDC(0)
lnScreenDPI = GetDeviceCaps( m.HDC, LOGPIXELSX )
THIS.nScreenDPI = lnScreenDPI
THIS.lDebug = .F. && VERSION(2) = 2
This._cTempFolder = ADDBS(SYS(2023)) && ADDBS(GETENV("TEMP"))
This.oImages = CREATEOBJECT("Collection")
ENDPROC
PROCEDURE updateproperties
DODEFAULT()
IF NOT This.lObjTypeMode OR (VARTYPE(_Screen.oFoxyPreviewer) <> "O")
    RETURN
ENDIF
LOCAL loFP
loFP = _Screen.oFoxyPreviewer
IF VARTYPE(This.CommandClauses) = "O"
    *!*    IF This.CommandClauses.Preview
    *!*        This.lOpenViewer = .T.
    *!*    ELSE
    *!*        This.lOpenViewer = NVL(loFP.lOpenViewer, .T.)
    *!*    ENDIF
    This.lOpenViewer = This.CommandClauses.Preview
    IF NOT EMPTY(This.CommandClauses.ToFile)
        This.cTargetFileName = This.CommandClauses.ToFile
    ELSE
        IF VARTYPE(_Screen.oFoxyPreviewer) = "O" AND ;
                NOT EMPTY(_Screen.oFoxyPreviewer.cDestFile) AND ;
                EMPTY(This.cTargetFileName)
            LOCAL lcDestFile
            lcDestFile = _Screen.oFoxyPreviewer.cDestFile
            IF NOT "\" $ lcDestFile
                lcDestFile = ALLTRIM(ADDBS(_Screen.oFoxyPreviewer.cOutputPath) + lcDestFile)
            ENDIF
            This.cTargetFileName = lcDestFile
        ELSE
            LOCAL lcFile
            lcFile = This.cTargetFileName
            IF EMPTY(lcFile)
                lcFile = PUTFILE("","","HTM")
            ENDIF
            IF EMPTY(lcFile)
                _ReportListener::CancelReport()
                * This.CancelReport()
                RETURN .F.
            ENDIF
            This.cTargetFileName = lcFile
        ENDIF
    ENDIF
ENDIF
This.QUIETMODE        = NVL(loFP.lQuietMode         , .F.)
ENDPROC
_GDIPLUS.VCX
DATASESSIONv
GpGraphics
_GDIPlus.VCX
TLCALLEDFROMBEFOREREPORT
_GDIPLUS
LISESSION
RESETDATASESSION
ENSURECOLLECTION
FFCGRAPHICS
COUNT
GETOBJECTINSTANCE
QUIETONERROR
QUIETMODE[
TCPROGRAM
TCPROGRAM
LIRENDERBEHAVIOR
LITEMP
LCMETHODTOKEN
ISSUCCESSOR
UPPERMETHODNAME
COUNT
SETCURRENTDATASESSION
APPLYFX
NEEDGFXS
COLLECTION
ApplyFX
ApplyFX
TLCALLEDFROMBEFOREREPORT
LIINDEX
GETFEEDBACKFXOBJECT
GETMEMBERDATASCRIPTFXOBJECT
GETROTATEGFXOBJECT
GETNORENDERGFXOBJECT
COUNT
REMOVE
GFXSF
TCPROGRAM
LCPROGRAM9
VNEWVAL
CANCELREQUESTEDE
VNEWVAL
FXFEEDBACKCLASSC
VNEWVAL
FXFEEDBACKCLASSLIB7
VNEWVAL
FXFEEDBACKMODULE
THIS.CommandClauses.NoDialogb
TLQUIET
THIS
QUIETMODE
ISSUCCESSOR
COMMANDCLAUSES
NODIALOG
ADDCOLLECTIONMEMBER
FXFEEDBACKCLASS
FXFEEDBACKCLASSLIB
FXFEEDBACKMODULE!
CHECKCOLLECTIONFORSPECIFIEDMEMBER
STARTMODE
classPath
VNEWVAL
THIS
CLASSPATH
RESETTODEFAULT
A required helper object is not defined.C
This report run may be missing some features,
or it may not conclude successfully.
DATASESSIONv
 ALIAS
CLASSLIBv
 ALIAS
CLASSLIBv
PROCEDUREv
PROCEDUREv
A required helper object is not available.C
Class:
 Library:
This report run may be missing some features,
or it may not conclude successfully.
TCCLASS
TCCLASSLIB
TCMODULE
TLASSIGNUNIQUENAMETOOBJECT
TCNAMEPREFIX
TLMANDATORYOBJECT
THIS
DOMESSAGE
LCFORCEVCX
LCFORCEFXP
LCUSETHISLIB
LCEXTERNALSPATH
LISESSION
RESETDATASESSION
GETPATHFOREXTERNALS
CLASSPATH
TCCLASS
TCCLASSLIB
TLINGFX
TLRETURNREF
LIINDEX
LCFORCEVCX
LCCLASSLIB
LCCLASS
LCTHISLIB
LLFOUND
LOREF
ENSURECOLLECTION
LCFORCEFXP
COUNT
CLASSLIBRARY
CLASS
ApplyFX
TCCLASS
TCCLASSLIB
TCMODULE
TLSINGLETON
TLINGFX
TLREQUIRED
LEXISTS
LIRETURN
THIS!
CHECKCOLLECTIONFORSPECIFIEDMEMBER
ENSURECOLLECTION
GETOBJECTINSTANCE
LILEVEL
LCSYS16
LCPATH
THIS
CLASSPATH
CLASSLIBRARY
GpGraphics
TVNEWVAL
THIS
ISRUNNING
FFCGRAPHICS
LADUMMYo
Class to handle scripting during C
report generation process is not available.
Report run may not provide expected dynamic behavior.
SETFRXDATASESSION
MEMBERDATAALIAS
EXECUTE
ADDCOLLECTIONMEMBER
FXMEMBERDATASCRIPTCLASS
FXMEMBERDATASCRIPTCLASSLIB
FXMEMBERDATASCRIPTMODULE!
CHECKCOLLECTIONFORSPECIFIEDMEMBER
DOMESSAGE
VNEWVAL
FXMEMBERDATASCRIPTCLASSC
VNEWVAL
FXMEMBERDATASCRIPTCLASSLIB7
VNEWVAL
FXMEMBERDATASCRIPTMODULE
FRXCursor
_FRXCURSOR.VCX
THIS
ISRUNNING
FRXCURSOR
LOADFRXCURSOR
GETOBJECTINSTANCE
QUIETMODE?
VNEWVAL
THIS
ISRUNNING
FRXCURSORD
VNEWVAL
THIS
ISRUNNING
LOADFRXCURSORE
VNEWVAL
MEMBERDATAALIAS
WINDOWS
UnpackFRXMemberdata
Class to handle scripting during C
report generation process is not available.
Report run may not provide expected dynamic behavior.
PLATFORM
STYLE
LOADFRXCURSOR
FRXCURSOR
UNPACKFRXMEMBERDATA
MEMBERDATAALIAS
FRXDATASESSION
DOMESSAGEK
TVNEWVAL
RUNCOLLECTORRESETLEVEL
BEFOREREPORT
AFTERREPORT
LOADREPORT
UNLOADREPORT
DATASESSIONv
WINDOWS
BEFOREBAND
AFTERBAND
TCMETHODTOKEN
LIFRXRECNO
LISESSION
FRXHEADERRECNO
SETFRXDATASESSION
OBJTYPE
PLATFORM
Microsoft.VFP.Reporting.Builder.Rotate
Class to handle rotation during C
report generation process is not available.
Report layout controls will not rotate.
SETFRXDATASESSION
MEMBERDATAALIAS
EXECUTE
ADDCOLLECTIONMEMBER
GFXROTATECLASS
GFXROTATECLASSLIB
GFXROTATEMODULE!
CHECKCOLLECTIONFORSPECIFIEDMEMBER
DOMESSAGE
VNEWVAL
GFXROTATECLASSE
VNEWVAL
GFXROTATECLASSLIB9
VNEWVAL
GFXROTATEMODULE]
TCNAME
TLINGFX
TLNAMEISCLASS
LIINDEX
LLFOUND
LCNAME
COUNT
CLASS
REMOVE
reportStopRunDatetime
THIS!
CHECKCOLLECTIONFORSPECIFIEDMEMBER
FXFEEDBACKCLASS
FXFEEDBACKCLASSLIB
REPORTSTOPRUNDATETIME
reportStartRunDatetime
THIS!
CHECKCOLLECTIONFORSPECIFIEDMEMBER
FXFEEDBACKCLASS
FXFEEDBACKCLASSLIB
REPORTSTARTRUNDATETIME
DATASESSIONv
THIS.CommandClauses.StartDatasessionb
TVVALUEEXPR
LISESSION
LVVALUE
SETCURRENTDATASESSION
SETFRXDATASESSION
RESETDATASESSION
COMMANDCLAUSES
STARTDATASESSION
LISTENERDATASESSION9
VNEWVAL
GFXNORENDERCLASS9
VNEWVAL
GFXNORENDERCLASSLIB9
VNEWVAL
GFXNORENDERMODULE
ListenerRef.Preprocess.NoRenderWhen
Microsoft.VFP.Reporting.Builder.AdvancedProperty
ListenerRef.NoRenderWhen
ListenerRef.Preprocess.NoRenderWhen
Class or behavior to handle conditional rendering during C
report generation process is not available during this run.
Some report layout controls may appear unexpectedly in the output.
GFXNORENDERCLASS
LLNEEDTHISGFX
LLOPENEDMEMBERDATA
SETFRXDATASESSION
MEMBERDATAALIAS
COMMANDCLAUSES
ISDESIGNERLOADED!
CHECKCOLLECTIONFORSPECIFIEDMEMBER
GFXNORENDERCLASSLIB
STYLE
LOADFRXCURSOR
EXECWHEN
EXECUTE
ADDCOLLECTIONMEMBER
GFXNORENDERMODULE
DOMESSAGE
COLLECTION
Collection
COLLECTION
Collection
TLGFXS
GFXS
BASECLASS
TNHANDLE
FFCGRAPHICS
SETHANDLE
SHAREDGDIPLUSGRAPHICS
NEXTERNALGDIPLUSGFXg
COUNT
SENDFX
CANCELREQUESTED/
FFCGRAPHICS
FRXCURSOR
NFRXRECNO
NLEFT
NWIDTH
NHEIGHT
NOBJECTCONTINUATIONTYPE
CCONTENTSTOBERENDERED
GDIPLUSIMAGE
LIDEFAULTBEHAVIOR
LLNEEDGFXS
LNSTATE
LHGFX
GDIPLUSGRAPHICS
ISSUCCESSOR
COUNT
NEEDGFXS
FFCGRAPHICS
SETHANDLE
SENDFX
RESTORE
SUCCESSOR
SETSUCCESSORDYNAMICPROPERTIES
RENDER
NFRXRECNO
OOBJPROPERTIES
SENDFX
SUCCESSOR
SETSUCCESSORDYNAMICPROPERTIES
ADJUSTOBJECTSIZE
NFRXRECNO
OOBJPROPERTIES
SENDFX
SUCCESSOR
SETSUCCESSORDYNAMICPROPERTIES
EVALUATECONTENTSF
NBANDOBJCODE
NFRXRECNO
SENDFX
NBANDOBJCODE
NFRXRECNO
COUNT
FFCGRAPHICS
SETHANDLE
GDIPLUSGRAPHICS
SENDFX?
SENDFX
COMMANDCLAUSES
COMMANDCLAUSESFILE
SENDFX
memberDataAlias
SETFRXDATASESSION
ISSUCCESSOR
CREATEMEMBERDATACURSOR
SUCCESSOR
ADDPROPERTY
MEMBERDATAALIAS
CHECKCOLLECTIONMEMBERS
CREATEHELPEROBJECTS
SENDFX|
CALLADJUSTOBJECTSIZE
CALLEVALUATECONTENTS
COMMANDCLAUSESFILE
COMMANDCLAUSES
SETFRXDATASESSIONENVIRONMENT
CREATEHELPEROBJECTS
CHECKCOLLECTIONMEMBERS
SENDFXx
FX-Update Listener
APPNAME
CREATEHELPEROBJECTS
HADERROR%
CMESSAGE
SENDFX
SENDFX
SENDFX
VNEWVAL
LOADFRXCURSOR
FRXCURSOR
QUIETMODE
FFCGRAPHICS
QUIETONERROR
createhelperobjects,
needgfxs
sendfx
checkcollectionmembers"
uppermethodnamex
cancelrequested_assign
fxfeedbackclass_assign5
fxfeedbackclasslib_assign
fxfeedbackmodule_assign
getfeedbackfxobjectd
classpath_assign
getobjectinstance
checkcollectionforspecifiedmember
addcollectionmember}
getpathforexternals
ffcgraphics_assign
getmemberdatascriptfxobject%
fxmemberdatascriptclass_assignb
fxmemberdatascriptclasslib_assign
fxmemberdatascriptmodule_assignE
frxcursor_access
frxcursor_assign
loadfrxcursor_assign
memberdataalias_assign
creatememberdatacursor
runcollectorresetlevel_assign
getfrxrecno
getrotategfxobject
gfxrotateclass_assignG)
gfxrotateclasslib_assign
gfxrotatemodule_assign
removecollectionmemberw*
reportstoprundatetime_accessP,
reportstartrundatetime_accessx-
evaluateuserexpression
gfxnorenderclass_assign
gfxnorenderclasslib_assignf1
gfxnorendermodule_assign
getnorendergfxobject&2
ensurecollection
setgdiplusgraphics
CancelReport
Destroy;9
Render
AdjustObjectSize
EvaluateContents
AfterBand
BeforeBand1@
UnloadReport
AfterReport
BeforeReport
LoadReport
Init;D
DoStatus
UpdateStatus,E
resetcalladjustobjectsizeTE
resetcallevaluatecontents[E
ClearStatusbE
quietmode_assign
VNEWVAL
ALLOWMODALMESSAGES9
VNEWVAL
LIGNOREERRORS,
Error:
Method:
Line:
NERROR
CMETHOD
NLINE
CNAME
CMESSAGE
CCODELINE
LCERRORMESSAGE
LCCODELINEMSG
HADERROR
LASTERRORMESSAGE
LASTERRORMESSAGEM
DATASESSIONv
Collection
Collection
Collection
toListener.BaseClassb
REPORTLISTENER
TCFRXNAME
TCCLAUSES
TOLISTENER
REPORTFILENAMES
REPORTCLAUSES
LISTENERS
LISESSION
RESETDATASESSION
REPORTPAGES
COUNT
BASECLASSi
ISRUNNINGREPORTS
REPORTFILENAMES
REPORTCLAUSES
LISTENERS
REPORTPAGESP
 OBJE C
 OBJEC
REPORT FORM (THIS.ReportFileNames[m.liIndex]) &lcClauses
 OBJECT
 OBJE
 OBJEC
 OBJE
 OBJE
 TYPE
 TYPE
_oReportOutput['
REPORT FORM (THIS.ReportFileNames[m.liIndex]) &lcClauses  OBJECT THIS
REPORT FORM (THIS.ReportFileNames[m.liIndex]) &lcClauses  OBJECT m.loListener
TLREMOVEREPORTSAFTERRUN
TLOMITLISTENERREFERENCES
ISRUNNINGREPORTS
REPORTFILENAMES
COUNT
OERROR
LIINDEX
LCCLAUSES
LOLISTENER
LCPARSE
REPORTCLAUSES
LISTENERS
ADJUSTREPORTPAGESINFO
LCERRMSG
PREPAREERRORMESSAGE
ERRORNO
PROCEDURE
LINENO
APPNAME
MESSAGE
LINECONTENTS
DOMESSAGE
LASTERRORMESSAGE
REMOVEREPORTS
SETFRXDATASESSION
lDefaultMode
listenerDataSession
LDEFAULTMODE
LISTENERDATASESSION
RESETTODEFAULT
lDefaultMode
DATASESSIONv
FRXDataSession
LDEFAULTMODE
FRXDATASESSION
RESETTODEFAULT
RESETDATASESSION
lDefaultMode
DATASESSIONv
CurrentDataSession
LDEFAULTMODE
CURRENTDATASESSION
RESETTODEFAULT
RESETDATASESSION9
VNEWVAL
THIS
QUIETMODE9
VNEWVAL
ISSUCCESSORr
REPORTLISTENER
VNEWVAL
THIS
ISRUNNING
BASECLASS
SUCCESSOR
WINDOWS
WINDOWS
SETFRXDATASESSION
OBJTYPE
PLATFORM
REPORTUSESPRIVATEDATASESSION
ENVIRON
FRXHEADERRECNO
SETCURRENTDATASESSION
DRIVINGALIAS
ISSUCCESSOR
SHAREDOUTPUTPAGECOUNT
OUTPUTPAGECOUNT
SHAREDPAGETOTAL
PAGETOTAL
SHAREDPAGENO
PAGENO
SHAREDGDIPLUSGRAPHICS
GDIPLUSGRAPHICS
SUCCESSOR
CURRENTPASS
TWOPASSPROCESS
CALLEVALUATECONTENTS
CALLADJUSTOBJECTSIZE9
VNEWVAL
APPNAME9
VNEWVAL
SHAREDGDIPLUSGRAPHICS9
VNEWVAL
SHAREDPAGEHEIGHT9
VNEWVAL
SHAREDPAGEWIDTHD
VNEWVAL
SUPPORTSLISTENERTYPE
ISRUNNING
LISTENERTYPEt
VNEWVAL
THIS
ISRUNNING
OUTPUTTYPE
SUPPORTSLISTENERTYPE
LISTENERTYPE9
VNEWVAL
SHAREDOUTPUTPAGECOUNT9
VNEWVAL
SHAREDPAGENO9
VNEWVAL
SHAREDPAGETOTAL
Empty
THIS.CommandClauses.NoDialogb
NoDialog-
COMMANDCLAUSESc
THIS
PAGELIMITc
PAGETOPLIMITc
PAGETAILLIMIT9
PAGELIMITQUIETMODE9
PAGELIMITINSIDERANGE
CallAdjustObjectSize
CallEvaluateContents
CALLADJUSTOBJECTSIZE
RESETCALLADJUSTOBJECTSIZE
CALLEVALUATECONTENTS
RESETCALLEVALUATECONTENTS
SUCCESSOR
VNEWVAL
SHAREDLISTENERTYPEZ
TVNEWVAL
COMMANDCLAUSESFILE
DATASESSIONv
SAFETYv
TCPATH
TLKEEPCOPYOPEN"
TLADJUSTCOMMANDCLAUSESINLOADREPORT
LCPATH
LCFILE
LISESSION
LCALIAS
LISELECT
LLSAFETY
SETFRXDATASESSION
COMMANDCLAUSES
ONEFIELD
 RECYCLE
ERASE (FORCEEXT(m.tcFile,"FRX")) &lcRecycle
ERASE (FORCEEXT(m.tcFile,"FRT")) &lcRecycle
TCFILE
TLRECYCLE
LCRECYLE
LLRESETTINGSHAREDCOPY
ISFRXSWAPCOPYPRESENT
COMMANDCLAUSES
FILE
LCRECYCLE
COMMANDCLAUSESFILEb
THIS.commandClauses.Fileb
COMMANDCLAUSESFILE
COMMANDCLAUSES
FILEk
TIREPORTINDEX
TCCLAUSES
TOLISTENER
REPORTPAGES
REPORTFILENAMES
COUNT
PAGENO%
STRING
STRING
STRING
ShellExecute
SHELL32.Dll
FindWindow
WIN32API
LCLINK
LCACTION
LCPARMS
SHELLEXECUTE
SHELL32
FINDWINDOW
WIN32API
CAPTIONk
Your report exceeded a specified page limit (C
Report execution was cancelled.
Your results are not complete.
Your report exceeded a specified page limit (C
Report execution was cancelled.
Your results are not complete.
NPAGENO
LLINCLUDE
ISSUCCESSOR
PAGELIMIT
PAGENO
PAGELIMITQUIETMODE
DOMESSAGE
LASTERRORMESSAGE
CANCELREPORT
PAGETOPLIMIT
PAGETAILLIMIT
PAGELIMITINSIDERANGE
Running calculation prepass...
CMESSAGE
THIS
QUIETMODE
ISRUNNING
COMMANDCLAUSES
NODIALOG
TWOPASSPROCESS
CURRENTPASS
isSuccessora
commandClausesFile
CLEARERRORS
SETFRXDATASESSIONENVIRONMENT
RESETDATASESSION
FRXHEADERRECNO
SUCCESSOR
ADDPROPERTY
COMMANDCLAUSESFILE
PRINTJOBNAME
COMMANDCLAUSES
LOADREPORT@
THIS
SUCCESSOR
SETSUCCESSORDYNAMICPROPERTIES
CLEARSTATUS@
THIS
SUCCESSOR
SETSUCCESSORDYNAMICPROPERTIES
UPDATESTATUS
ISSUCCESSOR
SHAREDPAGEWIDTH
GETPAGEWIDTH
SHAREDPAGEHEIGHT
GETPAGEHEIGHT
RESETDATASESSION
SUCCESSOR
FRXDATASESSION
CURRENTDATASESSION
TWOPASSPROCESS
COMMANDCLAUSES
SETSUCCESSORDYNAMICPROPERTIES
UNLOADREPORTY
ISSUCCESSOR
SUCCESSOR
SETSUCCESSORDYNAMICPROPERTIES
CANCELREPORTG
FRXDataSession
CurrentDataSession
ISSUCCESSOR
SHAREDPAGEWIDTH
GETPAGEWIDTH
SHAREDPAGEHEIGHT
GETPAGEHEIGHT
SUCCESSOR
FRXDATASESSION
CURRENTDATASESSION
TWOPASSPROCESS
COMMANDCLAUSES
SETSUCCESSORDYNAMICPROPERTIES
AFTERREPORT
RESETTODEFAULT.
DATASESSIONv
VFP Report Output Class
CallEvaluateContents
CallEvaluateContents
CallAdjustObjectSize
CallAdjustObjectSize
LISTENERDATASESSION
APPNAME
CLASS
ADDPROPERTY
HADERROR_
NBANDOBJCODE
NFRXRECNO
THIS
SUCCESSOR
SETSUCCESSORDYNAMICPROPERTIES
BEFOREBAND
RESETDATASESSION
CMESSAGE
IPARAMS
CTITLE
THIS
QUIETMODE
ISRUNNING
COMMANDCLAUSES
NODIALOG
ALLOWMODALMESSAGES
APPNAME
DOSTATUSD
ERROR
ERROR()
nError
PROGRAM()
cMethod
LINENO()
nLine
&lcOnError
NERROR
CMETHOD
NLINE
LCONERROR
LCERRORMSG
LCCODELINEMSG
HADERROR
LIGNOREERRORS
STARTMODE
PREPAREERRORMESSAGE
LASTERRORMESSAGE
DOMESSAGE%
sharedPageNo
sharedPageTotal
sharedOutputPageCount
sharedGDIPlusGraphics
sharedGDIPlusGraphics
sharedPageHeight
sharedPageWidth
sharedOutputPageCount
sharedPageNo
sharedPageTotal
sharedListenerType
SETFRXRUNSTARTUPCONDITIONS
GETFRXSTARTUPINFO
RESETDATASESSION
ISSUCCESSOR
SHAREDPAGEHEIGHT
GETPAGEHEIGHT
SHAREDPAGEWIDTH
GETPAGEWIDTH
SHAREDLISTENERTYPE
LISTENERTYPE
RESETTODEFAULT
SUCCESSOR
ADDPROPERTY
SHAREDGDIPLUSGRAPHICS
SHAREDOUTPUTPAGECOUNT
SHAREDPAGENO
SHAREDPAGETOTAL
SETSUCCESSORDYNAMICPROPERTIES
FRXDATASESSION
CURRENTDATASESSION
TWOPASSPROCESS
COMMANDCLAUSES
COMMANDCLAUSESFILE
BEFOREREPORT
RESETDYNAMICMETHODCALLS
CALLEVALUATECONTENTS
CALLADJUSTOBJECTSIZE;
RUNCOLLECTOR
SUCCESSOR
LISTENERS
REPORTCLAUSES
REPORTFILENAMES
PREVIEWCONTAINER
COMMANDCLAUSESR
NBANDOBJCODE
NFRXRECNO
THIS
SUCCESSOR
SETSUCCESSORDYNAMICPROPERTIES
AFTERBAND
NFRXRECNO
NLEFT
NWIDTH
NHEIGHT
NOBJECTCONTINUATIONTYPE
CCONTENTSTOBERENDERED
GDIPLUSIMAGE
THIS
SUCCESSOR
SETSUCCESSORDYNAMICPROPERTIES
RENDER
allowmodalmessages_assign,
lignoreerrors_assign
prepareerrormessage
pushglobalsetsv
popglobalsets}
clearerrors
getlasterrormessage
addreport
removereports
runreports
setfrxdatasessionenvironmentC
invokeoncurrentpassv
resetdatasession
setfrxdatasessionn
setcurrentdatasessionz
quietmode_assign~
issuccessor_assign
successor_assign.
getfrxstartupinfo
setsuccessordynamicpropertiesg
appname_assignT
sharedgdiplusgraphics_assign
sharedpageheight_assign
sharedpagewidth_assignj
listenertype_assign
outputtype_assignM
sharedoutputpagecount_assign
sharedpageno_assignr
sharedpagetotal_assign
setfrxrunstartupconditions)
pagelimit_assign
pagetoplimit_assignA
pagetaillimit_assign
pagelimitquietmode_assignD
pagelimitinsiderange_assign
resetdynamicmethodcalls
resetcalladjustobjectsize
resetcallevaluatecontents
sharedlistenertype_assign
commandclausesfile_assign
preparefrxswapcopy
removefrxswapcopyi$
isfrxswapcopypresent}&
adjustreportpagesinfo
shellexec
IncludePageInOutputZ*
DoStatusu.
LoadReport
ClearStatus
UpdateStatus
UnloadReport
CancelReport
AfterReport
BeforeBandA8
DoMessage
Errorx:
BeforeReportZ<
DestroyxA
AfterBand#B
Render
lvParam.C
,Obj.C
lvParam.C
Listener.PageNo=C
_PAGENO=
 recno=
, TargetAlias=
, targetRecno=
PCOUNT
TARGETHANDLE
LIINDEX
LOOBJ
LVPARAM
LIOBJINDEX
LIMEMBERS
LAMEMBERS
VERBOSE
SETCURRENTDATASESSION
SHAREDPAGENO
PAGENO
DRIVINGALIAS
TARGETALIAS
RESETDATASESSION
MEMBERS:
THIS.C
THIS.C
... NO MEMBERS
tvCommand.C
TVCOMMAND
TCHEADER
TARGETHANDLE
LIINDEX
LAMEMBERS
LIMEMBERS9
VNEWVAL
VERBOSE
DODEBUG
DODEBUG
DODEBUG
DODEBUGe
 current CommandClauses
INCLUDELOADANDUNLOAD
LCPROGRAM
DODEBUG
DODEBUGCOMMANDCLAUSES
COMMANDCLAUSES
TARGETHANDLE
NOPAGEEJECT
CLOSETARGETFILE
QUIETMODE
TARGETFILENAME
 received CommandClauses
INCLUDELOADANDUNLOAD
TARGETHANDLE
OPENTARGETFILE
DODEBUG
DODEBUGCOMMANDCLAUSES
COMMANDCLAUSES
DODEBUG
DODEBUG
DODEBUG
DODEBUG
DODEBUG
DODEBUG
DODEBUG
DODEBUG
DODEBUG
DODEBUG
DODEBUG
DODEBUGO
DODEBUG
VERBOSE
TARGETALIAS
SETFRXDATASESSION
RESETDATASESSION
DODEBUG
DODEBUG
DODEBUGS
 current CommandClauses
LCPROGRAM
DODEBUG
DODEBUGCOMMANDCLAUSES
COMMANDCLAUSES
INCLUDELOADANDUNLOAD
NOPAGEEJECT
CLOSETARGETFILE
QUIETMODE
TARGETFILENAMEd
 received CommandClauses
LCPROGRAM
VERBOSE
SETCURRENTDATASESSION
TARGETHANDLE
OPENTARGETFILE
DODEBUG
DODEBUGCOMMANDCLAUSES
COMMANDCLAUSES
RESETDATASESSION8
TARGETFILENAMEW
VFP Report Output Class
APPNAME
HADERROR
dodebug,
dodebugcommandclausesZ
verbose_assign
OutputPage
IncludePageInOutput
EvaluateContents
CancelReport
UnloadReport
LoadReport8
WriteMethod
WriteExpression
UpdateStatus
SupportsListenerType
SaveAsClass
ResetToDefault
ReadMethod
ReadExpression
OnPreviewClosen
ClearStatus\
RenderS
DoStatus
BeforeBand
AfterBand^
AdjustObjectSizea
AddPropertyd
AfterReportR
BeforeReportl!
opentargetfile
PROCEDURE storefrxdata
LPARAMETERS m.tnFRXRecno, m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight,  m.tnObjectContinuationType, m.tcContentsToBeRendered, m.tiGDIPlusImage
IF This.TwoPassProcess AND This.CurrentPass = 0 && Code to detect if report will run twice because of use of _PAGETOTAL
    *    DODEFAULT(m.tnFRXRecno, m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight,  m.tnObjectContinuationType, m.tcContentsToBeRendered, m.tiGDIPlusImage)
    RETURN
ENDIF
* As each object is rendered, add a record to the cursor.
LOCAL lcContents, lnRec, lnSelect, lnSession, llDynamics
m.lnSelect     = SELECT()
m.lnSession     = SET("Datasession")
m.llDynamics = .F.
DO WHILE .T.
    WITH This
        m.lcContents = STRCONV(m.tcContentsToBeRendered, 6)
        * Ensure we are in the correct datasession
        .ResetDataSession()
        IF VARTYPE(_goHelper) = "O" AND (_goHelper.nSearchPages > 0) AND (.PageNo > _goHelper.nSearchPages)
            This.lStoreData = .F.
            * MESSAGEBOX("The offline output generation was turned off because you are using the 'nSearchPages'" + CHR(13) + ;
            "feature. If you want to allow all options, set the Search Pages value to -1" + CHR(13) + CHR(13) + ;
            "Current value = " + TRANSFORM(_goHelper.nSearchPages), 48, "Attention")
            EXIT
        ENDIF
        IF NOT EMPTY(This.cMainAlias)
            m.lnRec = RECNO(This.cMainAlias)
        ELSE
            m.lnRec = 1
        ENDIF
        LOCAL lcTestContents, lcNewContents, lcNewUNContents, lnRotate, lnDynamics
        STORE "" TO m.lcTestContents, m.lcNewContents, m.lcNewUNContents
        m.lnRotate = 0
        m.lnDynamics = This.GetDynamicsFromFRX(m.tnFRXRecno, @m.lcTestContents, @m.lnRotate)
        IF NOT EMPTY(m.lcTestContents)
            m.lcNewContents      = m.lcTestContents
            m.lcNewUNContents = STRCONV(m.lcTestContents, 5)
        ELSE
            m.lcNewContents      = m.lcContents
            m.lcNewUNContents = m.tcContentsToBeRendered
        ENDIF
        *!*                    IF (VARTYPE(_TempDynamics.Script) = "C") AND (NOT EMPTY(_TempDynamics.Script))
        *!*                        REPLACE Contents WITH _TempDynamics.Script, ;
        *!*                            UNContents WITH STRCONV(_TempDynamics.Script, 5) IN (THIS.cFullOutputAlias)
        *!*                    ENDIF
        TRY
            *        INSERT INTO (.cOutputAlias) ;
            VALUES (tnFRXRecNo, lnRec, tnLeft, tnTop, tnWidth, tnHeight, ;
            tnObjectContinuationType, lcContents, tcContentsToBeRendered, ;
            .PageNo, This.nFrxIndex, lnDynamics)
            && MAX(_goHelper._nIndex, 1))
            INSERT INTO (.cOutputAlias) ;
                VALUES (m.tnFRXRecno, m.lnRec, m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight, ;
                m.tnObjectContinuationType, m.lcNewContents, m.lcNewUNContents, ;
                .PageNo, This.nFrxIndex, m.lnDynamics, m.lnRotate)
        CATCH TO m.loexc
            SET STEP ON
        ENDTRY
    ENDWITH
    EXIT
ENDDO
SET DATASESSION TO (m.lnSession)
IF NOT EMPTY(This.cMainAlias)
    IF NOT USED(This.cMainAlias)
        This.cMainAlias = ""
    ENDIF
        SELECT (This.cMainAlias)
    CATCH
        SELECT (m.lnSelect)
    ENDTRY
    SELECT (m.lnSelect)
ENDIF
ENDPROC
PROCEDURE getfullfrxdata
*!*    Creates a single CURSOR with the Render + FRX information, to be used
*!*    by the report listeners to generate the outputs without running the
*!*    REPORT FORM again.
*!*    -----------------------------------------------------------------------------
* Ensure we are in the correct DataSession
This.ResetDataSession()
IF EMPTY(This.cOutputAlias)
    MESSAGEBOX("The helper 'Rendering' cursor is not available.", 16, "Error")
    RETURN ""
    IF NOT USED(This.cOutputAlias)
        USE (This.cOutputAlias) IN 0 SHARED AGAIN
    ENDIF
ENDIF
IF EMPTY(This.cFRXAlias)
    MESSAGEBOX("The helper 'FRX' cursor is not available.", 16, "Error")
    RETURN ""
    IF NOT USED(This.cFRXAlias)
        USE (This.cFRXAlias) IN 0 SHARED AGAIN
    ENDIF
ENDIF
IF NOT EMPTY(This.cFullOutputAlias)
    USE IN SELECT(This.cFullOutputAlias)
ENDIF
LOCAL lnSelect, lcFullOutput
m.lnSelect = SELECT()
LOCAL loExc as Exception
    LOCAL lnAliases && , lcCurrFRX
    m.lnAliases = ALEN(This.aFRXTables, 1)
    DIMENSION m.laTempData(m.lnAliases)
    FOR m.n = 1 TO m.lnAliases
        m.laTempData(m.n) = STRTRAN(SYS(2015), " ", "_")
        SELECT CAST(RECNO() AS N(4,0)) as nRecno, * FROM (This.aFRXTables(m.n)) INTO CURSOR TempFRX READWRITE
        SELECT TempFRX
        * Change some field values to be used to index the object drawing in the output files
REPLACE ALL RESETRPT WITH 0
REPLACE ALL RESETRPT WITH 1 FOR OBJTYPE = 7
REPLACE ALL RESETRPT WITH 2 FOR OBJTYPE = 6
REPLACE ALL RESETRPT WITH 3 FOR OBJTYPE = 5
REPLACE ALL RESETRPT WITH 4 FOR OBJTYPE = 8
REPLACE ALL RESETRPT WITH 5 FOR OBJTYPE = 17
*!*    OBJTYPE
*!*    resetrpt
*!*    7 - Shape
*!*    6 - Line
*!*    5 - Label
*!*    8 - Field
*!*    17 - Picture
        * Rename the fields that can be duplicated during JOIN
        ALTER TABLE TempFRX rename COLUMN Width  to FRXWidth
        ALTER TABLE TempFRX rename COLUMN Height to FRXHeight
        ALTER TABLE TempFRX rename COLUMN Top    to FRXTop
        INDEX ON nRecno TAG nRecno
*        SELECT OA.*, ; && OA = Output Alias
            TempFrx.* ;
                FROM (This.cOutputAlias) OA ;
                JOIN TempFrx ON OA.FrxRecno = TempFrx.nRecno ;
                WHERE FRXINDEX = m.n ;
                ORDER BY Page, resetRpt, Top, Left ;
                INTO CURSOR (m.laTempData(m.n)) READWRITE
        SELECT OA.*, ; && OA = Output Alias
            TempFrx.* ;
                FROM (This.cOutputAlias) OA ;
                JOIN TempFrx ON OA.FrxRecno = TempFrx.nRecno ;
                WHERE FRXINDEX = m.n ;
                INTO CURSOR (m.laTempData(m.n)) READWRITE
        IF _TALLY = 0
            MESSAGEBOX("Error creating report data. The output will not be rendered correctly.", 16, "Error")
            SET STEP ON
        ENDIF
        USE IN SELECT("TempFRX")
    ENDFOR
    IF m.lnAliases > 1
        SELECT m.laTempData(1)
        FOR m.n = 2 TO m.lnAliases
            APPEND FROM DBF(m.laTempData(m.n))
            USE IN SELECT(m.laTempData(m.n))
        ENDFOR
    ENDIF
    * Check if the "cAuxFullOutputAlias" exists, and appends with its data
    TRY
        IF NOT EMPTY(This.cAuxFullOutputAlias)
            IF NOT USED(This.cAuxFullOutputAlias)
                USE (This.cAuxFullOutputAlias) IN 0 SHARED AGAIN
            ENDIF
            SELECT m.laTempData(1)
            APPEND FROM DBF(This.cAuxFullOutputAlias)
        ENDIF
    CATCH TO m.loExc
        SET STEP ON
    ENDTRY
    This.cFullOutputAlias = m.laTempData(1)
    SELECT (This.cFullOutputAlias)
    SCAN
        IF Dynamics > 0
            This.ProcessDynamics()
        ENDIF
    ENDSCAN
CATCH TO m.loExc
    MESSAGEBOX("Error getting report information" + CHR(13) + ;
            TRANSFORM(m.loExc.ERRORNO) + " - " + m.loExc.MESSAGE + CHR(13) + ;
            "Line: " + TRANSFORM(m.loExc.LINENO) + " - " + m.loExc.LINECONTENTS + ;
            CHR(13) + CHR(13) + "Please inform the details to   [e-mail]", 16, "FoxyPreviewer Error")
    This.cFullOutputAlias = ""
ENDTRY
SELECT (m.lnSelect)
RETURN (This.cFullOutputAlias)
ENDPROC
PROCEDURE erasetempfiles
This.resetDataSession()
* We need to clean all properties properly because the class remains opened
* waiting for new sessions
LOCAL n
FOR m.n = 1 TO ALEN(This.aFRXTables, 1)
    USE IN SELECT(This.aFRXTables(m.n))
ENDFOR
DIMENSION This.aFRXTables(1)
This.aFRXTables(1) = ""
USE IN SELECT(This.cOutputAlias)
USE IN SELECT(This.cFullOutputAlias)
USE IN SELECT(This.cFRXAlias)
USE IN SELECT(This.cAuxFullOutputAlias)
This.cOutputAlias        = ""
This.cFullOutputAlias    = ""
This.cFRXAlias           = ""
This.cAuxFullOutputAlias = ""
ENDPROC
PROCEDURE updateproperties
Local lcThermClass, loExc
    IF (VARTYPE(_goHelper) = "O") AND ;
            _goHelper.lExtended = .F. AND ;
            VARTYPE(_Screen.oFoxypreviewer) = "O" OR ;
            (VARTYPE(_goHelper) <> "O" AND VARTYPE(_Screen.oFoxypreviewer) = "O")
        This.QuietMode       = _Screen.oFoxypreviewer.lQuietMode
        This.Successor       = _Screen.oFoxypreviewer.cSuccessor
        This.lExpandFields = _Screen.oFoxypreviewer.lExpandFields
        LOCAL lnType
        m.lnType = _Screen.oFoxypreviewer.nThermType
        IF m.lnType = 1
            m.lcThermClass = "FXTHERM"
        ELSE
            m.lcThermClass = "FOXYTHERM"
        ENDIF
        This.fxFeedbackClass = m.lcThermClass
        _Screen.oFoxypreviewer._oDestScreen = This.CommandClauses.Window
    ENDIF
CATCH TO m.loExc
    SET STEP ON
ENDTRY
ENDPROC
PROCEDURE getdynamicsfromfrx
LPARAMETERS tnRecno, tcNewContents, tnRotate
#DEFINE OBJ_COMMENT                  0
#DEFINE OBJ_LABEL                    5
#DEFINE OBJ_LINE                     6
#DEFINE OBJ_RECTANGLE                7
#DEFINE OBJ_FIELD                    8
#DEFINE OBJ_PICTURE                 17
#DEFINE OBJ_VARIABLE                18
LOCAL lnSession, lnSelect, lcDynamics, lnObjType, lcStyle
m.lnSelect   = SELECT()
m.lnSession  = SET("Datasession")
m.lcDynamics = ""
* Get info from FRX
THIS.setFRXDataSession()
SELECT FRX
GO m.tnRecno
m.lnObjType = FRX.ObjType
m.lcStyle   = FRX.STYLE
* Restore the datasession
SET DATASESSION TO(m.lnSession)
SELECT (m.lnSelect)
IF EMPTY(m.lcStyle) OR (NOT USED(THIS.cMainAlias)) OR (NOT INLIST(m.lnObjType, OBJ_LABEL, OBJ_FIELD, OBJ_PICTURE))
    RETURN 0
ENDIF
*!* Code to handle the Dynamic Options added in SP2
LOCAL lcExecWhen, lcDynType, N, llTrue, lcScript, lcNewContents
m.N = 1
m.llTrue = .F.
m.lcScript = ""
m.lcNewContents = ""
DO WHILE .T.
    m.lcDynType = UPPER(STREXTRACT(m.lcStyle, [name="Microsoft.VFP.Reporting.Builder.], ["], m.N))
    && Possible results: ROTATE, EVALUATECONTENTS
    DO CASE
    CASE m.lcDynType == "ROTATE"
        m.tnRotate = VAL(STREXTRACT(m.lcStyle, [ execute="], ["], m.N))
        m.N = m.N + 1
        LOOP
    CASE EMPTY(m.lcDynType)
        m.N = 0
        EXIT
    OTHERWISE
    ENDCASE
    m.lcExecWhen = STREXTRACT(m.lcStyle, [execwhen="], ["], m.N)
    m.lcExecWhen = THIS.GetStringFromXML(m.lcExecWhen)
        m.llTrue = EVALUATE(m.lcExecWhen)
    CATCH
        m.llTrue = .F.
    ENDTRY
    * If the dynamics does not return a logical value, then treat it as false
    m.llTrue = IIF(VARTYPE(m.llTrue)="L", m.llTrue, .F.)
    DO CASE
    CASE m.lcDynType = "ROTATE"
    CASE m.lcDynType = "EVALUATECONTENTS" AND ;
            (NOT EMPTY(m.lcExecWhen)) AND ;
            (m.llTrue)
        m.lcNewContents = STREXTRACT(m.lcStyle, [ script="], ["], m.N)
        IF NOT EMPTY(m.lcNewContents)
            TRY
                m.lcNewContents = THIS.GetStringFromXML(m.lcNewContents)
                m.lcNewContents = EVALUATE(m.lcNewContents)
            CATCH TO m.loExc
                SET STEP ON
            ENDTRY
        ENDIF
        EXIT
    OTHERWISE
    ENDCASE
    m.N = m.N + 1
ENDDO
m.tcNewContents = m.lcNewContents
RETURN m.N
*!*    * Dynamic formatting sample
*!*    <VFPData>
*!*        <reportdata name="Microsoft.VFP.Reporting.Builder.EvaluateContents" type="R" script="" execute="in_stock > 30" execwhen="in_Stock > 30" class="" classlib="" declass="" declasslib="" penrgb="16711935" fillrgb="12632256" pena="255" filla="255" fname="Century Gothic" fsize="12" fstyle="3"/>
*!*    </VFPData>
*!*    * Rotation
*!*    <VFPData>
*!*        <reportdata name="Microsoft.VFP.Reporting.Builder.Rotate" type="R" script="" execute="313" execwhen="" class="" classlib="" declass="" declasslib=""/>
*!*    </VFPData>
ENDPROC
PROCEDURE getprinterinfo
* See PRTINFO() in Help
*!*    nPrtOrientation
*!* ----------------------------------------------------
*!*    Numeric data type. The following tables list values returned when specifying particular values for nPrinterSetting.
*!*    If nPrinterSetting is 1, PRTINFO( ) returns the paper orientation as the following:
*!*    Values  Paper orientation
*!*
1    Information not available
*!*       0    Portrait
*!*       1    Landscape
*!*    nPrtPaperSize
*!* ----------------------------------------------------
*!*    See complete list in Help
*!*    Values  Paper size
*!*
1      Information not available. Use nPrinterSetting = 3 and nPrinterSetting = 4 to return the paper size.
*!*
*!*      1       Letter, 8 1/2 x 11 in
*!*      2       Letter Small, 8 1/2 x 11 in
*!*      3       Tabloid, 11 x 17 in
*!*      4       Ledger, 17 x 11 in
*!*      5       Legal, 8 1/2 x 14 in
*!*      6       Statement, 5 1/2 x 8 1/2 in
*!*      7       Executive, 7 1/4 x 10 1/2 in
*!*      8       A3, 297 x 420 mm
*!*      9       A4, 210 x 297 mm
*!*      10      A4, Small 210 x 297 mm
LOCAL lnSettings, lnOrientation, lcPrinterName, lnOrientationLine, lnPaperSize, lnPaperSizeLine, lcPrinterNameLine
SELECT FRX
LOCATE FOR ObjType = 1 and ObjCode = 53
* make an array out of the settings in the expr field
m.lnSettings = ALines( laSettings, EXPR )
* Find the ORIENTATION element and get the value
m.lnOrientationLine = Ascan( laSettings, "ORIENTATION",1,0,0,4)
IF m.lnOrientationLine > 0
    m.lnOrientation = VAL(SUBSTR(laSettings(m.lnOrientationLine), 13))
    This.nPrtOrientation = m.lnOrientation
ENDIF
* Find the PAPERSIZE element and get the value
m.lnPaperSizeLine = Ascan( laSettings, "PAPERSIZE",1,0,0,4)
IF m.lnPaperSizeLine > 0
    m.lnPaperSize = VAL(SUBSTR(laSettings(m.lnPaperSizeLine), 11))
    This.nPrtPaperSize = m.lnPaperSize
ENDIF
* Find the DEVICE element and get the value
m.lnPrinterNameLine = Ascan( laSettings, "DEVICE",1,0,0,4)
IF m.lnPrinterNameLine > 0
    m.lcPrinterName = SUBSTR(m.laSettings(m.lnPrinterNameLine), 8)
    This.cPrtPrinterName = m.lcPrinterName
ENDIF
ENDPROC
PROCEDURE getstringfromxml
LPARAMETERS tcText
* Adjust Html special chars
m.tcText = STRTRAN(m.tcText, [&] , [&]) && first!
m.tcText = STRTRAN(m.tcText, [ ], [ ])
m.tcText = STRTRAN(m.tcText, [<]  , [<])
m.tcText = STRTRAN(m.tcText, [>]  , [>])
m.tcText = STRTRAN(m.tcText, ["], ["])
RETURN m.tcText
ENDPROC
PROCEDURE processdynamics
#Define OBJ_COMMENT                  0
#Define OBJ_LABEL                    5
#Define OBJ_LINE                     6
#Define OBJ_RECTANGLE                7
#Define OBJ_FIELD                    8
#Define OBJ_PICTURE                 17
#Define OBJ_VARIABLE                18
*!* Code to handle the Dynamic Options added in SP2
LOCAL lcStyle
LOCAL lcDynamicString, loExc
m.lcStyle   = Style
IF EMPTY(m.lcStyle)
    RETURN
ENDIF
*!* LOCAL lcDynType
*!*    lcDynType = UPPER(STREXTRACT(lcStyle, [name="Microsoft.VFP.Reporting.Builder.], ["], 1))
*!*        && Possible results: ROTATE, EVALUATECONTENTS
*!*    DO CASE
*!*    CASE lcDynType = "ROTATE"
*!*    CASE lcDynType = "EVALUATECONTENTS"
*!*    OTHERWISE
*!*    ENDCASE
m.lcDynamicString = STREXTRACT(Style, [<reportdata name="Microsoft.VFP.Reporting.Builder.], [/>], N)
Local lbReturn As Boolean, lnSelect, lnRecs, lnRecDyn
m.lnSelect = Select()
m.lnRecs   = 0
m.lnRecDyn = Dynamics
    m.lnRecs = XMLToCursor(m.lcStyle, "_TempDynamics")
Catch
    m.lbReturn = .F.
EndTry
IF m.lnRecs = 0
    RETURN
ENDIF
IF USED("_TempDynamics") AND RECCOUNT("_TempDynamics") > 0 THEN
    SELECT _TempDynamics
    TRY
        GO m.lnRecDyn
    CATCH TO m.loExc
        SET STEP ON
    ENDTRY
        TRY
            SELECT (THIS.cFullOutputAlias)
            DO CASE
            CASE ObjType = OBJ_FIELD
*!*                    IF (VARTYPE(_TempDynamics.Script) = "C") AND (NOT EMPTY(_TempDynamics.Script))
*!*                        REPLACE Contents WITH _TempDynamics.Script, ;
*!*                            UNContents WITH STRCONV(_TempDynamics.Script, 5) IN (THIS.cFullOutputAlias)
*!*                    ENDIF
                *    AddProperty(loDynamics, "cValue", _TempDynamics.Script)      && the Replace Expression With
                *    AddProperty(loDynamics, "cExecWhen", _TempDynamics.ExecWhen) && the expresion to be evaluate it
                IF VARTYPE(_TempDynamics.FName) = "C"
                    REPLACE FontFace WITH _TempDynamics.FName IN (THIS.cFullOutputAlias)
                ENDIF
                IF VARTYPE(_TempDynamics.FSIZE) = "N"
                    REPLACE FONTSIZE WITH _TempDynamics.FSIZE IN (THIS.cFullOutputAlias)
                ENDIF
                IF VARTYPE(_TempDynamics.FStyle) = "N"
                    REPLACE FontStyle WITH _TempDynamics.FStyle IN (THIS.cFullOutputAlias)
                ENDIF
                *!*    <VFPData>
                *!*        <reportdata name="Microsoft.VFP.Reporting.Builder.EvaluateContents" type="R" script="Novo texto"
                *!*         execute="in_stock > 50" execwhen="in_stock > 50" class="" classlib="" declass="" declasslib=""
                *!*         penrgb="0" fillrgb="-1" pena="255" filla="0" fname="Arial" fsize="12" fstyle="0"/>
                *!*    </VFPData>
                LOCAL lnPenRGB, lnPenR, lnPenG, lnPenB
                m.lnPenRGB = _TempDynamics.PenRgb
                IF VARTYPE(m.lnPenRgb) <> "N"
                    m.lnPenRGB = VAL(ALLTRIM(m.lnPenRGB))
                ENDIF
                IF m.lnPenRgb = -1
                    STORE 0 TO m.lnPenR, m.lnPenG, m.lnPenB
                ELSE
                    m.lnPenR = BITRSHIFT(BITAND(m.lnPenRGB, 0x0000FF),0)
                    m.lnPenG = BITRSHIFT(BITAND(m.lnPenRGB, 0x00FF00),8)
                    m.lnPenB = BITRSHIFT(BITAND(m.lnPenRGB, 0xFF0000),16)
                ENDIF
                REPLACE PenRed WITH m.lnPenR, ;
                    PenGreen WITH m.lnPenG, ;
                    PenBlue WITH m.lnPenB IN (THIS.cFullOutputAlias)
                LOCAL lnFillRGB, lnFillR, lnFillG, lnFillB
                m.lnFillRGB = _TempDynamics.FillRgb
                IF VARTYPE(m.lnFillRGB) <> "N"
                    m.lnFillRGB = VAL(ALLTRIM(m.lnFillRGB))
                ENDIF
                IF m.lnFillRgb = -1
                    STORE 255 TO m.lnFillR, m.lnFillG, m.lnFillB
                ELSE
                    m.lnFillR = BITRSHIFT(BITAND(m.lnFillRGB, 0x0000FF),0)
                    m.lnFillG = BITRSHIFT(BITAND(m.lnFillRGB, 0x00FF00),8)
                    m.lnFillB = BITRSHIFT(BITAND(m.lnFillRGB, 0xFF0000),16)
                ENDIF
                REPLACE FillRed WITH m.lnFillR, ;
                        FillGreen WITH m.lnFillG, ;
                        FillBlue WITH m.lnFillB IN (THIS.cFullOutputAlias)
                * New option, allowing opaque backgrounds
                * Mode: 0 = Opaque background; 1 = Transparent
                IF (VARTYPE(_TempDynamics.FillA) = "N") AND (_TempDynamics.FillA > 0)
                    REPLACE Mode WITH 0 IN (THIS.cFullOutputAlias)&& Opaque
                ELSE
                    REPLACE Mode WITH 1 IN (THIS.cFullOutputAlias)&& Transparent
                ENDIF
                m.lbReturn = .T.
            CASE INLIST(ObjType, OBJ_RECTANGLE, OBJ_IMAGE)
                *!*                    AddProperty(loDynamics, "cExecWhen", _TempDynamics.ExecWhen) &&Corresponds to the expresion to be evaluate it
                *!*                    AddProperty(loDynamics, "nWidth", Iif(Vartype(_TempDynamics.Width)="C", Int(Val(_TempDynamics.Width)), _TempDynamics.Width)) &&Corresponds to the width assigned
                *!*                    AddProperty(loDynamics, "nHeight", Iif(Vartype(_TempDynamics.Height)="C", Int(Val(_TempDynamics.Height)), _TempDynamics.Height)) &&Corresponds to the width assigned
                m.lbReturn = .T.
            ENDCASE
        CATCH TO m.loExc
            SET STEP ON
            m.lbReturn = .F.
        ENDTRY
        SELECT _TempDynamics
*!*        *!* No check for Rotation Values
*!*        SCAN FOR _TempDynamics.NAME="Microsoft.VFP.Reporting.Builder.Rotate"
*!*            ADDPROPERTY(loDynamics, "nRotationDegree", IIF(VARTYPE(_TempDynamics.Execute)="C", INT(VAL(_TempDynamics.Execute)), _TempDynamics.Execute))
*!*            lbReturn = .T.
*!*        ENDSCAN
    SELECT (m.lnSelect)
    RETURN m.lbReturn
    m.lbReturn = .F.
ENDIF
SELECT (m.lnSelect)
RETURN m.lbReturn
*!*    * Dynamic formatting sample
*!*    <VFPData>
*!*        <reportdata name="Microsoft.VFP.Reporting.Builder.EvaluateContents" type="R" script="" execute="in_stock > 30" execwhen="in_Stock > 30" class="" classlib="" declass="" declasslib="" penrgb="16711935" fillrgb="12632256" pena="255" filla="255" fname="Century Gothic" fsize="12" fstyle="3"/>
*!*    </VFPData>
*!*    * Rotation
*!*    <VFPData>
*!*        <reportdata name="Microsoft.VFP.Reporting.Builder.Rotate" type="R" script="" execute="313" execwhen="" class="" classlib="" declass="" declasslib=""/>
*!*    </VFPData>
*!*    <VFPData>
*!*        <reportdata name="Microsoft.VFP.Reporting.Builder.EvaluateContents" type="R" script="Novo texto"
*!*         execute="in_stock > 50" execwhen="in_stock > 50" class="" classlib="" declass="" declasslib=""
*!*         penrgb="0" fillrgb="-1" pena="255" filla="0" fname="Arial" fsize="12" fstyle="0"/>
*!*    </VFPData>
ENDPROC
PROCEDURE onpreviewclose_bind
LPARAMETERS lPrint
This.EraseTempFiles()
This.nFrxIndex = 0
ENDPROC
PROCEDURE addtolog
LPARAMETERS tcInfo, tcMethod
LOCAL lnSelect, lcAlias, lnDataSession, lcText, CRLF
m.lnSelect = SELECT()
m.lcAlias = ALIAS()
m.lnDataSession = SET("Datasession")
m.CRLF = CHR(13) + CHR(10)
m.lcText = m.tcInfo + m.CRLF + ;
        m.tcMethod + m.CRLF + ;
        "Select: " + TRANSFORM(m.lnSelect) + " - " + ;
        "Alias: " + m.lcAlias + " - " + ;
        "Session: " + TRANSFORM(m.lnDataSession) + m.CRLF + m.CRLF
STRTOFILE(m.lcText, "c:\FoxyPreviewer_Log.txt", .T.)
ENDPROC
PROCEDURE LoadReport
This.UpdateProperties()
* If ListenerType hasn't already been set, set it based on whether the report
* is being printed or previewed.
WITH This
    DO CASE
    CASE .ListenerType <> -1
    CASE .CommandClauses.Preview
        .ListenerType = 3 && 1
    CASE .CommandClauses.OutputTo = 1
        .ListenerType = 0
    ENDCASE
    IF .ListenerType = 0
        .lStoreData = .F.  && There's no need to store the report info when direct printing
    ENDIF
ENDWITH
DODEFAULT()
ENDPROC
PROCEDURE Init
*!*    IF FILE("c:\FoxyPreviewer_Log.txt")
*!*        DELETE FILE ("c:\FoxyPreviewer_Log.txt")
*!*    ENDIF
This.AddProperty("cOutputAlias"        , '')     && The alias for the cursor to output to
This.AddProperty("cAuxFullOutputAlias" , '')     && The AUXILIAR alias for the cursor to output to - used by the <TF> feature
This.AddProperty("lDeleteOnDestroy"    , .T.)     && .T. to delete the table when this object is destroyed
This.AddProperty("cMainAlias"          , '')
This.AddProperty("nStartingSession"    , 1)
This.AddProperty("nStartingRecNo"      , 1)
This.AddProperty("cStartingAlias"      , "")
This.AddProperty("lStoreData"          , .T.)   && .T. to store the info from the report in a table
This.AddProperty("cFullOutputAlias"    , '')    && The name of the cursor that will contain the FULL
                                            && report info to regenerate the report in a different format
This.AddProperty("cFRXDBF"             , '')     && The name of the FRX table to output to
This.AddProperty("cFRXAlias"           , '')     && The name of the FRX table to output to
This.AddProperty("aFRXTables[1]"       , '')     && Array of FRX tables
This.AddProperty("nFRXIndex"           , 0)     && The FRX index
This.AddProperty("nPrtOrientation"     , 0)
This.AddProperty("nPrtPaperSize"       , 0)
This.AddProperty("cPrtPrinterName"     , "")
IF VARTYPE(_goHelper) = "O"
    This.QuietMode  = _goHelper.lQuietMode
    This.lStoreData = .T. && (_goHelper.lExtended = .F.) OR (_goHelper.lShowSearch)
ENDIF
DODEFAULT()
BINDEVENT(This, "OnPreviewClose", This, "OnPreviewClose_Bind", 1)
ENDPROC
PROCEDURE BeforeReport
IF NOT This.lStoreData
    DODEFAULT()
    RETURN
ENDIF
LOCAL lcTable, lcAlias, llHelper, lnSelect, lnSession, lnIndex
m.lnSession    = SET("Datasession")
m.lnSelect    = SELECT()
m.llHelper    = VARTYPE(_goHelper) = "O"
This.nFrxIndex = This.nFrxIndex + 1
IF m.llHelper
    _goHelper._cOutputAlias = This.cOutputAlias
        m.lcAlias = _goHelper._oAliases(_goHelper._nIndex)
    CATCH
    ENDTRY
ENDIF
m.lnIndex = This.nFrxIndex
m.lcAlias = EVL(UPPER(ALIAS()), "")
IF EMPTY(m.lcAlias)
    m.lcAlias = UPPER(ALIAS())
ENDIF
This.cMainAlias = m.lcAlias
* Get the original Alias information
This.setCurrentDataSession()
LOCAL lcStartingAlias
m.lcStartingAlias      = UPPER(ALIAS())
This.cStartingAlias      = m.lcStartingAlias
This.nStartingSession = SET("Datasession")
This.nStartingRecNo      = RECNO()
WITH This
    * Store the table info
    .SetFRXDataSession()
    .GetPrinterInfo()
    LOCAL lcFRXDBF0, lcFRXAlias, lcFRXAlias0
    m.lcFRXDBF0      = ADDBS(GETENV("TEMP")) + FORCEEXT(SYS(2015), "DBF")
    m.lcFRXAlias0 = STRTRAN(JUSTSTEM(m.lcFRXDBF0), ' ', '_')
    m.lcFRXAlias  = STRTRAN(SYS(2015), ' ', '_')
    * Create a copy of the FRX to be available to export
    SELECT FRX
    COPY TO (m.lcFRXDBF0)
    .ResetDataSession()
    IF NOT FILE(m.lcFRXDBF0)
        MESSAGEBOX("Error creating temporary FRX table")
    ELSE
        * Load the FRX table as a cursor
        USE (m.lcFRXDBF0) AGAIN IN 0 ALIAS (m.lcFRXAlias0)
        * Convert the table to a cursor and delete the local table
        SELECT * FROM (m.lcFRXAlias0) INTO CURSOR (m.lcFRXAlias) READWRITE
        USE IN SELECT(m.lcFRXAlias0)
        ERASE (m.lcFRXDBF0)
        ERASE FORCEEXT(m.lcFRXDBF0, "FPT")
        .cFRXAlias = m.lcFRXAlias
        DIMENSION This.aFRXTables(m.lnIndex)
        This.aFRXTables(m.lnIndex) = m.lcFRXAlias
        IF m.lnIndex < 2 && Merged reports, no need to close the cursor
            * Prepare the Render data cursor
            .cOutputAlias = STRTRAN(SYS(2015), " ", "_")
            CREATE CURSOR (.cOutputAlias) (FRXRECNO I, DBFRECNO I, LEFT I, TOP I, ;
                WIDTH I, HEIGHT I, CONTTYPE I, CONTENTS M NOCPTRANS, ;
                UNCONTENTS M NOCPTRANS, PAGE I, FRXINDEX I, DYNAMICS I, ROTATE I)
            INDEX ON PAGE     TAG PAGE
            INDEX ON FRXINDEX TAG FRXINDEX
        ENDIF
    ENDIF
ENDWITH
* Make sure to select the right DataSession
SET DATASESSION TO (m.lnSession)
* Do the usual behavior.
DODEFAULT()
* Make sure to select the right DataSession
SET DATASESSION TO (m.lnSession)
* In some cases, FoxyPreviewer wants to force the report to select a certain ALIAS, so
* here we give it a chance to try to make it
IF NOT EMPTY(m.lcAlias)
    SELECT (m.lcAlias)
    SELECT (m.lnSelect)
ENDIF
RETURN
ENDPROC
PROCEDURE Render
LPARAMETERS m.tnFRXRecno, m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight,  m.tnObjectContinuationType, m.tcContentsToBeRendered, m.tiGDIPlusImage
IF This.lStoreData
    This.StoreFRXData(m.tnFRXRecno, m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight,  m.tnObjectContinuationType, ;
        m.tcContentsToBeRendered, m.tiGDIPlusImage)
ENDIF
DODEFAULT(m.tnFRXRecNo, m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight, ;
    m.tnObjectContinuationType, m.tcContentsToBeRendered, m.tiGDIPlusImage)
ENDPROC
PROCEDURE applyfx
LPARAMETERS m.toListener, m.tcMethodToken,;
            m.tP1, m.tP2, m.tP3, m.tP4, m.tP5, m.tP6, ;
            m.tP7, m.tP8, m.tP9, m.tP10, m.tP11, m.tP12
This.Movable = .T.
LOCAL m.liSession
IF VARTYPE(m.toListener) = "O" && AND ;
   (NOT m.toListener.IsSuccessor)
   DO CASE
   CASE m.tcMethodToken == "DOSTATUS"
      THIS.DoStatus(m.toListener, m.tP1)
   CASE m.tcMethodToken == "UPDATESTATUS"
      THIS.UpdateStatus(m.toListener)
   CASE m.tcMethodToken == "CLEARSTATUS"
      THIS.ClearStatus(m.toListener)
   CASE m.tcMethodToken == "AFTERBAND"
       THIS.synchStatus(m.toListener,m.tP1,m.tP2)
   CASE m.tcMethodToken == "AFTERREPORT"
      IF SYS(2024) # "Y"
         IF THIS.isRunning AND TYPE("m.toListener.CommandClauses.RecordTotal") = "N"
            THIS.CurrentRecord = m.toListener.CommandClauses.RecordTotal
         ENDIF
         THIS.UpdateStatus(m.toListener)
      ENDIF
      THIS.designatedDriver = ""
      THIS.drivingAlias = ""
      THIS.successorSys2024 = "N"
      THIS.Visible = .F.
      THIS.ReportStopRunDateTime = DATETIME()
      THIS.popUserFeedbackGlobalSets()
      THIS.ClearStatus(m.toListener)
   CASE m.tcMethodToken == "BEFOREBAND"
      IF THIS.successorSys2024 = "Y" AND ;
         m.toListener.CurrentPass = LISTENER_FULLPASS
         * user cancelled during the prepass,
         * we need to re-cancel.
         m.liSession = SET("DATASESSION")
         SET DATASESSION TO (m.toListener.CurrentDataSession)
         IF USED(THIS.designatedDriver)
            GO BOTTOM IN (THIS.designatedDriver)
         ENDIF
         SET DATASESSION TO (m.liSession)
      ENDIF
      THIS.synchStatus(m.toListener,m.tP1,m.tP2)
  CASE m.tcMethodToken == "BEFOREREPORT"
      THIS.setupReport(m.toListener)
   CASE m.tcMethodToken == "CANCELREPORT"
      IF THIS.isRunning AND ;
         (m.toListener.QuietMode OR ;
         (m.toListener.pageLimit > 0 AND m.toListener.PageNo > m.toListener.pageLimit) OR ;
          (NOT m.toListener.AllowModalMessages) OR ;
          m.toListener.DoMessage(This.CancelQueryText,;  && OUTPUTCLASS_REPORT_CANCELQUERY_LOC
                                 MB_ICONQUESTION+MB_YESNO, This.AttentionText) =  IDYES )
          m.toListener.cancelRequested = .T.
          IF m.toListener.isSuccessor AND NOT EMPTY(THIS.designatedDriver)
             * NB: FX should ordinarily not be used in a successor,
             * but this won't hurt and will take care of the exception
             THIS.successorSys2024 = "Y"
             m.liSession = SET("DATASESSION")
             SET DATASESSION TO (m.toListener.CurrentDataSession)
             IF USED(THIS.designatedDriver)
                GO BOTTOM IN (THIS.designatedDriver)
             ENDIF
             SET DATASESSION TO (m.liSession)
          ENDIF
          IF SYS(2024) = "Y"  OR m.toListener.IsSuccessor
             THIS.Visible = .F.
             IF (m.toListener.pageLimit = -1 OR m.toListener.PageNo <= m.toListener.pageLimit)
                m.toListener.DoMessage(;
                        This.ReportIncompleteText, ; && OUTPUTCLASS_REPORT_INCOMPLETE_LOC
                        MB_ICONEXCLAMATION, This.AttentionText)
             ENDIF
          ENDIF
          RETURN .F.
       ELSE
          RETURN .T. && did not handle, use default behavior
       ENDIF
   CASE m.tcMethodToken == "LOADREPORT"
      THIS.ResetUserFeedback(.T.)
      m.toListener.AddProperty("reportStartRunDatetime",THIS.reportStartRunDatetime)
      IF NOT (m.toListener.QuietMode OR ;
           (TYPE("m.toListener.CommandClauses.NoDialog") = "L" AND ;
           m.toListener.CommandClauses.NoDialog) )
           THIS.DoStatus(m.toListener,THIS.initStatusText)
          * NB: a user can call LoadReport manually,
          * hence the need for a TYPE() check here.
      ENDIF
      THIS.pushUserFeedbackGlobalSets(m.toListener)
   CASE m.tcMethodToken == "UNLOADREPORT"
      THIS.ReportStopRunDateTime = DATETIME()
      m.toListener.AddProperty("reportStopRunDatetime",THIS.reportStopRunDatetime)
      THIS.IsRunning = .F.
      THIS.ClearStatus()
      IF NOT THIS.persistBetweenRuns
         SET DATASESSION TO (m.toListener.ListenerDataSession)
         THIS.Release()
      ENDIF
   ENDCASE
   SET DATASESSION TO (m.toListener.ListenerDataSession)
ENDIF
ENDPROC
PROCEDURE includeseconds_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "L"
   THIS.includeSeconds = m.vNewVal
ENDIF
ENDPROC
PROCEDURE initstatustext_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.initStatusText = m.vNewVal
ENDIF
ENDPROC
PROCEDURE prepassstatustext_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.prepassStatusText = m.vNewVal
ENDIF
ENDPROC
PROCEDURE runstatustext_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.runStatusText = m.vNewVal
ENDPROC
PROCEDURE secondstext_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.secondsText = m.vNewVal
ENDPROC
PROCEDURE thermcaption_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   LOCAL m.lcType, m.cMessage
   m.cMessage = ""
   TRY
    m.lcType = VARTYPE(EVALUATE(m.vNewVal))
      IF m.lcType = "C"
        THIS.thermCaption = m.vNewVal
    ENDIF
   CATCH
   ENDTRY
ENDIF
ENDPROC
PROCEDURE thermformcaption_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "C"
   THIS.thermFormCaption = m.vNewVal
   THIS.setThermFormCaption()
ENDIF
ENDPROC
PROCEDURE thermformheight_assign
LPARAMETERS m.vNewVal
IF  VARTYPE(m.vNewVal) = "N" AND ;
   BETWEEN(m.vNewVal,30,SYSMETRIC(SYSMETRIC_SCREENHEIGHT )-30)  AND ;
   INT(m.vNewVal) # THIS.thermFormHeight
   THIS.thermFormHeight = INT(m.vNewVal)
   IF THIS.thermMargin > THIS.thermFormHeight/4
      THIS.thermMargin = THIS.thermFormHeight/4
   ENDIF
   THIS.synchUserInterface()
ENDIF
ENDPROC
PROCEDURE thermformwidth_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N" AND ;
   BETWEEN(m.vNewVal,100,SYSMETRIC( SYSMETRIC_SCREENWIDTH  )-100) AND ;
   INT(m.vNewVal) # THIS.ThermFormWidth
   THIS.thermFormWidth = INT(m.vNewVal)
   IF THIS.thermMargin > THIS.thermFormWidth/4
      THIS.thermMargin = THIS.thermFormWidth/4
   ENDIF
   THIS.synchUserInterface()
ENDIF
ENDPROC
PROCEDURE thermmargin_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N" AND ;
   BETWEEN(m.vNewVal,1,MIN(THIS.ThermFormHeight/4,THIS.ThermFormWidth/4)) AND ;
   INT(m.vNewVal) # THIS.thermMargin
   THIS.thermMargin = INT(m.vNewVal)
   THIS.synchUserInterface()
ENDIF
ENDPROC
PROCEDURE getparentwindowref
LOCAL m.loForm, m.loTopForm, m.lcInWindow
* first top form in the list
* will be the current top form.
ASSERT TYPE("_SCREEN.ActiveForm") # "O"  OR ;
       INLIST(_SCREEN.ActiveForm.ShowWindow, 0,1,2)
m.loTopForm = NULL
IF TYPE("THIS.CommandClauses.InWindow") = "C"
   m.lcInWindow = UPPER(ALLTRIM(THIS.CommandClauses.InWindow))
ENDIF
IF EMPTY(lcInWindow) AND TYPE("THIS.CommandClauses.Window") = "C"
   m.lcInWindow = UPPER(ALLTRIM(THIS.CommandClauses.Window))
ENDIF
IF NOT EMPTY(m.lcInWindow)
     FOR EACH m.loForm IN _SCREEN.Forms  FOXOBJECT
        IF m.loForm.ShowWindow = 2  AND ;
           UPPER(m.loForm.Name) == m.lcInWindow
           m.loTopForm = m.loForm
           EXIT
        ENDIF
     ENDFOR

ENDIF
DO CASE
CASE VARTYPE(m.loTopForm) = "O"
    * already found
CASE _SCREEN.FormCount = 0 OR ;
     (TYPE("_SCREEN.ActiveForm") = "O" AND ;
     _SCREEN.ActiveForm.ShowWindow = 0 )     && ShowWindow In Screen

     m.loTopForm = _SCREEN
CASE (TYPE("_SCREEN.ActiveForm") = "O" AND ;
      _SCREEN.ActiveForm.ShowWindow = 2 )    && ShowWindow As Top Form
     m.loTopForm = _SCREEN.ActiveForm

OTHERWISE

     FOR EACH m.loForm IN _SCREEN.Forms  FOXOBJECT
        IF m.loForm.ShowWindow = 2
           m.loTopForm = m.loForm
           EXIT
        ENDIF
     ENDFOR

     IF VARTYPE(m.loTopForm) # "O"
        m.loTopForm = _SCREEN
     ENDIF

ENDCASE
IF VARTYPE(m.loTopForm) # "O" OR ;
   EMPTY(m.loTopForm.Name)
   m.loTopForm = NULL
ENDIF
RETURN m.loTopForm
ENDPROC
PROCEDURE getreportscopedriver
LPARAMETERS m.toListener
LOCAL m.liSelect, m.lcAlias, ;
      m.liSkips,  laSkips[1]
IF m.toListener.FRXDataSession > 0
   SET DATASESSION TO (m.toListener.FRXDataSession)
   RETURN .F.
ENDIF
THIS.designatedDriver = THIS.drivingAlias
* used later if we have to cancel report as
* a Successor
IF USED("frx")
   m.liSelect = SELECT(0)
   m.lcAlias = ""
   SELECT FRX
   * first look for any target alias that
   * is the same as the driver
   SCAN ALL FOR ObjType = FRX_OBJTYP_BAND AND ;
           Objcode = FRX_OBJCOD_DETAIL AND ;
           TYPE(Expr) = "C" AND ;
           NOT (EMPTY(Expr)  OR DELETED())
       m.lcAlias = ALLTRIM(Expr)
       SET DATASESSION TO (m.toListener.CurrentDataSession)
       m.lcAlias = UPPER(EVALUATE(m.lcAlias))
       SET DATASESSION TO (m.toListener.FRXDataSession)
       IF m.lcAlias == UPPER(THIS.drivingAlias)
          EXIT
       ENDIF
   ENDSCAN
   IF m.lcAlias == UPPER(THIS.drivingAlias)
      SELECT (m.liSelect)
      * if the driver is also a target alias,
      * don't touch.
      * otherwise:
   ELSE
      LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
              Objcode = FRX_OBJCOD_DETAIL AND ;
              Platform = FRX_PLATFORM_WINDOWS AND ;
              NOT (EMPTY(Expr) OR DELETED())
      IF FOUND()
         * use the first detail band, on the theory
         * that people are going to put pre-processing
         * calculations before other bands,
         * so an early band has the best chance to be
         * the right driver.
         m.lcAlias = ALLTRIM(Expr)
         SET DATASESSION TO (m.toListener.CurrentDataSession)
         THIS.drivingAlias = UPPER(EVALUATE(m.lcAlias))
         SET DATASESSION TO (m.toListener.FrxDataSession)
         SELECT (m.liSelect)
      ELSE
         * adjust the driver based on any
         * one to many relationships we can find.
         SELECT (m.liSelect)
         SET DATASESSION TO (m.toListener.CurrentDataSession)
         m.lcAlias = THIS.drivingAlias
         m.liSelect = SELECT(0)
         DO WHILE NOT EMPTY(m.lcAlias)
            SELECT (m.lcAlias)
            m.liSkips = ALINES(laSkips,SET("SKIP"),",")
            IF m.liSkips = 0 OR EMPTY(laSkips[1])
               THIS.drivingAlias = m.lcAlias
               m.lcAlias = ""
            ELSE
               m.lcAlias = laSkips[1]
               * it doesn't really matter how many lines there
               * are in the array; this is not going to be perfect
               * but we can't predict which child
               * has the most records.
            ENDIF
         ENDDO
         SELECT (m.liSelect)
      ENDIF
   ENDIF
   RETURN .F.
ENDIF
ENDPROC
PROCEDURE resetuserfeedback
LPARAMETERS m.tlResetTimes
THIS.CurrentRecord = 0
THIS.PercentDone = 0
IF m.tlResetTimes
   THIS.ReportStartRunDateTime= DATETIME()
   THIS.ReportStopRunDateTime= DTOT({})
   THIS.thermFormCaption = ""
   THIS.synchUserInterface()
ENDIF
ENDPROC
PROCEDURE setthermformcaption
LPARAMETERS tcCommandClausesFile, tcPrintJobName
IF EMPTY(THIS.ThermFormCaption)
   IF VARTYPE(tcCommandClausesFile) = "C"
      LOCAL m.cName, loFP
        loFP = _Screen.oFoxyPreviewer
        DO CASE
        CASE VARTYPE(loFp) = "O" AND NOT EMPTY(NVL(_Screen.oFoxyPreviewer.cTitle, ""))
            m.cName = _Screen.oFoxyPreviewer.cTitle
        CASE EMPTY(tcPrintJobName) OR VARTYPE(tcPrintJobName) # "C"
            m.cName = PROPER(JUSTFNAME(tcCommandClausesFile))
        OTHERWISE
            m.cName =  tcPrintJobName
        ENDCASE
      THIS.thermFormCaption = ;
         m.cName + ": " + This.CancelInstrText && OUTPUTCLASS_CANCEL_INSTRUCTIONS_LOC
   ELSE
      THIS.thermFormCaption = ""
   ENDIF
ENDIF
This.Caption = THIS.thermFormCaption
ENDPROC
PROCEDURE synchstatus
LPARAMETERS m.toListener, m.nBandObjCode, m.nFRXRecNo
IF THIS.isRunning AND ;
   THIS.frxBandRecno = m.nFRXRecNo
   WITH m.toListener
      TRY
         SET DATASESSION TO (.CurrentDataSession)
         IF THIS.drivingAliasCurrentRecno  # RECNO(THIS.drivingAlias)
            THIS.currentRecord = THIS.CurrentRecord + 1
            THIS.drivingAliasCurrentRecno = RECNO(THIS.drivingAlias)
         ENDIF
         IF THIS.currentRecord >= .CommandClauses.RecordTotal
            IF .CurrentPass = 0 AND .TwoPassProcess
               THIS.resetUserFeedback()
            ELSE
               THIS.currentRecord = .CommandClauses.RecordTotal
            ENDIF
         ENDIF
         THIS.updateStatus(m.toListener)
       CATCH TO err
          #IF OUTPUTCLASS_DEBUGGING
              SUSPEND
          #ENDIF
       ENDTRY
       SET DATASESSION TO (.ListenerDataSession)
   ENDWITH
ENDIF
ENDPROC
PROCEDURE dostatus
LPARAMETERS m.toListener, m.cMessage
LOCAL m.loParentForm, m.lcCaption, m.lcParentFormName
IF (VARTYPE(m.toListener) # "O") OR (NOT (m.toListener.QuietMode OR ;
        (THIS.isRunning AND m.toListener.CommandClauses.NoDialog)))
    IF (This.nLastPercent > 0 AND ;
                This.percentDone - This.nLastPercent < This.nDelay  AND ;
                This.percentDone <> 100)
        RETURN
    ELSE
        this.nlastpercent = CEILING(This.percentDone)
    ENDIF
    IF EMPTY(m.cMessage) OR ISNULL(m.cMessage)
        m.cMessage = ""
    ENDIF
    m.lcCaption = EVALUATE(THIS.ThermCaption)
    WITH This
        IF THIS.isRunning
            THIS.Closable = .F.
            * THIS.Movable = .F.
        ENDIF
        .Therm.Value = CEILING(This.percentDone)
        .ThermLabel.Caption = lcCaption
        * .Paint()
        .Draw()  && To ensure the label text will be updated
        IF NOT .Visible
            m.loParentForm = THIS.GetParentWindowRef()
            DO CASE
            CASE VARTYPE(m.loParentForm) # "O" AND (NOT _SCREEN.Visible)
                m.lcParentFormName = "MACDESKTOP"
            CASE VARTYPE(m.loParentForm) # "O"
                m.lcParentFormName = "SCREEN"
            CASE (NOT m.loParentForm.Visible) AND ;
                (m.loParentForm.DeskTop OR NOT EMPTY(m.loParentForm.MacDesktop) OR ;
                    m.loParentForm.ShowWindow = 2 OR (NOT _SCREEN.Visible))
                * in many cases,
                * they've probably made a programming error,
                * the parent should be visible according to
                * the requirements of REPORT FORM ... IN WINDOW
                * if it's a WINDOW clause they
                * have no need to show it, might not be an error
                * Either way, they should see the therm
                * to know that the report is progressing
                m.lcParentFormName = "MACDESKTOP"
            CASE (NOT m.loParentForm.Visible)
                * same comment as above
                m.lcParentFormName = "SCREEN"
            OTHERWISE
                m.lcParentFormName = m.loParentForm.Name
            ENDCASE
            SHOW WINDOW (.Name) IN WINDOW (m.lcParentFormName)
            .AlwaysOnTop = .T.
            .AutoCenter = .T.
*            .Visible = .T.
        ENDIF
    ENDWITH
    m.loParentForm = NULL
ENDIF
ENDPROC
PROCEDURE clearstatus
LPARAMETERS m.toListener
IF THIS.Visible
   THIS.Visible = .F.
ENDIF
ENDPROC
PROCEDURE updatestatus
LPARAMETERS m.toListener
IF VARTYPE(m.toListener) = "O" AND THIS.isRunning
   LOCAL m.liRecTotal, m.lnNewPercent, m.llShow
   m.liRecTotal = m.toListener.CommandClauses.RecordTotal
   IF m.liRecTotal > 0
      m.lnNewPercent = ROUND(THIS.CurrentRecord/m.liRecTotal,(THIS.ThermPrecision + 2) ) * 100
      IF (THIS.PercentDone # m.lnNewPercent)
         THIS.PercentDone = m.lnNewPercent
         m.llShow = .T.
         #IF OUTPUTCLASS_DEBUGGING
             ? THIS.PercentDone, THIS.CurrentRecord, m.liRecTotal, m.toListener.PageTotal
             ? REPL(OUTPUTCLASS_STATUSCHAR_PCT_DONE,INT(THIS.PercentDone/100* OUTPUTCLASS_ONE_HUNDRED_PCT_MARK))+ ;
               REPL(OUTPUTCLASS_STATUSCHAR_PCT_NOT_DONE,MAX(FLOOR(OUTPUTCLASS_ONE_HUNDRED_PCT_MARK - ;
                                                            (OUTPUTCLASS_ONE_HUNDRED_PCT_MARK *THIS.PercentDone/100)),0) )
         #ENDIF
      ENDIF
   ELSE
      m.llShow = .T.
   ENDIF
   IF m.llShow
      THIS.DoStatus(m.toListener, ;
                    IIF(m.toListener.CurrentPass = LISTENER_PREPASS  AND m.toListener.TwoPassProcess,;
                     THIS.PrepassStatusText, ;
                     THIS.RunStatusText) )
   ENDIF
ENDIF
ENDPROC
PROCEDURE pushuserfeedbackglobalsets
LPARAMETERS m.toListener
IF (NOT INLIST(_VFP.StartMode,2,3,5))
   PUSH KEY CLEAR
   LOCAL m.lcRef
   SET MESSAGE TO ""
   THIS.SetNotifyCursor = (SET("Notify",2) = "ON")
   IF THIS.SetNotifyCursor
      SET NOTIFY CURSOR OFF
   ENDIF
   THIS.OnEscapeCommand = ON("ESCAPE")
   m.lcRef = SYS(2015)
   PUBLIC &lcRef.
   STORE m.toListener TO (m.lcRef)
   ON ESCAPE &lcRef..CancelReport()
   THIS.EscapeReference = m.lcRef
   THIS.SetEscape = (SET("ESCAPE")="OFF")
   IF THIS.SetEscape
      SET ESCAPE ON
   ENDIF
ENDIF
ENDPROC
PROCEDURE popuserfeedbackglobalsets
IF (NOT INLIST(_VFP.StartMode,2,3,5))
   LOCAL m.lcRef
   m.lcRef = THIS.EscapeReference
   IF (NOT EMPTY(m.lcRef)) AND ;
       TYPE(m.lcRef) = "O"
      * push occurred earlier
      STORE NULL TO (m.lcRef)
      RELEASE &lcRef.
      THIS.escapeReference = ""
      m.lcRef = THIS.OnEscapeCommand
      ON ESCAPE &lcRef
      POP KEY
      IF THIS.SetNotifyCursor
         SET NOTIFY CURSOR ON
      ENDIF
      IF THIS.SetEscape
         SET ESCAPE OFF
      ENDIF
   ENDIF
ENDIF
ENDPROC
PROCEDURE setupreport
LPARAMETERS m.toListener
LOCAL m.llFRXAvailable, m.lcAlias
THIS.isRunning = .T.
WITH m.toListener
   SET DATASESSION TO (.CurrentDataSession)
   THIS.DrivingAlias = UPPER(ALIAS())
   IF .FRXDataSession > 0
      SET DATASESSION TO (.FRXDataSession)
   ENDIF
   m.llFRXAvailable = THIS.getReportScopeDriver(m.toListener)
   IF m.llFRXAvailable
      THIS.setThermformCaption(m.toListener.CommandClauses.File, m.toListener.PrintJobName)
      IF TYPE("m.toListener.CommandClauses.Summary") # "L"
         ADDPROPERTY(.CommandClauses,"Summary",.F.)
      ENDIF
      IF TYPE("m.toListener.CommandClauses.RecordTotal") # "N"
         ADDPROPERTY(.CommandClauses,"RecordTotal",0)
      ENDIF
      IF TYPE("m.toListener.CommandClauses.NoDialog") # "L"
        ADDPROPERTY(.CommandClauses,"NoDialog",.F.)
      ENDIF
      SET DATASESSION TO (.FRXDataSession)
      THIS.FRXBandRecno = 0
      SELECT FRX
      IF .CommandClauses.Summary
         * don't use groups unless
         * we're forced to by Summary.
         * Group usage will not work if
         * there's a group on .T. or some
         * other nonsensical expression that
         * doesn't change.
         LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
             Objcode = FRX_OBJCOD_GROUPHEADER AND ;
             Platform = FRX_PLATFORM_WINDOWS AND ;
             NOT DELETED()
         DO WHILE NOT EOF()
            * find the innermost group
            THIS.FRXBandRecno = RECNO()
            CONTINUE
         ENDDO

         IF THIS.frxBandRecno = 0
            * no groups in a Summary report
            * doesn't make a lot of sense, but
            * can happen.
             LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
                Platform = FRX_PLATFORM_WINDOWS AND ;
                Objcode = FRX_OBJCOD_PAGEHEADER AND ;
                NOT DELETED()
             IF NOT EOF()
                THIS.FRXBandRecno = RECNO()
             ENDIF
         ENDIF
      ENDIF
      IF THIS.FRXBandRecno = 0
         * not a Summary report.
         * look for the appropriate detail
         * using the report driver
         LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
                    Objcode = FRX_OBJCOD_DETAIL AND ;
                    Platform = FRX_PLATFORM_WINDOWS AND ;
                    TYPE(Expr) = "C" AND ;
                    NOT (EMPTY(Expr) OR DELETED())
         DO WHILE NOT EOF()
             m.lcAlias = ALLTRIM(Expr)
             SET DATASESSION TO (.CurrentDataSession)
             m.lcAlias = UPPER(EVALUATE(m.lcAlias))
             SET DATASESSION TO (.FRXDataSession)
             IF m.lcAlias == UPPER(THIS.DrivingAlias)
                THIS.FRXBandRecno = RECNO()
             ENDIF
             CONTINUE && try not to use the first detail band
         ENDDO
      ENDIF
      IF THIS.frxBandRecno = 0
         * couldn't match up a band with
         * the known driver
         LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
              Objcode = FRX_OBJCOD_DETAIL AND ;
              Platform = FRX_PLATFORM_WINDOWS AND ;
              EMPTY(Expr) AND NOT DELETED()
         IF NOT EOF()
            THIS.FRXBandRecno = RECNO()
         ELSE
            IF THIS.FRXBandRecno = 0
               LOCATE FOR ObjType = FRX_OBJTYP_BAND AND ;
                    Platform = FRX_PLATFORM_WINDOWS AND ;
                    Objcode = FRX_OBJCOD_DETAIL AND ;
                    NOT DELETED()
               IF NOT EOF()
                  THIS.FRXBandRecno = RECNO()
               ENDIF
            ENDIF
         ENDIF
      ENDIF
   ENDIF
   THIS.DrivingAliasCurrentRecno = 0
   SET DATASESSION TO (.ListenerDataSession)
ENDWITH
ENDPROC
PROCEDURE thermprecision_assign
LPARAMETERS m.vNewVal
IF VARTYPE(m.vNewVal) = "N"
   THIS.thermPrecision  = ABS(INT(m.vNewVal))
ENDIF
ENDPROC
PROCEDURE persistbetweenruns_assign
LPARAMETERS vNewVal
IF VARTYPE(m.vNewVal) = "L"
   THIS.persistBetweenRuns = m.vNewVal
ENDIF
ENDPROC
PROCEDURE createtherm
LPARAMETERS toListener
*modified to use Carlos Alloatti progress bar
#DEFINE SCALEMODE_PIXELS          3       && 3 - Pixel
#DEFINE BORDER_DOUBLE   2
* #DEFINE OUTPUTCLASS_RUNSTATUS_LOC            "Creating output... "
  DECLARE INTEGER GetSysColor IN Win32API INTEGER
  LOCAL liThermTop, liThermLeft, liThermWidth, liThermHeight, liSession
  IF TYPE("toListener.CommandClauses.StartDataSession") = "N"
     liSession = SET("DATASESSION")
     TRY
        SET DATASESSION TO (toListener.CommandClauses.StartDataSession)
     CATCH WHEN .T.
        toListener.resetDataSession()
     ENDTRY
  ENDIF
  liThermTop = THIS.ThermMargin + 20
  liThermLeft = THIS.ThermMargin
    WITH This
     .ScaleMode = SCALEMODE_PIXELS
     .Height = THIS.ThermFormHeight
     .HalfHeightCaption = .T.
     .Width = THIS.ThermFormWidth
     .AutoCenter = .T.
     .BorderStyle = BORDER_DOUBLE  && fixed dialog
     .ControlBox = .F.
     .Closable = (NOT THIS.IsRunning)
     .MaxButton = .F.
     .MinButton = .F.
     * .Movable = (NOT THIS.IsRunning)
     .AlwaysOnTop = .T.
     .AllowOutput = .F.
     .ThermLabel.Visible = .T.
     .ThermLabel.FontBold = .T.
     .ThermLabel.Left = liThermLeft
     .ThermLabel.Top = 4
     .ThermLabel.Width = .Width - (THIS.ThermMargin*2)
     .ThermLabel.Alignment = 2
     liThermHeight = .Height - (THIS.ThermMargin* 2) - .ThermLabel.Height
     liThermWidth =  .Width - (THIS.ThermMargin*2)
  ENDWITH
  THIS.SetThermFormCaption()
  WITH THIS.Therm
     .Top = liThermTop
     .Left = liThermLeft
     .Height = liThermHeight
     .Width = liThermWidth
     .Visible = .T.
     .Caption = This.RunStatusText && OUTPUTCLASS_RUNSTATUS_LOC
  ENDWITH
  IF NOT EMPTY(liSession)
     SET DATASESSION TO (liSession)
  ENDIF
RETURN NOT ISNULL(THIS.Therm)
ENDPROC
PROCEDURE bringwindowtofront
* Craig Boyd
* http://fox.wikis.com/wc.dll?Wiki~ForceWindowtoFrontNotJustBlink
    DECLARE Long BringWindowToTop In Win32API Long
    DECLARE Long ShowWindow In Win32API Long, Long
    DECLARE INTEGER GetCurrentThreadId;
        IN kernel32
    DECLARE INTEGER GetWindowThreadProcessId IN user32;
        INTEGER   hWnd,;
        INTEGER @ lpdwProcId
    DECLARE INTEGER GetCurrentThreadId;
        IN kernel32
    DECLARE INTEGER AttachThreadInput IN user32 ;
        INTEGER idAttach, ;
        INTEGER idAttachTo, ;
        INTEGER fAttach
    DECLARE INTEGER GetForegroundWindow IN user32
    DECLARE Long FindWindow In Win32API String, String
Local lnHWND
lnHWND = FindWindow(NULL, _Screen.Caption) && we could have just used _screen.hwnd, but this will work for other non-VFP windows as well
If lnHWND >0
    LOCAL lnForeThread, lnAppThread
    lnForeThread = GetWindowThreadProcessId(GetForegroundWindow(), 0) && what process owns foreground window?
    lnAppThread = GetCurrentThreadId() && what process is our window owned by?
    IF lnForeThread != lnAppThread && our process doesn't own the foreground window currently
        AttachThreadInput(lnForeThread, lnAppThread, .T.) && let's become a part of this the process that owns the foreground window so we can bring our window to the front
        BringWindowToTop(lnHWND)
        ShowWindow(lnHWND, 3)
        AttachThreadInput(lnForeThread, lnAppThread, .F.) && ok, we're done bringing our window to the front so let's detach now
    ELSE && our process owns foreground window so proceed as we always would have
        BringWindowToTop(lnHWND)
        ShowWindow(lnHWND, 3)
    ENDIF
ENDIF
ENDPROC
PROCEDURE Init
*!*            Declare Long SetParent in User32 Long hWndChild, Long hWndNewParent
*!*            SetParent(This.HWnd, lnParentWindowHWND)
This.AddProperty("nLastPercent", 0)
This.AddProperty("CancelInstrText", "")
This.AddProperty("CancelQueryText", "")
This.AddProperty("ReportIncompleteText", "")
This.AddProperty("AttentionText", "")
THIS.Name = "X"+SYS(2015)
WITH THIS
.Visible = .F.
*!*    #DEFINE OUTPUTCLASS_INITSTATUS_LOC           "Initializing... "
*!*    #DEFINE OUTPUTCLASS_PREPSTATUS_LOC           "Running calculation prepass... "
*!*    #DEFINE OUTPUTCLASS_RUNSTATUS_LOC            "Creating output... "
*!*    #DEFINE OUTPUTCLASS_TIME_SECONDS_LOC         "sec(s)"
*!*    #DEFINE OUTPUTCLASS_CANCEL_INSTRUCTIONS_LOC  "Press Esc to cancel... "
*!*    #DEFINE OUTPUTCLASS_REPORT_CANCELQUERY_LOC   "Stop report execution? (If you press 'No', report execution will continue.)"
*!*    #DEFINE OUTPUTCLASS_REPORT_INCOMPLETE_LOC    "Report execution was cancelled." + CHR(13) + ;
                                             "Your results are not complete."
#DEFINE OUTPUTCLASS_THERMCAPTION_LOC2        [m.cMessage+ " "+ ] + ;
            [TRANSFORM(THIS.PercentDone,"999"+ ] + ;
            [IIF(THIS.ThermPrecision=0,"","."+REPL("9",THIS.ThermPrecision))) + "%" ] + ;
            [+ IIF(NOT THIS.IncludeSeconds, "" , "   "+] + ;
            [TRANSFORM(IIF(THIS.IsRunning,DATETIME(), THIS.ReportStopRunDateTime)-] + ;
            [THIS.ReportStartRunDateTime)+" " + THIS.SecondsText)]
     .Createtherm()
    DO CASE
    CASE VARTYPE(_goHelper) = "O"
        .InitStatusText       = _goHelper.GetLoc("INITSTATUS") + SPACE(1)
        .PrepassStatusText    = _goHelper.GetLoc("PREPSTATUS") + SPACE(1)
        .RunStatusText        = _goHelper.GetLoc("RUNSTATUS")  + SPACE(1)
        .SecondsText          = _goHelper.GetLoc("SECONDS")    + SPACE(1)
        .CancelInstrText      = _goHelper.GetLoc("CANCELINST") + SPACE(1)
        .CancelQueryText      = _goHelper.GetLoc("CANCELQUER")
        .ReportIncompleteText = _goHelper.GetLoc("REPINCOMPL")
        .AttentionText        = _goHelper.GetLoc("ATTENTION")
    CASE VARTYPE(_Screen.oFoxyPreviewer) = "O"
*!*            IF NOT EMPTY(_Screen.oFoxyPreviewer._oDestScreen)
*!*                LOCAL lcTitle, lnDestHwnd
*!*                lcTitle = WTITLE(_Screen.oFoxyPreviewer._oDestScreen)
*!*                DECLARE INTEGER FindWindow IN user32 STRING lpClassName, STRING lpWindowName
*!*                lnDestHwnd = FindWindow(NULL, lcTitle)
*!*                IF lnDestHwnd <> 0
*!*                    Declare Long SetParent in User32 Long hWndChild, Long hWndNewParent
*!*                    = SetParent(This.HWnd, lnDestHWND)
*!*                    * SetParent(This.HWnd, lnParentWindowHWND)
*!*                    * ACTIVATE WINDOW (lcTitle)
*!*                    * DECLARE INTEGER ShowWindow IN user32 AS ShowWindowA INTEGER hWindow, INTEGER nCmdShow
*!*                    * = ShowWindowA(lnDestHWND, 1)
*!*                ENDIF
*!*            ENDIF
*!*            LOCAL lcLanguage
*!*            lcLanguage = NVL(_Screen.oFoxyPreviewer.cLanguage, _Screen.oFoxyPreviewer._cLanguageFromDBF)
*!*            =PR_SetLanguage(lcLanguage)
*!*
*!*            .InitStatusText       = PR_GetLoc("INITSTATUS") + SPACE(1)
*!*            .PrepassStatusText    = PR_GetLoc("PREPSTATUS") + SPACE(1)
*!*            .RunStatusText        = PR_GetLoc("RUNSTATUS")  + SPACE(1)
*!*            .SecondsText          = PR_GetLoc("SECONDS")    + SPACE(1)
*!*            .CancelInstrText      = PR_GetLoc("CANCELINST") + SPACE(1)
*!*            .CancelQueryText      = PR_GetLoc("CANCELQUER")
*!*            .ReportIncompleteText = PR_GetLoc("REPINCOMPL")
*!*            .AttentionText        = PR_GetLoc("ATTENTION")
        .InitStatusText       = _Screen.oFoxyPreviewer._InitStatusText
        .PrepassStatusText    = _Screen.oFoxyPreviewer._PrepassStatusText
        .RunStatusText        = _Screen.oFoxyPreviewer._RunStatusText
        .SecondsText          = _Screen.oFoxyPreviewer._SecondsText
        .CancelInstrText      = _Screen.oFoxyPreviewer._CancelInstrText
        .CancelQueryText      = _Screen.oFoxyPreviewer._CancelQueryText
        .ReportIncompleteText = _Screen.oFoxyPreviewer._ReportIncompleteText
        .AttentionText        = _Screen.oFoxyPreviewer._AttentionText
        * This.BringWindowToFront()
    OTHERWISE
        .InitStatusText       = OUTPUTCLASS_INITSTATUS_LOC
        .PrepassStatusText    = OUTPUTCLASS_PREPSTATUS_LOC
        .RunStatusText        = OUTPUTCLASS_RUNSTATUS_LOC
        .SecondsText          = OUTPUTCLASS_TIME_SECONDS_LOC
        .CancelInstrText      = OUTPUTCLASS_CANCEL_INSTRUCTIONS_LOC
        .CancelQueryText      = OUTPUTCLASS_REPORT_CANCELQUERY_LOC
        .ReportIncompleteText = OUTPUTCLASS_REPORT_INCOMPLETE_LOC
        .AttentionText        = "Attention"
     ENDCASE
    IF VARTYPE(_Screen.oFoxyPreviewer) = "O"
        IF NOT EMPTY(_Screen.oFoxyPreviewer._oDestScreen)
            This.Visible = .T.
            LOCAL lcTitle, lnDestHwnd
            lcTitle = WTITLE(_Screen.oFoxyPreviewer._oDestScreen)
            DECLARE INTEGER FindWindow IN user32 STRING lpClassName, STRING lpWindowName
            lnDestHwnd = FindWindow(NULL, lcTitle)
            IF lnDestHwnd <> 0
                DECLARE Long SetParent IN User32 Long hWndChild, Long hWndNewParent
                = SetParent(This.HWnd, lnDestHWND)
                * SetParent(This.HWnd, lnParentWindowHWND)
                * ACTIVATE WINDOW (lcTitle)
                * DECLARE INTEGER ShowWindow IN user32 AS ShowWindowA INTEGER hWindow, INTEGER nCmdShow
                * = ShowWindowA(lnDestHWND, 1)
            ENDIF
        ENDIF
    ENDIF
    .thermCaption      = OUTPUTCLASS_THERMCAPTION_LOC2    && Keep original
    .resetUserFeedback()
ENDWITH
ENDPROC
oPROCEDURE drawstringjustified
*************************************************************************************
** Method: GpGraphics.DrawStringJustified
** Draws the specified text string at the specified location with the specified Brush
** and Font objects in a Full Justified format.
** History:
**  2007/01/15: CChalom - Coded
**  2007/02/02: CChalom - Tweaked to work with ReportListener
**  2007/04/16: CChalom - Minor fixes for small sentences
**  2008/06/22: CChalom - Added some tweaks to allow better drawing on reports
**                        Added new flag - tlJustLast - that will forcely justify the last line
**  2010/09/22: CChalom - Adapted to include in the ReportListener and use the FFC _GdiPlus.vcx
*************************************************************************************
#DEFINE StringFormatFlagsDirectionRightToLeft 1
#DEFINE StringFormatFlagsDirectionVertical  2
#DEFINE StringFormatFlagsNoFitBlackBox   4
#DEFINE StringFormatFlagsDisplayFormatControl 32
#DEFINE StringFormatFlagsNoFontFallback   1024
#DEFINE StringFormatFlagsMeasureTrailingSpaces 2048
#DEFINE StringFormatFlagsNoWrap     4096
#DEFINE StringFormatFlagsLineLimit    8192
#DEFINE StringFormatFlagsNoClip     16384
#DEFINE StringAlignmentNear 0
#DEFINE StringAlignmentCenter 1
#DEFINE StringAlignmentFar  2
#DEFINE EMPTY_FLOAT            0h00000000
#DEFINE EMPTY_LONG            0h00000000
#DEFINE EMPTY_SHORT            0h0000
#DEFINE EMPTY_RECTANGLE        EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_RECTANGLEF    EMPTY_FLOAT+EMPTY_FLOAT+EMPTY_FLOAT+EMPTY_FLOAT
#DEFINE EMPTY_POINT            EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_POINTF        EMPTY_FLOAT+EMPTY_FLOAT
#DEFINE EMPTY_SIZE            EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_SIZEF            EMPTY_FLOAT+EMPTY_FLOAT
#DEFINE EMPTY_METAFILEHEADER  EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+;
                                EMPTY_FLOAT+EMPTY_FLOAT+;
                                EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+;
                                EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_ICONINFO        EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_BITMAP        EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_SHORT+EMPTY_SHORT+EMPTY_LONG
LPARAMETERS tcString, ;
            toFont as GpFont of HOME() + "\ffc\_gdiplus.vcx", ;
            toBrush as GpSolidBrush of HOME() + "\ffc\_gdiplus.vcx", ;
            toRectangle as GpRectangle of HOME() + "\ffc\_gdiplus.vcx", ;
            tlJustLast as Boolean, ;
            toGfx as GpGraphics of HOME() + "\ffc\_gdiplus.vcx"
LOCAL lhFont, lhGraphics, lhBrush, lcRectF
LOCAL N, lnSpaceWidth, lnLineHeight, lcText
LOCAL wImg, hImg, x0, y0
LOCAL loGfxState AS xfcGraphicsState
LOCAL lhTempStrFormat, lhStringFormat
LOCAL lhLeftAlignHandle
LOCAL lhRightAlignHandle
LOCAL lnWords, lnWordWidth, lnChars, lcCurrWord, lcCutWord, lnReduce
LOCAL llEndOfSentence, lnWordsWidth, lnWordsinLine, lnCurrWord, lnCurrLine, lnX, lnY
LOCAL lnWidthofBetween, lnStringFormatHandle, llLast
#DEFINE TextRenderingHintAntiAlias        4
LOCAL loExc AS Exception
    m.X0   = m.toRectangle.x
    m.Y0   = m.toRectangle.y
    m.wImg = m.toRectangle.w
    m.hImg = m.toRectangle.h
    * Save the current state of the graphics handle
    LOCAL lhGfxState
    m.lhGfxState = 0
    m.toGfx.Save(@m.lhGfxState)
    * Store Gdi+ handles for MeasureString and DrawString
    m.lhFont     = m.toFont.GetHandle()
    m.lhGraphics = m.toGfx.GetHandle()
    m.lhBrush    = m.toBrush.GetHandle()
    * Obtain the Font Height to be used as Line Height
    m.lnLineHeight = FLOOR(m.toFont.GetHeight(m.toGfx))
    * Adjust the Text String to ease detection of Carriage Returns
    m.lcText = STRTRAN(m.tcString,CHR(13)+CHR(10), " <CR> ")
    m.lcText = STRTRAN(m.lcText,CHR(13), " <CR> ")
    m.lcText = STRTRAN(m.lcText,CHR(10), " <CR> ")
    m.lcText = m.lcText + " <LASTWORD> "
    * Ensure Measure String will bring the best measures possible
    * Set to AntiAlias
    =xfcGdipSetTextRenderingHint(m.lhGraphics, TextRenderingHintAntiAlias)
    * Create a String Format object with the Generic Typographic TO obtain
    *   the most accurate String measurements
    * Strange, but the recommended for this case is to use a "cloned" StringFormat
    STORE 0 TO m.lhTempStrFormat, m.lhStringFormat
    = xfcGdipStringFormatGetGenericTypographic(@m.lhTempStrFormat)
    = xfcGdipCloneStringFormat(m.lhTempStrFormat, @m.lhStringFormat)
    * Delete the Temporary StringFormat object created
    = xfcGdipDeleteStringFormat(m.lhTempStrFormat)
    * Allow the correct measuring of Spaces
    = xfcGdipSetStringFormatFlags(m.lhStringFormat, StringFormatFlagsMeasureTrailingSpaces)
    * Create a StringFormat for LeftAlignment
    m.lhLeftAlignHandle = 0
    = xfcGdipCreateStringFormat(0, 0, @m.lhLeftAlignHandle)
    = xfcGdipSetStringFormatAlign(m.lhLeftAlignHandle, StringAlignmentNear)
    * Create a StringFormat for RightAlignment
    m.lhRightAlignHandle = 0
    = xfcGdipCreateStringFormat(0, 0, @m.lhRightAlignHandle)
    = xfcGdipSetStringFormatAlign(m.lhRightAlignHandle, StringAlignmentFar)
    * Measure Space for the given font
    STORE EMPTY_RECTANGLE TO m.lcRectF, m.pcBoundingBox
    = xfcGdipMeasureString( m.lhGraphics;
        , STRCONV(" " + 0h00,5)    ;
        , 1 ;
        , m.lhFont ;
        , m.lcRectF ;
        , m.lhStringFormat ;
        , @m.pcBoundingBox, 0, 0)
    m.lnSpaceWidth = CTOBIN(SUBSTR(m.pcBoundingBox, 9, 4), 'N') + 1
    m.lnWords = GETWORDCOUNT(m.lcText)
    DIMENSION m.laWords(m.lnWords,2)
    * Measure each word
    m.n = 1
    DO WHILE .T.
        m.laWords(m.N,1) = GETWORDNUM(m.lcText, m.N)
        m.lcCurrWord = m.laWords(m.N,1)
        STORE EMPTY_RECTANGLE TO m.lcRectF, m.pcBoundingBox
        = xfcGdipMeasureString(m.lhGraphics;
            , STRCONV(m.lcCurrWord + 0h00,5)    ;
            , LENC(m.lcCurrWord) ;
            , m.lhFont ;
            , m.lcRectF ;
            , m.lhStringFormat ;
            , @m.pcBoundingBox, 0, 0)
        m.lnWordWidth = CTOBIN(SUBSTR(m.pcBoundingBox, 9, 4), 'N')
        IF m.lnWordWidth > m.wImg AND (NOT INLIST(m.lcCurrWord, "<CR>", "<LASTWORD>"))
            m.lnReduce = 1
            DO WHILE .T.
                m.lnChars = ROUND((LENC(m.lcCurrWord) / (m.lnWordWidth / m.wImg)),0) - m.lnReduce
                m.lcCutWord = SUBSTR(m.lcCurrWord, 1, m.lnChars)
                STORE EMPTY_RECTANGLE TO m.lcRectF, m.pcBoundingBox
                = xfcGdipMeasureString(m.lhGraphics;
                    , STRCONV(m.lcCutWord + 0h00,5)    ;
                    , LENC(m.lcCutWord) ;
                    , m.lhFont ;
                    , m.lcRectF ;
                    , m.lhStringFormat ;
                    , @m.pcBoundingBox, 0, 0)
                m.lnWordWidth = CTOBIN(SUBSTR(m.pcBoundingBox, 9, 4), 'N')
                m.laWords(m.N,1) = m.lcCutWord
                IF m.lnWordWidth <= m.wImg
                    m.lnWords = m.lnWords + 1
                    DIMENSION m.laWords(m.lnWords,2)
                    m.laWords(m.lnWords,1) = ""
                    m.laWords(m.lnWords,2) = 0

                    m.lcText = STRTRAN(m.lcText, m.lcCurrWord, ;
                        m.lcCutWord + SPACE(1) + SUBSTR(m.lcCurrWord, m.lnChars + 1), ;
                        1, 1)
                    EXIT
                ENDIF
                m.lnReduce = m.lnReduce + 1
            ENDDO
        ENDIF
        m.laWords(m.N,2) = m.lnWordWidth
        m.N = m.N + 1
        IF m.N > m.lnWords
            EXIT
        ENDIF
    ENDDO
    * Before we start drawing, it's wise to restore our Graphics object to
    *    its original state.
    * Put back the state of the graphics handle
    m.toGfx.Restore(m.lhGfxState)
    * Start Drawing word by word
    m.lnCurrWord = 1
    m.lnCurrLine = 0
    LOCAL llLastLine
    m.llLastLine = .F.
    FOR m.N = 1 TO m.lnWords
        m.llEndOfSentence   = .F.
        m.lnWordsWidth  = 0
        m.lnWordsinLine = 0
        FOR m.z = m.N TO m.lnWords
            m.lcChar = LOWER(m.laWords(m.z,1))
            IF m.laWords(m.z,1) = "<CR>"
                m.llEndOfSentence = .T.
                EXIT
            ENDIF

            IF m.laWords(m.z,1) = "<LASTWORD>"
                m.llLastLine = .T.
                m.lnWordsWidth = m.lnWordsWidth - (m.lnSpaceWidth * m.lnWordsinLine) + m.lnSpaceWidth
                EXIT
            ENDIF
            m.lnWordsWidth = m.lnWordsWidth + m.laWords(m.z,2) + m.lnSpaceWidth
            IF m.lnWordsWidth > m.wImg AND m.z > m.N
                m.lnWordsWidth = m.lnWordsWidth - m.laWords(m.z,2) - (m.lnSpaceWidth * m.lnWordsinLine)
                EXIT
            ENDIF
            m.lnWordsinLine = m.lnWordsinLine + 1
        ENDFOR
        m.lnWordsWidth = m.lnWordsWidth - m.lnSpaceWidth
        IF m.z >= m.lnWords
            m.llEndOfSentence = .T.
            m.llLastLine = .T.
        ENDIF
        IF m.llLastLine
            IF m.tlJustLast
                m.lnWidthOfBetween = (m.wImg - m.lnWordsWidth - m.lnSpaceWidth) / (m.lnWordsinLine - 1)
            ELSE
                m.lnWidthOfBetween = m.lnSpaceWidth
            ENDIF
        ELSE
            IF m.llEndOfSentence
                m.lnWidthOfBetween = m.lnSpaceWidth
            ELSE
                m.lnWidthOfBetween = (m.wImg - m.lnWordsWidth - m.lnSpaceWidth) / (m.lnWordsinLine - 1)
            ENDIF

        ENDIF
        m.lnY = m.Y0 + (m.lnCurrLine * m.lnLineHeight)
        IF m.lnY > (m.hImg + m.Y0 - m.lnLineHeight / 2)
            m.n = m.lnWords
            EXIT
        ENDIF
        m.lnX = m.X0
        FOR m.lnCurrWord = 1 TO m.lnWordsinLine
            m.llLast = .F.
            IF m.laWords(m.N,1) = "<CR>" && Ignore
                m.N = m.N + 1
                LOOP
            ENDIF
            IF m.lnCurrWord = m.lnWordsinLine AND NOT m.llEndOfSentence
                m.llLast = .T.
            ENDIF
            IF m.lnCurrWord = m.lnWordsinLine AND m.llLastLine AND m.tlJustLast
                m.llLast = .T.
            ENDIF
            IF m.lnWordsInLine = 1
                m.lnX = m.X0
                m.llLast = .F.
            ENDIF
            IF m.llLast
                m.lcRectF = BINTOC(m.X0,'F') + BINTOC(m.lnY,'F') + ;
                    BINTOC(m.wImg,'F') + BINTOC(m.lnY + m.lnLineHeight,'F')
                m.lnStringFormatHandle = m.lhRightAlignHandle
            ELSE
                m.lcRectF = BINTOC(m.lnX,'F') + BINTOC(m.lnY,'F') + REPLICATE(CHR(0),8)
                m.lnStringFormatHandle = m.lhLeftAlignHandle
            ENDIF
            = xfcGdipDrawString(m.lhGraphics ;
                , STRCONV(m.laWords(m.N,1) + 0h00,5) ;
                , LEN(m.laWords(m.N,1)) ;
                , m.lhFont ;
                , m.lcRectF ;
                , m.lnStringFormatHandle ;
                , m.lhBrush)
            m.lnX = m.lnX + m.laWords(m.N,2) + m.lnWidthOfBetween
            m.N = m.N + 1 && Go to next word
        ENDFOR
        m.lnCurrLine = m.lnCurrLine + 1
        IF m.N >= m.lnWords
            EXIT
        ENDIF
        IF m.laWords(m.N,1) <> "<CR>"
            m.N = m.N - 1 && Compensate ENDFOR
        ENDIF
    ENDFOR
    * Finished Drawing, so erase the temp objects
    * Delete the StringFormat object created
    =xfcGdipDeleteStringFormat(m.lhStringFormat)
    =xfcGdipDeleteStringFormat(m.lhLeftAlignHandle)
    =xfcGdipDeleteStringFormat(m.lhRightAlignHandle)
CATCH TO m.loExc
    LOCAL loExc as Exception
    MESSAGEBOX("Error drawing the justified string !" + CHR(13) + ;
        TRANSFORM(m.loExc.ERRORNO) + " - " + m.loExc.MESSAGE + CHR(13) + ;
        "Line: " + TRANSFORM(m.loExc.LINENO) + " - " + m.loExc.LINECONTENTS + CHR(13) + ;
        lcMsg)
    MESSAGEBOX(TRANSFORM(m.tcString), 16, "String that generated the error")
    SET STEP ON
ENDTRY
RETURN NULL
ENDPROC
PROCEDURE drawstringintf
#UNDEF StringFormatFlagsDirectionRightToLeft
#UNDEF StringFormatFlagsDirectionVertical
#UNDEF StringFormatFlagsNoFitBlackBox
#UNDEF StringFormatFlagsDisplayFormatControl
#UNDEF StringFormatFlagsNoFontFallback
#UNDEF StringFormatFlagsMeasureTrailingSpaces
#UNDEF StringFormatFlagsNoWrap
#UNDEF StringFormatFlagsLineLimit
#UNDEF StringFormatFlagsNoClip
#UNDEF StringAlignmentNear
#UNDEF StringAlignmentCenter
#UNDEF StringAlignmentFar
#DEFINE StringFormatFlagsDirectionRightToLeft 1
#DEFINE StringFormatFlagsDirectionVertical  2
#DEFINE StringFormatFlagsNoFitBlackBox   4
#DEFINE StringFormatFlagsDisplayFormatControl 32
#DEFINE StringFormatFlagsNoFontFallback   1024
#DEFINE StringFormatFlagsMeasureTrailingSpaces 2048
#DEFINE StringFormatFlagsNoWrap     4096
#DEFINE StringFormatFlagsLineLimit    8192
#DEFINE StringFormatFlagsNoClip     16384
#DEFINE StringAlignmentNear 0
#DEFINE StringAlignmentCenter 1
#DEFINE StringAlignmentFar  2
#DEFINE TextRenderingHintAntiAlias        4
#DEFINE EMPTY_FLOAT            0h00000000
#DEFINE EMPTY_LONG            0h00000000
#DEFINE EMPTY_SHORT            0h0000
#DEFINE EMPTY_RECTANGLE        EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_RECTANGLEF    EMPTY_FLOAT+EMPTY_FLOAT+EMPTY_FLOAT+EMPTY_FLOAT
#DEFINE EMPTY_POINT            EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_POINTF        EMPTY_FLOAT+EMPTY_FLOAT
#DEFINE EMPTY_SIZE            EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_SIZEF            EMPTY_FLOAT+EMPTY_FLOAT
#DEFINE EMPTY_METAFILEHEADER  EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+;
    EMPTY_FLOAT+EMPTY_FLOAT+;
    EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+;
    EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_ICONINFO        EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG
#DEFINE EMPTY_BITMAP        EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_LONG+EMPTY_SHORT+EMPTY_SHORT+EMPTY_LONG
LPARAMETERS tnFRXRecNo, tnLeft, tnTop, tnWidth, tnHeight, tnObjectContinuationType, tcContentsToBeRendered, tiGDIPlusImage, ;
    tcFullText, ;
    tcFontName0, tnFontSize0 , tnFontStyle0, ;
    tnFillRed0 , tnFillGreen0, tnFillBlue0 , ;
    tnPenRed0  , tnPenGreen0 , tnPenBlue0
* Change the value of this variable to stop the execution when this word is being processed
LOCAL lcStep
m.lcStep = "ZZZZZZZZFOXYPREVIEWER"
LOCAL loFRXRecord, lnSelect
m.lnSelect = SELECT()
SELECT (This.cFRXAlias)
GO m.tnFRXRecNo
IF EOF()
     * SET STEP ON
    RETURN
ENDIF
SCATTER NAME m.loFrxRec
SELECT (m.lnSelect)
LOCAL loExc AS Exception
    LOCAL lhTempStrFormat, lhStringFormat
    LOCAL lhLeftAlignHandle
    LOCAL lhRightAlignHandle
    LOCAL lcRectF, pcBoundingBox
    LOCAL loGfx as GpGraphics OF HOME() + "\FFC\_GdiPlus.vcx"
    m.loGfx = This.oGdiGraphics
    LOCAL lhGfx, lhFont
    m.lhGfx = m.loGfx.GetHandle()
    * Save the current state of the graphics handle
    LOCAL lhGfxState
    m.lhGfxState = 0
    m.loGfx.Save(@m.lhGfxState)
    * Ensure Measure String will bring the best measures possible
    * Set to AntiAlias
    =xfcGdipSetTextRenderingHint(m.lhGfx, TextRenderingHintAntiAlias)
    * Create a String Format object with the Generic Typographic TO obtain
    *   the most accurate String measurements
    * Strange, but the recommended for this case is to use a "cloned" StringFormat
    STORE 0 TO m.lhTempStrFormat, m.lhStringFormat
    = xfcGdipStringFormatGetGenericTypographic(@m.lhTempStrFormat)
    = xfcGdipCloneStringFormat(m.lhTempStrFormat, @m.lhStringFormat)
    * Delete the Temporary StringFormat object created
    = xfcGdipDeleteStringFormat(m.lhTempStrFormat)
    * Allow the correct measuring of Spaces
    = xfcGdipSetStringFormatFlags(m.lhStringFormat, StringFormatFlagsMeasureTrailingSpaces)
    * Create a StringFormat for LeftAlignment
    m.lhLeftAlignHandle = 0
    = xfcGdipCreateStringFormat(0, 0, @m.lhLeftAlignHandle)
    = xfcGdipSetStringFormatAlign(m.lhLeftAlignHandle, StringAlignmentNear)
    = xfcGdipSetStringFormatLineAlign(m.lhLeftAlignHandle, StringAlignmentFar)  && Force vertical alignment to bottom
    = xfcGdipSetStringFormatFlags(m.lhLeftAlignHandle, StringFormatFlagsMeasureTrailingSpaces)
    * Create a StringFormat for RightAlignment
    m.lhRightAlignHandle = 0
    = xfcGdipCreateStringFormat(0, 0, @m.lhRightAlignHandle)
    = xfcGdipSetStringFormatAlign(m.lhRightAlignHandle, StringAlignmentFar)
    * Generate the array of words
    This.TFProcess(m.tcFullText)
    LOCAL lnWords, lnMaxHeight
    m.lnWords     = ALEN(This.aTFWords, 1)
    m.lnMaxHeight = 0
    * Step 1:
    * Get the measures of all words according to the formatting
    LOCAL lcWord, lcFont, lnFontSize, lcFontStyle, lnRed, lnGreen, lnBlue, lnBackRed, lnBackGreen, lnBackBlue, n, lnStyle, lnLineHeight
    LOCAL lnWordWidth, lnWordHeight, lnFontHeight
    FOR m.n = 1 TO m.lnWords
        m.lcWord = This.aTFWords(m.n, 1)
        IF EMPTY(m.lcWord)
            This.aTFWords(m.n,  1) = ""
            This.aTFWords(m.n, 11) = 0
            This.aTFWords(m.n, 12) = 0
            LOOP
        ENDIF
        This.aTFWords(m.n, 1) = ALLTRIM(m.lcWord)
        m.lcFont      = This.aTFWords(m.n, 2)
        m.lnFontSize  = This.aTFWords(m.n, 3)
        m.lcFontStyle = EVL(This.aTFWords(m.n, 4), "")
        m.lnRed       = This.aTFWords(m.n, 5)
        m.lnGreen     = This.aTFWords(m.n, 6)
        m.lnBlue      = This.aTFWords(m.n, 7)
        IF m.lnRed    = -1
            This.aTFWords(m.n, 5) = MAX(0, m.tnPenRed0)
            This.aTFWords(m.n, 6) = MAX(0, m.tnPenGreen0)
            This.aTFWords(m.n, 7) = MAX(0, m.tnPenBlue0)
        ENDIF
        m.lnBackRed     = This.aTFWords(m.n, 8)
        m.lnBackGreen   = This.aTFWords(m.n, 9)
        m.lnBackBlue     = This.aTFWords(m.n, 10)
        IF m.lnBackRed = -1
            This.aTFWords(m.n, 8) = m.tnFillRed0
            This.aTFWords(m.n, 9) = m.tnFillGreen0
            This.aTFWords(m.n,10) = m.tnFillBlue0
        ENDIF
        * If the stored value is empty, then we'll use the default stored in the FRX field
        IF EMPTY(m.lcFont)
            m.lcFont = m.tcFontName0
            This.aTFWords(m.n, 2) = m.lcFont
        ENDIF
        IF (VARTYPE(m.lnFontSize) <> "N") OR (m.lnFontSize <= 0)
            m.lnFontSize = m.tnFontSize0
            This.aTFWords(m.n, 3) = m.lnFontSize
        ENDIF
        IF EMPTY(m.lcFontStyle) && If we have no formatting, then use the one determined originally
            *!*    1   = Bold            BITTEST(tnFontStyle0, 0)
            *!*    2   = Italic          BITTEST(tnFontStyle0, 1)
            *!*    4   = Underlined      BITTEST(tnFontStyle0, 2)
            *!*    128 = Strikethrough   BITTEST(tnFontStyle0, 7)
            m.lnStyle = 0
            IF BITTEST(tnFontStyle0, 0) && Bold
                m.lnStyle = 1
            ENDIF
            IF BITTEST(tnFontStyle0, 1) && Italic
                m.lnStyle = m.lnStyle + 2
            ENDIF
            IF BITTEST(tnFontStyle0, 2) && Underlined
                m.lnStyle = m.lnStyle + 4
            ENDIF
            IF BITTEST(tnFontStyle0, 7) && Strikethrough
                m.lnStyle = m.lnStyle + 8
            ENDIF
        ELSE && NOT EMPTY(m.lcFontStyle)
            m.lnStyle = 0
            IF "B" $ m.lcFontStyle
                m.lnStyle = 1
            ENDIF
            IF "I" $ m.lcFontStyle
                m.lnStyle = m.lnStyle + 2
            ENDIF
            IF "U" $ m.lcFontStyle
                m.lnStyle = m.lnStyle + 4
            ENDIF
            IF "S" $ m.lcFontStyle
                m.lnStyle = m.lnStyle + 8
            ENDIF
        ENDIF
        This.aTFWords(m.n, 4) = m.lnStyle
        *            tnFillRed0 , tnFillGreen0, tnFillBlue0 , ;
        *            tnPenRed0  , tnPenGreen0 , tnPenBlue
        * Create a font object using the text object's settings.
        m.loFont = CREATEOBJECT("GPFont")
        m.loFont.Create(m.lcFont, m.lnFontSize, m.lnStyle, 3)
        m.lhFont = m.loFont.GetHandle()
        * Obtain the Font Height to be used as Line Height
        m.lnLineHeight = FLOOR(m.loFont.GetHeight(m.loGfx))
        STORE EMPTY_RECTANGLE TO m.lcRectF, m.pcBoundingBox
        = xfcGdipMeasureString(m.lhGfx;
            , STRCONV(m.lcWord + " " + 0h00,5)    ;
            , LEN(m.lcWord) + 1 ;
            , m.lhFont ;
            , m.lcRectF ;
            , m.lhStringFormat ;
            , @m.pcBoundingBox, 0, 0)
        m.lnWordWidth  = CEILING(CTOBIN(SUBSTR(m.pcBoundingBox, 9, 4), 'N'))
        m.lnWordHeight = CEILING(CTOBIN(SUBSTR(m.pcBoundingBox,13, 4), 'N'))
        * Get the font height to compare with the height obtained from MeasureString
        m.lnFontHeight = CEILING(m.loFont.GetHeight(m.loGfx))
        IF m.lcWord = "[CR]"
            This.aTFWords(m.n, 11) = 0
        ELSE
            This.aTFWords(m.n, 11) = m.lnWordWidth
        ENDIF
        This.aTFWords(m.n, 12) = MAX(m.lnWordHeight, m.lnFontHeight)
        m.loFont = NULL
    ENDFOR
CATCH TO m.loExc
     SET STEP ON
ENDTRY
LOCAL lcRectF, loColor, loBrush, lnX, lnY, lnXNext, lnCurrLine, lnWordHeight, lnY2
DIMENSION m.laLines(1, 3) && Line, Starting word, Line Height
m.lnCurrLine   = 1
m.lnX          = 0
m.lnY          = m.tnTop
m.lnWordHeight = 0
m.lnXNext      = 0
m.laLines(1,1) = 1  && Line
m.laLines(1,2) = 1  && Starting word
m.laLines(1,3) = 0  && Line Height
m.lnLineHeight = 0
FOR m.n = 1 TO m.lnWords
    m.lnWordHeight = This.aTFWords(m.n, 12)
    m.lnWordWidth  = This.aTFWords(m.n, 11)
    This.aTFWords(m.n, 13) = m.lnCurrLine
    * For debugging purposes
    IF UPPER(This.aTFWords(m.n,1)) = m.lcStep
        SET STEP ON
    ENDIF
    m.lcWord = ALLTRIM(This.aTFWords(m.n, 1))
    m.lnX = m.lnX + m.lnWordWidth
    IF (m.lnX > m.tnWidth) OR (m.lcWord = "[CR]")
        m.laLines(m.lnCurrLine,1) = m.lnCurrLine    && Line
        m.laLines(m.lnCurrLine,2) = m.n             && Starting word
        m.laLines(m.lnCurrLine,3) = m.lnLineHeight  && Line Height
        IF (m.lnCurrLine > 1) AND (m.lcWord = "[CR]")
            *    laLines(lnCurrLine,3) = laLines(lnCurrLine - 1, 3) && Line Height
            m.lnX = 0
        ELSE
            m.lnX = m.lnWordWidth
        ENDIF
        * Reset variables, to start a new line
        m.lnLineHeight = m.lnWordHeight
        m.lnCurrLine   = m.lnCurrLine + 1
        This.aTFWords(m.n, 13) = m.lnCurrLine
        DIMENSION m.laLines(m.lnCurrLine, 3)
        LOOP
    ENDIF
    m.lnLineHeight = MAX(m.lnLineHeight, m.lnWordHeight)
ENDFOR
m.laLines(m.lnCurrLine,1) = m.lnCurrLine    && Line
m.laLines(m.lnCurrLine,2) = m.n             && Starting word
m.laLines(m.lnCurrLine,3) = m.lnLineHeight  && Line Height
* Rebuild the words array joining words that have the exact same formatting to a same string.
* This helps to render a little faster, and improves the drawing of the words, specially for
* words that are underlined or have background colors
m.lcOldFormat  = ""
m.lcNextFormat = ""
m.lcOldWord    = ""
m.lcNextWord   = ""
m.lnCount      = 1
m.lcCurrWord   = This.aTFWords(1, 1)
m.lnCurrWidth  = 0
DIMENSION m.laNewWords(1, 14)
FOR m.n = 1 TO m.lnWords
    m.lcNextWord   = This.aTFWords(m.n, 1)
    IF EMPTY(m.lcNextWord)
        LOOP
    ENDIF
    * For debugging purposes
    IF UPPER(m.lcNextWord) = m.lcStep
        SET STEP ON
    ENDIF
    m.lcNextFormat = ""
    FOR m.i = 2 TO 10
        m.lcNextFormat = m.lcNextFormat + TRANSFORM(This.aTFWords(m.n, m.i))
    ENDFOR
    m.lnPrevLine = IIF(m.n = 1, 1, This.aTFWords(m.n-1, 13))
    m.lnCurrLine = This.aTFWords(m.n, 13)
    IF (m.lcOldFormat = m.lcNextFormat) AND (m.lnPrevLine = m.lnCurrLine) AND (m.lcNextWord <> "[CR]") AND (m.lcCurrWord <> "[CR]")
                            && We have a match, so we can join the words
        m.lcCurrWord  = ALLTRIM(m.lcCurrWord + " " + m.lcNextWord)
        m.lnCurrWidth = m.lnCurrWidth +  This.aTFWords(m.n, 11)
        m.laNewWords(m.lnCount - 1, 1)  = m.lcCurrWord
        m.laNewWords(m.lnCount - 1, 11) = m.lnCurrWidth
        m.laNewWords(m.lnCount - 1, 12) = This.aTFWords(m.n, 12)
        m.laNewWords(m.lnCount - 1, 14) = m.lnCurrWidth
    ELSE
        DIMENSION m.laNewWords(m.lnCount, 14)
        m.lcCurrWord = m.lcNextWord
        m.lnCurrWidth = This.aTFWords(m.n, 11)
        m.laNewWords(m.lnCount, 1)  = m.lcCurrWord
        m.laNewWords(m.lnCount, 11) = m.lnCurrWidth
        m.laNewWords(m.lnCount, 12) = This.aTFWords(m.n, 12)
        m.laNewWords(m.lnCount, 14) = m.lnCurrWidth
        FOR m.i = 2 TO 10
            m.laNewWords(m.lnCount, m.i) = This.aTFWords(m.n, m.i)
        ENDFOR
        IF (m.lcCurrWord = "[CR]") AND (m.n > 1)
            m.laNewWords(m.lnCount, 12) = This.aTFWords(m.n-1, 12)
        ENDIF
        m.lnCount = m.lnCount + 1
        m.lcOldFormat = m.lcNextFormat
    ENDIF
ENDFOR
m.loGfx.Restore(m.lhGfxState)
* Measure the words again, in order to get more precision specially for merged words
FOR m.n = 1 TO ALEN(m.laNewWords, 1)
    m.lcWord = m.laNewWords(m.n, 1)
    m.lcWord = EVL(m.lcWord, "")  && by Pavel Celba
    IF NOT " " $ ALLTRIM(m.lcWord)  && No need to measure again, since it's a single word
        LOOP
    ENDIF
    * For debugging purposes
    IF m.lcStep $ UPPER(m.lcWord)
        SET STEP ON
    ENDIF
    m.lcFont        = m.laNewWords(m.n, 2)
    m.lnFontSize   = m.laNewWords(m.n, 3)
    m.lcFontStyle  = m.laNewWords(m.n, 4)
    * Create a font object using the text object's settings.
    m.loFont = CREATEOBJECT("GPFont")
    m.loFont.Create(m.lcFont, m.lnFontSize, m.lnStyle, 3)
    m.lhFont = m.loFont.GetHandle()
    STORE EMPTY_RECTANGLE TO m.lcRectF, m.pcBoundingBox
    = xfcGdipMeasureString(m.lhGfx;
            , STRCONV(m.lcWord + "  " + 0h00,5)    ;
            , LEN(m.lcWord) + 2 ;
            , m.lhFont ;
            , m.lcRectF ;
            , m.lhStringFormat ;
            , @m.pcBoundingBox, 0, 0)
    m.lnWordWidth  = CEILING(CTOBIN(SUBSTR(m.pcBoundingBox, 9, 4), 'N'))
    m.lnWordHeight = CEILING(CTOBIN(SUBSTR(m.pcBoundingBox,13, 4), 'N'))
    m.laNewWords(m.n, 11) = MAX(m.laNewWords(m.n, 14), m.lnWordWidth)
    m.laNewWords(m.n, 12) = m.lnWordHeight
    m.loFont = NULL
ENDFOR
* Before we start drawing, it's wise to restore our Graphics object to
*    its original state.
* Put back the state of the graphics handle
m.loGfx.Restore(m.lhGfxState)
LOCAL lnH2
m.lnX        = m.tnLeft
m.lnY        = m.tnTop
m.lnCurrLine = 1
m.lnY2       = 0
m.lnH2       = 0
FOR m.n = 1 TO ALEN(m.laNewWords, 1)
    m.lcWord = m.laNewWords(m.n, 1)
    IF EMPTY(m.lcWord)
        LOOP
    ENDIF
    * For debugging purposes
    IF m.lcStep $ UPPER(m.lcWord)
        SET STEP ON
    ENDIF
*    m.lnStringFormatHandle = lhStringFormat  && m.lhLeftAlignHandle
    m.lnStringFormatHandle = m.lhLeftAlignHandle
    * Create a font object using the text object's settings.
    m.loFont1 = CREATEOBJECT("GPFont")
    m.loFont1.Create(m.laNewWords(m.n, 2), ; && Font name
    m.laNewWords(m.n, 3), ;   && Font size
    m.laNewWords(m.n, 4), 3) && Font style
    m.lhFont1 = m.loFont1.GetHandle()
    m.loColor = CREATEOBJECT("gpColor", ;
        m.laNewWords(m.n, 5), ; && PenRed
    m.laNewWords(m.n, 6), ; && PenGreen
    m.laNewWords(m.n, 7), ; && PenBlue
    255)                   && Alpha
    m.loBrush = CREATEOBJECT("gpSolidBrush", m.loColor)
    *!*                * Add to the array of words
    *!*                This.aTFWords(lnI, 1)  = m.lcParamWord
    *!*                This.aTFWords(lnI, 2)  = m.lcParamFName
    *!*                This.aTFWords(lnI, 3)  = m.lnParamFSize
    *!*                This.aTFWords(lnI, 4)  = m.lcParamFStyle
    *!*                This.aTFWords(lnI, 5)  = m.lnParamCRed
    *!*                This.aTFWords(lnI, 6)  = m.lnParamCGreen
    *!*                This.aTFWords(lnI, 7)  = m.lnParamCBlue
    *!*                This.aTFWords(lnI, 8)  = m.lnParamHRed
    *!*                This.aTFWords(lnI, 9)  = m.lnParamHGreen
    *!*                This.aTFWords(lnI, 10) = m.lnParamHBlue
    *!*                This.aTFWords(lnI, 11) = WIDTH
    *!*                This.aTFWords(lnI, 12) = HEIGHT
    * Check if we have a <BR> - Line jump
    IF ALLTRIM(m.lcWord) = "[CR]"
        m.lnX = m.tnLeft
        m.lnY = m.lnY + m.lnMaxHeight && laNewWords(n, 12)
        m.lnCurrLine = m.lnCurrLine + 1
        LOOP
    ENDIF
    m.lnXNext = m.lnX + m.laNewWords(m.n, 11)
    IF m.lnXNext > (m.tnLeft + m.tnWidth) * 1.015
        m.lnX = m.tnLeft
        m.lnY = m.lnY + m.lnMaxHeight
        m.lnCurrLine = m.lnCurrLine + 1
    ENDIF
    *!*        laLines(lnCurrLine,1) = lnCurrLine    && Line
    *!*        laLines(lnCurrLine,2) = n             && Starting word
    *!*        laLines(lnCurrLine,3) = lnLineHeight  && Line Height
    TRY
        m.lnMaxHeight = EVL(m.laLines(m.lnCurrLine,3), 0)
    CATCH TO m.loExc
        m.lnMaxHeight = EVL(m.laLines(m.lnCurrLine-1,3), 0)
    ENDTRY
    m.lnH2 = CEILING(m.lnMaxHeight * 1.15)
*    m.lcRectF = BINTOC(m.lnX,'F') + BINTOC(m.lnY,'F') + BINTOC(4*CEILING(laNewWords(n, 11)),'F') + BINTOC(m.lnMaxHeight,'F')
    m.lcRectF = BINTOC(m.lnX,'F') + BINTOC(m.lnY,'F') + BINTOC(4*CEILING(m.laNewWords(m.n, 11)),'F') + BINTOC(m.lnH2,'F')
*    m.lcRectF = BINTOC(m.lnX,'F') + BINTOC(m.lnY2,'F') + BINTOC(4*CEILING(laNewWords(n, 11)),'F') + BINTOC(m.lnMaxHeight,'F')
    * Draw the background if needed
    IF m.laNewWords(m.n, 8) > -1
        m.loBackColor = CREATEOBJECT("gpColor", ;
                    m.laNewWords(m.n, 8), ; && loObject.FillRed
                    m.laNewWords(m.n, 9), ; && loObject.FillGreen
                    m.laNewWords(m.n, 10), ; && loObject.FillBlue
                    255 ) && Alpha
        m.loBackBrush = CREATEOBJECT("gpSolidBrush", m.loBackColor)
        This.oGDIGraphics.FillRectangle(m.loBackBrush, m.lnX, ;
                    m.lnY, m.laNewWords(m.n,11), m.lnH2) && laNewWords(n,12))
    ENDIF
    = xfcGdipDrawString(m.lhGfx ;
        , STRCONV(m.lcWord + 0h00,5) ;
        , LEN(m.lcWord) ;
        , m.lhFont1 ;
        , m.lcRectF ;
        , m.lnStringFormatHandle ;
        , m.loBrush.GetHandle())
    * Adjust the Y position manually, in order to provide an accurate position for the Alternative outputs
    * This coordinate will not be used for drawing now, because here GDI+ provides a better aproach to align the strings
    *     at the bottom
    m.lnY2 = m.lnY + m.lnMaxHeight - m.laNewWords(m.n, 12)
CATCH TO m.loexc
     * SET STEP ON
ENDTRY
    This.TFAddToOutput(m.tnFRXRecNo, m.lnX, m.lnY, m.laNewWords(m.n, 11), m.lnMaxHeight, m.tnObjectContinuationType, m.lcWord, m.tiGDIPlusImage, ;
            m.laNewWords(m.n, 2),  ; && Font name
            m.laNewWords(m.n, 3),  ; && Font size
            m.laNewWords(m.n, 4),  ; && Font style
            m.laNewWords(m.n, 5),  ; && Pen red
            m.laNewWords(m.n, 6),  ; && Pen green
            m.laNewWords(m.n, 7),  ; && Pen blue
            m.laNewWords(m.n, 8),  ; && Fill red
            m.laNewWords(m.n, 9),  ; && Fill green
            m.laNewWords(m.n, 10), ; && Fill blue
            m.loFrxRec)              && FRX record
    m.lnX = m.lnX + m.laNewWords(m.n, 11)
    m.loFont1 = NULL
    m.loColor = NULL
    m.loBrush = NULL
ENDFOR
* Delete the StringFormat object created
=xfcGdipDeleteStringFormat(m.lhStringFormat)
=xfcGdipDeleteStringFormat(m.lhLeftAlignHandle)
=xfcGdipDeleteStringFormat(m.lhRightAlignHandle)
SELECT (lnSelect)
RETURN
ENDPROC
PROCEDURE tfprocess
* by Eduard Shor (Romania)
* Preprocesses the tags found
*-- <b> </b>                                                    :: bold
*-- <i> </i>                                                    :: italic
*-- <u> </u>                                                    :: underline
*-- <s> </s>                                                    :: strikethru
*-- <color=rgb/ncolor> </color>            // <c=> </c>            :: forecolor
*-- <highlight=rgb/ncolor> </highlight>    // <h=> </h>            :: backcolor
*-- <fontname="name"> </fontname>        // <fname=> </fname>    :: font name
*-- <fontsize=0> </fontsize>            // <fsize=> </fsize>    :: font size
*-- <fontstyle="BIUS"> </fontstyle>        // <fstyle=> </ftyle>    :: font style string    // will alter <b><i><u><s> previous state
*?-- color could be save as a number with RGB()
*?-- could prevent transform if '</' not in string
* Function ProcessHTF_FoxyPreviewer( tcString )
LPARAMETERS tcString, tlReturnVanillaString
    Local ;
        lcResultString, lcColorStack, lcHighlightStack, lcFontNameStack, lcFontSizeStack, lcFontStyleStack         ,;
        llBold, llItalic, llUnderline, llStrikeThru, llColor, llHighlight, llFontName, llFontSize, llFontStyle, llWhiteStyled,;
        lcParamWord, lcParamFName, lnParamFSize, lcParamFStyle    ,;
        lnParamCRed, lnParamCGreen, lnParamCBlue    ,;
        lnParamHRed, lnParamHGreen, lnParamHBlue    ,;
        lcWhiteFName, lnWhiteFSize, lcWhiteFStyle    ,;
        lnWhiteCRed, lnWhiteCGreen, lnWhiteCBlue    ,;
        lnWhiteHRed, lnWhiteHGreen, lnWhiteHBlue    ,;
        lnWords, lnI, lcWord, lcWordLow, lcColorValue, lcTagValue, lcStyle,;
        lnKStart, lcKString, lcKChunk, lcKTagPre, lckTagValue
    * CChalom 2011-12-22
    * Deal with <CR>, adding a special TAG, [CR]
    m.tcString = STRTRAN(m.tcString, "<BR>", ' [CR] ')
    m.tcString = STRTRAN(m.tcString, "<br>", ' [CR] ')
    m.tcString = STRTRAN(m.tcString, CHR(13) + CHR(10), ' [CR] ')
    m.tcString = STRTRAN(m.tcString, CHR(10) + CHR(13), ' [CR] ')
    m.tcString = CHRTRAN(m.tcString, CHR(10), ' [CR] ')
    m.tcString = CHRTRAN(m.tcString, CHR(13), ' [CR] ')
    LOCAL lcTempString, lcNextChar
    m.lcTempString = ""
    FOR m.n = 1 TO LEN(m.tcString)
        m.lcNextChar = SUBSTR(m.tcString, m.n, 1)
        IF m.lcNextChar = "<"
            m.lcNextChar = " <"
        ENDIF
        m.lcTempString = m.lcTempString + m.lcNextChar
    ENDFOR
    m.tcString = m.lcTempString
    *Set Step On
    *-- replace space in tag contents (font names) with a placeholder
    m.lcKString = ''
    m.lnKStart    = 1
    m.lnI        = 1
    *Set Step On
    Do While m.lnI <= Len(m.tcString)
        *--
        If     Substr(m.tcString,m.lnI,1)='<' And ;
                ( ;
                Inlist(Left( Strtran( Lower(Substr(m.tcString,m.lnI,30)) ,' ',''), 3),    '<c=','<h='                        ) Or ;
                Inlist(Left( Strtran( Lower(Substr(m.tcString,m.lnI,30)) ,' ',''), 7), '<color=','<fname=','<fsize='    ) Or ;
                Inlist(Left( Strtran( Lower(Substr(m.tcString,m.lnI,30)) ,' ',''), 8), '<fstyle='                        ) Or ;
                Inlist(Left( Strtran( Lower(Substr(m.tcString,m.lnI,30)) ,' ',''),10), '<fontname=','<fontsize='        ) Or ;
                Inlist(Left( Strtran( Lower(Substr(m.tcString,m.lnI,30)) ,' ',''),11), '<highlight=','<fontstyle='        ) ;
                ) Then

            *-- copy to lcKString unprocessed part
            m.lcKString        = m.lcKString + Substr(m.tcString, m.lnKStart, m.lnI-m.lnKStart)
            *--
            m.lcKChunk         = Substr(m.tcString, m.lnI, Atc('>',Substr(m.tcString,m.lnI)) )
            *-- lnI will continue with value after the closing tag
            m.lnI            = m.lnI + Len(m.lcKChunk)-1
            *-- assign the next starting point for unprocessed text
            m.lnKStart        = m.lnI + 1
            *-- remove spaces from tag name
            m.lcKTagPre        = Strtran(Substr(m.lcKChunk,1,Atc('=',m.lcKChunk)),' ','')
            *-- replace spaces in tag value with somthing else - chr(31)
            m.lcKTagValue    = Substr(m.lcKChunk,Atc('=',m.lcKChunk)+1,Len(m.lcKChunk)-Atc('=',m.lcKChunk)-1)
            m.lcKTagValue    = Strtran( Alltrim(m.lcKTagValue), Chr(32), Chr(31) )    && '
            *-- add tag-name + tag-value + closing tag sign to lcKString
            m.lcKString        = m.lcKString + m.lcKTagPre + m.lckTagValue + '>'
            *--
        EndIf
        *--
        m.lnI = m.lnI + 1
        *--
    EndDo
    *-- add the last unprocessed text
    m.lcKString = m.lcKString + Substr(m.tcString, m.lnKStart, Len(m.tcString)-m.lnKStart+1)
    *--
    *? lcKString
    Store '' To m.lcResultString, m.lcColorStack, m.lcHighlightStack, m.lcFontNameStack, m.lcFontSizeStack, m.lcFontStyleStack
    *Set Step On
    m.lnWords = Getwordcount(m.lcKString)
    IF m.lnWords = 0 && Fix by Pavel Celba
        RETURN ""
    ENDIF
    This.aTFWords = .F.
    DIMENSION This.aTFWords(m.lnWords, 14)
    For m.lnI = 1 To m.lnWords
        *-- if it's not the first word // can be removed if you can't draw spaced with backcolor and/or underlined/strikethru
        *--    will call DrawInReport(' ', cFontName,nFontSize,'US', -1,-1,-1, nHRed,nHGreen,nHBlue)
        m.llWhiteStyled = (m.lnI>1) And (m.llUnderline Or m.llStrikeThru Or m.llHighlight)
        If m.llWhiteStyled Then
            *-- style+backcolor ptr whitespace
            m.lcWhiteFName    = Iif( Not m.llFontName,      '',     Getwordnum(m.lcFontNameStack,Getwordcount(m.lcFontNameStack,'|'),'|')  )
            m.lnWhiteFSize    = Iif( Not m.llFontSize,      -1, Val(Getwordnum(m.lcFontSizeStack,Getwordcount(m.lcFontSizeStack,'|'),'|')) )
            *m.lcWhiteFStyle    = Iif( Not m.llFontStyle,     '', Iif(m.llUnderline,'U','') + Iif(m.llStrikeThru,'S','') )
            m.lcWhiteFStyle    = Iif(m.llUnderline,'U','') + Iif(m.llStrikeThru,'S','')
            *--
            m.lcColorValue    = Iif( Not m.llColor,        '', Getwordnum(m.lcColorStack,Getwordcount(m.lcColorStack,'|'),'|')  )
            m.lnWhiteCRed    = Iif( Not m.llColor,        -1, Val(GetWordNum(m.lcColorValue,1,',')) )
            m.lnWhiteCGreen    = Iif( Not m.llColor,        -1, Val(GetWordNum(m.lcColorValue,2,',')) )
            m.lnWhiteCBlue    = Iif( Not m.llColor,        -1, Val(GetWordNum(m.lcColorValue,3,',')) )
            *--
            m.lcColorValue    = Iif( Not m.llHighlight,    '', Getwordnum(m.lcHighlightStack,Getwordcount(m.lcHighlightStack,'|'),'|')  )
            m.lnWhiteHRed    = Iif( Not m.llHighlight,    -1, Val(GetWordNum(m.lcColorValue,1,',')) )
            m.lnWhiteHGreen    = Iif( Not m.llHighlight,    -1, Val(GetWordNum(m.lcColorValue,2,',')) )
            m.lnWhiteHBlue    = Iif( Not m.llHighlight,    -1, Val(GetWordNum(m.lcColorValue,3,',')) )
            *--
        EndIf
        *--
        *m.lcWord    = Getwordnum(m.tcString,m.lnI)
        m.lcWord    = Getwordnum(m.lcKString,m.lnI)
        *Set Step On
        *-- add spaces back
        m.lcWord    = Strtran(m.lcWord,Chr(31),Chr(32))    && '
        m.lcWordLow    = Lower(m.lcWord)
        *!*    If LEFT(m.lcWordLow,3)='<c=' Then
        *!*        Set Step On
        *!*    EndIf
        *-- process in loop for consecutive tags: '</s><b><u>sometext</u><i>'
        Do while     Inlist( Left(m.lcWordLow,3), '<b>','<i>','<u>','<s>','<c=','<h=' )               ;
                Or    Inlist( Left(m.lcWordLow,4), '</b>','</i>','</u>','</s>','</c>','</h>' )     ;
                Or     Left(m.lcWordLow,7)    ='<color='         Or  Left(m.lcWordLow,8)    ='</color>'     ;
                Or     Left(m.lcWordLow,11)='<highlight='     Or     Left(m.lcWordLow,12)='</highlight>'    ;
                Or     Left(m.lcWordLow,10)='<fontname='    Or     Left(m.lcWordLow,11)='</fontname>'    ;
                Or    Left(m.lcWordLow,10)='<fontsize='    Or    Left(m.lcWordLow,11)='</fontsize>'    ;
                Or    Left(m.lcWordLow,11)='<fontstyle='    Or    Left(m.lcWordLow,12)='</fontstyle>'    ;
                Or     Left(m.lcWordLow,7)    ='<fname='        Or     Left(m.lcWordLow,8)    ='</fname>'        ;
                Or     Left(m.lcWordLow,7)    ='<fsize='        Or     Left(m.lcWordLow,8)    ='</fsize>'        ;
                Or     Left(m.lcWordLow,8)    ='<fstyle='        Or     Left(m.lcWordLow,9)    ='</fstyle>'
            *-- enable/disable style flags - individual html style tags // will be overwriten by <fontstyle='BUIS'>
            m.llBold         = (m.llBold         Or Left(m.lcWordLow,3)='<b>') And Left(m.lcWordLow,4)!='</b>'
            m.llItalic        = (m.llItalic         Or Left(m.lcWordLow,3)='<i>') And Left(m.lcWordLow,4)!='</i>'
            m.llUnderline    = (m.llUnderline    Or Left(m.lcWordLow,3)='<u>') And Left(m.lcWordLow,4)!='</u>'
            m.llStrikeThru    = (m.llStrikeThru    Or Left(m.lcWordLow,3)='<s>') And Left(m.lcWordLow,4)!='</s>'
            *--
            *-- if colors, save in stack
            If Left(m.lcWordLow,3)='<c=' Or Left(m.lcWordLow,7)='<color=' Then
                *--
                m.lcColorValue    = Substr(m.lcWord, At('=',m.lcWord)+1, At('>',m.lcWord)-At('=',m.lcWord)-1 )
                m.lcColorValue    = Strtran(m.lcColorValue,' ','')    && here it could be converted from rgb to number if it's more convenient // the user could use a number instead of an RGB pair also
                *--
                m.lcColorStack     = m.lcColorStack + Iif(Not Empty(m.lcColorStack),'|','') + m.lcColorValue
                *? '  +colorstack: '+m.lcColorStack
            EndIf
            *--
            If Left(m.lcWordLow,3)='<h=' Or Left(m.lcWordLow,11)='<highlight=' Then
                *--
                m.lcColorValue        = Substr(m.lcWord, At('=',m.lcWord)+1, At('>',m.lcWord)-At('=',m.lcWord)-1 )
                m.lcColorValue        = Strtran(m.lcColorValue,' ','')    && here it could be converted from rgb to number if it's more convenient // the user could use a number instead of an RGB pair also
                *--
                m.lcHighlightStack     = m.lcHighlightStack + Iif(Not Empty(m.lcHighlightStack),'|','') + m.lcColorValue
                *? '  +highlightstack: '+m.lcHighlightStack
            EndIf
            *--
            If Left(m.lcWordLow,7)='<fname=' Or Left(m.lcWordLow,10)='<fontname=' Then
                *--
                m.lcTagValue        = Substr(m.lcWord, At('=',m.lcWord)+1, At('>',m.lcWord)-At('=',m.lcWord)-1 )
                m.lcTagValue        = Alltrim(Strtran(m.lcTagValue,["],''))
                *--
                m.lcFontNameStack    = m.lcFontNameStack    + Iif(Not Empty(m.lcFontNameStack),'|','') + m.lcTagValue
                *? '  +fontnamestack: '+m.lcFontNameStack
            EndIf
            *--
            If Left(m.lcWordLow,7)='<fsize=' Or Left(m.lcWordLow,10)='<fontsize=' Then
                *--
                m.lcTagValue        = Substr(m.lcWord, At('=',m.lcWord)+1, At('>',m.lcWord)-At('=',m.lcWord)-1 )
                m.lcTagValue        = Strtran( Strtran(m.lcTagValue,["],'') ,' ','')
                *--
                m.lcFontSizeStack    = m.lcFontSizeStack    + Iif(Not Empty(m.lcFontSizeStack),'|','') + m.lcTagValue
                *? '  +fontsizestack: '+m.lcFontSizeStack
            EndIf
            *--
            If Left(m.lcWordLow,8)='<fstyle=' Or Left(m.lcWordLow,11)='<fontstyle=' Then
                *--
                m.lcTagValue        = Substr(m.lcWord, At('=',m.lcWord)+1, At('>',m.lcWord)-At('=',m.lcWord)-1 )
                m.lcTagValue        = Upper( Strtran( Strtran(m.lcTagValue,["],'') ,' ','') )
                *--
                m.lcFontStyleStack    = m.lcFontStyleStack + Iif(Not Empty(m.lcFontStyleStack),'|','') + m.lcTagValue
                *? '  +fontnamestack: '+m.lcFontNameStack
                m.llBold            = ('B' $ m.lcTagValue)
                m.llItalic            = ('I' $ m.lcTagValue)
                m.llUnderline        = ('U' $ m.lcTagValue)
                m.llStrikeThru        = ('S' $ m.lcTagValue)
            EndIf
            *-- if end of color Then remove from stack
            If Left(m.lcWordLow,4)='</c>' Or Left(m.lcWordLow,8)='</color>' Then
                *--
                m.lcColorStack     = ;
                    Iif( Empty(m.lcColorStack) Or Occurs('|',m.lcColorStack)=0, '',;
                    Left( m.lcColorStack, AT('|',m.lcColorStack,Occurs('|',m.lcColorStack))-1 ) )
                *? '  -colorstack: '+m.lcColorStack
            EndIf
            *--
            If Left(m.lcWordLow,4)='</h>' Or Left(m.lcWordLow,12)='</highlight>' Then
                *--
                m.lcHighlightStack     = ;
                    Iif( Empty(m.lcHighlightStack) Or Occurs('|',m.lcHighlightStack)=0, '',;
                    Left( m.lcHighlightStack, AT('|',m.lcHighlightStack,Occurs('|',m.lcHighlightStack))-1 ) )
                *? '  -highlightstack: '+m.lcHighlightStack
            EndIf
            *--
            If Left(m.lcWordLow,8)='</fname>' Or Left(m.lcWordLow,11)='</fontname>' Then
                *--
                m.lcFontNameStack    = ;
                    Iif( Empty(m.lcFontNameStack) Or Occurs('|',m.lcFontNameStack)=0, '',;
                    Left( m.lcFontNameStack, AT('|',m.lcFontNameStack,Occurs('|',m.lcFontNameStack))-1 ) )
                *? '  +fontnamestack: '+m.lcFontNameStack
            EndIf
            *--
            If Left(m.lcWordLow,8)='</fsize>' Or Left(m.lcWordLow,11)='</fontsize>' Then
                *--
                m.lcFontSizeStack    = ;
                    Iif( Empty(m.lcFontSizeStack) Or Occurs('|',m.lcFontSizeStack)=0, '',;
                    Left( m.lcFontSizeStack, AT('|',m.lcFontSizeStack,Occurs('|',m.lcFontSizeStack))-1 ) )
                *? '  +fontsizestack: '+m.lcFontSizeStack
            EndIf
            *--
            If Left(m.lcWordLow,9)='</fstyle>' Or Left(m.lcWordLow,12)='</fontstyle>' Then
                *--
                m.lcFontStyleStack    = ;
                    Iif( Empty(m.lcFontStyleStack) Or Occurs('|',m.lcFontStyleStack)=0, '',;
                    Left( m.lcFontStyleStack, AT('|',m.lcFontStyleStack,Occurs('|',m.lcFontStyleStack))-1 ) )
                *? '  +fontstylestack: '+m.lcFontStyleStack
                *-- retrieve curent style in stack to setup flags
                m.lcTagValue    = Getwordnum(m.lcFontStyleStack,Getwordcount(m.lcFontStyleStack,'|'),'|')
                *--
                m.llBold            = ('B' $ m.lcTagValue)
                m.llItalic            = ('I' $ m.lcTagValue)
                m.llUnderline        = ('U' $ m.lcTagValue)
                m.llStrikeThru        = ('S' $ m.lcTagValue)
                *--
            EndIf
            *-- some flags are .T. if stack is not empty
            m.llColor        = Not Empty(m.lcColorStack)
            m.llHighlight    = Not Empty(m.lcHighlightStack)
            m.llFontName    = Not Empty(m.lcFontNameStack)
            m.llFontSize    = Not Empty(m.lcFontSizeStack)
            m.llFontStyle    = Not Empty(m.lcFontStyleStack)
            *-- remove procesed tag
            m.lcWord     = Substr(m.lcWord,AT('>',m.lcWord)+1)
            m.lcWordLow    = Lower(m.lcWord)
        EndDo
        *-- setup parameters for DrawInReport
        m.lcParamFName    = Iif( Not m.llFontName,      '',     Getwordnum(m.lcFontNameStack,Getwordcount(m.lcFontNameStack,'|'),'|')  )
        m.lnParamFSize    = Iif( Not m.llFontSize,      -1, Val(Getwordnum(m.lcFontSizeStack,Getwordcount(m.lcFontSizeStack,'|'),'|')) )
        *m.lcParamFStyle    = Iif( Not m.llFontStyle,     '', Iif(m.llBold,'B','') + Iif(m.llItalic,'I','') + Iif(m.llUnderline,'U','') + Iif(m.llStrikeThru,'S','') )
        m.lcParamFStyle    = Iif(m.llBold,'B','') + Iif(m.llItalic,'I','') + Iif(m.llUnderline,'U','') + Iif(m.llStrikeThru,'S','')
        m.lcColorValue    = Iif( Not m.llColor,        '', Getwordnum(m.lcColorStack,Getwordcount(m.lcColorStack,'|'),'|')  )
        m.lnParamCRed    = Iif( Not m.llColor,        -1, Val(GetWordNum(m.lcColorValue,1,',')) )
        m.lnParamCGreen    = Iif( Not m.llColor,        -1, Val(GetWordNum(m.lcColorValue,2,',')) )
        m.lnParamCBlue    = Iif( Not m.llColor,        -1, Val(GetWordNum(m.lcColorValue,3,',')) )
        m.lcColorValue    = Iif( Not m.llHighlight,    '', Getwordnum(m.lcHighlightStack,Getwordcount(m.lcHighlightStack,'|'),'|')  )
        m.lnParamHRed    = Iif( Not m.llHighlight,    -1, Val(GetWordNum(m.lcColorValue,1,',')) )
        m.lnParamHGreen    = Iif( Not m.llHighlight,    -1, Val(GetWordNum(m.lcColorValue,2,',')) )
        m.lnParamHBlue    = Iif( Not m.llHighlight,    -1, Val(GetWordNum(m.lcColorValue,3,',')) )
        *-- proces trailing tags // same as before, in loop for consecutive tags: '</s><b><u>sometext</u><i>'
        Do while     Inlist( right(m.lcWordLow,3), '<b>','<i>','<u>','<s>','<c=','<h=')           ;
                Or    Inlist( right(m.lcWordLow,4), '</b>','</i>','</u>','</s>','</c>','</h>');
                ;
                Or     Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,3) ='<c='             ;
                Or     Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,3) ='<h='             ;
                Or     Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,7) ='<color='         ;
                Or     Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,11)='<highlight='     ;
                ;
                Or     Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,10)='<fontname='     ;
                Or     Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,10)='<fontsize='     ;
                Or     Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,11)='<fontstyle='     ;
                ;
                Or     Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,7) ='<fname='         ;
                Or     Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,7) ='<fsize='         ;
                Or     Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,8) ='<fstyle='         ;
                ;
                Or  Inlist( Substr(m.lcWordLow,Rat('<',m.lcWordLow)), '</color>', '</highlight>', ;
                        '</fontname>', '</fontsize>', '</fontstyle>', '</fname>', '</fsize>', '</fstyle>' )    ;
            *-- enable/disable style flags
            m.llBold         = (m.llBold         Or Right(m.lcWordLow,3)='<b>') And Right(m.lcWordLow,4)!='</b>'
            m.llItalic        = (m.llItalic         Or Right(m.lcWordLow,3)='<i>') And Right(m.lcWordLow,4)!='</i>'
            m.llUnderline    = (m.llUnderline    Or Right(m.lcWordLow,3)='<u>') And Right(m.lcWordLow,4)!='</u>'
            m.llStrikeThru    = (m.llStrikeThru    Or Right(m.lcWordLow,3)='<s>') And Right(m.lcWordLow,4)!='</s>'
            *--
            *-- if colors, save in stack
            If        Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,3)='<c=' OR ;
                    Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,7)='<color=' ;
                    Then
                *--
                m.lcColorValue    = Substr(m.lcWord, RAt('=',m.lcWord)+1, RAt('>',m.lcWord)-RAt('=',m.lcWord)-1 )
                m.lcColorValue    = Strtran(m.lcColorValue,' ','')    && here it could be converted from rgb to number if it's more convenient // the user could use a number instead of an RGB pair also
                *--
                m.lcColorStack     = m.lcColorStack + Iif(Not Empty(m.lcColorStack),'|','') + m.lcColorValue
                *? '  +colorstack: '+m.lcColorStack
            EndIf
            *--
            If        Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) , 3)='<h=' OR ;
                    Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,11)='<highlight=' ;
                    Then
                *--
                m.lcColorValue        = Substr(m.lcWord, RAt('=',m.lcWord)+1, RAt('>',m.lcWord)-RAt('=',m.lcWord)-1 )
                m.lcColorValue        = Strtran(m.lcColorValue,' ','')    && here it could be converted from rgb to number if it's more convenient // the user could use a number instead of an RGB pair also
                *--
                m.lcHighlightStack     = m.lcHighlightStack + Iif(Not Empty(m.lcHighlightStack),'|','') + m.lcColorValue
                *? '  +highlightstack: '+m.lcHighlightStack
            EndIf
            *--
            If        Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) , 7)='<fname=' OR ;
                    Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,10)='<fontname=' ;
                    Then
                *--
                m.lcTagValue        = Substr(m.lcWord, RAt('=',m.lcWord)+1, RAt('>',m.lcWord)-RAt('=',m.lcWord)-1 )
                m.lcTagValue        = Alltrim(Strtran(m.lcTagValue,["],''))
                *--
                m.lcFontNameStack    = m.lcFontNameStack    + Iif(Not Empty(m.lcFontNameStack),'|','') + m.lcTagValue
                *? '  +fontnamestack: '+m.lcFontNameStack
            EndIf
            *--
            If        Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) , 7)='<fsize=' OR ;
                    Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,10)='<fontsize=' ;
                    Then
                *--
                m.lcTagValue        = Substr(m.lcWord, RAt('=',m.lcWord)+1, RAt('>',m.lcWord)-RAt('=',m.lcWord)-1 )
                m.lcTagValue        = Strtran( Strtran(m.lcTagValue,["],'') ,' ','')
                *--
                m.lcFontSizeStack    = m.lcFontSizeStack    + Iif(Not Empty(m.lcFontSizeStack),'|','') + m.lcTagValue
                *? '  +fontsizestack: '+m.lcFontSizeStack
            EndIf
            *--
            If        Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) , 8)='<fstyle=' OR ;
                    Left( Substr(m.lcWordLow,Rat('<',m.lcWordLow)) ,11)='<fontstyle=' ;
                    Then
                *--
                m.lcTagValue        = Substr(m.lcWord, RAt('=',m.lcWord)+1, RAt('>',m.lcWord)-RAt('=',m.lcWord)-1 )
                m.lcTagValue        = Upper( Strtran( Strtran(m.lcTagValue,["],'') ,' ','') )
                *--
                m.lcFontStyleStack    = m.lcFontStyleStack + Iif(Not Empty(m.lcFontStyleStack),'|','') + m.lcTagValue
                *? '  +fontnamestack: '+m.lcFontNameStack
                m.llBold            = ('B' $ m.lcTagValue)
                m.llItalic            = ('I' $ m.lcTagValue)
                m.llUnderline        = ('U' $ m.lcTagValue)
                m.llStrikeThru        = ('S' $ m.lcTagValue)
                *--
            EndIf
            *-- if end of color Then remove from stack
            If Right(m.lcWordLow,4)='</c>' Or Right(m.lcWordLow,8)='</color>' Then
                *--
                m.lcColorStack     = ;
                    Iif( Empty(m.lcColorStack) Or Occurs('|',m.lcColorStack)=0, '',;
                    Left( m.lcColorStack, AT('|',m.lcColorStack,Occurs('|',m.lcColorStack))-1 ) )
                *? '  -colorstack: '+m.lcColorStack
            EndIf
            *--
            If Right(m.lcWordLow,4)='</h>' Or Right(m.lcWordLow,12)='</highlight>' Then
                *--
                m.lcHighlightStack     = ;
                    Iif( Empty(m.lcHighlightStack) Or Occurs('|',m.lcHighlightStack)=0, '',;
                    Left( m.lcHighlightStack, AT('|',m.lcHighlightStack,Occurs('|',m.lcHighlightStack))-1 ) )
                *? '  -highlightstack: '+m.lcHighlightStack
            EndIf
            *--
            If Right(m.lcWordLow,8)='</fname>' Or Right(m.lcWordLow,11)='</fontname>' Then
                *--
                m.lcFontNameStack     = ;
                    Iif( Empty(m.lcFontNameStack) Or Occurs('|',m.lcFontNameStack)=0, '',;
                    Left( m.lcFontNameStack, AT('|',m.lcFontNameStack,Occurs('|',m.lcFontNameStack))-1 ) )
                *? '  +fontnamestack: '+m.lcFontNameStack
            EndIf
            *--
            If Right(m.lcWordLow,8)='</fsize>' Or Right(m.lcWordLow,11)='</fontsize>' Then
                *--
                m.lcFontSizeStack    = ;
                    Iif( Empty(m.lcFontSizeStack) Or Occurs('|',m.lcFontSizeStack)=0, '',;
                    Left( m.lcFontSizeStack, AT('|',m.lcFontSizeStack,Occurs('|',m.lcFontSizeStack))-1 ) )
                *? '  +fontsizestack: '+m.lcFontSizeStack
            EndIf
            *--
            If Right(m.lcWordLow,9)='</fstyle>' Or Right(m.lcWordLow,12)='</fontstyle>' Then
                *--
                m.lcFontStyleStack    = ;
                    Iif( Empty(m.lcFontStyleStack) Or Occurs('|',m.lcFontStyleStack)=0, '',;
                    Left( m.lcFontStyleStack, AT('|',m.lcFontStyleStack,Occurs('|',m.lcFontStyleStack))-1 ) )
                *? '  +fontstylestack: '+m.lcFontStyleStack
                *-- retrieve curent style in stack to setup flags
                m.lcTagValue    = Getwordnum(m.lcFontStyleStack,Getwordcount(m.lcFontStyleStack,'|'),'|')
                *--
                m.llBold            = ('B' $ m.lcTagValue)
                m.llItalic            = ('I' $ m.lcTagValue)
                m.llUnderline        = ('U' $ m.lcTagValue)
                m.llStrikeThru        = ('S' $ m.lcTagValue)
                *--
            EndIf
            *-- some flags are .T. if stack is not empty
            m.llColor        = Not Empty(m.lcColorStack)
            m.llHighlight    = Not Empty(m.lcHighlightStack)
            m.llFontName    = Not Empty(m.lcFontNameStack)
            m.llFontSize    = Not Empty(m.lcFontSizeStack)
            m.llFontStyle    = Not Empty(m.lcFontStyleStack)
            *-- remove procesed tag
            m.lcWord     = Left(m.lcWord,Rat('<',m.lcWord)-1)
            m.lcWordLow    = Lower(m.lcWord)
        EndDo
        *-- the word to be sent as parameter
        m.lcParamWord     = Alltrim(m.lcWord)
        *-- we have a word
        If Not Empty(m.lcParamWord) Then
            *--
            If Not m.tlReturnVanillaString AND NOT EMPTY(m.lcParamWord) Then
                *-- not first word, so previous whitespace might be styled
*!*                    If m.llWhiteStyled Then
*!*                        *--
*!*                        DrawInReport(' ', ;
*!*                            m.lcWhiteFName, m.lnWhiteFSize, m.lcWhiteFStyle, ;
*!*                            m.lnWhiteCRed, m.lnWhiteCGreen, m.lnWhiteCBlue, ;
*!*                            m.lnWhiteHRed, m.lnWhiteHGreen, m.lnWhiteHBlue  )
*!*                        *--
*!*                    EndIf
                *-- draw the word
*                DrawInReport( m.lcParamWord, ;
                    m.lcParamFName,m.lnParamFSize, m.lcParamFStyle, ;
                    m.lnParamCRed, m.lnParamCGreen, m.lnParamCBlue, ;
                    m.lnParamHRed, m.lnParamHGreen, m.lnParamHBlue )
                * Add to the array of words
                This.aTFWords(m.lnI, 1)  = m.lcParamWord
                This.aTFWords(m.lnI, 2)  = m.lcParamFName
                This.aTFWords(m.lnI, 3)  = m.lnParamFSize
                This.aTFWords(m.lnI, 4)  = m.lcParamFStyle
                This.aTFWords(m.lnI, 5)  = m.lnParamCRed
                This.aTFWords(m.lnI, 6)  = m.lnParamCGreen
                This.aTFWords(m.lnI, 7)  = m.lnParamCBlue
                This.aTFWords(m.lnI, 8)  = m.lnParamHRed
                This.aTFWords(m.lnI, 9)  = m.lnParamHGreen
                This.aTFWords(m.lnI, 10) = m.lnParamHBlue
                *--
    *!*            Else     &&-- this might be usefull to decorate with whitespace, hoever cesar will justify the text making the result unpredictible
    *!*                *-- before the first word, prefixed whitespace could be styled // mid-white-space style change
    *!*                DrawInReport(' ', ;
    *!*                    m.lcParamFName,m.lnParamFSize, m.lcParamFStyle, ;
    *!*                    -1, -1, -1, ;
    *!*                    m.lnParamHRed, m.lnParamHGreen, m.lnParamHBlue )
    *!*                *--
            Else
                *-- compose normal string, without tags
                m.lcResultString = Evl(m.lcResultString+' ','') + m.lcParamWord
            EndIf
            *--
        EndIf
    EndFor
    *-- if vanillastring is requested
    If m.tlReturnVanillaString Then
        Return m.lcResultString
    EndIf
ENDPROC
PROCEDURE tfaddtooutput
LPARAMETERS tnRecNo, tnX, tnY, tnW, tnH, tnObjectContinuationType, ;
    tcWord, tiGDIPlusImage, ;
    tcFont, ; && Font name
    m.tnFontSize, ; && Font size
    m.tnFontStyle, ; && Font style
    m.tnPenRed, ; && Pen red
    m.tnPenGreen, ; && Pen green
    m.tnPenBlue, ; && Pen blue
    m.tnFillRed, ; && Fill red
    m.tnFillGreen, ; && Fill green
    m.tnFillBlue, ; && Fill blue
    m.toFRX
LOCAL lnSelect, lnRecno
m.lnSelect = SELECT()
m.lnRecno  = RECNO()
IF EMPTY(This.cAuxFullOutputAlias)
    This.cAuxFullOutputAlias = STRTRAN(SYS(2015), " ", "_")
    SELECT 0000 as nRecNo, ;
        CAST(0 AS N(9, 3)) as FRXWidth, ;
        CAST(0 AS N(9, 3)) as FRXHeight, ;
        CAST(0 AS N(9, 3)) as FRXTop, ;
        CAST(0 AS I) AS    Left, ;
        CAST(0 AS I) AS    FRXRECNO, ;
        CAST(0 AS I) AS    DBFRECNO, ;
        CAST(0 AS I) AS    CONTTYPE, ;
        CAST("" AS M) AS CONTENTS, ;
        CAST("" AS M) AS UNCONTENTS, ;
        CAST(0 AS I) AS    PAGE, ;
        CAST(0 AS I) AS    FRXINDEX, ;
        CAST(0 AS I) AS    DYNAMICS, ;
        CAST(0 AS I) AS    ROTATE, * FROM (This.cFrxAlias) WHERE .F. INTO CURSOR (This.cAuxFullOutputAlias) READWRITE
    SELECT (This.cAuxFullOutputAlias)
    ALTER TABLE (This.cAuxFullOutputAlias) ALTER COLUMN Top Integer
ENDIF
* Add the information to be used by the Search engine
INSERT INTO (This.cOutputAlias) ;
    VALUES (0, 0, m.tnX, m.tnY, m.tnW, m.tnH, ;
      m.tnObjectContinuationType, m.tcWord, STRCONV(m.tcWord, 5), ;
      This.PageNo, 0, 0, 0)
* Add the information to be used to generate the outputs
* The width was enhanced in 30% to make sure that all words will be inserted in the outputs
SELECT (This.cAuxFullOutputAlias)
APPEND BLANK
GATHER NAME m.toFRX
REPLACE    FontFace   WITH    m.tcFont, ;
        FontSize   WITH    m.tnFontSize, ;
        FontStyle  with    m.tnFontStyle, ;
        PenRed       with    m.tnPenRed, ;
        PenGreen   WITH    m.tnPenGreen, ;
        PenBlue       WITH    m.tnPenBlue, ;
        FillRed       WITH    m.tnFillRed, ;
        FillGreen  WITH    m.tnFillGreen, ;
        FillBlue   WITH    m.tnFillBlue, ;
        Mode       WITH    0, ;
        Left       WITH    m.tnX, ;
        Top           WITH    m.tnY, ;
        Width       WITH    INT(m.tnW * 1.15), ;
        Height       WITH    m.tnH, ;
        FRXRECNO   WITH    m.tnRecNo, ;
        CONTTYPE   WITH    m.tnObjectContinuationType, ;
        CONTENTS   WITH    m.tcWord, ;
        UNCONTENTS WITH    STRCONV(m.tcWord, 5), ;
        Page       WITH    This.PageNo, ;
        FRXINDEX   WITH    m.tnRecNo ;
    IN (This.cAuxFullOutputAlias)
SELECT (m.lnSelect)
GO m.lnRecno
RETURN
ENDPROC
PROCEDURE Destroy
* Clear the watermark bitmap object
IF VARTYPE(This.oWatermarkBmp) = "O"
    This.oWatermarkBmp.Destroy()
    This.oWatermarkBmp = NULL
ENDIF
DODEFAULT()
ENDPROC
PROCEDURE EvaluateContents
LPARAMETERS m.nFRXRecno, m.oObjProperties
DO CASE
CASE ("*" $ m.oObjProperties.Text AND VARTYPE(m.oObjProperties.Value) = "N") OR ; && Adjust to fit size
          ("..." $ m.oObjProperties.Text AND VARTYPE(m.oObjProperties.Value) = "N")
    LOCAL lcFormat, lnValue
    m.lnValue = m.oObjProperties.Value
    TRY
        IF This.aRecords[m.nFRXRecno + This.nAdj, 3] = .T. && Already been here
            m.lcFormat = This.aRecords[m.nFRXRecno + This.nAdj, 4]
        ELSE
            LOCAL lnSession, lnSelect
            m.lnSession = SET("DataSession")
            m.lnSelect = SELECT()
            * Get the number format
            This.setFRXDataSession()
            SELECT FRX
            GO m.nFRXRecno
            m.lcFormat = FRX.Picture
            SET DATASESSION TO m.lnSession
            SELECT (m.lnSelect)
            This.aRecords[m.nFRXRecno + This.nAdj, 3] = .T.        && Already know that we need to stretch
            This.aRecords[m.nFRXRecno + This.nAdj, 4] = m.lcFormat && Save for future use
        ENDIF
        m.oObjProperties.Text = SPACE(1) + ALLTRIM(TRANSFORM(m.lnValue, &lcFormat.))
        m.oObjProperties.Reload = .T.
        This.aRecords[m.nFRXRecno + This.nAdj, 1] = m.oObjProperties
    CATCH TO m.loExc
        SET STEP ON
    ENDTRY
CASE This.aRecords[m.nFRXRecno + This.nAdj, 2] && <FJ> or <HF>
    This.aRecords[m.nFRXRecno + This.nAdj, 1] = m.oObjProperties
OTHERWISE
    DODEFAULT(m.nFRXRecno, m.oObjProperties)
ENDCASE
ENDPROC
PROCEDURE Init
WITH This
    .AddProperty("oGDIGraphics", NULL)
        && a reference to a GDIPlusX Graphics object
    .AddProperty("aRecords[1]")
        && an array of records in the FRX
    .AddProperty("lHasFJ", .F.)
    .AddProperty("nAdj", 0)
    .AddProperty("lNewPage", .F.)
    .AddProperty("lHasUserFld", .F.)
    * Watermarks
    .AddProperty("lUsingWatermark", .F.)
    .AddProperty("cWatermarkImage"       , "") && loFP.cWaterMarkImage
    .AddProperty("nWatermarkType"        , 1)  && 1 = colored ; 2 = greyscale  (1)
    .AddProperty("nWatermarkTransparency", 0)  && 0 = transparent ; 1 = opaque (.25)
    .AddProperty("nWatermarkWidthRatio"  , 0)  && 0 - 1 (.75)
    .AddProperty("nWatermarkHeightRatio" , 0)  && 0 - 1 (.75)
    .AddProperty("oWatermarkBmp"         , NULL)
ENDWITH
DODEFAULT()
ENDPROC
PROCEDURE BeforeReport
DODEFAULT()
WITH This
    TRY
        .oGDIGraphics = CREATEOBJECT("GPGraphics")
    CATCH
        .oGDIGraphics = NEWOBJECT("GPGraphics", "_GdiPlus.vcx")
    ENDTRY
    * Switch to the FRX cursor's datasession and for every record with the "<FJ>"
    * directive in the USER memo, flag in This.aRecords that we need to process it.
    * Then restore the datasession.
    .SetFRXDataSession()
    * Detect if we have the USER field. In FP DOS, this field did not exist.
    * http://foxypreviewer.codeplex.com/workitem/9236
    This.lHasUserFld = NOT EMPTY(FIELD("USER"))
    LOCAL lnAdj, lnOldSize
    m.lnAdj     = 0
    m.lnOldSize = 0
    m.lnOldSize = ALEN(.aRecords, 1)
    IF m.lnOldSize > 1
        m.lnAdj = m.lnOldSize
        This.nAdj = m.lnAdj
    ENDIF
    DIMENSION .aRecords[reccount() + m.lnAdj, 5]
    * Column 1 : Recno()
    * Column 2 : Has <FJ>
    * Column 3 : Stretched
    * Column 4 : Field Format (Picture)
    IF This.lHasUserFld
        SCAN FOR ('<FJ>' $ UPPER(USER)) OR ('<TF>' $ UPPER(USER))
            .aRecords[RECNO() + m.lnAdj, 2] = .T.
            .aRecords[RECNO() + m.lnAdj, 5] = UPPER(USER)
            .lHasFJ = .T.
        ENDSCAN FOR '<FJ>' $ UPPER(USER)
        .ResetDataSession()
    ENDIF
    * Watermarks
    IF VARTYPE(_Screen.oFoxyPreviewer) = "O"
        LOCAL loFP
        loFP = _Screen.oFoxyPreviewer
        .cWatermarkImage        = loFP.cWaterMarkImage
        .nWatermarkType         = loFP.nWatermarkType         && 1 = colored ; 2 = greyscale  (1)
        .nWatermarkTransparency = loFP.nWatermarkTransparency && 0 = transparent ; 1 = opaque (.25)
        .nWatermarkWidthRatio   = loFP.nWatermarkWidthRatio   && 0 - 1 (.75)
        .nWatermarkHeightRatio  = loFP.nWatermarkHeightRatio  && 0 - 1 (.75)
        IF (NOT FILE(.cWatermarkImage)) OR ;
            (.nWatermarkTransparency = 0) OR ;
            (.nWatermarkWidthRatio   = 0) OR ;
            (.nWatermarkHeightRatio  = 0)
            .lUsingWatermark = .F.
        ELSE
            .lUsingWatermark = .T.
            LOCAL loBmp AS GpBitmap OF HOME() + "\ffc\_gdiplus.vcx"
            loBmp = CREATEOBJECT("GpBitmap")
            loBmp.CreateFromFile(This.cWatermarkImage)
            IF (This.nWatermarkTransparency < 1) OR ;
                (This.nWatermarkType = 2) && 1 = colored ; 2 = greyscale
                * Applying the effects if necessary
                LOCAL loAtt   &&  AS GPATTRIB    OF "PR_GdiplusHelper.Prg"
                LOCAL lcMatrix AS COLORMATRIX OF "PR_GdiplusHelper.Prg"
                loAtt = NEWOBJECT("GpAttrib", "PR_GdiplusHelper.Prg")
                IF This.nWatermarkType = 2 && 1 = colored ; 2 = greyscale
                    lcMatrix = loAtt.ColorMatrix(;
                         .30, .30, .30,  0,  0, ;
                         .59, .59, .59,  0,  0, ;
                         .11, .11, .11,  0,  0, ;
                           0,   0,   0,  This.nWatermarkTransparency,  0, ;
                           0,   0,   0,  0,  1)
                ELSE
                    lcMatrix = loAtt.ColorMatrix(;
                           1,   0,   0,  0,  0, ;
                           0,   1,   0,  0,  0, ;
                           0,   0,   1,  0,  0, ;
                           0,   0,   0,  This.nWatermarkTransparency,  0, ;
                           0,   0,   0,  0,  1)
                ENDIF
                loAtt.ApplyColorMatrix(lcMatrix, loBmp, .F., 0xFFFFFF)
                loAtt = NULL
            ENDIF
            * Clear the watermark bitmap object
            IF VARTYPE(This.oWatermarkBmp) = "O"
                This.oWatermarkBmp.Destroy()
                This.oWatermarkBmp = NULL
            ENDIF
            .oWatermarkBmp = loBmp
        ENDIF
    ENDIF
ENDWITH
ENDPROC
PROCEDURE BeforeBand
LPARAMETERS m.nBandObjCode, m.nFRXRecNo
IF THIS.lHasFJ = .T. OR THIS.lExpandFields
    THIS.CallEvaluateContents = 2
ENDIF
#DEFINE frx_objcod_pageheader 1
IF nBandObjCode==frx_objcod_pageheader
    THIS.lNewPage = .T.
    IF NOT THIS.IsSuccessor
        THIS.sharedGdiplusGraphics = THIS.GDIPLUSGRAPHICS
    ENDIF
    THIS.oGdiGraphics.SetHandle(This.SharedGdiplusGraphics)
ENDIF
DODEFAULT(m.nBandObjCode, m.nFRXRecNo)
ENDPROC
PROCEDURE Render
LPARAMETERS m.tnFRXRecno, m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight,  m.tnObjectContinuationType, ;
        m.tcContentsToBeRendered, m.tiGDIPlusImage
* DODEFAULT(m.tnFRXRecno, m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight,  m.tnObjectContinuationType, ;
        m.tcContentsToBeRendered, m.tiGDIPlusImage)
* RETURN
* Check if field enlargement is needed
    IF This.aRecords(m.tnFRXRecno, 3) = .T.  && Using Expand fields
        m.tnWidth = m.tnWidth + 500
        m.tnLeft  = m.tnLeft  - 500
        m.tcContentsToBeRendered = STRCONV(This.aRecords(m.tnFRXRecno, 1).Text, 5)  && Convert to unicode, to allow it to store in the cursor
    ENDIF
CATCH
ENDTRY
* Adding the Watermark
IF This.lNewPage AND This.lUsingWatermark = .T.
    This.oGDIGraphics.SetHandle(IIF(This.IsSuccessor, ;
            This.SharedGDIPlusGraphics, This.GDIPlusGraphics))
    LOCAL lnX, lnY, lnWidth, lnHeight
    lnX = (1 - This.nWatermarkWidthRatio) / 2
    lnY = (1 - This.nWatermarkHeightRatio) / 2
    lnWidth  = This.nWatermarkWidthRatio
    lnHeight = This.nWatermarkHeightRatio
    * create a rectangle of the size of 60% of the report page
    LOCAL loRect as GpRectangle
    * loRect = .rectangle.new(lnx * this.sharedpagewidth, ;
            lny * this.sharedpageheight, ;
            this.sharedpagewidth * lnwidth, ;
            this.sharedpageheight * lnheight)
    * Create a rectangle
    loRect = CREATEOBJECT("GPRectangle", lnx * This.SharedPageWidth, ;
            lnY * this.sharedPageHeight, ;
            This.SharedPageWidth * lnWidth, ;
            This.SharedPageHeight * lnHeight)
    * Load the image file to gdi+
    LOCAL loBmp as GpBitmap OF ADDBS(HOME()) + "FFC\_Gdiplus.vcx"
    IF VARTYPE(This.oWatermarkBmp) = "O"
        loBmp = This.oWatermarkBmp
    ELSE
        loBmp = CREATEOBJECT("GpBitmap")
        loBmp.CreateFromFile(This.cWatermarkImage)
    ENDIF
    LOCAL loGfx as GpGraphics OF ADDBS(HOME()) + "FFC\_Gdiplus.vcx"
    loGfx = This.oGdiGraphics
    loGfx.DrawImageScaled(loBmp, loRect)
*!*             local loClrMatrix as xfcColorMatrix
*!*             if this.WatermarkType = 2 && 1 = colored ; 2 = greyscale
*!*                loclrmatrix = .imaging.colormatrix.new( ;
*!*                   .33, .33, .33, 0 , 0, ;
*!*                   .33, .33, .33, 0 , 0, ;
*!*                   .33, .33, .33, 0 , 0, ;
*!*                   0, 0, 0, this.watermarktransparency, 0, ;
*!*                   0, 0, 0, 0, 0)
*!*             else
*!*                loclrmatrix = .imaging.colormatrix.new()
*!*                loclrmatrix.matrix33 = this.watermarktransparency
*!*             endif
*!*             local loattr as xfcimageattributes
*!*             loattr = .imaging.imageattributes.new()
*!*             loattr.setcolormatrix(loclrmatrix)
*        This.oGdiGraphics.drawimage(loBmp, loRect, loBmp.GetBounds(), 2, loattr)
    This.lNewPage = .F.
ENDIF
*   dodefault(nfrxrecno,;
         nleft,ntop,nwidth,nheight,;
         nobjectcontinuationtype, ;
         ccontentstoberendered, gdiplusimage)
LOCAL loObject, ;
    lcText, ;
    llFJ, ;
    llTF, ;
    llFlag, ;
    loGfx   as GpGraphics   OF HOME() + "\FFC\_GdiPlus.vcx", ;
    loRect  as GpRectangle  OF HOME() + "\FFC\_GdiPlus.vcx", ;
    loFont  as GpFont       OF HOME() + "\FFC\_GdiPlus.vcx", ;
    loBrush    as GpSolidBrush OF HOME() + "\FFC\_GdiPlus.vcx", ;
    loColor    as GpColor      OF HOME() + "\FFC\_GdiPlus.vcx", ;
    lnAlpha, ;
    llStoreData
m.llStoreData = This.lStoreData
* Checking if the HTML formatting was chosen
IF VARTYPE(This.aRecords[m.tnFRXRecNo + This.nAdj, 5]) = "C"
    m.llTF = ('<TF>' $ This.aRecords[m.tnFRXRecNo + This.nAdj, 5]) AND (NOT EMPTY(STRCONV(m.tcContentsToBeRendered,6)))
ENDIF
    && We'll store the data only if not <TF>
    && The TF routine has its own storing data
    IF This.lStoreData AND (NOT llTF)
        This.StoreFRXData(m.tnFRXRecno, m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight,  m.tnObjectContinuationType, ;
            m.tcContentsToBeRendered, m.tiGDIPlusImage)
    ENDIF
* See if the current object is supposed to be fully-justified. If we're
* continuing to render a object from previous page because of text overflow,
* set a flag.
IF NOT This.lHasFJ && OR (_goHelper._nIndex > 1)
    This.lStoreData = .F.
    DODEFAULT(m.tnFRXRecNo, m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight, ;
        m.tnObjectContinuationType, m.tcContentsToBeRendered, ;
        m.tiGDIPlusImage)
    This.lStoreData = m.llStoreData
    RETURN
ENDIF
m.loObject = This.aRecords[m.tnFRXRecNo + This.nAdj, 1]
IF VARTYPE(m.loObject) = 'O'
    m.lcText = m.loObject.Text
    m.llFJ   = (LEFT(m.lcText, 4) = '<FJ>' or This.aRecords[m.tnFRXRecNo + This.nAdj, 2]) AND  ;
        (NOT EMPTY(STRCONV(m.tcContentsToBeRendered,6)))
ENDIF VARTYPE(m.loObject) = 'O'
*!*    * Checking if the HTML formatting was chosen
*!*    IF VARTYPE(This.aRecords[tnFRXRecNo + This.nAdj, 5]) = "C"
*!*        llTF = ('<TF>' $ This.aRecords[tnFRXRecNo + This.nAdj, 5])
*!*    ENDIF
IF m.llTF
    This.oGDIGraphics.SetHandle(IIF(This.IsSuccessor, ;
            This.SharedGDIPlusGraphics, This.GDIPlusGraphics))
    This.DrawStringInTF( ;
        m.tnFRXRecNo, m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight, m.tnObjectContinuationType, m.tcContentsToBeRendered, m.tiGDIPlusImage, ;
            m.lcText, ;
            m.loObject.FontName, m.loObject.FontSize, m.loObject.FontStyle, ;
            m.loObject.FillRed, m.loObject.FillGreen, m.loObject.FillBlue, ;
            m.loObject.PenRed, m.loObject.PenGreen, m.loObject.PenBlue)
    * Since we already drew the text, we don't want the default behavior to occur.
    NODEFAULT
    * Release the GDi+ objects used
    STORE "" TO m.loObject, m.loGfx, m.loRect, m.loFont, m.loBrush, m.loColor
    RETURN
ENDIF
IF m.llFJ
    IF m.tnObjectContinuationType > 0
        m.lcText = strconv(m.tcContentsToBeRendered, 6)
        IF INLIST(m.tnObjectContinuationType, 1, 2)
            m.llFlag = .T.
        ENDIF INLIST(m.tnObjectContinuationType, 1, 2)
    ENDIF m.tnObjectContinuationType > 0
    IF UPPER(LEFT(m.lcText, 4)) = '<FJ>'
        m.lcText = SUBSTR(m.lcText, 5) && Remove the <FJ> tag from string
    ENDIF UPPER(LEFT(m.lcText, 4)) = '<FJ>'
    m.lcText = STRTRAN(m.lcText,CHR(9),REPLICATE(CHR(160),8)) && Replaces the <TAB> With a CHR(160) to keep paragraphs
    * Set the GDI+ handle for our graphics object to the same one the report uses
    * (the property to use depends on whether this is a successor or not).
    This.oGDIGraphics.SetHandle(IIF(This.IsSuccessor, ;
            This.SharedGDIPlusGraphics, This.GDIPlusGraphics))
    * Create a rectangle
    m.loRect = CREATEOBJECT("GPRectangle", m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight)
    * Create a font object using the text object's settings.
    m.loFont = CREATEOBJECT("GPFont")
    m.loFont.Create(m.loObject.FontName, m.loObject.FontSize, m.loObject.FontStyle, 3)
    * If the text uses an opaque background, draw a rectangle in the chosen
    * background color using a solid brush.
    m.lnAlpha = m.loObject.FillAlpha
    IF m.lnAlpha <> 0
        m.loColor = CREATEOBJECT("gpColor", ;
                m.loObject.FillRed, ;
                m.loObject.FillGreen, ;
                m.loObject.FillBlue, ;
                m.lnAlpha )
        m.loBrush = CREATEOBJECT("gpSolidBrush", m.loColor)
        This.oGDIGraphics.FillRectangle(m.loBrush, m.tnLeft, ;
                m.tnTop, m.tnWidth, m.tnHeight)
    ENDIF m.lnAlpha <> 0
    m.loColor = CREATEOBJECT("gpColor", ;
                m.loObject.PenRed, ;
                m.loObject.PenGreen, ;
                m.loObject.PenBlue, ;
                m.loObject.PenAlpha)
    m.loBrush = CREATEOBJECT("gpSolidBrush", m.loColor)
    This.DrawStringJustified(m.lcText, m.loFont, ;
        m.loBrush, m.loRect, m.llFlag, This.oGDIGraphics)
    * If we're not drawing a full justified string, let VFP draw the text as usual.
    This.lStoreData = .F.
    DODEFAULT(m.tnFRXRecNo, m.tnLeft, m.tnTop, m.tnWidth, m.tnHeight, ;
        m.tnObjectContinuationType, m.tcContentsToBeRendered, ;
        m.tiGDIPlusImage)
    This.lStoreData = m.llStoreData
ENDIF m.llFJ
* Since we already drew the text, we don't want the default behavior to occur.
NODEFAULT
* Release the GDi+ objects used
STORE "" TO m.loObject, m.loGfx, m.loRect, m.loFont, m.loBrush, loColor
ENDPROC
PROCEDURE AfterReport
This.oGDIGraphics.SetHandle(0)
This.oGdiGraphics = ""
DODEFAULT()
ENDPROC
BorderStyle = 2
Height = 25
Width = 356
ShowWindow = 1
ShowInTaskBar = .F.
DoCreate = .T.
AutoCenter = .T.
Caption = "ThermForm"
ControlBox = .F.
HalfHeightCaption = .T.
MaxButton = .F.
MinButton = .F.
Visible = .F.
AlwaysOnTop = .T.
AllowOutput = .F.
_memberdata =
    3586<VFPDATA><memberdata name="applyfx" display="applyFX" type="method"/><memberdata name="percentdone" type="property" display="percentDone" favorites="False"/><memberdata name="currentrecord" type="property" display="currentRecord" favorites="False"/><memberdata name="designateddriver" type="property" display="designatedDriver" favorites="False"/><memberdata name="drivingaliascurrentrecno" type="property" display="drivingAliasCurrentRecno" favorites="False"/><memberdata name="escapereference" type="property" <VFPDATA><memberdata name="applyfx" display="applyFX" type="method"/><memberdata name="percentdone" type="property" display="percentDone" favorites="False"/><memberdata name="currentrecord" type="property" display="currentRecord" favorites="False"/><memberdata name="designateddriver" type="property" display="designatedDriver" favorites="False"/><memberdata name="drivingaliascurrentrecno" type="property" display="drivingAliasCurrentRecno" favorites="False"/><memberdata name="escapereference" type="property" <VFPDATA><memberdata name="applyfx" display="applyFX" type="method"/><memberdata name="percentdone" type="property" display="percentDone" favorites="False"/><memberdata name="currentrecord" type="property" display="currentRecord" favorites="False"/><memberdata name="designateddriver" type="property" display="designatedDriver" favorites="False"/><memberdata name="drivingaliascurrentrecno" type="property" display="drivingAliasCurrentRecno" favorites="False"/><memberdata name="escapereference" type="property" <VFPDATA><memberdata name="applyfx" display="applyFX" type="method"/><memberdata name="percentdone" type="property" display="percentDone" favorites="False"/><memberdata name="currentrecord" type="property" display="currentRecord" favorites="False"/><memberdata name="designateddriver" type="property" display="designatedDriver" favorites="False"/><memberdata name="drivingaliascurrentrecno" type="property" display="drivingAliasCurrentRecno" favorites="False"/><memberdata name="escapereference" type="property" <VFPDATA><memberdata name="applyfx" display="applyFX" type="method"/><memberdata name="percentdone" type="property" display="percentDone" favorites="False"/><memberdata name="currentrecord" type="property" display="currentRecord" favorites="False"/><memberdata name="designateddriver" type="property" display="designatedDriver" favorites="False"/><memberdata name="drivingaliascurrentrecno" type="property" display="drivingAliasCurrentRecno" favorites="False"/><memberdata name="escapereference" type="property" <VFPDATA><memberdata name="applyfx" display="applyFX" type="method"/><memberdata name="percentdone" type="property" display="percentDone" favorites="False"/><memberdata name="currentrecord" type="property" display="currentRecord" favorites="False"/><memberdata name="designateddriver" type="property" display="designatedDriver" favorites="False"/><memberdata name="drivingaliascurrentrecno" type="property" display="drivingAliasCurrentRecno" favorites="False"/><memberdata name="escapereference" type="property" <VFPDATA><memberdata name="applyfx" display="applyFX" type="method"/><memberdata name="percentdone" type="property" display="percentDone" favorites="False"/><memberdata name="currentrecord" type="property" display="currentRecord" favorites="False"/><memberdata name="designateddriver" type="property" display="designatedDriver" favorites="False"/><memberdata name="drivingaliascurrentrecno" type="property" display="drivingAliasCurrentRecno" favorites="False"/><memberdata name="escapereference" type="property" <V
successorsys2024 = ("N")
currentrecord = (0)
designateddriver = ("")
drivingaliascurrentrecno = (0)
escapereference = ("")
frxbandrecno = (0)
includeseconds = .T.
initstatustext = ("")
onescapecommand = ("")
percentdone = (0)
prepassstatustext = ("")
reportstartrundatetime = (DTOT({}))
reportstoprundatetime = (DTOT({}))
runstatustext = ("secs")
secondstext = ("")
thermcaption =
     284[m.cMessage+ " "+ TRANSFORM(THIS.PercentDone,"999"+IIF(THIS.ThermPrecision=0,"","."+REPL("9",THIS.ThermPrecision))) + "%" + IIF(NOT THIS.IncludeSeconds, "" , " "+TRANSFORM(IIF(THIS.IsRunning,DATETIME(), THIS.ReportStopRunDateTime)-THIS.ReportStartRunDateTime)+" " + THIS.SecondsText)]
thermformcaption = ("")
thermformheight = (40)
thermformwidth = (356)
thermmargin = (5)
setescape = .F.
setnotifycursor = .F.
isrunning = .F.
drivingalias = ("")
thermprecision = (0)
persistbetweenruns = .F.
ndelay = 3
Name = "foxytherm"
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _2680QAT8H 948405551
 WINDOWS _2680QAT8I1079378683
 WINDOWS _2680QAT8J1044843360o9
 WINDOWS _2680QAT8H1048857546
 WINDOWS _2680V3CAX1044843360
 WINDOWS _2680QAT8H1050152054
 WINDOWS _26B10MAPD1050152054
 WINDOWS _26B10MAPE1050152054
 WINDOWS _2680QAT8H1061424468
 WINDOWS _32N028ZA11044843360
 WINDOWS _32N028ZA21044843360
 WINDOWS _32N028ZA31061424756]N
 WINDOWS _32N028ZA41050152054_M
 WINDOWS _35602IRQH1044843360
 COMMENT RESERVED
VERSION =   3.00
dataenvironment
dataenvironment
Dataenvironment
aTop = 188
Left = 316
Width = 331
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
frmSendMail2
NDataSession = 1
BorderStyle = 3
Height = 492
Width = 690
Desktop = .T.
ShowWindow = 1
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Send report to email"
Closable = .F.
MaxButton = .T.
MinHeight = 250
MinWidth = 580
WindowType = 1
AlwaysOnTop = .T.
AllowOutput = .F.
ctempfile =
_memberdata = <VFPData><memberdata name="removeattachment" display="RemoveAttachment"/><memberdata name="_origautoyield" display="_OrigAutoYield"/><memberdata name="_origsys2333" display="_OrigSYS2333"/></VFPData>
_origautoyield = .F.
_origsys2333 = .F.
Name = "frmSendMail2"
PROCEDURE setlanguage
LOCAL loExc as Exception
    IF VARTYPE(_goHelper) = "O"
    WITH This
        .lblTo.Caption                        = _goHelper.GetLoc("TO")
        .lblSubject.Caption                   = _goHelper.GetLoc("SUBJECT")
        .cmdAttachment.ToolTipText            = _goHelper.GetLoc("ATTACHMENT")
        .cmbAttach.ToolTipText                = _goHelper.GetLoc("ATTACHMENT")
        .chkPriority.Caption    = _goHelper.GetLoc("PRIORITY")
        .chkReceipt.Caption     = _goHelper.GetLoc("RECEIPT")
        .chtmleditor1.tgBold.ToolTipText      = _goHelper.GetLoc("BOLD")
        .chtmleditor1.tgBold.Caption          = LEFT(_goHelper.GetLoc("BOLD"),1)
        .chtmleditor1.tgItalic.ToolTipText    = _goHelper.GetLoc("ITALIC")
        .chtmleditor1.tgItalic.Caption        = LEFT(_goHelper.GetLoc("ITALIC"),1)
        .chtmleditor1.tgUnderline.ToolTipText = _goHelper.GetLoc("UNDERLINE")
        .chtmleditor1.tgUnderline.Caption     = LEFT(_goHelper.GetLoc("UNDERLINE"),1)
        .chtmleditor1.tgLeft.ToolTipText      = _goHelper.GetLoc("ALIGNLEFT")
        .chtmleditor1.tgCenter.ToolTipText    = _goHelper.GetLoc("ALIGNCENTE")
        .chtmleditor1.tgRight.ToolTipText     = _goHelper.GetLoc("ALIGNRIGHT")
        .chtmleditor1.tgJustify.ToolTipText   = _goHelper.GetLoc("ALIGNJUSTI")
        .chtmleditor1.cmdHyperlink .ToolTipText = _goHelper.GetLoc("HYPERLINK")
        .chtmleditor1.cmdPicture.ToolTipText  = _goHelper.GetLoc("ADDPICTURE")
        .chtmleditor1.tgDecrease.ToolTipText  = _goHelper.GetLoc("INDENTREDU")
        .chtmleditor1.tgIncrease.ToolTipText  = _goHelper.GetLoc("INDENTINCR")
        .chtmleditor1.tgLine.ToolTipText      = _goHelper.GetLoc("HORIZBAR")
        .chtmleditor1.tgClean.ToolTipText     = _goHelper.GetLoc("CLEANFORMT")
        .chtmleditor1.tgBullet.ToolTipText    = _goHelper.GetLoc("LISTBULLET")
        .chtmleditor1.tgNumbers.ToolTipText   = _goHelper.GetLoc("LISTNUMBER")
        .chtmleditor1.cmdCopy.ToolTipText      = _goHelper.GetLoc("COPY")
        .chtmleditor1.cmdCut.ToolTipText       = _goHelper.GetLoc("CUT")
        .chtmleditor1.cmdPaste.ToolTipText     = _goHelper.GetLoc("PASTE")
        .chtmleditor1.cmdOpen.ToolTipText      = _goHelper.GetLoc("HTMLMODEL")
        .chtmleditor1.cmdSave.ToolTipText      = _goHelper.GetLoc("SAVEASHTML")
        .chtmleditor1.cmdNew.ToolTipText       = _goHelper.GetLoc("NEW")
        .chtmleditor1.cmdUndo.ToolTipText      = _goHelper.GetLoc("UNDO")
        .chtmleditor1.cmdRedo.ToolTipText      = _goHelper.GetLoc("REDO")
        .chtmleditor1.cmbFontName.ToolTipText = _goHelper.GetLoc("FONTNAME")
        .chtmleditor1.cmbFontSize.ToolTipText = _goHelper.GetLoc("FONTSIZE")
        .chtmleditor1.btnForeColor.ToolTipText = _goHelper.GetLoc("FONTCOLOR")
        .chtmleditor1.btnBackColor.ToolTipText = _goHelper.GetLoc("BACKCOLOR")
    ENDWITH
    ENDIF
CATCH TO loExc
    SET STEP ON
ENDTRY
RETURN
ENDPROC
PROCEDURE removeattachment
LOCAL lnOption, lcCancel, lcRemove
lnOption = 0
IF VARTYPE(_goHelper) = "O"
    lcCancel = _goHelper.GetLoc("CANCEL")
    lcRemove = _goHelper.GetLoc("REMOVEFILE")
    lcCancel = "Cancel"
    lcRemove = "Remove file"
ENDIF
LOCAL loList as ComboBox
loList = Thisform.CmbAttach
DEFINE POPUP MyShortCut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF MyShortCut PROMPT lcRemove + ": " + ;
    loList.ListItem(loList.ListIndex)
DEFINE BAR 2 OF MyShortCut PROMPT lcCancel
ON SELECTION POPUP MyShortCut lnOption = BAR()
ACTIVATE POPUP MyShortCut
IF lnOption = 1 && Remove file
    loList.RemoveListItem(loList.ListItemId)
    loList.ListIndex = 1
ENDIF
ENDPROC
PROCEDURE Load
SET TALK OFF
SET CONSOLE OFF
*!*    * Adjust some properties to make sure the WebBrowser active-X will work as desired
*!*    * http://www.tek-tips.com/viewthread.cfm?qid=1204873&page=168
*!*    This._OrigAutoYield = _VFP.AutoYield
*!*    This._OrigSYS2333   = VAL(SYS(2333, 2))
*!*    _VFP.AutoYield = .F.
*!*    SYS(2333, 1)
ENDPROC
PROCEDURE Unload
*!*    * Restore ActiveX settings
*!*    _VFP.AutoYield = This._OrigAutoYield
*!*    SYS(2333, This._OrigSYS2333)
IF NOT EMPTY(Thisform.cTempFile)
        DELETE FILE (Thisform.cTempFile)
    CATCH
    ENDTRY
ENDIF
RETURN Thisform.lCancelled
ENDPROC
PROCEDURE Activate
IF EMPTY(This.Comment)
    This.Width = This.Width + 1
    This.Comment = "Started"
ENDIF
ENDPROC
PROCEDURE Init
LPARAMETERS tcFile
* Thisform.lblAttachment.Caption = JUSTFNAME(tcFile)
IF NOT EMPTY(tcFile)
    WITH Thisform.CmbAttach as ComboBox
        .AddItem(JUSTFNAME(tcFile))
        .List(.NewIndex, 2) = tcFile
        .ListIndex = 1
        .Refresh()
    ENDWITH
ENDIF
LOCAL lcAttach, n, lcFile
lcAttach = _goHelper.cAttachments
IF NOT EMPTY(lcAttach)
    lcAttach = CHRTRAN(lcAttach, ";", ",")
    FOR m.n = 1 TO GETWORDCOUNT(lcAttach, ",")
        lcFile = GETWORDNUM(lcAttach, m.n, ",")
        IF NOT FILE(lcFile)
            LOOP
        ENDIF

        WITH Thisform.CmbAttach as ComboBox
            .AddItem(JUSTFNAME(lcFile))
            .List(.NewIndex, 2) = lcFile
            .ListIndex = 1
            .Refresh()
        ENDWITH
    ENDFOR
ENDIF
Thisform.AddProperty("lCancelled", .F.)
    This.Icon = _goHelper.cFormIcon
CATCH
ENDTRY
    WITH _goHelper
        This.txtDestination.Value = .cEmailTo
        This.txtSubject.Value     = .cEmailSubject
        * This.edtBody.Value        =    .cEmailBody
        This.chkPriority.Value    = .lPriority
        This.chkReceipt.Value     = .lReadReceipt
        This.Caption              = .GetLoc("SENDEMAIL")
        This.CmdCancel.Caption    = .GetLoc("CANCEL")
        This.CmdSend.Caption      = .GetLoc("SEND")
        This.lblSubject.Caption   = .GetLoc("SUBJECT")
        This.lblTo.Caption        = .GetLoc("TO")
        TRY
            IF NOT EMPTY(_goHelper.cEmailBody) OR NOT EMPTY(_goHelper.cEmailBodyFile)
                LOCAL lcHTMLFile
                IF NOT EMPTY(_goHelper.cEmailBody)
                    lcHTMLfile = FORCEEXT(ADDBS(SYS(2023))+SYS(2015),"htm")
                    STRTOFILE(_goHelper.cEmailBody, lcHTMLFile)
                    Thisform.cTempFile = lcHTMLFile
                    INKEY(.1)
                ELSE
                    lcHTMLfile = _goHelper.cEmailBodyFile
                ENDIF
                IF FILE(lcHTMLfile)
                    WITH Thisform.Chtmleditor1.oIE
                        .Navigate(lcHTMLFile)
                        DO WHILE .ReadyState != 4
                            DOEVENTS
                        ENDDO
                        .Document.Body.contentEditable = .T.
                    ENDWITH
                    IF lcHTMLfile ==_goHelper.cEmailBodyFile && Whithout this the "cEmailBodyFile" will be always deleted!!... by Nick Porfyris [20101213]...
                    ELSE
                        DELETE FILE (lcHTMLFile)
                    ENDIF
                ENDIF
            ENDIF
        CATCH
            MESSAGEBOX("Could not load the HTML body file", 48, "Error loading HTML")
        ENDTRY
    ENDWITH
CATCH
ENDTRY
This.SetLanguage()
RETURN
*!*    XP Style WebBrowser Control
*!*    I'm sure there is more then me that been looking for a way to get the XP style in the WebBrowser Control.
*!*    To enable the XP style in your web pages that you load in your WebBrowser Control put the following line in your head tags:
*!*    Code:
*!*    <META HTTP-EQUIV='MSThemeCompatible' CONTENT='Yes'>
*!*    * Testing code
*!*    TEXT TO lcHTML NOSHOW
*!*    <HTML><HEAD>
*!*    <STYLE></STYLE>
*!*    </HEAD>
*!*    <BODY bgColor=#ffffff>
*!*    <FONT face=Verdana size=2>
*!*    <<lcLogoImg>>
*!*    To<BR></FONT>
*!*    <<tcHTMLbody>>
*!*    <BR>
*!*    <BR>
*!*    <FONT face=Verdana size=2>Sincerely</FONT>
*!*    <P></P>
*!*    <BR>
*!*    <HR><STRONG>
*!*    <FONT face=Verdana size=1>FoxyPreviewer team.</FONT></STRONG>
*!*    <FONT face=Arial color=black size=1><BR>
*!*    <FONT face=Verdana>1818 Super Street  -  Your Home<BR>05432-030  -  Your City -  XX</FONT><BR>
*!*    <FONT face=Wingdings color=black size=2>(</FONT><STRONG> </STRONG>
*!*    <FONT face=Verdana>Phone: 1 11 - 3322.2233 <BR></FONT>
*!*    <FONT face=Wingdings color=black size=2>(</FONT>
*!*    <FONT face=Verdana>Fax:   2 11 - 3366.6656<BR></FONT>
*!*    <FONT face=Wingdings color=black size=2>*</FONT>
*!*    <A href="mailto:[e-mail]"><FONT face=Verdana>[e-mail]</FONT></A> </FONT>
*!*    <BR>
*!*    </HTML>
*!*    ENDTEXT
*!*        SET TEXTMERGE ON
*!*        lcHTML = TEXTMERGE(lcHTML,.T.,"<<",">>")
*!*
*!*        lcFile = FORCEEXT(ADDBS(SYS(2023))+SYS(2015),"htm")
*!*        Thisform.cTempFile = lcFile
*!*        STRTOFILE(lcHTML, lcFile)
*!*        WITH Thisform.Chtmleditor1.oIE
*!*            .Navigate(lcFile)
*!*            DO WHILE .ReadyState != 4
*!*                DOEVENTS
*!*            ENDDO
*!*            .Document.Body.contentEditable = .T.
*!*        ENDWITH
* Article with all the EXECWB commands available
* http://delphicikk.atw.hu/listaz.php?id=1391&oldal=41
ENDPROC
pr_AdressBook(
LCADRESS
LCORIGADRESS
_GOHELPER
CADRESSTABLE
CADRESSSEARCH
PR_ADRESSBOOK
THISFORM
TXTDESTINATION
VALUE
SETFOCUS
THIS
LOSTFOCUS
LOEXC
Click,
THISFORM
LCANCELLED
RELEASE
Click,
The email can't be sent because there is no FoxyPreviewer report active!
Error
<HTML>
</HTML>
contentEditable=true
COMBOBOX
THISFORM
CHTMLEDITOR1
LTOGGLEUPDATE
LCHTML
LCATTACH
_GOHELPER
CEMAILTO
TXTDESTINATION
VALUE
CEMAILSUBJECT
TXTSUBJECT
DOCUMENT
BODY
OUTERHTML
CEMAILBODY
CMBATTACH
LISTCOUNT
_CATTACHMENT
LREADRECEIPT
CHKRECEIPT
LPRIORITY
CHKPRIORITY
RELEASE
Click,
THISFORM
REMOVEATTACHMENT'
ATTACHFILE
COMBOBOX
LCFILE
_GOHELPER
GETLOC
THISFORM
CMBATTACH
ADDITEM
NEWINDEX
REFRESH
VALUE
LCTTIP
LISTCOUNT
TOOLTIPTEXT
RightClick,
Click\
THISFORM
REMOVEATTACHMENT
RightClick,
WIDTH
PARENT
HEIGHT
SAVEASHTML
HTMLDEFA
Save as HTML
Make the saved file the default email body in the next sessions?
Htm;Html
<HTML>
</HTML>
contentEditable=true
FoxyPreviewer_Settings.dbf
CEMAILBODYFILE
cEmailBodyFile
Error updating the settings fileC
Line:
Error
LCHTML
LCFILE
LCLOCTEXT
_GOHELPER
GETLOC
COUTPUTPATH
LCQUESTION
THISFORM
CHTMLEDITOR1
DOCUMENT
BODY
OUTERHTML
LCALIAS
PROPERTY
CVALUE
LOEXC
ERRORNO
MESSAGE
LINENO
LINECONTENTS
Resize,
cmdSave.Click
Arial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 12, 8, 20, 15, 42, 4, 1
Arial, 2, 12, 7, 20, 16, 30, 3, 1
Arial, 4, 12, 7, 19, 15, 43, 3, 1
Wingdings, 0, 12, 14, 17, 14, 22, 3, 0
Wingdings, 0, 10, 12, 15, 12, 18, 3, 0
Arial, 0, 10, 6, 16, 13, 35, 3, 0
Arial, 0, 8, 5, 14, 11, 29, 3, 0
frmSendMail2
Command1
commandbutton
commandbutton
IPROCEDURE Click
Thisform.lCancelled = .T.
Thisform.Release()
ENDPROC
ctempfile
_memberdata XML Metadata for customizable properties
_origautoyield
_origsys2333
*setlanguage
*removeattachment
chtmleditor
pr_htmledit.vcx
    container
Chtmleditor1
frmSendMail2
Anchor = 15
Top = 84
Left = 1
Width = 655
Height = 365
BorderWidth = 0
TabIndex = 3
Name = "Chtmleditor1"
oIE.Top = 48
oIE.Left = 0
oIE.Height = 120
oIE.Width = 132
oIE.TabIndex = 1
oIE.Name = "oIE"
tgBold.Alignment = 0
tgBold.TabIndex = 23
tgBold.Name = "tgBold"
tgItalic.Alignment = 0
tgItalic.TabIndex = 24
tgItalic.Name = "tgItalic"
tgUnderline.Alignment = 0
tgUnderline.TabIndex = 25
tgUnderline.Name = "tgUnderline"
tgLeft.Alignment = 0
tgLeft.TabIndex = 10
tgLeft.Name = "tgLeft"
tgCenter.Alignment = 0
tgCenter.TabIndex = 11
tgCenter.Name = "tgCenter"
tgRight.Alignment = 0
tgRight.TabIndex = 12
tgRight.Name = "tgRight"
btnForeColor.TabIndex = 26
btnForeColor.Name = "btnForeColor"
btnBackColor.TabIndex = 27
btnBackColor.Name = "btnBackColor"
cmbFontName.Height = 23
cmbFontName.Left = 0
cmbFontName.TabIndex = 21
cmbFontName.Top = 24
cmbFontName.Width = 154
cmbFontName.Name = "cmbFontName"
cmbFontSize.Alignment = 2
cmbFontSize.Height = 23
cmbFontSize.Left = 159
cmbFontSize.TabIndex = 22
cmbFontSize.Top = 24
cmbFontSize.Width = 47
cmbFontSize.Name = "cmbFontSize"
tgIncrease.Alignment = 0
tgIncrease.TabIndex = 16
tgIncrease.Name = "tgIncrease"
tgDecrease.Alignment = 0
tgDecrease.TabIndex = 15
tgDecrease.Name = "tgDecrease"
tgBullet.Alignment = 0
tgBullet.TabIndex = 14
tgBullet.Name = "tgBullet"
tgNumbers.Alignment = 0
tgNumbers.TabIndex = 29
tgNumbers.Name = "tgNumbers"
cmdHyperlink.TabIndex = 18
cmdHyperlink.Name = "cmdHyperlink"
cmdPicture.TabIndex = 19
cmdPicture.Name = "cmdPicture"
Label1.Left = 453
Label1.Top = 28
Label1.Visible = .F.
Label1.TabIndex = 28
Label1.Name = "Label1"
tgJustify.Alignment = 0
tgJustify.TabIndex = 13
tgJustify.Name = "tgJustify"
cmdOpen.Name = "cmdOpen"
cmdSave.cpropertyname =
cmdSave.Name = "cmdSave"
cmdNew.Name = "cmdNew"
cmdCut.cpropertyname = Cut
cmdCut.Name = "cmdCut"
cmdCopy.cpropertyname = Copy
cmdCopy.Name = "cmdCopy"
cmdPaste.cpropertyname = Paste
cmdPaste.Name = "cmdPaste"
cmdUndo.cpropertyname = Undo
cmdUndo.Name = "cmdUndo"
cmdRedo.cpropertyname = Redo
cmdRedo.Name = "cmdRedo"
tgLine.TabIndex = 17
tgLine.Alignment = 0
tgLine.Name = "tgLine"
tgCLean.Top = 0
tgCLean.Left = 503
tgCLean.TabIndex = 20
tgCLean.Alignment = 0
tgCLean.Name = "tgCLean"
lPROCEDURE Resize
This.width=this.parent.width
This.height=this.parent.height - 115 &&  72
*!*    *this.top=0
*!*    *this.left=0
This.oIE.Width  = This.Width - 2
This.oIE.Height = This.Height - 60
ENDPROC
PROCEDURE cmdSave.Click
LOCAL lcHTML, lcFile, lcLocText
IF VARTYPE(_goHelper) = "O"
    lcLocText = _goHelper.GetLoc("SAVEASHTML")
    lcFile = IIF(EMPTY(_goHelper.cOutputPath), "", ADDBS(_goHelper.cOutputPath))
    lcQuestion = _goHelper.GetLoc("HTMLDEFA")
    lcLocText = "Save as HTML"
    lcFile = ""
    lcQuestion = "Make the saved file the default email body in the next sessions?"
ENDIF
lcFile = PUTFILE(lcLocText + "...", lcFile, "Htm;Html")
IF NOT EMPTY(lcFile)
    lcHTML = "<HTML>" + Thisform.Chtmleditor1.oIE.Document.Body.OuterHTML + "</HTML>"
    lcHTML = STRTRAN(lcHTML, "contentEditable=true", "")
    STRTOFILE(lcHTML, lcFile)
    IF MESSAGEBOX(lcQuestion, 32 + 4, lcLocText) = 6 && Yes
        LOCAL lcAlias
        lcAlias  = SYS(2015)
        TRY
            USE ("FoxyPreviewer_Settings.dbf") IN 0 AGAIN SHARED ALIAS (lcAlias) && FP_Settings
            SELECT(lcAlias)
            LOCATE FOR ALLTRIM(UPPER(property)) == "CEMAILBODYFILE"
            IF EOF()
                APPEND BLANK
                REPLACE Property WITH "cEmailBodyFile", ;
                    cValue WITH lcFile ;
                    IN (lcAlias)
            ELSE
                REPLACE cValue WITH lcFile IN (lcAlias)
            ENDIF
        CATCH TO loExc
            MESSAGEBOX("Error updating the settings file" + CHR(13) + CHR(13) + ;
                TRANSFORM(loExc.ERRORNO) + " - " + loExc.MESSAGE + CHR(13) + ;
                "Line: " + TRANSFORM(loExc.LINENO) + " - " + loExc.LINECONTENTS, 16, "Error")
            SET STEP ON
        ENDTRY
        USE IN SELECT(lcAlias)
    ENDIF
ENDIF
ENDPROC
PROCEDURE Click
LOCAL lcAdress, lcOrigAdress
lcAdress = ""
    IF NOT EMPTY(_goHelper.cAdressTable) AND NOT EMPTY(_goHelper.cAdressSearch)
        DO FORM pr_AdressBook ;
            WITH _goHelper.cAdressTable, _goHelper.cAdressSearch ;
            TO lcAdress
        IF NOT EMPTY(lcAdress) AND VARTYPE(lcAdress) = "C"
            lcOrigAdress = ALLTRIM(Thisform.TxtDestination.Value)
            IF EMPTY(lcOrigAdress)
                Thisform.TxtDestination.Value = lcAdress
            ELSE
                Thisform.TxtDestination.Value = lcOrigAdress + ";" + lcAdress
            ENDIF
            Thisform.TxtDestination.SetFocus()
        ELSE
            This.LostFocus()
        ENDIF
    ENDIF
CATCH TO loExc
    SET STEP ON
ENDTRY
ENDPROC
Top = 12
Left = 5
Height = 23
Width = 23
Picture = images\pr_adress.bmp
Caption = ""
TabIndex = 6
TabStop = .F.
SpecialEffect = 2
Name = "Command1"
Top = 456
Left = 591
Height = 27
Width = 84
Anchor = 12
Cancel = .T.
Caption = "Cancel"
TabIndex = 5
Name = "cmdCancel"
frmSendMail2
    cmdCancel
commandbutton
commandbutton
Top = 456
Left = 495
Height = 27
Width = 84
Anchor = 12
Picture = images\pr_sendmessage.bmp
Caption = "Send"
TabIndex = 4
PicturePosition = 0
Name = "cmdSend"
frmSendMail2
cmdSend
commandbutton
commandbutton
AutoSize = .T.
BackStyle = 0
Caption = "Subject:"
Height = 17
Left = 8
Top = 50
Width = 46
TabIndex = 12
Name = "lblSubject"
frmSendMail2
textbox
textbox
txtDestination
frmSendMail2
Format = "K"
Height = 23
Left = 110
MaxLength = 255
TabIndex = 1
Top = 12
Width = 386
AutoComplete = 2
AutoCompTable = "FoxyPreviewer_Emails"
Name = "txtDestination"
textbox
textbox
TxtSubject
frmSendMail2
aFormat = "K"
Height = 23
Left = 110
TabIndex = 2
Top = 48
Width = 386
Name = "TxtSubject"
checkbox
checkbox
chkPriority
frmSendMail2
Top = 108
Left = 537
Height = 13
Width = 148
Alignment = 0
Caption = "Priority"
Value = .F.
TabIndex = 9
Visible = .T.
Name = "chkPriority"
checkbox
checkbox
chkReceipt
frmSendMail2
Top = 84
Left = 537
Height = 13
Width = 148
Alignment = 0
Caption = "Read receipt"
Value = .F.
TabIndex = 11
Visible = .T.
Name = "chkReceipt"
combobox
combobox
    cmbAttach
frmSendMail2
FontSize = 8
ColumnCount = 2
ColumnWidths = "160,0"
Height = 24
ColumnLines = .F.
Left = 537
Style = 2
TabIndex = 8
Top = 48
Width = 141
Name = "cmbAttach"
<PROCEDURE RightClick
Thisform.RemoveAttachment()
ENDPROC
lblSubject
label
label
}AutoSize = .T.
BackStyle = 0
Caption = "To:"
Height = 17
Left = 29
Top = 14
Width = 19
TabIndex = 10
Name = "lblTo"
frmSendMail2
lblTo
label
commandbutton
commandbutton
cmdAttachment
frmSendMail2
Top = 48
Left = 504
Height = 23
Width = 23
Picture = images\pr_attach.bmp
Caption = ""
TabIndex = 7
SpecialEffect = 2
Name = "cmdAttachment"
~PROCEDURE RightClick
Thisform.RemoveAttachment()
ENDPROC
PROCEDURE Click
LOCAL lcFile
lcFile = GETFILE("", _goHelper.GetLoc("ATTACHFILE"))
* lcFile = GETFILE('', 'Anexar arquivo:', 'Anexar', 0, 'Anexar Arquivo')
IF NOT EMPTY(lcFile)
    WITH Thisform.CmbAttach as ComboBox
        .AddItem(JUSTFNAME(lcFile))
        .List(.NewIndex, 2) = lcFile
        .Refresh()
    ENDWITH
    Thisform.CmbAttach.Value = JUSTFNAME(lcFile)
    LOCAL n, lcTTip
    lcTtip = ""
    FOR m.n = 1 TO Thisform.cmbAttach.ListCount
        lcTTip = lcTTip + Thisform.CmbAttach.List(m.n,1) + CHR(13)
    ENDFOR
    Thisform.cmbAttach.ToolTipText = lcTTip
ENDIF
RETURN
ENDPROC
label
PROCEDURE Click
Thisform.cHtmleditor1.lToggleUpdate = .F.
LOCAL lcHTML, lcAttach, i
IF VARTYPE(_GoHelper) <> "O"
    MESSAGEBOX("The email can't be sent because there is no FoxyPreviewer report active!", 16, "Error")
    RETURN
ENDIF
WITH _goHelper
    .cEmailTo      = ALLTRIM(Thisform.txtDestination.Value)
    .cEmailSubject = ALLTRIM(Thisform.txtSubject.Value)
    lcHTML = "<HTML>" + Thisform.Chtmleditor1.oIE.Document.Body.OuterHTML + "</HTML>"
    lcHTML = STRTRAN(lcHTML, "contentEditable=true", "")
    .cEmailBody = lcHTML
    lcAttach = ""
    WITH Thisform.CmbAttach as ComboBox
        FOR m.i = 1 TO .ListCount
            lcAttach = lcAttach + .List(m.i, 2) + ","
        ENDFOR
    ENDWITH
    lcAttach = LEFT(lcAttach, LEN(lcAttach) - 1)
    ._cAttachment   = lcAttach
    .lReadReceipt  = Thisform.chkReceipt.Value
    .lPriority     = Thisform.chkPriority.Value
ENDWITH
Thisform.Release()
RETURN
ENDPROC
EXCEPTION
SUBJECT
ATTACHMENT
ATTACHMENT
PRIORITY
RECEIPT
ITALIC
ITALIC
UNDERLINE
UNDERLINE
ALIGNLEFT
ALIGNCENTE
ALIGNRIGHT
ALIGNJUSTI
HYPERLINK
ADDPICTURE
INDENTREDU
INDENTINCR
HORIZBAR
CLEANFORMT
LISTBULLET
LISTNUMBER
PASTE
HTMLMODEL
SAVEASHTML
FONTNAME
FONTSIZE
FONTCOLOR
BACKCOLOR
LOEXC
_GOHELPER
LBLTO
CAPTION
GETLOC
LBLSUBJECT
CMDATTACHMENT
TOOLTIPTEXT
CMBATTACH
CHKPRIORITY
CHKRECEIPT
CHTMLEDITOR1
TGBOLD
TGITALIC
TGUNDERLINE
TGLEFT
TGCENTER
TGRIGHT
TGJUSTIFY
CMDHYPERLINK
CMDPICTURE
TGDECREASE
TGINCREASE
TGLINE
TGCLEAN
TGBULLET
TGNUMBERS
CMDCOPY
CMDCUT
CMDPASTE
CMDOPEN
CMDSAVE
CMDNEW
CMDUNDO
CMDREDO
CMBFONTNAME
CMBFONTSIZE
BTNFORECOLOR
BTNBACKCOLORr
CANCEL
REMOVEFILE
Cancel
Remove file
COMBOBOX
lnOption = BAR()
LNOPTION
LCCANCEL
LCREMOVE
_GOHELPER
GETLOC
LOLIST
THISFORM
CMBATTACH
MYSHORTCUT
LISTITEM
LISTINDEX
REMOVELISTITEM
LISTITEMID
THISFORM
CTEMPFILE
LCANCELLEDG
Started
COMMENT
WIDTH|
COMBOBOX
COMBOBOX
lCancelled-
SENDEMAIL
CANCEL
SUBJECT
Could not load the HTML body file
Error loading HTML
TCFILE
THISFORM
CMBATTACH
ADDITEM
NEWINDEX
LISTINDEX
REFRESH
LCATTACH
LCFILE
_GOHELPER
CATTACHMENTS
ADDPROPERTY
ICON
CFORMICON
TXTDESTINATION
VALUE
CEMAILTO
TXTSUBJECT
CEMAILSUBJECT
CHKPRIORITY
LPRIORITY
CHKRECEIPT
LREADRECEIPT
CAPTION
GETLOC
CMDCANCEL
CMDSEND
LBLSUBJECT
LBLTO
CEMAILBODY
CEMAILBODYFILE
LCHTMLFILE
CTEMPFILE
CHTMLEDITOR1
NAVIGATE
READYSTATE
DOCUMENT
CONTENTEDITABLE
SETLANGUAGE
setlanguage,
removeattachment
Unload&
Activate
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _1740W7OC6 813201933
 COMMENT RESERVED
 WINDOWS _1740WXCG0 813202935
 COMMENT RESERVED
 WINDOWS _1740QHB8J 827741504@F
 COMMENT RESERVED
 WINDOWS _1740W78J0 922511065q
 COMMENT RESERVED
 WINDOWS _1731BXUH2 925330000mF
 COMMENT RESERVED
 WINDOWS _1740S4S5B1031176059
 COMMENT RESERVED
 WINDOWS _1740QGBYD1033747498
 WINDOWS _1740RH5FM 925330789
 WINDOWS _1740S7WUJ1030405923qR
 WINDOWS _1740SF2VG1030405923
 WINDOWS _1740SF2W01030405923    Q
 WINDOWS _1740SNVJQ1030402864
 WINDOWS _1740SNVKA1030402864
 WINDOWS _1740W7OC61030402864
 WINDOWS _1740W7OC61030402864
 WINDOWS _1740W0P9C1033746905
 WINDOWS _1740WA4YL1030402864
 WINDOWS _1740X64WS1030402864
 WINDOWS _1740Y1B1R1030402864
 WINDOWS _1740Y1B2B1030402864f>
 WINDOWS _1740YB8XA1030402864D=
 WINDOWS _1740YB8XU1030402864!<
 WINDOWS _1740Z7TQJ1030402864
 WINDOWS _1740Z7TRD1030402864
 WINDOWS _1750K7E5L1030402132T8
 WINDOWS _32M1DWMRJ1030402864
 WINDOWS _3300XEAYB1031175409
 WINDOWS _3300XEAYC1031176583P1
 WINDOWS _3300XEAYD1031175409
 WINDOWS _3300XEAYE1031176033R.
 WINDOWS _3300XEAYR1031176285:-
 WINDOWS _3300XEAYS1031176285
 WINDOWS _3300XEAYT1031176285
 WINDOWS _3300XEAYU1031176285
 WINDOWS _3300YECRE1031176285
 WINDOWS _1740W7OC6 813201933
 COMMENT RESERVED
VERSION =   3.00
!Arial, 0, 9, 5, 15, 12, 16, 3, 0
Pixels
Class
combobox
cpropertyname
_memberdata
combobox
about:blank
PARENT
NAVIGATE
READYSTATE
REFRESH
Click,
InsertImagea
PARENT
DOCUMENT
EXECCOMMAND
Click,
Pixels
pr_HtmlEdit.vcx
pr_HtmlEdit.vcx
LCFILE
PARENT
NAVIGATE
READYSTATE
DOCUMENT
CONTENTEDITABLE
REFRESH
SETFOCUS
Click,
Inner
Outer
Importar texto de arquivo TXT
Copiar HTML
Copiar Texto
MESSAGEBOX(oThis.oIE.Document.Body.InnerHTML)
MESSAGEBOX(oThis.oIE.Document.Body.OuterHTML)
oThis.oIE.Document.Body.innerHTML = GETFILE("txt")
_ClipText = oThis.oIE.Document.Body.innerHTML
_ClipText = oThis.oIE.Document.Body.innerTEXT
OTHIS
PARENT
Click,
CreateLinka
PARENT
DOCUMENT
EXECCOMMAND
Click,
FontSize-
PARENT
DOCUMENT
EXECCOMMAND
VALUE
InteractiveChange,
FontName-
PARENT
DOCUMENT
EXECCOMMAND
DISPLAYVALUE
InteractiveChange,
ForeColor-
LNCOLOR
LCCOLOR
PARENT
DOCUMENT
EXECCOMMAND
Click,
chtmleditor
combobox
HHeight = 23
Width = 177
cpropertyname = FontName
Name = "cfontname"
PROCEDURE Init
This.AddProperty("aNames[1]","")
=AFONT(This.aNames)
This.RowSource = "This.aNames"
This.RowSourceType = 5
This.Value = "Arial"
ENDPROC
    cfontname
nHeight = 23
Style = 2
TabStop = .F.
Width = 100
_memberdata =
     526<?xml version="1.0"     encoding="Windows-1252" standalone="yes" ?>
<VFPData>
<memberdata name="foomethod" type="method"     display="fooMethod"     favorites="True"/>
<memberdata name="_cbo" type="property" display="_cbo" favorites="True"/>
<memberdata name="_memberdata" type="property" display="_MemberData" favorites="True"/>
<memberdata name="baseclass" type="property" display="BaseClasS" favorites="True"/>
<memberdata name="error" type="method" display="eRRor" favorites="True"/>
</VFPData>
Name = "_cbo"
BackColor-
LNCOLOR
LCCOLOR
PARENT
DOCUMENT
EXECCOMMAND
BGCOLOR
Click,
COMMAND
ENABLE
PARENT
TOGGLESTATUS
PARENT
ACTIVATECOMMANDS
CommandStateChange,
DownloadComplete
CTOGGLE
OTOGGLE
OBJECTS
CLASS
DOCUMENT
QUERYCOMMANDENABLED
CPROPERTYNAME
CTOGGLE
LTOGGLEUPDATE
OTOGGLE
LOCATIONURL
OBJECTS
CLASS
VALUE
DOCUMENT
QUERYCOMMANDVALUE
CPROPERTYNAME
PARENTCLASS
JUSTIFYC
JustifyNone
TCPROPERTYNAME
DOCUMENT
QUERYCOMMANDVALUE
EXECCOMMAND
SETFOCUSg
WIDTH
PARENT
HEIGHT
RESIZE
DOCUMENT
BODY
OUTERHTML
activatecommands,
togglestatus
toggle-
Resize
RightClick
CPROPERTYNAME
PARENT
TOGGLE
Click,
DOCUMENT
CONTENTEDITABLEz
about:blank
LNLOADTIMEOUT
OBJECT
NAVIGATE
LNSTARTSECONDS
READYSTATE=
LFIRSTREFRESH
DOCUMENT
CONTENTEDITABLE
DownloadComplete,
Initn
Refresh/
PARENT
TOGGLE
CPROPERTYNAME
Click,
DblClickn
RightClicky
ADDITEM
Init,
Class
    container
chtmleditor
aNames[1]
This.aNames
Arial
ADDPROPERTY
ANAMES
ROWSOURCE
ROWSOURCETYPE
VALUE
Init,
Arial, 1, 12, 8, 20, 15, 42, 4, 1
Arial, 2, 12, 7, 20, 16, 30, 3, 1
Arial, 4, 12, 7, 19, 15, 43, 3, 1
Wingdings, 0, 12, 14, 17, 14, 22, 3, 0
Wingdings, 0, 10, 12, 15, 12, 18, 3, 0
Arial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 10, 6, 16, 13, 35, 3, 0
Top = 24
Left = 428
Picture = images\pr_clean.bmp
Caption = ""
ToolTipText = "Remove formatting"
SpecialEffect = 2
Alignment = 0
cpropertyname = RemoveFormat
Name = "tgClean"
chtmleditor
tgClean
commandbutton
pr_htmledit.vcx
cbutton
Top = 0
Left = 428
FontName = "Arial"
Caption = "--"
ToolTipText = "Insert horizontal line"
SpecialEffect = 2
Alignment = 2
cpropertyname = InsertHorizontalRule
Name = "tgLine"
chtmleditor
tgLine
commandbutton
pr_htmledit.vcx
cbutton
Top = 0
Left = 183
Picture = images\pr_redo.bmp
Caption = ""
ToolTipText = "Redo"
SpecialEffect = 2
Alignment = 0
cpropertyname = Redo
Name = "cmdRedo"
chtmleditor
cmdRedo
commandbutton
pr_htmledit.vcx
cbutton
Top = 0
Left = 159
FontName = "Wingdings"
Picture = images\pr_undo.bmp
Caption = ""
ToolTipText = "Undo"
SpecialEffect = 2
Alignment = 0
cpropertyname = Undo
Name = "cmdUndo"
chtmleditor
cmdUndo
commandbutton
pr_htmledit.vcx
cbutton
Top = 0
Left = 131
FontName = "Wingdings"
Picture = images\pr_paste.bmp
Caption = ""
ToolTipText = "Paste"
SpecialEffect = 2
Alignment = 0
cpropertyname = Paste
Name = "cmdPaste"
chtmleditor
cmdPaste
commandbutton
pr_htmledit.vcx
cbutton
Top = 0
Left = 107
FontName = "Wingdings"
Picture = images\pr_copy.bmp
Caption = ""
ToolTipText = "Copy"
SpecialEffect = 2
Alignment = 0
cpropertyname = Copy
Name = "cmdCopy"
chtmleditor
cmdCopy
commandbutton
pr_htmledit.vcx
cbutton
Top = 0
Left = 83
FontName = "Wingdings"
Picture = images\pr_cut.bmp
Caption = ""
ToolTipText = "Cut"
SpecialEffect = 2
Alignment = 0
cpropertyname = Cut
Name = "cmdCut"
chtmleditor
cmdCut
commandbutton
pr_htmledit.vcx
cbutton
PROCEDURE Click
WITH this.Parent.OiE
    .navigate("about:blank")
    DO WHILE (.busy) OR (.ReadyState != 4)
        DOEVENTS
    ENDDO
ENDWITH
this.Parent.refresh
ENDPROC
Top = 0
Left = 50
FontName = "Wingdings"
Picture = images\pr_new.bmp
Caption = ""
Enabled = .T.
ToolTipText = "New..."
SpecialEffect = 2
Alignment = 0
Name = "cmdNew"
chtmleditor
cmdNew
commandbutton
pr_htmledit.vcx
cbutton
Top = 0
Left = 26
FontName = "Wingdings"
Picture = images\pr_save.bmp
Caption = ""
Enabled = .T.
ToolTipText = "Save as HTML..."
SpecialEffect = 2
Alignment = 0
cpropertyname = SaveAs
Name = "cmdSave"
chtmleditor
cmdSave
commandbutton
pr_htmledit.vcx
cbutton
PROCEDURE Click
NODEFAULT
LOCAL lcFile
lcFile=GETFILE("htm*")
IF !EMPTY(lcFile)
    WITH this.Parent.oIE
        .Navigate(lcFile)
        DO WHILE .ReadyState != 4
            DOEVENTS
        ENDDO
        .Document.Body.contentEditable = .T.
        .Refresh()
        .SetFocus()
    ENDWITH
ENDIF
ENDPROC
Top = 0
Left = 2
FontName = "Wingdings"
Picture = images\pr_open.bmp
Caption = ""
Enabled = .T.
ToolTipText = "Open HTML file..."
SpecialEffect = 2
Alignment = 0
Name = "cmdOpen"
chtmleditor
cmdOpen
commandbutton
pr_htmledit.vcx
cbutton
Top = 0
Left = 288
Picture = images\pr_align_justify.bmp
Alignment = 0
Caption = ""
SpecialEffect = 2
ToolTipText = "Justify"
cpropertyname = JustifyFull
Name = "tgJustify"
chtmleditor
    tgJustify
checkbox
pr_htmledit.vcx
ctoggle
PROCEDURE Click
define popup pop1 shortcut
define bar 1 of pop1 prompt "Inner"
define bar 2 of pop1 prompt "Outer"
define bar 3 of pop1 prompt "Importar texto de arquivo TXT"
define bar 4 of pop1 prompt "Copiar HTML"
define bar 5 of pop1 prompt "Copiar Texto"
private oThis
oThis = This.Parent
on selection bar 1 of pop1 MESSAGEBOX(oThis.oIE.Document.Body.InnerHTML)
on selection bar 2 of pop1 MESSAGEBOX(oThis.oIE.Document.Body.OuterHTML)
on selection bar 3 of pop1 oThis.oIE.Document.Body.innerHTML = GETFILE("txt")
on selection bar 4 of pop1 _ClipText = oThis.oIE.Document.Body.innerHTML
on selection bar 5 of pop1 _ClipText = oThis.oIE.Document.Body.innerTEXT
activate popup pop1 AT MROW(),MCOL()
ENDPROC
AutoSize = .F.
Alignment = 2
BorderStyle = 1
Caption = "More..."
Height = 19
Left = 374
Top = 27
Width = 44
Name = "Label1"
chtmleditor
Label1
label
label
SPROCEDURE Click
This.Parent.oIE.Document.execCommand("InsertImage",.T.)
ENDPROC
Top = 0
Left = 474
Picture = images\pr_getimage.bmp
Caption = ""
ToolTipText = "Insert picture"
SpecialEffect = 2
Name = "cmdPicture"
chtmleditor
cmdPicture
commandbutton
pr_htmledit.vcx
cbutton
SPROCEDURE Click
This.Parent.oIE.Document.execCommand("CreateLink", .T.)
ENDPROC
Top = 0
Left = 451
Picture = images\pr_hyperlink.bmp
Caption = ""
ToolTipText = "Create a hyperlink"
SpecialEffect = 2
Name = "cmdHyperlink"
chtmleditor
cmdHyperlink
commandbutton
pr_htmledit.vcx
cbutton
Top = 0
Left = 341
Picture = images\pr_listnumber.bmp
Alignment = 0
Caption = ""
SpecialEffect = 2
ToolTipText = "Formatting numbers"
cpropertyname = InsertOrderedList
Name = "tgNumbers"
chtmleditor
    tgNumbers
checkbox
pr_htmledit.vcx
ctoggle
Top = 0
Left = 317
Picture = images\pr_listdot.bmp
Alignment = 0
Caption = ""
SpecialEffect = 2
ToolTipText = "Formatting bullets"
cpropertyname = InsertUnOrderedList
Name = "tgBullet"
chtmleditor
tgBullet
checkbox
pr_htmledit.vcx
ctoggle
Top = 0
Left = 372
Picture = images\pr_textmoveleft.bmp
Alignment = 0
Caption = ""
SpecialEffect = 2
ToolTipText = "Decrease indentation"
cpropertyname = Outdent
Name = "tgDecrease"
chtmleditor
tgDecrease
checkbox
pr_htmledit.vcx
ctoggle
Top = 0
Left = 398
Picture = images\pr_textmoveright.bmp
Alignment = 0
Caption = ""
SpecialEffect = 2
ToolTipText = "Increase indentation"
cpropertyname = Indent
Name = "tgIncrease"
chtmleditor
tgIncrease
checkbox
pr_htmledit.vcx
ctoggle
iPROCEDURE InteractiveChange
This.Parent.oIE.Document.execCommand("FontSize",.F.,This.Value)
ENDPROC
`Height = 23
Left = 129
ToolTipText = "Font size"
Top = 24
Width = 54
Name = "cmbFontSize"
chtmleditor
cmbFontSize
combobox
pr_htmledit.vcx
    cfontsize
pPROCEDURE InteractiveChange
This.Parent.oIE.Document.execCommand("FontName",.F.,This.DisplayValue)
ENDPROC
_Height = 23
Left = 0
ToolTipText = "Font name"
Top = 24
Width = 127
Name = "cmbFontName"
chtmleditor
cmbFontName
combobox
pr_htmledit.vcx
    cfontname
Top = 24
Left = 341
Picture = images\pr_fontback.bmp
Caption = ""
ToolTipText = "Background color"
SpecialEffect = 2
ForeColor = 0,0,255
Name = "btnBackColor"
chtmleditor
btnBackColor
commandbutton
pr_htmledit.vcx
cbutton
Top = 24
Left = 317
Picture = images\pr_textcolor.bmp
Caption = ""
ToolTipText = "Cor do Texto"
SpecialEffect = 2
ForeColor = 0,0,255
Name = "btnForeColor"
chtmleditor
btnForeColor
commandbutton
pr_htmledit.vcx
cbutton
Acpropertyname The name of the property this command will toggle
'Wingdings, 0, 12, 14, 17, 14, 22, 3, 0
Class
chtmleditor
tgRight
checkbox
pr_htmledit.vcx
ctoggle
ctoggle
chtmleditor
tgCenter
checkbox
Class
Pixels
    cfontsize
!Arial, 0, 9, 5, 15, 12, 32, 3, 0
+OLEObject = C:\WINNT\System32\shdocvw.dll
Elfirstrefresh
_memberdata XML Metadata for customizable properties
checkbox
checkbox
olecontrol
olecontrol
Class
Pixels
Class
    cfontsize
ctoggle
Pixels
Pixels
    cfontname
!Arial, 0, 9, 5, 15, 12, 32, 3, 0
*update
combobox
TAlignment = 1
Value = 1
Width = 45
cpropertyname = FontSize
Name = "cfontsize"
PROCEDURE Click
This.Parent.Toggle(This.cPropertyName)
ENDPROC
PROCEDURE DblClick
NODEFAULT
ENDPROC
PROCEDURE RightClick
NODEFAULT
ENDPROC
Height = 23
Width = 23
FontName = "Wingdings"
FontSize = 12
Alignment = 0
Caption = "C"
Value = .F.
Style = 1
TabStop = .F.
Name = "ctoggle"
PROCEDURE Init
This.AddItem("8")
This.AddItem("10")
This.AddItem("12")
This.AddItem("14")
This.AddItem("18")
This.AddItem("24")
This.AddItem("36")
ENDPROC
xPROCEDURE Click
LOCAL lnColor, lcColor
lnColor = GETCOLOR()
IF lnColor > -1
   lcColor = RIGHT(TRANSFORM(lnColor,"@0"),6)
   lcColor = RIGHT(lcColor, 2)+ SUBSTR(lcColor,3,2)+ LEFT(lcColor,2)
   This.Parent.oIE.Document.execCommand("BackColor",.F.,lcColor)
ENDIF
RETURN
* Not used any more
* This converted the whole document BackColor instead of the current selection
LOCAL lnColor, lcColor
lnColor = GETCOLOR()
IF lnColor > -1
   lcColor = RIGHT(TRANSFORM(lnColor,"@0"),6)
   lcColor = RIGHT(lcColor, 2)+ SUBSTR(lcColor,3,2)+ LEFT(lcColor,2)
   This.Parent.oIE.Document.bgColor = lcColor
ENDIF
ENDPROC
PROCEDURE Click
LOCAL lnColor, lcColor
lnColor = GETCOLOR()
IF lnColor > -1
   lcColor = RIGHT(TRANSFORM(lnColor,"@0"),6)
   lcColor = RIGHT(lcColor, 2)+ SUBSTR(lcColor,3,2)+ LEFT(lcColor,2)
   This.Parent.oIE.Document.execCommand("ForeColor",.F.,lcColor)
ENDIF
ENDPROC
Top = 0
Left = 264
Picture = images\pr_align_right.bmp
Alignment = 0
Caption = ""
SpecialEffect = 2
ToolTipText = "Align right"
cpropertyname = JustifyRight
Name = "tgRight"
Top = 0
Left = 240
Picture = images\pr_align_center.bmp
Alignment = 0
Caption = ""
SpecialEffect = 2
ToolTipText = "Center"
cpropertyname = JustifyCenter
Name = "tgCenter"
pr_htmledit.vcx
ctoggle
Top = 0
Left = 216
Picture = images\pr_align_left.bmp
Alignment = 0
Caption = ""
SpecialEffect = 2
ToolTipText = "Align left"
cpropertyname = JustifyLeft
Name = "tgLeft"
chtmleditor
tgLeft
checkbox
pr_htmledit.vcx
ctoggle
Top = 24
Left = 264
FontName = "Arial"
FontUnderline = .T.
Alignment = 0
Caption = "U"
SpecialEffect = 2
ToolTipText = "Underline"
cpropertyname = Underline
Name = "tgUnderline"
chtmleditor
tgUnderline
checkbox
pr_htmledit.vcx
ctoggle
Top = 24
Left = 240
FontItalic = .T.
FontName = "Arial"
Alignment = 0
Caption = "I"
SpecialEffect = 2
ToolTipText = "Italic"
cpropertyname = Italic
Name = "tgItalic"
chtmleditor
tgItalic
checkbox
pr_htmledit.vcx
ctoggle
chtmleditor
tgBold
checkbox
pr_htmledit.vcx
ctoggle
chtmleditor
cbutton
gHeight = 100
Width = 100
lfirstrefresh = .T.
_memberdata =
     524<?xml version="1.0"     encoding="Windows-1252" standalone="yes" ?>
<VFPData>
<memberdata name="foomethod" type="method"     display="fooMethod"     favorites="True"/>
<memberdata name="cie" type="property" display="cie" favorites="True"/>
<memberdata name="_memberdata" type="property" display="_MemberData" favorites="True"/>
<memberdata name="baseclass" type="property" display="BaseClasS" favorites="True"/>
<memberdata name="error" type="method" display="eRRor" favorites="True"/>
</VFPData>
Name = "cie"
PROCEDURE DownloadComplete
*** ActiveX Control Event ***
* Set the edit mode on
*THIS.Document.designMode = "On"  && This gives a different context menu
This.Document.Body.contentEditable = .T.  && This is a good context menu
ENDPROC
PROCEDURE Init
* Navigate to a blank page
*This.Navigate2("About:Blank")
* Prevent an OLE error, and wait until the object
* gets the blank page open before showing or accessing
LOCAL lnLoadTimeout
lnLoadTimeout = 3       && seconds
WITH This.OBJECT
    .Navigate("about:blank")
    * Wait for load completion
    lnStartSeconds = SECONDS()
    DO WHILE .ReadyState <> 4 ;
            AND (SECONDS()-lnStartSeconds <= lnLoadTimeout )
        DOEVENTS
    ENDDO
ENDWITH
ENDPROC
PROCEDURE Refresh
*** ActiveX Control Method ***
IF This.lFirstRefresh
   NODEFAULT
   This.lFirstRefresh = .F.
   This.Document.Body.contentEditable = .T.
ENDIF
ENDPROC
Top = 24
Left = 216
FontBold = .T.
FontName = "Arial"
Alignment = 0
Caption = "B"
SpecialEffect = 2
ToolTipText = "Bold"
cpropertyname = Bold
Name = "tgBold"
-OLEObject = C:\Windows\system32\ieframe.dll
PROCEDURE CommandStateChange
*** ActiveX Control Event ***
LPARAMETERS command, enable
This.Parent.ToggleStatus()
DODEFAULT(command, enable)
ENDPROC
PROCEDURE DownloadComplete
*** ActiveX Control Event ***
DODEFAULT()
This.Parent.Activatecommands()
ENDPROC
fTop = 48
Left = 0
Height = 100
Width = 100
_memberdata =
     524<?xml version="1.0"     encoding="Windows-1252" standalone="yes" ?>
<VFPData>
<memberdata name="foomethod" type="method"     display="fooMethod"     favorites="True"/>
<memberdata name="oIE" type="property" display="oIE" favorites="True"/>
<memberdata name="_memberdata" type="property" display="_MemberData" favorites="True"/>
<memberdata name="baseclass" type="property" display="BaseClasS" favorites="True"/>
<memberdata name="error" type="method" display="eRRor" favorites="True"/>
</VFPData>
Name = "oIE"
olecontrol
pr_htmledit.vcx
s_memberdata XML Metadata for customizable properties
ltoggleupdate
*activatecommands
*togglestatus
*toggle
PROCEDURE activatecommands
LOCAL oToggle
FOR EACH oToggle IN This.Objects
   IF UPPER(oToggle.Class) = "CTOGGLE"
      This.oIE.Document.queryCommandEnabled(oToggle.cPropertyName)
*      oToggle.Refresh()
   ENDIF
ENDPROC
PROCEDURE togglestatus
IF This.lToggleUpdate
    LOCAL oToggle
    IF NOT EMPTY(This.oIE.LocationURL)
    FOR EACH oToggle IN This.Objects
       IF UPPER(oToggle.Class) = "CTOGGLE"
          oToggle.Value = This.oIE.Document.QueryCommandValue(oToggle.cPropertyName)
    *      oToggle.Refresh()
       ENDIF
       IF UPPER(oToggle.ParentClass) = "_CBO"
          oToggle.Value = This.oIE.Document.queryCommandValue(oToggle.cPropertyName)
       ENDIF
    NEXT
    ENDIF
ENDIF
ENDPROC
PROCEDURE toggle
LPARAMETERS tcPropertyName
IF "JUSTIFY" $ UPPER(tcPropertyName)
   IF This.oIE.Document.queryCommandValue(tcPropertyName)
      tcPropertyName = "JustifyNone"
   ENDIF
ENDIF
This.oIE.Document.execCommand(tcPropertyName)
This.oIE.SetFocus()
ENDPROC
PROCEDURE Resize
This.width=this.parent.width
This.height=this.parent.height - 72
*!*    *this.top=0
*!*    *this.left=0
This.oIE.Width  = This.Width - 2
This.oIE.Height = This.Height - 60
ENDPROC
PROCEDURE Init
This.Resize()
ENDPROC
PROCEDURE RightClick
MESSAGEBOX(This.oIE.Document.Body.OuterHTML)
ENDPROC
    container
commandbutton
mPROCEDURE Click
IF NOT EMPTY(This.cPropertyName)
    This.Parent.Toggle(This.cPropertyName)
ENDIF
ENDPROC
Ecpropertyname
_memberdata XML Metadata for customizable properties
cbutton
commandbutton
Class
Pixels
'Wingdings, 0, 10, 12, 15, 12, 18, 3, 0
Height = 23
Width = 23
FontName = "Wingdings"
FontSize = 10
Caption = "C"
TabStop = .F.
SpecialEffect = 2
cpropertyname =
_memberdata =
      79<VFPData><memberdata name="cpropertyname" display="cPropertyName"/></VFPData>
Name = "cbutton"
Width = 633
Height = 324
BackStyle = 0
BorderWidth = 0
_memberdata =
     546<?xml version="1.0" standalone="yes"?>
<VFPData>
    <memberdata name="foomethod" type="method" display="fooMethod" favorites="True"/>
    <memberdata name="chtmleditor" type="property" display="chtmleditor" favorites="True"/>
    <memberdata name="_memberdata" type="property" display="_MemberData" favorites="True"/>
    <memberdata name="baseclass" type="property" display="BaseClasS" favorites="True"/>
    <memberdata name="error" type="method" display="eRRor" favorites="True"/>
    <memberdata name="ltoggleupdate" display="lToggleUpdate"/></VFPData>
ltoggleupdate = .T.
Name = "chtmleditor"
xH@@``````
\KF\KF\KF
\KF\KF\KF\KF\KF\KF\KF\KF\KF
\KF\KF\KF
\KF\KF\KF\KF\KF\KF\KF\KF\KF
\KF\KF\KF
\KF\KF\KF\KF\KF\KF\KF\KF\KF
\KF\KF\KF
\KF\KF\KF\KF\KF\KF\KF\KF\KF

gOwW?
gOwW?
`P(`P(h`0@
0P (X 0` P
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _34Q0PJ4TY1043685131
 WINDOWS _34Q0PJ4TZ1059848267
 WINDOWS _34Q0PJ4U01045479108R)
 WINDOWS _34Q0PJ4U11045105636**
 WINDOWS _34Q0PJ4U61045105899i0
 WINDOWS _35800F2H410451285359/
 WINDOWS _35A033NLY1045107191
 WINDOWS _35A033NLZ10451058994&
 WINDOWS _34Q0PJ4TY1045479237-%
 WINDOWS _35G1FDGMD1045479237R$
 COMMENT RESERVED
VERSION =   3.00
dataenvironment
dataenvironment
Dataenvironment
YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
Form1
CHeight = 422
Width = 635
Desktop = .T.
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Select recipients"
Closable = .F.
WindowType = 1
ngridx = 0
ngridy = 0
crecipients =
_memberdata =
     529<VFPData><memberdata name="crecipients" display="cRecipients"/><memberdata name="updatesearchfld" display="UpdateSearchFld"/><memberdata name="csearchfield" display="cSearchField"/><memberdata name="doselectall" display="DoSelectAll"/><memberdata name="dounselectall" display="DoUnselectAll"/><memberdata name="doselectinvert" display="DoSelectInvert"/><memberdata name="setlanguage" display="SetLanguage"/><memberdata name="clocsearchfld" display="cLocSearchFld"/><memberdata name="lclosetable" display="lCloseT<VFPData><memberd
csearchfield =
clocsearchfld = Search field
lclosetable = .F.
Name = "Form1"
zPROCEDURE updatesearchfld
LPARAMETERS tcField
Thisform.cSearchField = tcField
Thisform.lblSearchFld.Caption = Thisform.cLocSearchFld + ": " + PROPER(tcField)
ENDPROC
PROCEDURE doselectall
Local lnRec
lnRec = Recno(Thisform.Grid1.RecordSource)
Update (Thisform.Grid1.RecordSource) Set lSelected = not lSelected
Go (m.lnRec)
Thisform.Refresh()
ENDPROC
PROCEDURE dounselectall
Local lnRec
lnRec = Recno(Thisform.Grid1.RecordSource)
Update (Thisform.Grid1.RecordSource) Set lSelected = .F.
Go (m.lnRec)
Thisform.Refresh()
ENDPROC
PROCEDURE setlanguage
LOCAL loExc as Exception
    WITH This
        LOCAL lcCaption
        lcCaption = _goHelper.GetLoc("SEARCHFLD")
        .lblSearchFld.Caption = lcCaption
        .cLocSearchFld        = lcCaption
        .CmdOk.Caption        = _goHelper.GetLoc("GOTOPG_OK")
        .CmdCancel.Caption    = _goHelper.GetLoc("CANCEL")
        .Caption              = _goHelper.GetLoc("SELECTRECI")
    ENDWITH
CATCH TO loExc
    SET STEP ON
ENDTRY
ENDPROC
PROCEDURE Load
SET TALK OFF
SET CONSOLE OFF
IF VARTYPE(_goHelper) <> "O"
    * Creating the cursor with the adress book
    SELECT CAST(LOWER(GETWORDNUM(Contact, 1, " "))+"@vfp.com" AS C(30)) As email,* From (_samples + '\data\customer') ;
        Where .T. Into Cursor Test Readwrite
ENDIF
    LOCAL loDummy as Image
    loDummy = CREATEOBJECT("Image")
    loDummy.Picture = "images\pr_locate.bmp"
CATCH
ENDTRY
ENDPROC
PROCEDURE Init
*!*    Author      : Soykan OZCELIK
*!*    Description : email adress collector for FoxyPreviewer SendMail Form
*!*    Usage       : Do form GetEmailAdress with "YourCursor","YourSearchField"
*!*    Important   : YourCursor must contain "email" field which is filled contact emails
*!* to testing this form first create test cursor with below codes
*!*    Select "[e-mail]" as email,* FROM (_samples + '\data\customer') Where .T. Into Cursor Test readwrite
*!* You can create your own cursors to test this form
LPARAMETERS tcCursor,tcSearchField
IF EMPTY(tcCursor)
    tcCursor = ALIAS()
ENDIF
LOCAL llError
llError = .F.
IF NOT USED(tcCursor)
    TRY
        USE (tcCursor) AGAIN IN 0 SHARED ALIAS C_AdressBook
        * This.lCloseTable = .T.
        tcCursor = "C_AdressBook"
    CATCH
        MESSAGEBOX("Could not load the adress book table!", 48, "Error")
        llError = .T.
    ENDTRY
ENDIF
IF llError
    RETURN .F.
ENDIF
IF EMPTY(tcSearchField)
    tcSearchField = "EMAIL"  && "Contact"
ENDIF
Thisform.UpdateSearchFld(tcSearchField)
TEXT TO m.lcSQL TEXTMERGE NOSHOW
    SELECT .F. AS lSelected, * FROM ;
    <<m.tcCursor>>  WHERE .t. ;
    INTO CURSOR CrsAdresses READWRITE
ENDTEXT
EXECSCRIPT(m.lcSQL)
GO TOP
* Close the table if it was passed as a file
IF tcCursor = "C_AdressBook"
    USE IN SELECT("C_AdressBook")
ENDIF
Thisform.cSearchField = m.tcSearchField
    This.Icon= "pr_mail03.ico"
    *    This.Icon= HOME() + "Graphics\Icons\Mail\mail03.ico"
CATCH
ENDTRY
With This.Grid1 as Grid
    .RecordSource=""
    .RecordSource="CrsAdresses"
    .ColumnCount = FCOUNT(.RecordSource)
    .LockColumns = 1
    LOCAL loColumn as Column
    FOR EACH loColumn IN .Columns
        WITH loColumn.header1
            .FontBold  = .T.
            .FontSize  = 9
            .Alignment = 3
            .ForeColor = RGB(255,0,0)
            IF EMPTY(loColumn.ControlSource)
                loColumn.Visible = .F.
            ENDIF
        ENDWITH
    ENDFOR
    Thisform.Gridsort1.BindControl()
    With .Column1
        LOCAL loHeader as Header
        loHeader = .header1
        WITH loHeader as Header
            .FontName="wingdings"
            .Caption = Chr(0xFC) &&"Checkbox"
            .Alignment = 2
            * UNBINDEVENTS(loHeader) &&, "DblClick")
            BINDEVENT(loHeader, "DblClick", This, "DoSelectAll")
            BINDEVENT(loHeader, "RightClick", This, "DoUnselectAll")
        ENDWITH
        .Alignment = 2
        .Width = 20
        .AddObject("Check1","CheckBox")
        .Sparse = .F.
        .CurrentControl = "Check1"
        With .Check1
            .Alignment = 2
            .Caption = ""
            .Name = "Check1"
            .Visible = .T.
        Endwith
        .RemoveObject("text1")
    Endwith
    .AutoFit()
    This.Grid1.Column1.Alignment = 2
    .SetAll("DynamicForeColor", "ICASE(lSelected=.t.,RGB(255,0,0),lSelected=.f.,RGB(0,0,0))" , "Column")
    .SetAll("DynamicFontBold", "lSelected=.t." , "Column")
ENDWITH
IF VARTYPE(_goHelper) = "O"
    This.SetLanguage()
ENDIF
ENDPROC
PROCEDURE Destroy
Use In (This.Grid1.RecordSource)
If Used("CrsTemp")
    Use In "CrsTemp"
Endif
ENDPROC
PROCEDURE Unload
IF NOT EMPTY(Thisform.cRecipients)
    RETURN Thisform.cRecipients
ENDIF
ENDPROC
THISFORM
RELEASE
Click,
No Selected e-mails...
Safetyv
emails
EMAIL
THISFORM
GRID1
RECORDSOURCE
LSELECTED
EMAILS
ACTIVEFORM
CAPTION
LCRECIPENTLIST
CRECIPIENTS
RELEASE
Click,
LNRELCOL
LNRELROW
LNWHERE
GRIDHITTEST
THISFORM
NGRIDX
NGRIDY
COLUMNS
CHECK1
VALUE
REFRESH
LNRELCOL
LNRELROW
LNWHERE
GRIDHITTEST
THISFORM
NGRIDX
NGRIDY
COLUMNS
CHECK1
VALUE6
NBUTTON
NSHIFT
NXCOORD
NYCOORD
THISFORM
NGRIDX
NGRIDY
DblClick,
Click3
MouseDown:
            SELECT RECNO() as nrec,* FROM <<m.lcAlias>> ;
            WHERE LOWER(<<m.lcSearchField>>) ;
            like '%' + '<<m.lcSearchValue>>' + '%';
            INTO CURSOR CrsTemp
VALUE
LCSEARCHVALUE
LCSEARCHFIELD
LCALIAS
LNSELECT
THISFORM
GRID1
RECORDSOURCE
CSEARCHFIELD
LCSEARCHSQL
CRSTEMP
REFRESH
Valid,
!Arial, 0, 9, 5, 15, 12, 32, 3, 0
aTop = 0
Left = 7
Width = 24
Height = 21
BackStyle = 0
BorderWidth = 0
Name = "Container1"
Form1
Container1
    container
    container
Top = -1
Left = 8
Height = 22
Width = 24
Picture = images\pr_locate.bmp
Caption = ""
TabStop = .F.
SpecialEffect = 2
Name = "Command1"
Form1
Command1
commandbutton
commandbutton
.PROCEDURE Click
Thisform.Release()
ENDPROC
Top = 387
Left = 539
Height = 27
Width = 84
Anchor = 12
Cancel = .T.
Caption = "Cancel"
TabIndex = 5
Name = "cmdCancel"
Form1
    cmdCancel
commandbutton
commandbutton
(PROCEDURE Click
Select email From (Thisform.Grid1.RecordSource);
    Where Lselected ;
    And ;
    Not Empty(email) Into Array emails
If _Tally = 0
    Messagebox('No Selected e-mails...',16,_Screen.ActiveForm.Caption)
    Return
Endif
If Set("Safety")='ON'
    Set Safety Off
Endif
Local lcRecipentList
lcRecipentList=""
For ix=1 To Alen("emails")
    lcRecipentList = lcRecipentList+Trim(emails[ix])+";"
Endfor
m.lcRecipentList = Left(m.lcRecipentList,Len(m.lcRecipentList)-1)
Thisform.cRecipients = m.lcRecipentList
Thisform.Release
ENDPROC
ngridx
ngridy
crecipients
_memberdata XML Metadata for customizable properties
csearchfield
clocsearchfld
lclosetable
*updatesearchfld
*doselectall
*dounselectall
*doselectinvert
*setlanguage
label
label
lblSearchFld
Form1
AutoSize = .T.
BackStyle = 0
Caption = "Search Field : "
Height = 17
Left = 37
Top = 3
Width = 80
ForeColor = 255,0,0
Name = "lblSearchFld"
textbox
textbox
    TxtSearch
Form1
BHeight = 25
Left = 8
Top = 21
Width = 227
Name = "TxtSearch"
PROCEDURE Valid
IF NOT EMPTY(This.Value)
    Local lcSearchValue,lcSearchField,lcAlias,lnSelect
    lcAlias = Thisform.Grid1.RecordSource
    lcSearchField = Thisform.cSearchField
    lcSearchValue = Chrtran(Trim(LOWER(This.Value)),"'","%")
    lnSelect = Select(0)
    TEXT TO m.lcSearchSQL TEXTMERGE noshow
            SELECT RECNO() as nrec,* FROM <<m.lcAlias>> ;
            WHERE LOWER(<<m.lcSearchField>>) ;
            like '%' + '<<m.lcSearchValue>>' + '%';
            INTO CURSOR CrsTemp
    ENDTEXT
    *_Cliptext = m.lcSearchSQL
    Execscript(m.lcSearchSQL)
    If _Tally # 0
        Select (Thisform.Grid1.RecordSource)
        Go (CrsTemp.nrec) In (Thisform.Grid1.RecordSource)
        Thisform.Refresh()
    ENDIF
ENDIF
ENDPROC
kTop = 387
Left = 443
Height = 27
Width = 84
Anchor = 12
Caption = "Ok"
TabIndex = 4
Name = "cmdOK"
Form1
cmdOK
commandbutton
commandbutton
Top = 396
Left = 12
Height = 17
Width = 36
cgrideval = Thisform.Grid1
csortascendinggraphic = images\pr_sortascending.bmp
csortdescendinggraphic = images\pr_sortDescending.bmp
Name = "Gridsort1"
Form1
    Gridsort1
custom
pr_rcsgridsort.vcx
gridsort
Anchor = 15
DeleteMark = .F.
Height = 331
Left = 8
RecordMark = .F.
Top = 50
Width = 620
GridLineColor = 192,192,192
HighlightBackColor = 159,159,208
HighlightForeColor = 255,255,255
HighlightStyle = 2
AllowCellSelection = .F.
Name = "Grid1"
Form1
Grid1
lPROCEDURE DblClick
Local lnRelCol, lnRelRow, lnWhere
Store 0 To lnWhere, lnRelRow, lnRelCol
This.GridHitTest(Thisform.ngridx, Thisform.ngridy, @lnWhere, @lnRelRow, @lnRelCol)
If lnWhere = 3            && Cell
*    If lnRelCol = 1        && column 1
        This.Columns(1).Check1.Value = Not This.Columns(1).Check1.Value
*    Endif
ENDIF
Thisform.Refresh()
ENDPROC
PROCEDURE Click
Local lnRelCol, lnRelRow, lnWhere
Store 0 To lnWhere, lnRelRow, lnRelCol
This.GridHitTest(Thisform.ngridx, Thisform.ngridy, @lnWhere, @lnRelRow, @lnRelCol)
If lnWhere = 3            && Cell
    If lnRelCol = 1        && column 1
        This.Columns(lnRelCol).Check1.Value = Not This.Columns(lnRelCol).Check1.Value
    Endif
Endif
ENDPROC
PROCEDURE MouseDown
Lparameters nButton, nShift, nXCoord, nYCoord
* Save mouse position to use in Grid.Click
Thisform.ngridx = nXCoord
Thisform.ngridy = nYCoord
ENDPROC
PROCEDURE Init
******************************************************************
*  FUNCTION NAME: Init
*  AUTHOR, DATE:
*      Paul Mrozowski, 5/7/2007
*  PROCEDURE DESCRIPTION:
*      Get things started.
*  INPUT PARAMETERS:
*      None
*  OUTPUT PARAMETERS:
*      None
******************************************************************
This.oIndex = CREATEOBJECT("Collection")
* This.BindControl()
ENDPROC
PROCEDURE bindcontrol
******************************************************************
*  FUNCTION NAME: Bindcontrol
*  AUTHOR, DATE:
*      Paul Mrozowski, 5/7/2007
*  PROCEDURE DESCRIPTION:
*      Bind us to the headers in the grid.
*  INPUT PARAMETERS:
*      None
*  OUTPUT PARAMETERS:
*      None
******************************************************************
LOCAL loGrid AS Grid, ;
      loColumn AS Column, ;
      loControl
   loGrid = EVALUATE(This.cGridEval)
   IF TYPE("loGrid") = "O"
      FOR EACH loColumn IN loGrid.Columns
          FOR EACH loControl IN loColumn.Controls
              IF loControl.BaseClass = "Header"
                 BINDEVENT(loControl, "DblClick", This, "Sort")
                 BINDEVENT(loControl, "RightClick", This, "Search")
                 EXIT
              ENDIF
          ENDFOR
      ENDFOR

      IF PEMSTATUS(loGrid, "SaveSource", 5)
         IF This.cAutoCleanOn = "S"
            BINDEVENT(loGrid, "SaveSource", This, "Cleanup")
         ENDIF

         IF This.cAutoCleanOn = "R"
            BINDEVENT(loGrid, "RestoreSource", This, "Cleanup")
         ENDIF

      ENDIF
   ENDIF
CATCH
   MESSAGEBOX("This.cGridEval doesn't evaluate to an object: " + This.cGridEval)
ENDTRY
ENDPROC
PROCEDURE search
LOCAL loGrid AS Grid, ;
    lcRecordSource, ;
    loEx AS Exception, ;
    laEvent[1], ;
    loHeader AS Header, ;
    loColumn AS Column, ;
    lcControlSource, ;
    lcIndexFile, ;
    luKey, ;
    lcField
    lnSelect = SELECT()
    loGrid = EVALUATE(This.cGridEval)
    IF TYPE("loGrid") <> "O"
        EXIT
    ENDIF
    IF EMPTY(This.cRecordSource)
        lcRecordSource = ALLTRIM(loGrid.RecordSource)
    ELSE
        lcRecordSource = ALLTRIM(This.cRecordSource)
    ENDIF
    IF !EMPTY(lcRecordSource)
        AEVENTS(laEvent, 0)
        loHeader = laEvent[1]
        loColumn = loHeader.Parent
        lcControlSource = ALLTRIM(loColumn.ControlSource)
        IF ("." $ lcControlSource)
            lcField = GETWORDNUM(lcControlSource, 2, ".")
        ELSE
            lcField = lcControlSource
        ENDIF
*        MESSAGEBOX(lcField)
        Thisform.UpdateSearchFld(lcField)
    ENDIF
CATCH TO loEx
    SET STEP ON
    MESSAGEBOX("Error sorting: " + loEx.Message, 48, "Error")
FINALLY
    SELECT (lnSelect)
ENDTRY
RETURN
IF !EMPTY(lcControlSource)
    IF ("." $ lcControlSource)
        lcFieldType = VARTYPE(EVALUATE(lcControlSource))
    ELSE
        lcFieldType = VARTYPE(EVALUATE(lcRecordSource + "." + lcControlSource))
    ENDIF
    lcIndexFile = FORCEEXT(ADDBS(SYS(2023)) + "_" + SYS(3), "IDX")
    DO CASE
        CASE lcFieldType = "T"
            lcIndexExpr = "INDEX ON TTOC(" + lcControlSource + ", 3) TO " + lcIndexFile + " ADDITIVE"
        CASE lcFieldType = "D"
            lcIndexExpr = "INDEX ON DTOS(" + lcControlSource + ") TO " + lcIndexFile + " ADDITIVE"
        CASE INLIST(lcFieldType, "N", "Y")
            lcIndexExpr = "INDEX ON " + lcControlSource + " TO " + lcIndexFile + " ADDITIVE"
        CASE lcFieldType = "C"
            lcIndexExpr = "INDEX ON ALLTRIM(UPPER(" + lcControlSource + ")) TO " + lcIndexFile + " ADDITIVE"
        CASE lcFieldType = "L"
            lcIndexExpr = "INDEX ON " + lcControlSource + " TO " + lcIndexFile + " ADDITIVE"
        OTHERWISE
            EXIT
    ENDCASE
    lcNewIndexExpr = This.IndexExpressionHook(lcIndexExpr, lcControlSource)
    IF VARTYPE(lcNewIndexExpr) = "C" AND !EMPTY(lcNewIndexExpr)
        lcIndexExpr = lcNewIndexExpr
    ENDIF
    luKey = This.oIndex.GetKey(lcControlSource)
    * Remove any existing header pictures, then add it to the current column
    loGrid.SetAll("Picture", "")
    SELECT (lcRecordSource)
    IF VARTYPE(luKey) = "N" AND luKey = 0
        * Index doesn't exist yet
        This.oIndex.Add(lcIndexFile, lcControlSource)
        &lcIndexExpr
        loHeader.Picture = This.cSortAscendingGraphic
    ELSE
        lcIndexFile = JUSTSTEM(This.oIndex[luKey])
        IF DESCENDING()
            SET ORDER TO &lcIndexFile ASCENDING
            loHeader.Picture = This.cSortAscendingGraphic
        ELSE
            SET ORDER TO &lcIndexFile DESCENDING
            loHeader.Picture = This.cSortDescendingGraphic
        ENDIF
    ENDIF
    LOCATE
    loGrid.Refresh()
ENDIF
IF lnBuffering > 3
    CURSORSETPROP("Buffering", lnBuffering, lcRecordSource)
ENDIF
ENDPROC
Collection
OINDEX
COLUMN
loGridb
Header
DblClick
RightClick
Search
SaveSource
SaveSource
Cleanup
RestoreSource
Cleanup
This.cGridEval doesn't evaluate to an object:
LOGRID
LOCOLUMN
LOCONTROL
THIS
CGRIDEVAL
COLUMNS
CONTROLS
BASECLASS
CAUTOCLEANON
EXCEPTION
HEADER
COLUMN
loGridb
Error sorting:
Error
INDEX ON TTOC(
, 3) TO
 ADDITIVE
INDEX ON DTOS(
) TO
 ADDITIVE
INDEX ON
 ADDITIVE
INDEX ON ALLTRIM(UPPER(
)) TO
 ADDITIVE
INDEX ON
 ADDITIVE
Picture
&lcIndexExpr
SET ORDER TO &lcIndexFile ASCENDING
SET ORDER TO &lcIndexFile DESCENDING
Buffering
LOGRID
LCRECORDSOURCE
LAEVENT
LOHEADER
LOCOLUMN
LCCONTROLSOURCE
LCINDEXFILE
LUKEY
LCFIELD
LNSELECT
THIS
CGRIDEVAL
CRECORDSOURCE
RECORDSOURCE
PARENT
CONTROLSOURCE
THISFORM
UPDATESEARCHFLD
MESSAGE
LCFIELDTYPE
LCINDEXEXPR
LCNEWINDEXEXPR
INDEXEXPRESSIONHOOK
OINDEX
GETKEY
SETALL
PICTURE
CSORTASCENDINGGRAPHIC
CSORTDESCENDINGGRAPHIC
REFRESH
LNBUFFERING
Init,
bindcontrol^
search
TCFIELD
THISFORM
CSEARCHFIELD
LBLSEARCHFLD
CAPTION
CLOCSEARCHFLDS
LNREC
THISFORM
GRID1
RECORDSOURCE
LSELECTED
REFRESHP
LNREC
THISFORM
GRID1
RECORDSOURCE
LSELECTED
REFRESH
EXCEPTION
SEARCHFLD
GOTOPG_OK
CANCEL
SELECTRECI
LOEXC
THIS
LCCAPTION
_GOHELPER
GETLOC
LBLSEARCHFLD
CAPTION
CLOCSEARCHFLD
CMDOK
CMDCANCEL
\data\customer
@vfp.com
IMAGE
Image
images\pr_locate.bmp
_GOHELPER
CONTACT
EMAIL
LODUMMY
PICTURE
C_AdressBook
Could not load the adress book table!
Error
EMAIL
    SELECT .F. AS lSelected, * FROM ;
    <<m.tcCursor>>  WHERE .t. ;
    INTO CURSOR CrsAdresses READWRITE
C_AdressBook
C_AdressBookW
pr_mail03.ico
CrsAdresses
COLUMN
HEADER
HEADER
wingdings
DblClick
DoSelectAll
RightClick
DoUnselectAll
Check1
CheckBox
Check1
Check1
text1
DynamicForeColor
ICASE(lSelected=.t.,RGB(255,0,0),lSelected=.f.,RGB(0,0,0))
Column
DynamicFontBold
lSelected=.t.
Column
TCCURSOR
TCSEARCHFIELD
LLERROR
C_ADRESSBOOK
THISFORM
UPDATESEARCHFLD
LCSQL
CSEARCHFIELD
GRID1
RECORDSOURCE
COLUMNCOUNT
LOCKCOLUMNS
LOCOLUMN
COLUMNS
HEADER1
FONTBOLD
FONTSIZE
ALIGNMENT
FORECOLOR
CONTROLSOURCE
VISIBLE
GRIDSORT1
BINDCONTROL
COLUMN1
LOHEADER
FONTNAME
CAPTION
WIDTH
ADDOBJECT
SPARSE
CURRENTCONTROL
CHECK1
REMOVEOBJECT
AUTOFIT
SETALL
_GOHELPER
SETLANGUAGE?
CrsTemp
CrsTemp
GRID1
RECORDSOURCE&
THISFORM
CRECIPIENTS
updatesearchfld,
doselectall
dounselectallD
setlanguage
Load
Init4
Destroy
Unload
wwwwwwwwwwww
wwwwwwp
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _22W0OBY4H1045105419L
 COMMENT RESERVED
VERSION =   3.00
gridsort
Pixels
Class
custom
gridsort
cgrideval Eval'd to retrieve reference to the grid.
_memberdata XML Metadata for customizable properties
crecordsource Leave empty to read the record source from the grid, fill in to override.
oindex
cautocleanon Used when grid has SaveSource/RestoreSource methods. Set to "S" to remove temporary indexes when saving the source. Set to "R" to remove when restoring the source.
csortascendinggraphic
csortdescendinggraphic
*sort
*bindcontrol
*indexexpressionhook
*cleanup
*search
EXCEPTION
HEADER
COLUMN
loGridb
Buffering
Buffering
INDEX ON TTOC(
, 3) TO
 ADDITIVE
INDEX ON DTOS(
) TO
 ADDITIVE
INDEX ON
 ADDITIVE
INDEX ON ALLTRIM(UPPER(
)) TO
 ADDITIVE
INDEX ON
 ADDITIVE
Picture
&lcIndexExpr
SET ORDER TO &lcIndexFile ASCENDING
SET ORDER TO &lcIndexFile DESCENDING
Buffering
Error sorting:
Error
LOGRID
LCRECORDSOURCE
LNBUFFERING
LAEVENT
LOHEADER
LOCOLUMN
LCFIELDTYPE
LCINDEXEXPR
LCCONTROLSOURCE
LCINDEXFILE
LUKEY
LNSELECT
LCNEWINDEXEXPR
THIS
CGRIDEVAL
CRECORDSOURCE
RECORDSOURCE
PARENT
CONTROLSOURCE
INDEXEXPRESSIONHOOK
OINDEX
GETKEY
SETALL
PICTURE
CSORTASCENDINGGRAPHIC
CSORTDESCENDINGGRAPHIC
REFRESH
MESSAGE
COLUMN
loGridb
Header
DblClick
Click
Search
SaveSource
SaveSource
Cleanup
RestoreSource
Cleanup
This.cGridEval doesn't evaluate to an object:
LOGRID
LOCOLUMN
LOCONTROL
THIS
CGRIDEVAL
COLUMNS
CONTROLS
BASECLASS
CAUTOCLEANON
TCINDEXEXPR
TCCONTROLSOURCE1
loGridb
Picture
Header
Buffering
Buffering
Safetyv
Buffering
SET SAFETY &lcSafety
Collection
LNSELECT
LCRECORDSOURCE
LCSAFETY
LCINDEX
LNBUFFERING
LOGRID
THIS
CGRIDEVAL
SETALL
CRECORDSOURCE
RECORDSOURCE
OINDEX
EXCEPTION
HEADER
COLUMN
loGridb
Buffering
Buffering
INDEX ON TTOC(
, 3) TO
 ADDITIVE
INDEX ON DTOS(
) TO
 ADDITIVE
INDEX ON
 ADDITIVE
INDEX ON ALLTRIM(UPPER(
)) TO
 ADDITIVE
INDEX ON
 ADDITIVE
Picture
&lcIndexExpr
SET ORDER TO &lcIndexFile ASCENDING
SET ORDER TO &lcIndexFile DESCENDING
Buffering
Error sorting:
Error
LOGRID
LCRECORDSOURCE
LNBUFFERING
LAEVENT
LOHEADER
LOCOLUMN
LCFIELDTYPE
LCINDEXEXPR
LCCONTROLSOURCE
LCINDEXFILE
LUKEY
LNSELECT
LCNEWINDEXEXPR
THIS
CGRIDEVAL
CRECORDSOURCE
RECORDSOURCE
PARENT
CONTROLSOURCE
INDEXEXPRESSIONHOOK
OINDEX
GETKEY
SETALL
PICTURE
CSORTASCENDINGGRAPHIC
CSORTDESCENDINGGRAPHIC
REFRESH
MESSAGE-
Collection
OINDEX
BINDCONTROL
CLEANUP
OINDEX
sort,
bindcontrolv
indexexpressionhook
cleanup
search
Destroy2
PROCEDURE sort
******************************************************************
*  FUNCTION NAME: Sort
*  AUTHOR, DATE:
*      Paul Mrozowski, 5/7/2007
*  PROCEDURE DESCRIPTION:
*      Handle sorting the grid.
*  INPUT PARAMETERS:
*      None
*  OUTPUT PARAMETERS:
*      None
******************************************************************
LOCAL loGrid AS Grid, ;
      lcRecordSource, ;
      lnBuffering, ;
      loEx AS Exception, ;
      laEvent[1], ;
      loHeader AS Header, ;
      loColumn AS Column, ;
      lcFieldType, ;
      lcIndexExpr, ;
      lcControlSource, ;
      lcIndexFile, ;
      luKey, ;
      lnSelect, ;
      lcNewIndexExpr
   lnSelect = SELECT()
   loGrid = EVALUATE(This.cGridEval)
   IF TYPE("loGrid") <> "O"
      EXIT
   ENDIF
   IF EMPTY(This.cRecordSource)
      lcRecordSource = ALLTRIM(loGrid.RecordSource)
   ELSE
      lcRecordSource = ALLTRIM(This.cRecordSource)
   ENDIF
   IF !EMPTY(lcRecordSource)
      * You can't index table-buffered cursors
      lnBuffering = CURSORGETPROP("Buffering", lcRecordSource)

      IF lnBuffering > 3
         CURSORSETPROP("Buffering", 3, lcRecordSource)
      ENDIF

      AEVENTS(laEvent, 0)

      loHeader = laEvent[1]
      loColumn = loHeader.Parent
      lcControlSource = ALLTRIM(loColumn.ControlSource)

      IF !EMPTY(lcControlSource)
         IF ("." $ lcControlSource)
            lcFieldType = VARTYPE(EVALUATE(lcControlSource))
         ELSE
            lcFieldType = VARTYPE(EVALUATE(lcRecordSource + "." + lcControlSource))
         ENDIF

         lcIndexFile = FORCEEXT(ADDBS(SYS(2023)) + "_" + SYS(3), "IDX")

         DO CASE
            CASE lcFieldType = "T"
                 lcIndexExpr = "INDEX ON TTOC(" + lcControlSource + ", 3) TO " + lcIndexFile + " ADDITIVE"
            CASE lcFieldType = "D"
                 lcIndexExpr = "INDEX ON DTOS(" + lcControlSource + ") TO " + lcIndexFile + " ADDITIVE"
            CASE INLIST(lcFieldType, "N", "Y")
                 lcIndexExpr = "INDEX ON " + lcControlSource + " TO " + lcIndexFile + " ADDITIVE"
            CASE lcFieldType = "C"
                 lcIndexExpr = "INDEX ON ALLTRIM(UPPER(" + lcControlSource + ")) TO " + lcIndexFile + " ADDITIVE"
            CASE lcFieldType = "L"
                 lcIndexExpr = "INDEX ON " + lcControlSource + " TO " + lcIndexFile + " ADDITIVE"
            OTHERWISE
                 EXIT
         ENDCASE

         lcNewIndexExpr = This.IndexExpressionHook(lcIndexExpr, lcControlSource)

         IF VARTYPE(lcNewIndexExpr) = "C" AND !EMPTY(lcNewIndexExpr)
            lcIndexExpr = lcNewIndexExpr
         ENDIF

         luKey = This.oIndex.GetKey(lcControlSource)

         * Remove any existing header pictures, then add it to the current column
         loGrid.SetAll("Picture", "")

         SELECT (lcRecordSource)

         IF VARTYPE(luKey) = "N" AND luKey = 0
            * Index doesn't exist yet
            This.oIndex.Add(lcIndexFile, lcControlSource)
            &lcIndexExpr

            loHeader.Picture = This.cSortAscendingGraphic

         ELSE
            lcIndexFile = JUSTSTEM(This.oIndex[luKey])

            IF DESCENDING()
               SET ORDER TO &lcIndexFile ASCENDING
               loHeader.Picture = This.cSortAscendingGraphic
            ELSE
               SET ORDER TO &lcIndexFile DESCENDING
               loHeader.Picture = This.cSortDescendingGraphic
            ENDIF
         ENDIF

         LOCATE

         loGrid.Refresh()
      ENDIF

      IF lnBuffering > 3
         CURSORSETPROP("Buffering", lnBuffering, lcRecordSource)
      ENDIF
   ENDIF
CATCH TO loEx
   SET STEP ON
   MESSAGEBOX("Error sorting: " + loEx.Message, 48, "Error")
FINALLY
   SELECT (lnSelect)
ENDTRY
ENDPROC
PROCEDURE bindcontrol
******************************************************************
*  FUNCTION NAME: Bindcontrol
*  AUTHOR, DATE:
*      Paul Mrozowski, 5/7/2007
*  PROCEDURE DESCRIPTION:
*      Bind us to the headers in the grid.
*  INPUT PARAMETERS:
*      None
*  OUTPUT PARAMETERS:
*      None
******************************************************************
LOCAL loGrid AS Grid, ;
      loColumn AS Column, ;
      loControl
   loGrid = EVALUATE(This.cGridEval)
   IF TYPE("loGrid") = "O"
      FOR EACH loColumn IN loGrid.Columns
          FOR EACH loControl IN loColumn.Controls
              IF loControl.BaseClass = "Header"
                 BINDEVENT(loControl, "DblClick", This, "Sort")
                 BINDEVENT(loControl, "Click", This, "Search")
                 EXIT
              ENDIF
          ENDFOR
      ENDFOR

      IF PEMSTATUS(loGrid, "SaveSource", 5)
         IF This.cAutoCleanOn = "S"
            BINDEVENT(loGrid, "SaveSource", This, "Cleanup")
         ENDIF

         IF This.cAutoCleanOn = "R"
            BINDEVENT(loGrid, "RestoreSource", This, "Cleanup")
         ENDIF

      ENDIF
   ENDIF
CATCH
   MESSAGEBOX("This.cGridEval doesn't evaluate to an object: " + This.cGridEval)
ENDTRY
ENDPROC
PROCEDURE indexexpressionhook
LPARAMETERS tcIndexExpr, tcControlSource
******************************************************************
*  FUNCTION NAME: IndexExpressionHook
*  AUTHOR, DATE:
*      Paul Mrozowski, 5/7/2007
*  PROCEDURE DESCRIPTION:
*      Hook point to change how indexes are created or do things
*     like create an index on multiple fields when they click
*     on a particular header item.
*  INPUT PARAMETERS:
*      tcIndexExpr - Index expression
*     tcControlSource - Control source
*  OUTPUT PARAMETERS:
*      None
******************************************************************
* RETURN tcIndexExpr + ",SomeOtherField"
ENDPROC
PROCEDURE cleanup
******************************************************************
*  FUNCTION NAME: Cleanup
*  AUTHOR, DATE:
*      Paul Mrozowski, 5/7/2007
*  PROCEDURE DESCRIPTION:
*      Clean-un and remove any temp indexes.
*  INPUT PARAMETERS:
*      None
*  OUTPUT PARAMETERS:
*      None
******************************************************************
LOCAL lnSelect, ;
      lcRecordSource, ;
      lcSafety, ;
      lcIndex, ;
      lnBuffering, ;
      loEx, ;
      loGrid AS Grid
lnBuffering = 0
lnSelect = SELECT()
TRY
   loGrid = EVALUATE(This.cGridEval)
   IF TYPE("loGrid") <> "O"
      EXIT
   ENDIF
   loGrid.SetAll("Picture", "", "Header")
   IF EMPTY(This.cRecordSource)
      lcRecordSource = ALLTRIM(loGrid.RecordSource)
   ELSE
      lcRecordSource = ALLTRIM(This.cRecordSource)
   ENDIF
   SELECT (lcRecordSource)
   lnBuffering = CURSORGETPROP("Buffering", lcRecordSource)
   IF lnBuffering > 3
      CURSORSETPROP("Buffering", 3, lcRecordSource)
   ENDIF
   SET INDEX TO
CATCH TO loEx
   * The table/cursor may have already been closed
ENDTRY
lcSafety = SET("Safety")
SET SAFETY OFF
FOR EACH lcIndex IN This.oIndex
    TRY
       ERASE (lcIndex)
    CATCH
    ENDTRY
ENDFOR
IF VARTYPE(loEx) <> "O" AND lnBuffering > 3
   CURSORSETPROP("Buffering", lnBuffering, lcRecordSource)
ENDIF
SET SAFETY &lcSafety
   SELECT (lnSelect)
CATCH
ENDTRY
This.oIndex = CREATEOBJECT("Collection")
ENDPROC
PROCEDURE search
LOCAL loGrid AS Grid, ;
      lcRecordSource, ;
      lnBuffering, ;
      loEx AS Exception, ;
      laEvent[1], ;
      loHeader AS Header, ;
      loColumn AS Column, ;
      lcFieldType, ;
      lcIndexExpr, ;
      lcControlSource, ;
      lcIndexFile, ;
      luKey, ;
      lnSelect, ;
      lcNewIndexExpr
   lnSelect = SELECT()
   loGrid = EVALUATE(This.cGridEval)
   IF TYPE("loGrid") <> "O"
      EXIT
   ENDIF
   IF EMPTY(This.cRecordSource)
      lcRecordSource = ALLTRIM(loGrid.RecordSource)
   ELSE
      lcRecordSource = ALLTRIM(This.cRecordSource)
   ENDIF
   IF !EMPTY(lcRecordSource)
      * You can't index table-buffered cursors
      lnBuffering = CURSORGETPROP("Buffering", lcRecordSource)

      IF lnBuffering > 3
         CURSORSETPROP("Buffering", 3, lcRecordSource)
      ENDIF

      AEVENTS(laEvent, 0)

      loHeader = laEvent[1]
      loColumn = loHeader.Parent
      lcControlSource = ALLTRIM(loColumn.ControlSource)

      IF !EMPTY(lcControlSource)
         IF ("." $ lcControlSource)
            lcFieldType = VARTYPE(EVALUATE(lcControlSource))
         ELSE
            lcFieldType = VARTYPE(EVALUATE(lcRecordSource + "." + lcControlSource))
         ENDIF

         lcIndexFile = FORCEEXT(ADDBS(SYS(2023)) + "_" + SYS(3), "IDX")

         DO CASE
            CASE lcFieldType = "T"
                 lcIndexExpr = "INDEX ON TTOC(" + lcControlSource + ", 3) TO " + lcIndexFile + " ADDITIVE"
            CASE lcFieldType = "D"
                 lcIndexExpr = "INDEX ON DTOS(" + lcControlSource + ") TO " + lcIndexFile + " ADDITIVE"
            CASE INLIST(lcFieldType, "N", "Y")
                 lcIndexExpr = "INDEX ON " + lcControlSource + " TO " + lcIndexFile + " ADDITIVE"
            CASE lcFieldType = "C"
                 lcIndexExpr = "INDEX ON ALLTRIM(UPPER(" + lcControlSource + ")) TO " + lcIndexFile + " ADDITIVE"
            CASE lcFieldType = "L"
                 lcIndexExpr = "INDEX ON " + lcControlSource + " TO " + lcIndexFile + " ADDITIVE"
            OTHERWISE
                 EXIT
         ENDCASE

         lcNewIndexExpr = This.IndexExpressionHook(lcIndexExpr, lcControlSource)

         IF VARTYPE(lcNewIndexExpr) = "C" AND !EMPTY(lcNewIndexExpr)
            lcIndexExpr = lcNewIndexExpr
         ENDIF

         luKey = This.oIndex.GetKey(lcControlSource)

         * Remove any existing header pictures, then add it to the current column
         loGrid.SetAll("Picture", "")

         SELECT (lcRecordSource)

         IF VARTYPE(luKey) = "N" AND luKey = 0
            * Index doesn't exist yet
            This.oIndex.Add(lcIndexFile, lcControlSource)
            &lcIndexExpr

            loHeader.Picture = This.cSortAscendingGraphic

         ELSE
            lcIndexFile = JUSTSTEM(This.oIndex[luKey])

            IF DESCENDING()
               SET ORDER TO &lcIndexFile ASCENDING
               loHeader.Picture = This.cSortAscendingGraphic
            ELSE
               SET ORDER TO &lcIndexFile DESCENDING
               loHeader.Picture = This.cSortDescendingGraphic
            ENDIF
         ENDIF

         LOCATE

         loGrid.Refresh()
      ENDIF

      IF lnBuffering > 3
         CURSORSETPROP("Buffering", lnBuffering, lcRecordSource)
      ENDIF
   ENDIF
CATCH TO loEx
   SET STEP ON
   MESSAGEBOX("Error sorting: " + loEx.Message, 48, "Error")
FINALLY
   SELECT (lnSelect)
ENDTRY
ENDPROC
PROCEDURE Init
******************************************************************
*  FUNCTION NAME: Init
*  AUTHOR, DATE:
*      Paul Mrozowski, 5/7/2007
*  PROCEDURE DESCRIPTION:
*      Get things started.
*  INPUT PARAMETERS:
*      None
*  OUTPUT PARAMETERS:
*      None
******************************************************************
This.oIndex = CREATEOBJECT("Collection")
This.BindControl()
ENDPROC
PROCEDURE Destroy
******************************************************************
*  FUNCTION NAME: Destroy
*  AUTHOR, DATE:
*      Paul Mrozowski, 5/7/2007
*  PROCEDURE DESCRIPTION:
*      Clean up.
*  INPUT PARAMETERS:
*      None
*  OUTPUT PARAMETERS:
*      None
******************************************************************
This.Cleanup()
This.oIndex = NULL
ENDPROC
cgrideval =
_memberdata =
     954<VFPData><memberdata name="cgrideval" type="property" display="cGridEval" favorites="True"/><memberdata name="crecordsource" type="property" display="cRecordSource" favorites="True"/><memberdata name="sort" type="method" display="Sort"/><memberdata name="bindcontrol" type="method" display="BindControl"/><memberdata name="oindex" type="property" display="oIndex"/><memberdata name="indexexpressionhook" type="method" display="IndexExpressionHook" favorites="True"/><memberdata name="cleanup" type="method" display="Cleanup"/><memberdata name="lautocleanondestroy" type="property" display="lAutoCleanOnDestroy"/><memberdata name="cautocleanon" type="property" display="cAutoCleanOn"/><memberdata name="csortascendinggraphic" type="property" display="cSortAscendingGraphic" favorites="True"/><memberdata name="csortdescendinggraphic" type="property" display="cSortDescendingGraphic" favorites="True"/><memberdata name="search" display="Search"/></VFPData>
crecordsource =
oindex = .NULL.
cautocleanon = S
csortascendinggraphic = pr_SortAscending.bmp
csortdescendinggraphic = pr_SortDescending.bmp
Name = "gridsort"
customBMx
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _39L029YY01087745590
 COMMENT RESERVED
VERSION =   3.00
reportlisteners.h>
foxpro_reporting.hF
reportlisteners_locs.hN
pr_htmllistener2
reportlisteners.h
Pixels
Class
custom
pr_htmllistener2
_memberdata XML Metadata for customizable properties
noutfile
npagewidth
npageheight
nscreendpi
ldebug
ctargetfilename
oactivelistener
ldefaultmode
nimgcounter
_ctempfolder
oimages
cexternalfilelocation
lcopyimagefilestoexternalfilelocation
quietmode Specifies whether the ReportListener may provide any user feedback or interface.
waitfornextreport
*outputfromdata
*render Occurs when Report Engine is ready to provide output for each layout object in a band.
*beforereport Occurs just before Report Engine begins processing a report form.
*afterreport Occurs directly after Report Engine finishes processing a report form.
*getbandname
*getfontstyle
*rgbtohex
*afterband Occurs directly after Report Engine finishes processing a report band.
*beforeband Occurs just before Report Engine begins processing a report band.
*getcontinuationtype
*getpageimg
*getpicturefromlistener
*processimages
*processtext
*processlines
*processshapes
*getlinescnt
*cropimage
^apagesimgs[1,0]
Invalid parameter. Report listener not available
Error
The helper FRX table is not available. Output can't be created
Error
Datasessionv
<html><head><META http-equiv="Content-Type" content="text/html">
<title>
</title></head><body>
%  -
100%  - CCC
TOLISTENER
TCOUTPUTDBF
TNWIDTH
TNHEIGHT
OACTIVELISTENER
CFRXALIAS
QUIETMODE
LNSECS
DOFOXYTHERM
_GOHELPER
_INITSTATUSTEXT
LNSELECT
LNORIGDATASESSION
LISTENERDATASESSION
LDEFAULTMODE
NPAGEHEIGHT
NSCREENDPI
NPAGEWIDTH
NOUTFILE
CTARGETFILENAME
CHTML
LNPGFROM
LNPGTO
_CLAUSENRANGEFROM
_CLAUSENRANGETO
RENDER
FRXRECNO
WIDTH
HEIGHT
CONTTYPE
UNCONTENTS
LNPERCENT
LNLASTPERCENT
LNDELAY
LNTOTRECS
LNREC
_SECONDSTEXT
_RUNSTATUSTEXT
AFTERREPORT4
<!-- nLeft:C
, nTop:
, nWidth:
, nHeight:
, ContinuationType:
, cContents:
NFRXRECNO
NLEFT
NWIDTH
NHEIGHT
NOBJECTCONTINUATIONTYPE
CCONTENTSTOBERENDERED
GDIPLUSIMAGE
LCDEBUGINFO
LCHTML
LDEBUG
GETCONTINUATIONTYPE
NOUTFILE
LNADJUST
NSCREENDPI
NPAGEHEIGHT
OACTIVELISTENER
COMMANDCLAUSES
RANGEFROM
OBJTYPE
PROCESSLINES
PROCESSSHAPES
PROCESSTEXT
PROCESSIMAGES
</body></html>
NOUTFILE
LLSAVED
LCFILE
APAGESIMGS
OACTIVELISTENER)
FRX_OBJCOD_TITLE
FRX_OBJCOD_PAGEHEADER
FRX_OBJCOD_COLHEADER
FRX_OBJCOD_GROUPHEADER
FRX_OBJCOD_DETAIL
FRX_OBJCOD_GROUPFOOTER
FRX_OBJCOD_COLFOOTER
FRX_OBJCOD_PAGEFOOTER
FRX_OBJCOD_SUMMARY
FRX_OBJCOD_DETAILHEADER
FRX_OBJCOD_DETAILFOOTER
NBANDOBJCODE1
NFONTSTYLE
CSTYLE[
NGREEN
NBLUE
<!-- AfterBand:
pagefooter
NBANDOBJCODE
NFRXRECNO
CBAND
FRXDATASESSION
GETBANDNAME
LDEBUG
NOUTFILE
CURRENTDATASESSION
<!-- BeforeBand:C
NBANDOBJCODE
NFRXRECNO
FRXDATASESSION
LDEBUG
NOUTFILE
GETBANDNAME
CURRENTDATASESSION
LISTENER_CONTINUATION_NONE
LISTENER_CONTINUATION_START
LISTENER_CONTINUATION_MIDDLE
LISTENER_CONTINUATION_END
NOBJECTCONTINUATIONTYPE
REPORTLISTENER
TEMP5
LOLISTENER
OACTIVELISTENER
LNPAGE
COMMANDCLAUSES
RANGEFROM
APAGESIMGS
LNDEVICETYPE
LCFILE
LNHANDLE
OUTPUTPAGE
TNWIDTH
TNHEIGHT
TCFILE
LCFILE
GETPAGEIMG
LNHOR
LNVERT
LCNEWFILE
CROPIMAGE
_IMAGES
_IMAGES
IMAGE
Image
<img src="
" width="
" height="
<span style="position:absolute;left:C
px;top:
clip: rect(0
px 0);
</span>
IMAGE
Image
<img src="
" width="
" height="
<span style="position:absolute;left:C
px;top:
clip: rect(0
px 0);
</span>
<img src="
" width="
" height="
<span style="position:absolute;left:C
px;top:
px;">
</span>
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
CCONTENTSTOBERENDERED
LCFILE
LCPATH
LCSHORTPATH
LCIMAGECOPY
LCPATHLOCATION
CTARGETFILENAME
CEXTERNALFILELOCATION
NIMGCOUNTER
GETPICTUREFROMLISTENER
PR_PATHFILEEXISTS
LCHTML
LCIMGHTML
GENERAL
LNWIDTH
LNHEIGHT
LNPICTWIDTH
LNPICTHEIGHT
LOVFPIMG
PICTURE
WIDTH
HEIGHT
LNHORFACTOR
LNVERTFACTOR
LNRESIZEFACTOR
LNISOWIDTH
LNISOHEIGHTN
lcText = STRTRAN(lcOrigText, [&], [&])
lcText = STRTRAN(lcText, [<], [<])
lcText = STRTRAN(lcText, [>], [>])
text-align: left;
text-align: right;
text-align: center;
white-space:normal;
overflow:hidden ;
white-space:nowrap;
white-space:normal;
<span style="
position:absolute;left:
px;top:
width:
px;height:
background-color:
font-family:
font-size:
color:
</span>
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
CCONTENTSTOBERENDERED
LCHTML
LCTEXT
LCORIGTEXT
LCALIGN
OFFSET
LCFILLHEX
LCPRESPAN
LCPOSTSPAN
LCFOREHEX
LCPREFONT
LCPOSTFONT
FILLRED
FILLGREEN
FILLBLUE
RGBTOHEX
PENRED
PENGREEN
PENBLUE
STRETCH
LCWWRAP
LNLINES
GETLINESCNT
FONTFACE
FONTSIZE
FONTSTYLE
LCFONTSTYLE
LCPRESTYLE
LCPOSTSTYLE
GETFONTSTYLE(
<span style="position:absolute;left:C
px;top:
px;width:
height:
px;text-align: left;border:1px solid
<font face="Arial" fontsize=10 color=#000000></font></span>
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
LCHTML
RGBTOHEX
PENRED
PENGREEN
PENBLUEZ
background-color:
border-left:C
 solid;
border-right:
 solid;
border-top:
 solid;
border-left:C
 solid;
border-right:
 solid;
border-left:C
 solid;
border-right:
 solid;
border-bottom:
 solid;
border:C
 solid;
<span style="position:absolute;left:C
px;top:
px;width:
height:
px;text-align: left;
</span>
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
TNOBJECTCONTINUATIONTYPE
LCFILLHEX
FILLPAT
FILLRED
FILLGREEN
FILLBLUE
RGBTOHEX
LCBORDERHEX
PENPAT
PENRED
PENGREEN
PENBLUE
PENSIZE
LCHTML3
GPRECTANGLE
\ffc\_Gdiplus.vcx
GPRectangle
_Gdiplus.vcx
GPFont
_Gdiplus.vcx
GPGRAPHICS
\ffc\_Gdiplus.vcx
GpGraphics
_Gdiplus.vcx
333333
GPSIZE
\ffc\_Gdiplus.vcx
TCTEXT
TCFONTNAME
TNSIZE
TCSTYLE
TNLEFT
TNTOP
TNWIDTH
TNHEIGHT
LOFONT
LNCHARS
LNLINES
LNHEIGHT
LNWIDTH
LNFACTOR
LORECT
CREATE
LOGFX
CREATEFROMHWND
PAGEUNIT
PAGESCALE
LOSIZE
MEASURESTRINGA
GDIPRECTF
STRING
INTEGER
INTEGER
GPBITMAP
ffc\_gdiplus.vcx
GpBitmap
_GdiPlus.vcx
GdipCloneBitmapAreaI
GDIPLUS.DLLQ
pdfxGdipCloneBitmapAreaI
GPBITMAP
ffc\_gdiplus.vcx
GpBitmap
_GdiPlus.vcx
image/png
image/jpeg6
LCFILE
LNWIDTH
LNHEIGHT
TCNEWFILE
_CTEMPFOLDER
LCEXT
LOBMP
CREATEFROMFILE
IMAGEHEIGHT
IMAGEWIDTH
LHBITMAP
LNSTATUS
GDIPCLONEBITMAPAREAI
GDIPLUS
PDFXGDIPCLONEBITMAPAREAI
PIXELFORMAT
GETHANDLE
LOCROPPED
SETHANDLE
SETRESOLUTION
HORIZONTALRESOLUTION
VERTICALRESOLUTION
LCENCODER
LCCROPPEDFILE
SAVETOFILE
OIMAGES
GetDeviceCaps
WIN32API
GetDC
WIN32API
Collection
GETDEVICECAPS
WIN32API
GETDC
LNSCREENDPI
NSCREENDPI
LDEBUG
_CTEMPFOLDER
OIMAGES
NOUTFILE
outputfromdata,
render
afterreport
getbandname
getfontstyle
rgbtohex#
afterband
beforeband
getcontinuationtype
getpageimg
getpicturefromlistenerL
processimagess
processtext
processlines
processshapesG(
getlinescntj-
cropimage
Destroy
hMPROCEDURE outputfromdata
LPARAMETERS toListener, tcOutputDBF, tnWidth, tnHeight
IF VARTYPE(toListener) <> "O"
    MESSAGEBOX("Invalid parameter. Report listener not available", 16, "Error")
    RETURN
ENDIF
This.oActiveListener = toListener
IF EMPTY(toListener.cFRXAlias)
    MESSAGEBOX("The helper FRX table is not available. Output can't be created", 16, "Error")
    RETURN
ENDIF
* =DoFoxyTherm(90, "Texto label", "Titulo")
* =DoFoxyTherm(-1, "Teste2", "Titulo") && Continuo
* =DoFoxyTherm() && Desliga
IF NOT This.QuietMode
    LOCAL lnSecs
    lnSecs = SECONDS()
    *!*    ._InitStatusText    = .GetLoc("INITSTATUS") + SPACE(1)
    *!*    ._RunStatusText     = .GetLoc("RUNSTATUS")  + SPACE(1)
    *!*    ._SecondsText       = .GetLoc("SECONDS")    + SPACE(1)
    =DoFoxyTherm(1, "0%", _goHelper._InitStatusText)
ENDIF
LOCAL lnSelect, lnOrigDataSession
lnSelect          = SELECT()
lnOrigDataSession = SET("Datasession")
* Ensure we are at the correct DataSession
SET DATASESSION TO (toListener.ListenerDataSession)
* SET DATASESSION TO (toListener.CurrentDataSession)
SELECT (tcOutputDBF)
* Generate RTF using the stored information
This.lDefaultMode = .F.
* This.BeforeReport()
THIS.nPageHeight = CEILING(THIS.nScreenDPI * tnHeight / 960)
THIS.nPageWidth  = CEILING(THIS.nScreenDPI * tnWidth / 960)
THIS.nOutFile    = FCREATE(THIS.cTargetFileName) && .cOutFile)
LOCAL cHtml
cHtml = [<html><head><META http-equiv="Content-Type" content="text/html">] + ;
    [<title>] + This.cTargetFileName + [</title></head><body>]
FPUTS(THIS.nOutFile, cHtml)
LOCAL lnPgFrom, lnPgTo
lnPgFrom = _goHelper._ClausenRangeFrom && = loListener.COMMANDCLAUSES.RangeFrom
lnPgTo   = IIF(_goHelper._ClausenRangeTo = -1, 999999, _goHelper._ClausenRangeTo) && = loListener.COMMANDCLAUSES.RangeTo && -1 = All pages
* Initialize class
SELECT (tcOutputDBF)
IF This.QuietMode
    SCAN
        IF BETWEEN(Page, lnPgFrom, lnPgTo)
            This.Render(FRXRECNO, Left, Top, Width, Height, ContType, UNContents, 0)
        ENDIF
    ENDSCAN
ELSE
    LOCAL lnPercent, lnLastPercent, lnDelay, lnTotRecs, lnRec
    lnLastPercent = 0
    lnDelay       = 1
    lnTotRecs     = RECCOUNT()
    lnRec         = 0
    SCAN
        IF BETWEEN(Page, lnPgFrom, lnPgTo)
            lnRec = lnRec + 1
            lnPercent = CEILING(100*lnRec/lnTotRecs)
            IF (lnLastPercent > 0 AND ;
                    lnPercent - lnLastPercent < lnDelay  AND ;
                    lnPercent <> 100)
            ELSE
                =DoFoxyTherm(lnPercent, ;
                    ALLTRIM(TRANSFORM(lnPercent)) + "%  - " + TRANSFORM(FLOOR(SECONDS() - lnSecs)) + " " + _goHelper._SecondsText , ;
                    _goHelper._RunStatusText)
            ENDIF
            This.Render(FRXRECNO, Left, Top, Width, Height, ContType, UNContents, 0)
        ENDIF
    ENDSCAN
    =DoFoxyTherm(100, ;
        "100%  - " + TRANSFORM(CEILING(SECONDS() - lnSecs)) + " " + _goHelper._SecondsText , ;
                _goHelper._RunStatusText)
ENDIF
* Finalize
This.AfterReport()
USE IN SELECT(tcOutputDBF)
* Restore DataSession, ALias
SET DATASESSION TO (lnOrigDataSession)
SELECT (lnSelect)
IF NOT This.QuietMode
    =DoFoxyTherm()
ENDIF
RETURN
ENDPROC
PROCEDURE render
* 2011-07-14 CChalom:
* Introduced text alignment, Width and Height
* Adjusted positions
* Fixed transparent background texts
* Reduced FontSize in 2 points to make text fit in space
* Added lines
* Created separate methods to deal with different tasks
* Managing images and shapes
LPARAMETERS nFRXRecno, nLeft, nTop, nWidth, nHeight, nObjectContinuationType, cContentsToBeRendered, GDIPlusImage
This.nX0 = nLeft
This.nY0 = nTop
This.nW0 = nWidth
This.nH0 = nHeight
LOCAL lcDebugInfo, lcHTML
IF THIS.lDebug
    lcDebugInfo = [<!-- nLeft:] + TRANSFORM(nLeft) + [, nTop:] + TRANSFORM(nTop) + [, nWidth:] + ;
        TRANSFORM(nWidth) + [, nHeight:] + TRANSFORM(nHeight) + [, ContinuationType:] + ;
        THIS.GetContinuationType(nObjectContinuationType) + [, cContents:] + cContentsToBeRendered + [ -->]
    FPUTS(THIS.nOutFile, lcDebugInfo)
ENDIF
#Define OBJ_COMMENT                  0
#Define OBJ_LABEL                    5
#Define OBJ_LINE                     6
#Define OBJ_RECTANGLE                7
#Define OBJ_FIELD                    8
#Define OBJ_PICTURE                 17
#Define OBJ_VARIABLE                18
LOCAL lnAdjust
lnAdjust = 1.10
* dpi2pix
nLeft   = CEILING(CEILING(THIS.nScreenDPI * nLeft / 960) * lnAdjust)
nTop    = ROUND(THIS.nScreenDPI * nTop / 960, 0)
nWidth  = CEILING(CEILING(THIS.nScreenDPI * nWidth / 960) * lnAdjust)
nHeight = CEILING(THIS.nScreenDPI * nHeight / 960)
IF PAGE > 1
    nTop = THIS.nPageHeight * (PAGE - This.oActiveListener.CommandClauses.RangeFrom) + nTop && Original -1
ENDIF
DO CASE
CASE ObjType = OBJ_LINE
    lcHTML = This.ProcessLines(nLeft, nTop, nWidth, nHeight)
CASE ObjType = OBJ_RECTANGLE
    lcHTML = This.ProcessShapes(nLeft, nTop, nWidth, nHeight, nObjectContinuationType)
    *!* 2011-08-17 - Jacques Parent
    *!* Added nObjectContinuationType parameter
CASE INLIST(ObjType, OBJ_LABEL, OBJ_FIELD)
    lcHTML = This.ProcessText(nLeft, nTop, nWidth, nHeight, cContentsToBeRendered)
CASE ObjType = OBJ_PICTURE
    lcHTML = This.ProcessImages(nLeft, nTop, nWidth, nHeight, cContentsToBeRendered)
OTHERWISE
    RETURN
ENDCASE
IF VARTYPE(lcHTML) <> "C"
    RETURN
ENDIF
IF NOT EMPTY(lcHTML)
    =FPUTS(THIS.nOutFile, lcHtml)
ENDIF
ENDPROC
PROCEDURE afterreport
*!*    * Determine the ".WaitForNextReport" status if using "lObjTypeMode"
*!*    IF This.lObjTypeMode
*!*        TRY
*!*            This.WaitForNextReport = This.CommandClauses.NoPageEject
*!*        CATCH
*!*        ENDTRY
*!*    ENDIF
*!*    IF NOT This.WaitForNextReport
    FPUTS(THIS.nOutFile, [</body></html>])
    LOCAL llSaved
    llSaved = FCLOSE(THIS.nOutFile)
    * Delete the pages image files
    LOCAL n, lcFile
    FOR m.n = 1 TO ALEN(This.aPagesImgs,1)
        lcFile = This.aPagesImgs(m.n)
        IF NOT EMPTY(lcFile)
            TRY
                DELETE FILE (lcFile)
            CATCH
            ENDTRY
        ENDIF
    ENDFOR
    This.oActiveListener = ""
*!*    ENDIF
ENDPROC
PROCEDURE getbandname
LPARAMETERS nBandObjCode
DO CASE
    CASE nBandObjCode = FRX_OBJCOD_TITLE
        RETURN 'FRX_OBJCOD_TITLE'
    CASE nBandObjCode = FRX_OBJCOD_PAGEHEADER
        RETURN 'FRX_OBJCOD_PAGEHEADER'
    CASE nBandObjCode = FRX_OBJCOD_COLHEADER
        RETURN 'FRX_OBJCOD_COLHEADER'
    CASE nBandObjCode = FRX_OBJCOD_GROUPHEADER
        RETURN 'FRX_OBJCOD_GROUPHEADER'
    CASE nBandObjCode = FRX_OBJCOD_DETAIL
        RETURN 'FRX_OBJCOD_DETAIL'
    CASE nBandObjCode = FRX_OBJCOD_GROUPFOOTER
        RETURN 'FRX_OBJCOD_GROUPFOOTER'
    CASE nBandObjCode = FRX_OBJCOD_COLFOOTER
        RETURN 'FRX_OBJCOD_COLFOOTER'
    CASE nBandObjCode = FRX_OBJCOD_PAGEFOOTER
        RETURN 'FRX_OBJCOD_PAGEFOOTER'
    CASE nBandObjCode = FRX_OBJCOD_SUMMARY
        RETURN 'FRX_OBJCOD_SUMMARY'
    CASE nBandObjCode = FRX_OBJCOD_DETAILHEADER
        RETURN 'FRX_OBJCOD_DETAILHEADER'
    CASE nBandObjCode = FRX_OBJCOD_DETAILFOOTER
        RETURN 'FRX_OBJCOD_DETAILFOOTER'
    OTHERWISE
        RETURN ''
ENDCASE
ENDPROC
PROCEDURE getfontstyle
LPARAMETERS nFontStyle
LOCAL cStyle
cStyle = ''
* extended styles
IF nFontStyle = FRX_FONTSTYLE_UNDERLINED
    cStyle = 'U'
    nFontStyle = nFontStyle - FRX_FONTSTYLE_UNDERLINED
ENDIF
IF nFontStyle = FRX_FONTSTYLE_STRIKETHROUGH
    cStyle = cStyle + 'S'
    nFontStyle = nFontStyle - FRX_FONTSTYLE_STRIKETHROUGH
ENDIF
* standart styles
DO CASE
    CASE nFontStyle = FRX_FONTSTYLE_NORMAL
        cStyle = cStyle + 'N'
    CASE nFontStyle = FRX_FONTSTYLE_BOLD
        cStyle = cStyle + 'B'
    CASE nFontStyle = FRX_FONTSTYLE_ITALIC
        cStyle = cStyle + 'I'
    CASE nFontStyle = FRX_FONTSTYLE_BOLD + FRX_FONTSTYLE_ITALIC
        cStyle = cStyle + 'BI'
ENDCASE
RETURN cStyle
ENDPROC
PROCEDURE rgbtohex
LPARAMETERS nReg, nGreen, nBlue
RETURN [#] + RIGHT(TRANSFORM(MAX(nReg, 0), [@0]), 2) + ;
    RIGHT(TRANSFORM(MAX(nGreen, 0), [@0]), 2) + RIGHT(TRANSFORM(MAX(nBlue, 0), [@0]), 2)
ENDPROC
PROCEDURE afterband
LPARAMETERS nBandObjCode, nFRXRecno
LOCAL cBand
SET DATASESSION TO THIS.FRXDATASESSION
GO nFRXRecno IN frx
cBand = THIS.GetBandName(nBandObjCode)
IF THIS.lDebug
    FPUTS(THIS.nOutFile, '<!-- AfterBand:' + cBand + ' -->')
ENDIF
IF ATC('pagefooter', cBand) > 0
* fputs(This.nOutFile, '<hr color = black>')
ENDIF
SET DATASESSION TO THIS.CURRENTDATASESSION
ENDPROC
PROCEDURE beforeband
LPARAMETERS nBandObjCode, nFRXRecno
SET DATASESSION TO THIS.FRXDATASESSION
GO nFRXRecno IN frx
IF THIS.lDebug
    FPUTS(THIS.nOutFile, '<!-- BeforeBand:' + THIS.GetBandName(nBandObjCode) + ' -->')
ENDIF
SET DATASESSION TO THIS.CURRENTDATASESSION
ENDPROC
PROCEDURE getcontinuationtype
LPARAMETERS nObjectContinuationType
DO CASE
    CASE nObjectContinuationType = LISTENER_CONTINUATION_NONE
        RETURN 'LISTENER_CONTINUATION_NONE'
    CASE nObjectContinuationType = LISTENER_CONTINUATION_START
        RETURN 'LISTENER_CONTINUATION_START'
    CASE nObjectContinuationType = LISTENER_CONTINUATION_MIDDLE
        RETURN 'LISTENER_CONTINUATION_MIDDLE'
    CASE nObjectContinuationType = LISTENER_CONTINUATION_END
        RETURN 'LISTENER_CONTINUATION_END'
    OTHERWISE
        RETURN ''
ENDCASE
ENDPROC
PROCEDURE getpageimg
#DEFINE OutputJPEG     102
#DEFINE OutputPNG     104
LOCAL loListener as ReportListener
* loListener = IIF(VARTYPE(This.oActiveListener)="O", This.oActiveListener, This)
loListener = This.oActiveListener
LOCAL lnPage
lnPage = PAGE - loListener.CommandClauses.RangeFrom + 1
DIMENSION This.aPagesImgs(lnPage)
IF EMPTY(This.aPagesImgs(lnPage))
    LOCAL lnDeviceType, lcFile, lnDeviceType, lnHandle
    lnDeviceType = OutputJpeg  && OutputPNG
    lcFile = ADDBS(GETENV("TEMP")) + SYS(2015) + ".JPG" && ".PNG"
    loListener.OutputPage(lnPage, lcFile, lnDeviceType)
    This.aPagesImgs(lnPage) = lcFile
ENDIF
RETURN This.aPagesImgs(lnPage)
ENDPROC
PROCEDURE getpicturefromlistener
* 2011/02/25 CChalom
* When we can't access the image from the EXE or from a General field, we still can get
* an image of the object, and draw it to the PDF document
LPARAMETERS tnX, tnY, tnWidth, tnHeight, tcFile
LOCAL lcFile
lcFile = This.GetPageImg()
IF EMPTY(lcFile)
    RETURN .F. && Could not load image
ENDIF
* Horizontal and Vertical factors to divide to convert to the correct coordinate
LOCAL lnHor, lnVert
lnHor  = 9.972
lnVert = 9.996
lcNewFile = This.CropImage(lcFile, tnX / lnHor, tnY / lnVert, tnWidth / lnHor, tnHeight / lnVert, tcFile)
RETURN lcNewFile
ENDPROC
PROCEDURE processimages
LPARAMETERS tnLeft, tnTop, tnWidth, tnHeight, cContentsToBeRendered
* TODO:
* Manage new possibilities for storing images, using the new properties:
* cExternalFileLocation = ".\images"
* lCopyImageFilesToExternalFileLocation = .T.
* Create Images directory
LOCAL lcFile, lcPath, lcShortPath, lcImageCopy, lcPathLocation
lcFile = This.cTargetFileName
IF EMPTY(This.cExternalFileLocation)
    lcPathLocation = JUSTSTEM(lcFile) + "_IMAGES"
ELSE
    lcPathLocation = This.cExternalFileLocation
ENDIF
lcPath = ADDBS(JUSTPATH(lcFile)) + lcPathLocation
lcShortPath = lcPathLocation + "\" + JUSTFNAME(cContentsToBeRendered)
IF NOT DIRECTORY(lcPath)
    MKDIR (lcPath)
ENDIF
DO CASE
CASE EMPTY(cContentsToBeRendered)  && General field
    This.nImgCounter = This.nImgCounter + 1
    lcImageCopy = ADDBS(lcPath) + "_" + TRANSFORM(This.nImgCounter) + ".jpg"
    This.GetPictureFromListener(This.nX0, This.nY0, This.nW0, This.nH0, lcImageCopy)
    lcShortPath = JUSTSTEM(lcFile) + "_IMAGES" + "\" + "_" + TRANSFORM(This.nImgCounter) + ".jpg"
CASE NOT EMPTY(SYS(2000, cContentsToBeRendered))  && File is accessible in the disk
    lcImageCopy = ADDBS(lcPath) + JUSTFNAME(cContentsToBeRendered)
    IF PR_PathFileExists(lcImageCopy + CHR(0)) = 0 && PR_PathFileExists function in FoxyPreviewer.app
*    IF NOT FILE(lcImageCopy)
        COPY FILE (cContentsToBeRendered) TO (lcImageCopy)
    ENDIF
CASE EMPTY(SYS(2000, cContentsToBeRendered))  && Image embedded in EXE
    lcImageCopy = ADDBS(lcPath) + JUSTFNAME(cContentsToBeRendered)
    This.GetPictureFromListener(This.nX0, This.nY0, This.nW0, This.nH0, lcImageCopy)
    IF PR_PathFileExists(lcImageCopy + CHR(0)) = 0 && PR_PathFileExists function in FoxyPreviewer.app
*    IF NOT FILE(lcImageCopy)
        COPY FILE (cContentsToBeRendered) TO (lcImageCopy)
    ENDIF
OTHERWISE
    RETURN ""
ENDCASE
* If we could not generate the image copy, leave
IF PR_PathFileExists(lcImageCopy + CHR(0)) = 0 && PR_PathFileExists function in FoxyPreviewer.app
    RETURN ""
ENDIF
LOCAL lcHTML, lcImgHTML
DO CASE
CASE General = 0        && Clip
    * Get the picture size
    LOCAL lnWidth, lnHeight, lnPictWidth, lnPictHeight, lcHTML
    LOCAL loVFPImg as Image
    loVFPImg = CREATEOBJECT("Image")
    loVFPImg.Picture = lcImageCopy
    lnWidth = loVFPImg.Width
    lnHeight = loVFPImg.Height
    loVFPImg = NULL
    CLEAR RESOURCES (lcImageCopy)
    lcImgHTML = [<img src="] + lcShortPath + [" width="] + TRANSFORM(lnWidth) + [" height="] + TRANSFORM(lnHeight) +  [">]
    lcHTML = ;
        [<span style="position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;] + ;
        [clip: rect(0 ] + TRANSFORM(tnWidth) + [px ] + TRANSFORM(tnHeight) + [px 0);] + ;
        [">] + ;
        lcImgHTML + ;
        [</span>]
*!*    img {    position: absolute;
*!*    clip: rect(0 100px 200px 0);
*!*    /* clip: shape(top right bottom left); NB 'rect' is the only available option */}
* <span style="position:absolute;left:9px;top:400px;clip: rect(0 100px 50px 0);"><img src="TEST22222_IMAGES\pr_mail_32.bmp" width="234" height="64"></span>
CASE General = 1    && Isometric
    * Calculating the image size for isometric images
    * Get the picture size
    LOCAL lnWidth, lnHeight, lnPictWidth, lnPictHeight, lcHTML
    LOCAL loVFPImg as Image
    loVFPImg = CREATEOBJECT("Image")
    loVFPImg.Picture = lcImageCopy
    lnPictWidth  = loVFPImg.Width
    lnPictHeight = loVFPImg.Height
    loVFPImg     = NULL
    CLEAR RESOURCES (lcImageCopy)
    * Isometric Adjustment
    LOCAL lnHorFactor, lnVertFactor, lnResizeFactor, lnIsoWidth, lnIsoHeight
    m.lnHorFactor    = m.tnWidth  / m.lnPictWidth
    m.lnVertFactor   = m.tnHeight / m.lnPictHeight
    m.lnResizeFactor = MIN(m.lnHorFactor, m.lnVertFactor)
    m.lnIsoWidth     = m.lnPictWidth * m.lnResizeFactor
    m.lnIsoHeight = m.lnPictHeight * m.lnResizeFactor
    lcImgHTML = [<img src="] + lcShortPath + [" width="] + TRANSFORM(lnIsoWidth) + [" height="] + TRANSFORM(lnIsoHeight) +  [">]
    lcHTML = ;
        [<span style="position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;] + ;
        [clip: rect(0 ] + TRANSFORM(tnWidth) + [px ] + TRANSFORM(tnHeight) + [px 0);] + ;
        [">] + ;
        lcImgHTML + ;
        [</span>]
OTHERWISE
*!*    CASE .General = 2    && Stretch
    lcImgHTML = [<img src="] + lcShortPath + [" width="] + TRANSFORM(tnWidth) + [" height="] + TRANSFORM(tnHeight) +  [">]
    lcHTML = ;
        [<span style="position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;">] + ;
        lcImgHTML + ;
        [</span>]
ENDCASE
RETURN lcHTML
ENDPROC
PROCEDURE processtext
LPARAMETERS tnLeft, tnTop, tnWidth, tnHeight, cContentsToBeRendered
LOCAL lcHTML, lcText, lcOrigText
lcOrigText = ALLTRIM(STRCONV(cContentsToBeRendered, 6)) && STRCONV_UNICODE_UTF8) for Russian
IF EMPTY(lcOrigText)
    RETURN ""
ENDIF
* Html special chars
lcText = STRTRAN(lcOrigText, [&], [&]) && first!
*lcText = STRTRAN(lcText, [ ], [ ])
lcText = STRTRAN(lcText, [<], [<])
lcText = STRTRAN(lcText, [>], [>])
* Alignment settings
*     Offset = 0 && Left Aligned
*     Offset = 1 && Right Aligned
*     Offset = 2 && Center Aligned
LOCAL lcAlign
DO CASE
CASE Offset = 0
    lcAlign = "text-align: left;"
CASE Offset = 1
    lcAlign = "text-align: right;"
CASE Offset = 2
    lcAlign = "text-align: center;"
OTHERWISE
    lcAlign = ""
ENDCASE
* css style for span to output
LOCAL lcFillHex, lcPreSpan, lcPostSpan, lcForeHex, lcPreFont, lcForeHex, lcPostFont
* Mode: 0 = Opaque background; 1 = Transparent
DO CASE
*CASE (fillred = 255 AND fillgreen = 255 AND fillblue = 255) OR Mode = 1 && Transparent
*    lcFillHex = "" && white
CASE Mode = 1 && Transparent
    lcFillHex = "" && white
CASE fillred = -1   AND fillgreen = -1  AND fillblue = -1
    lcFillHex = THIS.RgbToHex(255,255,255) && White
*    lcFillHex = "" && white
OTHERWISE
    lcFillHex = THIS.RgbToHex(fillred, fillgreen, fillblue)
ENDCASE
IF PenRed = -1
    lcForeHex = THIS.RgbToHex(0, 0, 0)
ELSE
    lcForeHex = THIS.RgbToHex(penred, pengreen, penblue)
ENDIF
IF Stretch
    lcWWrap = [white-space:normal;]
ELSE
    * Get the quantity of lines needed
    LOCAL lnLines
    lnLines = 0
    lnLines = This.GetLinesCnt(lcOrigText, FontFace, FontSize, FontStyle, tnLeft, tnTop, tnWidth, tnHeight)
    IF lnLines <= 1
        lcWWrap = [overflow:hidden ;] + [white-space:nowrap;]
    ELSE
        lcWWrap = [white-space:normal;]
    ENDIF
ENDIF
lcPreSpan = [<span style="] + ;
            [position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;] + ;
            [width:] + TRANSFORM(tnWidth) + [px;height:] + TRANSFORM(tnHeight) + [px;] + lcAlign + ;
            IIF(EMPTY(lcFillHex), "", [background-color:] + lcFillHex + [;]) + ;
            [font-family:] + ALLTRIM(FontFace) + [;] + [font-size:] + TRANSFORM(FONTSIZE+2) + [px;] + ;
            [color:] +  + lcForeHex + ";" + ;
            lcWWrap + ;
            [">]
lcPostSpan = [</span>]
*    [word-wrap:break-word;] + ;
*    [overflow:hidden ;] + ;
*    [white-space:normal;] + ;
*    [overflow: visible;] + ;
* Font attrib
lcForeHex = THIS.RgbToHex(penred, pengreen, penblue)
*lcPreFont = [<font face="] + ALLTRIM(FontFace) + [" fontsize=] + TRANSFORM(FONTSIZE-2) + [ color=] + lcForeHex + [>]
*lcPostFont = [</font>]
lcPreFont = ""
lcPostFont = ""
* Set Html font style
LOCAL lcFontStyle, lcPreStyle, lcPostStyle
lcFontStyle = THIS.GetFontStyle(FontStyle)
STORE '' TO lcPreStyle, lcPostStyle
IF AT('B', lcFontStyle) > 0
    lcPreStyle = [<b>]
    lcPostStyle = [</b>]
ENDIF
IF AT('I', lcFontStyle) > 0
    lcPreStyle = lcPreStyle + [<i>]
    lcPostStyle = [</i>] + lcPostStyle
ENDIF
IF AT('U', lcFontStyle) > 0
    lcPreStyle = lcPreStyle + [<u>]
    lcPostStyle = [</u>] + lcPostStyle
ENDIF
IF AT('S', lcFontStyle) > 0
    lcPreStyle = lcPreStyle + [<s>]
    lcPostStyle = [</s>] + lcPostStyle
ENDIF
* write to file
lcHtml = lcPreSpan + lcPreFont + lcPreStyle + lcText + lcPostStyle + lcPostFont + lcPostSpan
RETURN lcHTML
ENDPROC
PROCEDURE processlines
LPARAMETERS tnLeft, tnTop, tnWIdth, tnHeight
LOCAL lcHTML
*!*    lcHTML = ;
*!*        [<span style="position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;width:] + TRANSFORM(tnWidth) + [px;] + ;
*!*        [height:1px;text-align: left;border:1px solid ] + THIS.RgbToHex(MAX(penred,0), MAX(pengreen,0), MAX(penblue,0)) + [;">] + ;
*!*        [<font face="Arial" fontsize=10 color=#000000></font></span>]
lcHTML = ;
    [<span style="position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;width:] + TRANSFORM(tnWidth) + [px;] + ;
    [height:] + TRANSFORM(tnHeight) + [px;text-align: left;border:1px solid ] + THIS.RgbToHex(MAX(penred,0), MAX(pengreen,0), MAX(penblue,0)) + [;">] + ;
    [<font face="Arial" fontsize=10 color=#000000></font></span>]
RETURN lcHTML
ENDPROC
PROCEDURE processshapes
LPARAMETERS tnLeft, tnTop, tnWidth, tnHeight, tnObjectContinuationType
*!* 2011-08-17 - Jacques Parent
*!* Added tnObjectContinuationType parameter
* Process Background information
LOCAL lcFillHex
* Mode    : 0 = Opaque background; 1 = Transparent
* FillPat : 0 = Transparent; others fill patterns (opaque)
DO CASE
CASE ((Mode = 1) OR (FillPat = 0)) AND (FillRed = -1) && Transparent
    lcFillHex = "" && white
CASE fillred = -1   AND fillgreen = -1  AND fillblue = -1
    * lcFillHex = "" && White
    lcFillHex = THIS.RgbToHex(255,255,255) && White
OTHERWISE
    lcFillHex = THIS.RgbToHex(fillred, fillgreen, fillblue)
ENDCASE
lcFillHex = IIF(EMPTY(lcFillHex), "", [background-color:] + lcFillHex + [;])
* Process Border color
LOCAL lcBorderHex
lcBorderHex = ""
* PenPat: 0 = Transparent (no border)
DO CASE
CASE PenPat = 0 && Transparent
CASE PenRed = -1
    lcBorderHex = THIS.RgbToHex(0,0,0) && Black
OTHERWISE
    lcBorderHex = THIS.RgbToHex(PenRed, PenGreen, PenBlue)
ENDCASE
IF NOT EMPTY(lcBorderHex)
    *!* --------------------------------------------------------------------------------------------------------
    *!* --------------------------------------------------------------------------------------------------------
    *!* --------------------------------------------------------------------------------------------------------
    *!* 2011-08-17 - Jacques Parent
    *!* In case tnObjectContinuationType is <> 0, we must deactivate some borders...
    DO CASE
        CASE tnObjectContinuationType == 1    && Top of box only
            lcBorderHex = [border-left:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;] +;
                          [border-right:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;] +;
                          [border-top:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;]
        CASE tnObjectContinuationType == 2    && Middle of box only
            lcBorderHex = [border-left:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;] +;
                          [border-right:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;]
        CASE tnObjectContinuationType == 3    && Bottom of box only
            lcBorderHex = [border-left:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;] +;
                          [border-right:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;] +;
                          [border-bottom:] + TRANSFORM(PenSize) + [px ] + lcBorderHex + [ solid;]
        OTHERWISE    && Complete box
            lcBorderHex = [border:] + TRANSFORM(PenSize) + [px ] + ;
                lcBorderHex + [ solid;]
            * border:1px solid
    ENDCASE
    *!* --------------------------------------------------------------------------------------------------------
    *!* --------------------------------------------------------------------------------------------------------
    *!* --------------------------------------------------------------------------------------------------------
ENDIF
LOCAL lcHTML
lcHTML = ;
    [<span style="position:absolute;left:] + TRANSFORM(tnLeft) + [px;top:] + TRANSFORM(tnTop) + [px;width:] + TRANSFORM(tnWidth) + [px;] + ;
    [height:] + TRANSFORM(tnHeight) + [px;text-align: left;] + ;
    lcBorderHex + ;
    lcFillHex + [">] + [ ] + ;
    [</span>]
RETURN lcHTML
ENDPROC
PROCEDURE getlinescnt
LPARAMETERS tcText, tcFontName, tnSize, tcStyle, tnLeft, tnTop, tnWidth, tnHeight
LOCAL loFont, lnChars, lnLines, lnHeight, lnWidth, lnFactor
LOCAL loRect as GpRectangle OF HOME() + "\ffc\_Gdiplus.vcx"
loRect = NEWOBJECT("GPRectangle", "_Gdiplus.vcx", "", 0, 0, tnWidth, tnHeight)
* Create a font object using the text object's settings.
loFont = NEWOBJECT("GPFont", "_Gdiplus.vcx")
loFont.Create(tcFontName, tnSize, tcStyle, 3)
LOCAL loGfx as GpGraphics OF HOME() + "\ffc\_Gdiplus.vcx"
loGfx  = NEWOBJECT("GpGraphics", "_Gdiplus.vcx")
lnFactor = 1 && 10
loGfx.CreateFromHWND(_Screen.HWnd)
loGfx.PageUnit  = 1
loGfx.PageScale = 0.3
loRect.w = tnWidth  / lnFactor
loRect.h = tnHeight / lnFactor
LOCAL loSize as GpSize OF HOME() + "\ffc\_Gdiplus.vcx"
loSize = loGfx.MeasureStringA(tcText, loFont, loRect.GdipRectF, .F., @lnChars, @lnLines)
lnWidth  = loSize.w
lnHeight = loSize.h
RETURN lnLines
* loGfx.SetHandle(0)
*RETURN (lnHeight / 960) * 72 * lnFactor
ENDPROC
PROCEDURE cropimage
Lparameters lcFile As String, tnX, tnY, lnWidth As Integer, lnHeight As Integer, tcNewFile
IF EMPTY(tcNewFile)
    tcNewFile = FORCEEXT(This._cTempFolder + Sys(2015), lcEXT)
ENDIF
Local loBmp As gpBitmap OF HOME() + "ffc\_gdiplus.vcx"
loBmp = NEWOBJECT("GpBitmap", "_GdiPlus.vcx")
loBmp.CreateFromFile(lcFile)
lnHeight = MIN(lnHeight, loBmp.ImageHeight)
lnWidth  = MIN(lnWidth , loBmp.ImageWidth)
LOCAL lhBitmap, lnStatus
lhBitmap = 0
* Function used in the CropImage method
DECLARE Long GdipCloneBitmapAreaI IN GDIPLUS.DLL AS pdfxGdipCloneBitmapAreaI Long x, Long y, Long nWidth, Long Height, Long PixelFormat, Long srcBitmap, Long @dstBitmap
lnStatus = pdfxGdipCloneBitmapAreaI(tnX, tnY, lnWidth, lnHeight, loBmp.PixelFormat, loBmp.GetHandle(), @lhBitmap)
IF (lnStatus <> 0) OR (lhBitmap = 0)
    loBmp = NULL
    * lnHandle = 0
    RETURN ""
ENDIF
LOCAL loCropped As gpBitmap OF HOME() + "ffc\_gdiplus.vcx"
loCropped = NEWOBJECT("GpBitmap", "_GdiPlus.vcx")
loCropped.SetHandle(lhBitmap, .T.)  && Owns handle, please destroy the Bmp object when releasing
loCropped.SetResolution(loBmp.HorizontalResolution, loBmp.VerticalResolution)
LOCAL lcEXT, lcEncoder
lcEXT = UPPER(JUSTEXT(lcFile))
lcEncoder = IIF(lcEXT = "PNG", "image/png", "image/jpeg")
LOCAL lcCroppedFile
lcCroppedFile = tcNewFile && FORCEEXT(This._cTempFolder + Sys(2015), lcEXT)
loCropped.SaveToFile(lcCroppedFile, lcEncoder)
loCropped = NULL
loBMP     = NULL
This.oImages.Add(lcCroppedFile)
RETURN lcCroppedFile
ENDPROC
PROCEDURE Init
* Author: aMaximum
* Class adapted from the class posted at www.foxclub.ru
* Original info:
**************************************************
*-- Class: html_listener (c:\projects\vfp9_preview\html_listener.vcx)
*-- ParentClass: reportlistener
*-- BaseClass: reportlistener
*-- Time Stamp: 06/18/04 03:09:01 PM
* http://forum.foxclub.ru/read.php?29,144472
* http://translate.google.com/translate?js=n&prev=_t&hl=pt-BR&ie=UTF-8&layout=2&eotf=1&sl=ru&tl=en&u=http%3A%2F%2Fforum.foxclub.ru%2Fread.php%3F29%2C144472&act=url
* http://forum.foxclub.ru/read.php?29,144639,144728
* http://translate.google.com/translate?js=n&prev=_t&hl=pt-BR&ie=UTF-8&layout=2&eotf=1&sl=ru&tl=en&u=http%3A%2F%2Fforum.foxclub.ru%2Fread.php%3F29%2C144639%2C144728&act=url
* The report emerged, but the problem with the encoding of Russian letters. What is the trick?
* Change in the method of render on strconv
* cText = strconv (cContentsToBeRendered, 6)
*   Or changing
* cHtml = [<html><head><META http-equiv="Content-Type" content="text/html;">] + ;
*   to
* cHtml = [<html><head><META http-equiv="Content-Type" content="text/html;charset=utf-8">] + ;
* and then there is a UNICODE conversion to UTF-8
#define LOGPIXELSX 88
DECLARE INTEGER GetDeviceCaps IN WIN32API INTEGER HDC, INTEGER ITEM
DECLARE INTEGER GetDC IN WIN32API INTEGER HWND
LOCAL HDC, lnScreenDPI
HDC = GetDC(0)
lnScreenDPI = GetDeviceCaps( m.HDC, LOGPIXELSX )
THIS.nScreenDPI = lnScreenDPI
THIS.lDebug = .F. && VERSION(2) = 2
This._cTempFolder = ADDBS(SYS(2023)) && ADDBS(GETENV("TEMP"))
This.oImages = CREATEOBJECT("Collection")
ENDPROC
PROCEDURE Destroy
FCLOSE(This.nOutFile)
ENDPROC
_memberdata =
    1927<VFPData><memberdata name="outputfromdata" display="OutputFromData"/><memberdata name="render" display="Render"/><memberdata name="beforereport" display="BeforeReport"/><memberdata name="afterreport" display="AfterReport"/><memberdata name="getbandname" display="GetBandName"/><memberdata name="getfontstyle" display="GetFontStyle"/><memberdata name="rgbtohex" display="RGBtoHex"/><memberdata name="afterband" display="AfterBand"/><memberdata name="beforeband" display="BeforeBand"/><memberdata name="noutfile" display="nOutFile"/><memberdata name="npagewidth" display="nPageWidth"/><memberdata name="npageheight" display="nPageHeight"/><memberdata name="nscreendpi" display="nScreenDPI"/><memberdata name="ldebug" display="lDebug"/><memberdata name="ctargetfilename" display="cTargetFileName"/><memberdata name="getcontinuationtype" display="GetContinuationType"/><memberdata name="oactivelistener" display="oActiveListener"/><memberdata name="ldefaultmode" display="lDefaultMode"/><memberdata name="getpageimg" display="GetPageImg"/><memberdata name="getpicturefromlistener" display="GetPictureFromListener"/><memberdata name="processimages" display="ProcessImages"/><memberdata name="processtext" display="ProcessText"/><memberdata name="processlines" display="ProcessLines"/><memberdata name="processshapes" display="ProcessShapes"/><memberdata name="getlinescnt" display="GetLinesCnt"/><memberdata name="nimgcounter" display="nImgCounter"/><memberdata name="nx0" display="nX0"/><memberdata name="ny0" display="nY0"/><memberdata name="nw0" display="nW0"/><memberdata name="nh0" display="nH0"/><memberdata name="cropimage" display="CropImage"/><memberdata name="_ctempfolder" display="_cTempFolder"/><memberdata name="apagesimgs" display="aPagesImgs"/><memberdata name="oimages" display="oImages"/><memberdata name="quietmode" display="QuietMode"/><memberdata name="waitfornextreport" display="WaitForNextReport"/></VFPData>
noutfile = -1
npagewidth = 0
npageheight = 0
nscreendpi = 0
ldebug = .F.
ctargetfilename =
oactivelistener = .NULL.
ldefaultmode = .F.
nimgcounter = 0
nx0 = 0
ny0 = 0
nw0 = 0
nh0 = 0
_ctempfolder = .F.
oimages =
cexternalfilelocation =
lcopyimagefilestoexternalfilelocation = .T.
quietmode = .F.
waitfornextreport = .F.
Name = "pr_htmllistener2"
custom
Nve?A
Spreadsheet file
FilterName
MS Excel 97
TCSOURCE
TCDESTINATION
OOOOPENURL
OOOCONVERTTOURL
AONEARG
CFILE
OOOMAKEPROPERTYVALUE
STORETOURL
CLOSE
Hiddena
_blank
ANOARGS
OOOMAKEPROPERTYVALUE
ODESKTOP
OOOGETDESKTOP
LOADCOMPONENTFROMURL
com.sun.star.beans.PropertyValue
nHandleb
nStateb
CNAME
UVALUE
NHANDLE
NSTATE
OPROPERTYVALUE
OOOCREATESTRUCT
VALUE
HANDLE
STATE'
ERROR
= DoNothing__ErrorHandler( ERROR(), MESSAGE(), LINENO(), SYS(16), PROGRAM(), SYS(2018) )
ON ERROR &cOldErrHandler
CTYPENAME
OSERVICEMANAGER
OOOGETSERVICEMANAGER
OSTRUCT
COLDERRHANDLER
BRIDGE_GETSTRUCT
__OOORELEASECACHEDVARS{
goOOoDesktopb
com.sun.star.frame.Desktop
GOOOODESKTOP
OOOSERVICEMANAGER_CREATEINSTANCEs
goOOoServiceManagerb
com.sun.star.ServiceManager
GOOOOSERVICEMANAGER'
ERROR
= DoNothing__ErrorHandler( ERROR(), MESSAGE(), LINENO(), SYS(16), PROGRAM(), SYS(2018) )
ON ERROR &cOldErrHandler
CSERVICENAME
OSERVICEMANAGER
OOOGETSERVICEMANAGER
OINSTANCE
COLDERRHANDLER
CREATEINSTANCE
__OOORELEASECACHEDVARS
PNERROR
PCERRMESSAGE
PNLINENO
PCPROGRAMFILESYS16
PCPROGRAM
PCERRORPARAMSYS2018
GOOOOSERVICEMANAGER
GOOOODESKTOP
GOOOOCOREREFLECTIONv
file://
CFILENAME
OOoOpenURL
OOoMakePropertyValue
OOoCreateStruct
OOoGetDesktop
OOoGetServiceManagerK
OOoServiceManager_CreateInstance
DoNothing__ErrorHandlerz
__OOoReleaseCachedVars
OOoConvertToURL?
FOXYPREVIEWER - Report preview and exporting utility
http://foxypreviewer.codeplex.com
--------------------------------------------------------------------
Created by Cesar Ch
    [e-mail]
    http://weblogs.foxite.com/vfpimaging
Main Features:
- Preview miniature of pages
- Export to image files (Bmp, Png, Tiff, Emf, Jpeg or Gif)
- Export to HTML, PDF, RTF OR XLS
- Send reports to email
- Search texts in reports
- Specify the quantity of pages to be printed
- Change the printer and settings on the fly
- Translate all dialogs, captions and tooltips to other languages than English
Full online documentation:
http://foxypreviewer.codeplex.com/documentation
Get the latest release:
http://foxypreviewer.codeplex.com/releases
This utility uses some terrific tools created by other Foxers, that were provided as free and open source.
These tools have received several tweaks and fixes in order to work in "FoxyPreviewer" and to support its features.
1 - PDFListener (for the PDF output)
    by Luis Navas
    PDFx Update Support for some SP2 Features
    http://weblogs.foxite.com/luisnavas/archive/2008/10/06/7025.aspx
2 - RTFListener (for the RTF output)
    by Vladimir Zhuravlev
    http://www.foxite.com/downloads/default.aspx?id=166
3 - Proof Miniatures sheet
    by Colin Nicholls
        published in the article:
    Exploring and Extending Report Previewing in VFP9
    http://spacefold.com/colin/archive/articles/reportpreview/rp_extend.html
4 - Accessing the Printer settings window
    by Barbara Peisch posted in Foxite forum
    * http://www.foxite.com/archives/0000158197.htm
5 - ExcelListener (for the XLS output)
    by Alejandro Sosa
    http://www.portalfox.com/index.php?name=News&file=article&sid=2322&mode=nested&order=0&thold=0
    http://www.universalthread.com/Report.aspx?Session=34485849353954544C2B4D3D204A377A5466623943753451502B72453358567A7544745843317A333869724B65
6 - HTMLListener in the simplified mode, with help of Max Arlikh
7 - Text search engine by Doug Hennig, based in his article: "Listening to a Report"
8 - CDO2000 class to send emails and several printer procedures by Sergey Berezniker
9 - The HARU PDF Library - used in the PDFListener by Luis Navas
* << Haru Free PDF Library 2.0.8 >>
* URL http://libharu.sourceforge.net/
* Copyright (c) 1999-2006 Takeshi Kanno
* Permission to use, copy, modify, distribute and sell this software
* and its documentation for any purpose is hereby granted without fee,
* provided that the above copyright notice appear in all copies and
* that both that copyright notice and this permission notice appear
* in supporting documentation.
* It is provided "as is" without express or implied warranty.BM6
zzzzzzzzzzzzzzz
OBJTYPE
OBJCODE
OBJNAME
OBJVALUE
OBJINFO
_NullFlags

Title

PH

CH

GH

D

GF

CF

PF

Summary

DH

DF

VFP-Report

T

E

P

S

L

V

FontRes

DataEnv

DE-Cursor

DE-Relation

Group

Reports

Data

VFP-RDL

Pages

Columns
Column collection root nodename
Pages collection root nodename
Title Band nodename
Page Header Band nodename
Column Header Band nodename
Group Header Band nodename
Detail Band nodename
Group Footer Band nodename
Column Footer Band nodename
Page Footer Band nodename
Summary Band nodename
Detail Header Band nodename
Detail Footer Band nodename
Report root nodename
Text object nodename
Expression object nodename
Picture object nodename
Shape object nodename
Line object nodename
Variable nodename
FontResource nodename
DataEnvironment nodename
DE-Cursor nodename
DE-Relation nodename
Group selector nodename
XML Document root nodename
Report scope data root nodename
3VFP-RDL raw-format layout description root nodename
NDELETEDVALUETYPENAMEOBJCODEFRXNODES
objtype
fec^]VUTSRQM
objcode
objname
objvalue
eportFP-RDLVitleTummarySReportsagesHFPLroupHGFFontResEEnvataHFRelationE-CursorDolumnsHCF
DELETED()
BCDEFGHIJKLMNOPQRSTUVWXYZ[\
objtype+objcode+IIF(objtype=1109,500,0)
LHD@<840,($
xt\XPH
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _11W0RVA8Y 795638748
 COMMENT RESERVED
 WINDOWS _1220YMYY4 795638870
 COMMENT RESERVED
 WINDOWS _11R0OBRPZ 796152731
 COMMENT RESERVED
 WINDOWS _11R0OANEG 815371681E
 COMMENT RESERVED
 WINDOWS _12G0NNCGK 823373366
 COMMENT RESERVED
 WINDOWS _1360UZUFV 875730233J
 COMMENT RESERVED
 WINDOWS _11R0OJHC3 876772270
 COMMENT RESERVED
 WINDOWS _1Q30Y83RB 876843690
 COMMENT RESERVED
 WINDOWS _11R0O4T3U 878921974#
 COMMENT RESERVED
 WINDOWS _11R0O3J0I 8789222024
 COMMENT RESERVED
 WINDOWS _11R0OMVRT 879259511B
 COMMENT RESERVED
 WINDOWS _11R0O2LAK 879259653
 COMMENT RESERVED
 WINDOWS _11R0NJMU6 879259670:
 COMMENT RESERVED
 WINDOWS _11R0NL795 879259682
 COMMENT RESERVED
 WINDOWS _11R0OM4OS 879259826
 COMMENT RESERVED
 WINDOWS _11R0OKCMZ 879329451
 COMMENT RESERVED
VERSION =   3.00
Pixels
8Width = 200
Height = 112
BackStyle = 0
Name = "cnt"
"Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
Class
textbox
textbox
Class
resizegrabber
Pixels
Class
image
resizegrabber
image
Pixels
WFontName = "Tahoma"
FontSize = 8
Height = 22
Margin = 1
Width = 100
Name = "cbo"
"Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
Pixels
Class
label
"Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
+*resize Occurs when an object is resized.
Pixels
Class
OPicture = images\grabber.gif
Height = 12
Width = 12
Name = "resizegrabber"
commandbutton
*enabled_assign
commandbutton
checkbox
Pixels
optiongroup
"Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
optiongroup
spinner
spinner
"Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
Pixels
Class
listbox
Class
"Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
Pixels
*incomingvalue
*action
*resetincoming
Pixels
Class
combobox
combobox
Pixels
hyperlabel
checkbox
Class
Class
Pixels
Class
"Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
optionbutton
optionbutton
Pixels
Class
shape
shape
    container
    pageframe
frxcontrols.vcx
editbox
label
listbox
Pixels
;Height = 46
Width = 162
SpecialEffect = 0
Name = "shp"
Pixels
label
hyperlabel
currentpage
errored
Pixels
Class
Class
KFontName = "Tahoma"
FontSize = 8
Height = 78
Width = 174
Name = "lst"
Class
    container
    pageframe
Pixels
Class
editbox
"Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
*enabled_assign
AutoSize = .T.
FontUnderline = .T.
BackStyle = 0
Caption = "enter url here"
MousePointer = 15
ForeColor = 0,0,255
Name = "hyperlabel"
}FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "prompt"
Height = 15
Width = 52
AutoSize = .T.
Name = "opt"
aFontName = "Tahoma"
FontSize = 8
Caption = "Caption"
Height = 187
Width = 187
Name = "pge"
lFontName = "Tahoma"
FontSize = 8
Height = 22
Margin = 1
SelectOnEntry = .T.
Width = 100
Name = "txt"
mAutoSize = .T.
FontName = "Tahoma"
FontSize = 8
Caption = "label"
Height = 15
Width = 24
Name = "lbl"
_Height = 25
Width = 75
FontName = "Tahoma"
FontSize = 8
Caption = "Caption"
Name = "cmd"
MemberClassLibrary = frxcontrols.vcx
MemberClass = "opt"
ButtonCount = 0
BackStyle = 0
BorderStyle = 1
Value = 0
Height = 66
Width = 117
Name = "opg"
NERROR
CMETHOD
NLINE
PARENT
ERROR
PARENT
RIGHTCLICK
Error,
RightClick
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
PROCEDURE RightClick
THIS.Parent.RightClick()
ENDPROC
WFontName = "Tahoma"
FontSize = 8
Height = 53
Margin = 1
Width = 100
Name = "edt"
PROCEDURE enabled_assign
lparameters lEnabled
THIS.Enabled = m.lEnabled
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
readonly Specifies if the user can edit a control, or specifies if a table or view associated with a Cursor object allows updates.
*enabled_assign
*readonly_assign
*setfocus Sets the focus to a control.
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
PROCEDURE RightClick
THIS.Parent.RightClick()
ENDPROC
jPROCEDURE KeyPress
lparameters iKey, iModifier
*----------------------------------
* Do not allow nulls to be entered
* with Ctrl-0 :
*----------------------------------
if m.iKey = 48 and 0 < bitand( m.iModifier, 2 )
    nodefault
endif
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
PROCEDURE When
if THIS.Parent.ReadOnly
    return .F.
else
    return .T.
endif
ENDPROC
PROCEDURE KeyPress
lparameters iKey, iModifier
*----------------------------------
* Do not allow nulls to be entered
* with Ctrl-0 :
*----------------------------------
if m.iKey = 48 and 0 < bitand( m.iModifier, 2 )
    nodefault
endif
ENDPROC
NERROR
CMETHOD
NLINE
PARENT
ERROR<
IKEY
IMODIFIER
Error,
KeyPress
LENABLED
ENABLED.
NERROR
CMETHOD
NLINE
PARENT
ERROR
enabled_assign,
Errore
Width = 53
FontName = "Tahoma"
FontSize = 8
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Check1"
Value = .F.
Name = "chk"
jPROCEDURE KeyPress
lparameters iKey, iModifier
*----------------------------------
* Do not allow nulls to be entered
* with Ctrl-0 :
*----------------------------------
if m.iKey = 48 and 0 < bitand( m.iModifier, 2 )
    nodefault
endif
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
PROCEDURE enabled_assign
lparameter lEnabled
for each optbut in THIS.Buttons
    optbut.Enabled = m.lEnabled
endfor
ENDPROC
PROCEDURE readonly_assign
lparameter lReadOnly
* Returning .F. in each button's .When() produces
* a more visually acceptable effect:
*for each optbut in this.Buttons
*    optbut.Enabled = not m.lReadOnly
*endfor
THIS.ReadOnly = m.lReadOnly
ENDPROC
PROCEDURE setfocus
*----------------------------------------------------
* SetFocus() in containers doesn't work so well. This
* compensates for that bug by doing it manually:
*----------------------------------------------------
local oControl
for each oControl in this.Buttons
    if oControl.TabIndex = 1
        oControl.SetFocus()
        nodefault
        exit
    endif
endfor
ENDPROC
PROCEDURE RightClick
THIS.Parent.RightClick()
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
PROCEDURE enabled_assign
lparameter lEnabled
THIS.Enabled = m.lEnabled
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
PROCEDURE SetFocus
local oControl
for each oControl in this.Controls
    if type("oControl.TabIndex") = "N"
        if oControl.TabIndex = 1
            if pemstatus( m.oControl,"setFocus",5)
                oControl.SetFocus()
                nodefault
            endif
            exit
        endif
    endif
endfor
ENDPROC
PROCEDURE RightClick
THIS.Parent.RightClick()
ENDPROC
jPROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
PROCEDURE KeyPress
lparameters iKey, iModifier
*----------------------------------
* Do not allow nulls to be entered
* with Ctrl-0 :
*----------------------------------
if m.iKey = 48 and 0 < bitand( m.iModifier, 2 )
    nodefault
endif
ENDPROC
PROCEDURE resetincoming
THIS.incomingValue = THIS.Value
ENDPROC
PROCEDURE LostFocus
if THIS.incomingValue <> THIS.Value
    this.action()
endif
ENDPROC
PROCEDURE UpClick
if THIS.incomingValue <> THIS.Value
    this.action()
    this.resetIncoming()
endif
ENDPROC
PROCEDURE DownClick
if THIS.incomingValue <> THIS.Value
    this.action()
    this.resetIncoming()
endif
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
PROCEDURE GotFocus
THIS.resetIncoming()
ENDPROC
PROCEDURE KeyPress
lparameters iKey, iModifier
*----------------------------------
* Do not allow nulls to be entered
* with Ctrl-0 :
*----------------------------------
if m.iKey = 48 and 0 < bitand( m.iModifier, 2 )
    nodefault
endif
ENDPROC
IKEY
IMODIFIER.
NERROR
CMETHOD
NLINE
PARENT
ERROR
KeyPress,
Error}
jPROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
PROCEDURE KeyPress
lparameters iKey, iModifier
*----------------------------------
* Do not allow nulls to be entered
* with Ctrl-0 :
*----------------------------------
if m.iKey = 48 and 0 < bitand( m.iModifier, 2 )
    nodefault
endif
ENDPROC
NERROR
CMETHOD
NLINE
PARENT
ERROR<
IKEY
IMODIFIER
Error,
KeyPress
FontName = "Tahoma"
FontSize = 8
Height = 22
KeyboardLowValue = 0
Margin = 1
SelectOnEntry = .T.
SpinnerLowValue =   0.00
Width = 121
incomingvalue = 0
Name = "spn"
INCOMINGVALUE
VALUE+
INCOMINGVALUE
VALUE
ACTION8
INCOMINGVALUE
VALUE
ACTION
RESETINCOMING8
INCOMINGVALUE
VALUE
ACTION
RESETINCOMING.
NERROR
CMETHOD
NLINE
PARENT
ERROR
RESETINCOMING<
IKEY
IMODIFIER
resetincoming,
LostFocusb
UpClick
DownClick$
Error
GotFocus
KeyPress
NERROR
CMETHOD
NLINE
PARENT
ERROR
PARENT
RIGHTCLICK
Error,
RightClick
IKEY
IMODIFIER.
NERROR
CMETHOD
NLINE
PARENT
ERROR
KeyPress,
Error}
http://
http://
ShellExecute
SHELL32.dll
FindWindow
WIN32API
LCURL
CAPTION
FORECOLOR
SHELLEXECUTE
SHELL32
FINDWINDOW
WIN32API
Click,
PARENT
RIGHTCLICKS
THIS.Controls[1]b
CONTROLS
SETFOCUS.
NERROR
CMETHOD
NLINE
PARENT
ERROR
RightClick,
Activate]
Error
THISFORM
HEIGHT
WIDTH
BORDERSTYLE
VISIBLEV
grabber.gif
grabber2k.gif
THEMES
PICTURE
resize,
IKEY
IMODIFIER.
NERROR
CMETHOD
NLINE
PARENT
ERROR
KeyPress,
Error}
NERROR
CMETHOD
NLINE
PARENT
ERROR0
PARENT
READONLY<
IKEY
IMODIFIER
Error,
KeyPress
LENABLED
OPTBUT
BUTTONS
ENABLED
LREADONLY
READONLYM
OCONTROL
BUTTONS
TABINDEX
SETFOCUS
PARENT
RIGHTCLICK.
NERROR
CMETHOD
NLINE
PARENT
ERROR
enabled_assign,
readonly_assign
setfocus
RightClickE
Errorv
LENABLED
ENABLED.
NERROR
CMETHOD
NLINE
PARENT
ERROR
oControl.TabIndexb
setFocus
OCONTROL
CONTROLS
TABINDEX
SETFOCUS
PARENT
RIGHTCLICK
enabled_assign,
Errore
SetFocus
RightClick
NERROR
CMETHOD
NLINE
PARENT
ERROR
PARENT
RIGHTCLICK
Error,
RightClick
#PROCEDURE RightClick
THIS.Parent.RightClick()
ENDPROC
PROCEDURE Activate
if type( "THIS.Controls[1]" ) = "O"
        THIS.Controls[1].SetFocus()
    catch
    endtry
endif
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
-PROCEDURE Click
local lcUrl
if left( lower(THIS.Caption), 7 ) = [http://]
    lcUrl = THIS.Caption
    lcUrl = [http://] + THIS.Caption
endif
THIS.ForeColor = RGB(128,0,128)
DECLARE INTEGER ShellExecute ;
    IN SHELL32.dll ;
    INTEGER nWinHandle,;
    STRING cOperation,;
    STRING cFileName,;
    STRING cParameters,;
    STRING cDirectory,;
    INTEGER nShowWindow
DECLARE INTEGER FindWindow ;
   IN WIN32API STRING cNull,STRING cWinName
=ShellExecute( FindWindow(0,_screen.Caption), "OPEN", m.lcUrl,"",sys(2023),1)
ENDPROC
aPROCEDURE resize
*=======================================================================
* Resize()
* Useage:
* In the form's resize event, call THIS.grabber.Resize() and the grabber
* image will relocate itself to the bottom right corner of the window
*=======================================================================
THIS.Top  = THISFORM.Height - THIS.Height
THIS.Left = THISFORM.Width  - THIS.Width
if THISFORM.BorderStyle<>3
    THIS.Visible = .F.
endif
ENDPROC
PROCEDURE Init
if _screen.Themes
    THIS.Picture = "grabber.gif"
    THIS.Picture = "grabber2k.gif"
endif
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
PROCEDURE RightClick
THIS.Parent.RightClick()
ENDPROC
ErasePage = .T.
MemberClassLibrary = frxcontrols.vcx
MemberClass = "pge"
PageCount = 0
TabStyle = 1
ActivePage = 0
Width = 241
Height = 169
currentpage = 0
errored = .F.
Name = "pgf"
jPROCEDURE KeyPress
lparameters iKey, iModifier
*----------------------------------
* Do not allow nulls to be entered
* with Ctrl-0 :
*----------------------------------
if m.iKey = 48 and 0 < bitand( m.iModifier, 2 )
    nodefault
endif
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.Error( nError, cMethod, nLine )
ENDPROC
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _1620OUFP8 819679853G
 COMMENT RESERVED
 WINDOWS _19R0MDR54 819680088
 COMMENT RESERVED
 WINDOWS _17X12M0M5 879329379
 WINDOWS _17X136SEA 8793293795
 WINDOWS _17X136SEQ 879329379
 WINDOWS _17X136SER 879329379@
 WINDOWS _17X136SES 879329379
 WINDOWS _17X136SET 879329379
 COMMENT RESERVED
 WINDOWS _1S90NDO63 8822068228
 COMMENT RESERVED
 WINDOWS _1800VSTVB 911434274
 COMMENT RESERVED
 WINDOWS _1620OTOI2 911434517q
 COMMENT RESERVED
 WINDOWS _1S90NDBMP 911784843(
 COMMENT RESERVED
 WINDOWS _15L0YBYJT 926370639M
 WINDOWS _1620OUFP8 926370639
 WINDOWS _1MT10T1N1 926370639W
 COMMENT RESERVED
 WINDOWS _15L0YNARZ1065729474
 WINDOWS _17L131CSM1065729474
 WINDOWS _17L131CSN 824659832
 WINDOWS _17L131CT2 824659832
 WINDOWS _15L0ZJMCW1065729474
 WINDOWS _17L131CT41065729474
 WINDOWS _17L131CT5 824659832
 WINDOWS _17L131CTH 824659832
 WINDOWS _17L131CTI1065729474@
 WINDOWS _1AU0YVMX51065729474
 WINDOWS _15L0ZJMDC1065729474"
 WINDOWS _15L0ZJMDD1065729474
 WINDOWS _15L0ZJMDR1065729474s
 WINDOWS _15L0ZJMDQ1065729474
 COMMENT RESERVED
 WINDOWS _11R0TYA321065729481
 COMMENT RESERVED
VERSION =   3.00
"Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
Pixels
frxpreview.h
foxpro_reporting.h
frxpreview_loc.h
"Tahoma, 0, 8, 5, 13, 11, 23, 2, 0
frxbaseform
frxpreview.h
Pixels
Class
frxbaseform
frxpreviewastopform
Class
frxpreviewform
iscreendpi
*checkforlargefonts Called in the Init() to set font attributes if Large Fonts are detected.
frxpreviewastopform
frxpreview.vcx
"Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
frxpreviewinscreen
Pixels
Class
frxpreviewform
frxpreviewinscreen
"Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
frxpreview.h
frxpreview.vcx
frxpreviewform
lastzoomlevel
Pixels
ShowWindow = 2
DoCreate = .T.
MDIForm = .F.
topform = .T.
Name = "frxpreviewastopform"
spacer.Name = "spacer"
Label1.Name = "Label1"
Class
Label1
frxbaseform
frxpreviewform
frxpreviewform
Pixels
frxpreview.h
foxpro_reporting.h
frxpreview_loc.h
"Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
frxpreviewindesktop
Class
frxpreviewform
PARENT
RIGHTCLICK
RightClick,
label
label
frxpreviewform
frxpreviewindesktop
frxpreview.vcx
PARENT
Click,
"Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
frxgotopageform
spacer
shape
shape
frxpreview.h
Pixels
Class
frxbaseform
Pixels
frxpreview.h
foxpro_reporting.h
frxpreview_loc.h
frxgotopageform
.PROCEDURE Click
THIS.Parent.Hide()
ENDPROC
frxgotopageform
    cmdCancel
commandbutton
frxpreview.vcx
gTop = 47
Left = 248
Width = 84
Cancel = .T.
Caption = "Cancel"
ZOrderSet = 4
Name = "cmdCancel"
frxcontrols.vcx
frxgotopageform
cmdOK
commandbutton
PTop = 32
Left = 28
Height = 10
Width = 19
BorderStyle = 0
Name = "spacer"
frxpreviewtoolbar
Class
PARENT
PAGENO
SPNPAGENO
VALUE
Click,
`PROCEDURE Click
THIS.Parent.pageNo = THIS.Parent.spnPageNo.Value
THIS.Parent.Hide()
ENDPROC
frxcontrols.vcx
frxgotopageform
lblCaption
label
PARENT
PREVIEWFORM
ACTIONPRINT
Click,
Initn
frxpreview.h
foxpro_reporting.h
frxpreview_loc.h
"Tahoma, 0, 8, 5, 13, 11, 23, 2, 0
frxpreview.h
toolbar
frxpreviewtoolbar
Top = 3
Left = 473
Height = 22
Width = 85
Picture = images\print.bmp
Caption = " Print"
ToolTipText = "Print report"
SpecialEffect = 2
PicturePosition = 1
Name = "cmdPrint"
cmdPrint
frxpreview.vcx
frxpreviewtoolbar
frxcontrols.vcx
frxgotopageform
    spnPageno
`Top = 15
Left = 248
Width = 84
Caption = "OK"
Default = .T.
ZOrderSet = 3
Name = "cmdOK"
spinner
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "(build)"
Height = 17
Left = 2
Top = 1
Width = 40
ForeColor = 192,192,192
Name = "Label1"
commandbutton
frxcontrols.vcx
frxpreviewtoolbar
cmdClose
shapecanvas
Pixels
Class
shapecanvas
Name = "shapecanvas"
shape
frxcontrols.vcx
PARENT
PREVIEWFORM
ACTIONCLOSE
Click,
Initn
PROCEDURE Click
THIS.Parent.previewform.actionPrint()
ENDPROC
PROCEDURE Init
dodefault()
#IF USE_LOC_STRINGS_IN_UI
    THIS.Caption =     UI_TOOLBAR_PRINT_LOC
    THIS.ToolTipText = UI_TOOLBAR_TT_PRINT_LOC
#ENDIF
ENDPROC
PARENT
PREVIEWFORM
ACTIONGOLAST
Click,
Initr
PROCEDURE Click
THIS.Parent.previewform.actionClose()
ENDPROC
PROCEDURE Init
dodefault()
#IF USE_LOC_STRINGS_IN_UI
    THIS.Caption =     UI_TOOLBAR_CLOSE_LOC
    THIS.ToolTipText = UI_TOOLBAR_TT_CLOSE_LOC
#ENDIF
ENDPROC
Top = 3
Left = 388
Height = 22
Width = 85
Picture = images\preclose.bmp
Caption = " Close"
ToolTipText = "Close preview"
SpecialEffect = 2
PicturePosition = 1
Name = "cmdClose"
commandbutton
frxcontrols.vcx
frxpreviewtoolbar
opgPageCount
optiongroup
frxcontrols.vcx
    separator
imagecanvas
Class
frxpreviewtoolbar
image
imagecanvas
gTop = 15
Left = 12
Height = 66
Width = 224
BackStyle = 0
ZOrderSet = 0
Style = 3
Name = "Shp1"
ATop = 3
Left = 311
Height = 0
Width = 0
Name = "Separator4"
Separator4
    separator
Height = 22
Left = 204
Style = 2
TabStop = .F.
ToolTipText = "Choose page magnification"
Top = 3
DisplayCount = 5
Name = "cboZoom"
frxpreviewtoolbar
cboZoom
combobox
PROCEDURE InteractiveChange
THIS.Parent.ActionZoomLevel( THIS.Value )
ENDPROC
PROCEDURE Init
dodefault()
#IF USE_LOC_STRINGS_IN_UI
    THIS.ToolTipText = UI_TOOLBAR_TT_ZOOMLEVEL_LOC
#ENDIF
ENDPROC
]Caption = " Go to page "
Left = 20
Top = 8
ZOrderSet = 2
Style = 3
Name = "lblCaption"
fHeight = 21
InputMask = "9999"
Left = 64
Top = 36
Width = 126
ZOrderSet = 1
Name = "spnPageno"
frxcontrols.vcx
frxpreviewtoolbar
    separator
Separator2
frxcontrols.vcx
PROCEDURE LostFocus
if THIS.Value < THIS.SpinnerLowValue
    THIS.Value = 1
endif
if THIS.Value > THIS.SpinnerHighValue
    THIS.Value = THIS.SpinnerHighValue
endif
dodefault()
ENDPROC
frxcontrols.vcx
frxgotopageform
shape
    separator
Height = 238
Width = 367
DoCreate = .T.
AutoCenter = .T.
Caption = "Form"
FontName = "Tahoma"
FontSize = 8
Icon = images\wwrite.ico
screendpi = 96
Name = "frxbaseform"
PARENT
ACTIONZOOMLEVEL
VALUE
InteractiveChange,
Inito
ATop = 3
Left = 204
Height = 0
Width = 0
Name = "Separator2"
PROCEDURE Click
THIS.Parent.Parent.previewform.actionGoLast()
ENDPROC
PROCEDURE Init
dodefault()
#IF USE_LOC_STRINGS_IN_UI
    THIS.ToolTipText = UI_TOOLBAR_TT_LAST_LOC
#ENDIF
ENDPROC
    cmdBottom
PARENT
PREVIEWFORM
ACTIONGONEXT
Click,
Initr
Top = 0
Left = 23
Height = 22
Width = 23
Picture = images\prelast.bmp
Caption = ""
ToolTipText = "Last page"
SpecialEffect = 2
Name = "cmdBottom"
frxpreviewtoolbar.cntNext
commandbutton
frxpreviewproxy
image
frxcontrols.vcx
PARENT
PREVIEWFORM
ACTIONGOTOPAGE
Click,
Initq
frxpreviewtoolbar.cntNext
cmdForward
Class
commandbutton
tempfile
cntNext
custom
Pixels
PROCEDURE Click
THIS.Parent.Parent.previewform.actionGoNext()
ENDPROC
PROCEDURE Init
dodefault()
#IF USE_LOC_STRINGS_IN_UI
    THIS.ToolTipText = UI_TOOLBAR_TT_NEXT_LOC
#ENDIF
ENDPROC
frxcontrols.vcx
frxpreviewtoolbar
frxpreviewproxy
frxpreview.h
QTop = 3
Left = 151
Width = 46
Height = 22
BorderWidth = 0
Name = "cntNext"
    container
frxcontrols.vcx
ShowWindow = 0
DoCreate = .T.
Name = "frxpreviewinscreen"
spacer.Name = "spacer"
canvas1.Name = "canvas1"
canvas2.Name = "canvas2"
canvas3.Name = "canvas3"
canvas4.Name = "canvas4"
Top = 0
Left = 0
Height = 22
Width = 23
Picture = images\prenext.bmp
Caption = ""
ToolTipText = "Next page"
SpecialEffect = 2
Name = "cmdForward"
PROCEDURE enabled_assign
lparameter lEnabled
THIS.cmdBottom.Enabled  = m.lEnabled
THIS.cmdForward.Enabled = m.lEnabled
dodefault(m.lEnabled)
ENDPROC
frxpreviewtoolbar
cmdGoToPage
commandbutton
frxcontrols.vcx
frxpreviewtoolbar.cntPrev
Pixels
custom
2extensionhandler
previewformclass
getwindowref
9PROCEDURE RightClick
THIS.Parent.RightClick()
ENDPROC
LENABLED
THIS
CMDBOTTOM
ENABLED
CMDFORWARD
enabled_assign,
Top = 3
Left = 51
Height = 22
Width = 100
Picture = images\gotopage.bmp
Caption = " Go to page"
ToolTipText = "Go to page"
SpecialEffect = 2
PicturePosition = 1
Name = "cmdGoToPage"
OStretch = 2
Height = 116
Width = 100
tempfile = ("")
Name = "imagecanvas"
Desktop = .T.
DoCreate = .T.
Name = "frxpreviewintopform"
spacer.Name = "spacer"
canvas1.Name = "canvas1"
canvas2.Name = "canvas2"
canvas3.Name = "canvas3"
canvas4.Name = "canvas4"
PARENT
ACTIONPAGECOUNTg
OBUTTON
BUTTONS
AUTOSIZE
PICTUREPOSITION
HEIGHT
WIDTH
InteractiveChange,
Initb
Opt1.Init
Opt2.Init$
Opt3.Init4
PROCEDURE InteractiveChange
THIS.Parent.ActionPageCount()
ENDPROC
PROCEDURE Init
* Some kind of bug is re-sizing the buttons:
for each oButton in THIS.Buttons
    oButton.AutoSize = .F.
    oButton.PicturePosition = 13
    oButton.Top    = 0
    oButton.Height = 22
    oButton.Width  = 25
endfor
ENDPROC
PROCEDURE Opt1.Init
dodefault()
#IF USE_LOC_STRINGS_IN_UI
    THIS.ToolTipText = UI_TOOLBAR_TT_1PAGE_LOC
#ENDIF
ENDPROC
PROCEDURE Opt2.Init
dodefault()
#IF USE_LOC_STRINGS_IN_UI
    THIS.ToolTipText = UI_TOOLBAR_TT_2PAGES_LOC
#ENDIF
ENDPROC
PROCEDURE Opt3.Init
dodefault()
#IF USE_LOC_STRINGS_IN_UI
    THIS.ToolTipText = UI_TOOLBAR_TT_4PAGES_LOC
#ENDIF
ENDPROC
cmdBack
commandbutton
frxcontrols.vcx
frxpreviewtoolbar.cntPrev
cmdTop
frxpreview.h
foxpro_reporting.h
frxpreview_loc.h
PARENT
PREVIEWFORM
ACTIONGOPREV
Click,
Initr
PROCEDURE Click
THIS.Parent.previewform.actionGoToPage()
ENDPROC
PROCEDURE Init
dodefault()
#IF USE_LOC_STRINGS_IN_UI
    THIS.Caption =     UI_TOOLBAR_GOTOPAGE_LOC
    THIS.ToolTipText = UI_TOOLBAR_TT_GOTOPAGE_LOC
#ENDIF
ENDPROC
commandbutton
frxcontrols.vcx
frxpreviewtoolbar
cntPrev
|pageno Provides the current page number for report output.
pagetotal Provides a PageTotal for report output.
oparentform
Top = 14
Left = 12
Height = 92
Width = 345
ShowWindow = 1
DoCreate = .T.
AutoCenter = .F.
BorderStyle = 2
Closable = .F.
MaxButton = .F.
MinButton = .F.
AlwaysOnTop = .T.
AllowOutput = .F.
pageno = 0
pagetotal = 0
oparentform = (.NULL.)
Name = "frxgotopageform"
iButtonCount = 3
BorderStyle = 0
Height = 22
Left = 311
Top = 3
Width = 77
Name = "opgPageCount"
Opt1.Picture = images\1page.bmp
Opt1.PicturePosition = 13
Opt1.Caption = ""
Opt1.Height = 38
Opt1.Left = 0
Opt1.SpecialEffect = 2
Opt1.Style = 1
Opt1.ToolTipText = "One page"
Opt1.Top = 0
Opt1.Width = 32
Opt1.AutoSize = .F.
Opt1.Name = "Opt1"
Opt2.Picture = images\2page.bmp
Opt2.PicturePosition = 13
Opt2.Caption = ""
Opt2.Height = 38
Opt2.Left = 25
Opt2.SpecialEffect = 2
Opt2.Style = 1
Opt2.ToolTipText = "Two pages"
Opt2.Top = 0
Opt2.Width = 32
Opt2.AutoSize = .F.
Opt2.Name = "Opt2"
Opt3.Picture = images\4page.bmp
Opt3.PicturePosition = 13
Opt3.Caption = ""
Opt3.Height = 38
Opt3.Left = 50
Opt3.SpecialEffect = 2
Opt3.Style = 1
Opt3.ToolTipText = "Four pages"
Opt3.Top = 0
Opt3.Width = 32
Opt3.AutoSize = .F.
Opt3.Name = "Opt3"
    container
frxcontrols.vcx
PROCEDURE Init
*----------------------------------------------------
* For final release we'll make this invisible
*----------------------------------------------------
if type("SHOW_APPLICATION_VERSION") = "U"
    THIS.Visible = .F.
endif
THIS.Caption = PREVIEW_VERSION
ENDPROC
PARENT
PREVIEWFORM
ACTIONGOFIRST
Click,
Inits
PROCEDURE Click
THIS.Parent.Parent.previewform.actionGoPrev()
ENDPROC
PROCEDURE Init
dodefault()
#IF USE_LOC_STRINGS_IN_UI
    *THIS.Caption =
    THIS.ToolTipText = UI_TOOLBAR_TT_BACK_LOC
#ENDIF
ENDPROC
Top = 0
Left = 23
Height = 22
Width = 23
Picture = images\preprev.bmp
Caption = ""
Enabled = .F.
ToolTipText = "Previous page"
SpecialEffect = 2
Name = "cmdBack"
SHOW_APPLICATION_VERSIONb
9.5.0.0
VISIBLE
CAPTION
Init,
PROCEDURE Click
THIS.Parent.Parent.previewform.actionGoFirst()
ENDPROC
PROCEDURE Init
dodefault()
#IF USE_LOC_STRINGS_IN_UI
    *THIS.Caption =
    THIS.ToolTipText = UI_TOOLBAR_TT_FIRST_LOC
#ENDIF
ENDPROC
Top = 0
Left = 0
Height = 22
Width = 23
Picture = images\prefirst.bmp
Caption = ""
Enabled = .F.
ToolTipText = "First page"
SpecialEffect = 2
Name = "cmdTop"
toolbar
PROCEDURE Show
LPARAMETERS nStyle
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxGoToPageForm::Show(" + trans(m.nStyle) + ")"
#ENDIF
*-----------------------------------------
* Fix for SP1: Handle positioning in top-level form
* See frxPreviewForm::ActionGoToPage()
* Addresses bug# 474691
*-----------------------------------------
THIS.pageNo    = THIS.oParentForm.currentPage
THIS.pageTotal = THIS.oParentForm.pageTotal
THIS.Caption   = DEFAULT_MBOX_TITLE_LOC
THIS.lblCaption.Caption = REPORT_PREVIEW_GOTO_PAGE_LOC + " " + "(1-" + transform(THIS.pageTotal) + ")"
if THIS.oParentForm.ShowWindow = 2 && as top-level form
    *-----------------------------------
    * If parent preview window is a top-level form,
    * center the child window in the view port:
    *-----------------------------------
    THIS.AutoCenter = .F.
    THIS.Left = THIS.oParentForm.ViewPortLeft + int(THIS.oParentForm.Width/2  - THIS.Width/2)
    THIS.Top  = THIS.oParentForm.ViewPortTop  + int(THIS.oParentForm.Height/2 - THIS.Height/2)
    THIS.AutoCenter = .T.
endif
*--------------
THIS.spnPageNo.SpinnerLowValue = 1
THIS.spnPageNo.SpinnerHighValue = THIS.pageTotal
*THIS.spnPageNo.KeyboardLowValue = 1
*THIS.spnPageNo.KeyboardHighValue = THIS.pageTotal
THIS.spnPageNo.Value = THIS.pageNo
dodefault(m.nStyle)
ENDPROC
PROCEDURE Init
dodefault()
#if USE_LOC_STRINGS_IN_UI
    THIS.cmdOK.Caption     = UI_CMD_OK_LOC
    THIS.cmdCancel.Caption = UI_CMD_CANCEL_LOC
#endif
ENDPROC
FontName
Segoe UI
FontSize
Margin
Margin
Margin
Editbox
Margin
Textbox
FontName
MS Shell Dlg 2
FontSize
FontName
Tahoma
FontSize
FontName
FontSize
FontSize
SETALL
FONTNAME
FONTSIZE
SCREENDPI
ErrorHandler
pr_frxpreview.prg
IERROR
CMETHOD
ILINE
HANDLE
THIS
CANCELLED
SUSPENDED
GetDeviceCaps
WIN32API
GetDC
WIN32API
ReleaseDC
WIN32API
GETDEVICECAPS
WIN32API
GETDC
RELEASEDC
SCREENDPI
CHECKFORLARGEFONTS
checkforlargefonts,
Error
LENABLED
CMDTOP
ENABLED
CMDBACK
enabled_assign,
Dcanvascount
canvasheight
canvaswidth
currentpage
frxfilename
lastpainted
oreport
pageheight Specifies the height of the Page.
pagewidth Specifies the width of the Page.
pagetotal Provides a PageTotal for report output.
toolbar
toolbarisvisible
unitconverter
zoomlevel
hidcommandwindow
isnowait
formcaption
startoffset
printonexit
suppressrendering
disabledoffscreenbmps
extensionhandler
_memberdata XML Metadata for customizable properties
allowprintfrompreview
lastzoomlevel
textontoolbar
tempstoprepaint
memberclass Specifies the name of a member default class to use when new members are added to the container.
memberclasslibrary Specifies the name of the class library containing the class associated with the MemberClass property.
topform
mouseflag
ignoremouseclickinmagnifycode
*actionclose
*actiongofirst
*actiongolast
*actiongonext
*actiongoprev
*actiongotopage
*actionprint
*actionsetcanvascount
*actionsetzoom
*actiontoolbarvisibility
*invokecontextmenu
*renderpage
*reset Resets the Timer control so that it starts counting from 0.
*setreport
*showtoolbar
*synchcanvases
*synchpageno
*synchtoolbar
*setcurrentpage parameters: iPage
*actionshowinfo
^zoomlevels[1,2]
*getzoompercent
*renderpages
*savetoresource
*restorefromresource
*getpixelsperdpi960 Returns the ratio between pixels and 960dpi  based on the current zoomlevel.
*createtoolbar
*extensionhandler_assign
*getpixelpageoffsets
*showcommandwindow
*hidecommandwindow
*createcanvases
*canvascount_assign
*setzoomlevel
*setcanvascount
VALUE
SPINNERLOWVALUE
SPINNERHIGHVALUE
LostFocus,
PROCEDURE enabled_assign
lparameter lEnabled
THIS.cmdTop.Enabled  = m.lEnabled
THIS.cmdBack.Enabled = m.lEnabled
dodefault(m.lEnabled)
ENDPROC
OTop = 3
Left = 5
Width = 46
Height = 22
BorderWidth = 0
Name = "cntPrev"
previewform
specialmousexcoord
*previewform_assign
*synchcontrols
*actionzoomlevel parameter: iZoomIndex
*getwindowref
*actionpagecount
Caption = "Toolbar1"
Height = 28
KeyPreview = .T.
Left = 0
Top = 0
Width = 563
ShowWindow = 1
previewform = .NULL.
specialmousexcoord = 0
Name = "frxpreviewtoolbar"
Report Preview
Go to page number:
NSTYLE
PAGENO
OPARENTFORM
CURRENTPAGE
PAGETOTAL
CAPTION
LBLCAPTION
SHOWWINDOW
AUTOCENTER
VIEWPORTLEFT
WIDTH
VIEWPORTTOP
HEIGHT
SPNPAGENO
SPINNERLOWVALUE
SPINNERHIGHVALUE
VALUE
Show,
oform Reference to the actual preview form. Not guaranteed to be valid available until after .Show() has been called.
oreport Reference to the ReportListener class assisting the report run. Assigned via .SetReport() automatically.
caption If not empty, this will override the default preview caption in the form title.
topform Indicates that the Preview Form should be a TopForm. Forces non-modal operation.
canvascount If not empty, overrides the initial number of pages shown in preview form. Valid values are 1,2, or 4.
currentpage If not empty, overrides the initial page displayed by the preview form. (Default will be first page rendered.)
zoomlevel If not empty, overrides the initial zoom level of the preview form. Valid values are 1 (10%) to 9 (500%) ,10 (Whole page),and 11 (fit to page width).
toolbarisvisible If not null, overrides the default initial visibility of the preview form's toolbar. .T. to force visible; .F. to force not visible.
extensionhandler Reference to an extension handler object, if one is assigned via the .SetExtensionHandler() method.
previewformclass Class name of preview form to instantiate by default, or, class name of last class instantiated. Used to re-instantiate preview form if different from current form.
_memberdata XML Metadata for customizable properties
allowprintfrompreview If set to false, suppresses the Print action from the preview.
textontoolbar If not null, overrides the default initial visibility of the preview toolbar's button captions: .T. to force visible; .F. to force not visible. Initially, button captions are not visible.
memberclass Specifies the name of a member default class to use when new members are added to the container.
memberclasslibrary Specifies the name of the class library containing the class associated with the MemberClass property.
*getwindowref Returns an object reference to the window with the specified title. Parameter: cWindowTitle
*hide Calls THIS.oForm.Hide(), if oForm is not null.
*release Calls THIS.oForm.Release() and nulls out the internal object references .oReport and .oForm.
*setreport Called automatically by the report engine, passed a reference to the active ReportListener object so that the preview may subsequently invoke its .OutputPage() method to display each page of the report. (Parameter: oReport)
*show Called automatically by the report engine when the user has requested a new-style preview. The appropriate preview form class is instantiated and displayed, based on the REPORT FORM... command clauses.
*setcurrentpage Commands the active preview form to navigate to a specific page. (Parameter: iPageNo)
*setcanvascount Commands the active preview form to set the number of simultaneously visible pages to the specific value. Valid values: 1,2,4. (Parameter: iCount)
*setzoomlevel Commands the active preview window to change its zoom level to the speciified value. Valid values: 1-11. (Parameter: iZoomLevel)
*setextensionhandler Assign an object reference to handle preview extensions. (Parameter: oRef)
*binstringtoint
oform = .NULL.
oreport = .NULL.
caption = ("")
canvascount = 0
currentpage = 0
zoomlevel = 0
toolbarisvisible = .NULL.
extensionhandler = .NULL.
previewformclass = frxPreviewForm
_memberdata =
    1732<?xml version = "1.0" encoding="Windows-1252" standalone="yes"?>
<VFPData>
<memberdata name="allowprintfrompreview" type="Property" display="AllowPrintFromPreview"/>
<memberdata name="canvascount" type="Property" display="CanvasCount"/>
<memberdata name="caption" type="Property" display="Caption"/>
<memberdata name="currentpage" type="Property" display="CurrentPage"/>
<memberdata name="extensionhandler" type="Property" display="ExtensionHandler"/>
<memberdata name="oform" type="Property" display="oForm"/>
<memberdata name="oreport" type="Property" display="oReport"/>
<memberdata name="previewformclass" type="Property" display="PreviewFormClass"/>
<memberdata name="toolbarisvisible" type="Property" display="ToolbarIsVisible"/>
<memberdata name="topform" type="Property" display="TopForm"/>
<memberdata name="zoomlevel" type="Property" display="ZoomLevel"/>
<memberdata name="getwindowref" type="Method" display="GetWindowRef"/>
<memberdata name="hide" type="Method" display="Hide"/>
<memberdata name="release" type="Method" display="Release"/>
<memberdata name="setcanvascount" type="Method" display="SetCanvasCount"/>
<memberdata name="setcurrentpage" type="Method" display="SetCurrentPage"/>
<memberdata name="setextensionhandler" type="Method" display="SetExtensionHandler"/>
<memberdata name="setreport" type="Method" display="SetReport"/>
<memberdata name="setzoomlevel" type="Method" display="SetZoomLevel"/>
<memberdata name="show" type="Method" display="Show"/>
<memberdata name="textontoolbar"      type="Property" display="TextOnToolbar"/>
<memberdata name="memberclass"        type="Property" display="MemberClass"/>
<memberdata name="memberclasslibrary" type="Property" display="MemberClassLibrary"/>
</VFPData>
allowprintfrompreview = .T.
textontoolbar = .NULL.
memberclass = ("")
memberclasslibrary = ("")
Name = "frxpreviewproxy"
G(PROCEDURE getwindowref
*-----------------------------------------------------------------
* .GetWindowRef( cWindow )
* Given a window name from REPORT FORM.. WINDOW <cWindow>,
* return an object reference to the window
*-----------------------------------------------------------------
lparameter cWindow
*-----------------------------------
* Fixed for SP1: declare oForm local
*-----------------------------------
local cTitle, oRef, oForm
cTitle = wtitle(m.cWindow)
oRef   = null
if not empty( m.cTitle )
    for each oForm in _screen.Forms
        if upper(oForm.Caption) == upper(m.cTitle) and ;
           ((oForm.Class = "Form" and oForm.Name = "") or ;
            (upper(oForm.Name) == upper(m.cWindow)))
            oRef = m.oForm
            exit
        endif
    endfor
endif
return m.oRef
ENDPROC
PROCEDURE hide
*-----------------------------------------------------------------
* .Hide()
*-----------------------------------------------------------------
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewProxy::Hide()"
#ENDIF
if not isnull( THIS.oForm )
    THIS.oForm.Hide()
endif
ENDPROC
PROCEDURE release
*-----------------------------------------------------------------
* .Release()
*-----------------------------------------------------------------
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewProxy::Release()"
#ENDIF
if not isnull( THIS.oForm )
    THIS.oForm.Release()
endif
THIS.ExtensionHandler = .null.
THIS.oReport = .null.
THIS.oForm   = .null.
ENDPROC
PROCEDURE setreport
*-----------------------------------------------------------------
* .SetReport( oRef )
* This method will be called by the report engine, giving the
* PreviewContainer a reference to the active ReportListener so
* that it can invoke rendering methods to render the pages.
* This reference will need to be saved in an internal property,
* and nulled out appropriately in the .Reset()/.Destroy() events.
*-----------------------------------------------------------------
parameter toReport
#IF DEBUG_METHOD_LOGGING
    debugout ""
    debugout space(program(-1)) + "frxPreviewProxy::SetReport(" + trans(m.toReport) + ")"
#ENDIF
*------------------------------------------
* SET STATUS BAR OFF
* SET TALK ON
* ... get lots of stuff echoed to the screen
* so this will minimise it
*------------------------------------------
if set("TALK")="ON"
    THIS.Tag = " "
    set talk off
endif
if  not isnull( m.toReport )  and ;
    vartype( m.toReport ) = "O"
    *-----------------------------------------------
    * Change in SP2: This is no longer a constraint:
    *-----------------------------------------------
    * and toReport.BaseClass = "Reportlistener"
    *-----------------------------------
    * it's a valid Report Listener:
    *-----------------------------------
    THIS.oReport = m.toReport
    *------------------------------------------
    * Support for a late addition to the
    * report listener's commandClauses object:
    *------------------------------------------
    if vers(4) < "09.00.0000.2013"
        AddProperty( toReport.commandclauses, "IsDesignerProtected",.F.)
    endif
    *------------------------------------------
    * Interrogate report protection and disable
    * the print button
    *------------------------------------------
    if m.toReport.commandClauses.isDesignerProtected
        local iCurrSession, iRec, iProtFlags
        iCurrSession = set("DATASESSION")
        set datasession to (toReport.FrxDataSession)
        iRec = iif( eof("frx"),-1,recno("frx"))
        go top in frx
        iProtFlags = this.BinstringToInt( frx.ORDER )
        if m.iRec = -1
            go bottom in frx
            skip in frx
        else
            go m.iRec in frx
        endif
        set datasession to (m.iCurrSession)
        if bittest( m.iProtFlags, FRX_PROTECT_REPORT_NO_PRINT )
            THIS.AllowPrintFromPreview = .F.
        endif
    endif
    *-----------------------------------
    * We're being passed a null reference
    * so clean up:
    *-----------------------------------
    if not isnull( THIS.oForm )
        THIS.oForm.setReport( .NULL. )
*        THIS.oForm.Release()
    endif
    THIS.oReport = .NULL.

endif
*------------------------------------------
* SET STATUS BAR OFF
* SET TALK ON
* ... get lots of stuff echoed to the screen
* so this will minimise it
*------------------------------------------
if THIS.Tag == " "
    THIS.Tag = ""
    set talk on
endif
ENDPROC
PROCEDURE show
*-----------------------------------------------------------------
* .Show( imode )
* The Report engine / Listener object will invoke .Show() when
* it is ready for the user to interact with the Preview UI.
*-----------------------------------------------------------------
lparameter iStyle
#IF DEBUG_METHOD_LOGGING
    debugout ""
    debugout space(program(-1)) + "frxPreviewProxy::Show(" + trans(m.iStyle) + ")"
#ENDIF
*------------------------------------------
* Check for valid ReportListener reference.
* We can not proceed if we don't have a
* valid ReportListener guy:
*------------------------------------------
if isnull(THIS.oReport)
    *-------------------------------------
    * Error. Show() may not be called
    * prior to .setReport()
    *-------------------------------------
    =messagebox(RP_INVALID_INITIALIZATION_LOC, 16, DEFAULT_MBOX_TITLE_LOC )
    return
endif
*------------------------------------------
* SET STATUS BAR OFF
* SET TALK ON
* ... get lots of stuff echoed to the screen
* so this will minimise it
*------------------------------------------
if set("TALK")="ON"
    THIS.Tag = " "
    set talk off
endif
*------------------------------------------
* Ensure that Show() with no parameters is
* handled correctly (we pass the param on)
*------------------------------------------
if type("iStyle") = "L"
    iStyle = 0
endif
#define DEFAULT_PREVIEW_CLASS    "frxPreviewForm"
local lcFormClass
lcFormClass = DEFAULT_PREVIEW_CLASS        && In current top form
*------------------------------------------
* Determine the correct form class to instantiate:
*------------------------------------------
do case
case THIS.oReport.commandClauses.InScreen
    *--------------------------------------------
    * Ensure the screen is visible and normal preview:
    *--------------------------------------------
    lcFormClass = "frxPreviewInScreen"
case THIS.oReport.commandClauses.InWindow = "SCREEN"
    *--------------------------------------------
    * Just in case IN WINDOW SCREEN is resolved
    * as this clause instead:
    *--------------------------------------------
    lcFormClass = "frxPreviewInScreen"
case not empty( THIS.oReport.commandClauses.Window )
    *--------------------------------------------
    * Determine the kind of target window:
    *--------------------------------------------
    local host
    host = THIS.getWindowRef( THIS.oReport.commandClauses.Window )
    if not isnull( m.host ) and (host.Desktop or not empty(host.MacDesktop))
        lcFormClass = "frxPreviewInDesktop"
    endif
case THIS.TopForm
    *--------------------------------------------
    * Not IN SCREEN, not IN WINDOW <name>, and
    * explicitly asked for topform support:
    * Warning: Experimental!
    *--------------------------------------------
    lcFormClass = "frxPreviewAsTopForm"
endcase
THIS.previewFormClass = m.lcFormClass
*------------------------------------------
* Activate any other window involved in the
* command. (e.g. to respect the IN WINDOW <name> clause)
*------------------------------------------
do case
case THIS.oReport.commandClauses.InScreen
    *--------------------------------------------
    * Ensure the screen is visible and normal preview:
    *--------------------------------------------
    activate window screen
case THIS.oReport.commandClauses.InWindow = "SCREEN"
    *--------------------------------------------
    * Just in case IN WINDOW SCREEN is resolved
    * as this clause instead:
    *--------------------------------------------
    activate window screen
case not empty( THIS.oReport.commandClauses.InWindow )
    *--------------------------------------------
    * Determine the kind of host window:
    *--------------------------------------------
    local host
    host = THIS.getWindowRef( THIS.oReport.commandClauses.InWindow )
    if not isnull( m.host )
        *--------------------------------------------
        * Make sure it is active:
        *--------------------------------------------
        activate window (THIS.oReport.commandClauses.InWindow)
    endif
    release host
endcase
*------------------------------------------
* Instantiate the preview form, if necessary:
*------------------------------------------
local lReUse
lReUse = .T.
*------------------------------------------
* What prevents us from re-using the form?
*------------------------------------------
do case
case isnull( THIS.oForm )
    *-------------------------------------
    * We don't have a form to re-use:
    *-------------------------------------
    lReUse = .F.
case THIS.oForm.WindowType <> m.iStyle
    *-------------------------------------
    * We can't change modality on the fly
    *-------------------------------------
    lReUse = .F.
case upper(THIS.oForm.Class) <> upper(THIS.PreviewFormClass)
    *-------------------------------------
    * It's the wrong class
    *-------------------------------------
    lReUse = .F.
endcase
if not m.lReUse
    if not isnull( THIS.oForm )
        *--------------------------------------
        * Dispose of the current form:
        *--------------------------------------
        THIS.oForm.ExtensionHandler = null
        THIS.oForm.oReport = null
        THIS.oForm.Hide
        THIS.oForm = .null.
    endif
    *--------------------------------------
    * Create a new form instance:
    *--------------------------------------
    THIS.oForm = newobject(THIS.previewFormClass,"frxPreview")
endif
*------------------------------------------
* The new form needs a new reference to the listener:
*------------------------------------------
THIS.oForm.setReport( THIS.oReport )
THIS.oForm.RestoreFromResource()
*------------------------------------------
* Decorate the window:
*------------------------------------------
do case
case THIS.oReport.commandClauses.IsDesignerLoaded
    *------------------------------------------
    * Called from the Report Designer. We can't use
    * IF WEXIST("REPORT DESIGNER") because it is possible
    * to use MODI REPORT ... WINDOW X where X has a different title.
    *------------------------------------------
    local cDesignerWindow
    cDesignerWindow = wontop()
    if not empty(m.cDesignerWindow)
        cParent = wparent(m.cDesignerWindow)
        if empty(m.cParent)
            cParent = "SCREEN"
        endif
        local iRowPix, iColPix
        *--------------------------------------------------
        * Calculate the co-ordinates of the Report Designer
        * in the parent window:
        *--------------------------------------------------
        iRowPix = fontmetric(1, wfont(1,m.cParent), wfont(2,m.cParent), wfont(3,m.cParent) )
        iColPix = fontmetric(6, wfont(1,m.cParent), wfont(2,m.cParent), wfont(3,m.cParent) )
        THIS.oForm.Top     = int( wlrow(m.cDesignerWindow) * m.iRowPix )
        THIS.oForm.Left    = int( wlcol(m.cDesignerWindow) * m.iColPix )
        *--------------------------------------------------
        * Calculate the width/height of the Report Designer:
        *--------------------------------------------------
        iRowPix = fontmetric(1, wfont(1,m.cDesignerWindow), wfont(2,m.cDesignerWindow), wfont(3,m.cDesignerWindow) )
        iColPix = fontmetric(6, wfont(1,m.cDesignerWindow), wfont(2,m.cDesignerWindow), wfont(3,m.cDesignerWindow) )
        THIS.oForm.Width   = int( wcols(m.cDesignerWindow) * m.iColPix )
        THIS.oForm.Height  = int( wrows(m.cDesignerWindow) * m.iRowPix )
        THIS.oForm.Caption = m.cDesignerWindow
*        if wmaximum(m.cDesignerWindow)
*            THIS.oForm.WindowState = 2
*        endif
    endif
case not empty( THIS.oReport.commandClauses.Window )
    *------------------------------------------
    * Respect the WINDOW <name> clause
    *------------------------------------------
    local template
    template = THIS.getWindowRef( THIS.oReport.commandClauses.Window )
    if not isnull( m.template )
        with THIS.oForm
            .Caption             = template.Caption
            .Top                 = template.Top
            .Left                 = template.Left
            .Width               = template.Width
            .Height              = template.Height
            .WindowState        = template.WindowState  && not minimised?
            .BorderStyle        = template.BorderStyle
            .HalfHeightCaption  = template.HalfHeightCaption
        endwith
        release template
    endif
otherwise
    with THIS.oForm
        *-------------------------------------
        * Fix for SP2: Test for -1
        * rather than 0 because otherwise you
        * can't override and set to 0.
        * Now of course, you can't set to -1.
        *-------------------------------------
        if THIS.Top > -1
            .Top = THIS.Top
        endif
        if THIS.Left > -1
            .Left = THIS.Left
        endif
        *-------------------------------------
        if THIS.Width > 0
            .Width = THIS.Width
        endif
        if THIS.Height > 0
            .Height = THIS.Height
        endif
        if not empty( THIS.Caption )
            .Caption = THIS.Caption
        endif
    endwith
endcase
*------------------------------------------
* Changed for SP1: These have nothing to do
* with the size and shape of the window:
*------------------------------------------
with THIS.oForm
    *--------------------------------------------
    * New in SP2:
    *--------------------------------------------
    .MemberClass        = THIS.MemberClass
    .MemberClassLibrary = THIS.MemberClassLibrary
    *--------------------------------------------
    if THIS.canvasCount > 0
        .canvasCount = THIS.canvasCount
    endif
    if THIS.currentPage > 0
        .currentPage = THIS.currentPage
    endif
    if THIS.zoomLevel > 0
        .zoomLevel = THIS.zoomLevel
    endif
    if not isnull( THIS.toolbarIsVisible )
        .toolbarIsVisible = THIS.toolbarIsVisible
    endif
    if not isnull( THIS.TextOnToolbar )
        .TextOnToolbar = THIS.TextOnToolbar
    endif
    .AllowPrintFromPreview = THIS.AllowPrintFromPreview
endwith
*-------------------------------
* Hook in the extension handler:
*-------------------------------
if not isnull( THIS.ExtensionHandler )
    THIS.oForm.extensionHandler = THIS.ExtensionHandler
endif
*-------------------------------
* Show the form:
*-------------------------------
if THIS.oForm.ShowWindow = 2
    *-----------------------------------
    * We're launching a top form which
    * must always be modeless.
    *-----------------------------------
    iStyle = 0
endif
if m.iStyle = 1
    *------------------------------------------
    * Modal: We can show the form, then reset
    * the TALK setting:
    *------------------------------------------
    THIS.oForm.Show(1)
    *------------------------------------------
    * SET STATUS BAR OFF
    * SET TALK ON
    * ... get lots of stuff echoed to the screen
    * so this will minimise it
    *------------------------------------------
    if THIS.Tag == " "
        THIS.Tag = ""
        set talk on
    endif
    *------------------------------------------
    * Modeless. Restore TALK prior to showing
    *------------------------------------------
    *------------------------------------------
    * SET STATUS BAR OFF
    * SET TALK ON
    * ... get lots of stuff echoed to the screen
    * so this will minimise it
    *------------------------------------------
    if THIS.Tag == " "
        THIS.Tag = ""
        set talk on
    endif
    THIS.oForm.Show()
endif
ENDPROC
PROCEDURE setcurrentpage
*-----------------------------------------------------------------
* .SetCurrentPage( iPage )
*-----------------------------------------------------------------
lparameter iPage
THIS.currentPage = m.iPage
if not isnull( THIS.oForm )
    THIS.oForm.setCurrentPage( THIS.currentPage )
    THIS.oForm.renderPages()
    return .T.
    return .F.
endif
ENDPROC
PROCEDURE setcanvascount
*-----------------------------------------------------------------
* .SetCanvasCount( iCount )
*-----------------------------------------------------------------
lparameter iCount
THIS.canvasCount = m.iCount
if not isnull( THIS.oForm )
    THIS.oForm.actionSetCanvasCount( THIS.canvasCount )
    THIS.oForm.renderPages()
    return .T.
    return .F.
endif
ENDPROC
PROCEDURE setzoomlevel
*-----------------------------------------------------------------
* .SetZoomLevel( iLevel )
*-----------------------------------------------------------------
lparameter iLevel
THIS.zoomLevel = m.iLevel
if not isnull( THIS.oForm )
    THIS.oForm.actionSetZoom( THIS.zoomLevel )
    return .F.
endif
ENDPROC
PROCEDURE setextensionhandler
*-----------------------------------------------------------------
* .SetExtensionHandler( oRef )
*-----------------------------------------------------------------
lparameter oRef
THIS.ExtensionHandler = m.oRef
if not isnull( THIS.oForm )
    THIS.oForm.ExtensionHandler = THIS.ExtensionHandler
    return .T.
    return .F.
endif
ENDPROC
PROCEDURE binstringtoint
*=======================================================
* BinstringToInt( char )
* Returns a numeric equivalent of a binary data in string
* form.
* BinChar & Integer conversion, based on code by RS
*=======================================================
lparameter cByte
local iReturn, i, b
iReturn = 0
for m.i = len( m.cByte ) to 1 step -1
    b = asc( substr( m.cByte, m.i, 1 ))
    iReturn = (m.iReturn*256) + m.b
endfor
return m.iReturn
ENDPROC
PROCEDURE Init
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewProxy::Init()"
#ENDIF
THIS.Width = 0
THIS.Height = 0
* New in SP1:
THIS.Top = -1
THIS.Left = -1
ENDPROC
PROCEDURE Destroy
*-----------------------------------------------------------------
* .Destroy()
*-----------------------------------------------------------------
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewProxy::Destroy()"
#ENDIF
*--------------------------------------------
* Try this to ensure no hanging references...
*--------------------------------------------
if not isnull( THIS.oForm )
    THIS.oForm.Release()
endif
ENDPROC
OPREVIEWFORM
PREVIEWFORM
CBOZOOM
CLEAR
ZOOMLEVELS
ADDITEM
DISPLAYCOUNT
CBOZOOM
VALUE
PREVIEWFORM
ZOOMLEVEL
IPAGESALLOWED
ZOOMLEVELS
OPGPAGECOUNT
ENABLED
CANVASCOUNT
CURRENTPAGE
CNTPREV
CMDTOP
CMDBACK
PAGETOTAL
CNTNEXT
CMDFORWARD
CMDBOTTOM
CMDGOTOPAGE
IZOOMINDEX
OFORM
PREVIEWFORM
ZOOMLEVEL
ACTIONSETZOOM
IGNOREMOUSECLICKINMAGNIFYCODE
CPOINT
GETMOUSEPOINTERPOS
CAPTION
CBOZOOM
WIDTH
HEIGHT
FONTNAME
FONTSIZE
VALUE
SETMOUSEPOINTERPOS
CWINDOW
CTITLE
OFORM
FORMS
CAPTION
CLASS
OPGPAGECOUNT
VALUE
PREVIEWFORM
ACTIONSETCANVASCOUNT
cmdPrint
Caption
AutoSizea
AutoSize-
Height
PREVIEWFORM
CAPTION
FORMCAPTION
CMDPRINT
VISIBLE
ALLOWPRINTFROMPREVIEW
TEXTONTOOLBAR
OCONTROL
CONTROLS
SETALL
Print Preview
PreviewToolbar
GetCursorPos
user32Q
GetMousePointerPos
SetCursorPos
user32Q
SetMousePointerPos
CAPTION
GETCURSORPOS
USER32
GETMOUSEPOINTERPOS
SETCURSORPOS
SETMOUSEPOINTERPOS+
PREVIEWFORM
TOOLBARISVISIBLE
ErrorHandler
pr_frxpreview.prg
IERROR
CMETHOD
ILINE
HANDLE
THIS
CANCELLED
SUSPENDED
previewform_assign,
synchcontrols.
actionzoomlevel*
getwindowref
actionpagecount(
Refresh
Destroy
Error
SUPPRESSRENDERING
RELEASE-
SETCURRENTPAGE
RENDERPAGES
SYNCHTOOLBAR<
SETCURRENTPAGE
PAGETOTAL
CANVASCOUNT
RENDERPAGES
SYNCHTOOLBAR
CURRENTPAGE
CANVASCOUNT
OREPORT
OUTPUTPAGECOUNT
SETCURRENTPAGE
SUPPRESSRENDERING
RENDERPAGES
SYNCHTOOLBARj
CURRENTPAGE
SETCURRENTPAGE
CANVASCOUNT
RENDERPAGES
SYNCHTOOLBAR
frxGoToPageForm
frxPreview.vcx
LOFORM
IPAGENO
OPARENTFORM
SHOWTOOLBAR
PAGENO
CURRENTPAGE
SETCURRENTPAGE
09.00.0000.3504
OREPORT
COMMANDCLAUSES
NOWAIT
PRINTCACHEDPAGES
SUPPRESSRENDERING
PRINTONEXIT
RELEASE!
ICOUNT
SETCANVASCOUNT!
IZOOMLEVEL
SETZOOMLEVEL
TOOLBAR
TOOLBARISVISIBLE
CREATETOOLBAR
SHOWTOOLBAR
First page
prefirst.bmp
Previous
preprev.bmp
First page
prefirst.bmp
Previous
preprev.bmp
prenext.bmp
Last page
prelast.bmp
prenext.bmp
Last page
prelast.bmp
Go to page...
preview.bmp
Pages to display
Toolbar
09.00.0000.3301
Print
print.bmp
Close
preclose.bmp
oRef.actionGoFirst()
oRef.actionGoPrev()
oRef.actionGoNext()
oRef.actionGoLast()
oRef.actionGoToPage()
ON BAR 7 OF (m.cShortcut) ACTIVATE POPUP &cZoom
ON BAR 8 OF (m.cShortcut) ACTIVATE POPUP &cPages
oRef.actionToolbarVisibility()
oRef.actionPrint()
oRef.actionClose()
About...
oRef.actionShowInfo()
oref.actionSetZoom( bar() )
1 page
2 pages
2 pages
4 pages
4 pages
oRef.actionSetCanvasCount(1)
oRef.actionSetCanvasCount(2)
oRef.actionSetCanvasCount(4)
AddBarsToMenu
LVIAKEYPRESS
ALLOWOUTPUT
OPREVIEWCONTAINER
CSHORTCUT
CZOOM
CPAGES
SHOWWINDOW
CURRENTPAGE
CANVASCOUNT
PAGETOTAL
TOOLBAR
TOOLBARISVISIBLE
WINDOWTYPE
ALLOWPRINTFROMPREVIEW
ZOOMLEVELS
ZOOMLEVEL
IPAGESALLOWED
EXTENSIONHANDLER
ADDBARSTOMENU
IGNOREMOUSECLICKINMAGNIFYCODE3
Image
An exception ocurred invoking .OutputPage():C
Report Preview
Image
IPAGE
OCANVAS
OREPORT
OUTPUTPAGECOUNT
BASECLASS
VISIBLE
OUTPUTPAGE
MESSAGE
TOREPORT
OREPORT
FRXFILENAME
COMMANDCLAUSES
LENABLED
TOOLBAR
CONTROLS
ENABLED
SYNCHTOOLBAR
SHOWWINDOW
CAPTION
Image
Image
Image
SUPPRESSRENDERING
SPACER
BACKCOLOR
WIDTH
HEIGHT
ILEFT
IWIDTH
IHEIGHT
IZOOMPERCENT
GETZOOMPERCENT
PAGEWIDTH
SCREENDPI
PAGEHEIGHT
ZOOMLEVEL
ZOOMLEVELS
SCROLLBARS
CANVASCOUNT
CANVAS1
BASECLASS
VISIBLE
CANVAS2
CANVAS3
CANVAS4
 - Page
 - Page
ICURRENTPAGE
CURRENTPAGE
STARTOFFSET
OREPORT
COMMANDCLAUSES
WINDOW
CANVASCOUNT
LASTPAGE
PAGETOTAL
CAPTION
FORMCAPTION*
TOOLBAR
SYNCHCONTROLS
IPAGE
CURRENTPAGE
OREPORT
OUTPUTPAGECOUNT
SYNCHPAGENO
RENDERPAGES
SYNCHTOOLBARZ
Preview version:
9.5.0.0
.pageTotal   =
.currentPage =
.canvasCount =
.pageHeight  =
.pageWidth   =
_PAGENO      =
THIS.oReport.commandClauses:
THIS.oReport.commandClauses.C
Report Preview
CTEXT
THIS
PAGETOTAL
CURRENTPAGE
CANVASCOUNT
PAGEHEIGHT
PAGEWIDTH
OREPORT
COMMANDCLAUSES
CFIELD
IZOOMPERCENT
THIS
ZOOMLEVEL
ZOOMLEVELS
NPREVIEWFORMASPECTRATIO
NPAGEASPECTRATIO
IREQUIREDHEIGHT
IREQUIREDWIDTH
WIDTH
HEIGHT
CANVASCOUNT
PAGEWIDTH
PAGEHEIGHT
SCREENDPI
RenderPages
SUPPRESSRENDERING
IPAGETORENDER
CURRENTPAGE
CANVASCOUNT
RENDERPAGE
CANVAS1
CANVAS2
CANVAS3
CANVAS4
EXTENSIONHANDLER
RENDERPAGES
NOTIFY
NOTIFYv
TALKv
ResourceManager
frxcommon.prg
92REPREVIEWC
PreviewForm.Top
PreviewForm.Left
PreviewForm.Width
PreviewForm.Width
PreviewForm.Height
PreviewForm.Height
PreviewForm.WindowState
PreviewForm.ToolbarIsVisible
PreviewForm.CanvasCount
PreviewForm.ZoomLevel
PreviewToolbar.Top
PreviewToolbar.Left
PreviewToolbar.Width
PreviewToolbar.Height
PreviewToolbar.DockPosition
92REPREVIEWC
LSETNOTIFY
LSETNOTIFY2
LSETTALK
ICURRENTSTATE
WINDOWSTATE
LOADRESOURCE
FRXFILENAME
OREPORT
COMMANDCLAUSES
ISDESIGNERLOADED
WIDTH
VIEWPORTWIDTH
HEIGHT
VIEWPORTHEIGHT
TOOLBARISVISIBLE
CANVASCOUNT
ZOOMLEVEL
TOOLBAR
DOCKPOSITION
SAVERESOURCE
ResourceManager
frxcommon.prg
92REPREVIEWC
PreviewForm.Top
PreviewForm.Left
PreviewForm.Width
PreviewForm.Height
PreviewForm.WindowState
PreviewForm.ToolbarIsVisible
PreviewForm.CanvasCount
PreviewForm.ZoomLevel
PreviewToolbar.Top
PreviewToolbar.Left
PreviewToolbar.Width
PreviewToolbar.Height
PreviewToolbar.DockPosition
ICURRENTSTATE
CVALUE
LOADRESOURCE
FRXFILENAME
WIDTH
HEIGHT
OREPORT
COMMANDCLAUSES
ISDESIGNERLOADED
WINDOWSTATE
TOOLBARISVISIBLE
CANVASCOUNT
ZOOMLEVEL
TOOLBAR
SHOWWINDOW
CANVAS1
WIDTH
PAGEWIDTH
frxPreviewToolbar
frxPreview.vcx
InitializeToolbar
TOOLBAR
PREVIEWFORM
EXTENSIONHANDLER
INITIALIZETOOLBAR
REFRESH
PreviewForm
OEXTHANDLER
EXTENSIONHANDLER
PREVIEWFORM
Empty
CONVERSIONFACTOR
GETPIXELSPERDPI960
CANVAS1
OFFSETG
Command
STARTMODE
HIDCOMMANDWINDOW
COMMAND`
Command
STARTMODE
COMMAND
HIDCOMMANDWINDOW
Canvas1
Canvas2
Canvas3
Canvas4
Canvas1
Canvas2
Canvas3
Canvas4
Canvas1
ShapeCanvas
Canvas2
ShapeCanvas
Canvas3
ShapeCanvas
Canvas4
ShapeCanvas
CreateCanvases
MEMBERCLASS
MEMBERCLASSLIBRARY
NEWOBJECT
CLASSLIBRARY
CANVAS1
VISIBLE
CANVAS2
CANVAS3
CANVAS4
EXTENSIONHANDLER
CREATECANVASES8
THIS.Canvas1b
Shape
ICANVASCOUNT
CANVASCOUNT
CANVAS1
BASECLASS
CANVAS2
VISIBLE
CANVAS3
CANVAS49
IZOOMLEVEL
ZOOMLEVELS
ZOOMLEVEL
SETVIEWPORT
IPAGESALLOWED
CANVASCOUNT
TEMPSTOPREPAINT
SYNCHCANVASES
RENDERPAGES
SYNCHPAGENO
SYNCHTOOLBAR
SCROLLBARS
ICOUNT
CANVASCOUNT
SUPPRESSRENDERING
SETVIEWPORT
SYNCHCANVASES
RENDERPAGES
SYNCHPAGENO
SYNCHTOOLBAR
IBUTTON
NSHIFT
NXCOORD
NYCOORD
IGNOREMOUSECLICKINMAGNIFYCODE
CANVAS1
WIDTH
HEIGHT
ZOOMLEVEL
ZOOMLEVELS
CLICKXOFFSETPERCENT
CLICKYOFFSETPERCENT
ACTIONSETZOOM
NEWVIEWPORTX
NEWVIEWPORTY
SETVIEWPORT
MOUSEFLAG8
TOOLBAR
TOOLBARISVISIBLE2
TOOLBARISVISIBLE
SHOWTOOLBAR
RESIZE'
TOOLBARISVISIBLE
TOOLBAR
Destroy
EXTENSIONHANDLER
DESTROY
TOOLBAR
PREVIEWFORM
OREPORT%
Whole Page
Fit to Width
ZOOMLEVELS
CREATETOOLBAR
MINWIDTH
MINHEIGHT
HandledKeyPress
NKEYCODE
NSHIFTALTCTRL
LHANDLEDKEYPRESS
IPAGESALLOWED
ZOOMLEVELS
ZOOMLEVEL
EXTENSIONHANDLER
HANDLEDKEYPRESS
ACTIONCLOSE
INVOKECONTEXTMENU
ACTIONSETZOOM
ACTIONGOTOPAGE
SETVIEWPORT
VIEWPORTLEFT
VIEWPORTTOP
ACTIONGOPREV
ACTIONGONEXT
ACTIONGOFIRST
ACTIONGOLAST
ACTIONSETCANVASCOUNT
Image
Paint
TEMPSTOPREPAINT
CANVAS1
BASECLASS
RENDERPAGES
EXTENSIONHANDLER
PAINT
RELEASE
Release
09.00.0000.1800
OREPORT
EXTENSIONHANDLER
RELEASE
SAVETORESOURCE
COMMANDCLAUSES
PRINTPAGECURRENT
CURRENTPAGE
ONPREVIEWCLOSE
PRINTONEXIT
SHOWCOMMANDWINDOW
HIDE4
THIS
ZOOMLEVEL
ZOOMLEVELS
SYNCHCANVASES
INVOKECONTEXTMENUs
InitializeToolbar
There are no pages available to preview.
Report Preview
Report Preview
09.00.0000.3301
ISTYLE
EXTENSIONHANDLER
INITIALIZETOOLBAR
PAGETOTAL
OREPORT
OUTPUTPAGECOUNT
STARTOFFSET
CANVASCOUNT
ISNOWAIT
CAPTION
COMMANDCLAUSES
ISDESIGNERLOADED
WINDOW
PRINTJOBNAME
FRXFILENAME
FORMCAPTION
SETCURRENTPAGE
CURRENTPAGE
SHOWWINDOW
TOOLBARISVISIBLE
TOOLBAR
REFRESH
SHOWTOOLBAR
IWIDTH
IHEIGHT
GETPAGEWIDTH
GETPAGEHEIGHT
PAGEWIDTH
PAGEHEIGHT
CREATECANVASES
SYNCHCANVASES
MINBUTTON
HIDECOMMANDWINDOW
RENDERPAGES
INWINDOW
HandledError
IERROR
CMETHOD
ILINE
EXTENSIONHANDLER
HANDLEDERROR
actionclose,
actiongofirstp
actiongolast
actiongonext[
actiongoprev
actiongotopage\
actionprint
actionsetcanvascount
actionsetzoom
actiontoolbarvisibility3
invokecontextmenu
renderpage
setreportU
showtoolbar
synchcanvases
synchpagenoc
synchtoolbar
setcurrentpage
actionshowinfo
getzoompercent
renderpages$(
savetoresourceB*
restorefromresourcei0
getpixelsperdpi960\6
createtoolbar
extensionhandler_assign
getpixelpageoffsetsr8
showcommandwindow
hidecommandwindowI:
createcanvases
canvascount_assign
setzoomlevel
setcanvascountiA
MouseUp
HidewE
Activate
Deactivate=F
Destroy
InitnG
KeyPress
Paint
QueryUnload
Release
Resize
RightClick
Show3V
Error
PROCEDURE actionclose
*---------------------------------------------------------------
* .ActionClose() - called from toolbar/context menu
* The action we take depends on whether we're hiding or releasing...
*---------------------------------------------------------------
THIS.suppressRendering = .T.
THIS.Release()
ENDPROC
PROCEDURE actiongofirst
*--------------------------------------------------------------
* ActionGoFirst()
*--------------------------------------------------------------
THIS.setCurrentPage(1)
THIS.RenderPages()
THIS.synchToolbar()
ENDPROC
PROCEDURE actiongolast
*--------------------------------------------------------------
* ActionGoLast()
*--------------------------------------------------------------
THIS.setCurrentPage(THIS.pageTotal - (THIS.canvasCount - 1))
THIS.RenderPages()
THIS.synchToolbar()
ENDPROC
PROCEDURE actiongonext
*--------------------------------------------------------------
* ActionGoNext()
*--------------------------------------------------------------
if (THIS.currentPage + THIS.canvasCount > THIS.oReport.OutputPageCount)
    ?? chr(7)
    THIS.setCurrentPage( THIS.currentPage + THIS.canvasCount )
    if (THIS.oReport.OutputPageCount - THIS.currentPage) < (THIS.CanvasCount - 1)
        *------------------------------------------------
        * Clear the form to remove unused canvas images
        * that will not be re-rendered:
        *------------------------------------------------
        THIS.SuppressRendering = .T.
        THIS.Cls()
        THIS.SuppressRendering = .F.
    endif
    THIS.RenderPages()
    THIS.synchToolbar()
endif
ENDPROC
PROCEDURE actiongoprev
*--------------------------------------------------------------
* ActionGoPrev()
*--------------------------------------------------------------
if THIS.currentPage > 1
    THIS.setCurrentPage( max( THIS.currentPage - THIS.canvasCount, 1 ))
    THIS.RenderPages()
    THIS.synchToolbar()
    ?? chr(7)
endif
ENDPROC
PROCEDURE actiongotopage
*-----------------------------------------------------------
* ActionGoToPage()
*-----------------------------------------------------------
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::ActionGoToPage()"
#ENDIF
local loForm, iPageNo
loForm = newobject("frxGoToPageForm","frxPreview.vcx")
*-----------------------------------------
* Fix for SP1: Pass it a ref to this form
* Addresses bug# 474691
* See frxGoToPageForm::Show()
*-----------------------------------------
loForm.oParentForm = THIS
THIS.ShowToolbar(.F.)
loForm.Show( WINDOWTYPE_MODAL )
THIS.ShowToolbar(.T.)
iPageNo = loForm.PageNo
release m.loForm
*------------------------------------
* Fix for SP1:
* Ensure this form gets keypresses
* after showing the child dialog:
*------------------------------------
activate Window (THIS.Name)
if m.iPageNo <> THIS.currentPage
    THIS.setCurrentPage( m.iPageNo )
endif
ENDPROC
PROCEDURE actionprint
*---------------------------------------------------------------
* ActionPrint() - called from toolbar or context menu
*---------------------------------------------------------------
*----------------------------------------------
* Enhancement for SP2:
*----------------------------------------------
if version(4) > "09.00.0000.3504"
    *----------------------------------------------------
    * SP2 behavior: If NOWAIT, print without terminating:
    *----------------------------------------------------
    if THIS.oReport.commandClauses.NOWAIT
        THIS.oReport.PrintCachedPages()
    else
        * Terminate:
        THIS.suppressRendering = .T.
        THIS.printOnExit       = .T.
        THIS.Release()
    endif
    *----------------------------------------------------
    * Pre-SP2 behavior: terminate:
    *----------------------------------------------------
    THIS.suppressRendering = .T.
    THIS.printOnExit       = .T.
    THIS.Release()
endif
ENDPROC
PROCEDURE actionsetcanvascount
*-----------------------------------------------------
* ActionSetCanvasCount()
*-----------------------------------------------------
lparameter iCount
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::ActionSetCanvasCount()"
#ENDIF
THIS.SetCanvasCount( m.iCount )
return
ENDPROC
PROCEDURE actionsetzoom
*-----------------------------------------------------
* ActionSetZoom()
*-----------------------------------------------------
lparameters iZoomLevel
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::ActionSetZoom()"
#ENDIF
THIS.SetZoomLevel( m.iZoomLevel )
return
ENDPROC
PROCEDURE actiontoolbarvisibility
*--------------------------------------------------
* .ActionToolbarVisibility() - called from menu
*--------------------------------------------------
if isnull( THIS.toolbar )
    THIS.ToolbarIsVisible = .F.
    THIS.CreateToolbar()
endif
if THIS.ToolbarIsVisible
    * Hide the toolbar:
    THIS.Toolbar.Hide()
    THIS.ToolbarIsVisible = .F.
    * Show the toolbar:
    THIS.ShowToolbar(.T.)
    THIS.ToolbarIsVisible = .T.
endif
ENDPROC
PROCEDURE invokecontextmenu
*=======================================================================
* .InvokeContextMenu()
* Show the default context menu for the preview window:
*=======================================================================
lparameter lViaKeypress
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::InvokeContextMenu()"
#ENDIF
THIS.AllowOutput = .T.
activate window (THIS.Name)
*----------------------------------------------
* Enh for SP2: oPreviewContainer is also available
*----------------------------------------------
private oRef, oPreviewContainer
store THIS to ;
    oRef, oPreviewContainer
local cShortcut, cZoom, cPages
cShortcut = sys(2015)
cZoom     = sys(2015)
cPages    = sys(2015)
if oRef.ShowWindow = SHOWWINDOW_AS_TOPFORM
    if m.lViaKeypress
        define popup (m.cShortcut) ;
            shortcut ;
            relative ;
            in window (oRef.Name) ;
            from 1,1
    else
        define popup (m.cShortcut) ;
            shortcut ;
            relative ;
            in window (oRef.Name) ;
            from mrow(oRef.Name),mcol(oRef.Name)
    endif
    if m.lViaKeypress
        *-------------------------------
        * Fix in SP1: no in window clause
        *-------------------------------
        define popup (m.cShortcut) ;
            shortcut ;
            relative ;
            from 1,1
    else
        define popup (m.cShortcut) ;
            shortcut ;
            relative ;
            from mrow(), mcol()
    endif
endif
if (THIS.currentPage > THIS.canvasCount )
    DEFINE BAR 1 OF (m.cShortcut) PROMPT CONTEXT_MENU_PROMPT_FIRST_PAGE_LOC  picture "prefirst.bmp"
    DEFINE BAR 2 OF (m.cShortcut) PROMPT CONTEXT_MENU_PROMPT_PREVIOUS_LOC    picture "preprev.bmp"
    DEFINE BAR 1 OF (m.cShortcut) PROMPT "\"+CONTEXT_MENU_PROMPT_FIRST_PAGE_LOC  picture "prefirst.bmp"
    DEFINE BAR 2 OF (m.cShortcut) PROMPT "\"+CONTEXT_MENU_PROMPT_PREVIOUS_LOC    picture "preprev.bmp"
endif
if ( THIS.currentPage < (THIS.pageTotal - (THIS.canvasCount-1) ))
    DEFINE BAR 3 OF (m.cShortcut) PROMPT CONTEXT_MENU_PROMPT_NEXT_LOC        picture "prenext.bmp"
    DEFINE BAR 4 OF (m.cShortcut) PROMPT CONTEXT_MENU_PROMPT_LAST_PAGE_LOC   picture "prelast.bmp"
    DEFINE BAR 3 OF (m.cShortcut) PROMPT "\"+CONTEXT_MENU_PROMPT_NEXT_LOC       picture "prenext.bmp"
    DEFINE BAR 4 OF (m.cShortcut) PROMPT "\"+CONTEXT_MENU_PROMPT_LAST_PAGE_LOC  picture "prelast.bmp"
endif
DEFINE BAR 5 OF (m.cShortcut) PROMPT CONTEXT_MENU_PROMPT_GO_TO_PAGE_LOC
DEFINE BAR 6 OF (m.cShortcut) PROMPT "\-"
DEFINE BAR 7 OF (m.cShortcut) PROMPT CONTEXT_MENU_PROMPT_ZOOM_LOC  picture "preview.bmp"
DEFINE BAR 8 OF (m.cShortcut) PROMPT CONTEXT_MENU_PROMPT_PAGES_TO_DISPLAY_LOC
DEFINE BAR 9 OF (m.cShortcut) PROMPT "\-"
DEFINE BAR 10 OF (m.cShortcut) PROMPT CONTEXT_MENU_PROMPT_TOOLBAR_LOC
if isnull( THIS.toolbar ) or THIS.ToolbarIsVisible = .F.
    set Mark of bar 10 of (m.cShortcut) to .F.
    set Mark of bar 10 of (m.cShortcut) to .T.
endif
*----------------------------------------------
* Fix for versions earlier than SP1: Bug# 475109
*----------------------------------------------
if version(4) < "09.00.0000.3301"
    if oRef.WindowType = WINDOWTYPE_MODAL and ;
       oRef.ShowWindow = SHOWWINDOW_IN_TOPFORM and ;
       not empty(wparent(THIS.Name))
        * if we are modal and inside a topform app,
        * the toolbar will be unavailable, so don't
        * let it be shown:
       set Skip of bar 10 of (m.cShortCut) .T.
    endif
endif
DEFINE BAR 11 OF (m.cShortcut) PROMPT "\-"
DEFINE BAR 12 OF (m.cShortcut) PROMPT CONTEXT_MENU_PROMPT_PRINT_LOC  picture "print.bmp"
DEFINE BAR 13 OF (m.cShortcut) PROMPT CONTEXT_MENU_PROMPT_CLOSE_LOC  picture "preclose.bmp"
ON SELECTION BAR 1 OF (m.cShortcut) oRef.actionGoFirst()
ON SELECTION BAR 2 OF (m.cShortcut) oRef.actionGoPrev()
ON SELECTION BAR 3 OF (m.cShortcut) oRef.actionGoNext()
ON SELECTION BAR 4 OF (m.cShortcut) oRef.actionGoLast()
ON SELECTION BAR 5 OF (m.cShortcut) oRef.actionGoToPage()
ON BAR 7 OF (m.cShortcut) ACTIVATE POPUP &cZoom
ON BAR 8 OF (m.cShortcut) ACTIVATE POPUP &cPages
ON SELECTION BAR 10 OF (m.cShortcut) oRef.actionToolbarVisibility()
ON SELECTION BAR 12 OF (m.cShortcut) oRef.actionPrint()
ON SELECTION BAR 13 OF (m.cShortcut) oRef.actionClose()
*------------------------------------------------------
* Fix for SP1: include "About..." option if via keypress
*------------------------------------------------------
if DEBUG_MENU_INFO_OPTION or m.lViaKeypress
    DEFINE Bar 14 of (m.cShortcut) prompt CONTEXT_MENU_PROMPT_INFODEBUG_LOC
    ON SELECTION BAR 14 OF (m.cShortcut) oRef.actionShowInfo()
endif
if not THIS.AllowPrintFromPreview
    release bar 12 of (m.cShortcut)
endif
*------------------------------- Set the mark:
set Mark of bar 10 of (m.cShortcut) to oRef.ToolbarIsVisible
*------------------------------------------------------
* Define the Page Count popup:
*------------------------------------------------------
DEFINE POPUP (m.cZoom) SHORTCUT RELATIVE
local i
for i = 1 to alen(THIS.zoomLevels,1)
    define Bar m.i of(m.cZoom) prompt THIS.zoomLevels[m.i,ZOOM_LEVEL_PROMPT]
    on Selection Bar m.i of (m.cZoom) oref.actionSetZoom( bar() )
endfor
*---------------------- Set the mark:
set mark of bar (THIS.ZoomLevel) of (m.cZoom) to .T.
*------------------------------------------------------
* Define the Page Count popup:
*------------------------------------------------------
DEFINE POPUP (m.cPages) SHORTCUT RELATIVE
DEFINE BAR 1 OF (m.cPages) PROMPT CONTEXT_MENU_PROMPT_1PAGE_LOC
*---------------------- Disable multi-page view for high zoom levels:
local iPagesAllowed
iPagesAllowed = THIS.zoomLevels[ THIS.zoomLevel, ZOOM_LEVEL_CANVAS ]
if m.iPagesAllowed > 1
    DEFINE BAR 2 OF (m.cPages) PROMPT CONTEXT_MENU_PROMPT_2PAGES_LOC
    DEFINE BAR 2 OF (m.cPages) PROMPT "\"+CONTEXT_MENU_PROMPT_2PAGES_LOC
endif
if m.iPagesAllowed > 2
    DEFINE BAR 3 OF (m.cPages) PROMPT CONTEXT_MENU_PROMPT_4PAGES_LOC
    DEFINE BAR 3 OF (m.cPages) PROMPT "\"+CONTEXT_MENU_PROMPT_4PAGES_LOC
endif
ON SELECTION BAR 1 OF (m.cPages) oRef.actionSetCanvasCount(1)
ON SELECTION BAR 2 OF (m.cPages) oRef.actionSetCanvasCount(2)
ON SELECTION BAR 3 OF (m.cPages) oRef.actionSetCanvasCount(4)
*---------------------- Set the mark:
do case
case THIS.canvasCount = 1
    set Mark of bar 1 of (m.cPages) to .T.
case THIS.canvasCount = 2
    set Mark of bar 2 of (m.cPages) to .T.
case THIS.canvasCount = 4
    set Mark of bar 3 of (m.cPages) to .T.
endcase
*---------------------------------------------------
* Plug in extension handler:
*------------------------------------------------------
if not isnull( THIS.Extensionhandler )
    *-----------------------------------
    * Fixed for SP1: Only invoke the method
    * if it is defined:
    *-----------------------------------
    if pemstatus( THIS.ExtensionHandler, "AddBarsToMenu", 5 )
        #IF DEBUG_METHOD_LOGGING
            debugout space(program(-1)) + " frxPreviewForm.ExtensionHandler::AddBarsToMenu()"
        #ENDIF
        *---------------------------------------------
        * The form is available in commands as m.oRef
        *---------------------------------------------
        THIS.ExtensionHandler.AddBarsToMenu( m.cShortcut, 15 )
    endif
endif
*----------------------------------------------
* Fix in SP3
* See previewForm.MouseUp for code that respects this:
*----------------------------------------------
THIS.IgnoreMouseClickInMagnifyCode = .T.
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + " activating popup " + m.cShortcut
#ENDIF
*------------------------------------------------------
* Display the menu:
*------------------------------------------------------
activate popup (m.cShortcut)
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + " releasing popup"
#ENDIF
*------------------------------------------------------
*  Cleanup:
*------------------------------------------------------
release popup (m.cShortcut)
release popup (m.cPages)
release popup (m.cZoom)
THIS.AllowOutput = .F.
ENDPROC
PROCEDURE renderpage
*---------------------------------------------------------
* .RenderPage()
* New in SP2: Support for Image canvas classes.
*---------------------------------------------------------
lparameters iPage, oCanvas
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::RenderPage("+ trans( m.iPage ) + ")"
#ENDIF
if between( m.iPage, 1, THIS.oReport.OutputPageCount )
        if m.oCanvas.BaseClass = "Image" and m.oCanvas.Visible = .F.
            oCanvas.Visible = .T.
        endif
        THIS.oReport.OutputPage( m.iPage, m.oCanvas, 2 )
    catch to oErr
        =messagebox( RP_OUTPUTPAGE_ERROR_LOC + c_CR2 + oErr.Message, 0+16, DEFAULT_MBOX_TITLE_LOC )
    endtry
    if oCanvas.BaseClass = "Image"
        oCanvas.Visible = .F.
    endif
endif
ENDPROC
PROCEDURE setreport
*---------------------------------------------------------------
* This method will be called by the report engine, giving the
* PreviewUI a reference to the Listener so that it can invoke
* rendering methods to render the pages. This reference will
* need to be saved in an internal property, and nulled out
* appropriately in the .Destroy() event.
*---------------------------------------------------------------
parameter toReport
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::SetReport(" + trans(m.toReport) + ")"
#ENDIF
if  not isnull( m.toReport )  and ;
    vartype( m.toReport ) = "O"
    *-----------------------------------------------
    * Change in SP2: This is no longer a constraint:
    *-----------------------------------------------
    * and toReport.BaseClass = "Reportlistener"
    *-----------------------------------
    * it's a valid Report Listener:
    *-----------------------------------
    THIS.oReport = m.toReport
    *-------------------------------
    * What report file are we running?
    *-------------------------------
    THIS.frxFilename = lower(justfname( THIS.oReport.commandclauses.file ))
    *-----------------------------------
    * Cleanup:
    *-----------------------------------
    THIS.oReport = .NULL.
    *---------------------------------------
    * Without a reportListener to communicate with,
    * We have no reason to be visible:
    *---------------------------------------
    THIS.Hide()
endif
ENDPROC
PROCEDURE showtoolbar
*---------------------------------------------------------------
* ShowToolbar() - called from .Show()
*---------------------------------------------------------------
lparameter lEnabled
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::ShowToolbar(" + trans(m.lEnabled) + ")"
#ENDIF
if m.lEnabled
    * Show the toolbar, enabled and visible
    * Enable controls on the toolbar:
    local x
    for each x in THIS.toolbar.Controls
        x.Enabled = .T.
    endfor
    THIS.synchToolbar()
    *------------------------------------------
    * Support for topforms:
    *------------------------------------------
    if THIS.ShowWindow = SHOWWINDOW_AS_TOPFORM
        * Topforms are always modeless:
        if not upper(wontop())==upper(THIS.Name)
            activate window (THIS.Name)
        endif
        activate Window (THIS.toolbar.caption) in window (this.Name)
        *------------------------------------------
        * Dock the toolbar if we're a topform:
        *------------------------------------------
        this.toolbar.dock(0)
    else
        this.toolbar.Show()
    endif
    *-----------------------------------
    * Disable controls on the toolbar:
    *-----------------------------------
    local x
    for each x in THIS.toolbar.Controls
        x.Enabled = .F.
    endfor
endif
ENDPROC
PROCEDURE synchcanvases
*---------------------------------
* SynchCanvases() -
* re-arrange the Shapes on the page to match the
* current settings:
*---------------------------------
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::SynchCanvases()"
#ENDIF
with THIS
    *-----------------------------------------------------
    * Prevent .RenderPages() from being called from within
    * the .Paint() event:
    *-----------------------------------------------------
    .SuppressRendering = .T.
    *-----------------------------------------------------
    * Use a spacer to allow the scrolling to have a
    * a border to the right and bottom of the window:
    *-----------------------------------------------------
    .Spacer.BackColor = .BackColor
    .Spacer.Width  = CANVAS_LEFT_OFFSET_PIXELS
    .Spacer.Height = CANVAS_TOP_OFFSET_PIXELS
    local iLeft, iWidth, iHeight, iZoomPercent
    iZoomPercent = THIS.getZoomPercent()
    iWidth       = int( .pageWidth  * .screenDPI * (m.iZoomPercent/100) )
    iHeight      = int( .pageHeight * .screenDPI * (m.iZoomPercent/100) )
    do case
    case THIS.ZoomLevel < alen(THIS.zoomLevels,1)-1
        *---------------------------------------------------
        * Enable scrollbars for arbitary zoom:
        *---------------------------------------------------
        if THIS.ScrollBars <> 3
            THIS.ScrollBars = 3
        endif
    case THIS.ZoomLevel = alen(THIS.ZoomLevels,1)-1
        *---------------------------------------------------
        * Turn off scrollbars for fit to page
        *---------------------------------------------------
        if THIS.ScrollBars > 0
            THIS.ScrollBars = 0
        endif
    otherwise
        *---------------------------------------------------
        * Just vertical for fit to width
        *---------------------------------------------------
        if THIS.ScrollBars <> 2
            THIS.ScrollBars = 2
        endif
    endcase
    *--------------------------------
    * Arrange the shapes on the page:
    *  [1][2]
    *  [3][4]
    *--------------------------------
    do case
    case .canvasCount = 1
        if this.Canvas1.Baseclass = "Image"
            store .T. to this.Canvas1.Visible
            store .F. to ;
                this.Canvas2.Visible,;
                this.Canvas3.Visible,;
                this.Canvas4.Visible
        endif
        if THIS.zoomLevel = alen(THIS.zoomLevels,1)
            *-------------------------------------------
            * Auto-zoom mode, center the page:
            *-------------------------------------------
            iLeft = int((.Width - m.iWidth)/2)
        else
            iLeft = CANVAS_LEFT_OFFSET_PIXELS
        endif
        .canvas1.Move(  m.iLeft, ;
                        CANVAS_TOP_OFFSET_PIXELS, ;
                        m.iWidth, m.iHeight )
        .spacer.Move( m.iLeft + m.iWidth, CANVAS_TOP_OFFSET_PIXELS + m.iHeight )
    case .canvasCount = 2
        if this.Canvas1.Baseclass = "Image"
            store .T. to ;
                this.Canvas1.Visible, ;
                this.Canvas2.Visible
            store .F. to ;
                this.Canvas3.Visible,;
                this.Canvas4.Visible
        endif
        .canvas1.Move(  CANVAS_LEFT_OFFSET_PIXELS, ;
                        CANVAS_TOP_OFFSET_PIXELS, ;
                        m.iWidth, m.iHeight )
        .canvas2.Move(  CANVAS_LEFT_OFFSET_PIXELS + m.iWidth + CANVAS_HORIZONTAL_GAP_PIXELS, ;
                        CANVAS_TOP_OFFSET_PIXELS, ;
                        m.iWidth, m.iHeight )
        .spacer.Move(     .canvas2.Left + .canvas2.Width, ;
                        .canvas2.Top + .canvas2.Height )
    case .canvasCount = 4
        if this.Canvas1.Baseclass = "Image"
            store .T. to ;
                this.Canvas1.Visible, ;
                this.Canvas2.Visible, ;
                this.Canvas3.Visible, ;
                this.Canvas4.Visible
        endif
        .canvas1.Move(  CANVAS_LEFT_OFFSET_PIXELS, ;
                        CANVAS_TOP_OFFSET_PIXELS, ;
                        m.iWidth, m.iHeight )
        .canvas2.Move(  CANVAS_LEFT_OFFSET_PIXELS + m.iWidth + CANVAS_HORIZONTAL_GAP_PIXELS, ;
                        CANVAS_TOP_OFFSET_PIXELS, ;
                        m.iWidth, m.iHeight )
        .canvas3.Move(    CANVAS_LEFT_OFFSET_PIXELS, ;
                        CANVAS_TOP_OFFSET_PIXELS + m.iHeight + CANVAS_VERTICAL_GAP_PIXELS, ;
                        m.iWidth, m.iHeight )
        .canvas4.Move(  CANVAS_LEFT_OFFSET_PIXELS + m.iWidth + CANVAS_HORIZONTAL_GAP_PIXELS, ;
                        CANVAS_TOP_OFFSET_PIXELS + m.iHeight + CANVAS_VERTICAL_GAP_PIXELS, ;
                        m.iWidth, m.iHeight )
        .spacer.Move(  .canvas4.Left + .canvas4.Width, ;
                       .canvas4.Top + .canvas4.Height )
    endcase
    .SuppressRendering = .F.
endwith
ENDPROC
PROCEDURE synchpageno
*-----------------------------------------------
* .SynchPageNo()
*-----------------------------------------------
local iCurrentPage
iCurrentPage = THIS.currentPage + THIS.startOffset
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::SynchPageNo()"
#ENDIF
*-----------------------------------
* Fix for SP2:
* Only enhance the preview window title caption
* if user has not specfied a target window:
*-----------------------------------
if empty( THIS.oReport.commandClauses.Window )
    if THIS.canvasCount > 1
        local lastPage
        lastPage  = min( m.iCurrentPage+THIS.canvasCount-1, THIS.pagetotal )
        THIS.Caption = THIS.formCaption ;
                     + REPORT_PREVIEW_PAGE_CAPTION ;
                     + transform( m.iCurrentPage ) + " - " + transform( m.lastPage )
    else
        THIS.Caption = THIS.formCaption ;
                     + REPORT_PREVIEW_PAGE_CAPTION ;
                     + transform( m.iCurrentPage )
    endif
endif
ENDPROC
PROCEDURE synchtoolbar
*----------------------------------------------------------
* .SynchToolbar()
*----------------------------------------------------------
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::SynchToolbar()"
#ENDIF
if not isnull( THIS.toolbar )
    THIS.toolbar.SynchControls()
endif
ENDPROC
PROCEDURE setcurrentpage
*----------------------------------------------------------------------
* .SetCurrentPage() -
*----------------------------------------------------------------------
lparameter iPage
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::SetCurrentPage()"
#ENDIF
if THIS.CurrentPage <> m.iPage
    if between( m.iPage, 1, THIS.oReport.OutputPageCount )
        THIS.currentPage = m.iPage
        THIS.synchPageNo()
        * Fix in SP2: Add call to RenderPages:
        THIS.RenderPages()
        THIS.SynchToolbar()
    endif
    * Fix in SP2: update the caption on the first display:
    THIS.SynchPageNo()
endif
ENDPROC
PROCEDURE actionshowinfo
*=======================================================
* ToString()
* Returns a string representation of the event properties.
*=======================================================
local cText
cText = ""
cText = m.cText + "Preview version: " + PREVIEW_VERSION + chr(13) + chr(13)
cText = m.cText + ".pageTotal   = " + transform(THIS.pageTotal)   + chr(13)
cText = m.cText + ".currentPage = " + transform(THIS.currentPage) + chr(13)
cText = m.cText + ".canvasCount = " + transform(THIS.canvasCount) + chr(13)
cText = m.cText + ".pageHeight  = " + transform(THIS.pageHeight) + chr(13)
cText = m.cText + ".pageWidth   = " + transform(THIS.pageWidth)  + chr(13)
cText = m.cText + "_PAGENO      = " + transform(_PAGENO) + chr(13) + chr(13)
cText = m.cText + "THIS.oReport.commandClauses:" + chr(13)
amembers( ac, this.oReport.commandClauses )
for each cField in ac
    cText = m.cText + "  " + m.cField+ " = " + trans(eval("THIS.oReport.commandClauses."+trim(m.cField))) + chr(13)
endfor
=messagebox(m.cText,64, DEFAULT_MBOX_TITLE_LOC )
return m.cText
ENDPROC
PROCEDURE getzoompercent
*-----------------------------------------------------------------------
* adjust this to suit THIS.zoomLevels[] array
*-----------------------------------------------------------------------
local iZoomPercent
do case
case THIS.zoomLevel < alen(THIS.zoomLevels,1)-1
    *---------------------------------------------------
    * Use a preset percentage
    *---------------------------------------------------
    iZoomPercent = THIS.zoomLevels[ THIS.zoomLevel,ZOOM_LEVEL_PERCENT]
case THIS.ZoomLevel = alen(THIS.zoomLevels,1)-1
    *---------------------------------------------------
    * Calculate zoom percent from current window size:
    * to procure a "fit to page" effect.
    * depends on:
    *   - page aspect ratio
    *   - .pageWidth   in inches
    *   - .pageHeight  in inches
    *    - .canvasCount
    *    - form aspect ratio
    *    - .Width       of form in pixels
    *   - .Height      of form in pixels
    *    CANVAS_TOP_OFFSET_PIXELS          15
    *    CANVAS_LEFT_OFFSET_PIXELS         15
    *    CANVAS_VERTICAL_GAP_PIXELS        10
    *    CANVAS_HORIZONTAL_GAP_PIXELS      10
    *
    *---------------------------------------------------
    local nPreviewFormAspectRatio, nPageAspectRatio
    local iRequiredHeight, iRequiredWidth
    nPreviewFormAspectRatio = THIS.Width/THIS.Height
    if THIS.canvasCount = 2
        * Two pages aside:
        nPageAspectRatio        = (THIS.PageWidth*2)/THIS.PageHeight
    else
        nPageAspectRatio        = THIS.PageWidth/THIS.PageHeight
    endif
    do case
    case m.nPreviewFormAspectRatio <= m.nPageAspectRatio
        * Preview Form is taller, skinnier than the pages
        * limit by page width:
        do case
        case THIS.canvasCount = 1
            iRequiredWidth = THIS.Width - (CANVAS_LEFT_OFFSET_PIXELS * 2)
            iZoomPercent =     (m.iRequiredWidth * 100)/(THIS.pageWidth  * .screenDPI)
        case THIS.canvasCount = 2
            iRequiredWidth = THIS.Width - (CANVAS_LEFT_OFFSET_PIXELS * 2) - CANVAS_HORIZONTAL_GAP_PIXELS
            iRequiredWidth = int(m.iRequiredWidth/2)
            iZoomPercent =     (m.iRequiredWidth * 100)/(THIS.pageWidth  * .screenDPI)
        case THIS.canvasCount = 4
            iRequiredWidth = THIS.Width - (CANVAS_LEFT_OFFSET_PIXELS * 2) - CANVAS_HORIZONTAL_GAP_PIXELS
            iRequiredWidth = int(m.iRequiredWidth/2)
            iZoomPercent =     (m.iRequiredWidth * 100)/(THIS.pageWidth  * .screenDPI)
        endcase
    case m.nPreviewFormAspectRatio > m.nPageAspectRatio
        * pages are taller, skinnier than preview area.
        * limit by page height:
        do case
        case THIS.canvasCount = 1
            iRequiredHeight = THIS.Height - ( CANVAS_TOP_OFFSET_PIXELS * 2 )
            iZoomPercent =     (m.iRequiredHeight * 100)/(THIS.pageHeight * .screenDPI)
        case THIS.canvasCount = 2
            iRequiredHeight = THIS.Height - ( CANVAS_TOP_OFFSET_PIXELS * 2 )
            iZoomPercent =     (m.iRequiredHeight * 100)/(THIS.pageHeight * .screenDPI)
        case THIS.canvasCount = 4
            iRequiredHeight = THIS.Height - ( CANVAS_TOP_OFFSET_PIXELS * 2 ) - CANVAS_VERTICAL_GAP_PIXELS
            iRequiredHeight = int(m.iRequiredHeight/2)
            iZoomPercent =     (m.iRequiredHeight * 100)/(THIS.pageHeight * .screenDPI)
        endcase
    endcase
otherwise
    *---------------------------------------------------
    * Calculate zoom percent from current window width:
    *---------------------------------------------------
    local iRequiredHeight, iRequiredWidth
    do case
    case THIS.canvasCount = 1
        iRequiredWidth = THIS.Width - (CANVAS_LEFT_OFFSET_PIXELS * 2)
        iZoomPercent =     (m.iRequiredWidth * 100)/(THIS.pageWidth  * .screenDPI)
    case THIS.canvasCount = 2
        iRequiredWidth = THIS.Width - (CANVAS_LEFT_OFFSET_PIXELS * 2) - CANVAS_HORIZONTAL_GAP_PIXELS
        iRequiredWidth = int(m.iRequiredWidth/2)
        iZoomPercent =     (m.iRequiredWidth * 100)/(THIS.pageWidth  * .screenDPI)
    case THIS.canvasCount = 4
        iRequiredWidth = THIS.Width - (CANVAS_LEFT_OFFSET_PIXELS * 2) - CANVAS_HORIZONTAL_GAP_PIXELS
        iRequiredWidth = int(m.iRequiredWidth/2)
        iZoomPercent =     (m.iRequiredWidth * 100)/(THIS.pageWidth  * .screenDPI)
    endcase
endcase
return m.iZoomPercent
ENDPROC
PROCEDURE renderpages
if THIS.suppressRendering
    return
endif
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::RenderPages()"
#ENDIF
local iPageToRender
iPageToRender = THIS.currentPage
do case
case THIS.canvasCount = 1
    THIS.RenderPage( m.iPageToRender,   THIS.canvas1 )
case THIS.canvasCount = 2
    THIS.RenderPage( m.iPageToRender,   THIS.canvas1 )
    THIS.RenderPage( m.iPageToRender+1, THIS.canvas2 )
case THIS.canvasCount = 4
    THIS.RenderPage( m.iPageToRender,   THIS.canvas1 )
    THIS.RenderPage( m.iPageToRender+1, THIS.canvas2 )
    THIS.RenderPage( m.iPageToRender+2, THIS.canvas3 )
    THIS.RenderPage( m.iPageToRender+3, THIS.canvas4 )
endcase
if not isnull( THIS.Extensionhandler )
    *-----------------------------------
    * New in SP2:
    *-----------------------------------
    if pemstatus( THIS.ExtensionHandler, "RenderPages", 5 )
        #IF DEBUG_METHOD_LOGGING
            debugout space(program(-1)) + " frxPreviewForm.ExtensionHandler::RenderPages()"
        #ENDIF
        THIS.ExtensionHandler.RenderPages()
    endif
endif
ENDPROC
PROCEDURE savetoresource
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::SaveToResource()"
#ENDIF
*--------------------------------------------------------------
* Turn off the cursor notification in the status bar:
*--------------------------------------------------------------
local lSetNotify, lSetNotify2, lSetTalk
lSetNotify  = (set("NOTIFY",1) = "ON")
lSetNotify2 = (set("NOTIFY")   = "ON")
lSetTalk    = (set("TALK")     = "ON")
if m.lSetNotify
    set notify cursor off
endif
if m.lSetNotify
    set notify off
endif
if m.lSetTalk
    set talk off
endif
local x, iCurrentState
x = newobject( "ResourceManager", FRXCOMMON_PRG_CLASSLIB )
iCurrentState = THIS.WindowState
if THIS.WindowState <> 0
    THIS.WindowState = 0
endif
if x.LoadResource( REPORTPREVIEW_RESOURCE_ID, upper(THIS.FrxFileName) )
    if not THIS.oReport.commandClauses.isDesignerLoaded
        x.Set("PreviewForm.Top",    THIS.Top )
        x.Set("PreviewForm.Left",   THIS.Left )
        *------------------------------------------
        * Fix for SP2:
        * form width,height does not include width
        * of scrollbars, if visible. Therefore add
        * back into saved value if applicable:
        *------------------------------------------
        if (THIS.Width < THIS.ViewPortWidth)
            * Vertical Scrollbar is visible. Add to window size:
            x.Set("PreviewForm.Width",  THIS.Width + sysmetric(5) )
        else
            x.Set("PreviewForm.Width",  THIS.Width )
        endif
        if (THIS.Height < THIS.ViewPortHeight)
            * Horizontal Scrollbar is visible. Add to window size:
            x.Set("PreviewForm.Height", THIS.Height + sysmetric(8) )
        else
            x.Set("PreviewForm.Height", THIS.Height )
        endif
        *-------------------------------------
    endif
    x.Set("PreviewForm.WindowState",      m.iCurrentState )
    x.Set("PreviewForm.ToolbarIsVisible", THIS.ToolbarIsVisible )
    x.Set("PreviewForm.CanvasCount",      THIS.CanvasCount )
    x.Set("PreviewForm.ZoomLevel",        THIS.ZoomLevel )
    if not isnull( THIS.Toolbar )
        *-------------------------------------------------------
        * Only if toolbar is available:
        *-------------------------------------------------------
        x.Set("PreviewToolbar.Top",          THIS.Toolbar.Top )
        x.Set("PreviewToolbar.Left",         THIS.Toolbar.Left )
        x.Set("PreviewToolbar.Width",        THIS.Toolbar.Width )
        x.Set("PreviewToolbar.Height",       THIS.Toolbar.Height )
        x.Set("PreviewToolbar.DockPosition", THIS.Toolbar.DockPosition )
    endif
    if x.SaveResource( REPORTPREVIEW_RESOURCE_ID, upper(THIS.FrxFileName) )
        * well, success. If not, well, not.
    endif
endif
*--------------------------------------------------------------
* SP2: Don't leave the windowState toggled. It interferes with
*      other windows in the application:
*--------------------------------------------------------------
if THIS.WindowState <> m.iCurrentState
    THIS.WindowState = m.iCurrentState
endif
release x
*--------------------------------------------------------------
* Restore SET NOTIFY CURSOR status:
*--------------------------------------------------------------
if m.lSetNotify
    set notify cursor on
endif
if m.lSetNotify2
    set notify on
endif
if m.lSetTalk
    set talk on
endif
ENDPROC
PROCEDURE restorefromresource
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::RestoreFromResource()"
#ENDIF
local x, iCurrentState, cValue
x = newobject( "ResourceManager", FRXCOMMON_PRG_CLASSLIB )
if x.LoadResource( REPORTPREVIEW_RESOURCE_ID, upper(THIS.FrxFileName) )
    cValue = x.Get("PreviewForm.Top")
    if not empty( m.cValue )
        THIS.Top = int(val(m.cValue ))
    endif
    cValue = x.Get("PreviewForm.Left")
    if not empty( m.cValue )
        THIS.Left = int(val(m.cValue ))
    endif
    cValue = x.Get("PreviewForm.Width")
    if not empty( m.cValue )
        THIS.Width = int(val(m.cValue ))
    endif
    cValue = x.Get("PreviewForm.Height")
    if not empty( m.cValue )
        THIS.Height = int(val(m.cValue ))
    endif
    if not THIS.oReport.commandClauses.IsDesignerLoaded
        cValue = x.Get("PreviewForm.WindowState")
        if not empty( m.cValue )
            THIS.WindowState = int(val(m.cValue ))
        endif
    endif
    cValue = x.Get("PreviewForm.ToolbarIsVisible")
    if not empty( m.cValue )
        THIS.ToolbarIsVisible = ( m.cValue = ".T.")
    endif
    cValue = x.Get("PreviewForm.CanvasCount")
    if not empty( m.cValue )
        THIS.CanvasCount = int(val(m.cValue ))
    endif
    cValue = x.Get("PreviewForm.ZoomLevel")
    if not empty( m.cValue )
        THIS.ZoomLevel = int(val(m.cValue ))
    endif
    cValue = x.Get("PreviewToolbar.Top")
    if not empty( m.cValue )
        THIS.toolbar.Top = int(val(m.cValue ))
    endif
    cValue = x.Get("PreviewToolbar.Left")
    if not empty( m.cValue )
        THIS.toolbar.Left = int(val(m.cValue ))
    endif
    cValue = x.Get("PreviewToolbar.Width")
    if not empty( m.cValue )
        THIS.toolbar.Width = int(val(m.cValue ))
    endif
    cValue = x.Get("PreviewToolbar.Height")
    if not empty( m.cValue )
        THIS.toolbar.Height = int(val(m.cValue ))
    endif
    cValue = x.Get("PreviewToolbar.DockPosition")
    if not empty( m.cValue )
        if between( int(val( m.cValue )), 0, 3 ) and THIS.ShowWindow <> 2
            THIS.toolbar.Dock( int(val( m.cValue )) )
        endif
    endif
endif
release x
ENDPROC
PROCEDURE getpixelsperdpi960
*-----------------------------------------------------------
* We need a conversion factor between 960dpi and pixels.
* pixels/dpi960 = THIS.Canvas1.Width/(THIS.PageWidth * 960)
*-----------------------------------------------------------
return THIS.Canvas1.Width/(THIS.PageWidth * 960)
ENDPROC
PROCEDURE createtoolbar
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::CreateToolbar()"
#ENDIF
THIS.toolbar = newobject( "frxPreviewToolbar","frxPreview.vcx")
THIS.toolbar.PreviewForm = THIS
*----------------------------------------------------
* Fixed in SP1: Extension handler .InitializeToolbar()
*----------------------------------------------------
if not isnull( THIS.Extensionhandler )
    if pemstatus( THIS.ExtensionHandler, "InitializeToolbar", 5 )
        #IF DEBUG_METHOD_LOGGING
            debugout space(program(-1)) + " frxPreviewForm.ExtensionHandler::InitializeToolbar()"
        #ENDIF
        THIS.ExtensionHandler.InitializeToolbar()
    endif
endif
*--------------------------------------------------------------
* Bug #441419 (Fixed for SP1):
*--------------------------------------------------------------
THIS.Toolbar.Refresh()
*--------------------------------------------------------------
ENDPROC
PROCEDURE extensionhandler_assign
*---------------------------------------------------
* Give the extension handler object a reference to
* the preview form. Remove the reference if we are
* nulling out the extension handler:
*---------------------------------------------------
lparameters oExtHandler
if not isnull( m.oExtHandler )
    THIS.ExtensionHandler = m.oExtHandler
    AddProperty( oExtHandler, "PreviewForm" )
    oExtHandler.PreviewForm = THIS
    if not isnull( THIS.ExtensionHandler )
        THIS.ExtensionHandler.PreviewForm = .NULL.
    endif
    THIS.ExtensionHandler = .NULL.
endif
return
ENDPROC
PROCEDURE getpixelpageoffsets
*----------------------------------------
* GetPixelPageOffset( x, y )
*----------------------------------------
lparameters x960, y960
if empty( m.x960 )
    x960 = 0
endif
if empty( m.y960 )
    y960 = 0
endif
local x, y, conversionFactor
conversionFactor = THIS.GetPixelsPerDpi960()
x                = THIS.Canvas1.Left + int(m.x960 * m.conversionFactor) && - THIS.ViewPortLeft
y                = THIS.Canvas1.Top  + int(m.y960 * m.conversionFactor) && - THIS.ViewPortTop
offset = newobject("Empty")
AddProperty( m.offset, "x", m.x )
AddProperty( m.offset, "y", m.y )
return m.offset
ENDPROC
PROCEDURE showcommandwindow
if _vfp.StartMode = 0
    *------------------------------------------------
    * un-hide the command window, if we hid it
    *------------------------------------------------
    if this.hidCommandWindow and not wvisible("Command")
        show window command
    endif
endif
ENDPROC
PROCEDURE hidecommandwindow
if _vfp.StartMode = 0
    if wvisible("Command")
        hide Window command
        THIS.hidCommandWindow = .T.
    else
        THIS.hidCommandWindow = .F.
    endif
endif
ENDPROC
PROCEDURE createcanvases
*=========================================
* CreateCanvases() -
* New in SP2
* Create the canvas objects
*=========================================
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::CreateCanvases()"
#ENDIF
do case
case not empty(THIS.MemberClass) and ;
     not empty(THIS.MemberClassLibrary)
    THIS.NewObject("Canvas1", THIS.MemberClass, THIS.MemberClassLibrary)
    THIS.NewObject("Canvas2", THIS.MemberClass, THIS.MemberClassLibrary)
    THIS.NewObject("Canvas3", THIS.MemberClass, THIS.MemberClassLibrary)
    THIS.NewObject("Canvas4", THIS.MemberClass, THIS.MemberClassLibrary)
case not empty(THIS.MemberClass)
    THIS.NewObject("Canvas1", THIS.MemberClass)
    THIS.NewObject("Canvas2", THIS.MemberClass)
    THIS.NewObject("Canvas3", THIS.MemberClass)
    THIS.NewObject("Canvas4", THIS.MemberClass)
otherwise
    THIS.NewObject("Canvas1", "ShapeCanvas", THIS.ClassLibrary )
    THIS.NewObject("Canvas2", "ShapeCanvas", THIS.ClassLibrary )
    THIS.NewObject("Canvas3", "ShapeCanvas", THIS.ClassLibrary )
    THIS.NewObject("Canvas4", "ShapeCanvas", THIS.ClassLibrary )
endcase
store .F. to ;
    THIS.Canvas1.Visible, ;
    THIS.Canvas2.Visible, ;
    THIS.Canvas3.Visible, ;
    THIS.Canvas4.Visible
*----------------------------------------------------
* New in SP2:
*----------------------------------------------------
if not isnull( THIS.Extensionhandler )
    if pemstatus( THIS.ExtensionHandler, "CreateCanvases", 5 )
        #IF DEBUG_METHOD_LOGGING
            debugout space(program(-1)) + " frxPreviewForm.ExtensionHandler::CreateCanvases()"
        #ENDIF
        THIS.ExtensionHandler.CreateCanvases()
    endif
endif
return
ENDPROC
PROCEDURE canvascount_assign
*----------------------------------------------
* CanvasCount_Assign()
*----------------------------------------------
lparameter iCanvasCount
if iCanvasCount <> THIS.CanvasCount
    if type("THIS.Canvas1")="O"
        if THIS.Canvas1.BaseClass <> "Shape"
            *----------------------------------------------
            * Set the canvas visibility:
            *----------------------------------------------
            do case
            case m.iCanvasCount = 1
                store .F. to ;
                    THIS.Canvas2.Visible, ;
                    THIS.Canvas3.Visible, ;
                    THIS.Canvas4.Visible

            case m.iCanvasCount = 2
                store .T. to ;
                    THIS.Canvas2.Visible
                store .F. to ;
                    THIS.Canvas3.Visible, ;
                    THIS.Canvas4.Visible
            case m.iCanvasCount = 4
                store .T. to ;
                    THIS.Canvas2.Visible, ;
                    THIS.Canvas3.Visible, ;
                    THIS.Canvas4.Visible
            endcase
        endif
    endif
endif
THIS.CanvasCount = m.iCanvasCount
ENDPROC
PROCEDURE setzoomlevel
*-----------------------------------------------------
* SetZoomLevel()
* new in SP2
*-----------------------------------------------------
lparameter iZoomLevel
iZoomLevel = min( alen(THIS.zoomLevels,1), max( 1, m.iZoomLevel ))
if THIS.zoomLevel <> m.iZoomLevel
    THIS.zoomLevel = m.iZoomLevel
    THIS.SetViewPort( 0, 0 )
    local iPagesAllowed
    iPagesAllowed = THIS.zoomLevels[ m.iZoomLevel, ZOOM_LEVEL_CANVAS]
    if THIS.canvasCount > m.iPagesAllowed
        * Reduce the canvas count at high levels of zoom:
        THIS.canvasCount = m.iPagesAllowed
    endif
    THIS.TempStopRepaint = .T.
    THIS.Cls()
    THIS.SetViewPort(0,0)
    THIS.synchCanvases()
    THIS.RenderPages()
    THIS.synchPageNo()
    THIS.synchToolbar()
    * Fix the scrollbar refresh problem:
    THIS.Scrollbars = 0
    THIS.ScrollBars = 3
endif
ENDPROC
PROCEDURE setcanvascount
*-----------------------------------------------------
* SetCanvasCount()
* new in SP2
*-----------------------------------------------------
lparameter iCount
iCount = min(4, max(1, m.iCount ))
if iCount = 3
    iCount = 2
endif
if THIS.canvasCount <> m.iCount
    THIS.SuppressRendering = .T.
    *------------------------------------------------
    * Only clear the form if there are potentially
    * extra canvas images that need to be erased:
    *------------------------------------------------
    if THIS.CanvasCount > m.iCount
        THIS.Cls()
    endif
    THIS.canvasCount = m.iCount
    THIS.SetViewPort(0,0)
    THIS.synchCanvases()
    THIS.SuppressRendering = .F.
    THIS.RenderPages()
    THIS.synchPageNo()
    THIS.synchToolbar()
endif
ENDPROC
PROCEDURE MouseUp
lparameters iButton, nShift, nXCoord, nYCoord
*--------------------------------------------------
* ENH for SP2:
* Allow magnify when clicking on page
* See Toolbar.zoomCombo.interactiveChange() for code
* that sets this flag:
*--------------------------------------------------
if not this.IgnoreMouseClickInMagnifyCode
    do case
    case m.iButton <> 1
        *--------------------------------------------------
        * Wasn't a left click so do nothing:
        *--------------------------------------------------
    case m.nXCoord > (CANVAS_LEFT_OFFSET_PIXELS + THIS.Canvas1.Width)    ;
      or m.nYCoord > (CANVAS_TOP_OFFSET_PIXELS + THIS.Canvas1.Height)
        *--------------------------------------------------
        * CLicked outside the page so do nothing:
        *--------------------------------------------------
    case (THIS.ZoomLevel >= alen(THIS.zoomLevels,1)-1) ;
      or (THIS.ZoomLevel < 5)
        *--------------------------------------------------
        * The current zoom level is "Whole page"
        * or less than 100%, so go to 100% and set view port
        * to be oriented on the clicked portion of the page:
        *--------------------------------------------------
        ClickXOffsetPercent = (nXCoord - CANVAS_LEFT_OFFSET_PIXELS)/THIS.Canvas1.Width
        ClickYOffsetPercent = (nYCoord - CANVAS_TOP_OFFSET_PIXELS)/THIS.Canvas1.Height
        THIS.ActionSetZoom( 5 )
        * Do we need to center the offset point?
        NewViewPortX = (THIS.Canvas1.Width*ClickXOffsetPercent) - THIS.Width/2 - CANVAS_LEFT_OFFSET_PIXELS
        NewViewPortY = (THIS.Canvas1.Height*ClickYOffsetPercent) - THIS.Height/2 - CANVAS_TOP_OFFSET_PIXELS
        THIS.SetViewPort( max(NewViewPortX,0), max(NewViewPortY,0) )
    otherwise
        *--------------------------------------------------
        * The current zoom level is not "Whole page" so
        * go to "Whole page" zoom:
        *--------------------------------------------------
        THIS.ActionSetZoom( alen(THIS.zoomLevels,1)-1 )
    endcase
    THIS.MouseFlag = .F.
    THIS.IgnoreMouseClickInMagnifyCode = .F.
endif
ENDPROC
PROCEDURE Hide
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::Hide()"
#ENDIF
if not isnull( THIS.toolbar )
    * Hide the toolbar:
    THIS.Toolbar.Hide()
    THIS.ToolbarIsVisible = .F.
endif
ENDPROC
PROCEDURE Activate
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::Activate()"
#ENDIF
*---------------------------------------------------------------
* Ensure the toolbar is visible
*---------------------------------------------------------------
if THIS.ToolbarIsVisible
    THIS.ShowToolbar(.T.)
endif
*---------------------------------------------------------------
* Fix for SP2: Ensure the scrollbars are respected
* by SynchCanvases()
*---------------------------------------------------------------
THIS.Resize()
ENDPROC
PROCEDURE Deactivate
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::Deactivate()"
#ENDIF
*---------------------------------------------------------------
* Deactivate()
*---------------------------------------------------------------
if THIS.ToolbarIsVisible
    THIS.Toolbar.Show()
*    THIS.ShowToolBar(.F.)
endif
ENDPROC
PROCEDURE Destroy
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::Destroy()"
#ENDIF
*---------------------------------------------------------------
* New in SP2:
*---------------------------------------------------------------
if not isnull( THIS.Extensionhandler )
    *-----------------------------------
    * New in SP2:
    *-----------------------------------
    if pemstatus( THIS.ExtensionHandler, "Destroy", 5 )
        #IF DEBUG_METHOD_LOGGING
            debugout space(program(-1)) + " frxPreviewForm.ExtensionHandler::Destroy()"
        #ENDIF
        THIS.ExtensionHandler.Destroy()
    endif
endif
*---------------------------------------------------------------
* Get rid of that toolbar:
*---------------------------------------------------------------
if not isnull( THIS.toolbar )
    THIS.toolbar.PreviewForm = null
    THIS.toolbar = null
endif
THIS.oReport = null
dodefault()
ENDPROC
PROCEDURE Init
*---------------------------------------------------------------
* Init()
*---------------------------------------------------------------
dodefault()
*----------------------------------
* Build zoom level array:
*  Menu Prompt
*  percentage zoom
*  no. of pages to display
*----------------------------------
dimension THIS.zoomLevels[11,3]
*---------------------------------------------------
* Prompt
*---------------------------------------------------
THIS.zoomLevels[ 1,ZOOM_LEVEL_PROMPT] = ZOOM_LEVEL_PROMPT_10_LOC
THIS.zoomLevels[ 2,ZOOM_LEVEL_PROMPT] = ZOOM_LEVEL_PROMPT_25_LOC
THIS.zoomLevels[ 3,ZOOM_LEVEL_PROMPT] = ZOOM_LEVEL_PROMPT_50_LOC
THIS.zoomLevels[ 4,ZOOM_LEVEL_PROMPT] = ZOOM_LEVEL_PROMPT_75_LOC
THIS.zoomLevels[ 5,ZOOM_LEVEL_PROMPT] = ZOOM_LEVEL_PROMPT_100_LOC
THIS.zoomLevels[ 6,ZOOM_LEVEL_PROMPT] = ZOOM_LEVEL_PROMPT_150_LOC
THIS.zoomLevels[ 7,ZOOM_LEVEL_PROMPT] = ZOOM_LEVEL_PROMPT_200_LOC
THIS.zoomLevels[ 8,ZOOM_LEVEL_PROMPT] = ZOOM_LEVEL_PROMPT_300_LOC
THIS.zoomLevels[ 9,ZOOM_LEVEL_PROMPT] = ZOOM_LEVEL_PROMPT_500_LOC
THIS.zoomLevels[10,ZOOM_LEVEL_PROMPT] = ZOOM_LEVEL_PROMPT_WHOLE_PAGE_LOC
THIS.ZoomLevels[11,ZOOM_LEVEL_PROMPT] = ZOOM_LEVEL_PROMPT_FIT_WIDTH_LOC
*---------------------------------------------------
* Percentage zoom:
*---------------------------------------------------
THIS.zoomLevels[ 1,ZOOM_LEVEL_PERCENT] =   10
THIS.zoomLevels[ 2,ZOOM_LEVEL_PERCENT] =   25
THIS.zoomLevels[ 3,ZOOM_LEVEL_PERCENT] =   50
THIS.zoomLevels[ 4,ZOOM_LEVEL_PERCENT] =   75
THIS.zoomLevels[ 5,ZOOM_LEVEL_PERCENT] =  100
THIS.zoomLevels[ 6,ZOOM_LEVEL_PERCENT] =  150
THIS.zoomLevels[ 7,ZOOM_LEVEL_PERCENT] =  200
THIS.zoomLevels[ 8,ZOOM_LEVEL_PERCENT] =  300
THIS.zoomLevels[ 9,ZOOM_LEVEL_PERCENT] =  500
THIS.zoomLevels[10,ZOOM_LEVEL_PERCENT] =   -1
THIS.zoomLevels[11,ZOOM_LEVEL_PERCENT] =   -2
*---------------------------------------------------
* Set how many pages can be viewed at once
* depending on zoom level.
* These may need tuning for memory:
*---------------------------------------------------
THIS.zoomLevels[ 1,ZOOM_LEVEL_CANVAS] =    4
THIS.zoomLevels[ 2,ZOOM_LEVEL_CANVAS] =    4
THIS.zoomLevels[ 3,ZOOM_LEVEL_CANVAS] =    4
THIS.zoomLevels[ 4,ZOOM_LEVEL_CANVAS] =    4
THIS.zoomLevels[ 5,ZOOM_LEVEL_CANVAS] =    4
THIS.zoomLevels[ 6,ZOOM_LEVEL_CANVAS] =    2
THIS.zoomLevels[ 7,ZOOM_LEVEL_CANVAS] =    1
THIS.zoomLevels[ 8,ZOOM_LEVEL_CANVAS] =    1
THIS.zoomLevels[ 9,ZOOM_LEVEL_CANVAS] =    1
THIS.zoomLevels[10,ZOOM_LEVEL_CANVAS] =    1
THIS.zoomLevels[11,ZOOM_LEVEL_CANVAS] =    1
*------------------------------------------
* Create the toolbar and ensure the toolbar
* has a reference to the main form:
* SP1: See .Show() for extra extension handler call
*------------------------------------------
THIS.CreateToolbar()
*------------------------------------------
* prevent too small windows
*------------------------------------------
THIS.MinWidth  = CANVAS_LEFT_OFFSET_PIXELS * 5
THIS.MinHeight = CANVAS_TOP_OFFSET_PIXELS * 5
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::KeyPress(" + trans(m.nKeyCode) + ", " + trans(m.nShiftAltCtrl) + ")"
#ENDIF
#define JOG_PIXELS    50
local lHandledKeypress, iPagesAllowed
iPagesAllowed = THIS.zoomLevels[ THIS.zoomLevel, ZOOM_LEVEL_CANVAS ]
if not isnull( THIS.Extensionhandler )
    *-----------------------------------
    * Fixed for SP1: Only invoke the method
    * if it is defined:
    *-----------------------------------
    if pemstatus( THIS.ExtensionHandler, "HandledKeyPress", 5 )
        #IF DEBUG_METHOD_LOGGING
            debugout space(program(-1)) + " frxPreviewForm.ExtensionHandler::HandledKeyPress()"
        #ENDIF
        if THIS.ExtensionHandler.handledKeypress( m.nKeyCode, m.nShiftAltCtrl )
            return
        endif
    endif
endif
*------------------------------------------------------------
* This will be set false if none of the explicit tests below
* deal with the keypress. See the dodefault() call at the
* end of the CASE statement.
*------------------------------------------------------------
lHandledKeypress = .T.
do case
case m.nShiftAltCtrl = 2
    *----------------------
    * CONTROL - ?
    *----------------------
    do case
    case m.nKeyCode = 23    && CTRL-W
        *--------------------------------------------------
        * Support Ctrl-W to close window
        *--------------------------------------------------
        THIS.ActionClose()
    otherwise
        lHandledKeyPress = .F.
    endcase
case m.nShiftAltCtrl = 1
    *----------------------
    * SHIFT - ?
    *----------------------
    do case
    case m.nKeyCode = 93    && SHIFT-F10
        *--------------------------------------------------
        * Shift-F10 is the code for the windows context menu
        *--------------------------------------------------
        THIS.InvokeContextMenu(.T.)
    case m.nKeyCode = 90    && Z - Zoom in-and-out of the page
        if THIS.ZoomLevel >= alen(THIS.zoomLevels,1)-1
            *--------------------------------------------------
            * The current zoom level is "Whole page" so
            * go to 100%
            *--------------------------------------------------
            THIS.ActionSetZoom( 5 )
        else
            *--------------------------------------------------
            * The current zoom level is not "Whole page" so
            * go to "Whole page" zoom:
            *--------------------------------------------------
            THIS.ActionSetZoom( alen(THIS.zoomLevels,1) )
        endif
    case m.nKeyCode = 76    && L - Toggle between various zoom levels
        *--------------------------------------------------
        * The L key reduces/cycles the zoom level
        *--------------------------------------------------
        local z
        z = THIS.zoomLevel - 1
        if m.z = 0
            m.z = alen(THIS.zoomLevels,1)-2
        endif
        THIS.actionSetZoom(m.z)
    case m.nKeyCode = 71    && G - Go To Page
        THIS.ActionGoToPage()
    otherwise
        lHandledKeyPress = .F.
    endcase
case m.nShiftAltCtrl = 0
    *-----------------------------------------------------------------------------------------
    *   Key bindings in the orginal preview window:
    *-----------------------------------------------------------------------------------------
    *    ESC            27        Closes Print Preview window.
    *    RIGHTARROW     4        Scrolls to the right of the page in the Print Preview window.
    *    LEFTARROW    19        Scrolls to the left of the page in the Print Preview window.
    *    UPARROW        5        Scrolls towards the top of the page in the Print Preview window.
    *    DOWNARROW     24        Scrolls towards the bottom of the page in the Print Preview window.
    *    PAGEUP         18        Moves to the previous page in the Print Preview window.
    *    PAGEDOWN     3        Moves to the next page in the Print Preview window.
    *    HOME        1        Moves to the first page in the Print Preview window.
    *    END         6        Moves to the last page in the Print Preview window.
    *    Z             122,90    Zooms in and out of the page.
    *    L            108,76    Toggles between various zoom levels.
    *    G            103,71    Opens Goto page dialog box.
    *-----------------------------------------------------------------------------------------
    do case
    case m.nKeyCode = 27    && ESC
        *--------------------------------------------------
        * Support ESC to close window
        *--------------------------------------------------
        THIS.ActionClose()
    case m.nKeyCode = 4        && Right
        THIS.SetViewPort( THIS.ViewPortLeft+JOG_PIXELS, THIS.ViewPortTop )
    case m.nKeyCode = 19    && Left
        THIS.SetViewPort( max(THIS.ViewPortLeft-JOG_PIXELS,0), THIS.ViewPortTop )
    case m.nKeyCode = 5        && Up
        THIS.SetViewPort( THIS.ViewPortLeft, max(THIS.ViewPortTop-JOG_PIXELS,0) )
    case m.nKeyCode = 24    && Down
        THIS.SetViewPort( THIS.ViewPortLeft, THIS.ViewPortTop+JOG_PIXELS )
    case m.nKeyCode = 18    && PageUp
        THIS.actionGoPrev()
    case m.nKeyCode = 3        && PagDown
        THIS.actionGoNext()
    case m.nKeyCode = 1        && Home
        THIS.actiongofirst()
    case m.nKeyCode = 6        && End
        THIS.actiongolast()
*    case m.nKeyCode = 99    && C - Close ?
*        THIS.actionclose()
    case inlist( m.nKeyCode, 103, 71 )     && G - Go To Page
        THIS.actiongotopage()
    case inlist( m.nKeyCode, 108, 76 )    && L - zoom cycle
        *--------------------------------------------------
        * The L key reduces/cycles the zoom level
        *--------------------------------------------------
        local z
        z = THIS.zoomLevel - 1
        if m.z = 0
            m.z = alen(THIS.zoomLevels,1)-2
        endif
        THIS.actionSetZoom(m.z)
    case inlist(m.nKeyCode, 122, 90 )    && Z for Zoom toggle
        if THIS.ZoomLevel >= alen(THIS.zoomLevels,1)-1
            *--------------------------------------------------
            * The current zoom level is "Whole page" so
            * go to 100%
            *--------------------------------------------------
            THIS.ActionSetZoom( 5 )
        else
            *--------------------------------------------------
            * The current zoom level is not "Whole page" so
            * go to "Whole page" zoom:
            *--------------------------------------------------
            THIS.ActionSetZoom( alen(THIS.zoomLevels,1)-1 )
        endif
    case m.nKeyCode = 49    && 1 page
        THIS.actionSetCanvasCount(1)
    case m.nKeyCode = 50    && 2 pages
        *------------------------------------------------------
        * Fix for SP1:
        * Disable two-page view for high zoom levels
        *------------------------------------------------------
        if m.iPagesAllowed > 1
            THIS.actionSetCanvasCount(2)
        endif
    case m.nKeyCode = 52    && 4 pages
        *------------------------------------------------------
        * Fix for SP1:
        * Disable 4-page view for high zoom levels
        *------------------------------------------------------
        if m.iPagesAllowed > 2
            THIS.actionSetCanvasCount(4)
        endif
    otherwise
        lHandledKeyPress = .F.
    endcase
endcase
if not m.lHandledKeyPress
    #IF DEBUG_METHOD_LOGGING
        debugout space(program(-1)) + " frxBaseForm::KeyPress(" + trans(m.nKeyCode) + ", " + trans(m.nShiftAltCtrl) + ")"
    #ENDIF
    dodefault( m.nKeyCode, m.nShiftAltCtrl )
endif
ENDPROC
PROCEDURE Paint
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::Paint()"
#ENDIF
*-----------------------------------
* This is a kludge to prevent
* the extra repaint we see when we
* change zoom levels:
*-----------------------------------
if THIS.TempStopRepaint = .T.
    THIS.TempStopRepaint = .F.
    return
endif
*-----------------------------------
* New in SP2:
* Image controls do not need successive
* repaints during the Paint() event:
*-----------------------------------
if THIS.Canvas1.BaseClass <> "Image"
    THIS.RenderPages()
endif
*-----------------------------------
* See if the ExtensionHandler
* wants to draw anything:
*-----------------------------------
if not isnull( THIS.Extensionhandler )
    *-----------------------------------------------------------
    * Fixed for SP1: Only invoke the method if it is defined:
    * Noted for SP2: Deprecated in favor of .RenderPages()
    *-----------------------------------------------------------
    if pemstatus( THIS.ExtensionHandler, "Paint", 5 )
        #IF DEBUG_METHOD_LOGGING
            debugout space(program(-1)) + " frxPreviewForm.ExtensionHandler::Paint()"
        #ENDIF
        THIS.ExtensionHandler.Paint()
    endif
endif
doevents
ENDPROC
PROCEDURE QueryUnload
dodefault()
THIS.Release()
ENDPROC
PROCEDURE Release
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::Release()"
#ENDIF
*------------------------------------------------
* Clear the report listener's reference to this form:
*------------------------------------------------
if not isnull( THIS.oReport )
    *-----------------------------------
    * Check with the extension handler:
    *-----------------------------------
    if not isnull( THIS.Extensionhandler )
        *-----------------------------------
        * Fixed for SP1: Only invoke the method
        * if it is defined:
        *-----------------------------------
        if pemstatus( THIS.ExtensionHandler, "Release", 5 )
            #IF DEBUG_METHOD_LOGGING
                debugout space(program(-1)) + " frxPreviewForm.ExtensionHandler::Release()"
            #ENDIF
            if THIS.ExtensionHandler.Release()
                *----------------------------------------------
                * Clear out the reference. The assign method
                * will also clear out the back ref to the form:
                *----------------------------------------------
                * THIS.ExtensionHandler = null
            else
                *----------------------------------------------
                * The extension handler has indicated that it
                * does not want to release. So don't:
                *----------------------------------------------
                NODEFAULT
                return
            endif
        endif
    endif
    THIS.SaveToResource()
    if version(4) > "09.00.0000.1800"
        *-------------------------------------------
        * Set the "Current page" value for the Print... dialog
        *-------------------------------------------
        THIS.oReport.commandClauses.printPageCurrent = THIS.currentPage
    endif
    *-------------------------------------------
    * Indicate that we are closing to the listener/engine:
    *-------------------------------------------
    THIS.oReport.onPreviewClose( THIS.PrintOnExit )
    *-------------------------------------------
    * Clear out the reference to the report
    *-------------------------------------------
    THIS.oReport = .null.
endif
*------------------------------------------------
* Show the Command window if we previously hid it:
*------------------------------------------------
THIS.ShowCommandWindow()
*------------------------------------------------
* This is needed for .TopForm=.T.
*------------------------------------------------
THIS.Hide()
ENDPROC
PROCEDURE Resize
*------------------------------------------------------------------
* If in "Zoom Page to fit" mode:
*------------------------------------------------------------------
if THIS.zoomlevel >= alen(THIS.zoomLevels,1)-1
    THIS.synchCanvases()
endif
ENDPROC
PROCEDURE RightClick
THIS.invokeContextMenu()
ENDPROC
PROCEDURE Show
*---------------------------------------------------------------
* The Report engine / Listener object can be assigned a preview
* surface instance in advance of rendering a report, so it will
* need to invoke .Show() when it is ready for the user to interact
* with the Preview UI.
*---------------------------------------------------------------
lparameter iStyle
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::Show(" + trans(m.iStyle) + ")"
#ENDIF
if parameters() = 0
    iStyle = WINDOWTYPE_MODELESS
endif
*----------------------------------------------------
* Fixed in SP1: Extension handler .InitializeToolbar()
* Additional call. THIS.CreateToolbar() was called in
* the .Init(), before the extension handler could be
* assigned. Now that it is possibly available, we
* need to re-invoke its CreateToolbar() hook:
*----------------------------------------------------
if not isnull( THIS.Extensionhandler )
    if pemstatus( THIS.ExtensionHandler, "InitializeToolbar", 5 )
        #IF DEBUG_METHOD_LOGGING
            debugout space(program(-1)) + " frxPreviewForm.ExtensionHandler::InitializeToolbar()"
        #ENDIF
        THIS.ExtensionHandler.InitializeToolbar()
    endif
endif
*-------------------------------
* How many pages?
*-------------------------------
THIS.PageTotal   = THIS.oReport.OutputPageCount
*-------------------------------
* a RANGE x,y clause can cause 0 pages rendered
*-------------------------------
if THIS.PageTotal < 1
    =messagebox(RP_NO_OUTPUT_PAGES_LOC ,64,DEFAULT_MBOX_TITLE_LOC)
    nodefault
    return
endif
THIS.startOffset = 0
THIS.canvasCount = min( THIS.canvasCount, THIS.PageTotal)
*-------------------------------
* Should we be modal?
*-------------------------------
THIS.IsNoWait = not (m.iStyle = WINDOWTYPE_MODAL)
*-----------------------------------
* Set and save the current form caption for later
* (See THIS.synchPageNo())
*-----------------------------------
if empty( THIS.Caption )
    THIS.Caption = REPORT_PREVIEW_CAPTION
endif
*-----------------------------------
* Fix for SP2:
* Only enhance the preview window title caption
* if user has not specfied a target window:
*-----------------------------------
do case
case THIS.oReport.commandClauses.IsDesignerLoaded
    * Caption includes file name already:
    THIS.Caption = proper(THIS.Caption)
case not empty( THIS.oReport.commandClauses.Window )
    * The caption has been specified via the WINDOW clause,
    * so don't change it:
otherwise
    if not empty( THIS.oReport.PrintJobName)
        THIS.Caption = THIS.Caption + " - " + THIS.oReport.PrintJobName
    else
        THIS.Caption = THIS.Caption + " - " + THIS.frxFilename
    endif
endcase
THIS.formCaption     = THIS.Caption
*-----------------------------------
* Update the form caption with the current page:
*-----------------------------------
THIS.setCurrentPage(THIS.currentPage)
*-----------------------------------
* Activate the extension handler:
*-----------------------------------
if not isnull( THIS.Extensionhandler )
    *-----------------------------------
    * Fixed for SP1: Only invoke the method
    * if it is defined:
    *-----------------------------------
    if pemstatus( THIS.ExtensionHandler, "Show", 5 )
        #IF DEBUG_METHOD_LOGGING
            debugout space(program(-1)) + " frxPreviewForm.ExtensionHandler::Show(" + trans(m.iStyle) + ")"
        #ENDIF
        THIS.ExtensionHandler.Show( m.iStyle )
    endif
endif
*----------------------------------------------
* Fix for versions earlier than SP1: Bug# 475109
*----------------------------------------------
if version(4) < "09.00.0000.3301"
    if not THIS.IsNoWait and ;
       THIS.ShowWindow = SHOWWINDOW_IN_TOPFORM and ;
       not empty(wparent(THIS.Name))
        * if we are modal and inside a topform app,
        * the toolbar will be unavailable, so don't
        * show it:
        THIS.ToolbarIsVisible = .F.
    endif
endif
*-----------------------------------
* Update the toolbar, if necessary:
*-----------------------------------
THIS.Toolbar.Refresh()
if THIS.ToolbarIsVisible
    THIS.showToolbar(SHOW_TOOLBAR_ENABLED)
endif
*----------------------------------
* Obtain page dimensions:
*----------------------------------
local iWidth, iHeight
iWidth  = THIS.oreport.getPageWidth()
iHeight = THIS.oReport.getPageHeight()
THIS.PageWidth  = m.iWidth/960
THIS.PageHeight = m.iHeight/960
*----------------------------------
* New in SP2:
* Create the canvas objects:
* Canvas1... Canvas4
*----------------------------------
THIS.CreateCanvases()
*----------------------------------
* Adjust the canvases to suit:
*----------------------------------
THIS.SynchCanvases()
*-----------------------------------
* If modal, no minimise button, and hide the command window:
*-----------------------------------
if not THIS.IsNoWait && m.iStyle = 1
    THIS.MinButton = .F.
    *------------------------------------------------
    * Hide the command window, if not NOWAIT
    *------------------------------------------------
    THIS.HideCommandWindow()
endif
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + " frxBaseForm::Show(" + trans(m.iStyle) + ")"
#ENDIF
*-----------------------------------------------
* New in SP2:
* Ensure pages are drawn once manually up front:
*-----------------------------------------------
THIS.RenderPages()
*-----------------------------------
* Support the IN WINDOW clause:
*-----------------------------------
if not empty( THIS.oReport.commandClauses.InWindow )
    activate window (THIS.oReport.commandClauses.InWindow)
    activate window (THIS.Name) ;
        in window (THIS.oReport.commandClauses.InWindow)
* This does not work for modal:
*    THIS.Visible = .T.
*    NODEFAULT
    dodefault(m.iStyle)
    dodefault(m.iStyle)
endif
ENDPROC
PROCEDURE Cls
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewForm::Cls()"
#ENDIF
ENDPROC
PROCEDURE Error
*===========================================
* Error( )
*===========================================
lparameters iError, cMethod, iLine
if not isnull( THIS.Extensionhandler )
    *-----------------------------------
    * ENH for SP2:
    *-----------------------------------
    if pemstatus( THIS.ExtensionHandler, "HandledError", 5 )
        #IF DEBUG_METHOD_LOGGING
            debugout space(program(-1)) + " frxPreviewForm.ExtensionHandler::HandledError()"
        #ENDIF
        if THIS.ExtensionHandler.handledError( m.iError, m.cMethod, m.iLine )
            return
        endif
    endif
endif
dodefault( m.iError, m.cMethod, m.iLine )
ENDPROC
Top = 16
Left = 8
Height = 367
Width = 580
ShowWindow = 1
ScrollBars = 3
DoCreate = .T.
AutoCenter = .F.
Caption = ""
KeyPreview = .T.
BackColor = 128,128,128
AllowOutput = .F.
canvascount = 1
canvasheight = 10
canvaswidth = 10
currentpage = 1
frxfilename = ("")
lastpainted = 0
oreport = .NULL.
pageheight = 11.5
pagewidth = 8
pagetotal = 0
toolbar = .NULL.
toolbarisvisible = .T.
unitconverter = .NULL.
zoomlevel = 5
formcaption = ("")
startoffset = 0
extensionhandler = .NULL.
_memberdata =
    4790<?xml version = "1.0" encoding="Windows-1252" standalone="yes"?>
<VFPData>
<memberdata name="allowprintfrompreview"  type="Property" display="AllowPrintFromPreview"/>
<memberdata name="canvascount"  type="Property" display="CanvasCount"/>
<memberdata name="canvasheight" type="Property" display="CanvasHeight"/>
<memberdata name="canvaswidth"  type="Property" display="CanvasWidth"/>
<memberdata name="currentpage"  type="Property" display="CurrentPage"/>
<memberdata name="disabledoffscreenbmps" type="Property" display="DisabledOffscreenBmps"/>
<memberdata name="extensionhandler" type="Property" display="ExtensionHandler"/>
<memberdata name="formcaption"  type="Property" display="FormCaption"/>
<memberdata name="frxfilename"  type="Property" display="FrxFileName"/>
<memberdata name="hidcommandwindow" type="Property" display="HidCommandWindow"/>
<memberdata name="isnowait"     type="Property" display="IsNoWait"/>
<memberdata name="lastpainted"  type="Property" display="LastPainted"/>
<memberdata name="oreport"      type="Property" display="oReport"/>
<memberdata name="pageheight"   type="Property" display="PageHeight"/>
<memberdata name="pagetotal"    type="Property" display="PageTotal"/>
<memberdata name="pagewidth"    type="Property" display="PageWidth"/>
<memberdata name="printonexit"  type="Property" display="PrintOnExit"/>
<memberdata name="screendpi"    type="Property" display="ScreenDPI"/>
<memberdata name="startoffset"  type="Property" display="StartOffset"/>
<memberdata name="suppressrendering" type="Property" display="SuppressRendering"/>
<memberdata name="toolbar"      type="Property" display="Toolbar"/>
<memberdata name="toolbarisvisible" type="Property" display="ToolbarIsVisible"/>
<memberdata name="unitconverter" type="Property" display="UnitConverter"/>
<memberdata name="zoomlevel"    type="Property" display="ZoomLevel"/>
<memberdata name="zoomlevels"    type="Property" display="ZoomLevels"/>
<memberdata name="actionclose"    type="Method" display="ActionClose"/>
<memberdata name="actiongofirst"  type="Method" display="ActionGoFirst"/>
<memberdata name="actiongolast"   type="Method" display="ActionGoLast"/>
<memberdata name="actiongonext"   type="Method" display="ActionGoNext"/>
<memberdata name="actiongoprev"   type="Method" display="ActionGoPrev"/>
<memberdata name="actiongotopage" type="Method" display="ActionGoToPage"/>
<memberdata name="actionprint"    type="Method" display="ActionPrint"/>
<memberdata name="actionsetcanvascount" type="Method" display="ActionSetCanvasCount"/>
<memberdata name="actionsetzoom"  type="Method" display="ActionSetZoom"/>
<memberdata name="actionshowinfo" type="Method" display="ActionShowInfo"/>
<memberdata name="actiontoolbarvisibility" type="Method" display="ActionToolbarVisibility"/>
<memberdata name="createtoolbar"  type="Method" display="CreateToolbar"/>
<memberdata name="getpixelsperdpi960" type="Method" display="GetPixelsPerDpi960"/>
<memberdata name="getpixelpageoffsets" type="Method" display="GetPixelPageOffsets"/>
<memberdata name="getzoompercent" type="Method" display="GetZoomPercent"/>
<memberdata name="invokecontextmenu" type="Method" display="InvokeContextMenu"/>
<memberdata name="renderpage"     type="Method" display="RenderPage"/>
<memberdata name="renderpages"    type="Method" display="RenderPages"/>
<memberdata name="reset"          type="Method" display="Reset"/>
<memberdata name="restorefromresource" type="Method" display="RestoreFromResource"/>
<memberdata name="savetoresource" type="Method" display="SaveToResource"/>
<memberdata name="setcurrentpage" type="Method" display="SetCurrentPage"/>
<memberdata name="setzoomlevel" type="Method" display="SetZoomLevel"/>
<memberdata name="setcanvascount" type="Method" display="SetCanvasCount"/>
<memberdata name="setreport"      type="Method" display="SetReport"/>
<memberdata name="showtoolbar"    type="Method" display="ShowToolbar"/>
<memberdata name="synchcanvases"  type="Method" display="SynchCanvases"/>
<memberdata name="synchpageno"    type="Method" display="SynchPageNo"/>
<memberdata name="synchtoolbar"   type="Method" display="SynchToolbar"/>
<memberdata name="createcanvases"     type="Method"   display="CreateCanvases"/>
<memberdata name="hidecommandwindow"  type="Method"   display="HideCommandWindow"/>
<memberdata name="lastzoomlevel"      type="Property" display="LastZoomLevel"/>
<memberdata name="memberclass"        type="Property" display="MemberClass"/>
<memberdata name="memberclasslibrary" type="Property" display="MemberClassLibrary"/>
<memberdata name="showcommandwindow"  type="Method"   display="ShowCommandwindow"/>
<memberdata name="tempstoprepaint"    type="Property" display="TempStopRepaint"/>
<memberdata name="textontoolbar"      type="Property" display="TextOnToolbar"/>
</VFPData>
allowprintfrompreview = .T.
lastzoomlevel = 0
textontoolbar = .F.
tempstoprepaint = .F.
memberclass = ("")
memberclasslibrary = ("")
topform = .F.
mouseflag = .F.
ignoremouseclickinmagnifycode = .F.
screendpi = 96
Name = "frxpreviewform"
PROCEDURE previewform_assign
*------------------------------------------------------
* synch up the various controls
*------------------------------------------------------
lparameter oPreviewForm
THIS.PreviewForm = m.oPreviewForm
if not isnull( THIS.PreviewForm )
    THIS.cboZoom.Clear()
    for i = 1 to alen(THIS.PreviewForm.zoomLevels,1)
        THIS.cboZoom.AddItem( THIS.PreviewForm.zoomLevels[m.i,ZOOM_LEVEL_PROMPT], m.i )
    endfor
    THIS.cboZoom.DisplayCount = m.i
endif
ENDPROC
PROCEDURE synchcontrols
*------------------------------------------------------
* SynchControls() - ensure toolbar displays correct values
*------------------------------------------------------
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewToolbar::SynchControls()"
#ENDIF
*------------------------------------------------------
* Zoom level
*------------------------------------------------------
THIS.cboZoom.Value   = THIS.PreviewForm.zoomLevel
*------------------------------------------------------
* Disable multi-page view for high zoom levels
*------------------------------------------------------
local iPagesAllowed
iPagesAllowed = THIS.PreviewForm.zoomLevels[ THIS.PreviewForm.zoomLevel, ZOOM_LEVEL_CANVAS ]
THIS.opgPageCount.opt3.Enabled = (m.iPagesAllowed > 2)
THIS.opgPageCount.opt2.Enabled = (m.iPagesAllowed > 1)
*------------------------------------------------------
* Number of pages to display
*------------------------------------------------------
do case
case THIS.PreviewForm.canvasCount = 1
    THIS.opgPageCount.Value = 1
case THIS.PreviewForm.canvasCount = 2
    THIS.opgPageCount.Value = 2
case THIS.PreviewForm.canvasCount = 4
    THIS.opgPageCount.Value = 3
endcase
*------------------------------------------------------
* .synchControls()
*------------------------------------------------------
with THIS.PreviewForm
    *------------------------------------------------------
    * Disable the Top, Prev if we're on the first page:
    * Enable them if we are not:
    *------------------------------------------------------
    if (.currentPage > 1 )
        THIS.cntPrev.cmdTop.Enabled = .T.
        THIS.cntPrev.cmdBack.Enabled = .T.
    else
        THIS.cntPrev.cmdTop.Enabled = .F.
        THIS.cntPrev.cmdBack.Enabled = .F.
    endif
    *------------------------------------------------------
    * Disable the Next, Last if we're closer than canvasCount
    * to the last page:
    *------------------------------------------------------
    if (.currentPage + .canvasCount > .pageTotal)
        THIS.cntNext.cmdForward.Enabled = .F.
        THIS.cntNext.cmdBottom.Enabled = .F.
    else
        THIS.cntNext.cmdForward.Enabled = .T.
        THIS.cntNext.cmdBottom.Enabled = .T.
    endif
    *------------------------------------------------------
    * Disable the GoToPage button if there is only one page:
    *------------------------------------------------------
    THIS.cmdGoToPage.Enabled = .PageTotal > 1
endwith
return
ENDPROC
PROCEDURE actionzoomlevel
lparameter iZoomIndex
#IF DEBUG_METHOD_LOGGING
    debugout "frxPreviewToolbar::ActionZoomLevel()"
#ENDIF
*-----------------------------------
* Fixed for SP1: declare oForm local
*-----------------------------------
local oForm
oForm = THIS.previewForm
if oForm.ZoomLevel = m.iZoomIndex
    *----------------------------------
    * there is no action to take
    *----------------------------------
    return
endif
oForm.actionSetZoom(m.iZoomIndex )
*----------------------------------------------
* Belt & Braces mega kludge: Neither of the
* following two methods are 100% reliable in
* returning the mouse pointer to its original
* position. This way, if one doesn't work (typically
* the Win32 function call seems to be ignored, despite
* the DOEVENTS), the other will prevent it from being
* completely obvious that the mouse pointer is being
* dicked around with.
* And if you can figure out a better way of pulling the
* keyboard focus out of the zoom combolist in the toolbar,
* other than clicking on the main preview window, you're
* welcome to replace this block of code.
*----------------------------------------------
*----------------------------------------------
* Fix in SP2
* See previewForm.MouseUp for code that respects this:
*----------------------------------------------
oForm.IgnoreMouseClickInMagnifyCode = .T.
*----------------------------------------------
* Save the mouse position:
*----------------------------------------------
*----------------------------------------------
* METHOD #1: Use windows API.
* (see .Init() for declare statements)
*----------------------------------------------
cPoint = space(8)
=GetMousePointerPos( @cPoint )
mx = asc(substr(m.cPoint,1,1)) + asc(substr(m.cPoint,2,1))*256
my = asc(substr(m.cPoint,5,1)) + asc(substr(m.cPoint,6,1))*256
*----------------------------------------------
* METHOD #2: Use mrow() relative to toolbar window
*----------------------------------------------
mr  = mrow(THIS.Caption,3)
mc  = mcol(THIS.Caption,3)
*-----------------------------------------
* Fake a mouse click on the preview form
* to pull keyboard focus away from the
* Zoom level combo box on the toolbar:
*-----------------------------------------
mouse click at 1,1 window (oForm.Name)
*-----------------------------------------
* Return the mouse to its starting position:
*-----------------------------------------
*----------------------------------------------
* METHOD #2: Use mrow() relative to toolbar window
*----------------------------------------------
if m.mc < 0
    mc = THIS.cboZoom.Left + int(THIS.cboZoom.Width/2)
endif
if m.mr < 0
    mr = THIS.cboZoom.Top  + THIS.cboZoom.Height + int( fontmetric(1,THIS.cboZoom.FontName,THIS.cboZoom.FontSize)*(THIS.cboZoom.Value-0.5))
endif
mouse at m.mr, m.mc pixels window (THIS.Caption)
*-----------------------------------------
* METHOD #2: Use Windows API function.
* Note: Both DOEVENTS appear to be needed:
*-----------------------------------------
doevents
=SetMousePointerPos( m.mx, m.my )
doevents
ENDPROC
PROCEDURE getwindowref
*-----------------------------------------------------------------
* .GetWindowRef( cWindow )
* Given a window name from REPORT FORM.. WINDOW <cWindow>,
* return an object reference to the window
*-----------------------------------------------------------------
lparameter cWindow
local cTitle, oRef, oForm
cTitle = wtitle(m.cWindow)
oRef   = null
if not empty( m.cTitle )
    for each oForm in _screen.Forms
        if upper(oForm.Caption) == upper(m.cTitle) and ;
           ((oForm.Class = "Form" and oForm.Name = "") or ;
            (upper(oForm.Name) == upper(m.cWindow)))
            oRef = m.oForm
            exit
        endif
    endfor
endif
return m.oRef
ENDPROC
PROCEDURE actionpagecount
#IF DEBUG_METHOD_LOGGING
    debugout "frxPreviewToolbar::ActionPageCount()"
#ENDIF
do case
case THIS.opgPageCount.Value = 1
    THIS.previewform.actionSetCanvasCount(1)
case THIS.opgPageCount.Value = 2
    THIS.previewform.actionSetCanvasCount(2)
case THIS.opgPageCount.Value = 3
    THIS.previewform.actionSetCanvasCount(4)
endcase
ENDPROC
PROCEDURE Refresh
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewToolbar::Refresh()"
#ENDIF
if not isnull( THIS.PreviewForm )
    *--------------------------------------------------------------
    * Fixed for SP2. Should not include page number
    *--------------------------------------------------------------
    *THIS.Caption = THIS.PreviewForm.Caption
    THIS.Caption = THIS.PreviewForm.FormCaption
    *--------------------------------------------------------------
    * Fixed for SP1. Doesn't barf if button doesn't exist.
    *--------------------------------------------------------------
    if pemstatus( THIS, "cmdPrint", 5 )
        THIS.cmdPrint.Visible = THIS.PreviewForm.AllowPrintFromPreview
    endif
    if not THIS.PreviewForm.TextOnToolbar
        *--------------------------------------------------------------
        * Fixed for SP1: doesn't refer to objects specifically by name
        *--------------------------------------------------------------
        for each oControl in THIS.Controls
            THIS.SetAll("Caption","","cmd")
            THIS.SetAll("AutoSize",.T.,"cmd")
            THIS.SetAll("AutoSize",.F.,"cmd")
            THIS.SetAll("Height",22,"cmd")
        endfor
    endif
endif
ENDPROC
PROCEDURE Init
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewToolbar::Init()"
#ENDIF
THIS.Caption = TOOLBAR_CAPTION
THIS.Name    = "PreviewToolbar"
*--------------------------------
* Declare functions needed for
* mouse pointer kludge
* see ActionZoomlevel()
*--------------------------------
declare GetCursorPos ;
    in user32 ;
    as GetMousePointerPos ;
    string @cpoint
declare SetCursorPos  ;
    in user32 ;
    as SetMousePointerPos ;
    integer x, integer y
ENDPROC
PROCEDURE Destroy
#IF DEBUG_METHOD_LOGGING
    debugout space(program(-1)) + "frxPreviewToolbar::Destroy()"
#ENDIF
if not isnull( THIS.PreviewForm )
    THIS.PreviewForm.ToolbarIsVisible = .F.
endif
ENDPROC
PROCEDURE Error
*====================================================================
* Error()
* Use the ErrorHandler class to provide default error handling. Most
* objects (in frxControls.vcx anyway) will defer error handling to their
* containers, which ultimately ends up here:
*====================================================================
lparameters iError, cMethod, iLine
x = newobject("ErrorHandler","pr_frxpreview.prg")
x.Handle( iError, cMethod, iLine, THIS )
do case
case x.cancelled
    cancel
case x.suspended
    suspend
endcase
ENDPROC
CWINDOW
CTITLE
OFORM
FORMS
CAPTION
CLASS
NAME*
OFORM
HIDET
OFORM
RELEASE
EXTENSIONHANDLER
OREPORT<
TALKv
09.00.0000.2013
IsDesignerProtected-
DATASESSIONv
frxO6
TOREPORT
OREPORT
COMMANDCLAUSES
ISDESIGNERPROTECTED
ICURRSESSION
IPROTFLAGS
FRXDATASESSION
BINSTRINGTOINT
ORDER
ALLOWPRINTFROMPREVIEW
OFORM
SETREPORTE
Report Preview has not been initialized correctly. It requires a ReportListener reference.
Report Preview
TALKv
iStyleb
frxPreviewForm
frxPreviewInScreen
SCREEN
frxPreviewInScreen
frxPreviewInDesktop
frxPreviewAsTopForm
SCREEN
frxPreview
SCREEN
ISTYLE
OREPORT
LCFORMCLASS
COMMANDCLAUSES
INSCREEN
INWINDOW
WINDOW
GETWINDOWREF
DESKTOP
MACDESKTOP
TOPFORM
PREVIEWFORMCLASS
SCREEN
LREUSE
OFORM
WINDOWTYPE
CLASS
EXTENSIONHANDLER
HIDE
SETREPORT
RESTOREFROMRESOURCE
ISDESIGNERLOADED
CDESIGNERWINDOW
CPARENT
IROWPIX
ICOLPIX
WIDTH
HEIGHT
CAPTION
TEMPLATE
WINDOWSTATE
BORDERSTYLE
HALFHEIGHTCAPTION
MEMBERCLASS
MEMBERCLASSLIBRARY
CANVASCOUNT
CURRENTPAGE
ZOOMLEVEL
TOOLBARISVISIBLE
TEXTONTOOLBAR
ALLOWPRINTFROMPREVIEW
SHOWWINDOW
SHOWo
IPAGE
CURRENTPAGE
OFORM
SETCURRENTPAGE
RENDERPAGESo
ICOUNT
CANVASCOUNT
OFORM
ACTIONSETCANVASCOUNT
RENDERPAGESX
ILEVEL
THIS
ZOOMLEVEL
OFORM
ACTIONSETZOOM_
EXTENSIONHANDLER
OFORM
CBYTE
IRETURN
WIDTH
HEIGHT
LEFT*
OFORM
RELEASE
getwindowref,
hide?
release
setreport
setcurrentpagem
setcanvascount
setzoomlevel
setextensionhandlera
binstringtoint
Destroy
PROCEDURE checkforlargefonts
*====================================================================
* CheckForLargeFonts()
* This is invoked from the .Init() to set all contained objects to
* use the "large font"-safe font, "MS Shell Dlg" which maps to the
* appropriate font in Windows.
*====================================================================
*----------------------------------------------------------------
* Initial, default font setting:
*----------------------------------------------------------------
do case
case OS(3) = "6" or DEBUG_FORCE_SEGOE_UI
    THIS.SetAll("FontName","Segoe UI")
    THIS.SetAll("FontSize",9)
    THIS.SetAll("Margin",0,"txt")
    THIS.SetAll("Margin",0,"edt")
    THIS.SetAll("Margin",0,"Editbox")
    THIS.SetAll("Margin",0,"Textbox")
case OS(3) = "5"
    THIS.SetAll("FontName","MS Shell Dlg 2")
    THIS.SetAll("FontSize",8)
otherwise
    THIS.SetAll("FontName","Tahoma")
    THIS.SetAll("FontSize",8)
endcase
*----------------------------------------------------------------
* Optional Fontname override:
*----------------------------------------------------------------
if not empty(DIALOG_FONTNAME_OVERRIDE)
    THIS.SetAll("FontName", DIALOG_FONTNAME_OVERRIDE )
    THIS.FontName = DIALOG_FONTNAME_OVERRIDE
endif
*----------------------------------------------------------------
* Adjustments for "large fonts":
*----------------------------------------------------------------
do case
case DIALOG_FONTSIZE_OVERRIDE > 0
    *----------------------------------------------------------------
    * We can force the use of a specific font size:
    *----------------------------------------------------------------
    this.SetAll("FontSize", DIALOG_FONTSIZE_OVERRIDE )
    this.FontSize = DIALOG_FONTSIZE_OVERRIDE
*-----------------------
* SP1 Fix:
*-----------------------
case DEBUG_FORCE_LARGE_FONTS or ;
     (DIALOG_ADJUST_FOR_LARGE_FONTS and THIS.screenDPI >= 120)
    *----------------------------------------------------------------
    * Use a slightly larger font in 120 dpi to match the other
    * native VFP dialogs
    *----------------------------------------------------------------
    this.SetAll("FontSize", 10 )
    this.FontSize = 10
endcase
ENDPROC
PROCEDURE Error
*====================================================================
* Error()
* Use the ErrorHandler class to provide default error handling. Most
* objects (in frxControls.vcx anyway) will defer error handling to their
* containers, which ultimately ends up here:
*====================================================================
lparameters iError, cMethod, iLine
x = newobject("ErrorHandler","pr_frxpreview.prg")
x.Handle( m.iError, m.cMethod, m.iLine, THIS )
do case
case x.cancelled
    cancel
case x.suspended
    suspend
endcase
ENDPROC
PROCEDURE Init
*====================================================================
* Init()
* Make sure that if large fonts are in effect, to switch all controls
* to use a large-font-safe font.
*====================================================================
*---------------------------------
* SP1 - improve "large font" handling:
* Determine the screen DPI:
*---------------------------------
#define LOGPIXELSX 88
declare integer GetDeviceCaps in WIN32API integer HDC, integer item
declare integer GetDC         in WIN32API integer hWnd
declare integer ReleaseDC     in WIN32API integer hWnd, integer HDC
local hdc, screenDPI
hdc    = GetDC(0)
THIS.screenDPI = GetDeviceCaps( m.hdc, LOGPIXELSX )
ReleaseDC( 0, m.hdc )
*---------------------------------
* Adjust object font sizes if necessary:
*---------------------------------
this.checkForLargeFonts()
ENDPROC
frxPreview.vcx
TALKv
frxPreviewProxy
frxPreview.vcx
frxPreviewProxy
frxPreview.vcx
ROREF
FRXPREVIEW
Line
.Error()
Do you want to suspend execution?
Report Preview
 Error
Report Preview
 Error
IERROR
CMETHOD
ILINE
THIS
CANCELLED
SUSPENDED
CERRORMSG
IRETVAL
NAME
ERRORTEXT
Handle
SUSPENDED
CANCELLED
ERRORTEXT
ErrorHandler
Custom
}GO7%
CTOKEN
RETVAL
IINDEX
VALUES
VVALUE
IINDEX
IKEYCOUNT
VALUES
IPAIR
CTEXT
VALUES?
VALUESj
CTEXT
ILINECOUNT
IKEYCOUNT
CBUFF
CVALUE
ATEMP
STRIPDELIMITERS
RESOURCE
RESOURCEv
RESOURCE
TYPE+ID+PADR(NAME,24)
CURRENTWORKAREA
RESOURCEWORKAREA
PREFW
CNAME
OPENRESOURCEFILE
LOADMEMO
CURRENTWORKAREA
PREFW
PREFW
CNAME
RESOURCEWORKAREA
OPENRESOURCEFILE
LRETVAL
CDATA
GETMEMO
READONLY
CKVAL
UPDATED
CURRENTWORKAREA\
RESOURCEWORKAREA
CURRENTWORKAREA
.FontName
.FontSize
.FontBold
.FontItalic
FONTNAME
FONTSIZE
FONTBOLD
FONTITALIC[
.FontName
.FontSize
.FontBold
.FontItalic
CVALUE
FONTNAME
FONTSIZE
FONTBOLD
FONTITALIC
.Left
.Width
.Height
.WindowState
ICURRENTSTATE
WINDOWSTATE
WIDTH
HEIGHT
.Left
.Width
.Height
.WindowState
CVALUE
WIDTH
HEIGHT
WINDOWSTATE
getMemoK
reset
loadMemoY
OpenResourceFile#
LoadResource
SaveResource
Destroy0
SaveFontState
RestoreFontState
SaveWindowStateJ
RestoreWindowState
VALUES
STRIPDELIMITERSm
CURRENTWORKAREA
RESOURCEWORKAREA
NameValuePairManager
Custom
ResourceManager
NameValuePairManager
GIF89a
GdipCreateImageAttributes
gdiplus.dll
GdipSetImageAttributesColorMatrix
gdiplus.dll
GdipSetImageAttributesRemapTable
gdiplus.dll
GDIPCREATEIMAGEATTRIBUTES
GDIPLUS
GDIPHANDLE
DISPOSEIMAGEATTRIBUTES
LHIMAGEATTR
STAT!
GDIPSETIMAGEATTRIBUTESCOLORMATRIX
GDIPSETIMAGEATTRIBUTESREMAPTABLE
GDIPHANDLE
GDI+ error in CC
Error code :
Description:
Press 'Retry' to debug the application.
Error
TNSTATUS
LNOPTION
THIS
ERRORINFO
STAT.
GDIPHANDLE
DISPOSEIMAGEATTRIBUTES{
TACOLMATRIX
LCCOLORMATRIX
MAKECOLORMATRIX
STAT!
GDIPSETIMAGEATTRIBUTESCOLORMATRIX
GDIPHANDLEd
GdipSetImageAttributesGamma
GDIPLUS.dll
TNGAMMA
GDIPSETIMAGEATTRIBUTESGAMMA
GDIPLUS
GDIPHANDLE`
GdipGetImageWidth
GdiPlus.dll
GdipGetImageHeight
GdiPlus.dll
TOIMAGE
LNWIDTH
LNHEIGHT
LNNATIVEIMAGE
GETHANDLE
GDIPGETIMAGEWIDTH
GDIPLUS
GDIPGETIMAGEHEIGHT
DRAWIMAGERECTRECT
GdipGetImageGraphicsContext
GdiPlus.dll
GdipDrawImageRectRect
gdiplus.dll
GdipDeleteGraphics
GdiPlus.dll
TNIMAGE
DSTWIDTH
DSTHEIGHT
SRCWIDTH
SRCHEIGHT
LNSCRUNIT
LHGFX
LNSRCUNIT
GDIPGETIMAGEGRAPHICSCONTEXT
GDIPLUS
GDIPDRAWIMAGERECTRECT
GDIPHANDLE
GDIPDELETEGRAPHICS<
TNOLDCOLOR
TNNEWCOLOR
TNOLDALPHA
TNNEWALPHA
LNARGBOLD
LNARGBNEW
LCCOLORMAP
MAKECOLORMAP
MAKEARGB
STAT
GDIPSETIMAGEATTRIBUTESREMAPTABLE
GDIPHANDLEa
GdipDisposeImageAttributes
GdiPlus.dll
TNIMGATTRIBUTES
GDIPDISPOSEIMAGEATTRIBUTES
GDIPLUS
GDIPHANDLE
TCCOLMATR1
TCCOLMATR2
CMRESULT
F2INT2
MAKECOLORMATRIX-
TNWIDTH
TNHEIGHT
TNCOLOR
TNALPHA
LNARGB
LNRED
LNGREEN
LNBLUE
TAINTPOINTS
LCPOINTSFSEQUENCE
LCPOINTF
POINTF
TACOLMATRIX
LCCOLORMATRIX
LCMATRIX
TACOLORMAP
LCCOLORMAP
LNARGBOLD
LNARGBNEW
MAKEARGB
CHARACTER
GPBITMAP
\ffc\_gdiPlus.vcx
ENUMPIXELFORMAT
GPBITMAP
\ffc\_gdiPlus.vcx
GpBitmap
GPGRAPHICS
\ffc\_gdiPlus.vcx
GpGraphics
GdipDrawImageRectRect
gdiplus.dll
GdipCloneImage
GDIPlus.Dll
TCCLRMATRIX
TOBMP
TIFORMAT
TNBACKCOLOR
SETCOLORMATRIX
LNWIDTH
LNHEIGHT
IMAGEWIDTH
IMAGEHEIGHT
LONEWBMP
CREATE
LOGFX
CREATEFROMIMAGE
CLEAR
LNSCRUNIT
LHGFX
LNSRCUNIT
GDIPDRAWIMAGERECTRECT
GDIPLUS
STAT
GETHANDLE
GDIPHANDLE
SETHANDLE
DESTROY
LHCLONED
GDIPCLONEIMAGE
Generic Error
Invalid Parameter
Out Of Memory
Object Busy
Insufficient Buffer
Not Implemented
Win32 Error
Wrong State
Aborted
File Not Found
Value Overflow
Access Denied
Unknown Image Format
Font Family Not Found
Font Style Not Found
Not True Type Font
Unsupported Gdiplus Version
Gdiplus Not Initialized
Property Not Found
Property Not Supported
Unknown Error
TNSTATUSI
CHARACTER
GPBITMAP
\ffc\_gdiPlus.vcx
ENUMPIXELFORMAT
GPBITMAP
\ffc\_gdiPlus.vcx
GpBitmap
GPGRAPHICS
\ffc\_gdiPlus.vcx
GpGraphics
GPBITMAP
\ffc\_gdiPlus.vcx
GPGRAPHICS
\ffc\_gdiPlus.vcx
GpBitmap
GdipCloneImage
GDIPlus.Dll
GpGraphics
GdipDrawImageRectRect
gdiplus.dll
TCCLRMATRIX
TOBMP
TIFORMAT
SETCOLORMATRIX
LNWIDTH
LNHEIGHT
IMAGEWIDTH
IMAGEHEIGHT
LONEWBMP
CREATE
LOGFX
CREATEFROMIMAGE
LOCLONEDBMP
LHCLONED
GDIPCLONEIMAGE
GDIPLUS
STAT
GETHANDLE
SETHANDLE
CLEAR
LNSCRUNIT
LHGFX
LNSRCUNIT
GDIPDRAWIMAGERECTRECT
GDIPHANDLE
CHARACTER
GPBITMAP
\ffc\_gdiPlus.vcx
ENUMPIXELFORMAT
GPBITMAP
\ffc\_gdiPlus.vcx
GPGRAPHICS
\ffc\_gdiPlus.vcx
GpBitmap
GdipCloneImage
GDIPlus.Dll
GpGraphics
GdipDrawImageRectRect
gdiplus.dll
TCCLRMATRIX
TOBMP
TIFORMAT
SETCOLORMATRIX
LOCLONEDBMP
LOGFX
LHCLONED
GDIPCLONEIMAGE
GDIPLUS
STAT
GETHANDLE
SETHANDLE
CREATEFROMIMAGE
CLEAR
LNWIDTH
LNHEIGHT
IMAGEWIDTH
IMAGEHEIGHT
LNSCRUNIT
LHGFX
LNSRCUNIT
GDIPDRAWIMAGERECTRECT
GDIPHANDLE
Init,
GetHandle
stat_Assign
Destroy^
SetColorMatrix
SetGamma
ApplyImageAttributeU
DrawImageRectRectC
RemapTable
DisposeImageAttributes
MultiplyColorMatrix:
POINTF8
RECTFo
MAKEARGB
MakePointsFSequence
MakeColorMatrix
ColorMatrix
MakeColorMap
ApplyColorMatrix
ErrorInfo
__ApplyColorMatrix
ApplyColorMatrix_Orig@"
f2int2
GDIPHANDLE
GPATTRIB
CUSTOM
pr_pdfx.vcx
pr_pdfx.vct
pr_rtflistener.vcx
pr_rtflistener.vct
foxypreviewer.prg
c:\users\cesi\appdata\local\temp\
foxypreviewer.fxp
installfoxcode.prg
installfoxcode.fxp
images\
pr_top.bmp
pr_previous.bmp
pr_next.bmp
pr_bottom.bmp
pr_gotopage.bmp
pr_close.bmp
pr_print.bmp
pr_printpref.bmp
pr_save.bmp
pr_img.bmp
pr_pdf.bmp
pr_html.bmp
pr_word.bmp
pr_locate.bmp
pr_close2.bmp
libhpdf.dll
wwrite.ico
pr_mail.bmp
pr_excellistener.vcx
pr_excellistener.vct
pr_excel.bmp
_frxcursor.vcx
_frxcursor.vct
pr_top_32.bmp
pr_previous_32.bmp
pr_next_32.bmp
pr_bottom_32.bmp
pr_gotopage_32.bmp
pr_close_32.bmp
pr_print_32.bmp
pr_save_32.bmp
pr_locate_32.bmp
foxypreviewer_locs.dbf
pr_1page_32.bmp
pr_2page_32.bmp
pr_4page_32.bmp
pr_close2_32.bmp
pr_mail_32.bmp
pr_printpref_32.bmp
pr_4page.bmp
pr_1page.bmp
pr_2page.bmp
foxypreviewer_defaultsettings.dbf
pr_settings.scx
pr_settings.sct
pr_gear.bmp
pr_gear_32.bmp
pr_sendmail.scx
pr_sendmail.sct
pr_attach.bmp
_gdiplus.vcx
_gdiplus.vct
pr_search.scx
pr_search.sct
pr_search.bmp
pr_search_32.bmp
pr_searchagain.bmp
pr_searchagain_32.bmp
pr_searchback.bmp
pr_searchback_32.bmp
pr_ctl32_progressbar.vcx
pr_ctl32_progressbar.vct
pr_cpzero.prg
pr_cpzero.fxp
pr_foxyhelper.vcx
pr_foxyhelper.vct
pr_reportlistener.vcx
pr_reportlistener.vct
pr_sendmail2.scx
pr_sendmail2.sct
pr_htmledit.vcx
pr_htmledit.vct
pr_adress.bmp
pr_sendmessage.bmp
pr_align_left.bmp
pr_align_center.bmp
pr_align_right.bmp
pr_textcolor.bmp
pr_fontback.bmp
pr_textmoveright.bmp
pr_textmoveleft.bmp
pr_listdot.bmp
pr_listnumber.bmp
pr_undo.bmp
pr_hyperlink.bmp
pr_getimage.bmp
pr_redo.bmp
pr_cut.bmp
pr_copy.bmp
pr_paste.bmp
pr_new.bmp
pr_open.bmp
pr_clean.bmp
pr_align_justify.bmp
pr_adressbook.scx
pr_adressbook.sct
pr_mail03.ico
pr_rcsgridsort.vcx
pr_rcsgridsort.vct
pr_sortascending.bmp
pr_sortdescending.bmp
pr_htmllistener2.vcx
pr_htmllistener2.vct
pr_ooxml2xls.prg
pr_ooxml2xls.fxp
__readme.txt
pr_mht.bmp
_reportoutputconfig.dbf
_reportoutputconfig.fpt
_reportoutputconfig.cdx
frxcontrols.vcx
frxcontrols.vct
frxpreview.vcx
frxpreview.vct
pr_frxpreview.prg
pr_frxpreview.fxp
frxcommon.prg
frxcommon.fxp
grabber.gif
prefirst.bmp
preprev.bmp
gotopage.msk
prenext.bmp
prelast.bmp
1page.msk
2page.msk
4page.msk
preclose.bmp
preclose.msk
print.msk
preview.bmp
pr_gdiplushelper.prg
pr_gdiplushelper.fxp