1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

begin
  if printdialogQC.Execute then
    Begin
    Datei:=workdir+'Print.prt';
    temp:=TStringlist.Create;
    temp.LoadFromFile(Datei);
    for i:=0 to temp.Count-1 do temp[i]:=XORString(temp[i],'abc123');
    temp.SaveToFile(Datei);
    temp.Free;
    with Printer do
    begin
      BeginDoc;
      Struktogramm1P.PaintTo(Handle,610,10);
      EndDoc;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

begin
    Datei:=workdir+'test4.stg';
    temp:=TStringlist.Create;
    temp.LoadFromFile(Datei);
    for i:=0 to temp.Count-1 do temp[i]:=XORString(temp[i],'abc123');
    temp.SaveToFile(Datei);
    temp.Free;

    with Printer do
    begin
      BeginDoc;
      Struktogramm1P.PaintTo(Handle, 10, 10);
      EndDoc;
    end;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  DestRec: TRect;
begin
  DestRec := Panel123.Canvas.ClipRect;
  DestRec.Top := - DestRec.Top;
  destRec.Bottom := - DestRec.Bottom;
  Printer.BeginDoc;
  SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC);
  Printer.Canvas.CopyRect(DestRec,Panel123.Canvas,Panel123.Canvas.ClipRect);
  Printer.EndDoc;
end;