Image.Canvas wird invers gedruckt...

[andydp]

Hallo Leute
Hab das Problem, dass auf einem Recher (Windows 7) der Ausdruck meiner Grafik invers dargestellt wird. D.h. der Hintergrund ist schwarz anstelle weiss.

Hier mein Code zum Ausdrucken der Grafik:

Code:

procedure TTemperaturdaten.SpeedButton10Click(Sender: TObject);
Var rect:TRect;
    Tmp_String:String;
Begin
if ((Daten_ok) AND (Abbruch=False)) then
 begin
  if(Mode=MD_TEMP_DATEN) then
   begin
    Tmp_String:=Edit3.Text;
    Image1.Canvas.TextOut(50,330,Tmp_String);
    try
      screen.cursor:=crHourglass;
      Printer.Orientation := poLandscape;
      printer.BeginDoc;
      with printer.canvas do
      begin
       Temperaturdaten.Image1.Visible:=False;
       //Temperaturdaten.Image1.Transparent:=True;
       rect:=Bounds(10,10,printer.pagewidth,printer.pageheight);
       StretchDraw(Rect,Temperaturdaten.Image1.picture.bitmap);
       //Temperaturdaten.Image1.Transparent:=False;
       Temperaturdaten.Image1.Visible:=True;
      end
    finally
     printer.enddoc;
     screen.cursor:=crDefault;
     Temperaturdaten.Show;
    end;
   end;
  end;
end;

Wenn ich "Temperaturdaten.Image1.Transparent" weg lasse,
funktioniert alles bestens, aber auf den anderen Rechnern wird
jetzt nur noch ein weisses Blatt ausgegeben.

Kennt jemand das Problem? Bin für Eure Hilfe sehr dankbar!