Mercurial > vim

comparison src/glbl_ime.cpp @ 7:3fc0f57ecb91 v7.0001

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.0001
author vimboss
date Sun, 13 Jun 2004 20:20:40 +0000
parents
children 6c7fb97ce82e
comparison
equal deleted inserted replaced
6:c2daee826b8f 7:3fc0f57ecb91
1 /* vi:set ts=8 sts=4 sw=4:
2 *
3 * VIM - Vi IMproved by Bram Moolenaar
4 *
5 * Do ":help uganda" in Vim to read copying and usage conditions.
6 * Do ":help credits" in Vim to see a list of people who contributed.
7 */
8
9 /*
10 * DESCRIPTION:
11 * This module produces Global IME for Vim, on Windows with Internet
12 * Explorer 5.01 or higher. You need three files "dimm.idl", "dimm.h", and
13 * "dimm_i.c" when compile this module at your self. "dimm.h", and
14 * "dimm_i.c" are generated from "dimm.idl" by using MIDL.EXE as like
15 * "if_ole.h". You can get "dimm.idl" in MSDN web site. I got it below
16 * URL.
17 *
18 * WHAT IS THE GLOBAL IME?:
19 * Global IME makes capability input Chinese, Japanese, and Korean text into
20 * Vim buffer on any language version of Windows 98, Windows 95, and Windows
21 * NT 4.0. See below URL for detail of Global IME. You can also find
22 * various laguage version of Global IME at same place.
23 *
24 * RUNTIME REQUIREMENTS:
25 * - Internet Exproler 5.01 or higher.
26 * - Global IME (with language pack?).
27 * - Of course Vim for Windows.
28 *
29 * URLS:
30 * - Where you can probably get "dimm.idl".
31 * http://msdn.microsoft.com/downloads/samples/internet/libraries/ie5_lib/sample.asp
32 * - Global IME detailed information.
33 * http://www.microsoft.com/windows/ie/features/ime.asp
34 */
35
36 #ifdef GLOBAL_IME
37
38 #define WIN32_LEAN_AND_MEAN
39 #include <windows.h>
40 #include <objbase.h>
41 extern "C" {
42 #include "vim.h"
43 }
44 #include "dimm.h"
45 #include "glbl_ime.h"
46
47 static IActiveIMMApp *pIApp = NULL;
48 static IActiveIMMMessagePumpOwner *pIMsg = NULL;
49 static HWND s_hWnd = NULL;
50 static BOOL s_bStatus = FALSE; /* for evacuate */
51
52 /*
53 * Initialize Global IME.
54 * "atom" must be return value of RegisterClass(Ex).
55 */
56 void
57 global_ime_init(ATOM atom, HWND hWnd)
58 {
59 IUnknown *pI;
60 HRESULT hr;
61
62 if (pIApp != NULL || pIMsg != NULL)
63 return;
64 OleInitialize(NULL);
65
66 /*
67 * Get interface IUnknown
68 */
69 hr = CoCreateInstance(CLSID_CActiveIMM, NULL, CLSCTX_SERVER,
70 IID_IUnknown, (void**)&pI);
71 if (FAILED(hr) || !pI)
72 return;
73
74 /*
75 * Get interface IActiveIMMApp
76 */
77 hr = pI->QueryInterface(IID_IActiveIMMApp, (void**)&pIApp);
78 if (FAILED(hr))
79 pIApp = NULL;
80
81 /*
82 * Get interface IActiveIMMMessagePumpOwner
83 */
84 hr = pI->QueryInterface(IID_IActiveIMMMessagePumpOwner, (void**)&pIMsg);
85 if (FAILED(hr))
86 pIMsg = NULL;
87
88 if (pIApp != NULL)
89 {
90 pIApp->Activate(TRUE);
91 pIApp->FilterClientWindows(&atom, 1);
92 }
93 if (pIMsg != NULL)
94 pIMsg->Start();
95
96 pI->Release();
97 s_hWnd = hWnd;
98 }
99
100 /*
101 * Reset and clear Global IME.
102 */
103 void
104 global_ime_end()
105 {
106 if (pIApp != NULL)
107 {
108 IActiveIMMApp *p = pIApp;
109
110 pIApp = NULL;
111 p->FilterClientWindows(NULL, 0);
112 p->Deactivate();
113 p->Release();
114 }
115 if (pIMsg != NULL)
116 {
117 IActiveIMMMessagePumpOwner *p = pIMsg;
118
119 pIMsg = NULL;
120 p->End();
121 p->Release();
122 }
123 OleUninitialize();
124 }
125
126 /*
127 * Replacement for DefWindowProc().
128 */
129 LRESULT WINAPI
130 global_ime_DefWindowProc(HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam)
131 {
132 LRESULT lResult;
133
134 if (pIApp == NULL || pIApp->OnDefWindowProc(hWnd, Msg,
135 wParam, lParam, &lResult) != S_OK)
136 {
137 #if defined(WIN3264) && defined(FEAT_MBYTE)
138 if (wide_WindowProc)
139 lResult = DefWindowProcW(hwnd, Msg, wParam, lParam);
140 else
141 #endif
142 lResult = DefWindowProc(hWnd, Msg, wParam, lParam);
143 }
144 return lResult;
145 }
146
147 /*
148 * Replace with TranslateMessage()
149 */
150 BOOL WINAPI
151 global_ime_TranslateMessage(CONST MSG *lpMsg)
152 {
153 if (pIMsg == NULL || pIMsg->OnTranslateMessage(lpMsg) == S_FALSE)
154 return TranslateMessage(lpMsg);
155 return TRUE;
156 }
157
158 /*
159 * Set position of IME compotision window.
160 *
161 * You have to call this before starting composition. If once composition
162 * started, this can take no effect until that composition have finised. So
163 * you should handle WM_IME_STARTCOMPOSITION and call this function.
164 */
165 void WINAPI
166 global_ime_set_position(POINT *pPoint)
167 {
168 HIMC hImc = NULL;
169
170 if (pIApp == NULL || pPoint == NULL)
171 return;
172
173 if (SUCCEEDED(pIApp->GetContext(s_hWnd, &hImc)))
174 {
175 COMPOSITIONFORM CompForm;
176
177 CompForm.dwStyle = CFS_POINT;
178 CompForm.ptCurrentPos = *pPoint;
179 pIApp->SetCompositionWindow(hImc, &CompForm);
180 pIApp->ReleaseContext(s_hWnd, hImc);
181 }
182 }
183
184 /*
185 * Set font to Global IME
186 */
187 /* GIME_TEST */
188 void WINAPI
189 global_ime_set_font(LOGFONT *pFont)
190 {
191 HIMC hImc = NULL;
192
193 if (pIApp == NULL || pFont == NULL)
194 return;
195
196 if (SUCCEEDED(pIApp->GetContext(s_hWnd, &hImc)))
197 {
198 pIApp->SetCompositionFontA(hImc, pFont);
199 pIApp->ReleaseContext(s_hWnd, hImc);
200 }
201 }
202
203 /*
204 * for IME control. Save current status of IME, and set force new-status to
205 * Engllish (turn off).
206 */
207 void WINAPI
208 global_ime_status_evacuate()
209 {
210 HIMC hImc;
211
212 if (pIApp != NULL && SUCCEEDED(pIApp->GetContext(s_hWnd, &hImc)))
213 {
214 s_bStatus = (pIApp->GetOpenStatus(hImc) == 0) ? TRUE : FALSE;
215 pIApp->SetOpenStatus(hImc, FALSE);
216 pIApp->ReleaseContext(s_hWnd, hImc);
217 }
218 }
219
220 /*
221 * for IME control. Change IME status to last saved one.
222 */
223 void WINAPI
224 global_ime_status_restore()
225 {
226 HIMC hImc;
227
228 if (pIApp != NULL && SUCCEEDED(pIApp->GetContext(s_hWnd, &hImc)))
229 {
230 pIApp->SetOpenStatus(hImc, s_bStatus);
231 pIApp->ReleaseContext(s_hWnd, hImc);
232 }
233 }
234
235 void WINAPI
236 global_ime_set_status(int status)
237 {
238 HIMC hImc;
239
240 if (pIApp != NULL && SUCCEEDED(pIApp->GetContext(s_hWnd, &hImc)))
241 {
242 pIApp->SetOpenStatus(hImc, status ? TRUE : FALSE);
243 pIApp->ReleaseContext(s_hWnd, hImc);
244 }
245 }
246
247 int WINAPI
248 global_ime_get_status()
249 {
250 int status = 0;
251 HIMC hImc;
252
253 if (pIApp != NULL && SUCCEEDED(pIApp->GetContext(s_hWnd, &hImc)))
254 {
255 status = pIApp->GetOpenStatus(hImc) ? 1 : 0;
256 pIApp->ReleaseContext(s_hWnd, hImc);
257 }
258 return status;
259 }
260
261 #endif /* GLOBAL_IME */