Panel - panel com sombra

Top  Previous  Next

procedure DesenhaSombra(Canvas: TCanvas; Painel: TPanel; Cor: TColor = clBlack);

var

  r: TRect;

begin

  r.Top      := Painel.Top  + 5;

  r.Left     := Painel.Left + 5;

  r.Right    := Painel.Left + Painel.Width  + 5;

  r.Bottom   := Painel.Top  + Painel.Height + 5;

  Canvas.Pen.Color   := Cor;

  Canvas.Brush.Color := Cor;

  Canvas.Rectangle(r);

end;