正在阅读：用Delphi制作中国式报表用Delphi制作中国式报表

begin

FLineType:=value

Invalidate

end

end

procedure TMyQRShape.Paint

begin

case LineType of

BottomTop:

begin

Canvas.MoveTo(0,Height)

Canvas.LineTo(width,0 )

end

TopBottom:

begin

Canvas.MoveTo(0,0)

Canvas.LineTo(width,Height )

end

None:

begin

Height := Parent.Height

Top:=0

Width:=4