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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
am2000hintwindow.pas
资源名称：am2000.zip　[点击查看]
上传用户：powellwoo
上传日期：2007-01-07
资源大小：109k
文件大小：4k
源码类别：

Delphi控件源码

开发平台：

C++ Builder

am2000hintwindow.pas：源码内容
  2. {*******************************************************}
  3. {                                                       }
  4. {       AnimatedMenus/2000                              }
  5. {       T_AM2000_HintWindow Component Unit              }
  6. {                                                       }
  7. {       Copyright (c) 1997-99 AnimatedMenus.com         }
  8. {       All rights reserved.                            }
  9. {                                                       }
  10. {*******************************************************}
  13. unit am2000hintwindow;
  15. interface
  17. uses
  18.   Windows, Messages, Controls;
  20. type
  21.   // T_AM2000_HintWindow
  22.   T_AM2000_ToolTipWindow = class
  23.   private
  24.     id: UINT;
  25.     Owner: TWinControl;
  26.     hwndOwner: HWND;
  27.     hwndToolTip: HWND;
  28.     FActive: Boolean;
  30.   public
  31.     property Active: Boolean read FActive;
  33.     constructor Create(AOwner: TWinControl);
  34.     destructor Destroy; override;
  36.     procedure AddTool(R: TRect; Hint: String);
  37.     procedure RelayMouseMove(Pos: TSmallPoint);
  38.     procedure Clear;
  39.     procedure Activate;
  40.     procedure Deactivate;
  42.   end;
  45. implementation
  47. uses
  48.   Classes, Forms;
  50. const
  51.   MAX_TOOLTIP_WINDOW_WIDTH = 220;
  53.   TOOLTIPS_CLASS = 'tooltips_class32';
  55. type
  56.   TToolInfo = packed record
  57.     cbSize: UINT;
  58.     uFlags: UINT;
  59.     hwnd: HWND;
  60.     uId: UINT;
  61.     Rect: TRect;
  62.     hInst: THandle;
  63.     lpszText: PAnsiChar;
  64.     lParam: LPARAM;
  65.   end;
  67. const
  68.   TTS_ALWAYSTIP           = $01;
  69.   TTS_NOPREFIX            = $02;
  71.   TTM_ACTIVATE            = WM_USER + 1;
  72.   TTM_SETDELAYTIME        = WM_USER + 3;
  73.   TTM_SETTIPBKCOLOR       = WM_USER + 19;
  74.   TTM_SETTIPTEXTCOLOR     = WM_USER + 20;
  75.   TTM_SETMAXTIPWIDTH      = WM_USER + 24;
  76.   TTM_ADDTOOL             = WM_USER + 4;
  77.   TTM_DELTOOL             = WM_USER + 5;
  78.   TTM_RELAYEVENT          = WM_USER + 7;
  79.   TTM_GETTOOLCOUNT        = WM_USER +13;
  84. { T_AM2000_ToolTipWindow }
  86. constructor T_AM2000_ToolTipWindow.Create(AOwner: TWinControl);
  87. begin
  88.   inherited Create;
  90.   Owner:= AOwner;
  92.   // set owner's handle
  93.   if Owner is TForm
  94.   then hwndOwner:= Owner.Handle
  95.   else hwndOwner:= 0;
  97.   hwndToolTip:= CreateWindow(TOOLTIPS_CLASS, nil, TTS_ALWAYSTIP, 0, 0, 0, 0,
  98.     hwndOwner, 0, HInstance, nil);
  100.   SendMessage(hwndToolTip, TTM_SETMAXTIPWIDTH, 0, MAX_TOOLTIP_WINDOW_WIDTH);
  102.   hwndOwner:= Owner.Handle;
  103. end;
  105. destructor T_AM2000_ToolTipWindow.Destroy;
  106. begin
  107.   DestroyWindow(hwndToolTip);
  108.   inherited;
  109. end;
  111. procedure T_AM2000_ToolTipWindow.AddTool(R: TRect; Hint: String);
  112. var
  113.   ti: TToolInfo;
  114. begin
  115.   ti.cbSize:= sizeof(TToolInfo);
  116.   ti.uFlags:= 0;
  117.   ti.hwnd:= hwndOwner;
  118.   ti.hinst:= HInstance;
  119.   ti.uId:= id;
  120.   ti.lpszText:= PChar(Hint);
  121.   Inc(id);
  123.   ti.rect:= R;
  124.   SendMessage(hwndToolTip, TTM_ADDTOOL, 0, LongInt(@ti));
  125. end;
  127. procedure T_AM2000_ToolTipWindow.RelayMouseMove(Pos: TSmallPoint);
  128. var
  129.   Msg: TMsg;
  130. begin
  131.   Msg.wParam:= 0;
  132.   Msg.lParam:= LongInt(Pos);
  133.   Msg.message:= wm_MouseMove;
  134.   Msg.hwnd:= hwndOwner;
  135.   SendMessage(hwndToolTip, ttm_RelayEvent, 0, LongInt(@Msg));
  136. end;
  139. procedure T_AM2000_ToolTipWindow.Clear;
  140. var
  141.   I: Integer;
  142.   ti: TToolInfo;
  143. begin
  144.   ti.cbSize:= SizeOf(ti);
  145.   ti.hwnd:= hwndOwner;
  146.   for I:= 0 to id -1 do begin
  147.     ti.uId:= I;
  148.     SendMessage(hwndToolTip, TTM_DELTOOL, 0, LongInt(@ti));
  149.   end;
  150.   id:= 0;
  151. end;
  153. procedure T_AM2000_ToolTipWindow.Activate;
  154. begin
  155.   if FActive then Exit;
  156.   SendMessage(hwndToolTip, TTM_ACTIVATE, 1, 0);
  157.   FActive:= True;
  158. end;
  160. procedure T_AM2000_ToolTipWindow.Deactivate;
  161. begin
  162.   if not FActive then Exit;
  163.   SendMessage(hwndToolTip, TTM_ACTIVATE, 0, 0);
  164.   FActive:= False;
  165. end;
  167. end.