firemonkey Как узнать размер экрана?

[pavellyba]

firemonkey Как узнать размер экрана?

[mihali4]

А что, там нету глобальной переменной Screen с параметрами Height, Width ???

[pavellyba]

mihali4, нет, почему то не поддерживает(

[mihali4]

Для того, чтобы определить размер монитора в физиеских единицах измерения, нам достаточно воспользоваться функцией: GetDeviceCaps (DC: HDC; int:integer). С помощью этой функции можно получить специфическую информацию относительно экранного устройства. Этим устройством может быть как экран монитора, так и принтер с плоттером. В нашем случае, устройством является экран монитора.
Применительно к экрану монитора, параметр int в функции может принимать одно из следующих значений:
HORZSIZE - Ширина физического дисплея (в миллиметрах)
VERTSIZE - Высота дисплея (в миллиметрах)
HORZRES - Ширина дисплея (в пикселях)
VERTRES - Высота дисплея (в линиях растра)
LOGPIXELSX - Число пикселей на горизонтальный логический дюйм
LOGPIXELSY - Число пикселей на вертикальный логический дюйм
ASPECTX - Относительная ширина пикселя устройства, которая используется для линий рисунка
ASPECTY - Относительная высота пикселя устройства, которая используется для линий рисунка
ASPECTXY - Диагональная ширина пикселя устройства, которая используется для линии рисунка.
http://www.webdelphi.ru/2009/07/mysh...odobnye-zveri/

Ну, уж это-то должно быть. АПИ оно и в Африке АПИ

[pavellyba]

А как определить дескриптор монитора? И что в uses добавить надо?

[mihali4]

Достаточно сходить по приведенной ссылке.
Там подробно рассматривается пример...

[pavellyba]

14:46
Выделяет команды красным. Говорит, что команда не идентифицирована. Что нужно в USES добавить?

15:03
Разобрался) В uses пишем "Windows" и все работает)

Пора бы уже и прочесть правила раздела...
Размещение своих постов подряд считается флудом.
У вас что - дефекты зрения ? Кнопку "Правка" не видите ?
Прочитайте правила.

[mihali4]

Да вроде нетрудно догадаться, что нужно определить глобальные переменные :

  LastPos: TPoint;
  doUpdate: boolean;
  distance: currency;

И бросить на форму как минимум кнопку, таймер и 8 лэйблов...
Проект - голый, новый, в USES ничего не добавлял...

З.Ы.

Сообщение от pavellyba

Разобрался) В uses пишем "Windows" и все работает)

Так оно автоматом добавляется при создании нового приложения в Дельфи...