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!