Module Df_print.pkg

****************************************************************************// // $File name : DF_PRINT.PKG // $File title : WinPrint for DataFlex 3.05 and 4.x // Notice : Copyright (c) ADB-UTVECKLING AB 1996-1997, Sweden // $Author : Janne Wassberg // $System : WinPrint // Created : 96-01-30 @ 17.27.59 // $Last Rev : 97-01-11 @ 12.00.00 // // $Description This class makes it possible to use Windows printer // system and functions in DataFlex // // The DataFlex class and DLL is written by: // // ADB-UTVECKLING AB // Gustvalundsv. 153 // 167 51 Bromma // Sweden // Phone +46 (0)8 704 04 00 // Fax +46 (0)8 704 04 02 // Compuserve 100336,2407 // Internet dataflex.adbutveckling.se // // // // $Rev History // 00-05-23 JJT converted all OEMtoChar to ToAnsi // 99-04-28 1.22 // 99-03-24 1.20 // 99-02-17 SF Added PrintDlgInPreview property, selects whether clicking // the print toolbar button in the preview should display // the Print Dialog or not. (default: False) // Made changes to DFPreview accordingly. // // 98-07-29 JJT Changes to support 1.15.3 (length of Str Support) // DfWrite(ln)Pos, DfWrite(ln)PostoPage now support // optional extra parameter (maximum length) // // 97-01-11 Janne Wassberg // // Changed the implementation or errors in different languages // // // 96-12-16 JJT - Various changes for VDF4 support. // Base DF_Printer on dfBasePanel so it can be USEd on desktop. // Use window handle of Main_Window when possible. // Use integer WinPRintId for easier faster access to // global object oWinPrint. // // 96-09-03 Release of version 1.11 // // 96-07-09 Release of version 1.1 // // 96-04-26 Release of version 1.1 beta-2 // // 96-03-18 Release of version 1.0 // // 96-02-28 Release of version 1.0 beta // // 96-01-30 File header created. The experiment started !!!! // // // ****************************************************************************//

Df_print.pkg (view source)
• import declarations
  • Windows.pkg (view source)
  • LanguageText.pkg (view source)
  • Dll.pkg (view source)
  • Winprint_Constants.pkg (view source)
    constants used by this class and winprint2
  • Winprint_Commands.pkg (view source)
    commands used by this class and by winprint2
• IntegerCreatePage(Integer iColumns)
  ************************************************************ *************** API INTERFACE DFPRINT.DLL ****************** ************************************************************ *** Creates a new page and the number of columns provided in *** iColumns 0= no columns *** returns pagenumber or PRN_FALSE=Error ***
• IntegerSetMarginsInch(Integer iLeft Integer iTop Integer iRight Integer iBottom)
  *** Set all margins for a page in Inch *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSetMarginsMm(Integer iLeft Integer iTop Integer iRight Integer iBottom)
  *** Set all margins for a page in CM *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSetFont(String sFontName Integer iFontNameLen)
  *** Sets the font to specified font. *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSetFontSize(Integer iHeight Integer iWidth)
  *** Sets the fontsize to height and width. *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSetFontStyle(DWORD dwStyle)
  *** Sets fontstyle. *** Returns PRN_FALSE=Error or PRN_TRUE *** Using any combination of: *** FONT_?? + RGB_?? *** *** Use FONT_DEFAULT to disable all effects (standard) ***
• IntegerSetUnderline(Integer iUnderline)
  *** Sets underline. *** Returns PRN_FALSE=Error or PRN_TRUE *** TRUE=Underline FALSE=Removes underline ***
• IntegerSetBold(Integer iBold)
  *** Sets bold. *** Returns PRN_FALSE=Error or PRN_TRUE *** TRUE=Bold FALSE=Removes Bold ***
• IntegerSetItalic(Integer iItalic)
  *** Sets italic. *** Returns PRN_FALSE=Error or PRN_TRUE *** TRUE=Italic FALSE=Removes Italic ***
• IntegerSetStrikeout(Integer iStrikeout)
  *** Sets strikeout. *** Returns PRN_FALSE=Error or PRN_TRUE *** TRUE=Strikeout FALSE=Removes Strikeout ***
• IntegerWriteLineToPage(Integer iPageNr String sText Integer iTextLen Integer iLineFeed Integer iWriteToCol Integer iDecimal)
  *** Writes a line to a pagenumber using active fonts. *** If you are using columns it will write the text to *** specified column. 0= Don´t use column. *** If you send -1 it will be treated as a string. *** If send a number it will indicate that it´s a number *** and how many decimals you want. *** Returns PRN_FALSE=Error or PRN_TRUE *** TRUE=Linefeed (writeln) FALSE=No linefeed (write) ***
• IntegerWriteLineToPositionInch(Integer iPageNr String sText Integer iTextLen Integer iLineFeed Integer iCols Integer iDecimal)
  *** Obsolete, replaced by WriteLinetoPositionInchEx *** Writes a line to a pagenumber using active fonts. *** at a given position in Inch from left margin *** If you send -1 it will be treated as a string. *** If send a number it will indicate that it´s a number *** and how many decimals you want. *** Returns PRN_FALSE=Error or PRN_TRUE *** TRUE=Linefeed (writeln) FALSE=No linefeed (write) ***
• IntegerWriteLineToPositionInchEx(Integer iPageNr String sT Integer iT Integer iL Integer iC Integer iD Integer iLe)
  *** Same as above expect the maximum length is also passed (iLe). This is now the *** preferred message and can be used in placef WriteLinetoPostitionMn (if no max *** length pass-1) ***
• IntegerWriteLineToPositionMm(Integer iPageNr String sText Integer iTextLen Integer iLineFeed Integer iCols Integer iDecimal)
  *** Obsolete, replaced by WriteLinetoPositionMmEx *** Writes a line to a pagenumber using active fonts. *** at a given position in CM from left margin *** If you send -1 it will be treated as a string. *** If send a number it will indicate that it´s a number *** and how many decimals you want. *** Returns PRN_FALSE=Error or PRN_TRUE *** TRUE=Linefeed (writeln) FALSE=No linefeed (write) ***
• IntegerWriteLineToPositionMmEx(Integer iPageNr String sT Integer iT Integer iL Integer iC Integer iD Integer iLe)
  *** Same as above expect the maximum length is also passed (iLe). This is now the *** preferred message and can be used in placef WriteLinetoPostitionMn (if no max *** length pass-1) ***
• IntegerExecutePrintSetup(Pointer hwnd)
  *** Opens Print Setup. *** Returns PRN_TRUE *** HWND is a handle to the parent window ***
• IntegerExecutePrintDialog(Pointer hwnd)
  *** Opens Print Dialog. *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel *** HWND is a handle to the parent window ***
• IntegerPreviewDocument(Pointer hwnd)
  *** Shows a preview of your document. *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel *** HWND must be the container handle (MAIN) ***
• IntegerPreviewDocumentEx(Pointer hwnd Integer bPrntDlg)
• IntegerPreviewDocumentEx2(Pointer hwnd Integer bPrntDlg Integer bPrntSetup Integer bPrnt)
• IntegerPrintDocument(Pointer hwnd)
  *** Prints your document using the settings in print setup. *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel *** HWND is a handle to the parent window ***
• IntegerClearDocument()
  *** Clear all resurces used by Windows and prepares for *** a new document. Printer settings remains. *** Should be called after a print *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel ***
• IntegerBeginHeader(Integer iInternalObj Integer iHeaderNr Integer iHeaderType)
  *** Creates a header. The param you send sets the type *** of header you would like to have. *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel *** *** DFPageTop 0 *** DFReportHeader 1 *** DFPageHeader 2 *** DFPageTitle 3 *** DFSubHeader 4 *** DFSubTotal 5 *** DFTotal 6 *** DFPageTotal 7 *** DFPageFooter 8 *** DFReportFooter 9 *** DFPageBottom 10 *** DFPageHeader2 11 *** ***
• IntegerEndHeader()
  *** End´s a header definition. Headers can NOT be nested *** *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel ***
• IntegerWriteHeaderToPage(Integer iPageNr Integer iHeaderNr Integer iInternalObj Integer iHeaderType)
  *** Writes a header to current line *** *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel ***
• IntegerSetHeaderPlacement(Integer iPlace)
  *** Posision the header to Left,right or center on the page *** 0=Left, 1=Center, 2=Right *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSetHeaderFrameInch(Integer iFrame Dword dwColor Integer iWeight Dword dwFillCol Integer iFill)
  *** Sets frametype of header with color and weight of frame *** using inch *** 0=No frame, 1=Margin to margin, 2=frame size *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSetHeaderFrameMm(Integer iFrame Dword dwColor Integer iWeight Dword dwFillCol Integer iFill)
  *** Sets frametype of header with color and weight of frame *** using cm *** 0=No frame, 1=Margin to margin, 2=frame size *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSetHeaderWrap(Integer iOnOff)
  *** Sets the header to be reprinted on page breake done *** by the DLL. Default is HDR_WRAP *** *** HDR_NOWRAP = 0 *** HDR_WRAP = 1 *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerDrawBitmapToPageMm(Integer iPageNr String sName Integer iNameLen Integer iLTopX Integer iLTopY Integer iRBotX Integer iRBotY Integer iUCp)
  *** Writes a bitmap to a pagenumber at a given position in CM *** from left margin. The pos param. you have to send is upper left *** and down right *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerDrawBitmapToPageInch(Integer iPageNr String sName Integer iNameLen Integer iLTopX Integer iLTopY Integer iRBotX Integer iRBotY Integer iUCp)
  *** Writes a bitmap to a pagenumber at a given position in Inch *** from left margin. The pos param. you have to send is upper left *** and down right *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSetExtraLineCheck(Integer iLines)
  *** Check if the header and a given number of lines fits on the page *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSetPrintDialogFlags(Integer iFlags)
  *** Sets the pd flags of the printer dialog/setup *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSelectPrinter(String sDriver Integer iDriverLen String sDevice Integer iDeviceLen String sPort Integer iPortLen Integer iUpdate)
  *** Selects a printer without accessing the print dialog/setup *** *** Returns PRN_FALSE=Not a valid printer, or PRN_TRUE=Ok ***
• IntegerSetFirstPagePaperSource(Integer iFlags)
  *** Sets the paper bin for the first page in a report *** using valid printer flags. *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• DWORDRGBToDFPrintColor(Integer iRed Integer iGreen Integer iBlue)
  *** Creates a RGB color value that can be used in WinPrint *** as a constant. Each color in RGB is a value betwen 0-255. *** *** Returns a valid constant value for WinPrint ***
• IntegerSetColor(DWORD dwDFColor)
  *** Sets color in WinPrint using the color value created *** by RGBToDFPrintColor. *** *** Returns True or false ***
• IntegerSetAbsoluteMarginsInch(Integer iTop Integer iBottom Integer iAll)
  *** Report_Header/_Footer are placed at the paper edge as default. *** With this function you can move the placement of the sections *** for the first page or all pages. *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSetAbsoluteMarginsMm(Integer iTop Integer iBottom Integer iAll)
  *** Report_Header/_Footer are placed at the paper edge as default. *** With this function you can move the placement of the sections *** for the first page or all pages. *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSetAlign(Integer iAlign)
  *** SetAlign can be used to jystify the text to a given position. *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerDrawEllipInch(Integer iPNr Integer iLTX Integer iLTY Integer iRBX Integer iRBY Dword dBC Dword dFC Integer iFi Integer iW Integer iUCp Integer iWr)
  *** Writes an ellipse to a pagenumber at a given position in Inch *** from left margin. The pos param. you have to send upper left *** and down right. dwBColor is boarder color, dwFillColor is fill color *** If iFill is true the ellipsen will be filled of it´s false it will *** be transparent.iW is weight and iWr is wrap. *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerDrawEllipMm(Integer iPNr Integer iLTX Integer iLTY Integer iRBX Integer iRBY Dword dBC Dword dFC Integer iFi Integer iW Integer iUCp Integer iWr)
  *** Writes an ellipse to a pagenumber at a given position in CM *** from left margin. The pos param. you have to send is upper left *** and down right.dwBColor is boarder color, dwFillColor is fill color *** If iFill is true the ellipsen will be filled of it´s false it will *** be transparent.iW is weight and iWr is wrap. *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerDrawRectInch(Integer iPNr Integer iLTX Integer iLTY Integer iRBX Integer iRBY Dword dBC Dword dFC Integer iFi Integer iW Integer iUCp Integer iWr)
  *** Writes an rectangle to a pagenumber at a given position in Inch *** from left margin. The pos param. you have to send is upper left *** and down right.dwBColor is boarder color, dwFillColor is fill color *** If iFill is true the ellipsen will be filled of it´s false it will *** be transparent.iW is weight and iWr is wrap. *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerDrawRectMm(Integer iPNr Integer iLTX Integer iLTY Integer iRBX Integer iRBY Dword dBC Dword dFC Integer iFi Integer iW Integer iUCp Integer iWr)
  *** Writes an rectangle to a pagenumber at a given position in CM *** from left margin. The pos param. you have to send is upper left *** and down right.dwBColor is boarder color, dwFillColor is fill color *** If iFill is true the ellipsen will be filled of it´s false it will *** be transparent.iW is weight and iWr is wrap. *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerConfirmLines(Integer iPageNr Integer iLines)
  *** Check if a certain number of lines fits the page, if not print a *** new page before printing.. *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerCreateDiagramInch(Integer iType Integer iFx Integer iWidth Integer iHeight Integer iXyAxis)
  *** Creates a diagram of the type DFGR_?? with the effects of the *** type DFGR_??. Returns a unique number for the diagram. *** The returned ID is used by the other diagram functions. The *** size of the diagram is set in Inch. *** *** Returns Diagram Id or PRN_FALSE=Error ***
• IntegerCreateDiagramMm(Integer iType Integer iFx Integer iWidth Integer iHeight Integer iXyAxis)
  *** Creates a diagram of the type DFGR_?? with the effects of the *** type DFGR_??. Returns a unique number for the diagram. *** The returned ID is used by the other diagram functions. The *** size of the diagram is set in cm. *** *** Returns Diagram Id or PRN_FALSE=Error ***
• IntegerLockDiagram(Integer iDId)
  *** Locks a specified diagram so it can´t take any more entrys. *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerAddDiagramEntry(Integer iDId String sT Integer iTL String sV Integer iVL Dword dBC Dword dFC Integer iFil Integer iDec integer iVP Integer iExt)
  *** Adds an entry to a specified diagram (ID from CreateDiagram) *** iDId is the id of the diagram *** sTxt is a describing text for the value *** iTxtLen is the len of the DataFlex string *** iValue is an integer value for the diagram !!!! *** dwBcolor is the boarder color *** dwFcolor is the fill color *** iFill is DFGR_FILL or DFGR_TRAN *** iDec tells how mwny decimals you want on a value *** iVP tells if you want no value, value or percent *** iExt is DFGR_IN or DFGR_OUT pulls the pie out in circel diagram *** *** Returns Diagram Id or PRN_FALSE=Error ***
• IntegerDrawDiagramToPageInch(Integer iPageNr Integer iDId Integer ixPos Integer iyPos Integer iUCp)
  *** Writes the diagram to a page at the current line at a *** specified position. Using INCH *** *** Returns PRN_FALSE=Error or PRN_TRUE *** SF 11/07/97 - Added an extra param.
• IntegerDrawDiagramToPageMm(Integer iPageNr Integer iDId Integer ixPos Integer iyPos Integer iUCp)
  *** Writes the diagram to a page at the current line at a *** specified position. Using CM *** *** Returns PRN_FALSE=Error or PRN_TRUE *** SF 11/07/97 - Added an extra param.
• IntegerSetDiagramCaption(Integer iDId String sText Integer iTextLen)
  *** Sets the caption of a diagram with the last used font *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSetDiagramXText(Integer iDId String sText Integer iTextLen)
  *** Sets the horizontal caption of a diagram. *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerSetDiagramYText(Integer iDId String sText Integer iTextLen Integer iVert)
  *** Sets the vertical caption of a diagram. *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerDrawXYLineInch(Integer iPageNr Integer iFromX Integer iFromY Integer iToX Integer iToY Dword dwColor Integer iWeight Integer iUCp Integer iWrap)
  *** Draws i line to a page. Using XY cords ONLY with color *** weight and wrap using inch as metrics. *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerDrawXYLineMm(Integer iPageNr Integer iFromX Integer iFromY Integer iToX Integer iToY Dword dwColor Integer iWeight Integer iUCp Integer iWrap)
  *** Draws i line to a page. Using XY cords ONLY with color *** weight and wrap using cm as metrics. *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerDrawLineInch(Integer iPageNr Integer iFromX Integer iFromY Integer iLength Integer iHorVer Dword dwColor Integer iWeight Integer iUCp)
  *** Draws i line to a page. Using XY cords and length with color *** weight and NO wrap using inch as metrics. *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerDrawLineMm(Integer iPageNr Integer iFromX Integer iFromY Integer iLength Integer iHorVer Dword dwColor Integer iWeight Integer iUCp)
  *** Draws i line to a page. Using XY cords and length with color *** weight and NO wrap using cm as metrics. *** *** Returns PRN_FALSE=Error or PRN_TRUE ***
• IntegerClearPrinter()
  *** Clears the printer and all resurces used by Windows, *** prepares for a new document. *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel ***
• IntegerGetCurrentDriver(Pointer pDrvStr)
  *** Retrieves the driver name of the currently selected printer. *** The param is a pointer to a DF string *** *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel ***
• IntegerGetCurrentDevice(Pointer pDevStr)
  *** Retrieves the device name of the currently selected printer. *** The param is a pointer to a DF string *** *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel ***
• IntegerGetCurrentPort(Pointer pPortStr)
  *** Retrieves the output port that the currently selected printer *** is mapped to. *** The param is a pointer to a DF string *** *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel ***
• DwordGetPrintDialogFlags()
  *** Retrieves the printer options set in Print Dialog and Print Setup. *** The return value is a combination of all flags. *** *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel ***
• IntegerGetUserDefinedPapersize()
  *** Retrieves the user defined papersize. This function is only valid *** DF_PAPER_USER flag is set. *** *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel ***
• IntegerSetUserDefinedPapersize(Integer iPSize)
  *** Sets the user defined papersize. This function is only valid *** DF_PAPER_USER flag is set. *** *** Returns PRN_TRUE=Ok PRN_FALSE=Cancel ***
• IntegerIsPrintDialogFlag(Dword dwPDFlag)
  *** To check if a specific flag is set or not. *** *** Returns PRN_TRUE= if the flag is set *** Returns PRN_FALSE= If the flag not is set ***
• IntegerSetSpecificPrintDialogFlag(Dword dwPDFlag)
  *** Allows you to set a single print dialog flag. *** *** Returns PRN_TRUE= Ok *** Returns PRN_FALSE= Error ***
• IntegerSetNumberOfPrintCopies(Integer iNrOfCopies)
  *** Allows you to set the number of copies to be printed. *** *** Returns PRN_TRUE= Ok *** Returns PRN_FALSE= Error ***
• DF_Printer : dfBasePanel
  *** Our intention was to be able to use escape seq from WinPrint *** but for some reasons the PASSTHRUE is not working. It will *** MAYBE be implemented later. //*** Returns PRN_TRUE=Ok PRN_FALSE=Cancel //*** External_Function32 WriteEscape "WriteEscape" DFPRINT.DLL ; Integer iPageNr; Integer iEsc; String sSeq; Integer iSeqlen; Returns Integer //*** Returns PRN_TRUE=Ok PRN_FALSE=Cancel //*** External_Function32 QueryWriteEscape "QueryWriteEscape" DFPRINT.DLL ; Integer iEsc; Returns Integer ************************************************************************// // $Module type: CLASS // $Module name: DF_PRINTER // $Author : Janne Wassberg // Created : 96-01-30 @ 20.39.19 // // Description Class for Windows printsystem and DataFlex 3.05 and 4.x // // // // $Rev History // 96-04-23 Ready for version 1.1 // 96-01-30 Module header created // // ************************************************************************// This will have a handle. //JT
  • Construct_Object()
    • oDFColorArray : Array
    • StringDFCurrent_Metrics
      *** You can use CM or INCH
    • IntegerDFCurrent_Color
      *** internal properties
    • StringDFCurrent_OutPut
    • IntegerDFCurrent_Page
    • IntegerDFCurrent_Diagram
    • IntegerDFCurrent_HeaderType
    • IntegerDFCurrent_HeaderNr
    • NumberDFCurrent_FontSize
    • StringDFCurrent_Font
    • NumberDFLeft_Margin
      *** Default values for margins 2.53 CM = 1 inch
    • NumberDFTop_Margin
    • NumberDFright_Margin
    • NumberDFBottom_Margin
    • IntegerDFPageTopCount
      *** Internal object counters
    • IntegerDFReportHeaderCount
    • IntegerDFPageHeaderCount
    • IntegerDFPageTitleCount
    • IntegerDFTotalCount
    • IntegerDFPageTotalCount
    • IntegerDFPageFooterCount
    • IntegerDFReportFooterCount
    • IntegerDFPageBottomCount
    • IntegerDFSubHeader1Count
      *** Can be increased to a maximum of 20 for *** each sub. The DLL handles 20 options *** If you increase them to more then 9 *** options you also have to change the *** functions for Zero and Calculation ***
    • IntegerDFSubHeader2Count
    • IntegerDFSubHeader3Count
    • IntegerDFSubHeader4Count
    • IntegerDFSubHeader5Count
    • IntegerDFSubHeader6Count
    • IntegerDFSubHeader7Count
    • IntegerDFSubHeader8Count
    • IntegerDFSubHeader9Count
    • IntegerDFSubTotal1Count
    • IntegerDFSubTotal2Count
    • IntegerDFSubTotal3Count
    • IntegerDFSubTotal4Count
    • IntegerDFSubTotal5Count
    • IntegerDFSubTotal6Count
    • IntegerDFSubTotal7Count
    • IntegerDFSubTotal8Count
    • IntegerDFSubTotal9Count
    • IntegerPrintDlgInPreview
    • IntegerEnablePrintSetupFromPreview
    • IntegerEnablePrintFromPreview
    • oDiagramArray : Array
  • Destroy_Object()
  • DFZeroCounters()
  • IntegerDFCalcCounters(Integer HeaderNr Integer HeaderType)
    Only for internal use
    • IntegeriCounter
  • IntegerDFCurrentCounters(Integer HeaderNr Integer HeaderType)
    *** Only for internal use
    • IntegeriCounter
  • IntegerDFNewPage(Integer Columns)
    ***
    • IntegeriRetVal
  • handleReport_Window_Handle()
    JT ***Return handle to use for winprint dialog. If main_window exists, use it. Else, get object's handle
    • IntegerhWnd
    • IntegerObj
  • IntegerDFPrintDialog()
    ***
    • Integerhwnd
    • IntegeriRetVal
  • DFPrintSetup()
    ***
    • Integerhwnd
    • IntegeriRetVal
  • DFPreview()
    ***
    • Integerhwnd
    • IntegeriRetVal
    • IntegerbPrntDlg
    • IntegerbPrintSetup
    • IntegerbPrint
  • DFPrintDoc()
    ***
    • Integerhwnd
    • IntegeriRetVal
  • DFClearDoc()
    ***
    • IntegeriRetVal
  • DFSetFont(String FontName)
    ***
    • IntegeriRetVal
    • IntegeriFlen
  • DFSetFontSize(Integer Height Integer Width)
    ***
    • IntegeriRetVal
  • DFSetFontStyle(DWORD Style)
    ***
    • IntegeriRetVal
  • DFSetUnderline(Integer Underline)
    ***
    • IntegeriRetVal
  • DFSetBold(Integer Bold)
    ***
    • IntegeriRetVal
  • DFSetItalic(Integer Italic)
    ***
    • IntegeriRetVal
  • DFSetStrikeout(Integer Strikeout)
    ***
    • IntegeriRetVal
  • DFSetMargins(Number Left Number Top Number Right Number Bottom)
    ***
    • IntegeriRetVal
    • StringsMetrics
  • DFSetLeftMargin(Number Left)
    ***
    • IntegeriRetVal
    • StringsMetrics
    • NumberTop
    • NumberRight
    • NumberBottom
  • DFSetRightMargin(Number Right)
    ***
    • IntegeriRetVal
    • StringsMetrics
    • NumberLeft
    • NumberTop
    • NumberBottom
  • DFSetTopMargin(Number Top)
    ***
    • IntegeriRetVal
    • StringsMetrics
    • NumberLeft
    • NumberRight
    • NumberBottom
  • DFSetBottomMargin(Number Bottom)
    ***
    • IntegeriRetVal
    • StringsMetrics
    • NumberLeft
    • NumberTop
    • NumberRight
  • DFWriteToPage(Integer Page String sText DWORD iStyle Integer Column Integer Dec)
    ***
    • IntegeriRetVal
    • IntegeriTlen
  • DFWritelnToPage(Integer Page String sText DWORD iStyle Integer Column Integer Dec)
    ***
    • IntegeriRetVal
    • IntegeriTlen
  • DFWrite(String sText DWORD iStyle Integer Column Integer Dec)
    ***
    • IntegeriRetVal
    • IntegerCurrPage
    • IntegeriTlen
  • DFWriteln(String sText DWORD iStyle Integer Column Integer Dec)
    ***
    • IntegeriRetVal
    • IntegerCurrPage
    • IntegeriTlen
  • DFWritePosToPage(Integer Page String sText DWORD iStyle Number Pos Integer Dec Number nLen)
    ***
    • IntegeriRetVal
    • IntegeriTlen
    • StringsMetrics
    • IntegeriLength
  • DFWritelnPosToPage(Integer Page String sText DWORD iStyle Number Pos Integer Dec Number nLen)
    ***
    • IntegeriRetVal
    • IntegeriTlen
    • StringsMetrics
    • IntegeriLength
  • DFWritePos(String sText DWORD iStyle Number Pos Integer Dec Number nLen)
    ***
    • IntegeriRetVal
    • IntegerCurrPage
    • IntegeriTlen
    • StringsMetrics
    • IntegeriLength
  • DFWritelnPos(String sText DWORD iStyle Number Pos Integer Dec Number nLen)
    ***
    • IntegeriRetVal
    • IntegerCurrPage
    • IntegeriTlen
    • StringsMetrics
    • IntegeriLength
  • DFSetMetrics(String Metrics)
    ***
  • DFBeginHeaderType(Integer HeaderNr Integer HeaderType)
    ***
    • IntegeriRetVal
    • IntegeriObjCount
  • DFEndHeaderType()
    ***
    • IntegeriRetVal
  • DFWriteHeaderType(Integer HeaderNr Integer HeaderType)
    ***
    • IntegeriRetVal
    • IntegerCurrPage
    • IntegeriObjCount
  • DFWriteHeaderTypeToPage(Integer PageNr Integer HeaderNr Integer HeaderType)
    ***
    • IntegeriRetVal
    • IntegeriObjCount
  • DFHeaderPosition(Integer Place)
    ***
    • IntegeriRetVal
  • DFHeaderFrameType(Integer Frame Dword dwColor Number nWeight Dword FColor Integer iFill)
    ***
    • StringsMetrics
    • IntegeriWeight
    • IntegeriRetVal
  • DFHeaderWrap(Integer OnOff)
    ***
    • IntegeriRetVal
  • DFWriteBMP(String sFileName Number StartX Number StartY Number Height Number Width Integer iUCp)
    *** SF 21/8 - Modified to support GR_USECURRPOS better
    • IntegeriRetVal
    • IntegerCurrPage
    • IntegeriFlen
    • StringsMetrics
    • IntegerLeftTX
    • IntegerLeftTY
    • IntegerRightBX
    • IntegerRightBY
    • NumbernLeftTX
    • NumbernLeftTY
    • NumbernRightBX
    • NumbernRightBY
  • DFWriteBMPToPage(Integer iPage String sFileName Number StartX Number StartY Number Height Number Width Integer iUCp)
    *** SF 21/8 - Modified to support GR_USECURRPOS better
    • IntegeriRetVal
    • IntegeriFlen
    • StringsMetrics
    • IntegerLeftTX
    • IntegerLeftTY
    • IntegerRightBX
    • IntegerRightBY
    • NumbernLeftTX
    • NumbernLeftTY
    • NumbernRightBX
    • NumbernRightBY
  • DFHeaderLineCheck(Integer Lines)
    ***
    • IntegeriRetVal
  • DFPrintFlags(Integer Flags)
    ***
    • IntegeriRetVal
  • DFSelectPrinter(String sDriver String sDevice String sPort Integer iUpdate)
    ***
    • IntegeriRetVal
    • IntegeriDriverLen
    • IntegeriDeviceLen
    • IntegeriPortLen
  • DFPrinterBinFirstPage(Integer Flags)
    ***
    • IntegeriRetVal
  • DWORDDFGetDFColor(Integer iRed Integer iGreen Integer iBlue)
    ***
    • IntegeriRetVal
  • DFSetDFColor(DWORD dwColor)
    ***
    • IntegeriRetVal
  • DFSetTopBottom(Number nTop Number nBottom Integer iAll)
    ***
    • IntegeriRetVal
    • StringsMetrics
    • IntegeriTop
    • IntegeriBottom
  • DFSetJMode(Integer iAlign)
    ***
    • IntegeriRetVal
  • DFWriteEllip(Number StartX Number StartY Number Height Number Width Dword BColor Dword FColor Integer iFill Number nWeight Integer Wrap Integer iUCp)
    *** SF 21/8 - Modified to support GR_USECURRPOS better
    • IntegeriRetVal
    • IntegerCurrPage
    • StringsMetrics
    • IntegerLeftTX
    • IntegerLeftTY
    • IntegerRightBX
    • IntegerRightBY
    • NumbernLeftTX
    • NumbernLeftTY
    • NumbernRightBX
    • NumbernRightBY
    • IntegeriWeight
  • DFWriteEllipToPage(Integer iPage Number StartX Number StartY Number Height Number Width Dword BColor Dword FColor Integer iFill Number nWeight Integer Wrap Integer iUCp)
    *** SF 21/8 - Modified to support GR_USECURRPOS better
    • IntegeriRetVal
    • StringsMetrics
    • IntegerLeftTX
    • IntegerLeftTY
    • IntegerRightBX
    • IntegerRightBY
    • NumbernLeftTX
    • NumbernLeftTY
    • NumbernRightBX
    • NumbernRightBY
    • IntegeriWeight
  • DFWriteRect(Number StartX Number StartY Number Height Number Width Dword BColor Dword FColor Integer iFill Number nWeight Integer Wrap Integer iUCp)
    *** SF 21/8 - Modified to support GR_USECURRPOS better
    • IntegeriRetVal
    • IntegerCurrPage
    • StringsMetrics
    • IntegerLeftTX
    • IntegerLeftTY
    • IntegerRightBX
    • IntegerRightBY
    • NumbernLeftTX
    • NumbernLeftTY
    • NumbernRightBX
    • NumbernRightBY
    • IntegeriWeight
  • DFWriteRectToPage(Integer iPage Number StartX Number StartY Number Height Number Width Dword BColor Dword FColor Integer iFill Number nWeight Integer Wrap Integer iUCp)
    *** SF 21/8 - Modified to support GR_USECURRPOS better
    • IntegeriRetVal
    • StringsMetrics
    • IntegerLeftTX
    • IntegerLeftTY
    • IntegerRightBX
    • IntegerRightBY
    • NumbernLeftTX
    • NumbernLeftTY
    • NumbernRightBX
    • NumbernRightBY
    • IntegeriWeight
  • DFLineCheck(Integer Lines)
    ***
    • IntegerCurrPage
    • IntegeriRetVal
  • DFCreateDiagram(Integer iType Integer iFx Number nHeight Number nWidth Integer bXyAxis)
    ***
    • IntegeriRetVal
    • StringsMetrics
    • IntegeriWidth
    • IntegeriHeight
  • DFDiagram_Item(Integer iDiagram String sLabel Number nValue Dword BColor Dword FColor Integer iFill Integer iDec Integer iVP Integer iExt)
    ***
    • IntegeriRetVal
    • IntegeriLabelLen
    • IntegeriValLen
    • IntegeriCurrColor
  • DFLockDiagram(Integer iDiagram)
    ***
    • IntegeriRetVal
  • DFDrawDiagram(Integer iDiagram Number nYPos Number nXPos Integer iUCp)
    *** SF 11/07/97 - Added an extra param.
    • IntegeriRetVal
    • IntegerCurrPage
    • StringsMetrics
    • IntegeriXPos
    • IntegeriYPos
  • DFDrawDiagramToPage(Integer iPage Integer iDiagram Number nYPos Number nXPos Integer iUCp)
    *** SF 11/07/97 - Added an extra param.
    • IntegeriRetVal
    • StringsMetrics
    • IntegeriXPos
    • IntegeriYPos
  • DFDiagramLabel(Integer iDiagram String sLabel)
    ***
    • IntegeriRetVal
    • IntegeriLabelLen
  • DFDiagramXLabel(Integer iDiagram String sLabel)
    ***
    • IntegeriRetVal
    • IntegeriLabelLen
  • DFDiagramYLabel(Integer iDiagram String sLabel Integer iVert)
    ***
    • IntegeriRetVal
    • IntegeriLabelLen
  • DFWriteXYLine(Number StartX Number StartY Number StoppX Number StoppY Dword Color Number nWeight Integer Wrap Integer iUCp)
    ***
    • IntegeriRetVal
    • IntegerCurrPage
    • StringsMetrics
    • IntegeriStartX
    • IntegeriStartY
    • IntegeriStoppX
    • IntegeriStoppY
    • IntegeriWeight
  • DFWriteLine(Number StartX Number StartY Number Lenght Integer iHorVert Dword Color Number nWeight Integer iUCp)
    ***
    • IntegeriRetVal
    • IntegerCurrPage
    • StringsMetrics
    • IntegeriStartX
    • IntegeriStartY
    • IntegeriLenght
    • IntegeriWeight
  • DFClearPrinter()
    ***
    • IntegeriRetVal
  • StringDFGetCurrentDriver()
    ***
    • IntegeriRetVal
    • StringsDFStr
    • IntegerpDFStr
  • StringDFGetCurrentDevice()
    ***
    • IntegeriRetVal
    • StringsDFStr
    • IntegerpDFStr
  • StringDFGetCurrentPort()
    ***
    • IntegeriRetVal
    • StringsDFStr
    • IntegerpDFStr
  • DwordDFGetPrintDialogFlags()
    ***
    • IntegerdwRetVal
  • IntegerDFCheckPrintDialogFlag(Dword PDFlag)
    *** *** Returns PRN_TRUE= if the flag is set (1) *** Returns PRN_FALSE= If the flag not is set (0) ***
    • IntegeriRetVal
  • DFSetSpecPrintFlag(Dword PDFlag)
    ***
    • IntegeriRetVal
  • NumberDFGetUserDefinedLength()
    ***
    • IntegeriRetVal
    • NumbernRetVal
  • NumberDFGetUserDefinedWidth()
    ***
    • IntegeriRetVal
    • NumbernRetVal
  • DFSetUserDefinedPapersize(Number nLength Number nWidth)
    *** To be set in CM
    • IntegeriRetVal
    • IntegeriLength
    • IntegeriWidth
    • IntegeriSize
  • DFSetNumberOfCopies(Integer iNrOfCopies)
    • IntegeriRetVal
  • IntegerDFGetCurrentDiagram()
    *** Escape will not work, see comment att dll call //*** Procedure DFWriteEsc Integer EscFunc String EscSeq Integer iRetVal Integer CurrPage integer iEscLen Get DFCurrent_Page To CurrPage Get ToAnsi EscSeq To EscSeq Move (Length(EscSeq)) To iEscLen Move (WriteEscape(CurrPage,EscFunc,EscSeq,iEscLen)) To iRetVal If iRetVal Eq PRN_TRUE Begin End If iRetVal Eq PRN_FALSE Begin Error DFERR_WINPRINT DFPrintError958 End End_Procedure //*** Procedure DFQueryEsc Integer EscFunc Integer iRetVal Move (QueryWriteEscape(EscFunc)) To iRetVal If iRetVal Eq PRN_TRUE Begin End If iRetVal Eq PRN_FALSE Begin Error DFERR_WINPRINT DFPrintError959 End End_Procedure ************************************************************* *** This procedures and functions are used when building *** *** complex graphics when you need to change value of the *** *** current diagram, so you can mix diagrams within each *** *** other. *** *************************************************************
    • IntegeriRetVal
  • DFSetCurrentDiagram(Integer iDiagram)
  • DFSetDiagramList(Integer Item# Integer iDiagram)
  • IntegerDFGetDiagramList(Integer Item#)
    • IntegeriRetVal
  • DFClearDiagramList()
  • DwordDFGetCurrentColor()
    • IntegerdwRetVal
    • IntegeriCurrColor
  • DwordDFGetColor(Integer iColor)
    • IntegerdwRetVal
  • End_Construct_Object()
    ************************************************************* *** This procedures and functions are used when building *** *** complex graphics when you need to change value of the *** *** current diagram, so you can mix diagrams within each *** *** other. *** *************************************************************
• oWinPrint : DF_PRINTER
  ************************************************************************// // $Module type: OBJECT // $Module name: oWinPrint // $Author : JW // Created : 96-01-30 @ 18.45.49 // // Description // // // $Rev History // 96-01-30 Ready for version 1.1 // 96-01-30 Module header created // // ************************************************************************// Integer WinPrintId // Provide simple access to global object //JT
  • DFPrint()
    • IntegeriRetVal

References (1):

Field References (0):