Изменение размеров шрифта

← →
Bosso (2003-07-24 10:48) [0]

Злые юзеры хотят, чтобы в проге был переключатель на большой и жирный шрифт (видимо, для умственно слепых).
Может быть, кто-то подскажет легкий способ изменения всех шрифтов в программе на другие так, чтобы не перекашивались элементы управления?
Я сделал перебором всех компонент, имеющих свойство Font, в цикле, и изменение размера фонта, а также увеличение размеров самих контолов на определенный процент. Но, конечно, все равно все наехало друг на друга. Помогите, а?

← →
Skier (2003-07-24 10:49) [1]

>Bosso (24.07.03 10:48)
TYourControl.ParentFont ?

← →
Bosso (2003-07-24 10:52) [2]

> Skier © (24.07.03 10:49)
Да нет, думаю, не получится. Вопрос-то не в том, как увеличить фонт, а как сделать так, чтобы пропорционально увеличить все контролы, чтобы не ломался интерфейс.

← →
Skier (2003-07-24 10:54) [3]

TWinControl.ScaleBy(...) ?

← →
Andrey007 (2003-07-24 10:58) [4]

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

← →
Bosso (2003-07-24 10:59) [5]

> Skier © (24.07.03 10:54)

А вот про такую штуку почему-то вообще не слышал. Сейчас попробовал - похоже! Спасибо!

← →
Andrey007 (2003-07-24 11:02) [6]

Bosso, на форме есть свойство Scaled, которое разрешает или запрещает изменение размеров элементов под размер шрифта

← →
Bosso (2003-07-24 11:08) [7]

> Andrey007 (24.07.03 11:02)
Спасибо, уже нашел

Короче, я понял так, что надо:
1. Установить scaled в true
2. Вызвать процедуру ScaleBy
3. Изменить размер формы.

Все?

Изменение размеров шрифта Найти похожие ветки