Drucken von TBitmap Objekten

[MTornau]

Moin !

Ich habe folgendes vor:

Ich möchte selbstgezeichnete TBitmap Objekte auf dem Drucker ausgeben. Allerdings stehe ich vor dem Problem, daß die Objekte mal ausgedruckt werden und mal nicht. Da ich dem Quellcode ausser neukompilieren nichts angetan habe, ist meine Verwirrung doch recht gross, da die Objekte sich nach jedem neu kompilieren anders verhalten.

Das Zeichnen der Objekte funktioniert nachweislich einwandfrei (Über ein TImage vor dem Drucken mal geprüft. Das Zeichen klappt immer). Um die Verwirrung zu steigern, füge ich mal einen AUSZUG des Quellcodes an .

Ach ja ... Das ganze geschieht unter Delphi 7 ...

Delphi-Quellcode:

procedure Protokoll_drucken ();
var   Sollwerte     : TBitmap     ;
// ... weitere Variablen
begin

   // Querformat auswählen
   Printer.Orientation := poPortrait;

   // Objekte generieren
   Sollwerte      := TBitmap.Create;

   // Maße festlegen
   Dim.X := 362;
   Dim.Y := 212;

  // Zeichnen auf dem Objekt ###############################################################
   try
   with Sollwerte do
      begin
      Width  := Dim.X;
      Height := Dim.Y;

      Canvas.Brush.Color := Farbe_Felder;
      Canvas.FloodFill(0,0,clRed, fsBorder);

      Canvas.Brush.Style := bsClear;
      Canvas.Font.Name   := 'Courier New';
      Canvas.Font.Style  := [fsBold];
      Canvas.Font.Size   := 12;
      Canvas.Font.Color  := Farbe_Ueberschrift;
      
      // ... hier wird jetzt gnadenlos darauf herumgemalt ...

      end;
   except // Except steht hier ganz bewusst, denn finally würde den Speicher ja sofort freigeben ....
   // Speicher freigeben
   Sollwerte.Free;
   myText := IntToStr(getlasterror);
   ShowMessage('Sollwerte konnten nicht generiert werden !'+#13+'Fehlercode '+myText);
   end;


  // Text drucken ##############################################################################
  with Printer do
    begin
    BeginDoc;
    // Schrifteinstellungen
    Canvas.Brush.Style := bsSolid;
    Canvas.Font.Name   := 'Courier New';
    Canvas.Font.Style  := [fsBold];
    Canvas.Font.Size   := 12;

    try
    // Messfeld 1 eintragen
    Arect.Left   := 100  ;
    Arect.Top    := 1200 ;
    Arect.Right  := 100  + Sollwerte.Width  *7;
    Arect.Bottom := 1200 + Sollwerte.Height *7;
    Canvas.StretchDraw(Arect, Sollwerte);

    // Messfeld 2 eintragen
    Arect.Left   := 100  ;
    Arect.Top    := 1500 + Sollwerte.Height *7   ;
    Arect.Right  := 100  + Sollwerte.Width  *7   ;
    Arect.Bottom := 1500 + Sollwerte.Height *7 *2;
    Canvas.StretchDraw(Arect, Sollwerte);

    // Messfeld 3 eintragen
    Arect.Left   := 100  ;
    Arect.Top    := 1800 + Sollwerte.Height *7 *2;
    Arect.Right  := 100  + Sollwerte.Width  *7   ;
    Arect.Bottom := 1800 + Sollwerte.Height *7 *3;
    Canvas.StretchDraw(Arect, Sollwerte);

    except
    MessageDlg('Daten sind korrupt - Drucken nicht zulässig',mtInformation,[mbOK],0);
    EndDoc;
    end;

    EndDoc;
    end;

    // Freigeben des verwendeten Speichers - Überprüfung auf NIL erfolgt automatisch vor dem Aufruf des Destruktors
    Sollwerte.Free     ;

end;