关于图象打印的问题？(50分)

R

Robot5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #1

请问如何在图像上叠加文字（文字背景为透明）并打印输入出！
我用image1.Canvas.TextOut(10,10,'文字');不知道为什么文字背景是白色的，不知道在哪里设？
别外怎样调整图片输出大小为照片大小的1寸、2寸、3寸、4寸、5寸呢？
还有怎么打印输入出呀？我是新手，帮帮我急呀！

 

R

Robot5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #2

我这里不知道为什么不能搜索贴子，一搜索就出错。

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #3

image1.canvas.brush.style=bsclear;//加这句就可以了
image1.canvas.textout(10,10,'文字');
图片缩放:
1、image的stretch设置为true然后将image控件缩到1寸/两寸就行了
2、image1.Canvas.StretchDraw()也可以的
打印：
printer.Canvas.Draw()或者printer.Canvas.StretchDraw()

 

A

amli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #4

image1.Canvas.Brush.Style := bsClear;
image1.Canvas.TextOut(10,10,'文字');

 

R

Robot5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #5

文字和大小的问题明白了。
但打印的要怎么做呀？
能给个写好的代码吗？
Printer对象要如何使用？是不是要在uses中加什么？

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #6

uses Printer;

Printer.BeginDoc;
Printer.Canvas.Draw(0, 0, image1.Picture.Graphic);//0, 0是起始的位置
Printer.EndDoc;

 

R

Robot5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #7

To yostgxf
我用的是Delphi7不知道为什么不能在uses中加Printer???
老是说找不到Printer.dcu文件。

找到问题了只是在Printer后面少了个s呵呵。

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #8

哈哈，对不起

 

R

Robot5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #9

OK！打印自己搞定了。谢谢各位了。