InputBox & шрифт

← →
Shurup © (2007-11-13 17:23) [0]

Здравствуйте.
Уж слишком мелкий шрифт у компонентов диалогового окна, вызываемого функцией InputBox. Как увеличить?

← →
Reindeer Moss Eater © (2007-11-13 17:40) [1]

Ctrl+Mouse_Left покажет можно или нельзя.

← →
AlexanderMS © (2007-11-13 17:49) [2]

> Уж слишком мелкий шрифт у компонентов диалогового окна,
> вызываемого функцией InputBox. Как увеличить?

А не проще ли свой создать (там ведь и Caption английский)?

← →
Shurup © (2007-11-13 18:08) [3]

> Ctrl+Mouse_Left покажет можно или нельзя

Подредактировал исходный текст function InputQuery в unit Dialogs.
В месте где создается форма, дописываю
with Form do try // добавлено, отсюда Font.Size:=12; Font.Style:=[fsBold]; // и досюда Canvas.Font := Font;
Но никакой реакции. Наверное, таки нельзя?

Про bpl когда-нибудь слышал?

Свою реализацию InputQuery создай.

Reindeer Moss Eater, спасибо за ответ.

Про BPL знаю, что там находятся скомпилированные стандарные модули из поставки Delphi. Т.е. в моем случае, получается, необходимо будет перекомпилировать какую-то BPL-ку. Это мне не совсем подходит, так как я отключил в проекте опцию "Build with runtime packages" и не хотел бы кроме EXE-шника своей проги распространять еще и переделанные BPL-ки.

Или Вы имели ввиду включить переделанный исходник InputQuery непосредственно в свою прогу? Скорее всего это мне подойдет.

InputBox &amp; шрифт Найти похожие ветки

InputBox & шрифт Найти похожие ветки