Entwickler-Ecke
Multimedia / Grafik - Bild von TImage drucken
PhilGo - Mo 08.03.04 15:40
Titel: Bild von TImage drucken
Hi, kann mir mal jemand sagen, wie man ein erstelltes Bild(in TImage) ausdruckt(Einstellung im Drucker-Eigenschaften)?
Hab mich damit noch nicht auseinandergesetzt, brauche deshalb ein bisschen Hilfe.
Mfg PhilGo
tmc2004 - Di 09.03.04 01:20
probiere es mal mit rave oder besser rave codebasierend rvsystem unter punkt rave hier ein kleiner Ansatz.
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm15.BitBtn5Click(Sender: TObject);
begin
RvSystem1.Execute;
end; |
ist unter ereigisse von rvsystem unter punkt rave
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm15.RvSystem1Print(Sender: TObject);
begin
with Sender as TBaseReport do
begin
PrintBitmaprect(5,0,7.8,1.7,Image1.Picture.Bitmap);
end;
end; |
gruß
tmc :dance: :dance2: :dance: :dance2: :dance: :dance2: :dance: :dance2: :dance2: :autsch: :rofl:
tmc2004 - Di 09.03.04 01:24
probiere es mal mit rave oder besser rave codebasierend rvsystem unter punkt rave hier ein kleiner Ansatz.
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm15.BitBtn5Click(Sender: TObject);
begin
RvSystem1.Execute;
end; |
ist unter ereigisse von rvsystem unter punkt rave
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm15.RvSystem1Print(Sender: TObject);
begin
with Sender as TBaseReport do
begin
PrintBitmaprect(5,0,7.8,1.7,Image1.Picture.Bitmap);
end;
end; |
gruß
tmc :dance: :dance2: :dance: :dance2: :dance: :dance2: :dance: :dance2: :dance2: :autsch: :rofl:
tmc2004 - Di 09.03.04 01:26
probiere es mal mit rave oder besser rave codebasierend rvsystem unter punkt rave hier ein kleiner Ansatz.
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm15.BitBtn5Click(Sender: TObject);
begin
RvSystem1.Execute;
end; |
ist unter ereigisse von rvsystem unter punkt rave
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm15.RvSystem1Print(Sender: TObject);
begin
with Sender as TBaseReport do
begin
PrintBitmaprect(5,0,7.8,1.7,Image1.Picture.Bitmap);
end;
end; |
gruß
tmc :dance: :dance2: :dance: :dance2: :dance: :dance2: :dance: :dance2: :dance2: :autsch: :rofl:
tmc2004 - Di 09.03.04 01:28
Sorry das das 3 mal drin ist liegt daran das anscheinend das Forum immer um 0:20 Uhr down ist hab ein paar mal zu oft geklickt.
gruß
tmc
PhilGo - Di 09.03.04 18:53
Kein Problem! :wink:
Ich will aber ein Jpeg-Bild von TImage drucken. (Weil du
| Zitat: |
| // Bitmap ausgeben ... |
geschrieben hast.)
8)
Mfg PhilGo
PhilGo - Di 16.03.04 11:13
Hi,
da bin ich nochmal.
Das in Rave, hab ich noch net probiert, aber müsste die Aufgabe nicht mit TPrinter zu lösen sein? Wenn ja kannst du mir mal das geben? :roll:
Danke PhilGo
derDoc - Mi 17.03.04 17:01
Du kannst ganz einfach folgendes machen:
Delphi-Quelltext
1:
2:
3:
| Printer.BeginDoc;
Printer.Canvas.CopyRect(Rect(0, 0, Img_Wurf.Width, Img_Wurf.Height), Img_Wurf.Canvas, Rect(0, 0, Img_Wurf.Width, Img_Wurf.Height));
Printer.EndDoc; |
und noch
Printers der uses-Klausel anfügen.
PhilGo - Mo 22.03.04 16:54
@derDoc: Ich hab das probiert, aber das klappt net. Er erstellt zwar ein Druckerauftrag, aber der druckt überhaupt nichts. :roll: Hast du eine Ahnung warum das so ist?
Mfg PhilGo
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!