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

procedure Register;

implementation

procedure

TMyQRShape.SetFLineType(value:TLines);

begin

if value<>FLineType then

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