开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 输入法编程 > 查看源码
Ui.pas
资源名称：Wingb_Mz.rar　[点击查看]
上传用户：wen198501
上传日期：2013-04-01
资源大小：335k
文件大小：34k
源码类别：

输入法编程

开发平台：

Delphi

Ui.pas：源码内容
  2.  {******************************************************}
  3.  {                                                      }
  4.  {    Copyright (c) 1990-1999 Microsoft Corporation     }
  5.  {                                                      }
  6.  {    Module Name:  Ui.c ->>  Ui.pas                    }
  7.  {                                                      }
  8.  {    Translator:  Liu_mazi@126.com, 2005-11-17         }
  9.  {                                                      }
  10.  {******************************************************}
  12. unit Ui;
  14. {$I Define.Inc}
  16. interface
  18. uses Windows;
  20. function UIWndProc(hUIWnd: hWnd; uMsg: uInt; wParam: WParam; lParam: LParam): LResult; stdcall; // UI窗口回调
  21. procedure DrawConvexRect(_hDC: hDC; x1, y1, x2, y2: Integer); // 绘制凸出边框
  22. procedure DrawConvexRectP(_hDC: hDC; x1, y1, x2, y2: Integer); // 绘制凸出边框
  23. procedure DrawConcaveRect(_hDC: hDC; x1, y1, x2, y2: Integer); // 绘制凹陷边框
  25. implementation
  27. uses Messages, ImmDev, ImeDefs, Init, Data, DDIS, Notify, Statusui, Compui, Candui, LogText;
  29.   // IMN_PRIVATE_CMENUDESTROYED处理
  30. procedure CMenuDestroyed(hUIWnd: hWnd);
  31. var
  32.   hUIPrivate: hGlobal;
  33.   lpUIPrivate: PUIPriv;
  34. begin
  35.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  36.   if (hUIPrivate = 0) then Exit;
  38.   lpUIPrivate := GlobalLock(hUIPrivate);
  39.   if (lpUIPrivate = nil) then Exit;
  41.   lpUIPrivate.hCMenuWnd := 0;
  42.   GlobalUnlock(hUIPrivate);
  43. end;
  45.   // IMN_PRIVATE_SOFTKEYMENUDESTROYED处理
  46. procedure SoftkeyMenuDestroyed(hUIWnd: hWnd);
  47. var
  48.   hUIPrivate: hGlobal;
  49.   lpUIPrivate: PUIPriv;
  50. begin
  51.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  52.   if (hUIPrivate = 0) then Exit;
  54.   lpUIPrivate := GlobalLock(hUIPrivate);
  55.   if (lpUIPrivate = nil) then Exit;
  57.   lpUIPrivate.hSoftkeyMenuWnd := 0;
  58.   GlobalUnlock(hUIPrivate);
  59. end;
  61.   // WM_CREATE消息处理
  62. procedure CreateUIWindow(hUIWnd: hWnd);
  63. var
  64.   hUIPrivate: hGlobal;
  65. begin
  66. {$IfDef Debug}
  67.   ImeLog('CreateUIWindow ..');
  68. {$EndIf}
  70.   // create storage for UI setting
  71.   hUIPrivate := GlobalAlloc(GHND, SizeOf(TUIPriv));
  72.   if (hUIPrivate = 0) then Exit;
  74.   SetWindowLong(hUIWnd, IMMGWLP_PRIVATE, hUIPrivate);
  76.   // set the default position for UI window, it is hide now, **
  77.   SetWindowPos(hUIWnd, 0, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOZORDER);
  78.   ShowWindow(hUIWnd, SW_SHOWNOACTIVATE);
  79. end;
  81.   // WM_DESTROY消息处理
  82. procedure DestroyUIWindow(hUIWnd: hWnd);
  83. var
  84.   hUIPrivate: hGlobal;
  85.   lpUIPrivate: PUIPriv;
  86. begin
  87. {$IfDef Debug}
  88.   ImeLog('DestroyUIWindow ..');
  89. {$EndIf}
  91.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  92.   if (hUIPrivate = 0) then Exit;
  94.   lpUIPrivate := GlobalLock(hUIPrivate);
  95.   if (lpUIPrivate = nil) then Exit;
  97.   // destroy ContextMenuWnd
  98.   if IsWindow(lpUIPrivate.hCMenuWnd) then
  99.   begin
  100.     SetWindowLong(lpUIPrivate.hCMenuWnd, CMENU_HUIWND, 0);
  101.     SendMessage(lpUIPrivate.hCMenuWnd, WM_USER_DESTROY, 0, 0); // **, 恐怕用Post来不及..
  102.   end;
  104.   // destroy SoftkeyMenuWnd
  105.   if IsWindow(lpUIPrivate.hSoftkeyMenuWnd) then
  106.   begin
  107.     SetWindowLong(lpUIPrivate.hSoftkeyMenuWnd, SOFTKEYMENU_HUIWND, 0);
  108.     SendMessage(lpUIPrivate.hSoftkeyMenuWnd, WM_USER_DESTROY, 0, 0); // **, 恐怕用Post来不及..
  109.   end;
  111.   // composition window need to be destroyed
  112.   if IsWindow(lpUIPrivate.hCompWnd) then DestroyWindow(lpUIPrivate.hCompWnd);
  114.   // candidate window need to be destroyed
  115.   if IsWindow(lpUIPrivate.hCandWnd) then DestroyWindow(lpUIPrivate.hCandWnd);
  117.   // status window need to be destroyed
  118.   if IsWindow(lpUIPrivate.hStatusWnd) then DestroyWindow(lpUIPrivate.hStatusWnd);
  120.   // soft keyboard window need to be destroyed
  121.   if IsWindow(lpUIPrivate.hSoftKbdWnd) then ImmDestroySoftKeyboard(lpUIPrivate.hSoftKbdWnd);
  123.   GlobalUnlock(hUIPrivate);
  125.   // free storage for UI settings
  126.   GlobalFree(hUIPrivate);
  127. end;
  129.   // 显示隐藏软键盘
  130. procedure ShowSoftKbd(hUIWnd: hWnd; nShowSoftKbdCmd: Integer; lpImcP: PPrivContext);
  131. var
  132.   hUIPrivate: hGlobal;
  133.   lpUIPrivate: PUIPriv;
  134.   J: uInt;
  135. begin
  136.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  137.   if (hUIPrivate = 0) then Exit;         // can not darw status window
  139.   lpUIPrivate := GlobalLock(hUIPrivate);
  140.   if (lpUIPrivate = nil) then Exit;      // can not draw status window
  142.   for J := IDM_SKL1 to IDM_SKL13 do CheckMenuItem(sImeL.hSKMenu, J, MF_UNCHECKED); // **
  144.   if IsWindow(lpUIPrivate.hSoftKbdWnd) and (lpUIPrivate.nShowSoftKbdCmd <> nShowSoftKbdCmd) then
  145.   begin
  146.     ImmShowSoftKeyboard(lpUIPrivate.hSoftKbdWnd, nShowSoftKbdCmd);
  147.     lpUIPrivate.nShowSoftKbdCmd := nShowSoftKbdCmd;
  148.   end;
  150.   GlobalUnlock(hUIPrivate);
  151. end;
  153.   // 计算软键盘位置
  154. procedure CheckSoftKbdPosition(lpUIPrivate: PUIPriv; lpIMC: PInputContext);
  155. var
  156.   fPortionBits: uInt; // = 0;
  157.   fPortionTest: uInt;
  158.   xPortion, yPortion, nPortion: Integer;
  159.   rcWnd: TRect;
  160. begin
  161.   // portion of dispaly
  162.   // 0  1
  163.   // 2  3
  164.   fPortionBits := 0;
  166.   if IsWindow(lpUIPrivate.hCompWnd) then
  167.   begin
  168.     GetWindowRect(lpUIPrivate.hCompWnd, rcWnd);
  169.     if (rcWnd.Left > sImeG.rcWorkArea.Right div 2) then xPortion := 1 else xPortion := 0;
  170.     if (rcWnd.Top > sImeG.rcWorkArea.Bottom div 2) then yPortion := 1 else yPortion := 0;
  172.     fPortionBits := fPortionBits or ($0001 shl (yPortion * 2 + xPortion));
  173.   end;
  175.   if IsWindow(lpUIPrivate.hStatusWnd) then
  176.   begin
  177.     GetWindowRect(lpUIPrivate.hStatusWnd, rcWnd);
  178.     if (rcWnd.Left > sImeG.rcWorkArea.Right div 2) then xPortion := 1 else xPortion := 0;
  179.     if (rcWnd.Top > sImeG.rcWorkArea.Bottom div 2) then yPortion := 1 else yPortion := 0;
  181.     fPortionBits := fPortionBits or ($0001 shl (yPortion * 2 + xPortion));
  182.   end;
  184.   GetWindowRect(lpUIPrivate.hSoftKbdWnd, rcWnd);
  186.   // start from portion 3
  187.   nPortion := 3;
  188.   fPortionTest := $0008;
  189.   while (fPortionTest <> 0) do
  190.   begin
  191.     if (fPortionTest and fPortionBits <> 0) then
  192.     begin
  193.       Dec(nPortion);
  194.       fPortionTest := fPortionTest shr 1;
  195.     end else
  196.     begin
  197.       if (nPortion mod 2 <> 0) then // 左半部分
  198.         lpIMC.ptSoftKbdPos.x := sImeG.rcWorkArea.Right - (rcWnd.Right - rcWnd.Left) - UI_MARGIN
  199.       else
  200.         lpIMC.ptSoftKbdPos.x := sImeG.rcWorkArea.Left;
  202.       if (nPortion div 2 <> 0) then // 下半部分
  203.         lpIMC.ptSoftKbdPos.y := sImeG.rcWorkArea.Bottom - (rcWnd.Bottom - rcWnd.Top) - UI_MARGIN
  204.       else
  205.         lpIMC.ptSoftKbdPos.y := sImeG.rcWorkArea.Top;
  207.       lpIMC.fdwInit := lpIMC.fdwInit or INIT_SOFTKBDPOS;
  208.       Break;
  209.     end;
  210.   end;
  211. end;
  213.   // 设置软键盘数据
  214. procedure SetSoftKbdData(hSoftKbdWnd: hWnd; lpIMC: PInputContext);
  215. var
  216.   J, K: Integer;
  217.   lpSoftKbdData: PSoftKbdData;
  218.   lpImcP: PPrivContext;
  219.   hsSoftKbdData: hGlobal;
  220.   bVirtKey: Byte;
  221.   cHiByte, cLoByte: Word;
  222. begin
  223.   lpImcP := ImmLockIMCC(lpIMC.hPrivate);
  224.   if (lpImcP = nil) then Exit;
  226.   hsSoftKbdData := GlobalAlloc(GHND, SizeOf(TSoftKbdData) * 2); // **
  227.   if (hsSoftKbdData = 0) then
  228.   begin
  229.     ImmUnlockIMCC(lpIMC.hPrivate);
  230.     Exit;
  231.   end;
  233.   lpSoftKbdData := GlobalLock(hsSoftKbdData);
  234.   if (lpSoftKbdData = nil) then         // can not draw soft keyboard window
  235.   begin
  236.     ImmUnlockIMCC(lpIMC.hPrivate);
  237.     Exit;
  238.   end;
  240.   lpSoftKbdData.uCount := 2;
  242.   K := 1;
  243.   for J := 0 to 47 do
  244.   begin
  245.     bVirtKey := VirtKey48Map[J];
  246.     if (bVirtKey = 0) then Continue;
  248.     cHiByte := Ord(SKLayout[sImeL.dwSKWant][J * 2]) and $00FF;
  249.     cLoByte := Ord(SKLayout[sImeL.dwSKWant][J * 2 + 1]) and $00FF;
  250.     lpSoftKbdData.wCode[0][bVirtKey] := (cHiByte shl 8) or cLoByte;
  252.     cHiByte := Ord(SKLayoutS[sImeL.dwSKWant][J * 2]) and $00FF;
  253.     cLoByte := Ord(SKLayoutS[sImeL.dwSKWant][J * 2 + 1]) and $00FF;
  254.     lpSoftKbdData.wCode[K][bVirtKey] := (cHiByte shl 8) or cLoByte;
  255.   end;
  257.   SendMessage(hSoftKbdWnd, WM_IME_CONTROL, IMC_SETSOFTKBDDATA, Integer(lpSoftKbdData));
  258.   GlobalUnlock(hsSoftKbdData);
  260.   // free storage for UI settings
  261.   GlobalFree(hsSoftKbdData);
  262.   ImmUnlockIMCC(lpIMC.hPrivate);
  263. end;
  265.   // "更新"软键盘
  266. procedure UpdateSoftKbd(hUIWnd: hWnd);
  267. var
  268.   _hIMC: hIMC;
  269.   lpIMC: PInputContext;
  270.   lpImcP: PPrivContext;
  271.   hUIPrivate: hGlobal;
  272.   lpUIPrivate: PUIPriv;
  273. begin
  274.   _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  275.   if (_hIMC = 0) then Exit;
  277.   lpIMC := ImmLockIMC(_hIMC);
  278.   if (lpIMC = nil) then Exit;
  280.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  281.   if (hUIPrivate = 0) then       // can not darw soft keyboard window
  282.   begin
  283.     ImmUnlockIMC(_hIMC);
  284.     Exit;
  285.   end;
  287.   lpUIPrivate := GlobalLock(hUIPrivate);
  288.   if (lpUIPrivate = nil) then    // can not draw soft keyboard window
  289.   begin
  290.     ImmUnlockIMC(_hIMC);
  291.     Exit;
  292.   end;
  294.   lpImcP := ImmLockIMCC(lpIMC.hPrivate);
  295.   if (lpImcP = nil) then
  296.   begin
  297.     GlobalUnlock(hUIPrivate);
  298.     ImmUnlockIMC(_hIMC);
  299.     Exit;
  300.   end;
  302.   if (lpIMC.fdwConversion and IME_CMODE_SOFTKBD) = 0 then
  303.   begin
  304.     if IsWindow(lpUIPrivate.hSoftKbdWnd) then
  305.     begin
  306.       ImmDestroySoftKeyboard(lpUIPrivate.hSoftKbdWnd);
  307.       lpUIPrivate.hSoftKbdWnd := 0;
  308.     end;
  310.     lpUIPrivate.nShowSoftKbdCmd := SW_HIDE;
  311.   end else
  312.     if (lpIMC.fOpen = False) then
  313.     begin
  314.       if (lpUIPrivate.nShowSoftKbdCmd <> SW_HIDE) then ShowSoftKbd(hUIWnd, SW_HIDE, nil);
  315.     end else
  316.     begin
  317.       if (IsWindow(lpUIPrivate.hSoftKbdWnd) = False) then
  318.         lpUIPrivate.hSoftKbdWnd := ImmCreateSoftKeyboard(SOFTKEYBOARD_TYPE_C1, hUIWnd, 0, 0);
  320.       if (lpIMC.fdwInit and INIT_SOFTKBDPOS) = 0 then CheckSoftKbdPosition(lpUIPrivate, lpIMC);
  322.       SetSoftKbdData(lpUIPrivate.hSoftKbdWnd, lpIMC);
  323.       lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext or ISC_SHOW_SOFTKBD;
  325.       if (lpUIPrivate.nShowSoftKbdCmd = SW_HIDE) then
  326.       begin
  327.         SetWindowPos(lpUIPrivate.hSoftKbdWnd, 0,
  328.           lpIMC.ptSoftKbdPos.x, lpIMC.ptSoftKbdPos.y, 0, 0, SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOZORDER);
  330.         // only show, if the application want to show it
  331.         if (lpUIPrivate.fdwSetContext and ISC_SHOW_SOFTKBD) <> 0 then ShowSoftKbd(hUIWnd, SW_SHOWNOACTIVATE, lpImcP);
  332.       end;
  333.     end;
  335.   ImmUnlockIMCC(lpIMC.hPrivate);
  336.   GlobalUnlock(hUIPrivate);
  337.   ImmUnlockIMC(_hIMC);
  338. end;
  340.   // IMN_SOFTKBDDESTROYED处理
  341. procedure SoftKbdDestroyed(hUIWnd: hWnd);
  342. var
  343.   hUIPrivate: HGlobal;
  344.   lpUIPrivate: PUIPriv;
  345. begin
  346.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  347.   if (hUIPrivate = 0) then Exit;
  349.   lpUIPrivate := GlobalLock(hUIPrivate);
  350.   if (lpUIPrivate = nil) then Exit;
  352.   lpUIPrivate.hSoftKbdWnd := 0;
  353.   GlobalUnlock(hUIPrivate);
  354. end;
  356.   // 打开关闭Status窗口
  357. procedure StatusWndMsg(hUIWnd: hWnd; fOn: Bool);
  358. var
  359.   hUIPrivate: hGlobal;
  360.   _hIMC: hIMC;
  361.   hStatusWnd: hWnd;
  362.   lpUIPrivate: PUIPriv;
  363.   fdwSetContext: DWord;
  364. begin
  365.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  366.   if (hUIPrivate = 0) then Exit;
  368.   lpUIPrivate := GlobalLock(hUIPrivate);
  369.   if (lpUIPrivate = nil) then Exit;
  371.   _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  372.   if (_hIMC = 0) then
  373.   begin
  374.     GlobalUnlock(hUIPrivate);
  375.     Exit;
  376.   end;
  378.   if (fOn = True) then
  379.   begin
  380.     lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext or ISC_OPEN_STATUS_WINDOW;
  381.     if (IsWindow(lpUIPrivate.hStatusWnd) = False) then OpenStatus(hUIWnd); // 重建
  382.   end else
  383.   begin
  384.     lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext and (not ISC_OPEN_STATUS_WINDOW);
  385.   end;
  387.   hStatusWnd := lpUIPrivate.hStatusWnd;
  388.   GlobalUnlock(hUIPrivate);
  389.   if (IsWindow(hStatusWnd) = False) then Exit;
  391.   if (fOn = False) then
  392.   begin
  393.     fdwSetContext := lpUIPrivate.fdwSetContext and (ISC_SHOWUICOMPOSITIONWINDOW or ISC_HIDE_COMP_WINDOW);
  394.     if (fdwSetContext = ISC_HIDE_COMP_WINDOW) then ShowComp(hUIWnd, SW_HIDE);
  396.     fdwSetContext := lpUIPrivate.fdwSetContext and (ISC_SHOWUICANDIDATEWINDOW or ISC_HIDE_CAND_WINDOW);
  397.     if (fdwSetContext = ISC_HIDE_CAND_WINDOW) then ShowCand(hUIWnd, SW_HIDE);
  399.     fdwSetContext := lpUIPrivate.fdwSetContext and (ISC_SHOW_SOFTKBD or ISC_HIDE_SOFTKBD);
  400.     if (fdwSetContext = ISC_HIDE_SOFTKBD) then
  401.     begin
  402.       lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext and (not ISC_HIDE_SOFTKBD);
  403.       ShowSoftKbd(hUIWnd, SW_HIDE, nil);
  404.     end;
  406.     ShowStatus(hUIWnd, SW_HIDE);
  407.   end else
  408.     if (_hIMC <> 0) then ShowStatus(hUIWnd, SW_SHOWNOACTIVATE) else ShowStatus(hUIWnd, SW_HIDE);
  409. end;
  411.   // 显示隐藏Ime界面
  412. procedure ShowUI(hUIWnd: hWnd; nShowCmd: Integer);
  413. label
  414.   ShowUIUnlockIMCC;
  415. var
  416.   _hIMC: hIMC;
  417.   lpIMC: PInputContext;
  418.   lpImcP: PPrivContext;
  419.   hUIPrivate: hGlobal;
  420.   lpUIPrivate: PUIPriv;
  421. begin
  422.   lpIMC := nil;
  423.   lpImcP := nil;
  425.   if (nShowCmd <> SW_HIDE) then
  426.   begin
  427.     _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  428.     if (_hIMC = 0) then
  429.     begin
  430.       nShowCmd := SW_HIDE;
  431.     end else
  432.     begin
  433.       lpIMC := ImmLockIMC(_hIMC);
  434.       if (lpIMC = nil) then
  435.       begin
  436.         nShowCmd := SW_HIDE;
  437.       end else
  438.       begin
  439.         lpImcP := ImmLockIMCC(lpIMC.hPrivate);
  440.         if (lpImcP = nil) then
  441.         begin
  442.           ImmUnlockIMC(_hIMC);
  443.           nShowCmd := SW_HIDE;
  444.         end;
  445.       end;
  446.     end;
  447.   end else
  448.     _hIMC := 0; // ++
  450.   if (nShowCmd = SW_HIDE) then
  451.   begin
  452.     ShowStatus(hUIWnd, nShowCmd);
  453.     ShowComp(hUIWnd, nShowCmd);
  454.     ShowCand(hUIWnd, nShowCmd);
  455.     ShowSoftKbd(hUIWnd, nShowCmd, nil);
  456.     Exit;
  457.   end;
  459.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  460.   if (hUIPrivate = 0) then goto ShowUIUnlockIMCC;  // can not darw status window
  462.   lpUIPrivate := GlobalLock(hUIPrivate);
  463.   if (lpUIPrivate = nil) then goto ShowUIUnlockIMCC;  // can not draw status window
  465.   lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext or ISC_SHOWUICOMPOSITIONWINDOW;
  467.   // Composition窗口
  468.   if (lpUIPrivate.fdwSetContext and ISC_SHOWUICOMPOSITIONWINDOW <> 0) and
  469.      (lpImcP.fdwImeMsg and MSG_ALREADY_START <> 0) then
  470.   begin
  471.     if IsWindow(lpUIPrivate.hCompWnd) then
  472.     begin
  473.       if (lpUIPrivate.nShowCompCmd <> SW_HIDE) then
  474.         RedrawWindow(lpUIPrivate.hCompWnd, nil, 0, RDW_FRAME or RDW_INVALIDATE or RDW_ERASE);
  476.       if (sImeG.IC_Trace <> 0) then // modify 95.7.17
  477.         SendMessage(lpUIPrivate.hCompWnd, WM_IME_NOTIFY, IMN_SETCOMPOSITIONWINDOW, 0);
  479.       if (lpUIPrivate.nShowCompCmd = SW_HIDE) then ShowComp(hUIWnd, nShowCmd);
  480.     end else
  481.       StartComp(hUIWnd);
  482.   end else
  483.   begin
  484.     if (lpUIPrivate.nShowCompCmd <> SW_HIDE) then
  485.       if (lpUIPrivate.fdwSetContext and ISC_OPEN_STATUS_WINDOW) <> 0 then
  486.         lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext or ISC_HIDE_COMP_WINDOW
  487.       else
  488.         ShowComp(hUIWnd, SW_HIDE);
  489.   end;
  491.   // Candidate窗口
  492.   if (lpUIPrivate.fdwSetContext and ISC_SHOWUICANDIDATEWINDOW <> 0) and
  493.      (lpImcP.fdwImeMsg and MSG_ALREADY_OPEN <> 0) then
  494.   begin
  495.     if IsWindow(lpUIPrivate.hCandWnd) then
  496.     begin
  497.       if (lpUIPrivate.nShowCandCmd <> SW_HIDE) then
  498.         RedrawWindow(lpUIPrivate.hCandWnd, nil, 0, RDW_FRAME or RDW_INVALIDATE or RDW_ERASE);
  500.       if (sImeG.IC_Trace <> 0) then
  501.         SendMessage(lpUIPrivate.hCandWnd, WM_IME_NOTIFY, IMN_SETCANDIDATEPOS, 1);
  503.       if (lpUIPrivate.nShowCandCmd = SW_HIDE) then ShowCand(hUIWnd, nShowCmd);
  504.     end else
  505.       OpenCand(hUIWnd);
  506.   end else
  507.   begin
  508.     if (lpUIPrivate.nShowCandCmd <> SW_HIDE) then
  509.       if (lpUIPrivate.fdwSetContext and ISC_OPEN_STATUS_WINDOW) <> 0 then
  510.         lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext or ISC_HIDE_CAND_WINDOW
  511.       else
  512.         ShowCand(hUIWnd, SW_HIDE);
  513.   end;
  515.   // Status窗口
  516.   if (lpUIPrivate.fdwSetContext and ISC_OPEN_STATUS_WINDOW) <> 0 then
  517.   begin
  518.     if (IsWindow(lpUIPrivate.hStatusWnd) = False) then OpenStatus(hUIWnd);
  520.     if (lpUIPrivate.nShowStatusCmd <> SW_HIDE) then
  521.       RedrawWindow(lpUIPrivate.hStatusWnd, nil, 0, RDW_FRAME or RDW_INVALIDATE or RDW_ERASE);
  523.     SendMessage(lpUIPrivate.hStatusWnd, WM_IME_NOTIFY, IMN_SETSTATUSWINDOWPOS, 0);
  525.     ShowStatus(hUIWnd, nShowCmd);
  526.   end else
  527.     if IsWindow(lpUIPrivate.hStatusWnd) then DestroyWindow(lpUIPrivate.hStatusWnd);
  530.   // 处于关闭状态
  531.   if (lpIMC.fOpen = False) then
  532.   begin
  533.     if (lpUIPrivate.nShowCompCmd <> SW_HIDE) then ShowSoftKbd(hUIWnd, SW_HIDE, nil);
  534.   end else
  535.     if (lpUIPrivate.fdwSetContext and ISC_SHOW_SOFTKBD <> 0) and
  536.        (lpIMC.fdwConversion and IME_CMODE_SOFTKBD <> 0) then
  537.     begin
  538.       if (IsWindow(lpUIPrivate.hSoftKbdWnd) = False) then
  539.       begin
  540.         UpdateSoftKbd(hUIWnd);
  541.       end else
  542.         if (lpUIPrivate.nShowSoftKbdCmd = SW_HIDE) then
  543.         begin
  544.           ShowSoftKbd(hUIWnd, nShowCmd, lpImcP);
  545.         end else
  546.           if (lpUIPrivate.hIMC <> _hIMC) then // **
  547.             UpdateSoftKbd(hUIWnd)
  548.           else
  549.             RedrawWindow(lpUIPrivate.hSoftKbdWnd, nil, 0, RDW_FRAME or RDW_INVALIDATE);
  550.     end else
  551.     begin
  552.       if (lpUIPrivate.nShowSoftKbdCmd <> SW_HIDE) then
  553.         if (lpUIPrivate.fdwSetContext and ISC_OPEN_STATUS_WINDOW) <> 0 then
  554.           lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext or ISC_HIDE_SOFTKBD
  555.         else
  556.           ShowSoftKbd(hUIWnd, SW_HIDE, nil);
  557.     end;
  559.   // we switch to this hIMC
  560.   lpUIPrivate.hIMC := _hIMC;
  561.   GlobalUnlock(hUIPrivate);    
  563. ShowUIUnlockIMCC:
  564.   ImmUnlockIMCC(lpIMC.hPrivate);
  565.   ImmUnlockIMC(_hIMC); 
  566. end;
  568.   // IMN_GUIDELINE处理
  569. procedure ShowGuideLine(hUIWnd: hWnd);
  570. var
  571.   _hIMC: hIMC;
  572.   lpIMC: PInputContext;
  573.   lpGuideLine: PGuideLine;
  574. begin
  575.   _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  576.   if (_hIMC = 0) then Exit;
  578.   lpIMC := ImmLockIMC(_hIMC);
  579.   if (lpIMC = nil) then Exit;
  581.   lpGuideLine := ImmLockIMCC(lpIMC.hGuideLine);
  582.   if (lpGuideLine <> nil) then
  583.     if (lpGuideLine.dwLevel = GL_LEVEL_ERROR) then
  584.     begin
  585.       MessageBeep($FFFFFFFF);
  586.       MessageBeep($FFFFFFFF);
  587.     end else
  588.       if (lpGuideLine.dwLevel = GL_LEVEL_WARNING) then MessageBeep($FFFFFFFF);
  590.   ImmUnlockIMCC(lpIMC.hGuideLine);
  591.   ImmUnlockIMC(_hIMC);
  592. end;
  594.   // IMN_PRIVATE_UPDATE_STATUS处理
  595. function UpdateStatusWindow(hUIWnd: hWnd): Bool;
  596. var
  597.   hStatusWnd: hWnd;
  598. begin
  599.   Result := False;
  601.   hStatusWnd := GetStatusWnd(hUIWnd);
  602.   if (IsWindow(hStatusWnd) = False) then Exit;
  604.   InvalidateRect(hStatusWnd, @sImeG.rcStatusText, True);
  605.   UpdateWindow(hStatusWnd);
  607.   Result := True;
  608. end;
  610.   // WM_IME_NOTIFY消息处理
  611. procedure NotifyUI(hUIWnd: hWnd; wParam: WParam; lParam: LParam);
  612. var
  613.   hStatusWnd, hCandWnd, hCompWnd: hWnd;
  614.   _hDC: hDC;
  615.   rcRect: TRect;
  616. begin
  617.   case (wParam) of
  618.     IMN_OPENSTATUSWINDOW:     // 打开Status窗口
  619.       StatusWndMsg(hUIWnd, True);
  621.     IMN_CLOSESTATUSWINDOW:    // 关闭Status窗口
  622.       StatusWndMsg(hUIWnd, False);
  624.     IMN_OPENCANDIDATE:        // 打开Candidate窗口
  625.       if (lParam and $00000001) <> 0 then OpenCand(hUIWnd);
  627.     IMN_CHANGECANDIDATE:      // 更新Candidate窗口
  628.       if (lParam and $00000001) <> 0 then
  629.       begin
  630.         hCandWnd := GetCandWnd(hUIWnd);
  631.         if (IsWindow(hCandWnd) = False) then Exit;
  633.         _hDC := GetDC(hCandWnd);
  634.         PaintCandWindow(hCandWnd, _hDC);
  635.         ReleaseDC(hCandWnd, _hDC);
  636.       end;
  638.     IMN_CLOSECANDIDATE:       // 关闭Candidate窗口
  639.       if (lParam and $00000001) <> 0 then CloseCand(hUIWnd);
  641.     IMN_SETSENTENCEMODE:
  642.       ;
  644.     IMN_SETOPENSTATUS,        // 设置输入法状态
  645.     IMN_SETCONVERSIONMODE:    // 改变输入法状态
  646.     begin
  647.       hStatusWnd := GetStatusWnd(hUIWnd);
  648.       if (IsWindow(hStatusWnd) = False) then Exit;
  650.       rcRect := sImeG.rcStatusText;
  652.       // off by 1
  653.       Inc(rcRect.Right);
  654.       Inc(rcRect.Bottom);
  656.       RedrawWindow(hStatusWnd, @rcRect, 0, RDW_INVALIDATE);
  657.     end;
  659.     IMN_SETCOMPOSITIONFONT:
  660.       // we are not going to change font, but an IME can do this if it want
  661.       ;
  663.     IMN_SETCOMPOSITIONWINDOW: // 设置Composition窗口
  664.     begin
  665.       hCompWnd := GetCompWnd(hUIWnd);
  666.       if IsWindow(hCompWnd) then PostMessage(hCompWnd, WM_IME_NOTIFY, wParam, lParam);
  667.     end;
  669.     IMN_SETCANDIDATEPOS:      // 设置Candidate窗口
  670.     begin
  671.       hCandWnd := GetCandWnd(hUIWnd);
  672.       if IsWindow(hCandWnd) then PostMessage(hCandWnd, WM_IME_NOTIFY, wParam, lParam);
  673.     end;
  675.     IMN_SETSTATUSWINDOWPOS:   // 设置Status窗口
  676.     begin
  677.       hStatusWnd := GetStatusWnd(hUIWnd);
  678.       if IsWindow(hStatusWnd) then  PostMessage(hStatusWnd, WM_IME_NOTIFY, wParam, lParam);
  679.     end;
  681.     IMN_GUIDELINE:            // 错误信息处理
  682.       ShowGuideLine(hUIWnd);
  684.     IMN_PRIVATE:              // 自定义Ime通知
  685.     begin
  686.       case (lParam) of
  687.         IMN_PRIVATE_UPDATE_SOFTKBD: UpdateSoftKbd(hUIWnd);
  688.         IMN_PRIVATE_UPDATE_STATUS: UpdateStatusWindow(hUIWnd);
  689.         IMN_PRIVATE_DESTROYCANDWIN: SendMessage(GetCandWnd(hUIWnd), WM_DESTROY, 0, 0);
  690.         IMN_PRIVATE_CMENUDESTROYED: CMenuDestroyed(hUIWnd);
  691.         IMN_PRIVATE_SOFTKEYMENUDESTROYED: SoftkeyMenuDestroyed(hUIWnd);
  692.       end;
  693.     end;
  695.     IMN_SOFTKBDDESTROYED:     // 软键盘被销毁
  696.       SoftKbdDestroyed(hUIWnd);
  697.   end;
  698. end;
  700.   // WM_PAINT处理
  701. function UIPaint(hUIWnd: hWnd): LResult;
  702. var
  703.   ps: TPaintStruct;
  704.   sMsg: TMsg;
  705.   hUIPrivate: hGlobal;
  706.   lpUIPrivate: PUIPriv;
  707. begin
  708.   Result := 0;
  710.   // for safety
  711.   BeginPaint(hUIWnd, ps);
  712.   EndPaint(hUIWnd, ps);
  714.   // some application will not remove the WM_PAINT messages
  715.   PeekMessage(sMsg, hUIWnd, WM_PAINT, WM_PAINT, PM_REMOVE or PM_NOYIELD);
  717.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  718.   if (hUIPrivate = 0) then Exit;
  720.   lpUIPrivate := GlobalLock(hUIPrivate);
  721.   if (lpUIPrivate = nil) then Exit;
  723.   if (lpUIPrivate.fdwSetContext and ISC_SETCONTEXT_UI) <> 0 then
  724.     ShowUI(hUIWnd, SW_SHOWNOACTIVATE)
  725.   else
  726.     ShowUI(hUIWnd, SW_HIDE);
  728.   GlobalUnlock(hUIPrivate);
  729. end;
  731.   // 激活休眠输入法
  732. procedure SetContext(hUIWnd: hWnd; fOn: Bool; lShowUI: LParam);
  733. label
  734.   SetShowStatus;
  735. var
  736.   _hIMC: hIMC;
  737.   lpIMC: PInputContext;
  738.   lpImcP: PPrivContext;
  739.   hUIPrivate: hGlobal;
  740.   lpUIPrivate: PUIPriv;
  741.   fdwSetContext, fdwConversion: DWord;
  742.   _hKey, hKeyCurrVersion, hKeyGB: hKey;
  743.   Buf: array[0..MAX_PATH] of Char;
  744.   bcData, ValueType, ValueSize, retCode: DWord;
  745.   ui_Mode: Integer;
  746.   lpbKeyState: TKeyboardState;
  747.   ptSTFixPos, ptNew, ptSTWPos: TPoint;
  748. begin
  749.   _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  750.   if (_hIMC = 0) then Exit;
  752.   lpIMC := ImmLockIMC(_hIMC);
  753.   if (lpIMC = nil)  then Exit;
  755.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  756.   if (hUIPrivate = 0) then
  757.   begin
  758.     ImmUnlockIMC(_hIMC);
  759.     Exit;
  760.   end;
  762.   lpUIPrivate := GlobalLock(hUIPrivate);
  763.   if (lpUIPrivate = nil) then
  764.   begin
  765.     ImmUnlockIMC(_hIMC);
  766.     Exit;
  767.   end;
  769.   if (fOn = True) then
  770.   begin
  771.     lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext and not(ISC_SHOWUIALL or ISC_HIDE_SOFTKBD);
  772.     lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext or (lShowUI and ISC_SHOWUIALL) or ISC_SHOW_SOFTKBD;
  774.     bcData := 256;
  776.     if (RegOpenKeyEx(HKEY_CURRENT_USER, 'Control PanelInput Method', 0, KEY_ENUMERATE_SUB_KEYS or KEY_EXECUTE or KEY_QUERY_VALUE, _hKey) <> ERROR_SUCCESS) then
  777.     begin
  778.       goto SetShowStatus;
  779.     end;
  781.     if (RegQueryValueEx(_hKey, 'show status', nil, nil, @Buf, @bcData) <> ERROR_SUCCESS) then
  782.     begin
  783.       lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext or ISC_OPEN_STATUS_WINDOW;
  784.       goto SetShowStatus;
  785.     end;
  787.     if (Buf[0] = '1') then
  788.       lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext or ISC_OPEN_STATUS_WINDOW
  789.     else
  790.       lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext and (not ISC_OPEN_STATUS_WINDOW);
  792. SetShowStatus:
  793.     RegCloseKey(_hKey);
  795.     fdwSetContext := lpUIPrivate.fdwSetContext and (ISC_SHOWUICOMPOSITIONWINDOW or ISC_HIDE_COMP_WINDOW);
  796.     if (fdwSetContext = ISC_HIDE_COMP_WINDOW) then
  797.     begin
  798.       ShowComp(hUIWnd, SW_HIDE);
  799.     end else
  800.       if ((fdwSetContext and ISC_HIDE_COMP_WINDOW) <> 0) then
  801.       begin
  802.         lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext and (not ISC_HIDE_COMP_WINDOW);
  803.       end else
  804.       begin
  805.       end;
  807.     fdwSetContext := lpUIPrivate.fdwSetContext and (ISC_SHOWUICANDIDATEWINDOW or ISC_HIDE_CAND_WINDOW);
  808.     if (fdwSetContext = ISC_HIDE_CAND_WINDOW) then
  809.     begin
  810.       ShowCand(hUIWnd, SW_HIDE);
  811.     end else
  812.       if ((fdwSetContext and ISC_HIDE_CAND_WINDOW) = 0) then
  813.       begin
  814.         lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext and (not ISC_HIDE_CAND_WINDOW);
  815.       end else
  816.       begin
  817.       end;
  819.     if (lpIMC.cfCandForm[0].dwIndex <> 0) then lpIMC.cfCandForm[0].dwStyle := CFS_DEFAULT;
  821.     lpImcP := ImmLockIMCC(lpIMC.hPrivate);
  822.     if (lpImcP = nil) then
  823.     begin
  824.       GlobalUnlock(hUIPrivate);
  825.       ImmUnlockIMC(_hIMC);
  826.       Exit;
  827.     end;
  829.     // init ime properties & reset context
  830.     retCode := OpenReg_PathSetup(@hKeyCurrVersion);
  831.     if (retCode <> ERROR_SUCCESS) then
  832.     begin
  833.       wvsprintf(Buf, 'Error: RegOpenKeyEx = %d', @retCode);
  834.       MessageBox(lpIMC.hWnd, Buf, szWarnTitle, MB_OK or MB_ICONINFORMATION);
  835.       Exit;
  836.     end;
  838.     // query 光标跟随 value
  839.     retCode := OpenReg_User(hKeyCurrVersion, szImeRegName, @hKeyGB);
  840.     ValueSize := SizeOf(DWord);
  841.     RegQueryValueEx(hKeyGB, szTrace, nil, @ValueType, @sImeG.IC_Trace, @ValueSize);
  843.     RegCloseKey(hKeyGB);
  844.     RegCloseKey(hKeyCurrVersion);
  846.     if (sImeG.IC_Trace <> SaTC_Trace) then // **
  847.     begin
  848.       lpImcP.iImeState := CST_INIT;
  849.       CompCancel(_hIMC, lpIMC);
  851.       // init fields of hPrivate
  852.       lpImcP.fdwImeMsg := 0;
  853.       lpImcP.dwCompChar := 0;
  854.       lpImcP.fdwGcsFlag := 0;
  855.       lpImcP.uSYHFlg := $00000000;
  856.       lpImcP.uDYHFlg := $00000000;
  858.       // change compwnd size
  860.       // init fields of hIMC
  861.       lpIMC.fOpen := True;
  863.       SendMessage(GetCandWnd(hUIWnd), WM_DESTROY, 0, 0);
  865.       // set cand window data
  866.       if (sImeG.IC_Trace <> 0) then
  867.       begin
  868.         ui_Mode := BOX_UI;
  869.       end else
  870.       begin
  871.         ui_Mode := LIN_UI;
  872.         ptSTFixPos.x := 0;
  873.         ptSTFixPos.y := sImeG.rcWorkArea.Bottom - sImeG.yStatusHi;
  874.         ImmSetStatusWindowPos(_hIMC, @ptSTFixPos);
  875.       end;
  877.       InitCandUIData(GetSystemMetrics(SM_CXBORDER), GetSystemMetrics(SM_CYBORDER), ui_Mode);
  878.     end;
  880.     SaTC_Trace := sImeG.IC_Trace;
  882.     // init Caps
  883.     GetKeyboardState(lpbKeyState);
  884.     if (lpbKeyState[VK_CAPITAL] and $01) <> 0 then
  885.     begin
  886.       // 10.11 add
  887.       uCaps := 1;
  889.       // change to alphanumeric mode
  890.       fdwConversion := lpIMC.fdwConversion and not(IME_CMODE_CHARCODE or IME_CMODE_NATIVE or IME_CMODE_EUDC);
  891.     end else
  892.     begin
  893.       // change to native mode
  894.       if (uCaps = 1) then
  895.         fdwConversion := (lpIMC.fdwConversion or IME_CMODE_NATIVE) and not(IME_CMODE_CHARCODE or IME_CMODE_EUDC)
  896.       else
  897.         fdwConversion := lpIMC.fdwConversion;
  899.       uCaps := 0;
  900.     end;
  901.     ImmSetConversionStatus(_hIMC, fdwConversion, lpIMC.fdwSentence);
  903.     if (lpIMC.cfCompForm.dwStyle and CFS_FORCE_POSITION <> 0) and (sImeG.IC_Trace <> 0) then
  904.     begin
  905.       ImmGetStatusWindowPos(_hIMC, @ptSTWPos);
  907.       ptNew.x := ptSTWPos.x + sImeG.xStatusWi + ui_Margin;
  908.       if (ptSTWPos.x + sImeG.xStatusWi + sImeG.xCandWi + sImeL.xCompWi + 2 * ui_Margin) >= sImeG.rcWorkArea.Right then
  909.       begin
  910.        ptNew.x := ptSTWPos.x - sImeL.xCompWi - ui_Margin;
  911.       end;
  913.       Inc(ptNew.x, sImeL.cxCompBorder);
  914.       ptNew.y := ptSTWPos.y + sImeL.cyCompBorder;
  915.       lpIMC.cfCompForm.ptCurrentPos := ptNew;
  917.       ScreenToClient(lpIMC.hWnd, lpIMC.cfCompForm.ptCurrentPos);
  918.       lpIMC.cfCompForm.dwStyle := CFS_DEFAULT;
  919.     end;
  920.   end else
  921.     lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext and (not ISC_SETCONTEXT_UI);
  923.   GlobalUnlock(hUIPrivate);
  924.   UIPaint(hUIWnd);
  925.   ImmUnlockIMC(_hIMC);
  926. end;
  928.   // IMC_GETCOMPOSITIONWINDOW处理
  929. function GetCompWindow(hUIWnd: hWnd; lpCompForm: PCompositionForm): LResult;
  930. var
  931.   hCompWnd: hWnd;
  932.   rcCompWnd: TRect;
  933. begin
  934.   Result := 1;
  936.   hCompWnd := GetCompWnd(hUIWnd);
  937.   if IsWindow(hCompWnd) = False then Exit;
  939.   if (GetWindowRect(hCompWnd, rcCompWnd) = False) then Exit;
  941.   lpCompForm.dwStyle := CFS_POINT or CFS_RECT;
  942.   lpCompForm.ptCurrentPos := PPoint(@rcCompWnd)^;
  943.   lpCompForm.rcArea := rcCompWnd;
  945.   Result := 0;
  946. end;
  948.   // UI窗口回调
  949. function UIWndProc(hUIWnd: hWnd; uMsg: uInt; wParam: WParam; lParam: LParam): LResult; stdcall;
  950. var
  951.   hCompWnd, hStatusWnd: hWnd;
  952.   rcRect, rcStatusWnd: TRect;
  953.   _hIMC: hIMC;
  954.   lpIMC: PInputContext;
  955.   lpImcP: PPrivContext;
  956.   ptPos: TPoint;
  957. begin
  958. {$IfDef Debug}
  959.   ImeLog('UIWndProc, uMsg:' + Int2Hex(uMsg) + ', wParam:' + Int2Hex(wParam) + ', lParam:' + Int2Hex(lParam));
  960. {$EndIf}
  962.   Result := 0;
  964.   case (uMsg) of
  965.     WM_CREATE:
  966.       CreateUIWindow(hUIWnd);
  968.     WM_DESTROY:
  969.       DestroyUIWindow(hUIWnd);
  971.     WM_IME_STARTCOMPOSITION: // you can create a window as the composition window here
  972.       StartComp(hUIWnd);
  974.     WM_IME_COMPOSITION:      // 编码(Composition)状态改变
  975.     begin
  976.       if (sImeG.IC_Trace = 0) then
  977.       begin
  978.       end else
  979.         if (lParam and GCS_RESULTSTR) <> 0 then
  980.         begin
  981.           MoveDefaultCompPosition(hUIWnd);
  982.         end else
  983.         begin
  984.         end;
  986.       hCompWnd := GetCompWnd(hUIWnd);
  987.       if IsWindow(hCompWnd) then
  988.       begin
  989.         rcRect := sImeL.rcCompText;
  991.         // off by 1
  992.         Inc(rcRect.Right, 1);
  993.         Inc(rcRect.Bottom, 1);
  995.         RedrawWindow(hCompWnd, @rcRect, 0, RDW_INVALIDATE);
  996.       end;
  997.     end;
  999.     WM_IME_ENDCOMPOSITION:  // you can destroy the composition window here
  1000.       EndComp(hUIWnd);
  1002.     WM_IME_NOTIFY:          // Ime通知消息组
  1003.       NotifyUI(hUIWnd, wParam, lParam);
  1005.     WM_IME_SETCONTEXT:      // 激活/休眠输入法
  1006.     begin
  1007.       SetContext(hUIWnd, Bool(wParam), lParam);
  1008.       if (wParam <> 0) and (GetWindowLong(hUIWnd, IMMGWLP_IMC) <> 0) then
  1009.         SetWindowPos(hUIWnd, 0, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOMOVE);
  1010.     end;
  1012.     WM_IME_CONTROL:         // Ime控制消息组
  1013.       case (wParam) of
  1014.         IMC_GETCANDIDATEPOS:      // not implemented yet
  1015.         begin
  1016.           Result := 1;
  1017.         end;
  1019.         IMC_GETCOMPOSITIONFONT:   // not implemented yet
  1020.         begin
  1021.           Result := 1;
  1022.         end;
  1024.         IMC_GETCOMPOSITIONWINDOW: // 取Composition窗口位置
  1025.         begin
  1026.           Result := GetCompWindow(hUIWnd, PCompositionForm(lParam));
  1027.         end;
  1029.         IMC_GETSTATUSWINDOWPOS:   // 取Status窗口位置
  1030.         begin
  1031.           hStatusWnd := GetStatusWnd(hUIWnd);
  1032.           if IsWindow(hStatusWnd) = False then Exit;
  1033.           if (GetWindowRect(hStatusWnd, rcStatusWnd) = False) then Exit;
  1035.           Result := MakeLResult(rcStatusWnd.Left, rcStatusWnd.Top);
  1036.         end;
  1038.         IMC_SETSTATUSWINDOWPOS:   // 设Status窗口位置
  1039.         begin
  1040.           Result := 1;
  1042.           ptPos.x := PSmallPoint(@lParam).x;
  1043.           ptPos.y := PSmallPoint(@lParam).y;
  1045.           _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  1046.           if (_hIMC = 0) then Exit;
  1047.           if (ImmSetStatusWindowPos(_hIMC, @ptPos) = False) then  Exit;
  1049.           // set comp window position when TraceCuer
  1050.           lpIMC := ImmLockIMC(_hIMC);
  1051.           if (lpIMC = nil) then Exit;
  1053.           lpImcP := ImmLockIMCC(lpIMC.hPrivate);
  1054.           if (lpImcP = nil) then Exit;
  1056.           if (sImeG.IC_Trace = 0) then
  1057.           begin
  1058.             lpIMC.cfCompForm.dwStyle := CFS_RECT;
  1059.             lpIMC.cfCompForm.ptCurrentPos.x := ptPos.x + sImeG.xStatusWi + ui_Margin;
  1060.             lpIMC.cfCompForm.ptCurrentPos.y := ptPos.y;
  1061.             CopyRect(lpIMC.cfCompForm.rcArea, sImeG.rcWorkArea);
  1062.             ScreenToClient(lpIMC.hWnd, lpIMC.cfCompForm.ptCurrentPos);
  1064.             // set composition window to the new poosition
  1065.             PostMessage(GetCompWnd(hUIWnd), WM_IME_NOTIFY, IMN_SETCOMPOSITIONWINDOW, 0);
  1066.           end;
  1068.           ImmUnlockIMCC(lpIMC.hPrivate);
  1069.           ImmUnlockIMC(_hIMC);
  1071.           Result := 0;
  1072.         end;
  1074.         else begin
  1075.           Result := 1;
  1076.         end;
  1077.       end;
  1079.     WM_IME_COMPOSITIONFULL:
  1080.       ;
  1082.     WM_IME_SELECT:                // 选中新的输入法
  1083.       SetContext(hUIWnd, Bool(wParam), 0);
  1085.     WM_MOUSEACTIVATE:
  1086.       Result := MA_NOACTIVATE;
  1088.     WM_PAINT:
  1089.       Result := UIPaint(hUIWnd);
  1091.     else
  1092.       Result := DefWindowProc(hUIWnd, uMsg, wParam, lParam);
  1093.   end;
  1094. end;
  1096.   // 绘制凸出边框
  1097. procedure DrawConvexRect(_hDC: hDC; x1, y1, x2, y2: Integer);
  1098. var
  1099.   _hPen, hOldPen: hPen;
  1100. begin
  1101.   SelectObject(_hDC, GetStockObject(LTGRAY_BRUSH));
  1102.   SelectObject(_hDC, GetStockObject(WHITE_PEN));
  1103.   MoveToEx(_hDC, x1, y1, nil);
  1104.   LineTo(_hDC, x2, y1);
  1105.   MoveToEx(_hDC, x1, y1, nil);
  1106.   LineTo(_hDC, x1, y2);
  1107.   _hPen := CreatePen(PS_SOLID, 1, RGB(128, 128, 128));
  1108.   hOldPen := SelectObject(_hDC, _hPen);
  1109.   MoveToEx(_hDC, x2 - 1, y2 - 1, nil);
  1110.   LineTo(_hDC, x2 - 1, y1);
  1111.   MoveToEx(_hDC, x2 - 1, y2 - 1, nil);
  1112.   LineTo(_hDC, x1, y2 - 1);
  1113.   SelectObject(_hDC, hOldPen);
  1114.   DeleteObject(_hPen);
  1115. end;
  1117.   // 绘制凸出边框
  1118. procedure DrawConvexRectP(_hDC: hDC; x1, y1, x2, y2: Integer);
  1119. var
  1120.   _hPen, hOldPen: hPen;
  1121. begin
  1122.   SelectObject(_hDC, GetStockObject(LTGRAY_BRUSH));
  1123.   SelectObject(_hDC, GetStockObject(WHITE_PEN));
  1124.   MoveToEx(_hDC, x1, y1, nil);
  1125.   LineTo(_hDC, x2 - 1, y1);
  1126.   MoveToEx(_hDC, x1, y1, nil);
  1127.   LineTo(_hDC, x1, y2 - 1);
  1128.   _hPen := CreatePen(PS_SOLID, 1, RGB(0, 0, 0));
  1129.   hOldPen := SelectObject(_hDC, _hPen);
  1130.   MoveToEx(_hDC, x2 - 1, y2 - 1, nil);
  1131.   LineTo(_hDC, x2 - 1, y1);
  1132.   MoveToEx(_hDC, x2 - 1, y2 - 1, nil);
  1133.   LineTo(_hDC, x1, y2 - 1);
  1134.   SelectObject(_hDC, hOldPen);
  1135.   DeleteObject(_hPen);
  1136. end;
  1138.   // 绘制凹陷边框
  1139. procedure DrawConcaveRect(_hDC: hDC; x1, y1, x2, y2: Integer);
  1140. var
  1141.   hLtPen, OldPen: hPen;
  1142. begin
  1143.   hLtPen := CreatePen(PS_SOLID, 1, $00808080);
  1144.   OldPen := SelectObject(_hDC, hLtPen);
  1146.   MoveToEx(_hDC, x1, y1, nil);
  1147.   LineTo(_hDC, x2, y1);
  1148.   MoveToEx(_hDC, x1, y1, nil);
  1149.   LineTo(_hDC, x1, y2);
  1150.   SelectObject(_hDC, GetStockObject(WHITE_PEN));
  1151.   MoveToEx(_hDC, x2, y2, nil);
  1152.   LineTo(_hDC, x2, y1 - 1);
  1153.   MoveToEx(_hDC, x2, y2, nil);
  1154.   LineTo(_hDC, x1 - 1, y2);
  1155.   SelectObject(_hDC, OldPen);
  1156.   DeleteObject(hLtPen);
  1157. end;
  1159. end.