annotate dwt/ole/win32/OleControlSite.d @ 97:2e6eb5bd2c16

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