text + bmp drucken

[ferby]

Hallo,

cih weiß wie man einen Text druckt, aber nicht wie man grafik und text druckt, also habe ich im Forum gesucht und habe mir das zusammengeschrieben:

Delphi-Quellcode:

          with Printer do
            begin
              BeginDoc;
              Canvas.Font.name := 'Arial';
              Canvas.Font.Size:= 10;

              i2 := Canvas.TextHeight('A');
              for i:=0 to druckertext.Count -1 do
              Canvas.TextOut (100, i2*i + 100, druckertext[i]);
              canvas.StretchDraw(rect(10,10,10,10), Image_email.Picture.Graphic);
              Canvas.Brush.Color := clBlack;
              EndDoc;
            end;

der text wird gedruckt aber nicht die grafik, was mach ich falsch?

[Treffnix]

Zitat:

Code:

canvas.StretchDraw(rect(10,10,10,10), Image_email.Picture.Graphic);

So wie ich das sehe, ist bei deinem rect is der linke Punkt identisch mit dem rechten und der obere mit dem unteren. ( Um nicht zu sagen alle ). Dein Rechteck hat also keine Größe. Machs mal breiter.

*edit* Und natürlich auch höher

[TypusMensch]

Warum nicht QuickReport oder Rave?

[ferby]

Hi,


ooooppppsssss....... kleiner schönheitsfehler!

danke!