Текущий архив: 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.47 MB
Время: 0.009 c
