Hallo!
warum lässt sich Label nicht mit einem (Image-jpg)bild drucken,
wenn ich auf bild mit hilfe edit auf Label was rein schreibe?
Wo Label fest aufs Bild angebracht ist !
also nicht mit zb.( Printer.Canvas.TextOut(20,50,Form1.label1.Caption); )
Danke!
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
| procedure Grafik_mm_Druck(Grafik:TGraphic;Mass:double;MassIstErwarteteBreite:boolean;
links,oben:integer);
var
h:THandle;
waagerechtePixel,senkrechtePixel:integer;
BildHoehe,BildBreite:double;
r:TRect;
function rechnen(a:integer;w:double):integer;
begin
result:=round((a * w) / 25.4);
end;
begin
h:=printer.handle;
if MassIstErwarteteBreite then begin
BildHoehe:=Mass * (grafik.height / grafik.width);
BildBreite:=Mass;
end else begin
BildBreite:=Mass * (grafik.width / grafik.height);
BildHoehe:=Mass;
end;
waagerechtePixel:=getdevicecaps(h,logpixelsx);
senkrechtePixel:=getdevicecaps(h,logpixelsy);
links:=rechnen(waagerechtePixel,links)-getdevicecaps(h,physicaloffsetx);
oben:=rechnen(senkrechtePixel,oben)-getdevicecaps(h,physicaloffsety);
r:=rect(links,oben,links+rechnen(waagerechtePixel,BildBreite),
oben+rechnen(senkrechtePixel,BildHoehe));
with printer do begin
begindoc;
canvas.stretchdraw(r,Grafik);
enddoc;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Grafik_mm_Druck(Image1.picture.graphic,143,True,3,15);
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
label1.caption:=(form1.Edit1.Text);
end; |
Moderiert von 
Christian S.: Code- durch Delphi-Tags ersetzt
