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:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
| procedure TForm2.DruckeCanvasNeu();
var
outdc : HDC; { PrinterCanvasHandle }
bx,by,ex,ey : integer; { Eckkoordinaten }
ibx,iby, iex,iey : integer; { Innereeckkoordinaten }
ycmpp, xcmpp : Real; { Pixel to cm }
hres,vres,hsiz,vsiz : integer; { Canvasdimensionen }
faktor : integer; { Verkleinerungsfaktor }
gesamtbreite : integer; { alles im mm }
gesamthoehe : integer;
innenbreite : integer;
innenhoehe : integer;
textbreite : integer;
textbeginx : integer;
zeile1,zeile2 : integer;
begin
Printer.BeginDoc;
//SpinEdit1.Value := Main.aktuelleschriftgroesse;
faktor := 1;
gesamtbreite := Main.aktuell.t_o_r+Main.aktuell.t_o_l;
gesamthoehe := Main.aktuell.t_o_o+Main.aktuell.t_o_u;
innenbreite := Main.aktuell.t_o_r-Main.aktuell.t_o_l;
innenhoehe := Main.aktuell.t_o_u-Main.aktuell.t_o_o;
outdc := Printer.Canvas.handle;
hres := GetDeviceCaps(outdc,HORZRES); {display width in pixels}
vres := GetDeviceCaps(outdc,VERTRES); {display height in pixels}
hsiz := GetDeviceCaps(outdc,HORZSIZE); {display width in mm}
vsiz := GetDeviceCaps(outdc,VERTSIZE); {display height in mm}
xcmpp := hsiz/hres*0.1;
ycmpp := vsiz/vres*0.1;
// Caption:='100 pixels are '+FloatToStr(xcmpp*100)+' cm wide and '+FloatToStr(ycmpp*100)+' cm high';
Printer.canvas.font.size := round(Main.aktuelleschriftgroesse/faktor);
Printer.canvas.font.name := 'Arial';
bx := round((Width -((((gesamtbreite/10)/(xcmpp*100))*100)/faktor))/2);
by := 0;
ex := bx + round(((((gesamtbreite/10)/(xcmpp*100))*100)/faktor));
ey := by + round(((((gesamthoehe/10)/(ycmpp*100))*100)/faktor));
ibx := bx + round(((((Main.aktuell.t_o_l/10)/(xcmpp*100))*100)/faktor));
iex := ibx + round(((((innenbreite/10)/(xcmpp*100))*100)/faktor));
iby := by + round(((((Main.aktuell.t_o_o/10)/(ycmpp*100))*100)/faktor));
iey := iby + round(((((innenhoehe/10)/(ycmpp*100))*100)/faktor));
Rectangle(outdc,bx,by,ex,ey);
Rectangle(outdc,ibx,iby,iex,iey);
textbreite := Printer.canvas.TextWidth(Main.Form1.Edit1.Text);
textbeginx := round((Printer.PageWidth-textbreite)/2);
if (Main.Form1.RadioButton1.Checked) then begin
zeile1 := (iby-by)+ round(((iey-iby)-Printer.canvas.font.size)/2);
Caption := IntToStr(zeile1); Printer.canvas.TextOut(textbeginx,zeile1,Main.Form1.Edit1.Text);
end else begin
zeile1 := round((iby-by)+(((iey-iby)-((2*Printer.canvas.font.size)+(10/faktor)))/2));
Printer.canvas.TextOut(textbeginx,zeile1,Main.Form1.Edit1.Text);
textbreite := Printer.canvas.TextWidth(Main.Form1.Edit2.Text);
textbeginx := round((Printer.PageWidth-textbreite)/2);
zeile2 := round(zeile1 + Printer.canvas.font.size + (10/faktor));
Printer.canvas.TextOut(textbeginx,zeile2,Main.Form1.Edit2.Text);
end;
{ OLD // zeile1 := round((iey-by)/2);
zeile1 := (iby-by)+ round(((iey-iby)- Printer.canvas.font.size)/2);
Printer.canvas.TextOut(textbeginx,zeile1,Main.Form1.Edit1.Text);
if (Main.Form1.RadioButton2.checked) then begin
textbreite := Printer.canvas.TextWidth(Main.Form1.Edit2.Text);
textbeginx := round((Printer.PageWidth-textbreite)/2);
zeile2 := round(zeile1 + Printer.canvas.font.Size + (10/faktor)); Printer.canvas.TextOut(textbeginx,zeile2,Main.Form1.Edit2.Text);
end; }
Printer.EndDoc;
end; |
