阴影&投影效果

//阴影效果
procedure TForm25.Button1Click(Sender: TObject);
var
  x,y:integer;
  i:integer;
begin
  x:=0;
  y:=0;
  form25.canvas.Pen.Width:=1;
  for i:=0 to 8 do
  begin
    form25.Canvas.Pen.Color:=$00404040;
    form25.Canvas.MoveTo(Button1.Left+Button1.Width+x,Button1.Top+8);
    form25.Canvas.LineTo(Button1.Left+button1.Width+x,Button1.Top+Button1.Height+8);

    //

    form25.Canvas.MoveTo(Button1.Left+8,Button1.Top+Button1.Height+y);
    form25.canvas.LineTo(Button1.Left+Button1.Width+8,Button1.Top+Button1.Height+y);

    inc(x);
    inc(y);

  end;

end;

//投影效果
procedure TForm25.Button2Click(Sender: TObject);
var
  x,y:integer;
  i:integer;
begin
x:=0;
y:=0;
    form25.canvas.Pen.Width:=1;
    for i:=0 to 8 do
    begin
      form25.canvas.Pen.color:=$00a0a0a0;
      form25.canvas.MoveTo(Button2.Left+Button2.Width+x,Button2.Top+y);
      form25.Canvas.LineTo(Button2.Left+Button2.Width+x,Button2.Top+Button2.Height+y);

      form25.Canvas.Pen.Color:=$00606060;
      form25.canvas.MoveTo(Button2.Left+x,Button2.Top+Button2.Height+y);
      form25.Canvas.LineTo(Button2.Left+Button2.Width+x,Button2.Top+Button2.Height+y);
      inc(x);
      inc(y);
    end;
end;