QRLabelで上付文字を表示するには？ (ID:29445)

名前

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

本文

上付き、下付き、中央小文字等のできるTQRLabelを継承したコンポ作ったけど、
Canvasに直書きしないと、実現できませんでした。
このこんぽは、ちょっと出しにくいので、グラフとか印刷したいときに
つくった、Metafileを印刷できるQRコンポーネントを暴露します。

QR2で使っているので、QR3以降で使えるか不明。

Scaleは、縮尺(%)で、縦横 50×100のコントロールのとき、
100×200のサイズのCanvasを使うことができる。
大きく書いて、小さく印刷させるためのもの。
細かい図を書くときに使えると思う。
文字は、縮尺を考えて書かないといけないけど、放物線とかが滑らかに描ける。

type
  TQRMetafileImage = class(TQRPrintable)
  private
    FMetaFile: TMetaFile;
    FMetaCanvas: TMetafileCanvas;
    FScale: Word;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  protected
    function GetCanvas: TCanvas;
    procedure SetMetaFile(aMetaFile: TMetaFile);
    procedure SetScale(aScale: Word);
    procedure Paint; override;
    procedure Print(OfsX, OfsY : Integer); override;
    function GetCanvasSize(aIndex: Integer): Integer;
  public
    property Canvas: TCanvas read GetCanvas;
  published
    property Metafile: TMetaFile read FMetaFile write SetMetaFile;
    property Scale: Word read FScale write SetScale default 100;
    property CanvasHeight: Integer index 1 read GetCanvasSize;
    property CanvasWidth : Integer index 2 read GetCanvasSize;
  end;

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

戻る