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

unit MyQRShape;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs,

QuickRpt, Qrctrls;

type

TLines = ( None,TopBottom,BottomTop )

TMyQRShape = class(TQRShape)

private

FLineType:TLines

procedure SetFLineType(value:TLines)

protected

procedure Print(OfsX, OfsY : integer); override;

procedure Paint Override

public

published

property LineType:TLines Read FLineType Write SetFLineType

end;