annotate dwt/ole/win32/OleControlSite.d @ 212:ab60f3309436

reverted the char[] to String and use the an alias.
author Frank Benoit <benoit@tionex.de>
date Mon, 05 May 2008 00:12:38 +0200
parents 07e8963537b7
children fd9c62a2998e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
1 /*******************************************************************************
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
2 * Copyright (c) 2000, 2007 IBM Corporation and others.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
3 * All rights reserved. This program and the accompanying materials
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
4 * are made available under the terms of the Eclipse Public License v1.0
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
5 * which accompanies this distribution, and is available at
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
6 * http://www.eclipse.org/legal/epl-v10.html
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
7 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
8 * Contributors:
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
9 * IBM Corporation - initial API and implementation
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
10 * Port to the D programming language:
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
11 * Frank Benoit <benoit@tionex.de>
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
12 *******************************************************************************/
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
13 module dwt.ole.win32.OleControlSite;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
14
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
15 import dwt.DWT;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
16 import dwt.DWTError;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
17 import dwt.DWTException;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
18 import dwt.graphics.Color;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
19 import dwt.graphics.Font;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
20 import dwt.graphics.FontData;
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
21 import dwt.graphics.Device;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
22 import dwt.internal.ole.win32.COM;
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
23 import dwt.internal.ole.win32.COMTYPES;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
24 import dwt.internal.ole.win32.extras;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
25 import dwt.internal.ole.win32.ifs;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
26 import dwt.internal.ole.win32.OAIDL;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
27 import dwt.internal.ole.win32.OBJIDL;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
28 import dwt.internal.win32.OS;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
29 import dwt.widgets.Composite;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
30 import dwt.widgets.Event;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
31
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
32 import dwt.ole.win32.OleClientSite;
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
33 import dwt.ole.win32.OleEventSink;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
34 import dwt.ole.win32.OlePropertyChangeSink;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
35 import dwt.ole.win32.OleListener;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
36 import dwt.ole.win32.OleAutomation;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
37 import dwt.ole.win32.Variant;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
38 import dwt.ole.win32.OLE;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
39
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
40 import dwt.dwthelper.utils;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
41
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
42 /**
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
43 * OleControlSite provides a site to manage an embedded ActiveX Control within a container.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
44 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
45 * <p>In addition to the behaviour provided by OleClientSite, this object provides the following:
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
46 * <ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
47 * <li>events from the ActiveX control
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
48 * <li>notification of property changes from the ActiveX control
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
49 * <li>simplified access to well known properties of the ActiveX Control (e.g. font, background color)
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
50 * <li>expose ambient properties of the container to the ActiveX Control
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
51 * </ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
52 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
53 * <p>This object implements the OLE Interfaces IOleControlSite, IDispatch, and IPropertyNotifySink.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
54 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
55 * <p>Note that although this class is a subclass of <code>Composite</code>,
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
56 * it does not make sense to add <code>Control</code> children to it,
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
57 * or set a layout on it.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
58 * </p><p>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
59 * <dl>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
60 * <dt><b>Styles</b> <dd>BORDER
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
61 * <dt><b>Events</b> <dd>Dispose, Move, Resize
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
62 * </dl>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
63 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
64 */
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
65 public class OleControlSite : OleClientSite
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
66 {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
67 // interfaces for this container
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
68 private _IOleControlSiteImpl iOleControlSite;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
69 private _IDispatchImpl iDispatch;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
70
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
71 // supporting Property Change attributes
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
72 private OlePropertyChangeSink olePropertyChangeSink;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
73
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
74 // supporting Event Sink attributes
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
75 private OleEventSink[] oleEventSink;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
76 private GUID*[] oleEventSinkGUID;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
77 private IUnknown[] oleEventSinkIUnknown;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
78
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
79 // supporting information for the Control COM object
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
80 private CONTROLINFO* currentControlInfo;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
81 private int[] sitePropertyIds;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
82 private Variant[] sitePropertyValues;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
83
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
84 // work around for IE destroying the caret
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
85 static int SWT_RESTORECARET;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
86
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
87 /**
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
88 * Create an OleControlSite child widget using style bits
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
89 * to select a particular look or set of properties.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
90 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
91 * @param parent a composite widget; must be an OleFrame
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
92 * @param style the bitwise OR'ing of widget styles
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
93 * @param progId the unique program identifier which has been registered for this ActiveX Control;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
94 * the value of the ProgID key or the value of the VersionIndependentProgID key specified
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
95 * in the registry for this Control (for example, the VersionIndependentProgID for
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
96 * Internet Explorer is Shell.Explorer)
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
97 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
98 *@exception IllegalArgumentException <ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
99 * <li>ERROR_NULL_ARGUMENT when the parent is null
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
100 *</ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
101 * @exception DWTException <ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
102 * <li>ERROR_THREAD_INVALID_ACCESS when called from the wrong thread
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
103 * <li>ERROR_INVALID_CLASSID when the progId does not map to a registered CLSID
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
104 * <li>ERROR_CANNOT_CREATE_OBJECT when failed to create OLE Object
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
105 * <li>ERROR_CANNOT_ACCESS_CLASSFACTORY when Class Factory could not be found
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
106 * <li>ERROR_CANNOT_CREATE_LICENSED_OBJECT when failed to create a licensed OLE Object
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
107 * </ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
108 */
212
ab60f3309436 reverted the char[] to String and use the an alias.
Frank Benoit <benoit@tionex.de>
parents: 128
diff changeset
109 public this(Composite parent, int style, String progId) {
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
110 super(parent, style);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
111 try {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
112
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
113 // check for licensing
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
114 appClsid = getClassID(progId);
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
115 if (appClsid is null) OLE.error(__FILE__, __LINE__, OLE.ERROR_INVALID_CLASSID);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
116
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
117 BSTR licinfo = getLicenseInfo(appClsid);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
118 if (licinfo is null) {
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
119
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
120 // Open a storage object
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
121 tempStorage = createTempStorage();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
122
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
123 // Create ole object with storage object
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
124 HRESULT result = COM.OleCreate(appClsid, &COM.IIDIUnknown, COM.OLERENDER_DRAW, null, null, tempStorage, cast(void**)&objIUnknown);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
125 if (result !is COM.S_OK)
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
126 OLE.error(__FILE__, __LINE__, OLE.ERROR_CANNOT_CREATE_OBJECT, result);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
127
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
128 } else {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
129 // Prepare the ClassFactory
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
130 try {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
131 IClassFactory2 classFactory;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
132 HRESULT result = COM.CoGetClassObject(appClsid, COM.CLSCTX_INPROC_HANDLER | COM.CLSCTX_INPROC_SERVER, null, &COM.IIDIClassFactory2, cast(void**)&classFactory);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
133 if (result !is COM.S_OK) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
134 OLE.error(__FILE__, __LINE__, OLE.ERROR_CANNOT_ACCESS_CLASSFACTORY, result);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
135 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
136 // Create Com Object
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
137 result = classFactory.CreateInstanceLic(null, null, &COM.IIDIUnknown, licinfo, cast(void**)&objIUnknown);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
138 classFactory.Release();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
139 if (result !is COM.S_OK)
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
140 OLE.error(__FILE__, __LINE__, OLE.ERROR_CANNOT_CREATE_LICENSED_OBJECT, result);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
141 } finally {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
142 COM.SysFreeString(licinfo);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
143 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
144
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
145 // Prepare a storage medium
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
146 IPersistStorage persist;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
147 if (objIUnknown.QueryInterface(&COM.IIDIPersistStorage, cast(void**)&persist) is COM.S_OK) {
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
148 tempStorage = createTempStorage();
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
149 persist.InitNew(tempStorage);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
150 persist.Release();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
151 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
152 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
153
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
154 // Init sinks
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
155 addObjectReferences();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
156
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
157 // Init site properties
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
158 setSiteProperty(COM.DISPID_AMBIENT_USERMODE, new Variant(true));
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
159 setSiteProperty(COM.DISPID_AMBIENT_UIDEAD, new Variant(false));
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
160
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
161 if (COM.OleRun(objIUnknown) is OLE.S_OK) state= STATE_RUNNING;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
162
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
163 } catch (DWTError e) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
164 dispose();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
165 disposeCOMInterfaces();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
166 throw e;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
167 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
168 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
169 /**
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
170 * Adds the listener to receive events.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
171 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
172 * @param eventID the id of the event
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
173 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
174 * @param listener the listener
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
175 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
176 * @exception IllegalArgumentException <ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
177 * <li>ERROR_NULL_ARGUMENT when listener is null</li>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
178 * </ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
179 */
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
180 public void addEventListener(int eventID, OleListener listener) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
181 if (listener is null) OLE.error (__FILE__, __LINE__, DWT.ERROR_NULL_ARGUMENT);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
182 GUID* riid = getDefaultEventSinkGUID(objIUnknown);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
183 if (riid !is null) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
184 addEventListener(objIUnknown, riid, eventID, listener);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
185 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
186 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
187
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
188
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
189 static GUID* getDefaultEventSinkGUID(IUnknown unknown) {
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
190 // get Event Sink I/F from IProvideClassInfo2
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
191 IProvideClassInfo2 pci2;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
192 if (unknown.QueryInterface(&COM.IIDIProvideClassInfo2, cast(void**)&pci2) is COM.S_OK) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
193 GUID* riid = new GUID();
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
194 HRESULT result = pci2.GetGUID(COM.GUIDKIND_DEFAULT_SOURCE_DISP_IID, riid);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
195 pci2.Release();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
196 if (result is COM.S_OK) return riid;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
197 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
198
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
199 // get Event Sink I/F from IProvideClassInfo
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
200 IProvideClassInfo pci;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
201 if (unknown.QueryInterface(&COM.IIDIProvideClassInfo, cast(void**)&pci) is COM.S_OK) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
202 ITypeInfo classInfo;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
203 ITypeInfo eventInfo;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
204 HRESULT result = pci.GetClassInfo(&classInfo);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
205 pci.Release();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
206
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
207 if (result is COM.S_OK && classInfo !is null) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
208 TYPEATTR* typeAttribute;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
209 result = classInfo.GetTypeAttr(&typeAttribute);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
210 if (result is COM.S_OK && typeAttribute !is null) {
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
211 int implMask = COM.IMPLTYPEFLAG_FDEFAULT | COM.IMPLTYPEFLAG_FSOURCE | COM.IMPLTYPEFLAG_FRESTRICTED;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
212 int implBits = COM.IMPLTYPEFLAG_FDEFAULT | COM.IMPLTYPEFLAG_FSOURCE;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
213
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
214 for (uint i = 0; i < typeAttribute.cImplTypes; i++) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
215 int pImplTypeFlags;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
216 if (classInfo.GetImplTypeFlags(i, &pImplTypeFlags) is COM.S_OK) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
217 if ((pImplTypeFlags & implMask) is implBits) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
218 uint pRefType;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
219 if (classInfo.GetRefTypeOfImplType(i, &pRefType) is COM.S_OK) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
220 classInfo.GetRefTypeInfo(pRefType, &eventInfo);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
221 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
222 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
223 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
224 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
225 classInfo.ReleaseTypeAttr(typeAttribute);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
226 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
227 classInfo.Release();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
228
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
229 if (eventInfo !is null) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
230 TYPEATTR* ppTypeAttr;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
231 result = eventInfo.GetTypeAttr(&ppTypeAttr);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
232 GUID* riid = null;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
233 if (result is COM.S_OK && ppTypeAttr !is null) {
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
234 riid = new GUID();
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
235 *riid = ppTypeAttr.guid;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
236 eventInfo.ReleaseTypeAttr(ppTypeAttr);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
237 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
238 eventInfo.Release();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
239 return riid;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
240 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
241 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
242 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
243 return null;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
244 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
245
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
246 /**
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
247 * Adds the listener to receive events.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
248 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
249 * @since 2.0
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
250 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
251 * @param automation the automation object that provides the event notification
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
252 * @param eventID the id of the event
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
253 * @param listener the listener
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
254 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
255 * @exception IllegalArgumentException <ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
256 * <li>ERROR_NULL_ARGUMENT when listener is null</li>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
257 * </ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
258 */
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
259 public void addEventListener(OleAutomation automation, int eventID, OleListener listener) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
260 if (listener is null || automation is null) OLE.error (__FILE__, __LINE__, DWT.ERROR_NULL_ARGUMENT);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
261 IUnknown unknown = automation.getAddress();
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
262 GUID* riid = getDefaultEventSinkGUID(unknown);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
263 if (riid !is null) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
264 addEventListener(unknown, riid, eventID, listener);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
265 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
266
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
267 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
268 /**
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
269 * Adds the listener to receive events.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
270 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
271 * @since 3.2
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
272 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
273 * @param automation the automation object that provides the event notification
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
274 * @param eventSinkId the GUID of the event sink
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
275 * @param eventID the id of the event
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
276 * @param listener the listener
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
277 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
278 * @exception IllegalArgumentException <ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
279 * <li>ERROR_NULL_ARGUMENT when listener is null</li>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
280 * </ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
281 */
212
ab60f3309436 reverted the char[] to String and use the an alias.
Frank Benoit <benoit@tionex.de>
parents: 128
diff changeset
282 public void addEventListener(OleAutomation automation, String eventSinkId, int eventID, OleListener listener) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
283 if (listener is null || automation is null || eventSinkId is null) OLE.error (__FILE__, __LINE__, DWT.ERROR_NULL_ARGUMENT);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
284 auto address = automation.getAddress();
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
285 if (address is null) return;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
286 wchar[] buffer = StrToWCHARs(0,eventSinkId,true);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
287 GUID* guid = new GUID();
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
288 if (COM.IIDFromString(buffer.ptr, guid) !is COM.S_OK) return;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
289 addEventListener(address, guid, eventID, listener);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
290 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
291
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
292 void addEventListener(IUnknown iunknown, GUID* guid, int eventID, OleListener listener) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
293 if (listener is null || iunknown is null || guid is null) OLE.error (__FILE__, __LINE__, DWT.ERROR_NULL_ARGUMENT);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
294 // have we connected to this kind of event sink before?
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
295 int index = -1;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
296 for (int i = 0; i < oleEventSinkGUID.length; i++) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
297 if (COM.IsEqualGUID(oleEventSinkGUID[i], guid)) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
298 if (iunknown is oleEventSinkIUnknown[i]) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
299 index = i;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
300 break;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
301 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
302 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
303 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
304 if (index !is -1) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
305 oleEventSink[index].addListener(eventID, listener);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
306 } else {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
307 int oldLength = oleEventSink.length;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
308
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
309 oleEventSink ~= new OleEventSink(this, iunknown, guid);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
310 oleEventSinkGUID ~= guid;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
311 oleEventSinkIUnknown ~= iunknown;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
312
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
313 oleEventSink[oldLength].AddRef();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
314 oleEventSink[oldLength].connect();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
315 oleEventSink[oldLength].addListener(eventID, listener);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
316
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
317 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
318 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
319 protected void addObjectReferences() {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
320
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
321 super.addObjectReferences();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
322
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
323 // Get property change notification from control
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
324 connectPropertyChangeSink();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
325
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
326 // Get access to the Control object
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
327 IOleControl objIOleControl;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
328 if (objIUnknown.QueryInterface(&COM.IIDIOleControl, cast(void**)&objIOleControl) is COM.S_OK) {
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
329 // ask the control for its info in case users
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
330 // need to act on it
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
331 currentControlInfo = new CONTROLINFO();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
332 objIOleControl.GetControlInfo(currentControlInfo);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
333 objIOleControl.Release();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
334 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
335 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
336 /**
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
337 * Adds the listener to receive events.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
338 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
339 * @param propertyID the identifier of the property
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
340 * @param listener the listener
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
341 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
342 * @exception IllegalArgumentException <ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
343 * <li>ERROR_NULL_ARGUMENT when listener is null</li>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
344 * </ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
345 */
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
346 public void addPropertyListener(int propertyID, OleListener listener) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
347 if (listener is null) DWT.error (__FILE__, __LINE__, DWT.ERROR_NULL_ARGUMENT);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
348 olePropertyChangeSink.addListener(propertyID, listener);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
349 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
350
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
351 private void connectPropertyChangeSink() {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
352 olePropertyChangeSink = new OlePropertyChangeSink(this);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
353 olePropertyChangeSink.AddRef();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
354 olePropertyChangeSink.connect(objIUnknown);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
355 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
356 protected void createCOMInterfaces () {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
357 super.createCOMInterfaces();
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
358 iOleControlSite = new _IOleControlSiteImpl(this);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
359 iDispatch = new _IDispatchImpl(this);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
360 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
361 private void disconnectEventSinks() {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
362
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
363 for (int i = 0; i < oleEventSink.length; i++) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
364 OleEventSink sink = oleEventSink[i];
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
365 sink.disconnect();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
366 sink.Release();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
367 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
368 oleEventSink = null;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
369 oleEventSinkGUID = null;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
370 oleEventSinkIUnknown = null;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
371 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
372 private void disconnectPropertyChangeSink() {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
373
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
374 if (olePropertyChangeSink !is null) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
375 olePropertyChangeSink.disconnect(objIUnknown);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
376 olePropertyChangeSink.Release();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
377 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
378 olePropertyChangeSink = null;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
379 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
380 protected void disposeCOMInterfaces() {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
381 super.disposeCOMInterfaces();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
382 iOleControlSite = null;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
383 iDispatch = null;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
384 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
385 public Color getBackground () {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
386
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
387 if (objIUnknown !is null) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
388 // !! We are getting the OLE_COLOR - should we change this to the COLORREF value?
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
389 OleAutomation oleObject= new OleAutomation(this);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
390 Variant varBackColor = oleObject.getProperty(COM.DISPID_BACKCOLOR);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
391 oleObject.dispose();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
392
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
393 if (varBackColor !is null){
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
394 COLORREF colorRef;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
395 if (COM.OleTranslateColor(varBackColor.getInt(), getDisplay().hPalette, &colorRef) is COM.S_OK)
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
396 return Color.win32_new(getDisplay(), colorRef);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
397 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
398 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
399
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
400 return super.getBackground();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
401 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
402 public Font getFont () {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
403
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
404 if (objIUnknown !is null) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
405 OleAutomation oleObject= new OleAutomation(this);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
406 Variant varDispFont = oleObject.getProperty(COM.DISPID_FONT);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
407 oleObject.dispose();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
408
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
409 if (varDispFont !is null){
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
410 OleAutomation iDispFont = varDispFont.getAutomation();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
411 Variant lfFaceName = iDispFont.getProperty(COM.DISPID_FONT_NAME);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
412 Variant lfHeight = iDispFont.getProperty(COM.DISPID_FONT_SIZE);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
413 Variant lfItalic = iDispFont.getProperty(COM.DISPID_FONT_ITALIC);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
414 //Variant lfCharSet = iDispFont.getProperty(COM.DISPID_FONT_CHARSET);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
415 Variant lfBold = iDispFont.getProperty(COM.DISPID_FONT_BOLD);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
416 iDispFont.dispose();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
417
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
418 if (lfFaceName !is null &&
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
419 lfHeight !is null &&
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
420 lfItalic !is null &&
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
421 lfBold !is null){
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
422 int style = 3 * lfBold.getInt() + 2 * lfItalic.getInt();
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
423 Device dev = getShell().getDisplay();
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
424 Font font = new Font(dev, lfFaceName.getString(), lfHeight.getInt(), style);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
425 return font;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
426 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
427 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
428 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
429
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
430 return super.getFont();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
431 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
432 public Color getForeground () {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
433
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
434 if (objIUnknown !is null) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
435 // !! We are getting the OLE_COLOR - should we change this to the COLORREF value?
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
436 OleAutomation oleObject= new OleAutomation(this);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
437 Variant varForeColor = oleObject.getProperty(COM.DISPID_FORECOLOR);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
438 oleObject.dispose();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
439
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
440 if (varForeColor !is null){
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
441 COLORREF colorRef;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
442 if (COM.OleTranslateColor(varForeColor.getInt(), getDisplay().hPalette, &colorRef) is COM.S_OK)
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
443 return Color.win32_new(getDisplay(), colorRef);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
444 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
445 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
446
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
447 return super.getForeground();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
448 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
449 protected BSTR getLicenseInfo(GUID* clsid) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
450 IClassFactory2 classFactory;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
451 if (COM.CoGetClassObject(clsid, COM.CLSCTX_INPROC_HANDLER | COM.CLSCTX_INPROC_SERVER, null, &COM.IIDIClassFactory2, cast(void**)&classFactory) !is COM.S_OK) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
452 return null;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
453 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
454 LICINFO licinfo;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
455 if (classFactory.GetLicInfo(&licinfo) !is COM.S_OK) {
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
456 classFactory.Release();
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
457 return null;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
458 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
459 BSTR pBstrKey;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
460 if (licinfo.fRuntimeKeyAvail) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
461 if (classFactory.RequestLicKey(0, &pBstrKey) is COM.S_OK) {
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
462 classFactory.Release();
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
463 return pBstrKey;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
464 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
465 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
466 classFactory.Release();
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
467 return null;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
468 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
469 /**
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
470 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
471 * Get the control site property specified by the dispIdMember.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
472 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
473 * @since 2.1
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
474 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
475 */
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
476 public Variant getSiteProperty(int dispId){
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
477 for (int i = 0; i < sitePropertyIds.length; i++) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
478 if (sitePropertyIds[i] is dispId) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
479 return sitePropertyValues[i];
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
480 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
481 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
482 return null;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
483 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
484 protected HRESULT GetWindow(HWND* phwnd) {
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
485
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
486 if (phwnd is null)
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
487 return COM.E_INVALIDARG;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
488 if (frame is null) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
489 *phwnd = null;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
490 return COM.E_NOTIMPL;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
491 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
492
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
493 // Copy the Window's handle into the memory passed in
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
494 *phwnd = handle;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
495 return COM.S_OK;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
496 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
497
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
498 private HRESULT Invoke(DISPID dispIdMember,REFIID riid,LCID lcid,WORD dwFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult,EXCEPINFO* pExcepInfo,UINT* pArgErr) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
499 int nullv = 0;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
500 if (pVarResult is null || dwFlags !is COM.DISPATCH_PROPERTYGET) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
501 if (pExcepInfo !is null) COM.MoveMemory(pExcepInfo, &nullv, 4);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
502 if (pArgErr !is null) COM.MoveMemory(pArgErr, &nullv, 4);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
503 return COM.DISP_E_MEMBERNOTFOUND;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
504 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
505 Variant result = getSiteProperty(dispIdMember);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
506 if (result !is null) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
507 if (pVarResult !is null) result.getData(pVarResult);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
508 return COM.S_OK;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
509 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
510 switch (dispIdMember) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
511 // indicate a false result
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
512 case COM.DISPID_AMBIENT_SUPPORTSMNEMONICS :
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
513 case COM.DISPID_AMBIENT_SHOWGRABHANDLES :
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
514 case COM.DISPID_AMBIENT_SHOWHATCHING :
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
515 if (pVarResult !is null) COM.MoveMemory(pVarResult, &nullv, 4);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
516 if (pExcepInfo !is null) COM.MoveMemory(pExcepInfo, &nullv, 4);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
517 if (pArgErr !is null) COM.MoveMemory(pArgErr, &nullv, 4);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
518 return COM.S_FALSE;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
519
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
520 // not implemented
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
521 case COM.DISPID_AMBIENT_OFFLINEIFNOTCONNECTED :
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
522 case COM.DISPID_AMBIENT_BACKCOLOR :
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
523 case COM.DISPID_AMBIENT_FORECOLOR :
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
524 case COM.DISPID_AMBIENT_FONT :
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
525 case COM.DISPID_AMBIENT_LOCALEID :
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
526 case COM.DISPID_AMBIENT_SILENT :
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
527 case COM.DISPID_AMBIENT_MESSAGEREFLECT :
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
528 if (pVarResult !is null) COM.MoveMemory(pVarResult, &nullv, 4);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
529 if (pExcepInfo !is null) COM.MoveMemory(pExcepInfo, &nullv, 4);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
530 if (pArgErr !is null) COM.MoveMemory(pArgErr, &nullv, 4);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
531 return COM.E_NOTIMPL;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
532
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
533 default :
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
534 if (pVarResult !is null) COM.MoveMemory(pVarResult, &nullv, 4);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
535 if (pExcepInfo !is null) COM.MoveMemory(pExcepInfo, &nullv, 4);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
536 if (pArgErr !is null) COM.MoveMemory(pArgErr, &nullv, 4);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
537 return COM.DISP_E_MEMBERNOTFOUND;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
538 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
539 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
540 private int OnControlInfoChanged() {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
541 IOleControl objIOleControl;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
542 if (objIUnknown.QueryInterface(&COM.IIDIOleControl, cast(void**)&objIOleControl ) is COM.S_OK) {
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
543 // ask the control for its info in case users
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
544 // need to act on it
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
545 currentControlInfo = new CONTROLINFO();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
546 objIOleControl.GetControlInfo(currentControlInfo);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
547 objIOleControl.Release();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
548 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
549 return COM.S_OK;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
550 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
551 void onFocusIn(Event e) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
552 if (objIOleInPlaceObject is null) return;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
553 doVerb(OLE.OLEIVERB_UIACTIVATE);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
554 if (isFocusControl()) return;
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
555 HWND phwnd;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
556 objIOleInPlaceObject.GetWindow(&phwnd);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
557 if (phwnd is null) return;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
558 OS.SetFocus(phwnd);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
559 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
560 void onFocusOut(Event e) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
561 if (objIOleInPlaceObject !is null) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
562 /*
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
563 * Bug in Windows. When IE7 loses focus and UIDeactivate()
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
564 * is called, IE destroys the caret even though it is
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
565 * no longer owned by IE. If focus has moved to a control
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
566 * that shows a caret then the caret disappears. The fix
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
567 * is to detect this case and restore the caret.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
568 */
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
569 auto threadId = OS.GetCurrentThreadId();
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
570 GUITHREADINFO* lpgui1 = new GUITHREADINFO();
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
571 lpgui1.cbSize = GUITHREADINFO.sizeof;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
572 OS.GetGUIThreadInfo(threadId, lpgui1);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
573 objIOleInPlaceObject.UIDeactivate();
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
574 if (lpgui1.hwndCaret !is null) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
575 GUITHREADINFO* lpgui2 = new GUITHREADINFO();
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
576 lpgui2.cbSize = GUITHREADINFO.sizeof;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
577 OS.GetGUIThreadInfo(threadId, lpgui2);
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
578 if (lpgui2.hwndCaret is null && lpgui1.hwndCaret is OS.GetFocus()) {
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
579 if (SWT_RESTORECARET is 0) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
580 SWT_RESTORECARET = OS.RegisterWindowMessage (StrToTCHARz (0, "SWT_RESTORECARET"));
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
581 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
582 /*
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
583 * If the caret was not restored by DWT, put it back using
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
584 * the information from GUITHREADINFO. Note that this will
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
585 * not be correct when the caret has a bitmap. There is no
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
586 * API to query the bitmap that the caret is using.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
587 */
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
588 if (OS.SendMessage (lpgui1.hwndCaret, SWT_RESTORECARET, 0, 0) is 0) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
589 int width = lpgui1.rcCaret.right - lpgui1.rcCaret.left;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
590 int height = lpgui1.rcCaret.bottom - lpgui1.rcCaret.top;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
591 OS.CreateCaret (lpgui1.hwndCaret, null, width, height);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
592 OS.SetCaretPos (lpgui1.rcCaret.left, lpgui1.rcCaret.top);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
593 OS.ShowCaret (lpgui1.hwndCaret);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
594 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
595 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
596 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
597 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
598 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
599 private int OnFocus(int fGotFocus) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
600 return COM.S_OK;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
601 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
602 protected int OnUIDeactivate(int fUndoable) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
603 // controls don't need to do anything for
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
604 // border space or menubars
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
605 state = STATE_INPLACEACTIVE;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
606 return COM.S_OK;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
607 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
608 override protected HRESULT QueryInterface(REFIID riid, void ** ppvObject) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
609 int nullv = 0;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
610 int result = super.QueryInterface(riid, ppvObject);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
611 if (result is COM.S_OK)
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
612 return result;
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
613 if (riid is null || ppvObject is null)
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
614 return COM.E_INVALIDARG;
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
615 GUID* guid;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
616 COM.MoveMemory(&guid, riid, GUID.sizeof);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
617 if (COM.IsEqualGUID(guid, &COM.IIDIOleControlSite)) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
618 *ppvObject = cast(void*)cast(IOleControlSite)iOleControlSite;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
619 AddRef();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
620 return COM.S_OK;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
621 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
622 if (COM.IsEqualGUID(guid, &COM.IIDIDispatch)) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
623 *ppvObject = cast(void*)cast(IDispatch)iDispatch;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
624 AddRef();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
625 return COM.S_OK;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
626 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
627 *ppvObject = null;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
628 return COM.E_NOINTERFACE;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
629 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
630 protected int Release() {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
631 int result = super.Release();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
632 if (result is 0) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
633 for (int i = 0; i < sitePropertyIds.length; i++) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
634 sitePropertyValues[i].dispose();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
635 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
636 sitePropertyIds = null;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
637 sitePropertyValues = null;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
638 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
639 return result;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
640 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
641 protected void releaseObjectInterfaces() {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
642
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
643 disconnectEventSinks();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
644
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
645 disconnectPropertyChangeSink();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
646
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
647 super.releaseObjectInterfaces();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
648 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
649 /**
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
650 * Removes the listener.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
651 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
652 * @param eventID the event identifier
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
653 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
654 * @param listener the listener
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
655 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
656 * @exception IllegalArgumentException <ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
657 * <li>ERROR_NULL_ARGUMENT when listener is null</li>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
658 * </ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
659 */
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
660 public void removeEventListener(int eventID, OleListener listener) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
661 checkWidget();
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
662 if (listener is null) DWT.error (__FILE__, __LINE__, DWT.ERROR_NULL_ARGUMENT);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
663
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
664 GUID* riid = getDefaultEventSinkGUID(objIUnknown);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
665 if (riid !is null) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
666 removeEventListener(objIUnknown, riid, eventID, listener);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
667 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
668 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
669 /**
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
670 * Removes the listener.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
671 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
672 * @since 2.0
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
673 * @deprecated - use OleControlSite.removeEventListener(OleAutomation, int, OleListener)
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
674 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
675 * @param automation the automation object that provides the event notification
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
676 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
677 * @param guid the identifier of the events COM interface
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
678 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
679 * @param eventID the event identifier
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
680 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
681 * @param listener the listener
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
682 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
683 * @exception IllegalArgumentException <ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
684 * <li>ERROR_NULL_ARGUMENT when listener is null</li>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
685 * </ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
686 */
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
687 public void removeEventListener(OleAutomation automation, GUID* guid, int eventID, OleListener listener) {
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
688 checkWidget();
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
689 if (automation is null || listener is null || guid is null) DWT.error ( __FILE__, __LINE__, DWT.ERROR_NULL_ARGUMENT);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
690 removeEventListener(automation.getAddress(), guid, eventID, listener);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
691 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
692 /**
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
693 * Removes the listener.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
694 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
695 * @since 2.0
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
696 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
697 * @param automation the automation object that provides the event notification
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
698 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
699 * @param eventID the event identifier
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
700 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
701 * @param listener the listener
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
702 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
703 * @exception IllegalArgumentException <ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
704 * <li>ERROR_NULL_ARGUMENT when listener is null</li>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
705 * </ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
706 */
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
707 public void removeEventListener(OleAutomation automation, int eventID, OleListener listener) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
708 checkWidget();
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
709 if (automation is null || listener is null) DWT.error ( __FILE__, __LINE__, DWT.ERROR_NULL_ARGUMENT);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
710 auto unknown = automation.getAddress();
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
711 GUID* riid = getDefaultEventSinkGUID(unknown);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
712 if (riid !is null) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
713 removeEventListener(unknown, riid, eventID, listener);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
714 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
715 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
716 void removeEventListener(IUnknown iunknown, GUID* guid, int eventID, OleListener listener) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
717 if (listener is null || guid is null) DWT.error ( __FILE__, __LINE__, DWT.ERROR_NULL_ARGUMENT);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
718 for (int i = 0; i < oleEventSink.length; i++) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
719 if (COM.IsEqualGUID(oleEventSinkGUID[i], guid)) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
720 if (iunknown is oleEventSinkIUnknown[i]) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
721 oleEventSink[i].removeListener(eventID, listener);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
722 if (!oleEventSink[i].hasListeners()) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
723 //free resources associated with event sink
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
724 oleEventSink[i].disconnect();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
725 oleEventSink[i].Release();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
726 int oldLength = oleEventSink.length;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
727 if (oldLength is 1) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
728 oleEventSink = null;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
729 oleEventSinkGUID = null;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
730 oleEventSinkIUnknown = null;
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
731 } else {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
732 OleEventSink[] newOleEventSink = new OleEventSink[oldLength - 1];
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
733 System.arraycopy(oleEventSink, 0, newOleEventSink, 0, i);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
734 System.arraycopy(oleEventSink, i + 1, newOleEventSink, i, oldLength - i - 1);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
735 oleEventSink = newOleEventSink;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
736
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
737 GUID*[] newOleEventSinkGUID = new GUID*[oldLength - 1];
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
738 SimpleType!(GUID*).arraycopy(oleEventSinkGUID, 0, newOleEventSinkGUID, 0, i);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
739 SimpleType!(GUID*).arraycopy(oleEventSinkGUID, i + 1, newOleEventSinkGUID, i, oldLength - i - 1);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
740 oleEventSinkGUID = newOleEventSinkGUID;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
741
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
742 IUnknown[] newOleEventSinkIUnknown = new IUnknown[oldLength - 1];
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
743 SimpleType!(IUnknown).arraycopy(oleEventSinkIUnknown, 0, newOleEventSinkIUnknown, 0, i);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
744 SimpleType!(IUnknown).arraycopy(oleEventSinkIUnknown, i + 1, newOleEventSinkIUnknown, i, oldLength - i - 1);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
745 oleEventSinkIUnknown = newOleEventSinkIUnknown;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
746 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
747 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
748 return;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
749 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
750 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
751 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
752 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
753 /**
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
754 * Removes the listener.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
755 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
756 * @param listener the listener
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
757 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
758 * @exception IllegalArgumentException <ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
759 * <li>ERROR_NULL_ARGUMENT when listener is null</li>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
760 * </ul>
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
761 */
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
762 public void removePropertyListener(int propertyID, OleListener listener) {
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
763 if (listener is null) DWT.error (__FILE__, __LINE__, DWT.ERROR_NULL_ARGUMENT);
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
764 olePropertyChangeSink.removeListener(propertyID, listener);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
765 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
766 public void setBackground (Color color) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
767
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
768 super.setBackground(color);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
769
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
770 //set the background of the ActiveX Control
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
771 if (objIUnknown !is null) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
772 OleAutomation oleObject= new OleAutomation(this);
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
773 oleObject.setProperty(COM.DISPID_BACKCOLOR, new Variant(cast(int)color.handle));
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
774 oleObject.dispose();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
775 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
776 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
777 public void setFont (Font font) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
778
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
779 super.setFont(font);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
780
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
781 //set the font of the ActiveX Control
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
782 if (objIUnknown !is null) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
783
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
784 OleAutomation oleObject= new OleAutomation(this);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
785 Variant varDispFont = oleObject.getProperty(COM.DISPID_FONT);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
786 oleObject.dispose();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
787
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
788 if (varDispFont !is null){
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
789 OleAutomation iDispFont = varDispFont.getAutomation();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
790 FontData[] fdata = font.getFontData();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
791 iDispFont.setProperty(COM.DISPID_FONT_NAME, new Variant(fdata[0].getName()));
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
792 iDispFont.setProperty(COM.DISPID_FONT_SIZE, new Variant(fdata[0].getHeight()));
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
793 iDispFont.setProperty(COM.DISPID_FONT_ITALIC, new Variant(fdata[0].getStyle() & DWT.ITALIC));
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
794 //iDispFont.setProperty(COM.DISPID_FONT_CHARSET, new Variant(fdata[0].getCharset));
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
795 iDispFont.setProperty(COM.DISPID_FONT_BOLD, new Variant((fdata[0].getStyle() & DWT.BOLD)));
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
796 iDispFont.dispose();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
797 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
798 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
799
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
800 return;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
801 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
802 public void setForeground (Color color) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
803
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
804 super.setForeground(color);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
805
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
806 //set the foreground of the ActiveX Control
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
807 if (objIUnknown !is null) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
808 OleAutomation oleObject= new OleAutomation(this);
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
809 oleObject.setProperty(COM.DISPID_FORECOLOR, new Variant(cast(int)color.handle));
97
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
810 oleObject.dispose();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
811 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
812 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
813 /**
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
814 * Sets the control site property specified by the dispIdMember to a new value.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
815 * The value will be disposed by the control site when it is no longer required
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
816 * using Variant.dispose. Passing a value of null will clear the dispId value.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
817 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
818 * @param dispId the ID of the property as specified by the IDL of the ActiveX Control
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
819 * @param value The new value for the property as expressed in a Variant.
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
820 *
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
821 * @since 2.1
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
822 */
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
823 public void setSiteProperty(int dispId, Variant value){
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
824 for (int i = 0; i < sitePropertyIds.length; i++) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
825 if (sitePropertyIds[i] is dispId) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
826 if (sitePropertyValues[i] !is null) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
827 sitePropertyValues[i].dispose();
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
828 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
829 if (value !is null) {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
830 sitePropertyValues[i] = value;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
831 } else {
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
832 int oldLength = sitePropertyIds.length;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
833 int[] newSitePropertyIds = new int[oldLength - 1];
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
834 Variant[] newSitePropertyValues = new Variant[oldLength - 1];
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
835 System.arraycopy(sitePropertyIds, 0, newSitePropertyIds, 0, i);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
836 System.arraycopy(sitePropertyIds, i + 1, newSitePropertyIds, i, oldLength - i - 1);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
837 System.arraycopy(sitePropertyValues, 0, newSitePropertyValues, 0, i);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
838 System.arraycopy(sitePropertyValues, i + 1, newSitePropertyValues, i, oldLength - i - 1);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
839 sitePropertyIds = newSitePropertyIds;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
840 sitePropertyValues = newSitePropertyValues;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
841 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
842 return;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
843 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
844 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
845 int oldLength = sitePropertyIds.length;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
846 int[] newSitePropertyIds = new int[oldLength + 1];
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
847 Variant[] newSitePropertyValues = new Variant[oldLength + 1];
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
848 System.arraycopy(sitePropertyIds, 0, newSitePropertyIds, 0, oldLength);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
849 System.arraycopy(sitePropertyValues, 0, newSitePropertyValues, 0, oldLength);
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
850 newSitePropertyIds[oldLength] = dispId;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
851 newSitePropertyValues[oldLength] = value;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
852 sitePropertyIds = newSitePropertyIds;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
853 sitePropertyValues = newSitePropertyValues;
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
854 }
2e6eb5bd2c16 starting OLE
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
855 }
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
856
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
857 class _IDispatchImpl : IDispatch {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
858
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
859 OleControlSite parent;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
860 this(OleControlSite p) { parent = p; }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
861 extern (Windows):
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
862 // interface of IUnknown
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
863 HRESULT QueryInterface(REFIID riid, void ** ppvObject) { return parent.QueryInterface(riid, ppvObject); }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
864 ULONG AddRef() { return parent.AddRef(); }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
865 ULONG Release() { return parent.Release(); }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
866
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
867 // interface of IDispatch : IUnknown
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
868 HRESULT GetTypeInfoCount(UINT * pctinfo) { return COM.E_NOTIMPL; }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
869 HRESULT GetTypeInfo(UINT iTInfo, LCID lcid, ITypeInfo * ppTInfo) { return COM.E_NOTIMPL; }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
870 HRESULT GetIDsOfNames(REFIID riid, LPOLESTR * rgszNames, UINT cNames, LCID lcid, DISPID * rgDispId) { return COM.E_NOTIMPL; }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
871 // Note : <Shawn> one argument is short !!!
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
872 HRESULT Invoke(DISPID dispIdMember,REFIID riid,LCID lcid,WORD wFlags,DISPPARAMS* pDispParams,VARIANT* pVarResult,EXCEPINFO* pExcepInfo,UINT* puArgErr) {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
873 return parent.Invoke(dispIdMember, riid, lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
874 }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
875 }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
876
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
877 class _IOleControlSiteImpl : IOleControlSite {
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
878
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
879 OleControlSite parent;
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
880 this(OleControlSite p) { parent = p; }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
881 extern (Windows):
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
882 // interface of IUnknown
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
883 HRESULT QueryInterface(REFIID riid, void ** ppvObject) { return parent.QueryInterface(riid, ppvObject); }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
884 ULONG AddRef() { return parent.AddRef(); }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
885 ULONG Release() { return parent.Release(); }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
886
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
887 // interface IOleControlSite : IUnknown
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
888 HRESULT OnControlInfoChanged() { return parent.OnControlInfoChanged();}
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
889 HRESULT LockInPlaceActive(BOOL fLock) { return COM.E_NOTIMPL; }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
890 HRESULT GetExtendedControl(LPDISPATCH* ppDisp) { return COM.E_NOTIMPL; }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
891 HRESULT TransformCoords(
128
07e8963537b7 removed tango_sys_win32 and added all necessary bindings to the dwt.internal.win32 WINTYPES and WINAPI modules
Frank Benoit <benoit@tionex.de>
parents: 98
diff changeset
892 POINTL* pPtlHimetric , //Address of POINTL structure
98
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
893 POINTF* pPtfContainer , //Address of POINTF structure
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
894 DWORD dwFlags //Flags indicating the exact conversion
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
895 ) { return COM.E_NOTIMPL; }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
896 HRESULT TranslateAccelerator(
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
897 LPMSG pMsg , //Pointer to the structure
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
898 DWORD grfModifiers //Flags describing the state of the keys
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
899 )
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
900 { return COM.E_NOTIMPL; }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
901 HRESULT OnFocus(
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
902 BOOL fGotFocus //Indicates whether the control gained focus
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
903 )
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
904 { return COM.S_OK; }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
905 HRESULT ShowPropertyFrame() { return COM.E_NOTIMPL; }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
906 }
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
907
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
908
ecba636b634e package dwt/ole
Frank Benoit <benoit@tionex.de>
parents: 97
diff changeset
909