Как изменить 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.

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