Changeset 285 for Include/OAIdl.ab

Timestamp:

Jul 26, 2007, 5:43:54 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

wtypes.abを追加

File:

• Include/OAIdl.ab (modified) (2 diffs)

Include/OAIdl.ab

@@ -16 +16 @@
 #define __IOleAutomationTypes_INTERFACE_DEFINED__
 
-TypeDef VARTYPE = Word ' WTypes.ab
-TypeDef VARIANT_BOOL = Integer ' WTypes.ab
-Const VARIANT_TRUE = (-1 As VARIANT_BOOL) ' WTypes.ab
-Const VARIANT_FALSE = (0 As VARIANT_BOOL) ' WTypes.ab
 TypeDef SCODE = Long
-TypeDef CY = Int64
-'Type /*Class*/ CY ' WTypes.ab
-'Public
-'   int64 As Int64
-/*
-    Function Lo() As DWord
-        Return GetDWord(VarPtr(int64))
-    End Function
-
-    Sub Lo(lo As DWord)
-        SetDWord(VarPtr(int64), lo)
-    End Sub
-
-    Function Hi() As Long
-        Return GetDWord(VarPtr(int64) + SizeOf (DWord)) As Long
-    End Function
-
-    Sub Lo(lo As Long)
-        SetDWord(VarPtr(int64) + SizeOf (DWord, lo As DWord))
-    End Sub
-*/
-'End Type'Class
-
-Const DECIMAL_NEG = (&h80 As Byte) 'WTypes.ab
-
-Type /*Class*/ DECIMAL 'WTypes.ab
-'Public
-    wReserved As Word
-    signscale As Word
-    Hi32 As DWord
-    Lo64 As QWord
-/*
-    Function scale() As Byte
-        Return GetByte(VarPtr(signscale))
-    End Function
-
-    Sub scale(s As Byte)
-        SetByte(VarPtr(signscale), s)
-    End Sub
-
-    Function sign() As Byte
-        Return GetByte(VarPtr(signscale) + SizeOf (Byte))
-    End Function
-
-    Sub sign(s As Byte)
-        SetByte(VarPtr(signscale) + SizeOf (Byte), s)
-    End Sub
-
-    Function Lo32() As DWord
-        Return GetDWord(VarPtr(Lo64) As *DWord)
-    End Function
-
-    Sub Lo32(l As DWord)
-        SetDWord(VarPtr(Lo64) As *DWord, l)
-    End Sub
-
-    Function Mid32() As DWord
-        Return GetDWord(VarPtr(Lo64) As *DWord)
-    End Function
-
-    Sub Mid32(m As DWord)
-        SetDWord(VarPtr(Lo64) As *DWord + SizeOf (DWord), m)
-    End Sub
-*/
-End Type ' Class
-
-TypeDef DATE = Double ' WTypes.ab
 
 /* interface IOleAutomationTypes */
@@ -157 +86 @@
 Const FADF_VARIANT = &h800
 Const FADF_RESERVED = &hf008
-
-Const Enum VARENUM 'WTypes.idl
-    VT_EMPTY    = 0
-    VT_NULL = 1
-    VT_I2   = 2
-    VT_I4   = 3
-    VT_R4   = 4
-    VT_R8   = 5
-    VT_CY   = 6
-    VT_DATE = 7
-    VT_BSTR = 8
-    VT_DISPATCH = 9
-    VT_ERROR    = 10
-    VT_BOOL = 11
-    VT_VARIANT  = 12
-    VT_UNKNOWN  = 13
-    VT_DECIMAL  = 14
-    VT_I1   = 16
-    VT_UI1  = 17
-    VT_UI2  = 18
-    VT_UI4  = 19
-    VT_I8   = 20
-    VT_UI8  = 21
-    VT_INT  = 22
-    VT_UINT = 23
-    VT_VOID = 24
-    VT_HRESULT  = 25
-    VT_PTR  = 26
-    VT_SAFEARRAY    = 27
-    VT_CARRAY   = 28
-    VT_USERDEFINED  = 29
-    VT_LPSTR    = 30
-    VT_LPWSTR   = 31
-    VT_RECORD   = 36
-    VT_INT_PTR  = 37
-    VT_UINT_PTR = 38
-    VT_FILETIME = 64
-    VT_BLOB = 65
-    VT_STREAM   = 66
-    VT_STORAGE  = 67
-    VT_STREAMED_OBJECT  = 68
-    VT_STORED_OBJECT    = 69
-    VT_BLOB_OBJECT  = 70
-    VT_CF   = 71
-    VT_CLSID    = 72
-    VT_VERSIONED_STREAM = 73
-    VT_BSTR_BLOB    = &hfff
-    VT_VECTOR   = &h1000
-    VT_ARRAY    = &h2000
-    VT_BYREF    = &h4000
-    VT_RESERVED = &h8000
-    VT_ILLEGAL  = &hffff
-    VT_ILLEGALMASKED    = &hfff
-    VT_TYPEMASK = &hfff
-End Enum
 
 Type /*Class*/ VARIANT