Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как изменить TextHeight формы в RunTime?

Автор: Konstantin555 22.4.2010, 16:48

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

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

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

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

Автор: DarkProg 22.4.2010, 20:05

Вы имеете в виду вот это????

Код


procedure TForm1.OnCreate(Sender:TObject);
begin
.....
Form1.Font.TextHeight:=13;
....
end;

Автор: Konstantin555 22.4.2010, 20:17

Цитата(DarkProg @ 22.4.2010, 20:05)

Вы имеете в виду вот это????

Код


procedure TForm1.OnCreate(Sender:TObject);
begin
.....
Form1.Font.TextHeight:=13;
....
end;

Свойства TextHeight объёкта Font не существует.. Если имели в виду свойство Height, то это не оно..

Я имел в виду 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
...

Автор: Snowy 23.4.2010, 10:29

установи у Form1 Scaled в false

Автор: Konstantin555 23.4.2010, 11:33

Цитата(Snowy @ 23.4.2010, 10:29)

установи у Form1 Scaled в false

Оно! Огромное спасибо!!!