Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Постоянный размер шрифта [D5, Win95/98, Win2k]

olban © (2002-08-27 11:10:00)
Всем здравствуйте. Есть ли решение такой проблемы. При написании программы используется стандартная настройка Windows, ну типа мелкий шрифт и т.д. Все хорошо выглядит. Но когда эту программу запускают на Windows, где, к примеру, установлен крупный шрифт, то надписи уже вылазят за границы. Можно ли как-то сделать, чтобы под свою программу изменять настройки шрифта?

Егор (2002-08-28 08:42:00) [1]

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

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

Reindeer Moss Eater (2002-08-28 08:33:00) [2]
>Егор
А говоря про Arial ты про TMainMenu (к примеру) не забыл? :)

Егор (2002-08-28 08:23:00) [3]
Используй в программе шрифт Arial. При любом используемом юзером размере шрифта он не будет менятся. Ну, а что бы не менять и размер формы, то: Form1.Scaled := False;

Reindeer Moss Eater (2002-08-28 08:10:00) [4]
>OlBan ©
Поверь, им (пользователям) на твою такую любовь глубоко наплевать. А если точнее, то они ее не хотят на самом деле.
Все должно быть читабельно при любом извращенном вкусе пользователя.

Reindeer Moss Eater (2002-08-28 08:07:00) [5]
В моем примере шрифт в приложении всегда будет десяткой (такой, какой она выглядит при нормальных установках шрифта) независимо от размеров шрифта в системе.

ЮЮ (2002-08-28 08:01:00) [6]
Я же сказал, вместо положительных Font.Size и отрицательных Font.Height использовать положительные Font.Height, т.е. высота в пикселях будет одинакова, а Font.Size будет подбираться соответствующий

OlBan (2002-08-28 07:50:00) [7]
Я их как раз люблю (в меру своих сил конечно), но для их же пользы это надо. Чтобы в программе все было читабельно и красиво. Да и смысла нет, чтобы там все было крупным шрифтом.

Reindeer Moss Eater (2002-08-27 12:53:00) [8]
За что ты так ненавидишь пользователей? :)

OlBan (2002-08-27 12:08:00) [9]
А нельзя как-то менять настройки Windows под свою программу?

ЮЮ (2002-08-27 11:17:00) [10]
В формах использовать не Font.Size, а Font.Height

Reindeer Moss Eater (2002-08-27 11:17:00) [11]
Например вот так

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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »