From 30adb3a8550237f85fdb52d57355c70a821e8ed0 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 3 Feb 2008 21:24:47 +0000
Subject: [PATCH]  * Variantbool must be assignable - > winbool instead of
 short

git-svn-id: trunk@10196 -
---
 packages/winunits-base/src/activex.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/winunits-base/src/activex.pp b/packages/winunits-base/src/activex.pp
index 8b0b588c91..75eae7e5ea 100644
--- a/packages/winunits-base/src/activex.pp
+++ b/packages/winunits-base/src/activex.pp
@@ -44,7 +44,7 @@ TYPE
      PROPID = ULONG;
      TPROPID= PROPID;
      PPROPID= ^PROPID;
-     VARIANT_BOOL        = short;
+     VARIANT_BOOL        = wordbool;
      _VARIANT_BOOL       = VARIANT_BOOL;
      CY			 = CURRENCY;
      DATE		 = DOUBLE;