Эффект падения тени???

[Миша]

Подскажите пожалуйста как сделать эффект падения тени такой как на рисунках ниже???

[MaxNik2009]

в графических редакторах, например в фотошопе.

[Grag]

procedure ShadeIt(f: TForm; c: TControl; Width: Integer; Color: TColor);
var  
  rect: TRect;  
  old: TColor;  
begin  
   if c.Visible then
   begin
      rect := c.BoundsRect;
      rect.Left := rect.Left + Width;
      rect.Top := rect.Top + Width;
      rect.Right := rect.Right + Width;
      rect.Bottom := rect.Bottom + Width;
      old := f.Canvas.Brush.Color;
      f.Canvas.Brush.Color := Color;
      f.Canvas.FillRect( rect );
      f.Canvas.Brush.Color := old;
   end;
end;  

procedure TForm1.FormPaint(Sender: TObject);
var  
  i: Integer;
begin
   for i := 0 to Self.ControlCount-1 do
      ShadeIt( Self, Self.Controls[i], 3, clBlack );
end;

[Человек_Борща]

ещё есть AlphaSkins ..

[Grag]

Ну, это уже компоненты сторонних фирм... By AC team.

[Человек_Борща]

они бесплатные.. и там есть множество возможностей=) Если не пробовал то советую...

[Миша]

Спасибо всем попробую!!!