Hallo,
ich habe ein TMemo mit dem Font 'Terminal' und als Charset'OEM_CHARSET' eingestellt.
Ich möchte damit die alte MS-DOS Klötzchengrafik nachbilden, das gelingt mir auch:
http://www.a2p.at/Lager/unbenannt1.JPG
Nun möchte ich dieses Memo drucken
Delphi-Quellcode:
WITH Printer, canvas DO
BEGIN
PrinterIndex := -1;
orientation := poPortrait;
Font.Name := 'Terminal';
Font.CharSet := OEM_CHARSET;
Font.pitch := fpdefault;
Font.style := [];
Font.Size := 10;
END;
...
Printer.BeginDoc;
FOR I := 0 TO Lst.Count - 1 DO
BEGIN
Printer.Canvas.TextOut(0, Line, Lst[I]);
...
das Drucken klappt zwar, aber die Linien sind nicht mehr gleichmäßig ausgerichtet:
http://www.a2p.at/Lager/unbenannt.JPG
Ich wollte das TMemo als Bitmap speichern und drucken, leider ist das Blatt dabei leergeblieben.
(Außerdem ist das bei 500-1000 Seiten doch a bisserl heftig, alles über bmps zu machen)
Vielleicht gibt es auch noch eine andere Lösung mit Klötzchengrafik?
Wer kann mir helfen?