Скачать: CL | DM;

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

← →
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 (к примеру) не забыл?
> :)


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.009 c