home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / vbpg32 / samples4 / ch12 / sptypes.bas < prev   
Encoding:
BASIC Source File  |  1996-02-16  |  2.2 KB  |  101 lines
  1. Attribute VB_Name = "dwTypes"
  2. ' Desaware API Toolkit object library
  3. ' Copyright ⌐ 1996 by Desaware Inc. All Rights Reserved
  4. ' All rights reserved
  5.  
  6.  
  7. Option Explicit
  8.  
  9. #If Win32 Then
  10. Public Type RECT
  11.     left As Long
  12.     top As Long
  13.     right As Long
  14.     bottom As Long
  15. End Type
  16.  
  17. #Else
  18. Public Type RECT
  19.     left As Integer
  20.     top As Integer
  21.     right As Integer
  22.     bottom As Integer
  23. End Type
  24.  
  25. #End If 'WIN32 Types
  26.  
  27. #If Win32 Then
  28. Type DEVMODE
  29.         dmDeviceName As String * 32
  30.         dmSpecVersion As Integer
  31.         dmDriverVersion As Integer
  32.         dmSize As Integer
  33.         dmDriverExtra As Integer
  34.         dmFields As Long
  35.         dmOrientation As Integer
  36.         dmPaperSize As Integer
  37.         dmPaperLength As Integer
  38.         dmPaperWidth As Integer
  39.         dmScale As Integer
  40.         dmCopies As Integer
  41.         dmDefaultSource As Integer
  42.         dmPrintQuality As Integer
  43.         dmColor As Integer
  44.         dmDuplex As Integer
  45.         dmYResolution As Integer
  46.         dmTTOption As Integer
  47.         dmCollate As Integer
  48.         dmFormName As String * 32
  49.         dmUnusedPadding As Integer
  50.         dmBitsPerPel As Integer
  51.         dmPelsWidth As Long
  52.         dmPelsHeight As Long
  53.         dmDisplayFlags As Long
  54.         dmDisplayFrequency As Long
  55. End Type
  56.  
  57. #Else
  58. Type DEVMODE    ' 68 Bytes
  59.     dmDeviceName As String * 32
  60.     dmSpecVersion As Integer
  61.     dmDriverVersion As Integer
  62.     dmSize As Integer
  63.     dmDriverExtra As Integer
  64.     dmFields As Long
  65.     dmOrientation As Integer
  66.     dmPaperSize As Integer
  67.     dmPaperLength As Integer
  68.     dmPaperWidth As Integer
  69.     dmScale As Integer
  70.     dmCopies As Integer
  71.     dmDefaultSource As Integer
  72.     dmPrintQuality As Integer
  73.     dmColor As Integer
  74.     dmDuplex As Integer
  75.     dmYResolution As Integer
  76.     dmTTOption As Integer
  77. End Type
  78. #End If
  79.  
  80.  
  81. #If Win32 Then
  82.  
  83. Type ACL
  84.         AclRevision As Byte
  85.         Sbz1 As Byte
  86.         AclSize As Integer
  87.         AceCount As Integer
  88.         Sbz2 As Integer
  89. End Type
  90.  
  91. Type SECURITY_DESCRIPTOR
  92.         Revision As Byte
  93.         Sbz1 As Byte
  94.         Control As Long
  95.         Owner As Long
  96.         Group As Long
  97.         Sacl As ACL
  98.         Dacl As ACL
  99. End Type
  100. #End If
  101.