paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 08:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ some types and constants

Browse Source 
git-svn-id: trunk@4538 -
This commit is contained in:
florian 2006-09-02 20:35:44 +00:00
parent 30161f996c
commit b7778a517e
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/extra/winunits/activex.pp
View File

@ -451,6 +451,12 @@ Const
DISPID_DESTRUCTOR = -7; DISPID_DESTRUCTOR = -7;
DISPID_COLLECT = -8; DISPID_COLLECT = -8;
DISPATCH_METHOD = $1;
DISPATCH_PROPERTYGET = $2;
DISPATCH_PROPERTYPUT = $4;
DISPATCH_PROPERTYPUTREF = $8;
// The range -500 through -999 is reserved for Controls // The range -500 through -999 is reserved for Controls
// The range 0x80010000 through 0x8001FFFF is reserved for Controls // The range 0x80010000 through 0x8001FFFF is reserved for Controls
// The range -5000 through -5499 is reserved for ActiveX Accessability // The range -5000 through -5499 is reserved for ActiveX Accessability
@ -1277,6 +1283,18 @@ TYPE
SAFEARRAYBOUND = tagSAFEARRAYBOUND; SAFEARRAYBOUND = tagSAFEARRAYBOUND;
LPSAFEARRAYBOUND = ^SAFEARRAYBOUND; LPSAFEARRAYBOUND = ^SAFEARRAYBOUND;
tagSAFEARRAY = record
cDims: USHORT;
fFeatures: USHORT;
cbElements: ULONG;
cLocks: ULONG;
pvData: PVOID;
rgsabound: array[0..0] of SAFEARRAYBOUND;
end;
TSafeArray = tagSAFEARRAY;
SAFEARRAY = TSafeArray;
PSafeArray = ^TSafeArray;
// additional interface information about the incoming call // additional interface information about the incoming call
tagINTERFACEINFO = Record tagINTERFACEINFO = Record
Unk : Pointer {IUnknown}; // the pointer to the object Unk : Pointer {IUnknown}; // the pointer to the object