anchor.diff:      FFont: TfpgFont;
       FDefault: boolean;
       FState: integer;  // 0 - normal  // 1 - hover
  +    FAllowMultiLineText: boolean;
       procedure   SetShowImage(AValue: Boolean);
       procedure   HandlePaint; override;
       procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
  
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:     property    Align;
      property    AllowAllUp;
      property    AllowDown;
      property    AllowMultiLineText;
      property    BackgroundColor default clButtonFace;
      property    Default;
      property    Down;
  