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

* mantis #25841

Browse Source 
- More missing DISPID_x consts
- OLECLOSE_x http://msdn.microsoft.com/en-us/library/windows/desktop/ms680623%28v=vs.85%29.aspx [^]
- OLEMISC_x http://msdn.microsoft.com/en-us/library/windows/desktop/ms678497%28v=vs.85%29.aspx [^]
- IPersistPropertyBag & IOleInPlaceObjectWindowless from OCIdl (removed useless function name comments, maybe existing ones could be cleaned too?)

git-svn-id: trunk@27085 -
This commit is contained in:
marco 2014-03-10 19:02:34 +00:00
parent a82a3ec38e
commit ed1d5aab37
1 changed files with 84 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
packages/winunits-base/src/activex.pp
View File

@ -60,6 +60,7 @@ type
BSTR = POLESTR;
TOleDate = DATE;
POleDate = ^TOleDate;
TOleBool = wordbool;
OLE_HANDLE = UINT;
OLE_XSIZE_HIMETRIC = LONG;
OLE_YSIZE_HIMETRIC = LONG;
@ -570,6 +571,45 @@ Const
DISPID_DESTRUCTOR = -7;
DISPID_COLLECT = -8;
DISPID_AUTOSIZE = -500;
DISPID_BACKCOLOR = -501;
DISPID_BACKSTYLE = -502;
DISPID_BORDERCOLOR = -503;
DISPID_BORDERSTYLE = -504;
DISPID_BORDERWIDTH = -505;
DISPID_DRAWMODE = -507;
DISPID_DRAWSTYLE = -508;
DISPID_DRAWWIDTH = -509;
DISPID_FILLCOLOR = -510;
DISPID_FILLSTYLE = -511;
DISPID_FONT = -512;
DISPID_FORECOLOR = -513;
DISPID_ENABLED = -514;
DISPID_HWND = -515;
DISPID_TABSTOP = -516;
DISPID_TEXT = -517;
DISPID_CAPTION = -518;
DISPID_BORDERVISIBLE = -519;
DISPID_APPEARANCE = -520;
DISPID_MOUSEPOINTER = -521;
DISPID_MOUSEICON = -522;
DISPID_PICTURE = -523;
DISPID_VALID = -524;
DISPID_READYSTATE = -525;
DISPID_REFRESH = -550;
DISPID_DOCLICK = -551;
DISPID_ABOUTBOX = -552;
DISPID_CLICK = -600;
DISPID_DBLCLICK = -601;
DISPID_KEYDOWN = -602;
DISPID_KEYPRESS = -603;
DISPID_KEYUP = -604;
DISPID_MOUSEDOWN = -605;
DISPID_MOUSEMOVE = -606;
DISPID_MOUSEUP = -607;
DISPID_ERROREVENT = -608;
DISPID_READYSTATECHANGE = -609;
DISPID_AMBIENT_BACKCOLOR = -701;
DISPID_AMBIENT_DISPLAYNAME = -702;
DISPID_AMBIENT_FONT = -703;
@ -1010,6 +1050,33 @@ Const
OLECMDID_UPDATEHSCROLL= $0000000000000036;
OLECMDID_FITTOSCREEN = $0000000000000037;
OLECLOSE_SAVEIFDIRTY = 0;
OLECLOSE_NOSAVE = 1;
OLECLOSE_PROMPTSAVE = 2;
OLEMISC_RECOMPOSEONRESIZE = $1;
OLEMISC_ONLYICONIC = $2;
OLEMISC_INSERTNOTREPLACE = $4;
OLEMISC_STATIC = $8;
OLEMISC_CANTLINKINSIDE = $10;
OLEMISC_CANLINKBYOLE1 = $20;
OLEMISC_ISLINKOBJECT = $40;
OLEMISC_INSIDEOUT = $80;
OLEMISC_ACTIVATEWHENVISIBLE = $100;
OLEMISC_RENDERINGISDEVICEINDEPENDENT = $200;
OLEMISC_INVISIBLEATRUNTIME = $400;
OLEMISC_ALWAYSRUN = $800;
OLEMISC_ACTSLIKEBUTTON = $1000;
OLEMISC_ACTSLIKELABEL = $2000;
OLEMISC_NOUIACTIVATE = $4000;
OLEMISC_ALIGNABLE = $8000;
OLEMISC_SIMPLEFRAME = $10000;
OLEMISC_SETCLIENTSITEFIRST = $20000;
OLEMISC_IMEMODE = $40000;
OLEMISC_IGNOREACTIVATEWHENVISIBLE = $80000;
OLEMISC_WANTSTOMENUMERGE = $100000;
OLEMISC_SUPPORTSMULTILEVELUNDO = $200000;
TYPE
TVarType = USHORT;
VARTYPE = TVarType deprecated; // not in Delphi, and clashes with VarType function
@ -3413,6 +3480,13 @@ TYPE
Function Write(pszPropName: pOleStr; CONST pVar: VARIANT):HResult;StdCall;
End;
IPersistPropertyBag = interface(IPersist)
['{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;
end;
IEnumGUID = interface(IUnknown)
['{0002E000-0000-0000-C000-000000000046}']
Function Next(celt: UINT; OUT rgelt: TGUID; pceltFetched: pUINT=nil):HResult;StdCall;
@ -3796,6 +3870,8 @@ type
cmdID : LongWord;
cmdf : LongWord;
end;
POLECMD = P_tagOLECMD;
TOLECMD = _tagOLECMD;
P_tagOLECMDTEXT = ^_tagOLECMDTEXT;
@ -3805,6 +3881,8 @@ type
cwBuf : LongWord;
rgwz : PWord;
end;
POLECMDTEXT = P_tagOLECMDTEXT;
TOLECMDTEXT = _tagOLECMDTEXT;
{ redefinitions }
function CoCreateGuid(out _para1:TGUID):HRESULT;stdcall;external 'ole32.dll' name 'CoCreateGuid';
@ -3945,6 +4023,12 @@ type
function ReactivateAndUndo : HResult;stdcall;
end;
IOleInPlaceObjectWindowless = interface(IOleInPlaceObject)
['{1C2056CC-5EF4-101B-8BC8-00AA003E3B29}']
function OnWindowMessage(msg:UInt;wParam:UINT_PTR;lParam:LONG_PTR;out plResult:LONG_PTR):HRESULT;stdcall;
function GetDropTarget(out ppDropTarget:IDropTarget):HRESULT;stdcall;
end;
IOleDocumentView = interface(IUnknown)
['{b722bcc6-4e68-101b-a2bc-00aa00404770}']
function SetInPlaceSite(ppipsite:IOleInPlaceSite):hresult; stdcall;