VPF::Оперирование сантиметрами - Форум программистов

AHgpeu

Дата 9.11.2007, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 124
Регистрация: 6.4.2007

Репутация: нет
Всего: нет

Есть такой компонент линейка (такая же есть, например в MSWord, которая располагается сверху и слева страницы)
При OnMouseMove хочу позиционировать указатель на такой линейке, соответствующий положению мышки
Возник вопрос:
Координаты положения мышки на экране определяются в пкс
ед.измерения для линейки наиболее приемлимые — это, конечно, см
Как мне перевести эти пкс в нужные мне см?*
Использовал GetDeviceCaps т.о.:

Код


OnMouseMove
var
  PxInchX, PxInchY: Integer;
  PxCmX, PxCmY: Integer;
begin  
  PxInchX := GetDeviceCaps(DC,LOGPIXELSX);// Px в inch по Х
  PxInchY := GetDeviceCaps(DC,LOGPIXELSY);//Px в inch по Y
  PxCmX := Round(PxInchX/2.54);//Px в cm по Х
  PxCmY := Round(PxInchY/2.54);//Px в cm по Y
  RulerX.Position := (<Значение позиции курсора мыши в Px>)/PxCmX;//RulerX-Линейка, на которой отображается текущее значение курсора по Х
end;

С увеличением значения Х (позиция курсора) увеличивается погрешность на линейке(см. прикрепленный файл)
Какой алгоритм решения вопроса?*
Спасибо

Присоединённый файл ( Кол-во скачиваний: 9 )

Ruler.JPG 14,69 Kb

--------------------

ᆉᆈǀƿᆇᆆᆅᆂᆁᆇᆆ