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

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

О свойстве TScreen.PixelsPerInch

kudatsky ©   (2007-10-15 13:57:00) 

Как я понимаю, это количество пикселей на дюйм.
Но при разных разрешениях оно возвращает 96.
В чём дело ?

---

Ins   (2007-10-15 16:35:00) [1]

> постранично знаешь наизусть всю книгу? :)

Да нет, она у меня в электронном варианте под рукой :)

---

DVM   (2007-10-15 16:34:00) [2]

> Ins ©   (15.10.07 14:48) [4]

постранично знаешь наизусть всю книгу? :)

---

Ins   (2007-10-15 14:52:00) [3]

> kudatsky   (15.10.07 13:57)

Ну а если нужно точно значение точек на физический дюйм, то см. флаги HORZSIZE Width, in millimeters, of the physical screen.
VERTSIZE Height, in millimeters, of the physical screen.
HORZRES Width, in pixels, of the screen.
VERTRES Height, in raster lines, of the screen.
функции GetDeviceCaps. Просто сначала получите ширину физического экрана в пикселах, потом - в миллиметрах, потом путем хитрых математических манипуляций рассчитайте реальное dpi.

---

Ins   (2007-10-15 14:48:00) [4]

Так и есть. В общем, поищите книгу Феня Юаня "Программирование графики в Windoows" (тут недавно даже ссылку на нее давали), там на страницах 349-350 объясняется причина сего.

---

Ins   (2007-10-15 14:35:00) [5]

> kudatsky   (15.10.07 13:57)

Видимо потому, что возвращается значение, соответствующее числу точек на логический дюйм, а логический дюйм на экране не всегда равен физическому дюйму. Поищи определение логического дюйма. Вроде бы это та длина, котороя будет соответствовать одному дюйму при печати.

---

Anatoly Podgoretsky   (2007-10-15 14:11:00) [6]

> Но при разных разрешениях оно возвращает 96.

Именно, поскольку количество точек на дюйм не менялось, смени шрифт в системе с нормального на крупный и получишь изменение.

---

Ega23   (2007-10-15 14:05:00) [7]


constructor TScreen.Create(AOwner: TComponent);
var
 DC: HDC;
begin
 inherited Create(AOwner);
 Classes.AddDataModule := AddDataModule;
 Classes.RemoveDataModule := RemoveDataModule;
 CreateCursors;
 FDefaultKbLayout := GetKeyboardLayout(0);
 FForms := TList.Create;
 FCustomForms := TList.Create;
 FDataModules := TList.Create;
 FMonitors := TList.Create;
 FSaveFocusedList := TList.Create;
 DC := GetDC(0);
  FPixelsPerInch := GetDeviceCaps(DC, LOGPIXELSY);
 ReleaseDC(0, DC);
 EnumDisplayMonitors(0, nil, @EnumMonitorsProc, LongInt(FMonitors));
 FIconFont := TFont.Create;
 FMenuFont := TFont.Create;
 FHintFont := TFont.Create;
 GetMetricSettings;
 FIconFont.OnChange := IconFontChanged;
 FMenuFont.OnChange := IconFontChanged;
 FHintFont.OnChange := IconFontChanged;
end;


---

Наверх