Delphi 10.1 FMX TSpeedButton не изменяет размер для клиента на Android, когда StyleLookup установлен на arrowdowntoolbutton - PullRequest
Новая
       119

Delphi 10.1 FMX TSpeedButton не изменяет размер для клиента на Android, когда StyleLookup установлен на arrowdowntoolbutton

0 голосов
/ 06 августа 2020

У меня есть приложение для нескольких устройств, созданное в Delphi 10.1, и я использую TSpeedButton.

SpeedButton Align установлен на Client. Для SpeedButton StyleLookup установлено значение arrowdowntoolbutton;

При работе в Windows размер кнопки Speed ​​изменяется до предела. При работе на Android размер кнопки скорости изменяется в соответствии с размером изображения.

Как заставить SpeedButton вести себя так же, как в Windows, т.е. изменять размер до его границ? Это Форма. 

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 471
  ClientWidth = 354
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  DesignerMasterStyle = 0
  object pButtons: TPanel
    Align = Top
    Margins.Left = 5.000000000000000000
    Margins.Top = 1.000000000000000000
    Margins.Right = 5.000000000000000000
    Position.X = 5.000000000000000000
    Position.Y = 1.000000000000000000
    Size.Width = 344.000000000000000000
    Size.Height = 35.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 4
    object btnSearch: TButton
      Tag = 1
      Align = Right
      StyledSettings = []
      Margins.Left = 5.000000000000000000
      Margins.Top = 2.000000000000000000
      Margins.Right = 1.000000000000000000
      Margins.Bottom = 2.000000000000000000
      Position.X = 229.000000000000000000
      Position.Y = 2.000000000000000000
      Size.Width = 114.000000000000000000
      Size.Height = 31.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 4
      Text = 'Search'
    end
    object sbtnMore_Search_Options: TSpeedButton
      Align = Client
      Size.Width = 104.000000000000000000
      Size.Height = 35.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'arrowdowntoolbutton'
    end
    object btnSpacer: TButton
      Align = Left
      Enabled = False
      Margins.Left = 1.000000000000000000
      Margins.Top = 2.000000000000000000
      Margins.Right = 5.000000000000000000
      Margins.Bottom = 2.000000000000000000
      Position.X = 1.000000000000000000
      Position.Y = 2.000000000000000000
      Size.Width = 114.000000000000000000
      Size.Height = 31.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 5
    end
  end
end

Это Единица. 

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation;

type
  TForm1 = class(TForm)
    pButtons: TPanel;
    btnSearch: TButton;
    sbtnMore_Search_Options: TSpeedButton;
    btnSpacer: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation

{$R *.fmx}


end.

Спасибо

...