### Оптимизация Размера Кнопки в Delphi XE4 FireMonkey для Мобильных Устройств

Delphi , Компоненты и Классы , Кнопки

Оптимизация Размера Кнопки в Delphi XE4 FireMonkey для Мобильных Устройств

Разработка мобильных приложений на Delphi XE4 FireMonkey может включать в себя задачи по оптимизации элементов интерфейса, в том числе и кнопок. Одной из таких задач является настройка размера кнопки таким образом, чтобы она была минимально возможной, но при этом в неё укладывался текст. В этой статье мы рассмотрим, как добиться такого результата, используя примеры кода на Object Pascal.

Проблема

Разработчик мобильного приложения на Delphi XE4 FireMonkey столкнулся с задачей оптимизации размера кнопки. Он хочет, чтобы кнопка была как можно меньше, но при этом текст на ней был полностью виден и не обрезался. Задача усложняется тем, что размер кнопки должен автоматически подстраиваться под длину текста.

Решение

Для решения этой проблемы можно использовать методы, связанные с классом TTextLayout. Это позволит изменять размер кнопки в зависимости от информации о разметке текста.

Пример кода, который автоматически подстраивает размер кнопки под текст:

uses FMX.TextLayout;
type
  TextHelper = class helper for TText
    function getLayout: TTextLayout;
  end;
function TextHelper.getLayout: TTextLayout;
begin
  result := Self.fLayout;
end;
procedure ButtonAutoSize(Button: TButton);
var
  bCaption: TText;
  m: TBounds;
begin
  bCaption := TText(Button.FindStyleResource('text', False));
  bCaption.HorzTextAlign := TTextAlign.taLeading;
  bCaption.VertTextAlign := TTextAlign.taLeading;
  m := bCaption.Margins;
  Button.Width := bCaption.getLayout.Width + m.Left + m.Right;
  Button.Height := bCaption.getLayout.Height + m.Top + m.Bottom;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  ButtonAutoSize(Sender as TButton);
end;

Альтернативное Решение

Для более универсального и будущего устойчивого решения, которое не требует доступа к приватным полям классов, можно использовать следующий подход:

uses FMX.Objects;
procedure ButtonAutoSizeEx(Button: TButton);
var
  Bitmap: TBitmap;
  Margins: TBounds;
  Width, Height: Single;
begin
  Bitmap := TBitmap.Create;
  Bitmap.Canvas.Font.Assign(Button.TextSettings.Font);
  Width := Bitmap.Canvas.TextWidth(Button.Text);
  Height := Bitmap.Canvas.TextHeight(Button.Text);
  Margins := (Button.FindStyleResource('text', False) as TText).Margins;
  Button.TextSettings.HorzAlign := TTextAlign.Leading;
  Button.Width := Width + Margins.Left + Margins.Right;
  Button.Height := Height + Margins.Top + Margins.Bottom;
end;

Этот пример не учитывает обрезку слов или символов. Важно отметить, что поведение может быть нестабильным в некоторых версиях Delphi, например, в XE6. В таком случае рекомендуется обратиться к более актуальным решениям, разработанным с учетом изменений в FireMonkey.

Заключение

В данной статье были рассмотрены два метода автоматизации размера кнопки в зависимости от размера текста в Delphi XE4 FireMonkey. Первый метод использует класс TTextLayout, в то время как второй метод не требует доступа к приватным полям и может быть более предпочтителен в свежих версиях Delphi. Оба метода могут быть полезны при разработке мобильных приложений, где важна экономия пространства и удобство использования интерфейса.

Создано по материалам из источника по ссылке.

Описание: Разработчик в Delphi XE4 FireMonkey стремится оптимизировать размер кнопки для мобильного приложения, чтобы он соответствовал тексту, не обрезая его, и автоматически подстраивался под длину текста.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Кнопки ::