Высота RadioButton

[Hevard]

Доброго дня!

Для вывода вариантов ответов на вопрос, в 6 шт. RadioBatton выводятся ответы из БД.

Длина компонент фиксированная, а вот что делать с высотой? Ответы могут быть как в одно-два слова, так и в 7-10 предложений. Намёков хоть на какой-то AutoSize не нашёл.

В итоге, текст центруется обрезаясь сверху и снизу.  

[Hevard]

В общем, сам спросил - сам ответил. 
Нашёл некий пример, проверил - работает.

Delphi

1 2 3 4 5 6 7 8 9 10 11 12    var   r: TRectF;   s: string;  begin      RadioButton1.Canvas.Font.Size := RadioButton1.TextSettings.Font.Size;      r := RectF(0, 0, RadioButton1.Size.Width-24, 10000); // не понял, что за 10000, но ни на что не повлияло      s := FDQuery1.FieldByName('ANS1').AsString; // строчная переменная, в моём случае - текст из БД      RadioButton1.Canvas.MeasureText(r, s, True, [], TTextAlign.Leading, TTextAlign.Leading);      RadioButton1.Size.Height := r.Bottom;      RadioButton1.Text := s; end

Возможно, кому-то должно пригодиться.

Изменено 16 марта, 2021 пользователем Hevard