QuickReportで斜線を引きたいのですが (ID:39639)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

解決してますが、どぞ〜。
プレビューまでしか確認していませんけど。

unit QRTest;

interface

uses
  QuickRpt;

type
  TQRRightDiagonal = class(TQRPrintable)
  protected
    procedure Paint; override;
    procedure Print(OfsX, OfsY : integer); override;
  end;

procedure Register;

implementation

uses
  Classes, Graphics,
  QRPrntr;

procedure Register;
begin
  RegisterComponents('QR Sample', [TQRRightDiagonal]);
end;

procedure TQRRightDiagonal.Paint;
begin
  inherited paint;
  Canvas.Pen.Color := clBlack;
  Canvas.Pen.Style := psSolid;
  Canvas.Pen.Width := 1;
  Canvas.MoveTo(Width,0);
  Canvas.LineTo(0,Height-1);
end;
procedure TQRRightDiagonal.Print(OfsX, OfsY : integer);
begin
  if ParentReport.FinalPass and Enabled then begin
    QRPrinter.Canvas.Pen.Color := clBlack;
    QRPrinter.Canvas.Pen.Style := psSolid;
    QRPrinter.Canvas.Pen.Width := 1;
    QRPrinter.Canvas.MoveTo(QRPrinter.XPos(OfsX + Size.Left + Size.Width),
      QRPrinter.YPos(OfsY + Size.Top));
    QRPrinter.Canvas.LineTo(QRPrinter.XPos(OfsX + Size.Left),
      QRPrinter.YPos(OfsY + Size.Top + Size.Height));
  end;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る