Определение отступов страницы

← →
anod © (2003-06-25 22:41) [0]

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

var x,x1,w: integer; leftmrgn,rightmrgn:integer; begin x:=GetDeviceCaps(printer.Handle, PHYSICALOFFSETX); //вроде как левый отступ x1:=GetDeviceCaps(printer.Handle, HORZRES) - x; //вроде как правытй отступ w:=GetDeviceCaps(printer.Handle, PHYSICALWIDTH); //вроде как вся ширина листа leftmrgn:=(w div 2) - Panel1.Width div 2 + x; rightmrgn:=(w div 2) - Panel1.Width div 2 + x1; Form2.Width:=w-x-x1; ShowMessage(IntToStr(w)+#10#13+IntToStr(leftmrgn)+#10#13+IntToStr(rightmrgn));

Надо чтобы форма была в ширину листа без отсупов, а панель находилась в центре листа. Значения какие-то левые.

← →
Anatoly Podgoretsky © (2003-06-26 00:02) [1]

В единицах устройства

← →
anod © (2003-06-26 02:41) [2]

Единицы устроиства, это точки на дюйм или что это, и как перевести в пикселы, ещё в фак я нашел перевод из мм в пикселы, но мне не помогло.

← →
anod © (2003-06-27 16:55) [3]

Может у кого инфа есть (или знает где достать) как узнавать и устанавливать поля????

← →
Anatoly Podgoretsky © (2003-06-27 17:03) [4]

Перевод из одной единицы в другую, зная характеристики единиц, это математика в начальныых классах.

Не уже ли ты не можешь дюймы в сантиметры перевести, давай проверим - сколько дюймов в одном сантиметре?

← →
anod © (2003-06-27 21:52) [5]

А, значит это точки на дюйм все таки...
Ладно в сантиметре, скока в пикселе????

← →
Cobalt © (2003-06-27 22:01) [6]

Блин, нарисуй линию длиной в дюйм.
Сколько это в точках?
А сколько это в миллиметрах?
Пропорция готова.

← →
anod © (2003-06-27 22:56) [7]

Я понимаю что в дюйме 25,4 мм, но абсолютно не понимаю сколько в мм или дюйме пикселей
(2Anatoly Podgoretsky В школе пикселы в начальных классах математики по-моему не проходят?)

← →
Palladin © (2003-06-27 23:25) [8]

Ну опять понеслось...
Может всетаки кто-нибудь разъеснит по теме
Как это все связывается и что во что надо переводить чтобы у меня форма была размером с лист???

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

ЗЫ: На принтере нет пикселей.

Я ещё не вычислял, пока не могу понять что к чему приводить
Тоесть мне надо дюймы перевести в мм, а потом с пикселы?
Вот, то что было в фак

PixelsX:=GetDeviceCaps(printer.Handle,LogPixelsX); Function TForm1.PrinterCoordX(x:integer):integer; { переводит координаты из мм в пиксели } begin PrinterCoordX:=round(PixelsX/25.4*x); end;

Определение отступов страницы Найти похожие ветки