![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
InputBox & шрифт [D5, XP]
Shurup © (2007-11-13 17:23:00)Здравствуйте.
Уж слишком мелкий шрифт у компонентов диалогового окна, вызываемого функцией InputBox. Как увеличить?
Shurup (2007-11-13 18:44:00) [1]Reindeer Moss Eater, спасибо за ответ.
Про BPL знаю, что там находятся скомпилированные стандарные модули из поставки Delphi. Т.е. в моем случае, получается, необходимо будет перекомпилировать какую-то BPL-ку. Это мне не совсем подходит, так как я отключил в проекте опцию "Build with runtime packages" и не хотел бы кроме EXE-шника своей проги распространять еще и переделанные BPL-ки.
Или Вы имели ввиду включить переделанный исходник InputQuery непосредственно в свою прогу? Скорее всего это мне подойдет.
Reindeer Moss Eater (2007-11-13 18:13:00) [2]Про bpl когда-нибудь слышал?
Свою реализацию InputQuery создай.
Shurup (2007-11-13 18:08:00) [3]
> Ctrl+Mouse_Left покажет можно или нельзя
Подредактировал исходный текст function InputQuery в unit Dialogs.
В месте где создается форма, дописываю
with Form do
try
// добавлено, отсюда
Font.Size:=12;
Font.Style:=[fsBold];
// и досюда
Canvas.Font := Font;
Но никакой реакции. Наверное, таки нельзя?
AlexanderMS (2007-11-13 17:49:00) [4]
> Уж слишком мелкий шрифт у компонентов диалогового окна,
> вызываемого функцией InputBox. Как увеличить?
А не проще ли свой создать (там ведь и Caption английский)?
Reindeer Moss Eater (2007-11-13 17:40:00) [5]Ctrl+Mouse_Left покажет можно или нельзя.