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

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

输入法编程

开发平台：

Delphi

Uisubs.pas：源码内容
  2.  {******************************************************}
  3.  {                                                      }
  4.  {    Copyright (c) 1990-1999 Microsoft Corporation     }
  5.  {                                                      }
  6.  {    Module Name:  Uisubs.c ->>  Uisubs.pas            }
  7.  {                                                      }
  8.  {    Translator:  Liu_mazi@126.com, 2005-11-14         }
  9.  {                                                      }
  10.  {******************************************************}
  12. unit Uisubs;
  14. {$I Define.Inc}
  16. interface
  18. uses Windows;
  20. procedure DrawDragBorder(_hWnd: hWnd; lCursorPos, lCursorOffset: DWord); // 绘制拖拽方框
  21. procedure DrawFrameBorder(_hDC: hDC; _hWnd: hWnd); // 绘制窗口边框
  22. function ContextMenuWndProc(hCMenuWnd: hWnd; uMsg: uInt; wParam: WParam; lParam: LParam): LResult; stdcall; // Context菜单窗口回调
  23. function SoftkeyMenuWndProc(hKeyMenuWnd: hWnd; uMsg: uInt; wParam: WParam; lParam: LParam): LResult; stdcall; // Softkey菜单窗口回调
  24. procedure ContextMenu(hStatusWnd: hWnd; x, y: Integer); // 弹出Context菜单
  25. procedure SoftkeyMenu(hStatusWnd: hWnd; x, y: Integer); // 弹出Softkey菜单
  26. function HtmlHelp(hWndCaller: HWnd; pszFile: PChar; uCommand: UInt; dwData: DWord): HWnd; stdcall;
  28. implementation
  30. uses Messages, ImmDev, ImeDefs, Data, Init, DDIS, Notify, Statusui;
  32. const
  33.   HH_DISPLAY_TOC     = $0001;
  34.   HH_DISPLAY_TOPIC   = $0000;
  35.   HH_CLOSE_ALL       = $0012;
  36.   HH_DISPLAY_INDEX   = $0002;
  37.   HH_HELP_CONTEXT    = $000F;
  38.   HH_DISPLAY_SEARCH  = $0003;
  40. function HtmlHelp; external 'HHCtrl.ocx' Name 'HtmlHelpA';
  42.   // 绘制拖拽方框
  43. procedure DrawDragBorder(_hWnd: hWnd; lCursorPos, lCursorOffset: DWord);
  44. var
  45.   _hDC: hDC;
  46.   cxBorder, cyBorder, x, y: Integer;
  47.   rcWnd: TRect;
  48. begin
  49.   // 边框宽度
  50.   cxBorder := GetSystemMetrics(SM_CXBORDER);
  51.   cyBorder := GetSystemMetrics(SM_CYBORDER);
  53.   // 当前位置
  54.   x := PSmallPoint(@lCursorPos).x;
  55.   y := PSmallPoint(@lCursorPos).y;
  57.   // 偏移计算
  58.   Dec(x, PSmallPoint(@lCursorOffset).x);
  59.   Dec(y, PSmallPoint(@lCursorOffset).y);
  61.   // 防止越界
  62.   if (x < sImeG.rcWorkArea.Left) then x := sImeG.rcWorkArea.Left;
  63.   if (y < sImeG.rcWorkArea.Top) then y := sImeG.rcWorkArea.Top;
  65.   // 窗口尺寸
  66.   GetWindowRect(_hWnd, rcWnd);
  68.   // 防止越界
  69.   if (x + (rcWnd.Right - rcWnd.Left) > sImeG.rcWorkArea.Right) then
  70.     x := sImeG.rcWorkArea.Right - (rcWnd.Right - rcWnd.Left);
  72.   if (y + (rcWnd.Bottom - rcWnd.Top) > sImeG.rcWorkArea.Bottom) then
  73.     y := sImeG.rcWorkArea.Bottom - (rcWnd.Bottom - rcWnd.Top);
  75.   // 绘制方框
  76.   _hDC := CreateDC('DISPLAY', nil, nil, nil);
  77.   SelectObject(_hDC, GetStockObject(GRAY_BRUSH));
  79.   PatBlt(_hDC, x, y, rcWnd.Right - rcWnd.Left - cxBorder, cyBorder, PATINVERT);
  80.   PatBlt(_hDC, x, y + cyBorder, cxBorder, rcWnd.Bottom - rcWnd.Top - cyBorder, PATINVERT);
  81.   PatBlt(_hDC, x + cxBorder, y + rcWnd.Bottom - rcWnd.Top, rcWnd.Right - rcWnd.Left - cxBorder, - cyBorder, PATINVERT);
  82.   PatBlt(_hDC, x + rcWnd.Right - rcWnd.Left, y, - cxBorder, rcWnd.Bottom - rcWnd.Top - cyBorder, PATINVERT); // **
  84.   DeleteDC(_hDC);
  85. end;
  87.   // 绘制窗口边框
  88. procedure DrawFrameBorder(_hDC: hDC; _hWnd: hWnd);
  89. var
  90.   rcWnd: TRect;
  91.   xWi, yHi: Integer;
  92. begin
  93.   GetWindowRect(_hWnd, rcWnd);
  94.   xWi := rcWnd.Right - rcWnd.Left; // 宽度
  95.   yHi := rcWnd.Bottom - rcWnd.Top; // 高度
  97.   // 第1层
  98.   PatBlt(_hDC, 0, 0, xWi, 1, WHITENESS);
  99.   PatBlt(_hDC, 0, 0, 1, yHi, WHITENESS);
  100.   PatBlt(_hDC, 0, yHi, xWi, -1, BLACKNESS);
  101.   PatBlt(_hDC, xWi, 0, -1, yHi, BLACKNESS);
  103.   // 第2层
  104.   Dec(xWi, 2);
  105.   Dec(yHi, 2);
  107.   SelectObject(_hDC, GetStockObject(LTGRAY_BRUSH));
  108.   PatBlt(_hDC, 1, 1, xWi, 1, PATCOPY);
  109.   PatBlt(_hDC, 1, 1, 1, yHi, PATCOPY);
  110.   PatBlt(_hDC, xWi + 1, 1, -1, yHi, PATCOPY);
  112.   SelectObject(_hDC, GetStockObject(GRAY_BRUSH));
  113.   PatBlt(_hDC, 1, yHi + 1, xWi, -1, PATCOPY);
  115.   // 第3层
  116.   Dec(xWi, 2);
  117.   Dec(yHi, 2);
  119.   PatBlt(_hDC, 2, 2, xWi, 1, PATCOPY);
  120.   PatBlt(_hDC, 2, 2, 1, yHi, PATCOPY);
  121.   PatBlt(_hDC, xWi + 2, 3, -1, yHi - 1, WHITENESS);
  123.   SelectObject(_hDC, GetStockObject(LTGRAY_BRUSH));
  124.   PatBlt(_hDC, 2, yHi + 2, xWi, -1, PATCOPY);
  126.   // 第4层
  127.   Dec(xWi, 2);
  128.   Dec(yHi, 2);
  130.   SelectObject(_hDC, GetStockObject(GRAY_BRUSH));
  131.   PatBlt(_hDC, 3, 3, xWi, 1, PATCOPY);
  132.   PatBlt(_hDC, 3, 3, 1, yHi, PATCOPY);
  134.   SelectObject(_hDC, GetStockObject(LTGRAY_BRUSH));
  135.   PatBlt(_hDC, xWi + 3, 4, -1, yHi - 1, PATCOPY);
  136.   PatBlt(_hDC, 3, yHi + 3, xWi, -1, WHITENESS);
  137. end;
  139.   // Context菜单窗口回调
  140. function ContextMenuWndProc(hCMenuWnd: hWnd; uMsg: uInt; wParam: WParam; lParam: LParam): LResult; stdcall;
  141. var
  142.   hUIWnd{, hCompWnd}: hWnd;
  143.   _hIMC: hIMC;
  144.   lpIMC: PInputContext;
  145.   lpImcP: PPrivContext;
  146.   ptSTFixPos: TPoint;
  147.   _hMenu: hMenu;
  148.   ui_Mode: Integer;
  149.   szOptGudHlpName: array[0..MAX_PATH] of Char;
  150.   szImeGudHlpName: array[0..MAX_PATH] of Char;
  151. begin
  152.   Result := 0;
  154.   case (uMsg) of
  155.     WM_DESTROY:
  156.     begin
  157.       hUIWnd := GetWindowLong(hCMenuWnd, CMENU_HUIWND);
  158.       if IsWindow(hUIWnd) then SendMessage(hUIWnd, WM_IME_NOTIFY, IMN_PRIVATE, IMN_PRIVATE_CMENUDESTROYED);
  159.     end;
  161.     WM_USER_DESTROY:
  162.     begin
  163.       SendMessage(hCMenuWnd, WM_CLOSE, 0, 0); // **, Send此消息, 下面就没有必要调用DestroyWindow()了..
  164.       DestroyWindow(hCMenuWnd);
  165.     end;
  167.     WM_COMMAND:
  168.     begin
  169.       case LoWord(wParam) of
  170.         IDM_PROP:   // 设置...
  171.         begin
  172.           hUIWnd := GetWindowLong(hCMenuWnd, CMENU_HUIWND);
  173.           if (IsWindow(hUIWnd) = False) then Exit;
  175.           _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  176.           if (_hIMC = 0) then Exit;
  178.           lpIMC := ImmLockIMC(_hIMC);
  179.           if (lpIMC = nil) then Exit;
  181.           lpImcP := ImmLockIMCC(lpIMC.hPrivate);
  182.           if (lpImcP = nil) then Exit; // **
  184.           ImeConfigure(GetKeyboardLayout(0), lpIMC.hWnd, IME_CONFIG_GENERAL, nil);
  186.           lpImcP.iImeState := CST_INIT;
  187.           CompCancel(_hIMC, lpIMC);
  189.           // init fields of hIMC
  190.           lpIMC.fOpen := True;
  191.           if ((lpIMC.fdwInit and INIT_CONVERSION) = 0) then
  192.           begin
  193.             lpIMC.fdwConversion := IME_CMODE_NATIVE;
  194.             lpIMC.fdwInit := lpIMC.fdwInit or INIT_CONVERSION;
  195.           end;
  197.           lpImcP.fdwImeMsg := lpImcP.fdwImeMsg or MSG_IMN_DESTROYCAND;
  198.           GenerateMessage(_hIMC, lpIMC, lpImcP);
  200.           // set cand window data
  201.           if (sImeG.IC_Trace <> 0) then
  202.             ui_Mode := BOX_UI // **
  203.           else begin
  204.             ui_Mode := LIN_UI;
  205.             ptSTFixPos.x := 0;
  206.             ptSTFixPos.y := sImeG.rcWorkArea.Bottom - sImeG.yStatusHi;
  207.             ImmSetStatusWindowPos(_hIMC, @ptSTFixPos);
  208.           end;
  210.           InitCandUIData(GetSystemMetrics(SM_CXBORDER), GetSystemMetrics(SM_CYBORDER), ui_Mode);
  212.           ImmUnlockIMCC(lpIMC.hPrivate);
  213.           ImmUnlockIMC(_hIMC);
  214.         end;
  216.         IDM_OPTGUD: // 操作指南...
  217.         begin
  218.           szOptGudHlpName[0] := #0;
  219.           GetWindowsDirectory(szOptGudHlpName, MAX_PATH);
  220.           lStrCat(szOptGudHlpName, 'HELPWINIME.CHM');
  221.           HtmlHelp(hCMenuWnd, szOptGudHlpName, HH_DISPLAY_TOPIC, 0);
  222.         end;
  224.         IDM_IMEGUD: // 输入法入门...
  225.         begin
  226.           szImeGudHlpName[0] := #0;
  227.           GetWindowsDirectory(szImeGudHlpName, MAX_PATH);
  228.           lStrCat(szImeGudHlpName, 'HELPWINGB.CHM');
  229.           HtmlHelp(hCMenuWnd, szImeGudHlpName, HH_DISPLAY_TOPIC, 0);
  230.         end;
  232.         IDM_VER:    // 版本信息...
  233.         begin
  234.           hUIWnd := GetWindowLong(hCMenuWnd, CMENU_HUIWND);
  235.           if (IsWindow(hUIWnd) = False) then Exit;
  237.           _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  238.           if (_hIMC = 0) then Exit;
  240.           lpIMC := ImmLockIMC(_hIMC);
  241.           if (lpIMC = nil) then Exit;
  243.           DialogBox(HInstance, 'IMEVER', lpIMC.hWnd, @ImeVerDlgProc);
  245.           ImmUnlockIMC(_hIMC);
  246.         end;
  247.       end;
  248.     end;
  250.     WM_CLOSE:
  251.     begin
  252.       GetMenu(hCMenuWnd); // ??
  254.       _hMenu := GetWindowLong(hCMenuWnd, CMENU_MENU);
  255.       if (_hMenu <> 0) then
  256.       begin
  257.         SetWindowLong(hCMenuWnd, CMENU_MENU, 0);
  258.         DestroyMenu(_hMenu);
  259.       end;
  261.       Result := DefWindowProc(hCMenuWnd, uMsg, wParam, lParam); // **, DefWindowProc()将调用DestroyWindow()
  262.     end;
  264.     else
  265.       Result := DefWindowProc(hCMenuWnd, uMsg, wParam, lParam);
  266.   end;
  267. end;
  269.   // Softkey菜单窗口回调
  270. function SoftkeyMenuWndProc(hKeyMenuWnd: hWnd; uMsg: uInt; wParam: WParam; lParam: LParam): LResult; stdcall;
  271. var
  272.   hUIWnd: hWnd;
  273.   _hMenu: hMenu;
  274.   _hIMC: hIMC;
  275.   lpIMC: PInputContext;
  276.   lpImcP: PPrivContext;
  277.   fdwConversion: DWord;
  278.   J: uInt;
  279. begin
  280.   Result := 0;
  282.   case (uMsg) of
  283.     WM_DESTROY:
  284.     begin
  285.       hUIWnd := GetWindowLong(hKeyMenuWnd, SOFTKEYMENU_HUIWND);
  286.       if IsWindow(hUIWnd) then SendMessage(hUIWnd, WM_IME_NOTIFY, IMN_PRIVATE, IMN_PRIVATE_SOFTKEYMENUDESTROYED);
  287.     end;
  289.     WM_USER_DESTROY:
  290.     begin
  291.       SendMessage(hKeyMenuWnd, WM_CLOSE, 0, 0);
  292.       DestroyWindow(hKeyMenuWnd); // **
  293.     end;
  295.     WM_COMMAND:
  296.     begin
  297.       case LoWord(wParam) of
  298.         IDM_SKL1, IDM_SKL2, IDM_SKL3, IDM_SKL4, IDM_SKL5, IDM_SKL6, IDM_SKL7,
  299.         IDM_SKL8, IDM_SKL9, IDM_SKL10, IDM_SKL11, IDM_SKL12, IDM_SKL13: // 键盘类型
  300.         begin
  301.           hUIWnd := GetWindowLong(hKeyMenuWnd, SOFTKEYMENU_HUIWND);
  302.           if (IsWindow(hUIWnd) = False) then Exit;
  304.           _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  305.           if (_hIMC = 0) then Exit;
  307.           lpIMC := ImmLockIMC(_hIMC);
  308.           if (lpIMC = nil) then Exit;
  310.           lpImcP := ImmLockIMCC(lpIMC.hPrivate);
  311.           if (lpImcP = nil) then Exit; // **
  313.           sImeL.dwSKWant := LoWord(wParam) - IDM_SKL1;
  314.           sImeL.dwSKState[sImeL.dwSKWant] := 1;
  316.           // clear other SK State
  317.           for J := 0 to NumsSK - 1 do if (J <> sImeL.dwSKWant) then sImeL.dwSKState[J] := 0;
  319.           if (sImeL.dwSKState[sImeL.dwSKWant] <> 0) then
  320.           begin
  321.             if (LoWord(wParam) = IDM_SKL1) then lpImcP.iImeState := CST_INIT else lpImcP.iImeState := CST_SOFTKB;
  322.             fdwConversion := lpIMC.fdwConversion or IME_CMODE_SOFTKBD;
  323.           end else
  324.           begin
  325.             lpImcP.iImeState := CST_INIT;
  326.             fdwConversion := lpIMC.fdwConversion and (not IME_CMODE_SOFTKBD);
  327.           end;
  329.           ImmSetConversionStatus(_hIMC, fdwConversion and (not IME_CMODE_SOFTKBD), lpIMC.fdwSentence);
  330.           ImmSetConversionStatus(_hIMC, fdwConversion, lpIMC.fdwSentence);
  332.           ImmUnlockIMCC(lpIMC.hPrivate);
  333.           ImmUnlockIMC(_hIMC);
  334.         end;
  335.       end;
  336.     end;
  338.     WM_CLOSE:
  339.     begin
  340.       GetMenu(hKeyMenuWnd); // ??
  342.       _hMenu := GetWindowLong(hKeyMenuWnd, SOFTKEYMENU_MENU);
  343.       if (_hMenu <> 0) then
  344.       begin
  345.         SetWindowLong(hKeyMenuWnd, SOFTKEYMENU_MENU, 0);
  346.         DestroyMenu(_hMenu);
  347.       end;
  349.       Result := DefWindowProc(hKeyMenuWnd, uMsg, wParam, lParam); // **
  350.     end;
  353.     WM_SETCURSOR:
  354.     begin
  355.       if (HiWord(lParam) = WM_RBUTTONUP) then MessageBeep($FFFFFFFF);
  356.       Result := DefWindowProc(hKeyMenuWnd, uMsg, wParam, lParam);
  357.     end;
  359.     else
  360.       Result := DefWindowProc(hKeyMenuWnd, uMsg, wParam, lParam);
  361.   end;
  362. end;
  364.   // 弹出Context菜单
  365. procedure ContextMenu(hStatusWnd: hWnd; x, y: Integer);
  366. label
  367.   ContextMenuUnlockIMC;
  368. var
  369.   hUIWnd, hCMenuWnd: hWnd;
  370.   hUIPrivate: hGlobal;
  371.   lpUIPrivate: PUIPriv;
  372.   _hIMC: hIMC;
  373.   lpIMC: PInputContext;
  374.   _hMenu, hCMenu: hMenu;
  375.   rcStatusWnd: TRect;
  376. begin
  377.   hUIWnd := GetWindow(hStatusWnd, GW_OWNER);
  378.   if (IsWindow(hUIWnd) = False) then Exit;
  380.   GetWindowRect(hStatusWnd, rcStatusWnd);
  382.   _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  383.   if (_hIMC = 0) then Exit;
  385.   lpIMC := ImmLockIMC(_hIMC);
  386.   if (lpIMC = nil) then Exit;
  388.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  389.   if (hUIPrivate = 0) then goto ContextMenuUnlockIMC;
  391.   lpUIPrivate := GlobalLock(hUIPrivate);
  392.   if (lpUIPrivate = nil) then goto ContextMenuUnlockIMC;
  394.   if (IsWindow(lpUIPrivate.hCMenuWnd) = False) then
  395.   begin
  396.     lpUIPrivate.hCMenuWnd := CreateWindowEx(CS_HREDRAW or CS_VREDRAW, szCMenuClassName,
  397.       'Context Menu', WS_POPUP or WS_DISABLED, 0, 0, 0, 0, lpIMC.hWnd, 0, HInstance, nil);
  398.   end;
  400.   hCMenuWnd := lpUIPrivate.hCMenuWnd;
  401.   GlobalUnlock(hUIPrivate);
  403.   if (IsWindow(hCMenuWnd) = False) then goto ContextMenuUnlockIMC;
  405.   _hMenu := LoadMenu(HInstance, 'PROPMENU');
  406.   hCMenu := GetSubMenu(_hMenu, 0);
  408.   SetWindowLong(hCMenuWnd, CMENU_HUIWND, hUIWnd);
  409.   SetWindowLong(hCMenuWnd, CMENU_MENU, _hMenu);
  411.   TrackPopupMenu(hCMenu, TPM_LEFTBUTTON, rcStatusWnd.Left, rcStatusWnd.Top, 0, hCMenuWnd, nil);
  413.   _hMenu := GetWindowLong(hCMenuWnd, CMENU_MENU);
  414.   if (_hMenu <> 0) then
  415.   begin
  416.     SetWindowLong(hCMenuWnd, CMENU_MENU, 0);
  417.     DestroyMenu(_hMenu);
  418.   end;
  420. ContextMenuUnlockIMC:
  421.   ImmUnlockIMC(_hIMC);
  422. end;
  424.   // 弹出Softkey菜单
  425. procedure SoftkeyMenu(hStatusWnd: hWnd; x, y: Integer);
  426. label
  427.   KeyMenuUnlockIMC;
  428. var
  429.   hUIWnd, hSoftkeyMenuWnd: hWnd;
  430.   hUIPrivate: hGlobal;
  431.   lpUIPrivate: PUIPriv;
  432.   _hIMC: hIMC;
  433.   lpIMC: PInputContext;
  434.   _hMenu, hKeyMenu: hMenu;
  435.   rcStatusWnd: TRect;
  436. begin
  437.   hUIWnd := GetWindow(hStatusWnd, GW_OWNER);
  438.   if (IsWindow(hUIWnd) = False) then Exit;
  440.   GetWindowRect(hStatusWnd, rcStatusWnd);
  442.   _hIMC := GetWindowLong(hUIWnd, IMMGWLP_IMC);
  443.   if (_hIMC = 0) then Exit;
  445.   lpIMC := ImmLockIMC(_hIMC);
  446.   if (lpIMC = nil) then Exit;
  448.   hUIPrivate := GetWindowLong(hUIWnd, IMMGWLP_PRIVATE);
  449.   if (hUIPrivate = 0) then goto KeyMenuUnlockIMC;
  451.   lpUIPrivate := GlobalLock(hUIPrivate);
  452.   if (lpUIPrivate = nil) then goto KeyMenuUnlockIMC;
  454.   if (IsWindow(lpUIPrivate.hSoftkeyMenuWnd) = False) then
  455.   begin
  456.     lpUIPrivate.hSoftkeyMenuWnd := CreateWindowEx(CS_HREDRAW or CS_VREDRAW, szSoftkeyMenuClassName,
  457.       'Softkey Menu', WS_POPUP or WS_DISABLED, 0, 0, 0, 0, lpIMC.hWnd, 0, HInstance, nil);
  458.   end;
  460.   hSoftkeyMenuWnd := lpUIPrivate.hSoftkeyMenuWnd;
  461.   GlobalUnlock(hUIPrivate);
  463.   if (IsWindow(hSoftkeyMenuWnd) = False) then goto KeyMenuUnlockIMC;
  465.   _hMenu := LoadMenu(HInstance, 'SKMENU');
  466.   hKeyMenu := GetSubMenu(_hMenu, 0);
  468.   SetWindowLong(hSoftkeyMenuWnd, SOFTKEYMENU_HUIWND, hUIWnd);
  469.   SetWindowLong(hSoftkeyMenuWnd, SOFTKEYMENU_MENU, _hMenu);
  471.   if (sImeL.dwSKState[sImeL.dwSKWant] <> 0) then CheckMenuItem(_hMenu, sImeL.dwSKWant + IDM_SKL1, MF_CHECKED);
  472.   TrackPopupMenu(hKeyMenu, TPM_LEFTBUTTON, rcStatusWnd.Left, rcStatusWnd.Top, 0, hSoftkeyMenuWnd, nil);
  474.   _hMenu := GetWindowLong(hSoftkeyMenuWnd, SOFTKEYMENU_MENU);
  475.   if (_hMenu <> 0) then
  476.   begin
  477.     SetWindowLong(hSoftkeyMenuWnd, SOFTKEYMENU_MENU, 0);
  478.     DestroyMenu(_hMenu);
  479.   end;
  481. KeyMenuUnlockIMC:
  482.   ImmUnlockIMC(_hIMC);
  483. end;
  485. end.