| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как изменить TextHeight формы в RunTime? [D7, WinXP]

Delpherrr ©   (2010-04-22 17:24:00) 

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

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

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

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

---

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

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

---

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

Не помогло..

---

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

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


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

---

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

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

---

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

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
...

---

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

> Delpherrr   (22.04.10 17:24)


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

Может это


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

---

Наверх