(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 

Конференция "Micro Focus/Borland"

Обсуждение вопросов, связанных с компанией Micro Focus/Borland, ее продуктами CaliberRM, CaliberRDM, SilkTest, StarTeam, TeamDefine, Together и других.

 
 
Добавить сообщение »

Тема: Как определить размер шрифта Рабочего стола (96/120)?

Автор:  Бидон Дата: 16.04.2007 08:51
var
DC: HDC;
dpi: integer;
....
DC := GetDC(0);
dpi := GetDeviceCaps( DC, LOGPIXELSX );
ReleaseDC(0, DC);
Ответить на сообщение »
 
Автор:  Serg Chezhin Дата: 12.04.2007 14:24
код, правда на с++, но смысл, я думаю, понятен

HDC hdc = GetDC(Handle);
int dpi = GetDeviceCaps(hdc, LOGPIXELSX);
ReleaseDC(Handle, hdc);
Form1->PixelsPerInch = dpi;
Ответить на сообщение »
 
Автор:  Виктор Дата: 11.12.2006 14:29
Владимир пишет 22.11.2006 18:37:
>Как определить размер шрифта Рабочего стола Виндовс ХР (96 или 120 т/дюйм) из Дельфи?
>Спасибо.

Через реестр!
Если ОС Windows XP то см.:

Раздел: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NTCurrentVersion\FontDPI

Параметр: LogPixels
Тип: REG_DWORD

Код для Дельфи:
uses Registry;
var Reg : TRegistry;
Dpi : integer;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontDPI', false);
Dpi := Reg.ReadInteger('LogPixels');
Reg.CloseKey;
Reg.Destroy;
end;
Ответить на сообщение »
 
Автор:  Владимир Дата: 22.11.2006 18:37
Как определить размер шрифта Рабочего стола Виндовс ХР (96 или 120 т/дюйм) из Дельфи?
Спасибо.
Ответить на сообщение »
 

Добавить сообщение »

 Распечатать »
 Правила публикации »
   
 Рекомендовать »  
 

Магазин программного обеспечения   WWW.ITSHOP.RU
ESET NOD32 Cyber Security Pro, лицензия на 1 год
СУБД Линтер Бастион. Серверная лицензия. 5 клиентских подключений
Купить, скачать Dr.Web Security Space, 1 год, 1 ПК
Комплект Dr.Web «Универсальный», 1 год, 5 ПК
Panda Internet Security - ESD версия - на 1 устройство - (лицензия на 1 год)
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
СУБД Oracle "с нуля"
Мастерская программиста
Работа в Windows и новости компании Microsoft
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
Как мигрировать программу написанную на старом Буилдер 4.52 (1)
Мы поддерживаем старое приложение написанное с использованием С++ Буилдер 5.5 (ЕХЕ) и Буилдер...
 
Создание базы данных в Delphi, без сторонних БД (1)
Уважаемый автор, гуглю уже который день и у Вас как у всех "кидаем.." "даже не создаем проект"...
 
C++ Builder6 & Excel (11)
Доброе время суток! Пишу приложение в C++ Builder6 для формирования файлов Excel. Требуется...
 
Принцип создания плагинов в Delphi (3)
Достали, Эта статья не о плагинах а о подключении dll и возможности использования ресурсов в...
 
QuickREport (40)
Есть приложение скомпилированное в Delphi6. Для построения отчетов я использовал компонеты из...
 
 
 



    
rambler's top100 Rambler's Top100