Font 125% и как с этим бороться

[mitr]

Есть такая проблема. Програмулина работает на трех разрешениях экрана 800 1024 и 1280, ресайзинг всех элементов выполняется нормально, но вот беда, если пользователь плохо видит, он ставит себе увеличенный размер шрифта, есть такая фича в винде. После чего в программе с трудом можно разобрать, что по чем. Как с этим бороться, как оставить размер шрифта тем который был по умолчанию в программе?

[alibek]

Для начала испольщуй векторные шрифты. Стандартный шрифт на форме и контролах -- MS Sans Serif, измени его на (например) Tahoma.
Но это тебе не поможет Потому как фонты -- не единственное, что изменяет свои размеры. Автоматически еще масштабируются Label, TextBox, Frame; PictureBox (насколько я помню) не масштабируется, но то, что находится внутри него, масштабируется.
Как с этим бороться я не нашел, я просто не масштабирую шрифты

[mitr]

А что значит просто не масштабирую шрифты, если они виндой автоматически увеличиваются?

Спасибо за ответ

[Firestorm]

не судьба значит!!!

либо замутить чё-нить типа узнать, включен ли этот увеличитель шрифта и от этого изменить размер шрифтов на контроле...

[mitr]

Интересно, а что по этому поводу Модераторы думают?
Неужели не сталкивались

[goro]

вот что я нашел в просторах интернета...
определяет какой у тебя шрифт стоит, а далее и сам можешь под него подстроится.

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

Option Explicit

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright ©1996-2003 VBnet, Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by the author.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Distribution: You can freely use this code in your own
'               applications, but you may not reproduce
'               or publish this code on any web site,
'               online service, or distribute as source
'               on any media without express permission.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Const LOGPIXELSX = 88
Private Const LOGPIXELSY = 90
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" _
     (ByVal hwnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" _
     (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "user32" _
     (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Sub Command1_Click()
   
   'call the wrapper function   
    If IsScreenFontSmall() Then
          Label1.Caption = "System is using Small fonts"
    Else: Label1.Caption = "System is using Large fonts"
       
    End If
End Sub
Private Function IsScreenFontSmall() As Boolean
    Dim hWndDesk As Long
    Dim hDCDesk As Long
    Dim logPix As Long
   
   'get the handle to the desktop window   
    hWndDesk = GetDesktopWindow()
   
   'get the handle desktop display context (hDC)   
    hDCDesk = GetDC(hWndDesk)
   
   'get the horizontal logical pixels   
    logPix = GetDeviceCaps(hDCDesk, LOGPIXELSX)
   
   'release the hDC   
    Call ReleaseDC(hWndDesk, hDCDesk)
   
   'if the return from GetDeviceCaps is 96, then 
   'the system is using small fonts.
    IsScreenFontSmall = logPix = 96
 
End Function
'--end block--'

[Vi]

Значение Screen.TwipsPerPixelX = 15 (шрифт мелкий) = 12 (шрифт крупный).

Т.е. 1440 / Screen.TwipsPerPixelX - это и есть DPI вашего монитора (96 - мелкий, 120 - крупный)

[alibek]

Vi, признавайся, ты один из разработчиков VB!
Вот ЭТОГО я не знал, меня всегда интересовало, откуда растут ноги у твипов

[Vi]

Просто как-то попадалось под руку. Нет, я пишу в основном на С (но не в MS). Отсюда и информации побольше.

1 дюйм = 20 точек = 1440 твипов - логические единицы
||
DPI пикселов - физические единицы.

По-англицки: (1 inch = 20 points = 1440 twips == DPI pixels)

Почему-то именно такое расположение логических и физических единиц. DPI - это характеристика устройства, dot-per-inch или точек-на-дюйм. 300 dpi для принтера, например.

Ну а все миллиметры и сантиметры выражаются через дюймы. Есть перевод Form1.ScaleX или Form1.ScaleY разных единиц в друг друга.