anchor.diff:      Canvas.DrawLine(Width - 1, 0, Width - 1, Height - 1);
     if Shape in [bsBox, bsFrame, bsBottomLine] then
       Canvas.DrawLine(0, Height - 1, Width, Height - 1);
  -    
  -  // To make it more visible in the UI Designer
  -  if csDesigning in ComponentState then
  -  begin
  -    if Shape in [bsSpacer] then
  -    begin
  -      Canvas.SetColor(clInactiveWgFrame);
  -      Canvas.SetLineStyle(1, lsDash);
  -      Canvas.DrawRectangle(0, 0, Width, Height);
  -//      Canvas.SetTextColor(clText1);
  -//      Canvas.DrawString(2, 2, Name + ': ' + Classname);
  -    end;
  +
  +end;
  +
  +procedure TfpgBevel.HandlePaint;
  +begin
  +  inherited HandlePaint;
  +
  +  if FPanelBorder = bsSingle then
  +    Canvas.SetLineStyle(1, lsSolid)
  +  else
  +    Canvas.SetLineStyle(2, lsSolid);
  +
  +  if Style = bsRaised then
  +    Canvas.SetColor(clHilite2)
  +  else
  +    Canvas.SetColor(clShadow2);
  +
  +  case Shape of
  +    bsBox:          DrawBox;
  +    bsFrame:        DrawFrame;
  +    bsTopLine:      DrawTopLine;
  +    bsBottomLine:   DrawBottomLine;
  +    bsLeftLine:     DrawLeftLine;
  +    bsRightLine:    DrawRightLine;
  +    bsSpacer:       DrawSpacer;
     end;
   end;
   
  
positive.code:   end;
  end;
  
  procedure TfpgBevel.HandlePaint;
  begin
    inherited HandlePaint;
  
    //  Canvas.SetLineStyle(2, lsSolid);
    //  Canvas.SetColor(clWindowBackground);
    //  Canvas.DrawRectangle(1, 1, Width - 1, Height - 1);
    if FPanelBorder = bsSingle then
      Canvas.SetLineStyle(1, lsSolid)
    else
      Canvas.SetLineStyle(2, lsSolid);
  
    if Style = bsRaised then
      Canvas.SetColor(clHilite2)
    else
      Canvas.SetColor(clShadow2);
  
    if Shape in [bsBox] then
      if FPanelBorder = bsSingle then
        Canvas.DrawLine(0, 0, Width - 1, 0)
  
negative.code:   private
      FPanelShape: TPanelShape;
      procedure   SetPanelShape(const AValue: TPanelShape);
      procedure   DrawBox;        //  bsBox
      procedure   DrawFrame;      //  bsFrame
      procedure   DrawTopLine;    //  bsTopLine
      procedure   DrawBottomLine; //  bsBottomLine
      procedure   DrawLeftLine;   //  bsLeftLine
      procedure   DrawRightLine;  //  bsRightLine
      procedure   DrawSpacer;     //  bsSpacer
      procedure   DrawVerDivider; //  bsVerDivider
    protected
      procedure   HandlePaint; override;
    published
  