It would be great if speed button image allow to use rect images, with size, related to speed button height. So far, if button height is enough to fit 64x64 px image, it nevertheless restricts its width (and scales it down) to 20 px, if text is used on button as well:
procedure TTMSFMXSpeedButton.SetShowText(const Value: Boolean);
var
shp: TText;
shpImg: TTMSFMXBitmap;
begin
FShowText := Value;
shp := GetText;
if Assigned(shp) then
begin
shp.Visible := Value;
if ShowImage then
begin
shpImg := GetImage;
if Assigned(shpImg) then
begin
if ShowText then
begin
shpImg.Align := TAlignLayout.alLeft;
// The following may be better >>> shpImg.Width := shpImg.Height;
// instead of hard-coding it to 20
end
else
shpImg.Align := TAlignLayout.alClient;
end;
end;
end;
end;