Vorstellung und Frage

[mm1256]

Zitat von hathor:

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);