关于Printer.Canvas.TextOut( x, y, 'xxxxx')中x , y尺寸的单位

[cassie]

我想问一下 这里的x y的单位到底是什么
如何精确的定位打印位置
大家有这方面的程序吗?

[cassie]

谢谢 ^_^
后来我用SetMapMode(printer.canvas.handle, mm_Lometric); // 0.1mm
这条语句 使默认的象素单位变为 0.1mm单位
打印出来的效果还不错

[cassie]

是mm还是 0.1mm 还是其他的,这个问题真是很急,谢谢

[d983074]

pixel 像素

[cassie]

那么这个跟mm单位如何转换呢,我怎么才能确定我打印的精确位置^_^

[cassie]

我在网上找了一个例子,其中
BorderLeft := Trunc( 0.2 * 600 );
BorderRight := Trunc( 0.2 * 600 );
BorderTop := 0;
BorderBottom := 0;
HeaderFooterHeight := Trunc( 0.6 * 600 );
这里的计算是什么意思呢?大家明吗?

[d983074]

像素是指显示器2个点之间的距离，和显示器分辨率有关
打印机也有自己的分辨率
至于怎么转换，没研究过:( ，很可能是一一对应关系

[cassie]

那么x y的值我该如何填呢?郁闷ing

[cassie]

比如我想把'单位'两个子 打印在 纸上面的 距离 left 80毫米, top 20
毫米处,我该如何设置位置呢?

[我不懂电脑]

像素

[cassie]

to: songhtao(三十年孤独)
为什么你们老是要重复回答别人已经回答过的答案呢?
是 象素 刚才 d983074(d983074) 已经说过啦
偶要知道的是我如何确定这个位置,如何填写 x y的值!!
^_^

[cassie]

另外,我用printer.canvas.LineTo(10,30);
画出来的是一条往右下的斜线:(

[cassie]

或者难道是要看打印纸的具体情况吗?而不能直接在程序里的x y赋上常数的值??

[d983074]

我写的chart打印，
var
h,w,i:Integer;
begin
Screen.Cursor := crHourGlass; { <-- nice detail }
try
Printer.PrinterIndex:=PrinterCB.ItemIndex;
Printer.Orientation:=TPrinterOrientation(LandscapeRB.Checked);
Printer.BeginDoc;

Printer.Canvas.Font.Name:='Arial';
Printer.Canvas.Font.Size:=10; { <-- set the font size }
Printer.Canvas.Font.Style:=[];
Printer.Canvas.TextOut(0,0,Printname); { <-- print some text }

h:=Printer.PageHeight; { <-- get page height }
w:=Printer.PageWidth; { <-- get page width }

{ And now print the chart component... }
Chart.PrintPartial( Rect( w*strtoint(LeftEdt.Text) div 100, { <-- left margin }
h*strtoint(RightEdt.Text) div 100 , { <-- top margin }
w - (w*strtoint(TopEdt.Text) div 100), { <-- right margin }
h - (h*strtoint(BottomEdt.Text) div 100) )); { <-- bottom margin }

Printer.Canvas.Font.Name:='Arial';
Printer.Canvas.Font.Size:=12; { <-- set the font size }
Printer.Canvas.Font.Style:=[];
Printer.Canvas.TextOut(0,Printer.Canvas.TextHeight('注释：'),'注释：');
for i:=0 to Memo.Lines.Count-1 do
Printer.Canvas.TextOut(0,(i+2)*Printer.Canvas.TextHeight(Memo.Lines.Strings[i]),Memo.Lines.Strings[i]); { <-- print some text }

Printer.EndDoc;
except
on Exception do { just in case an error happens... }
begin
Printer.Abort;
Printer.EndDoc;
raise; { <-- raise up the exception !!! }
end;
end;
Screen.Cursor:=crDefault; { <-- restore cursor }