Снять ограничение на размер TSpeedbutton в Андроид

Программирование мобильных приложений на данный момент похоже на скачки с одних грабель на другие. Кроссплатформенность таит в себе много подводных камней. Поэтому программирование перемешивается с поиском решений конкретных проблем. Одна из таких проблем — наличие ограничения высоты кнопки SpeedButton в 32 пикселя для мобильных приложений в RAD Studio, то же касается эдитов и комбобоксов. Выше этого значения кнопка вырасти не может.

Код, позволяющий снять ограничение следующий.

type
 
  TSpeedButton = class(FMX.StdCtrls.TSpeedButton)
  protected
    procedure AdjustFixedSize(const Ref: TControl); override;
  end;
 
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
implementation
 
{$R *.fmx}
 
{ TSpeedButton }
 
procedure TSpeedButton.AdjustFixedSize(const Ref: TControl);
begin
  SetAdjustType(TAdjustType.None);
end;