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

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

输入法编程

开发平台：

Delphi

Statusui.pas：源码内容
  2.  {******************************************************}
  3.  {                                                      }
  4.  {    Copyright (c) 1990-1999 Microsoft Corporation     }
  5.  {                                                      }
  6.  {    Module Name:  Statusui.c ->>  Statusui.pas        }
  7.  {                                                      }
  8.  {    Translator:  Liu_mazi@126.com, 2005-11-16         }
  9.  {                                                      }
  10.  {******************************************************}
  12. unit Statusui;
  14. {$I Define.Inc}
  16. interface
  18. uses Windows;
  20. function GetStatusWnd(hUIWnd: hWnd): hWnd; // 返回Status窗口句柄
  21. function StatusWndProc(hStatusWnd: hWnd; uMsg: uInt; wParam: WParam; lParam: LParam): LResult; stdcall; // Status窗口回调
  22. function ImeVerDlgProc(hDlg: hWnd; uMessage: uInt; wParam: WParam; lParam: LParam): Bool; stdcall; // 版本对话框回调
  23. procedure OpenStatus(hUIWnd: hWnd);  // "打开"Status窗口
  24. procedure ShowStatus(hUIWnd: hWnd; nShowStatusCmd: Integer); // 显示隐藏Status窗口
  26. implementation
  28. uses Messages, ImmDev, ImeDefs, Data, DDIS, Uisubs, Ui, LogText;
  30.   // 返回Status窗口句柄
  31. function GetStatusWnd(hUIWnd: hWnd): hWnd;
  32. var
  33.   hUIPrivate: hGlobal;
  34.   lpUIPrivate: PUIPriv;
  35. begin
  36.   Result := 0;
  38.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  39.   if (hUIPrivate = 0) then Exit;     // can not darw status window
  41.   lpUIPrivate := GlobalLock(hUIPrivate);
  42.   if (lpUIPrivate = nil) then Exit;  // can not draw status window
  44.   Result := lpUIPrivate.hStatusWnd;
  45.   GlobalUnlock(hUIPrivate);
  46. end;
  48.   // 调整Status窗口位置
  49. procedure AdjustStatusBoundary(lppt: PSmallPoint; hUIWnd: hWnd);
  50. var
  51.   Comp_CandWndLen: Integer;
  52. begin
  53.   // boundary check ..
  54.   if (lppt.x < sImeG.rcWorkArea.Left) then
  55.     lppt.x := sImeG.rcWorkArea.Left
  56.   else
  57.     if (lppt.x + sImeG.xStatusWi > sImeG.rcWorkArea.Right) then
  58.       lppt.x := sImeG.rcWorkArea.Right - sImeG.xStatusWi;
  60.   if (lppt.y < sImeG.rcWorkArea.Top) then
  61.     lppt.y := sImeG.rcWorkArea.Top
  62.   else
  63.     if (lppt.y + sImeG.yStatusHi > sImeG.rcWorkArea.Bottom) then
  64.       lppt.y := sImeG.rcWorkArea.Bottom - sImeG.yStatusHi;
  66.   // 固定模式
  67.   if (sImeG.IC_Trace = 0) then
  68.   begin
  69.     Comp_CandWndLen := 0;
  70.     if (uStartComp <> 0) then Inc(Comp_CandWndLen, sImeL.xCompWi + UI_MARGIN);
  71.     if (uOpenCand <> 0) then Inc(Comp_CandWndLen, sImeG.xCandWi + UI_MARGIN);
  73.     if (lppt.x + sImeG.xStatusWi + Comp_CandWndLen > sImeG.rcWorkArea.Right) then
  74.       lppt.x := sImeG.rcWorkArea.Right - sImeG.xStatusWi - Comp_CandWndLen;
  75.   end;
  76. end;
  78.   // 设置Status窗口位置
  79. function SetStatusWindowPos(hStatusWnd: hWnd): LResult;
  80. var
  81.   hUIWnd: hWnd;
  82.   _hIMC: hIMC;
  83.   lpIMC: PInputContext;
  84.   ptPos: TSmallPoint;
  85. begin
  86.   Result := 1;
  88.   hUIWnd := GetWindow(hStatusWnd, GW_OWNER);
  90.   _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  91.   if (_hIMC = 0) then Exit;
  93.   lpIMC := ImmLockIMC(_hIMC);
  94.   if (lpIMC = nil) then Exit;
  96.   ptPos.x := lpIMC.ptStatusWndPos.x;
  97.   ptPos.y := lpIMC.ptStatusWndPos.y;
  98.   AdjustStatusBoundary(@ptPos, hUIWnd);
  99.   SetWindowPos(hStatusWnd, 0, ptPos.x, ptPos.y, 0, 0, SWP_NOACTIVATE or SWP_NOCOPYBITS or SWP_NOSIZE or SWP_NOZORDER);
  101.   ImmUnlockIMC(_hIMC);
  103.   Result := 0;
  104. end;
  106.   // 显示隐藏Status窗口
  107. procedure ShowStatus(hUIWnd: hWnd; nShowStatusCmd: Integer);
  108. var
  109.   hUIPrivate: hGlobal;
  110.   lpUIPrivate: PUIPriv;
  111. begin
  112.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  113.   if (hUIPrivate = 0) then Exit;  // can not darw status window
  115.   lpUIPrivate := GlobalLock(hUIPrivate);
  116.   if (lpUIPrivate = nil) then Exit; // can not draw status window
  118.   if IsWindow(lpUIPrivate.hStatusWnd) and (lpUIPrivate.nShowStatusCmd <> nShowStatusCmd) then
  119.   begin
  120.     SystemParametersInfo(SPI_GETWORKAREA, 0, @sImeG.rcWorkArea, 0);
  121.     SetStatusWindowPos(lpUIPrivate.hStatusWnd);
  122.     ShowWindow(lpUIPrivate.hStatusWnd, nShowStatusCmd);
  123.     lpUIPrivate.nShowStatusCmd := nShowStatusCmd;
  124.   end;
  126.   GlobalUnlock(hUIPrivate);
  127. end;
  129.   // "打开"Status窗口
  130. procedure OpenStatus(hUIWnd: hWnd);
  131. var
  132.   hUIPrivate: hGlobal;
  133.   lpUIPrivate: PUIPriv;
  134.   _hIMC: hIMC;
  135.   lpIMC: PInputContext;
  136.   ptPos: TPoint;
  137. //  nShowStatusCmd: Integer;
  138. begin
  139.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  140.   if (hUIPrivate = 0) then Exit;       // can not darw status window
  142.   lpUIPrivate := GlobalLock(hUIPrivate);
  143.   if (lpUIPrivate = nil) then Exit;    // can not draw status window
  145.   _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  146.   if (_hIMC = 0) then
  147.   begin
  148.     ptPos.x := sImeG.rcWorkArea.Left;
  149.     ptPos.y := sImeG.rcWorkArea.Bottom - sImeG.yStatusHi;
  150.     // nShowStatusCmd := SW_HIDE;
  151.   end else
  152.   begin
  153.     lpIMC := ImmLockIMC(_hIMC);
  154.     if (lpIMC <> nil) then
  155.     begin
  156.       if (lpIMC.ptStatusWndPos.x < sImeG.rcWorkArea.Left) then
  157.         lpIMC.ptStatusWndPos.x := sImeG.rcWorkArea.Left
  158.       else
  159.         if (lpIMC.ptStatusWndPos.x + sImeG.xStatusWi > sImeG.rcWorkArea.Right) then
  160.           lpIMC.ptStatusWndPos.x := sImeG.rcWorkArea.Right - sImeG.xStatusWi;
  162.       if (lpIMC.ptStatusWndPos.y < sImeG.rcWorkArea.Top) then
  163.         lpIMC.ptStatusWndPos.y := sImeG.rcWorkArea.Top
  164.       else
  165.         if (lpIMC.ptStatusWndPos.y + sImeG.yStatusHi > sImeG.rcWorkArea.Right) then
  166.           lpIMC.ptStatusWndPos.y := sImeG.rcWorkArea.Bottom - sImeG.yStatusHi;
  168.       if (sImeG.IC_Trace <> 0) then
  169.       begin
  170.         ptPos.x := lpIMC.ptStatusWndPos.x;
  171.         ptPos.y := lpIMC.ptStatusWndPos.y;
  172.       end else
  173.       begin
  174.         ptPos.x := sImeG.rcWorkArea.Left;
  175.         ptPos.y := sImeG.rcWorkArea.Bottom - sImeG.yStatusHi;
  176.       end;
  178.       ImmUnlockIMC(_hIMC);
  179.       // nShowStatusCmd := SW_SHOWNOACTIVATE;
  180.     end else
  181.     begin
  182.       ptPos.x := sImeG.rcWorkArea.Left;
  183.       ptPos.y := sImeG.rcWorkArea.Bottom - sImeG.yStatusHi;
  184.       // nShowStatusCmd := SW_HIDE;
  185.     end;
  186.   end;
  188.   if IsWindow(lpUIPrivate.hStatusWnd) then
  189.   begin
  190.     SetWindowPos(lpUIPrivate.hStatusWnd, 0, ptPos.x, ptPos.y, 0, 0, SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOZORDER);
  191.   end else
  192.   begin
  193.     lpUIPrivate.hStatusWnd := CreateWindowEx(WS_EX_WINDOWEDGE or WS_EX_DLGMODALFRAME, szStatusClassName, nil,
  194.       WS_POPUP or WS_DISABLED, ptPos.x, ptPos.y, sImeG.xStatusWi, sImeG.yStatusHi, hUIWnd, 0, HInstance, nil);
  196.     SetWindowLong(lpUIPrivate.hStatusWnd, UI_MOVE_OFFSET, WINDOW_NOT_DRAG);
  197.     SetWindowLong(lpUIPrivate.hStatusWnd, UI_MOVE_XY, 0);
  198.   end;
  200.   lpUIPrivate.fdwSetContext := lpUIPrivate.fdwSetContext or ISC_OPEN_STATUS_WINDOW;
  201.   if (_hIMC <> 0) then ShowStatus(hUIWnd, SW_SHOWNOACTIVATE);
  203.   GlobalUnlock(hUIPrivate);
  204. end;
  206.   // WM_DESTROY消息处理
  207. procedure DestroyStatusWindow(hStatusWnd: hWnd);
  208. var
  209.   hUIWnd: hWnd;
  210.   hUIPrivate: hGlobal;
  211.   lpUIPrivate: PUIPriv;
  212. begin
  213.   if (GetWindowLong(hStatusWnd, UI_MOVE_OFFSET) <> WINDOW_NOT_DRAG) then // undo the drag border
  214.   begin
  215.     DrawDragBorder(hStatusWnd, GetWindowLong(hStatusWnd, UI_MOVE_XY), GetWindowLong(hStatusWnd, UI_MOVE_OFFSET));
  216.   end;
  218.   hUIWnd := GetWindow(hStatusWnd, GW_OWNER);
  219.   if (IsWindow(hUIWnd) = False) then Exit;
  221.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  222.   if (hUIPrivate = 0) then Exit;         // can not darw status window
  224.   lpUIPrivate := GlobalLock(hUIPrivate);
  225.   if (lpUIPrivate = nil) then Exit;      // can not draw status window
  227.   lpUIPrivate.nShowStatusCmd := SW_HIDE;
  228.   lpUIPrivate.hStatusWnd := 0;
  230.   GlobalUnlock(hUIPrivate);
  231. end;
  233.   // WM_LBUTTONDOWN处理
  234. procedure SetStatus(hStatusWnd: hWnd; lpptCursor: PPoint);
  235. var
  236.   hUIWnd: hWnd;
  237.   _hIMC: hIMC;
  238.   lpIMC: PInputContext;
  239.   lpbKeyState: TKeyboardState;
  240.   dwConvMode, fdwConversion: DWord;
  241.   lpImcP: PPrivContext;
  242. begin
  243.   hUIWnd := GetWindow(hStatusWnd, GW_OWNER);
  244.   if (IsWindow(hUIWnd) = False) then Exit;
  246.   _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  247.   if (_hIMC = 0) then Exit;
  249.   lpIMC := ImmLockIMC(_hIMC);
  250.   if (lpIMC = nil) then Exit;
  252.   if (lpIMC.fOpen = False) then
  253.   begin
  254.     ImmSetOpenStatus(_hIMC, True);
  255.   end else
  256.     if PtInRect(sImeG.rcImeIcon, lpptCursor^) then // Ime图标..
  257.     begin
  258.       if (lpIMC.fdwConversion and (IME_CMODE_CHARCODE or IME_CMODE_EUDC) <> 0) then
  259.       begin  // change to native mode
  260.         fdwConversion := (lpIMC.fdwConversion or IME_CMODE_NATIVE) and not(IME_CMODE_CHARCODE or IME_CMODE_EUDC);
  261.       end else
  262.         if ((lpIMC.fdwConversion and IME_CMODE_NATIVE) <> 0) then
  263.         begin  // change to alphanumeric mode
  264.           fdwConversion := lpIMC.fdwConversion and not(IME_CMODE_CHARCODE or IME_CMODE_NATIVE or IME_CMODE_EUDC);
  265.         end else
  266.         begin
  267.           GetKeyboardState(lpbKeyState);
  268.           if ((lpbKeyState[VK_CAPITAL] and 1) <> 0) then
  269.           begin
  270.             keybd_event(VK_CAPITAL, $3A, KEYEVENTF_EXTENDEDKEY or 0, 0);  // Simulate a key press
  271.             keybd_event(VK_CAPITAL, $3A, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);  // Simulate a key release
  272.           end;
  273.           fdwConversion := (lpIMC.fdwConversion or IME_CMODE_NATIVE) and not(IME_CMODE_CHARCODE or IME_CMODE_EUDC);
  275.           uCaps := 0;
  276.         end;
  278.       ImmSetConversionStatus(_hIMC, fdwConversion, lpIMC.fdwSentence);
  279.     end else
  280.       if PtInRect(sImeG.rcImeName, lpptCursor^) then  // 切换方式..
  281.       begin
  282.       end else
  283.         if PtInRect(sImeG.rcShapeText, lpptCursor^) then // 全角半角..
  284.         begin
  285.           if ((lpIMC.fdwConversion and IME_CMODE_CHARCODE) <> 0) or
  286.              ((lpIMC.fdwConversion and IME_CMODE_EUDC) <> 0) then
  287.           begin
  288.             MessageBeep($FFFFFFFF);
  289.           end else
  290.           begin
  291.             dwConvMode := lpIMC.fdwConversion xor IME_CMODE_FULLSHAPE;
  292.             ImmSetConversionStatus(_hIMC, dwConvMode, lpIMC.fdwSentence);
  293.           end;
  294.         end else
  295.           if PtInRect(sImeG.rcSymbol, lpptCursor^) then // 标点符号..
  296.           begin
  297.             if (lpIMC.fdwConversion and IME_CMODE_CHARCODE) <> 0 then MessageBeep($FFFFFFFF)
  298.             else begin
  299.               fdwConversion := lpIMC.fdwConversion xor IME_CMODE_SYMBOL;
  300.               ImmSetConversionStatus(_hIMC, fdwConversion, lpIMC.fdwSentence);
  301.             end;
  302.           end else
  303.             if PtInRect(sImeG.rcSKText, lpptCursor^) then // 软键盘..
  304.             begin
  305.               lpImcP := ImmLockIMCC(lpIMC.hPrivate);
  306.               if (lpImcP <> nil) then
  307.               begin
  308.                 if (sImeL.hSKMenu = 0) then sImeL.hSKMenu := LoadMenu(HInstance, 'SKMENU');
  310.                 sImeL.dwSKState[sImeL.dwSKWant] := sImeL.dwSKState[sImeL.dwSKWant] xor 1;
  311.                 fdwConversion := lpIMC.fdwConversion xor IME_CMODE_SOFTKBD;
  312.                 ImmSetConversionStatus(_hIMC, fdwConversion, lpIMC.fdwSentence);
  313.                 ImmUnlockIMCC(lpIMC.hPrivate);
  314.               end else
  315.                 MessageBeep($FFFFFFFF);
  316.             end else
  317.               MessageBeep($FFFFFFFF);
  319.   ImmUnlockIMC(_hIMC);
  320. end;
  322.   // WM_SETCURSOR处理
  323. procedure StatusSetCursor(hStatusWnd: hWnd; lParam: LParam);
  324. const {$J+}
  325.   fSoftkey: Bool = False;
  326.   fCmenu: Bool = False; {$J-}
  327. var
  328.   ptCursor, ptSavCursor: TPoint;
  329.   rcWnd: TRect;
  330. begin
  331.   if (GetWindowLong(hStatusWnd, UI_MOVE_OFFSET) <> WINDOW_NOT_DRAG) then // 拖拽中..
  332.   begin
  333.     SetCursor(LoadCursor(0, IDC_SIZEALL));
  334.     Exit;
  335.   end;
  337.   GetCursorPos(ptCursor);
  338.   ptSavCursor := ptCursor;
  339.   ScreenToClient(hStatusWnd, ptCursor);
  341.   if PtInRect(sImeG.rcStatusText, ptCursor) then
  342.   begin
  343.     SetCursor(LoadCursor(HInstance, szHandCursor));
  345.     if (HiWord(lParam) = WM_LBUTTONDOWN) then // 左键按下
  346.     begin
  347.       SetStatus(hStatusWnd, @ptCursor);
  348.     end else
  349.       if (HiWord(lParam) = WM_RBUTTONUP) then // 右键按下
  350.       begin
  351.         if PtInRect(sImeG.rcSKText, ptCursor) then // 软键盘
  352.         begin
  353.           // configuration already bring up
  354.           if (fSoftkey) then Exit;
  356.           fSoftkey := True;
  357.           SoftkeyMenu(hStatusWnd, ptSavCursor.x, ptSavCursor.y);
  358.           fSoftkey := False;
  359.         end else
  360.         begin
  361.           // configuration already bring up
  362.           if (fCmenu) then Exit;
  364.           fCmenu := True;
  365.           ContextMenu(hStatusWnd, ptSavCursor.x, ptSavCursor.y);
  366.           fCmenu := False;
  367.         end;
  368.       end;
  369.   end else
  370.   begin
  371.     SetCursor(LoadCursor(0, IDC_SIZEALL));
  373.     if (HiWord(lParam) = WM_LBUTTONDOWN) then // start drag
  374.     begin
  375.       SystemParametersInfo(SPI_GETWORKAREA, 0, @sImeG.rcWorkArea, 0);
  377.       SetCapture(hStatusWnd);
  379.       SetWindowLong(hStatusWnd, UI_MOVE_XY, MakeLong(ptSavCursor.x, ptSavCursor.y));
  380.       GetWindowRect(hStatusWnd, rcWnd);
  381.       SetWindowLong(hStatusWnd, UI_MOVE_OFFSET, MakeLong(ptSavCursor.x - rcWnd.Left, ptSavCursor.y - rcWnd.Top));
  382.       DrawDragBorder(hStatusWnd, MakeLong(ptSavCursor.x, ptSavCursor.y),
  383.       GetWindowLong(hStatusWnd, UI_MOVE_OFFSET));
  384.     end;
  385.   end;
  386. end;
  388.   // 绘制Status窗口
  389. procedure PaintStatusWindow(_hDC: hDC; hStatusWnd: hWnd);
  390. var
  391.   hUIWnd: hWnd;
  392.   _hIMC: hIMC;
  393.   lpIMC: PInputContext;
  394.   lpImcP: PPrivContext;
  395.   hOldFont: hGdiObj;
  396.   hImeIconBmp, hShapeBmp, hSymbolBmp, hSKBmp, hOldBmp: hBitMap;
  397.   hMemDC: hDC;
  398.   lfFont: TLogFont;
  399. begin
  400.   hUIWnd := GetWindow(hStatusWnd, GW_OWNER);
  401.   if (IsWindow(hUIWnd) = False) then Exit;
  403.   _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  404.   if (_hIMC = 0) then
  405.   begin
  406.     MessageBeep($FFFFFFFF);
  407.     Exit;
  408.   end;
  410.   lpIMC := ImmLockIMC(_hIMC);
  411.   if (lpIMC = nil) then
  412.   begin
  413.     MessageBeep($FFFFFFFF);
  414.     Exit;
  415.   end;
  417.   // get lpImcP
  418.   lpImcP := ImmLockIMCC(lpIMC.hPrivate);
  419.   if (lpImcP = nil) then
  420.   begin
  421.     MessageBeep($FFFFFFFF);
  422.     Exit;
  423.   end;
  425.   // set font
  426.   if (sImeG.fDiffSysCharSet) then
  427.   begin
  428.     hOldFont := GetCurrentObject(_hDC, OBJ_FONT);
  430.     ZeroMemory(@lfFont, SizeOf(lfFont));
  431.     lfFont.lfHeight := - MulDiv(12, GetDeviceCaps(_hDC, LOGPIXELSY), 72);
  432.     lfFont.lfCharSet := NATIVE_CHARSET;
  433.     lStrCpy(lfFont.lfFaceName, '宋体');
  435.     SelectObject(_hDC, CreateFontIndirect(lfFont));
  436.   end else
  437.     hOldFont := 0;
  439.   // draw Ime Name ..
  441.   if (lpIMC.fOpen) then SetTextColor(_hDC, RGB($00, $00, $00)) else SetTextColor(_hDC, RGB($80, $80, $80));
  442.   SetBkColor(_hDC, RGB($C0, $C0, $C0));
  444.   DrawText(_hDC, szImeName, lStrLen(szImeName), sImeG.rcImeName, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
  445.   DrawConvexRect(_hDC, sImeG.rcImeName.Left, sImeG.rcImeName.Top, sImeG.rcImeName.Right - 1, sImeG.rcImeName.Bottom - 1);
  446.   DrawConvexRectP(_hDC, sImeG.rcImeName.Left, sImeG.rcImeName.Top, sImeG.rcImeName.Right, sImeG.rcImeName.Bottom);
  448.   // load all bitmap & draw ..
  450.   hSymbolBmp := 0;
  451.   hShapeBmp := 0;
  452.   hSKBmp := 0;
  454.   if (lpIMC.fOpen = False) then
  455.   begin
  456.     hSymbolBmp := LoadBitmap(HInstance, szNone);
  457.     hShapeBmp := LoadBitmap(HInstance, szNone);
  458.     hSKBmp := LoadBitmap(HInstance, szNone);
  459.     hImeIconBmp := LoadBitmap(HInstance, szChinese);
  460.   end else
  461.     if (lpIMC.fdwConversion and IME_CMODE_NATIVE) <> 0 then
  462.       hImeIconBmp := LoadBitmap(HInstance, szChinese)
  463.     else
  464.       hImeIconBmp := LoadBitmap(HInstance, szEnglish);
  466.   if (hShapeBmp = 0) then
  467.   begin
  468.     if (lpIMC.fdwConversion and IME_CMODE_FULLSHAPE) <> 0 then
  469.       hShapeBmp := LoadBitmap(HInstance, szFullShape)
  470.     else
  471.       hShapeBmp := LoadBitmap(HInstance, szHalfShape);
  472.   end;
  474.   if (hSymbolBmp = 0) then
  475.   begin
  476.     if (lpIMC.fdwConversion and IME_CMODE_SYMBOL) <> 0 then
  477.       hSymbolBmp := LoadBitmap(HInstance, szSymbol)
  478.     else
  479.       hSymbolBmp := LoadBitmap(HInstance, szNoSymbol);
  480.   end;
  482.   if (hSKBmp = 0) then
  483.   begin
  484.     if (lpIMC.fdwConversion and IME_CMODE_SOFTKBD) <> 0 then
  485.       hSKBmp := LoadBitmap(HInstance, szSoftKBD)
  486.     else
  487.       hSKBmp := LoadBitmap(HInstance, szNoSoftKBD);
  488.   end;
  490.   ImmUnlockIMC(_hIMC);
  491.   ImmUnlockIMCC(lpIMC.hPrivate);
  493.   hMemDC := CreateCompatibleDC(_hDC);
  495.   hOldBmp := SelectObject(hMemDC, hImeIconBmp);
  496.   BitBlt(_hDC, sImeG.rcImeIcon.Left, sImeG.rcImeIcon.Top,
  497.     sImeG.rcImeIcon.Right - sImeG.rcImeIcon.Left, STATUS_DIM_Y, hMemDC, 0, 0, SRCCOPY);
  499.   SelectObject(hMemDC, hShapeBmp);
  500.   BitBlt(_hDC, sImeG.rcShapeText.Left, sImeG.rcShapeText.Top,
  501.     sImeG.rcShapeText.Right - sImeG.rcShapeText.Left, STATUS_DIM_Y, hMemDC, 0, 0, SRCCOPY);
  503.   SelectObject(hMemDC, hSymbolBmp);
  504.   BitBlt(_hDC, sImeG.rcSymbol.Left, sImeG.rcSymbol.Top,
  505.     sImeG.rcSymbol.Right - sImeG.rcSymbol.Left, STATUS_DIM_Y, hMemDC, 0, 0, SRCCOPY);
  507.   SelectObject(hMemDC, hSKBmp);
  508.   BitBlt(_hDC, sImeG.rcSKText.Left, sImeG.rcSKText.Top,
  509.      sImeG.xStatusWi - sImeG.rcSKText.Left, STATUS_DIM_Y, hMemDC, 0, 0, SRCCOPY);
  511.   SelectObject(hMemDC, hOldBmp);
  512.   DeleteDC(hMemDC);
  514.   DeleteObject(hImeIconBmp);
  515.   DeleteObject(hSymbolBmp);
  516.   DeleteObject(hShapeBmp);
  517.   DeleteObject(hSKBmp);
  519.   if (sImeG.fDiffSysCharSet) then DeleteObject(SelectObject(_hDC, hOldFont));
  520. end;
  522.   // Status窗口回调
  523. function StatusWndProc(hStatusWnd: hWnd; uMsg: uInt; wParam: WParam; lParam: LParam): LResult; stdcall;
  524. var
  525.   ptCursor: TPoint;
  526.   lTmpCursor, lTmpOffset: DWord;
  527.   _hDC: hDC;
  528.   ps: TPaintStruct;
  529. begin
  530.   Result := 0;
  532.   case (uMsg) of
  533.     WM_DESTROY:
  534.       DestroyStatusWindow(hStatusWnd);
  536.     WM_SETCURSOR:
  537.       StatusSetCursor(hStatusWnd, lParam);
  539.     WM_MOUSEMOVE:
  540.       if (GetWindowLong(hStatusWnd, UI_MOVE_OFFSET) <> WINDOW_NOT_DRAG) then // 拖拽中..
  541.       begin
  542.         DrawDragBorder(hStatusWnd, GetWindowLong(hStatusWnd, UI_MOVE_XY), GetWindowLong(hStatusWnd, UI_MOVE_OFFSET));
  544.         GetCursorPos(ptCursor);
  545.         SetWindowLong(hStatusWnd, UI_MOVE_XY, MakeLong(ptCursor.x, ptCursor.y));
  547.         DrawDragBorder(hStatusWnd, MakeLong(ptCursor.x, ptCursor.y), GetWindowLong(hStatusWnd, UI_MOVE_OFFSET));
  548.       end else
  549.         Result := DefWindowProc(hStatusWnd, uMsg, wParam, lParam);
  551.     WM_LBUTTONUP:
  552.       if (GetWindowLong(hStatusWnd, UI_MOVE_OFFSET) <> WINDOW_NOT_DRAG) then // 拖拽中..
  553.       begin
  554.         lTmpCursor := GetWindowLong(hStatusWnd, UI_MOVE_XY);
  555.         lTmpOffset := GetWindowLong(hStatusWnd, UI_MOVE_OFFSET);
  556.         DrawDragBorder(hStatusWnd, lTmpCursor, lTmpOffset);
  558.         // calculate the org by the offset
  559.         Dec(PSmallPoint(@lTmpCursor).x, PSmallPoint(@lTmpOffset).x);
  560.         Dec(PSmallPoint(@lTmpCursor).y, PSmallPoint(@lTmpOffset).y);
  562.         SetWindowLong(hStatusWnd, UI_MOVE_OFFSET, WINDOW_NOT_DRAG);
  563.         ReleaseCapture();
  565.         AdjustStatusBoundary(PSmallPoint(@lTmpCursor), GetWindow(hStatusWnd, GW_OWNER));
  567.         SendMessage(GetWindow(hStatusWnd, GW_OWNER), WM_IME_CONTROL, IMC_SETSTATUSWINDOWPOS, lTmpCursor);
  568.       end else
  569.         Result := DefWindowProc(hStatusWnd, uMsg, wParam, lParam);
  571.     WM_IME_NOTIFY:
  572.     begin
  573.       SystemParametersInfo(SPI_GETWORKAREA, 0, @sImeG.rcWorkArea, 0); // get work area for changing
  574.       if (wParam = IMN_SETSTATUSWINDOWPOS) then SetStatusWindowPos(hStatusWnd);
  575.     end;
  577.     WM_PAINT:
  578.     begin
  579.       _hDC := BeginPaint(hStatusWnd, ps);
  580.       PaintStatusWindow(_hDC, hStatusWnd);
  581.       EndPaint(hStatusWnd, ps);
  582.     end;
  584.     WM_MOUSEACTIVATE:
  585.       Result := MA_NOACTIVATE;
  587.     else
  588.       Result := DefWindowProc(hStatusWnd, uMsg, wParam, lParam);
  589.   end;
  590. end;
  592.   // 版本对话框回调
  593. function ImeVerDlgProc(hDlg: hWnd; uMessage: uInt; wParam: WParam; lParam: LParam): Bool; stdcall;
  594. var
  595.   Rc: TRect;
  596.   DlgWidth, DlgHeight: Integer;
  597. begin
  598.   case (uMessage) of
  599.     WM_INITDIALOG:
  600.     begin
  601.       hCrtDlg := hDlg;
  603.       GetWindowRect(hDlg, Rc);
  604.       DlgWidth := Rc.Right - Rc.Left;
  605.       DlgHeight := Rc.Bottom - Rc.Top;
  607.       // reset position ..
  608.       SetWindowPos(hDlg, HWND_TOP, (sImeG.rcWorkArea.Right - DlgWidth) div 2,
  609.         (sImeG.rcWorkArea.Bottom - DlgHeight) div 2, 0, 0, SWP_NOSIZE);
  611.       Result := True;
  612.     end;
  614.     WM_COMMAND:
  615.     begin
  616.       case (wParam) of
  617.         IDOK, IDCANCEL: EndDialog(hDlg, 0);
  618.       end;
  619.       Result := True;
  620.     end;
  622.     WM_CLOSE:
  623.     begin
  624.       EndDialog(hDlg, 0); // 没必要吧, ??
  625.       Result := False;
  626.     end;
  628.     WM_PAINT: // 画了有用吗, ??
  629.     begin
  630.       GetClientRect(hDlg, Rc);
  631.       DrawConvexRect(GetDC(hDlg), Rc.Left + 10, Rc.Top + 10, Rc.Right - 10 - 1, Rc.Bottom - 43 - 1);
  632.       DrawConvexRectP(GetDC(hDlg), Rc.Left + 10, Rc.Top + 10, Rc.Right - 10, Rc.Bottom - 43);
  633.       Result := False;
  634.     end;
  636.     else Result := False;
  637.   end;
  638. end;
  640. end.