Текущий архив: 2002.04.11;
Скачать: CL | DM;

Вниз

Размер шрифта   Найти похожие ветки 

← →
kat ©   (2002-03-28 17:23) [0]

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

---

← →
Andrews ©   (2002-03-28 18:36) [1]

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

---

← →
Reindeer Moss Eater   (2002-03-28 18:38) [2]


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;


---

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

Текущий архив: 2002.04.11;
Скачать: CL | DM;

Наверх

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