In #6 wegen Umlauten Code geändert, Anhang ersetzt mit geänderter EXE und MS Linedraw-Font hinzugefügt.
Ich suche derzeit zufällig nach einer solchen Lösung - einfach perfekt! Vielen Dank für deine Lösung! Kleine Erweiterung: Die Stringlist wandle ich gleich um, dann funktioniert es mit den Umlauten mit jedem Font:
Delphi-Quellcode:
var
...
SAnsi: AnsiString;
...
SAnsi := AnsiString(Output.Text);
OemToCharBuffA(PAnsiChar(SAnsi), PAnsiChar(SAnsi), Length(SAnsi));
Output.Text := String(SAnsi);