Сглаживание шрифтов для отдельно взятой программы.

[Mikle]

То есть я хочу, чтобы внешний вид моей программы не менялся в зависимости от опции в панели управления "Сглаживание экранных шрифтов". Возможно ли это? Если да, то как?

[Firestorm]

сомневаюсь что такое реально... если только вставить картинки вместо надписай хех...

[Mikle]

Попробую упростить задачу. Как программно включить-выключить это самое сглаживание для всех Windows? Учитывая, что моя программа полноэкранная, меня это устроит.

[Sebas]

В реестре, но это тока перезагрузка.

Апиха какаянить типа SetSystemInfo

[Mikle]

Через свойства рабочего стола все это делается без перезагрузки, но как программно?

[GSerg]

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

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPI_SETFONTSMOOTHING = 75



А потом

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

SystemParametersInfo SPI_SETFONTSMOOTHING, 0, True, SPIF_SENDWININICHANGE


[Mikle]

Благодарю. Приду домой - попробую, результат сообщу.

Все ОК! Только сначала ругнулось на несоответствие типов, но когда я заменил константу True на переменную типа Long, (хотя в декларации Any!) - все заработало. Теперь бы еще что-то типа
SPI_GETFONTSMOOTHING (GET вместо SET) - чтобы я мог запоминать системные настройки для последующего восстановления.

[GSerg]

Private Const SPI_GETFONTSMOOTHING = 74


Работает это так: надо объявить переменную типа Boolean и вызвать SystemParametersInfo SPI_GETFONTSMOOTHING, 0, MyBooleanVar, 0. Он тебе запихнет это значение в MyBooleanVar.


А вообще, я почти написал класс для работы со многими системными параметрами. Отлаживаю. Сессия мешает. В "Проектах" никто не откликнулся. Короче, напишу, выложу...

[Mikle]

Спасибо!!!

[Cav]

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

SystemParametersInfo SPI_SETFONTSMOOTHING, 0, True, SPIF_SENDWININICHANGE



это работать не будет

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

SystemParametersInfo SPI_SETFONTSMOOTHING, 0, 1&, SPIF_SENDWININICHANGE


так надо!

[Cav]

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

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPI_SETFONTSMOOTHING = 75

Не корректно - так нельзя использовать GET

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

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, Byref lpvParam As boolean, ByVal fuWinIni As Long) As Long
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPI_SETFONTSMOOTHING = 75

В таком случае будет работать:

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

SystemParametersInfo SPI_SETFONTSMOOTHING, 0, True, SPIF_SENDWININICHANGE