那位可以告诉我XP风格菜单的阴影都是怎么画出来的？

Question

如题

Answer 1

阴影？
你说的是渐变色吧
如下，一般都是那样画的，要么就画好以后贴图
procedure TNettoolsform.FormPaint(Sender: TObject);
var
  I:Integer;
  Y,YH:real;
begin
 {使客户区窗口颜色渐变<由蓝变黑>}
  YH:=clientheight/20;
  Y:=0;
  for i:=255 downto 245 do
    begin
      Canvas.Brush.Color :=i*$0000ef;
      Canvas.FillRect(Rect(0,round(Y),ClientWidth,round(Y+YH)));
      Y:=Y+YH;
    end;
    for i:=245 to 255 do
    begin
      Canvas.Brush.Color :=i*$0000ef;
      Canvas.FillRect(Rect(0,round(Y),ClientWidth,round(Y+YH)));
      Y:=Y+YH;
    end;
end;

Answer 2

xpmenu有源码，里面有图形的阴影处理！！

Answer 3

就是对Canvas进行操作，在Panel上也可以画个Button1