anchor.diff:  
   procedure TfpgBevel.DrawLeftLine;
   begin
  +  Canvas.SetLineStyle(1, lsSolid);
     Canvas.DrawLine(0, 1, 0, Height - 1);
   
     if Style = bsRaised then
  
positive.code: 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)
  
negative.code: 
  procedure TfpgBevel.DrawFrame;
  begin
    Canvas.SetLineStyle(1, lsSolid);
  
    Canvas.DrawLine(0, 0, Width - 1, 0);
    Canvas.DrawLine(0, 1, 0, Height - 1);
    Canvas.DrawLine(Width - 2, 1, Width - 2, Height - 1);
  