anchor.diff:      procedure   SetAllowAllUp(const Value: boolean);
       procedure   DoPush;
       procedure   DoRelease(x, y: integer);
  +    procedure   SetAllowMultiLineText(const AValue: boolean);
     protected
       FImageMargin: integer;
       FImageSpacing: integer;
  
positive.code:     property    AllowAllUp: boolean read FAllowAllUp write SetAllowAllUp default False;
      { Buttons behave like toggle buttons. This is an alias for GroupIndex > 0 }
      property    AllowDown: Boolean read GetAllowDown write SetAllowDown;
      property    Default: boolean read FDefault write SetDefault default False;
      property    Down: Boolean read FDown write SetDown;
      { The button will not show focus. It might also have a different down state (look).
  
negative.code:   FDefault      := False;
    FAllowAllUp   := False;
    FState        := 0;
    FAllowMultiLineText := False;
  end;
  
  destructor TfpgBaseButton.Destroy;
  