印刷位置を指定するには

解決

senzin 2005-03-26 23:21:34 No: 13971

グローバル変数PrinterのCanvasを使い、文字列とBitmapの印刷を試みていますが、上手くいかず困っています。
BeginDoc;
TextOut();
StrectchDraw();
EndDoc;
のようにしているのですがFontを大きくしたり、TextOutで描画位置を指定すると文字列がBitmapで隠れてしまいます。
Bitmapを描画する位置を指定できないものでしょうか？

HOta 2005-03-27 02:24:06 No: 13972

こんな感じ

var
  ARect:TRect;
begin
  Printer.BeginDoc;
  Printer.Canvas.TextOut(0,0,'ほげほげ');
  ARect.Left   := 0;
  ARect.Top    := Printer.Canvas.TextHeight('ほげほげ');
  ARect.Right  := BitMap1.Width;
  ARect.Bottom := ARect.Top  + BitMap1.Height;
  Printer.Canvas.StrectchDraw(ARect,BitMap1);
  Printer.EndDoc;
end;

senzin 2005-03-27 06:00:11 No: 13973

HOtaさん、レスありがとうございます。
(データベースでもお世話になりました。)
教えて頂いた方法で望み通りになりました。
Rectの指定の仕方がポイントだったんですね。
どうもありがとうございました。