Hi,
irgendwo ist noch nen Fehler, aber irgendwie bin ich blind. Ich möchte mein SynEdit drucken mit Code-Highlighting.
Delphi-Quellcode:
// Zuweisen des SynEdits etc.
procedure Tfprintpreview.Show(aDoc: TfDoc);
begin
FDoc := aDoc;
SynPrinter.SynEdit := FDoc.Code;
SynPrinter.DocTitle := FDoc.FFilename;
SynPrinter.Highlighter := FDoc.Code.Highlighter;
Caption := SynPrinter.DocTitle;
Preview.Paint;
Preview.UpdatePreview;
cbbPrinter.Items := Printer.Printers;
cbbPrinter.ItemIndex := Printer.PrinterIndex;
end;
// Drucken
procedure Tfprintpreview.sbPrintClick(Sender: TObject);
begin
SynPrinter.Highlight := cbHighlight.Checked;
SynPrinter.LineNumbers := cbNumbering.Checked;
SynPrinter.Copies := seCopies.Value;
SynPrinter.Colors := cbHighlight.Checked;
SynPrinter.Print;
end;
Es werden zwar Textattribute (wie Fett) gedruckt, aber keine Farben (JA, es ist ein Farbdrucker mit voller Patrone). Woran könnte das mit den Farben liegen?