Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.11.06;
Скачать: CL | DM;

Вниз

Как изменить TextHeight формы в RunTime?   Найти похожие ветки 

 
Delpherrr   (2010-04-22 17:24) [0]

В зависимости от установленной ОС мне нужно менять TextHeight формы. Программу разрабатывал в Delphi 7 в операционке Windows 7. При запуске программы под WindowsXP размеры компонентов сужаются...

Если открыть проект, созданый в семёрке, в XP, то форма тоже будет искажённой. Изменение параметра TextHeight с 14 на 13 в DFM-файле решает данную проблему..

Отсюда и вопрос - как в RunTime, при запуске программы, можно изменить данный параметр?

Заранее, спасибо!


 
Игорь ©   (2010-04-22 19:24) [1]


> Delpherrr   (22.04.10 17:24)


Не пойму что за TextHeight

Может это


procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.Font.Height:= 13;
end;


 
Delpherrr   (2010-04-22 20:07) [2]

TextHeight из dfm-файла формы

object Form1: TForm1
 Left = 48
 Top = 16
 Width = 1024
 Height = 768
 ...
 OnClose = FormClose
 OnCreate = FormCreate
 OnDestroy = FormDestroy
 OnShow = FormShow
 PixelsPerInch = 96
 TextHeight = 14
...


 
Delpherrr   (2010-04-22 20:15) [3]

Попробывал с Font.Height поиграться, то ПОЧТИ оно.
"Почти" потому, что при изменении данного параметра ширина и высота компонентов не меняется, в то время как изменение TextHeight из dfm-файла меняет размеры контролов, а размер текста остаётся прежним..


 
Игорь ©   (2010-04-22 20:31) [4]


> Delpherrr   (22.04.10 20:15) [3]
> ширина и высота компонентов не меняется


У компонентов есть свойство Anchors


 
Delpherrr   (2010-04-23 12:37) [5]

Не помогло..


 
Delpherrr   (2010-04-23 12:38) [6]

Тему можно считать закрытой. Посоветовали решение - у Form1 Scaled поставить в False.



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

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

Наверх




Память: 0.48 MB
Время: 0.007 c
1-1271097346
Виталий Панасенко(дом)
2010-04-12 22:35
2011.11.06
Fast Report 3, не передаются значения переменным


15-1310069123
George
2011-07-08 00:05
2011.11.06
Немножечко похвастаюсь


15-1310139238
Weei
2011-07-08 19:33
2011.11.06
Ротация бит


8-1217859464
REX
2008-08-04 18:17
2011.11.06
Звук


15-1310134286
Очень злой
2011-07-08 18:11
2011.11.06
Синхронизации папки пользователя при ее перенаправлении.