Вопрос

Всем здравствуйте.
Интересует есть ли в FM опция для автоматического изменения размера шрифта в TText таким образом, чтобы текст заполнил всю площадь контрола. Включая и случаи отображения текста в несколько строк. 

Просто есть контрол стандартного размера, и текст, отображаемый в нем, может быть разным, в том числе и длинным. Нужно сделать, чтобы его шрифт уменьшался для полной вместимости текста. 

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

2 ответа на этот вопрос

  • 0

сделать, чтобы его шрифт уменьшался для полной вместимости текста. 

до полной нечитаемости текста

 

задача может быть решена путем метода половинного деления

смотрите тему про подстройку размера TLabel

только в вашем случае после измерения надо будет не размер контрола менять, а делить кегль пополам и смотреть, больше надо или меньше

У алгоритма неплохая сходимость, но быстрым его не назовешь...

Alex7wrt понравилось это

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас

  • Похожие публикации

    • Автор: Вячеслав Холод
      Проблема такая, создаю динамически Label и нужно выровнять текст внутри по центру самой метки. 
      Пробовал: 
          with LabelG do
          begin
            StyledSettings := [];
            LabelG.TextSettings.Font.Family:='Century Gothic';
            LabelG.TextSettings.Font.Size:=14;
            LabelG.TextSettings.FontColor:=TAlphaColorRec.Aliceblue;
       -->  LabelG.TextSettings.HorzAlign.taCenter; (И :=taCenter и что только не пробовал)
          end;
       
      Помогите пожалуйста.
    • Автор: Mazzay
      Сделал выбор числа месяца скроллингом (как это реализовано на устройствах Apple). Для наглядности вот рабочий пример: https://youtu.be/F73fCMSlL7I.
      Но для красоты картины не хватает вывода заворачивающихся чисел в перспективе:

      Как сие реализовать?
    • Автор: serg557
      День добрый!
      Ситуация такова:
      1. Загружаю вебстраничку в AnsiString - тут все отлично работает как на винде так и под андроид;
      2. Пытаюсь ее отпарсить с использованием стандартных методов AnsiString- .Pos(), .SubString(), .Delete(), - на винде все работает - на андроиде -нет.
       Вопрос в следующем - чем работать на с текстом - чтобы одинаково работало под андроидом?
       
    • Автор: Schekhovtsov
      Чтобы если был выбран английский, приложение включало пресет английского. Собственно, нужен какой-то способ определения активного языка.
    • Автор: kidrock
      Всем привет. Вывожу из базы в Tmemo текст из базы данных. Всё хорошо, но на мобилке обнаружилось, что при повороте экрана(вроде бы это называется смена ориентации) текст как бы расстягивается. Возможно ли это как то исправить?
       
      Вот так текст выглядит в нормальном виде:

       
      А вот в повернутом виде:

       
    • Автор: vivien
      Здравствуйте уважаемые форумчане!
       
      Есть такой вопрос, в Grid есть колонка TCheckColumn, через событие OnGetValue, можно установить состояние чекбокса, а можно-ли как-то добавить текст рядом с чекбоксом?
      Ранее, в XE2, у TColumn был метод CellControlByRow, и работала такая конструкция:
      var tc : TTextCell; begin  // ... tc := columns[col].CellControlByRow(row) as TTextCell;   if assigned(tc) then tc.Text := 'текст'; end; Есть ли какая-нибудь альтернатива для XE4?
  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу