summaryrefslogtreecommitdiff
path: root/packages/winunits-base/src/activex.pp
diff options
context:
space:
mode:
Diffstat (limited to 'packages/winunits-base/src/activex.pp')
-rw-r--r--packages/winunits-base/src/activex.pp102
1 files changed, 47 insertions, 55 deletions
diff --git a/packages/winunits-base/src/activex.pp b/packages/winunits-base/src/activex.pp
index 942f4edaf7..e981acb46d 100644
--- a/packages/winunits-base/src/activex.pp
+++ b/packages/winunits-base/src/activex.pp
@@ -665,6 +665,8 @@ Const
DISPID_AMBIENT_USERAGENT = -5513;
DISPID_SECURITYDOMAIN = -5514;
+ MEMBERID_NIL = -1;
+
DISPATCH_METHOD = $1;
DISPATCH_PROPERTYGET = $2;
DISPATCH_PROPERTYPUT = $4;
@@ -1104,6 +1106,9 @@ Const
OLERENDER_FORMAT = 2;
OLERENDER_ASIS = 3;
+ OLEVERBATTRIB_NEVERDIRTIES = 1;
+ OLEVERBATTRIB_ONCONTAINERMENU = 2;
+
XFORMCOORDS_POSITION = $1;
XFORMCOORDS_SIZE = $2;
XFORMCOORDS_HIMETRICTOCONTAINER = $4;
@@ -1842,6 +1847,7 @@ TYPE
StorageLayout = tagStorageLayout;
+ PtagSTATDATA = ^tagSTATDATA;
tagSTATDATA = Record
// field used by:
FORMATETC : Tformatetc; // EnumAdvise, EnumData (cache), EnumFormats
@@ -1849,6 +1855,8 @@ TYPE
padvSink : Pointer {IAdviseSink}; // EnumAdvise
dwConnection: DWord; // EnumAdvise
End;
+ PStatData = PtagSTATDATA;
+ TStatData = tagSTATDATA;
STATDATA = TagStatData;
LPStatData = ^StatData;
@@ -1867,8 +1875,20 @@ TYPE
End;
TYPEDESC = tagTYPEDESC;
-
-
+ PtagOBJECTDESCRIPTOR = ^tagOBJECTDESCRIPTOR;
+ tagOBJECTDESCRIPTOR = packed record
+ cbSize : LongWord;
+ clsid : TCLSID;
+ dwDrawAspect : LongWord;
+ sizel : SIZEL;
+ pointl : POINTL;
+ dwStatus : LongWord;
+ dwFullUserTypeName : LongWord;
+ dwSrcOfCopy : LongWord;
+ end;
+ POBJECTDESCRIPTOR = PtagOBJECTDESCRIPTOR;
+ TOBJECTDESCRIPTOR = tagOBJECTDESCRIPTOR;
+ OBJECTDESCRIPTOR = TOBJECTDESCRIPTOR;
tagARRAYDESC = Record
tdescElem : TYPEDESC; // element type
@@ -2579,23 +2599,21 @@ TYPE
['{7FD52380-4E07-101B-AE2D-08002B2EC713}']
Function IsDirty:HResult;StdCall;
Function Load(pstm:IStream):HResult;StdCall;
- Function Save(pstm:IStream;fClearDirty:Integer):HResult;StdCall;
+ Function Save(pstm:IStream;fClearDirty:Bool):HResult;StdCall;
Function GetSizeMax(out pCbSize:_ULARGE_INTEGER):HResult;StdCall;
Function InitNew:HResult;StdCall;
End;
- // IPersistMemory :
IPersistMemory = interface(IPersist)
['{BD1AE5E0-A6AE-11CE-BD37-504200C10000}']
function IsDirty:HResult;StdCall;
function Load(var pMem:pointer;cbSize:LongWord):HResult;StdCall;
- function Save(out pMem:pointer;fClearDirty:Integer;cbSize:LongWord):HResult;StdCall;
+ function Save(out pMem:pointer;fClearDirty:Bool;cbSize:LongWord):HResult;StdCall;
function GetSizeMax(out pCbSize:LongWord):HResult;StdCall;
function InitNew:HResult;StdCall;
end;
-
PIMoniker = ^IMoniker;
IMoniker = Interface (IPersistStream)
['{0000000f-0000-0000-C000-000000000046}']
@@ -3536,7 +3554,7 @@ TYPE
['{37D84F60-42CB-11CE-8135-00AA004BB851}']
function InitNew:HResult;stdcall;
function Load(pPropBag:IPropertyBag;pErrorLog:IErrorLog):HResult;stdcall;
- function Save(pPropBag:IPropertyBag;fClearDirty:Integer;fSaveAllProperties:Integer):HResult;stdcall;
+ function Save(pPropBag:IPropertyBag;fClearDirty:Bool;fSaveAllProperties:Bool):HResult;stdcall;
end;
IEnumGUID = interface(IUnknown)
@@ -3620,31 +3638,26 @@ type
function GetMultiTypeInfoCount(out pcti:LongWord):HResult; StdCall;
function GetInfoOfIndex(iti:LongWord;dwFlags:LongWord;out pptiCoClass:ITypeInfo;out pdwTIFlags:LongWord;out pcdispidReserved:LongWord;out piidPrimary:GUID;out piidSource:GUID):HResult; StdCall;
end;
- // IOleControl :
IOleControl = interface(IUnknown)
['{B196B288-BAB4-101A-B69C-00AA00341D07}']
function GetControlInfo(var pCI:tagCONTROLINFO):HRESULT;stdcall;
function OnMnemonic(var pMsg:tagMSG):HRESULT;stdcall;
function OnAmbientPropertyChange(dispID:Integer):HRESULT;stdcall;
- function FreezeEvents(bFreeze:Integer):HRESULT;stdcall;
+ function FreezeEvents(bFreeze:Bool):HRESULT;stdcall;
end;
-// IOleControlSite :
-
IOleControlSite = interface(IUnknown)
['{B196B289-BAB4-101A-B69C-00AA00341D07}']
function OnControlInfoChanged:HRESULT;stdcall;
- function LockInPlaceActive(fLock:Integer):HRESULT;stdcall;
+ function LockInPlaceActive(fLock:Bool):HRESULT;stdcall;
function GetExtendedControl(out ppDisp:IDispatch):HRESULT;stdcall;
function TransformCoords(var pPtlHimetric:_POINTL;var pPtfContainer:tagPOINTF;dwFlags:LongWord):HRESULT;stdcall;
function TranslateAccelerator(var pMsg:tagMSG;grfModifiers:LongWord):HRESULT;stdcall;
- function OnFocus(fGotFocus:Integer):HRESULT;stdcall;
+ function OnFocus(fGotFocus:Bool):HRESULT;stdcall;
function ShowPropertyFrame:HRESULT;stdcall;
end;
-// IPerPropertyBrowsing :
-
IPerPropertyBrowsing = interface(IUnknown)
['{376BD3AA-3845-101B-84ED-08002B2EC713}']
function GetDisplayString(dispID:Integer;out pBstr:WideString):HRESULT;stdcall;
@@ -3653,14 +3666,12 @@ type
function GetPredefinedValue(dispID:Integer;dwCookie:LongWord;out pVarOut:OleVariant):HRESULT;stdcall;
end;
-// IPropertyPage :
-
IPropertyPageSite = interface;
IPropertyPage = interface(IUnknown)
['{B196B28D-BAB4-101A-B69C-00AA00341D07}']
function SetPageSite(pPageSite:IPropertyPageSite):HRESULT;stdcall;
- function Activate(hWndParent:wireHWND;var pRect:TRECT;bModal:Integer):HRESULT;stdcall;
+ function Activate(hWndParent:wireHWND;var pRect:TRECT;bModal:Bool):HRESULT;stdcall;
function Deactivate:HRESULT;stdcall;
function GetPageInfo(out pPageInfo:tagPROPPAGEINFO):HRESULT;stdcall;
function SetObjects(cObjects:LongWord;var ppUnk:IUnknown):HRESULT;stdcall;
@@ -3672,8 +3683,6 @@ type
function TranslateAccelerator(var pMsg:tagMSG):HRESULT;stdcall;
end;
-// IPropertyPageSite :
-
IPropertyPageSite = interface(IUnknown)
['{B196B28C-BAB4-101A-B69C-00AA00341D07}']
function OnStatusChange(dwFlags:LongWord):HRESULT;stdcall;
@@ -3682,52 +3691,42 @@ type
function TranslateAccelerator(var pMsg:tagMSG):HRESULT;stdcall;
end;
-// IPropertyPage2 :
-
IPropertyPage2 = interface(IPropertyPage)
['{01E44665-24AC-101B-84ED-08002B2EC713}']
function EditProperty(dispID:Integer):HRESULT;stdcall;
end;
-// IPropertyNotifySink :
-
IPropertyNotifySink = interface(IUnknown)
['{9BFBBC02-EFF1-101A-84ED-00AA00341D07}']
function OnChanged(dispID:Integer):HRESULT;stdcall;
function OnRequestEdit(dispID:Integer):HRESULT;stdcall;
end;
- // ISpecifyPropertyPages :
-
ISpecifyPropertyPages = interface(IUnknown)
['{B196B28B-BAB4-101A-B69C-00AA00341D07}']
function GetPages(out pPages:tagCAUUID):HRESULT;stdcall;
end;
-// ISimpleFrameSite :
-
ISimpleFrameSite = interface(IUnknown)
['{742B0E01-14E6-101B-914E-00AA00300CAB}']
function PreMessageFilter(hwnd:wireHWND;msg:UInt;wp:UINT_PTR;lp:LONG_PTR;out plResult:LONG_PTR;out pdwCookie:LongWord):HRESULT;stdcall;
function PostMessageFilter(hwnd:wireHWND;msg:UInt;wp:UINT_PTR;lp:LONG_PTR;out plResult:LONG_PTR;dwCookie:LongWord):HRESULT;stdcall;
end;
-// IFont :
-
IFont = interface(IUnknown)
['{BEF6E002-A874-101A-8BBA-00AA00300CAB}']
function get_Name(out pName:WideString):HRESULT;stdcall;
function put_Name(name:WideString):HRESULT;stdcall;
function get_Size(out pSize:Currency):HRESULT;stdcall;
function put_Size(size:Currency):HRESULT;stdcall;
- function get_Bold(out pBold:Integer):HRESULT;stdcall;
- function put_Bold(bold:Integer):HRESULT;stdcall;
- function get_Italic(out pItalic:Integer):HRESULT;stdcall;
- function put_Italic(italic:Integer):HRESULT;stdcall;
- function get_Underline(out pUnderline:Integer):HRESULT;stdcall;
- function put_Underline(underline:Integer):HRESULT;stdcall;
- function get_Strikethrough(out pStrikethrough:Integer):HRESULT;stdcall;
- function put_Strikethrough(strikethrough:Integer):HRESULT;stdcall;
+ function get_Bold(out pBold:Bool):HRESULT;stdcall;
+ function put_Bold(bold:Bool):HRESULT;stdcall;
+ function get_Italic(out pItalic:Bool):HRESULT;stdcall;
+ function put_Italic(italic:Bool):HRESULT;stdcall;
+ function get_Underline(out pUnderline:Bool):HRESULT;stdcall;
+ function put_Underline(underline:Bool):HRESULT;stdcall;
+ function get_Strikethrough(out pStrikethrough:Bool):HRESULT;stdcall;
+ function put_Strikethrough(strikethrough:Bool):HRESULT;stdcall;
function get_Weight(out pWeight:Smallint):HRESULT;stdcall;
function put_Weight(weight:Smallint):HRESULT;stdcall;
function get_Charset(out pCharset:Smallint):HRESULT;stdcall;
@@ -3742,8 +3741,6 @@ type
function SetHdc(hDC:wireHDC):HRESULT;stdcall;
end;
-// IPicture :
-
IPicture = interface(IUnknown)
['{7BF80980-BF32-101A-8BBB-00AA00300CAB}']
function get_Handle(out pHandle:OLE_HANDLE):HRESULT;stdcall;
@@ -3755,10 +3752,10 @@ type
function set_hPal(hPal:OLE_HANDLE):HRESULT;stdcall;
function get_CurDC(out phDC:wireHDC):HRESULT;stdcall;
function SelectPicture(hDCIn:wireHDC;out phDCOut:wireHDC;out phBmpOut:OLE_HANDLE):HRESULT;stdcall;
- function get_KeepOriginalFormat(out pKeep:Integer):HRESULT;stdcall;
- function put_KeepOriginalFormat(keep:Integer):HRESULT;stdcall;
+ function get_KeepOriginalFormat(out pKeep:Bool):HRESULT;stdcall;
+ function put_KeepOriginalFormat(keep:Bool):HRESULT;stdcall;
function PictureChanged:HRESULT;stdcall;
- function SaveAsFile(pStream:IStream;fSaveMemCopy:Integer;out pCbSize:Integer):HRESULT;stdcall;
+ function SaveAsFile(pStream:IStream;fSaveMemCopy:Bool;out pCbSize:Integer):HRESULT;stdcall;
function get_Attributes(out pDwAttr:LongWord):HRESULT;stdcall;
end;
@@ -3780,15 +3777,10 @@ type
function get_Attributes(out pDwAttr:LongWord):HRESULT;stdcall;
end;
-
-// IFontDisp :
-
IFontDisp = interface(IDispatch)
['{BEF6E003-A874-101A-8BBA-00AA00300CAB}']
end;
-// IPictureDisp :
-
IPictureDisp = interface(IDispatch)
['{7BF80981-BF32-101A-8BBB-00AA00300CAB}']
end;
@@ -3979,8 +3971,8 @@ type
IOleInPlaceSiteEx = interface(IOleInPlaceSite)
['{9C2CAD80-3424-11CF-B670-00AA004CD6D8}']
- function OnInPlaceActivateEx(out pfNoRedraw:Integer;dwFlags:LongWord):HResult;stdcall;
- function OnInPlaceDeactivateEx(fNoRedraw:Integer):HResult;stdcall;
+ function OnInPlaceActivateEx(out pfNoRedraw:Bool;dwFlags:LongWord):HResult;stdcall;
+ function OnInPlaceDeactivateEx(fNoRedraw:Bool):HResult;stdcall;
function RequestUIActivate:HResult;stdcall;
end;
@@ -3988,13 +3980,13 @@ type
['{922EADA0-3424-11CF-B670-00AA004CD6D8}']
function CanWindowlessActivate:HResult;stdcall;
function GetCapture:HResult;stdcall;
- function SetCapture(fCapture:Integer):HResult;stdcall;
+ function SetCapture(fCapture:Bool):HResult;stdcall;
function GetFocus:HResult;stdcall;
- function SetFocus(fFocus:Integer):HResult;stdcall;
+ function SetFocus(fFocus:Bool):HResult;stdcall;
function GetDC(var pRect:tagRECT;grfFlags:LongWord;out phDC:wireHDC):HResult;stdcall;
function ReleaseDC(hDC:wireHDC):HResult;stdcall;
- function InvalidateRect(var pRect:tagRECT;fErase:Integer):HResult;stdcall;
- function InvalidateRgn(hRGN:wireHRGN;fErase:Integer):HResult;stdcall;
+ function InvalidateRect(var pRect:tagRECT;fErase:Bool):HResult;stdcall;
+ function InvalidateRgn(hRGN:wireHRGN;fErase:Bool):HResult;stdcall;
function ScrollRect(dx:SYSINT;dy:SYSINT;var pRectScroll:tagRECT;var pRectClip:tagRECT):HResult;stdcall;
function AdjustRect(var prc:tagRECT):HResult;stdcall;
function OnDefWindowMessage(msg:UInt;wParam:UINT_PTR;lParam:LONG_PTR;out plResult:LONG_PTR):HResult;stdcall;
@@ -4070,7 +4062,7 @@ type
function Uncache(dwConnection:LongWord):HRESULT;stdcall;
function EnumCache(out ppenumSTATDATA:IEnumSTATDATA):HRESULT;stdcall;
function InitCache(pDataObject:IDataObject):HRESULT;stdcall;
- function SetData(var pFormatetc:tagFORMATETC;var pmedium:wireSTGMEDIUM;fRelease:Integer):HRESULT;stdcall;
+ function SetData(var pFormatetc:tagFORMATETC;var pmedium:wireSTGMEDIUM;fRelease:Bool):HRESULT;stdcall;
end;
IOleCache2 = interface(IOleCache)
View Lorry Controller Status