在QuickReport中如何画斜线

Question

改使用printer 对象，可以画出任何报表，不过，编程比较复杂,

Answer 1

我有一个控件，声明如下，如果想要可以告诉我，Email:  TILineOption = (LTRB45, LTB225, LTR225,
    LBRT45, LBR225, LBT225,
    RBL225, RBT225,
    RTB225, RTL225,
    ILineNone);  {线的角度设置}
  TILineOptions = set of TILineOption;  //斜线
  TNoteILine = class(TNotePrintable)
  public
    FOptions: TILineOptions;
    FPen: TPen;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure SetPen(Value: TPen);
    procedure Paint; override;
    procedure Print(OfsX, OfsY: integer); override;
    procedure StyleChanged(sender: TObject);
    procedure SetOptions(Value: TILineOptions);
  published
    property Pen: TPen read FPen write Setpen;
    property Width default 65;
    property Options: TILineOptions read FOptions write SetOptions;
  end;