home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l408 / 2.img / EXAMPLES.EXE / EXAMPLES / MHCALLB / MHCALLB.GBL < prev    next >
Encoding:
Text File  |  1992-10-23  |  1.4 KB  |  38 lines
  1. Declare Function MhEnumChildWindows Lib "mhcb200.vbx" (ByVal hwnd As Integer, ByVal elements As Integer, hwndarray%) As Integer
  2.  
  3. Declare Function MhEnumClipboardFormats Lib "mhcb200.vbx" (ByVal hwnd As Integer, ByVal elements As Integer, formatarray%) As Integer
  4.     Global Const CF_TEXT = 1
  5.     Global Const CF_BITMAP = 2
  6.     Global Const CF_METAFILEPICT = 3
  7.     Global Const SYLK = 4
  8.     Global Const DIF = 5
  9.     Global Const TIFF = 6
  10.     Global Const CF_OEMTEXT = 7
  11.     Global Const CF_DIB = 8
  12.     Global Const PALETTE = 9
  13.     Global Const PENDATA = 10
  14.     Global Const RIFF = 11
  15.     Global Const WAVE = 12
  16.  
  17.     Type MhLogFontType
  18.             FontHeight As Integer
  19.             FontWidth As Integer
  20.             FontEscapement As Integer
  21.             FontOrientation As Integer
  22.             FontWeight As Integer
  23.             FontItalic As String * 1
  24.             FontUnderline As String * 1
  25.             FontStrikeout As String * 1
  26.             FontCharSet As String * 1
  27.             FontOutPrecision As String * 1
  28.             FontClipPrecision As String * 1
  29.             FontQuality As String * 1
  30.             FontPitchAndFamily As String * 1
  31.             FontFaceName As String * 32
  32.         End Type
  33.  
  34. Global LOGFONT(100) As MhLogFontType
  35. Declare Function MhEnumFonts Lib "mhcb200.vbx" (ByVal hdc As Integer, ByVal elements As Integer, hwndarray As MhLogFontType) As Integer
  36.  
  37.  
  38.