Форум: "Основная";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];
Вниз
Определение отступов страницы Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.015 c
