home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / X_TAL4 / DEMODLL.BAS next >
Encoding:
BASIC Source File  |  1993-08-28  |  3.0 KB  |  88 lines
  1. Option Explicit
  2.  
  3. 'Error codes returned from XTALUDL.DLL:
  4. '32000 : Not a Crystal Report (or a version not supported).
  5. '32001 : Bad path or file name. Couldn't get handle to file.
  6. '32002 : No Margin Info. Can't set, or nothing to get.
  7. '32003 : No Label Info (No fields placed on report)
  8. '32010 : Couldn't set fontface: no printer in WIN.INI or couldn't get
  9. '        a device context for printer, or invalid facename passed.
  10.  
  11. Global Const XTAL_INVALID_FILEFORMAT = 32000
  12. Global Const XTAL_BAD_FILENAME = 32001
  13. Global Const XTAL_NO_MARGININFO = 32002
  14. Global Const XTAL_NO_LABELINFO = 32003
  15. Global Const XTAL_FACENAME_ERROR = 32010
  16.  
  17. Global Const XTAL_SET_LABEL = 2
  18. Global Const XTAL_GET_LABEL = 1
  19.  
  20. Type LABEL_DIMENSIONS
  21.     leftMargin As Single
  22.     rightMargin As Single
  23.     topMargin As Single
  24.     bottomMargin As Single
  25.     labelWidth As Single
  26.     labelHeight As Single
  27.     HorzGap As Single
  28.     VertGap As Single
  29.     direction As Integer
  30.     tester As Single
  31. End Type
  32.  
  33. 'XTALUDL.DLL declarations
  34. Declare Sub GetSetLabelDimensions Lib "XTALUDL.DLL" (ByVal lpszFileName$, lpDimensions As LABEL_DIMENSIONS, ByVal nAction%, lpErrcode%)
  35. Declare Sub GetreportTitle Lib "XTALUDL.DLL" (ByVal lpszFileName$, ByVal lpszReportTitle$, ByVal lpszReportComment$, lpErrcode%)
  36. Declare Sub SetFontAll Lib "XTALUDL.DLL" (ByVal lpszFileName$, ByVal lpszFaceName$, ByVal nFontsize%, lpErrcode%)
  37.  
  38.  
  39.  
  40. 'From constant.txt:
  41.  
  42. 'Fonts Dialog Flags
  43. Global Const CF_SCREENFONTS = &H1&
  44. Global Const CF_PRINTERFONTS = &H2&
  45. Global Const CF_BOTH = &H3&
  46. Global Const CF_SHOWHELP = &H4&
  47. Global Const CF_INITTOLOGFONTSTRUCT = &H40&
  48. Global Const CF_USESTYLE = &H80&
  49. Global Const CF_EFFECTS = &H100&
  50. Global Const CF_APPLY = &H200&
  51. Global Const CF_ANSIONLY = &H400&
  52. Global Const CF_NOVECTORFONTS = &H800&
  53. Global Const CF_NOSIMULATIONS = &H1000&
  54. Global Const CF_LIMITSIZE = &H2000&
  55. Global Const CF_FIXEDPITCHONLY = &H4000&
  56. Global Const CF_WYSIWYG = &H8000&         'must also have CF_SCREENFONTS & CF_PRINTERFONTS
  57. Global Const CF_FORCEFONTEXIST = &H10000
  58. Global Const CF_SCALABLEONLY = &H20000
  59. Global Const CF_TTONLY = &H40000
  60. Global Const CF_NOFACESEL = &H80000
  61. Global Const CF_NOSTYLESEL = &H100000
  62. Global Const CF_NOSIZESEL = &H200000
  63.  
  64. 'File Open/Save Dialog Flags
  65. Global Const OFN_READONLY = &H1&
  66. Global Const OFN_OVERWRITEPROMPT = &H2&
  67. Global Const OFN_HIDEREADONLY = &H4&
  68. Global Const OFN_NOCHANGEDIR = &H8&
  69. Global Const OFN_SHOWHELP = &H10&
  70. Global Const OFN_NOVALIDATE = &H100&
  71. Global Const OFN_ALLOWMULTISELECT = &H200&
  72. Global Const OFN_EXTENSIONDIFFERENT = &H400&
  73. Global Const OFN_PATHMUSTEXIST = &H800&
  74. Global Const OFN_FILEMUSTEXIST = &H1000&
  75. Global Const OFN_CREATEPROMPT = &H2000&
  76. Global Const OFN_SHAREAWARE = &H4000&
  77. Global Const OFN_NOREADONLYRETURN = &H8000&
  78.  
  79. 'Common Dialog Control
  80. 'Action Property
  81. Global Const DLG_FILE_OPEN = 1
  82. Global Const DLG_FILE_SAVE = 2
  83. Global Const DLG_COLOR = 3
  84. Global Const DLG_FONT = 4
  85. Global Const DLG_PRINT = 5
  86. Global Const DLG_HELP = 6
  87.  
  88.