| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Размер шрифта [D5, Win95/98]

kat ©   (2002-03-28 17:23:00) 

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

---

Reindeer Moss Eater   (2002-03-28 18:38:00) [1]


const App_FontSize = 10;

var ScreenLogPixels:integer; DC:HDC;
begin
DC:=GetDC(0);
ScreenLogPixels:=GetDeviceCaps(DC,LOGPIXELSY);
ReleaseDC(0,DC);
DefFontData.Height:= - MulDiv(App_FontSize,ScreenLogPixels,72);
Form1.Font.Size:=DefFontData.Height;
end;


---

Andrews   (2002-03-28 18:36:00) [2]

Попробуй выставить свойство AutoSize формы в FALSE

---

Наверх