anchor.diff:    public
       constructor Create(AOwner: TComponent); override;
       destructor  Destroy; override;
  +    function    GetClientRect: TfpgRect; override;
       property    Font: TfpgFont read FFont;
     published
       property    AcceptDrops;
  
positive.code: 
    if FWrapText then
      Include(lTxtFlags, txtWrap);
    case FAlignment of
      taLeftJustify:
        Include(lTxtFlags, txtLeft);
  
negative.code:       Include(lTxtFlags, txtBottom);
      tlCenter:
        Include(lTxtFlags, txtVCenter);
    end;
  
    Canvas.DrawText(FMargin, FMargin, Width - FMargin * 2, Height - FMargin * 2, FText, lTxtFlags, FLineSpace);
  end;
  
  