怎么在报表中画线！！！(10分)

B

bluebob

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-01

• #1

怎么在报表中画线！！！
10分！！见谅！！
分太少105分！！！！
问题太多！！！！

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-01

• #2

qr?
最简单的办法是重载TQRShape做个控件, 只要override print方法即可.
type
TMyQrShape = class(TQrShape)
protected
print(ofsx, ofsy: Integer);
override;
end;

procedure TMyQrShape.Print(OfsX, OfsY: Integer);
begin
with QRPrinterdo
begin
canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top))
canvas.LineTo(XPos(OfsX + Size.Left+Size.Width), YPos(OfsY + Size.Top+Size.Height))
end;
end;

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-01

• #3

>>

 

A

amo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-01

• #4

如果是QR
可以这样：
对TQRDBText及TQRLabel等, 有个Frame，其中
DrawBottom,Drawleft,DrawRight,DrawTop
就是绘底线，左边线，右边线和顶线.
自己配就是了。

 

M

MicroZeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-02

• #5

对于一些横平竖直的线可以用TQRShape，但是斜线怎么办？
Another_eyes的Draw的方法会不会随不同的打印机改变，比如激光打印机和
普通打印机的分辨率好象不一样。

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-02

• #6

会自动适应, 除非qr本来就不能正确显示. 我调的本来就是qr计算坐标的方法( XPos(x), YPos )

 

B

bluebob

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-06

• #7

thanks a lot!

 

B

bluebob

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-06

• #8

多人接受答案了。