Drucken, einzelne Texte 90° gedreht

[dummzeuch]

Zitat von schand99:

Delphi-Quellcode:

   with Printer.Canvas do
      begin
        try
           AcFont := Font;
           Recall := TFontRecall(Font);
//...
           Recall.Free;
           Font := AcFont;
        end;
      end;
   end;

Irgendwie sind mir auf den ersten Blick da zuviele Fonts im Spiel. Und vermutlich wird der falsche davon freigegeben. Ausserdem benutzt Du TFontRecall falsch.

Ohne es getestet zu haben, wuerde ich es wie folgt programmieren:

Delphi-Quellcode:

   with Printer.Canvas do
      begin
        try
           Recall := TFontRecall.Create(Font);
//...
           Recall.Free;
        end;
      end;
   end;