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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Winskinmenu.pas
资源名称：VCLSkinv5.30FS.rar　[点击查看]
上传用户：xjwsee
上传日期：2008-08-02
资源大小：796k
文件大小：12k
源码类别：

Delphi控件源码

开发平台：

Delphi

Winskinmenu.pas：源码内容
  1. unit WinSkinMenu;
  3. {.$define menutest}
  4. {$WARNINGS OFF}
  5. {$HINTS OFF}
  6. {$RANGECHECKS OFF}
  8. interface
  10. uses windows,Messages,SysUtils,Classes,Graphics,
  11.      WinSkinData,controls,Forms;
  13. const c_menuprop = 'WinSkinPopMenu';
  15. Type
  16.   TWinSkinPopMenu = class(Tobject)
  17.   protected
  18.     FPrevWndProc: Pointer;
  19.     FObjectInst: Pointer;
  20.     done:boolean;
  21.     procedure WinWndProc(var aMsg: TMessage);
  22.     procedure Default(Var Msg: TMessage);
  23.     procedure AddLog(Msg: TMessage);
  24.     procedure WMPrint(var Msg: Tmessage);
  25.     procedure WMPrintClient(var Msg: Tmessage);
  26.     procedure UpdateMenu(var Msg: Tmessage);
  27.     procedure NcPaint(var Msg: Tmessage);
  28.     procedure WMERASEBKGND(var Msg: Tmessage);
  29.   public
  30.     hwnd:Thandle;
  31.     fsd:TSkindata;
  32.     SelIndex:integer;
  33.     MenuBg:Tbitmap;
  34.     hmenu :Hmenu;
  35.     crop:boolean;
  36.     clientRgn : hRgn;
  37.     ownerdraw : boolean;//
  38.     constructor Create;
  39.     destructor Destroy; override;
  40.     procedure InitSkin(ahwnd:Thandle;afsd:Tskindata;amenu:Hmenu);
  41.     procedure UnSubClass;
  42.   end;
  44. var newskinmenu:TWinSkinPopMenu;
  46. implementation
  48. uses Winskinform,winskindlg;
  50. constructor TWinSkinPopMenu.Create;
  51. begin
  52.    inherited;
  53.    SelIndex:=-1;
  54.    MenuBg:=Tbitmap.create;
  55.    hmenu:=0;
  56.    fobjectinst:=nil;
  57. end;
  59. destructor TWinSkinPopMenu.Destroy;
  60. begin
  61.    inherited destroy;
  62.    MenuBg.free;
  63. end;
  65. procedure TWinSkinPopMenu.InitSkin(ahwnd:Thandle;afsd:Tskindata;amenu:Hmenu);
  66. var rc,r1:Trect;
  67.     temp:Tbitmap;
  68. begin
  69.     hwnd:=ahwnd;
  70.     fsd:=afsd;
  71.     hmenu:=amenu;
  72. //    SetProp(ahwnd, c_menuprop, Cardinal(self));
  73.     FObjectInst := MakeObjectInstance(WinWndProc);
  74.     FPrevWndProc := Pointer(GetWindowLong(hwnd,GWL_WNDPROC));
  75.     SetWindowLong(hwnd, GWL_WNDPROC,LongInt(FObjectInst));
  76. //    SetProp(ahwnd, MakeIntAtom(ControlAtom), THandle(Self));
  77.     ownerdraw :=false;
  78. end;
  80. procedure TWinSkinPopMenu.UnSubClass;
  81. begin
  82.      if fobjectinst<>nil then begin
  83.          if crop then begin
  84.            DeleteObject(clientRgn);
  85.          end;
  86.          SetWindowLong(hwnd, GWL_WNDPROC,LongInt(FPrevWndProc));
  87.          FreeObjectInstance(FObjectInst);
  88. //         RemoveProp(hwnd, MakeIntAtom(ControlAtom));
  89. //         RemoveProp(hwnd, c_menuprop);
  90.          MenuBg.assign(nil);
  91.          fobjectinst:=nil;
  92.      end;
  93. end;
  95. procedure TWinSkinPopMenu.AddLog(Msg: TMessage);
  96. var s:string;
  97. begin
  98.   s:=MsgtoStr(Msg);
  99.   if s='' then exit;
  100.   if s='' then
  101.       s:=format('%4.0x(%4.0x,%04x,%04x,%04x)',[hwnd,msg.msg,msg.wparam,msg.lparam,msg.result]);
  102.   s:=format('Menu hook:%4x %s',[hwnd,s]);
  103.   fsd.DoDebug(s);
  104.   //skinaddlog(s);
  105. end;
  107. procedure TWinSkinPopMenu.Default(Var Msg: TMessage);
  108. begin
  109.   msg.result:=CallWindowProc(FPrevWndProc,hwnd,Msg.msg,msg.WParam,msg.LParam);
  110. end;
  112. procedure TWinSkinPopMenu.WinWndProc(var aMsg: TMessage);
  113. var Old: boolean;
  114.     s:string;
  115. begin
  116.   {$IFDEF menutest}
  117.     addlog(aMsg);
  118.   {$ENDIF}
  119.   if aMsg.Msg=CN_IsSkined then begin
  120.      amsg.result := 1;
  121.      exit;
  122.   end;
  124.   if not skinmanager.active then begin
  125.     default(amsg);
  126.     exit;
  127.   end;
  129.   done:=false;
  130.   if aMsg.Msg=WM_DESTROY then begin
  131.        UnSubClass;
  132.   end;
  133.   //create bk in  WM_print, ignore WM_ERASEBKGND
  134.   if true then begin
  135.      case aMsg.Msg of
  136.         WM_print:  WMPrint(amsg);
  138. //      WM_printclient:WMPrintclient(amsg);
  139. //      WM_Ncpaint: if ((Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion >= 5) and (Win32MinorVersion >= 1)) or
  140. //      WM_Ncpaint:  Ncpaint(amsg);
  142.        WM_Ncpaint: if (Win32Platform = VER_PLATFORM_WIN32_NT) or
  143.                  (winversion >= $80000000) then Ncpaint(amsg);
  144.        WM_ERASEBKGND:// amsg.Result:=1;
  145.          if (winversion < $80000000) then WMERASEBKGND(amsg);
  146.       else default(amsg);
  147.       end;
  148.   end else default(amsg);
  149. end;
  151. procedure TWinSkinPopMenu.UpdateMenu(var Msg: Tmessage);
  152. var rc:Trect;
  153. begin
  154.    if (SelIndex <> msg.wparam) then begin
  155. //        skinaddlog('menu hook: $1e5');
  156.         default(msg);
  157.         GetClientRect(hwnd,rc);
  158.         selindex:=msg.wparam;
  159.         InvalidateRect(hwnd,@rc,FALSE);
  160.         done:=true;
  161.    end;
  162. end;
  164. procedure TWinSkinPopMenu.WMERASEBKGND(var Msg: Tmessage);
  165. var rc, R1: TRect;
  166.     DC: HDC;
  167.     temp:Tbitmap;
  168. begin
  169.    if not (xoMenuBG in fsd.Options) then begin
  170.        default(msg);
  171.    end;
  172.    msg.result:=1;
  173.    exit;
  174. {   if (fsd.empty) or(fsd.MenuItemBG=nil)
  175.        or (fsd.MenuItemBG.map.empty)
  176.        or (not ownerdraw) then begin
  177.        default(msg);
  178.        msg.result:=1;
  179.        exit;
  180.    end;  }
  182.    default(msg);
  184.    GetWindowRect(hwnd, rc);
  185.    r1:=rc;
  186.    OffsetRect(r1,-r1.left,-r1.top);
  187.    DC := GetWindowDC(hwnd);
  188. //   fsd.DoDebug('***WMERASEBKGND');
  190.    if MenuBg.empty then begin
  192.    temp:=GetHMap(r1,fsd.MenuItemBG.map,fsd.MenuItemBG.r,1,1,fsd.MenuItemBG.Tile);
  193.    MenuBg.assign(temp);
  194.    temp.free;
  195.    end;
  196.    if hmenu=0 then newskinmenu:=self;
  198. //   BitBlt(msg.wParam,rc.left ,rc.top,rc.right-rc.left,rc.bottom-rc.Top,
  199. //                 MenuBg.Canvas.Handle ,0 ,0 ,Srccopy);
  201. //   DrawRect2(msg.wParam,rc,fsd.MenuItemBG.map,fsd.MenuItemBG.r,1,1,
  202. //         0,fsd.MenuItemBG.Tile);
  203.    BitBlt(DC,rc.left ,rc.top,rc.right-rc.left,rc.bottom-rc.top,
  204.                  MenuBg.Canvas.Handle ,0 ,0 ,Srccopy);
  205.    ReleaseDC(0, DC);
  206.    msg.result:=1;
  207. end;
  209. {procedure TWinSkinPopMenu.WMPrint(var Msg: Tmessage);
  210. var rc, R1: TRect;
  211.     DC: HDC;
  212.     clientRgn : hRgn;
  213.     temp:Tbitmap;
  214. begin
  215.    if fsd.empty or (fsd.MenuItemBG=nil) or (fsd.MenuItemBG.map.empty) then begin
  216.       default(msg);
  217.       exit;
  218.    end;
  219. //   default(msg);
  220.    if hmenu=0 then newskinmenu:=self;
  221.    if GetWindowRect(hwnd, rc) then begin
  222.      OffsetRect(rc,-rc.left,-rc.top);
  223.      r1:=rc;
  224.      InflateRect(r1,-3,-3);
  226.      clientRgn :=CreateRectRgn(r1.left,r1.top,r1.right,r1.bottom);
  227.      temp:=GetHMap(rc,fsd.MenuItemBG.map,fsd.MenuItemBG.r,1,1,fsd.MenuItemBG.Tile);
  228.      MenuBg.assign(temp);
  230.      SetBkMode(temp.canvas.handle,TRANSPARENT);
  231.      SelectClipRgn(temp.canvas.handle, clientRgn);
  232.      msg.result:=CallWindowProc(FPrevWndProc,hwnd,Msg.msg,temp.canvas.handle,msg.LParam);
  233.      SelectClipRgn(temp.canvas.handle, 0);
  235.      BitBlt(msg.wParam,rc.left ,rc.top,rc.right-rc.left,rc.bottom-rc.Top,
  236.                  temp.Canvas.Handle ,0 ,0 ,Srccopy);
  237.      DeleteObject(clientRgn);
  238.      temp.free;
  239.    end else  default(msg);
  240. end;}
  242. procedure TWinSkinPopMenu.WMPrint(var Msg: Tmessage);
  243. var rc, R1: TRect;
  244.     DC: HDC;
  245.     clientRgn : hRgn;
  246.     temp:Tbitmap;
  247.     OldMode: integer;
  248. begin
  249.    if fsd.empty or (fsd.MenuItemBG=nil) or (fsd.MenuItemBG.map.empty) then begin
  250.       default(msg);
  251.       exit;
  252.    end;
  253. //   default(msg);
  254.    if hmenu=0 then newskinmenu:=self;
  255.    if GetWindowRect(hwnd, rc) then begin
  256.      OffsetRect(rc,-rc.left,-rc.top);
  257.      r1:=rc;
  258.      InflateRect(r1,-3,-3);
  260.      clientRgn :=CreateRectRgn(r1.left,r1.top,r1.right,r1.bottom);
  261.      temp:=GetHMap(rc,fsd.MenuItemBG.map,fsd.MenuItemBG.r,1,1,fsd.MenuItemBG.Tile);
  262.      MenuBg.assign(temp);
  263.      temp.free;
  264.      BitBlt(msg.wParam,rc.left ,rc.top,rc.right-rc.left,rc.bottom-rc.Top,
  265.                  MenuBg.Canvas.Handle ,0 ,0 ,Srccopy);
  267.      OldMode := SetBkMode(msg.wparam, TRANSPARENT);
  268.      SelectClipRgn(msg.wParam, clientRgn);
  269.      msg.result:=CallWindowProc(FPrevWndProc,hwnd,Msg.msg,msg.wparam,msg.LParam);
  270.      SelectClipRgn(msg.wParam, 0);
  271.      DeleteObject(clientRgn);
  272.      SetBkMode(msg.wparam, OldMode);
  273.    end else  default(msg);
  274. end;
  276. {procedure TWinSkinPopMenu.WMPrint(var Msg: Tmessage);
  277. var rc, R1: TRect;
  278.     DC: HDC;
  279.     clientRgn : hRgn;
  280.     temp:Tbitmap;
  281.     OldMode: integer;
  282. begin
  283.    if fsd.empty or (fsd.MenuItemBG=nil) or (fsd.MenuItemBG.map.empty) then begin
  284.       default(msg);
  285.       exit;
  286.    end;
  287.    if hmenu=0 then newskinmenu:=self;
  288.    if GetWindowRect(hwnd, rc) then begin
  290.      OffsetRect(rc,-rc.left,-rc.top);
  291.      r1:=rc;
  292.      InflateRect(r1,-3,-3);
  294.      temp:=GetHMap(rc,fsd.MenuItemBG.map,fsd.MenuItemBG.r,1,1,fsd.MenuItemBG.Tile);
  295.      MenuBg.assign(temp);
  296.      temp.free;
  298.      default(msg);
  299.      if ownerdraw then begin
  300.         ExcludeClipRect(msg.wParam,rc.left+3,rc.top+3,rc.right-3,rc.bottom-3);
  301.         BitBlt(msg.wParam,rc.left ,rc.top,rc.right-rc.left,rc.bottom-rc.Top,
  302.                  MenuBg.Canvas.Handle ,0 ,0 ,Srccopy);
  303.         SelectClipRgn(msg.wParam, 0);
  304.      end;
  305.    end else  default(msg);
  306. end;}
  308. {procedure TWinSkinPopMenu.WMPrint(var Msg: Tmessage);
  309. var rc, R1: TRect;
  310.     DC: HDC;
  311.     clientRgn : hRgn;
  312.     temp:Tbitmap;
  313. begin
  314.    if fsd.empty then exit;
  315.    if (fsd.MenuItemBG=nil) or (fsd.MenuItemBG.map.empty) then exit;
  317. //   default(msg);
  318.    GetWindowRect(hwnd, rc);
  319.    OffsetRect(rc,-rc.left,-rc.top);
  321.    r1:=rc;
  322.    InflateRect(r1,-3,-3);
  323.    clientRgn :=CreateRectRgn(r1.left,r1.top,r1.right,r1.bottom);
  325.    temp:=GetHMap(rc,fsd.MenuItemBG.map,fsd.MenuItemBG.r,1,1,fsd.MenuItemBG.Tile);
  326.    MenuBg.assign(temp);
  327.    temp.free;
  328.    if hmenu=0 then newskinmenu:=self;
  329.    temp:=Tbitmap.create;
  330.    temp.width:=rc.right;
  331.    temp.height:=rc.bottom;
  332.    temp.canvas.brush.color:=clFuchsia;
  333.    temp.canvas.fillrect(rc);
  334. //   BitBlt(msg.wParam,rc.left ,rc.top,rc.right-rc.left,rc.bottom-rc.Top,
  335. //                 MenuBg.Canvas.Handle ,0 ,0 ,Srccopy);
  337.    SelectClipRgn(temp.canvas.handle, clientRgn);
  339. //   msg.result:=CallWindowProc(FPrevWndProc,hwnd,Msg.msg,msg.wparam,msg.LParam);
  340.    msg.result:=CallWindowProc(FPrevWndProc,hwnd,Msg.msg,temp.canvas.handle,msg.LParam);
  341.    BitBlt(msg.wParam,rc.left ,rc.top,rc.right-rc.left,rc.bottom-rc.Top,
  342.                  temp.Canvas.Handle ,0 ,0 ,Srccopy);
  344.    SelectClipRgn(temp.canvas.handle, 0);
  345.    DeleteObject(clientRgn);
  346.    temp.free;
  347.    done:=true;
  348. end;}
  350. procedure TWinSkinPopMenu.NcPaint(var Msg: Tmessage);
  351. var rc, R1: TRect;
  352.     DC: HDC;
  353.     clientRgn : hRgn;
  354.     temp:Tbitmap;
  355. begin
  356.    if fsd.empty or (fsd.MenuItemBG=nil) or (fsd.MenuItemBG.map.empty) then begin
  357.      default(msg);
  358.      exit;
  359.    end;
  361.    if (Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion >= 5) and (Win32MinorVersion > 1) then
  362.        Dc := GetWindowDC(hwnd) 
  363.    else
  364.        Dc := GetDCEx(hwnd, msg.WParam, DCX_WINDOW or DCX_INTERSECTRGN or $10000 );
  365. //   Dc := GetDCEx(hwnd, msg.WParam, DCX_WINDOW or DCX_INTERSECTRGN or  $10000 );
  366.    GetWindowRect(hwnd, rc);
  367.    r1:=rc;
  368.    InflateRect(r1,-3,-3);
  369.    OffsetRect(rc,-rc.left,-rc.top);
  371.    temp:=GetHMap(rc,fsd.MenuItemBG.map,fsd.MenuItemBG.r,1,1,fsd.MenuItemBG.Tile);
  372.    MenuBg.assign(temp);
  373.    temp.free;
  374.    if hmenu=0 then newskinmenu:=self;
  376.    BitBlt(dc,rc.left ,rc.top,rc.right-rc.left,rc.top+3,
  377.                  MenuBg.Canvas.Handle ,0 ,0 ,Srccopy);
  378.    StretchBlt(dc,rc.left ,rc.bottom-3,rc.right-rc.left,rc.bottom,
  379.      MenuBg.Canvas.Handle ,rc.left ,rc.bottom-3,rc.right-rc.left,rc.bottom,Srccopy);
  380.    StretchBlt(dc,rc.left,rc.top+3,rc.left+3,rc.bottom-3,
  381.      MenuBg.Canvas.Handle,rc.left,rc.top+3,rc.left+3,rc.bottom-3,Srccopy);
  382.    StretchBlt(dc,rc.right-3,rc.top+3,rc.right,rc.bottom,
  383.      MenuBg.Canvas.Handle ,rc.right-3,rc.top+3,rc.right,rc.bottom,Srccopy);
  385.    BitBlt(dc,rc.left ,rc.top,rc.right-rc.left,rc.bottom-rc.top,
  386.                  MenuBg.Canvas.Handle ,0 ,0 ,Srccopy);
  387. //   fsd.DoDebug(format('NCPaint %1d %1d',[rc.right,rc.bottom]));
  388.    ReleaseDC(hwnd, DC);
  389. end;
  391. {procedure TWinSkinPopMenu.WMPrintClient(var Msg: Tmessage);
  392. var rc, R1: TRect;
  393.     DC: HDC;
  394.     temp:Tbitmap;
  395.     c:Tcolor;
  396. begin
  397.    if fsd.empty then exit;
  398.    if (fsd.MenuItemBG=nil) or (fsd.MenuItemBG.map.empty) then exit;
  400.    GetWindowRect(hwnd, rc);
  401.    InflateRect(rc,-3,-3);
  402.    OffsetRect(rc,-rc.left,-rc.top);
  404.    temp:=Tbitmap.create;
  405.    temp.width:=rc.right;
  406.    temp.height:=rc.bottom;
  407.    c:=GetSysColor(COLOR_MENU);
  408.    temp.canvas.brush.color:=c;
  409.    SetBkMode(temp.canvas.handle,TRANSPARENT);
  410.    temp.canvas.fillrect(rc);
  411.    msg.result:=CallWindowProc(FPrevWndProc,hwnd,Msg.msg,temp.canvas.handle,msg.LParam);
  412.    DrawTranmap(msg.wParam,rc,temp,c);
  413.    temp.free;
  414.    done:=true;
  415. end;}
  417. procedure TWinSkinPopMenu.WMPrintClient(var Msg: Tmessage);
  418. var rc, R1: TRect;
  419.     DC: HDC;
  420.     c:Tcolor;
  421. begin
  422.    default(msg);
  423.    if fsd.empty then exit;
  424.    if (fsd.MenuItemBG=nil) or (fsd.MenuItemBG.map.empty) then exit;
  426.    if GetWindowRect(hwnd, rc) then begin
  427.      ExcludeClipRect(msg.wParam,rc.left+3,rc.top+3,rc.right-3,rc.bottom-3);
  428.      BitBlt(msg.wParam,rc.left ,rc.top,rc.right-rc.left,rc.bottom-rc.Top,
  429.                  MenuBg.Canvas.Handle ,0 ,0 ,Srccopy);
  430.      SelectClipRgn(msg.wParam, 0);
  431.    end;
  432. end;
  434. end.