Скачать: CL | DM;

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

← →
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]

> anod © (27.06.03 22:56)

в школе проходят умножение и деление, а также учатся их применять

---

← →
anod ©   (2003-06-28 04:42) [9]

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

---

← →
Anatoly Podgoretsky ©   (2003-06-28 05:35) [10]

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

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

---

← →
anod ©   (2003-06-28 17:09) [11]

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


PixelsX:=GetDeviceCaps(printer.Handle,LogPixelsX);

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c