anchor.diff:  
   procedure TfpgBevel.DrawRightLine;
   begin
  +  Canvas.SetLineStyle(1, lsSolid);
     Canvas.DrawLine(Width - 2, 0, Width - 2, Height - 1);
   
     if Style = bsRaised then
  
positive.code: 
  procedure TfpgBevel.DrawLeftLine;
  begin
    Canvas.DrawLine(0, 1, 0, Height - 1);
  
    if Style = bsRaised then
  
negative.code: procedure TfpgBevel.DrawBox;
  begin
    if FPanelBorder = bsSingle then
      Canvas.SetLineStyle(1, lsSolid)
    else
      Canvas.SetLineStyle(2, lsSolid);
  
    if FPanelBorder = bsSingle then
      Canvas.DrawLine(0, 0, Width - 1, 0)
    else
      Canvas.DrawLine(0, 1, Width - 1, 1);
  