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

* some minor Delphi compat additions from 14802

Browse Source 
git-svn-id: trunk@13857 -
This commit is contained in:
marco 2009-10-14 20:29:54 +00:00
parent ea85a7ec11
commit 6b76d64d3c
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,6 +53,8 @@ type
CY = CURRENCY; CY = CURRENCY;
DATE = DOUBLE; DATE = DOUBLE;
BSTR = POLESTR; BSTR = POLESTR;
TOleDate = DATE;
POleDate = ^TOleDate;
CONST CONST
GUID_NULL : TGUID = '{00000000-0000-0000-0000-000000000000}'; GUID_NULL : TGUID = '{00000000-0000-0000-0000-000000000000}';
@ -1201,6 +1203,9 @@ TYPE
End; End;
TBind_Opts = tagBIND_OPTS; TBind_Opts = tagBIND_OPTS;
PBind_Opts = ^TBind_Opts; PBind_Opts = ^TBind_Opts;
TBindOpts = tagBIND_OPTS;
PBindOpts = ^TBindOpts;
Bind_Opts = tagBind_opts;
tagBIND_OPTS2_CPP = Record tagBIND_OPTS2_CPP = Record
dwTrackFlags, dwTrackFlags,
@ -1560,6 +1565,7 @@ TYPE
TYPEATTR = tagTYPEATTR; TYPEATTR = tagTYPEATTR;
LPTYPEATTR = ^TYPEATTR; LPTYPEATTR = ^TYPEATTR;
PTYPEAttr = LPTYPEATTR;
tagTLIBATTR = Record tagTLIBATTR = Record
GUID : guid; GUID : guid;