TCustomPanel.BevelWidth Property

Determines the width, in pixels, of both the inner and outer bevels of a panel.

Pascal

property BevelWidth: TBevelWidth;

C++

__property TBevelWidth BevelWidth;

Description

Use BevelWidth to specify how wide the inner or outer bevel should be. Do not confuse BevelWidth, which is the width of the bevels, with BorderWidth, which is the space between the bevels.

If both the BevelInner and BevelOuter properties are bvNone, BevelWidth has no effect. To remove both bevels, set the BevelInner and BevelOuter properties to bvNone, rather than setting the BevelWidth to 0, as this involves less overhead when painting.

C++ Examples:

Copy Code

/*
This example uses a panel component and a button named 
CreateStatusLine on a form. The code moves the panel to the 
bottom of the form when the user clicks the button and gives
the panel the appearance of a status line by changing the 
value of the BevelInner, BevelOuter, BevelWidth, and 
BorderWidth properties.
*/
void __fastcall TForm1::CreateStatusLineClick(TObject *Sender)
{
  Panel1->Align = alBottom;
  Panel1->BevelInner = bvLowered;
  Panel1->BevelOuter = bvRaised;
  Panel1->BorderWidth = 1;
  Panel1->BevelWidth = 1;
}

Delphi Examples:

Copy Code

{
This example uses a panel component and a button named 
CreateStatusLine on a form. The code moves the panel to the 
bottom of the form when the user clicks the button and gives
the panel the appearance of a status line by changing the 
value of the BevelInner, BevelOuter, BevelWidth, and 
BorderWidth properties.
} 
procedure TForm1.CreateStatusLineClick(Sender: TObject);
begin
  with Panel1 do
  begin
    Align := alBottom;
    BevelInner := bvLowered;
    BevelOuter := bvRaised;
    BorderWidth := 1;
    BevelWidth := 1;
  end;
end;