Здравствуйте, уважаемые!

Как задать размер фонта меньше 8?
Задаю 7, а он остается 8.
В ворде, ноутпаде, делфях и т. д. шрифт уменьшается без проблем.
Если Font.Size = 8, тогда эта строчка

Font.Size := Font.Size - 1; // Font.Size был равен 8

его не меняет.

Здравствуйте, chia, Вы писали:

C>Здравствуйте, уважаемые!

C>Как задать размер фонта меньше 8?
C>Задаю 7, а он остается 8.
C>В ворде, ноутпаде, делфях и т. д. шрифт уменьшается без проблем.
C>Если Font.Size = 8, тогда эта строчка

C>

C>Font.Size := Font.Size - 1; // Font.Size был равен 8
C>

C>его не меняет.

Поменяй шрифт, т.к. по умолчанию стоит MS Sans Serif, который и не позволяет установить размер меньше 8, например на MS Serif или Courier New.

Здравствуйте, chia, Вы писали:

C>

C>Font.Size := Font.Size - 1; // Font.Size был равен 8
C>

C>его не меняет.
А как называется фонт? Не для всех фонтов это прокатывает. Например, для MS Sans Serif ничего не выйдет ни в дизайн-тайме, ни в ран-тайме. А для Tahoma все нормально в обоих случаях. Читать про TrueType.

Здравствуйте, bercsoft, Вы писали:

B>Здравствуйте, chia, Вы писали:

B>Поменяй шрифт, т.к. по умолчанию стоит MS Sans Serif, который и не позволяет установить размер меньше 8, например на MS Serif или Courier New.

Пасиба! Шериф был.