Постоянный размер шрифта

← →
olban © (2002-08-27 11:10) [0]

Всем здравствуйте. Есть ли решение такой проблемы. При написании программы используется стандартная настройка Windows, ну типа мелкий шрифт и т.д. Все хорошо выглядит. Но когда эту программу запускают на Windows, где, к примеру, установлен крупный шрифт, то надписи уже вылазят за границы. Можно ли как-то сделать, чтобы под свою программу изменять настройки шрифта?

← →
ЮЮ © (2002-08-27 11:17) [1]

В формах использовать не Font.Size, а Font.Height

← →
Reindeer Moss Eater (2002-08-27 11:17) [2]

Например вот так

const
App_FontSize = 10;
var
ScreenLogPixels : integer;
DC:HDC;
begin
try
DC:=GetDC(0);
ScreenLogPixels:=GetDeviceCaps(DC,LOGPIXELSY);
DefFontData.Height:= - MUlDiv(App_FontSize,ScreenLogPixels,72); Font.Size:=DefFontData.Height;
finally
ReleaseDC(0,DC);
end;
end;

← →
OlBan © (2002-08-27 12:08) [3]

А нельзя как-то менять настройки Windows под свою программу?

← →
Reindeer Moss Eater (2002-08-27 12:53) [4]

За что ты так ненавидишь пользователей? :)

← →
OlBan © (2002-08-28 07:50) [5]

Я их как раз люблю (в меру своих сил конечно), но для их же пользы это надо. Чтобы в программе все было читабельно и красиво. Да и смысла нет, чтобы там все было крупным шрифтом.

← →
ЮЮ © (2002-08-28 08:01) [6]

Я же сказал, вместо положительных Font.Size и отрицательных Font.Height использовать положительные Font.Height, т.е. высота в пикселях будет одинакова, а Font.Size будет подбираться соответствующий

← →
Reindeer Moss Eater (2002-08-28 08:07) [7]

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

← →
Reindeer Moss Eater (2002-08-28 08:10) [8]

>OlBan ©
Поверь, им (пользователям) на твою такую любовь глубоко наплевать. А если точнее, то они ее не хотят на самом деле.
Все должно быть читабельно при любом извращенном вкусе пользователя.

← →
Егор (2002-08-28 08:23) [9]

Используй в программе шрифт Arial. При любом используемом юзером размере шрифта он не будет менятся. Ну, а что бы не менять и размер формы, то: Form1.Scaled := False;

← →
Reindeer Moss Eater (2002-08-28 08:33) [10]

>Егор
А говоря про Arial ты про TMainMenu (к примеру) не забыл? :)

← →
Егор (2002-08-28 08:42) [11]

> А говоря про Arial ты про TMainMenu (к примеру) не забыл?
> :)

Да, это верно, здесь будет проблемс.

Постоянный размер шрифта Найти похожие ветки