Добавлю. Если после ресайза менять ширину кнопок вручную, то тогда всё нормально работает. Отсюда вывод, что размер кнопки вычисляется неправильно. Добавил это изменение ручное в пример.

20231108-2.zip

Проводя эксперименты дальше, выяснил, что неправильно высчитывается ширина именно у кнопок. Если искусственно подставить вместо кнопки метку, а потом кнопке задать в качестве ширины вычисленную ширину метки, то предварительно всё выглядит правильно.

procedure ButtonResize(Sender: TObject; MinWidth : integer = 0);
var
  ButtonSize: TSizeF;
  btn : TfgButton absolute Sender;

  lLabel : TfgLabel;
  lbtnAppearance : TfgButtonAppearance;

begin
   try
      lLabel := TfgLabel.Create(nil);
      lLabel.Parent := nil;
      lLabel.Text := btn.Text;
      lLabel.Size := btn.Size;
      case btn.Kind of
         TfgButtonKind.Default : lbtnAppearance := TfgButtonAppearanceDefault(btn.Appearance);
         TfgButtonKind.Text : lbtnAppearance := TfgButtonAppearanceText(btn.Appearance);
         TfgButtonKind.Outlined : lbtnAppearance := TfgButtonAppearanceOutlined(btn.Appearance);
         TfgButtonKind.Contained : lbtnAppearance := TfgButtonAppearanceContained(btn.Appearance);
      end;
      lLabel.Font := lbtnAppearance.Text.Font;
      lLabel.ContentPadding := lbtnAppearance.ContentPadding;
      ButtonSize := lLabel.MeasureSize(TfgMeasuringSpecification.Unspecified, 0, TfgMeasuringSpecification.Fixed, lLabel.Height);
   finally
      FreeAndNil(lLabel);
   end;
//   ButtonSize := btn.MeasureSize(TfgMeasuringSpecification.Unspecified, btn.Width, TfgMeasuringSpecification.Fixed, btn.Height);
   ButtonSize.Width := Max(ButtonSize.Width,MinWidth);
   btn.Size.SetSizeF(ButtonSize);
end;

 

Еще дополню. Совершенно необъяснимо, но на некоторых кнопках и этот трюк не срабатывает. Например если текст у кнопки задать "с 02.11.2019 по 16.11.2023", то обрезаются последние три символа, а если у этой же кнопки текст будет "ХХХХХХХХХХХХХХХХХХХХХХХХХE" (т.е. кол-во символов такое же), то этот текст спокойно помещается. Фантастика.

Edited November 16, 20232 yr by dervish00
ошибка

У кнопки есть доп. внутренний отступ на Android, который спрятан так, что до него не добраться. Я пока изучаю вопрос. 

6 минут назад, dervish00 сказал:

Совершенно необъяснимо, но на некоторых кнопках и этот трюк не срабатывает. Например если текст у кнопки задать "с 02.11.2019 по 16.11.2023", то обрезаются последние три символа, а если у этой же кнопки текст будет "ХХХХХХХХХХХХХХХХХХХХХХХХХE" (т.е. кол-во символов такое же), то этот текст спокойно помещается. Фантастика.

Строки с одинаковым количеством символов чаще всего не равны по ширине. Это справедливо только для моно-шрифта. Пробел в обычном шрифте гораздо меньше, чем любой другой символ. А Ж обычно как-раз одна из самых широких букв. 

В 16.11.2023 в 15:42, dervish00 сказал:

Проводя эксперименты дальше, выяснил, что неправильно высчитывается ширина именно у кнопок. Если искусственно подставить вместо кнопки метку, а потом кнопке задать в качестве ширины вычисленную ширину метки, то предварительно всё выглядит правильно.

procedure ButtonResize(Sender: TObject; MinWidth : integer = 0);
var
  ButtonSize: TSizeF;
  btn : TfgButton absolute Sender;

  lLabel : TfgLabel;
  lbtnAppearance : TfgButtonAppearance;

begin
   try
      lLabel := TfgLabel.Create(nil);
      lLabel.Parent := nil;
      lLabel.Text := btn.Text;
      lLabel.Size := btn.Size;
      case btn.Kind of
         TfgButtonKind.Default : lbtnAppearance := TfgButtonAppearanceDefault(btn.Appearance);
         TfgButtonKind.Text : lbtnAppearance := TfgButtonAppearanceText(btn.Appearance);
         TfgButtonKind.Outlined : lbtnAppearance := TfgButtonAppearanceOutlined(btn.Appearance);
         TfgButtonKind.Contained : lbtnAppearance := TfgButtonAppearanceContained(btn.Appearance);
      end;
      lLabel.Font := lbtnAppearance.Text.Font;
      lLabel.ContentPadding := lbtnAppearance.ContentPadding;
      ButtonSize := lLabel.MeasureSize(TfgMeasuringSpecification.Unspecified, 0, TfgMeasuringSpecification.Fixed, lLabel.Height);
   finally
      FreeAndNil(lLabel);
   end;
//   ButtonSize := btn.MeasureSize(TfgMeasuringSpecification.Unspecified, btn.Width, TfgMeasuringSpecification.Fixed, btn.Height);
   ButtonSize.Width := Max(ButtonSize.Width,MinWidth);
   btn.Size.SetSizeF(ButtonSize);
end;

 

Я в итоге так сделал:

procedure buttonResize(aButton: TfgButton; aSize: single);

begin

aButton.TextSettings.Font.Size := aSize * TfgAndroidHelper.Activity.getResources.getConfiguration.fontScale;

aButton.Realign;

var Ls := aButton.MeasureSize(TfgMeasuringSpecification.Unspecified, 0, TfgMeasuringSpecification.Fixed);

Ls.Width := aButton.Appearance.ContentPadding.Left + Ls.Width + aButton.Appearance.ContentPadding.Right;

Ls.Height := aButton.Appearance.ContentPadding.Top + (aButton.TextSettings.Font.Size * 2) + aButton.Appearance.ContentPadding.Bottom;

aButton.Size.SetSizeF(Ls);

end;

procedure TFormMain.fgApplicationEvents1ApplicationStateChanged(Sender: TObject; const AOldState, ANewState: TfgApplicationState);

begin

buttonResize(fgButton1, 20); //размер шрифта, разумеется, на своё усмотрение

end;

Выглядит так:

Не самое изящное решение, но всё вроде вполне корректно и пропорционально 🥲

А если на старте ещё такое добавить, то тогда размер кнопки совсем оптимальный получается:

procedure TFormMain.fgFormCreate(Sender: TObject);

begin

fgButton1.Appearance.ContentPadding.SetValues(8, 0, 8, 0, 0, 0);

end;

Видимо, это как-то связано с тем, что Ярослав ранее говорил:

В 16.11.2023 в 18:09, Yaroslav Brovin сказал:

У кнопки есть доп. внутренний отступ на Android, который спрятан так, что до него не добраться. Я пока изучаю вопрос. 

Edited April 23, 2025Apr 23 by gorodoro