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:

procedure TFTEST.BitBtn10Click(Sender: TObject);
var
  y, x,j                     : integer;
  pstr                     : string;
  ptr                      : Pointer;
  hdcDrucker               : HDC;
  df                       : TDOCINFO;
begin
  FensterErfassen;
  df.cbSize := sizeof(TDOCINFO);
  df.lpszDocName := 'Testdruck';
  df.lpszOutput := '';
  df.lpszDatatype := '';
  df.fwType := 0;
  x:= 0;
  y:= 0;
  hdcDrucker := CreateDC(NIL,PChar(Combobox4.Text), NIL, NIL);
  SelectObject(hdcDrucker,CreateFontIndirect(lf));
  StartDoc(hdcDrucker,df);
  StartPage(hdcDrucker);

  for j := 0  to EditAnzahl -1 do
  begin

       pstr := Daten[j].Text;
       ptr := @pstr[1];
       x := Daten[j].XPos;
       y := Daten[j].Ypos;
       x := x* Zoom;
       y := y* Zoom;
       lf.lfHeight := -Daten[j].SG;
       lf.lfItalic := 0;
       lf.lfUnderline := 0;
       lf.lfWeight := FW_NORMAL;
       if Daten[j].FSX = '1' then lf.lfItalic := 1 else
       if Daten[j].FSX = '2' then lf.lfWeight := FW_BOLD else

       if Daten[j].FSX = '3' then
       begin
           lf.lfWeight := FW_BOLD;
           lf.lfItalic := 1;
       end;
       if Daten[j].FSX = '4' then lf.lfUnderline := 1;


       SelectObject(hdcDrucker,CreateFontIndirect(lf));
       TextOut(hdcDrucker,x,y,ptr,length(pstr));
  end;
  EndPage(hdcDrucker);
  EndDoc(hdcDrucker);
  DeleteDC(hdcDrucker);
end;