anchor.diff:    inherited Destroy;
   end;
   
  +function TfpgPanel.GetClientRect: TfpgRect;
  +begin
  +  if Style = bsFlat then
  +    Result.SetRect(0, 0, Width, Height)
  +  else
  +    Result := inherited GetClientRect;
  +end;
  +
   {TfpgGroupBox}
   
   function TfpgGroupBox.GetAlignment: TAlignment;
  
positive.code:       Include(lTxtFlags, txtBottom);
      tlCenter:
        Include(lTxtFlags, txtVCenter);
      end;
    Canvas.DrawText(FMargin, FMargin, Width - FMargin * 2, Height - FMargin * 2, FText, lTxtFlags, FLineSpace);
  end;
  
  
negative.code:     Repaint;
    end;
  end;
  
  procedure TfpgPanel.HandlePaint;
  var
    lTxtFlags: TfpgTextFlags;
  begin
    inherited HandlePaint;
  
    if Style <> bsFlat then
    begin
      if FPanelBorder = bsSingle then
        Canvas.SetLineStyle(1, lsSolid)
      else
        Canvas.SetLineStyle(2, lsSolid);
  
      if Style = bsRaised then
        Canvas.SetColor(clHilite2)
      else
        Canvas.SetColor(clShadow1);
  
      if FPanelBorder = bsSingle then
      begin
        Canvas.DrawLine(0, 0, Width - 1, 0);
        Canvas.DrawLine(0, 1, 0, Height - 1);
      end
      else
      begin
        Canvas.DrawLine(0, 1, Width - 1, 1);
        Canvas.DrawLine(1, 1, 1, Height - 1);
      end;
  
      if Style = bsRaised then
        Canvas.SetColor(clShadow1)
      else
        Canvas.SetColor(clHilite2);
  
      Canvas.DrawLine(Width - 1, 0, Width - 1, Height - 1);
      Canvas.DrawLine(0, Height - 1, Width, Height - 1);
    end;
  
    Canvas.SetTextColor(FTextColor);
    Canvas.SetFont(Font);
  