Вписать текст в известную длину

[NashRus]

Что-то сходу мыслей, кроме перебора не приходит.
Т.е. надо в известную длину подобрать размер шрифта, чтобы текст уместился.

[EUGY]

например, с помощью DrawTextEx /DT_CALCRECT/ вычислить ширину с текущим фонтом, потом вычислить коэфф. (lprc.right -lprc.left)\mylenth.

[tyomitch]

Ширина текста нелинейно зависит от размера шрифта.
Там действуют кернинг, хинтинг и другие страшные слова.

[iGrok]

Перебором, короче =)
Я делал попроще:

Код: Выделить всё

tw = Printer(Form).TextWidth("TEXT")

Потом действительно берешь коэффициент ( font.size = w / tw )

А далее - подгонка в цикле. Причем как раз их-за нелинейности проверять еще и на tw < w.. Чтобы не слишком мелко было.

[NashRus]

Ширина текста нелинейно зависит от размера шрифта.
Там действуют кернинг, хинтинг и другие страшные слова.

да, пропорцией плохо получается. пожалуй, надо моноширный шрифт использовать, там попроще должно быть.

[NashRus]

короче, сделал так:

Код: Выделить всё

    snFS1 = FontSize * (tpRect.Right - tpRect.Left) / TextWidth(sText)
    snFS2 = FontSize * (tpRect.Bottom - tpRect.Top) / TextHeight(sText)
    pGetFontSize = IIf(snFS1 < snFS2, snFS1, snFS2)

т.е. выбираю меньший размер в пропорциях по длине и по высоте. иногда ДрауТекст показывает в конце "...", но в основном Ок.

кто-то чего-то может еще сказать ?

[tyomitch]

Могу сказать, что поверить алгеброй гармонию, найдя пропорциональность даже в моноширинных шрифтах, не удастся.
Возьми букву W, благодаря хинтингу она всегда симметричная (на пиксельном уровне, и значит, её ширина (в пикселах) всегда кратна четырём.
Значит, вписать её в строку, чья ширина не кратна четырём, не удастся ни при каком размере шрифта.
(Это просто иллюстративный пример.)

[NashRus]

ну надо же не чтобы было "=", а чтобы "<=", заданной длины

[tyomitch]

Ну тогда ответ очевидный: шрифт размером 1пт впишется в любую длину