DrawText mit 2 Schriftgrößen?

[himitsu]

Du kannst auch vieles mit Unicode machen.
Du wirst es nicht glauben, aber jemand kam auf die komische Idee und hat z.B. Kurziv, Fett, Hochgestellt und Tiefgestellt dort versteckt.
Oder Genderzeugs für Smilies ... Hautfarbe, Haarfarbe und Geschlecht.

https://de.wikipedia.org/wiki/Unicod...tellte_Zeichen
Nicht wundern, dass dort Einiges fehlt, aber z.B. ² und ³ gibt es schon sehr lange wo anders, siehe deine Tastatur.

Und das TM, das gibt es schon seit Ewigkeiten als eigenes Zeichen.
https://en.wikipedia.org/wiki/Trademark_symbol
Frühlingsrolle™

[MicMic]

Zitat von Frühlingsrolle:

himitsu !
Ich habe mich auch mal dran versucht, und siehe da:

Delphi-Quellcode:

procedure DrawExpText(ACanvas: TCanvas; ARect: TRect; BaseText,ExpText: string;
  BaseTextSize, ExpTextSize: Integer);
var
  rBase, rExp: TRect;
  deltaX, deltaY: Integer;
begin

...(abgekürzt; Code selbst weiter oben im Beitrag vorhanden)

Bin noch nicht dazu gekommen, werde es aber noch ausprobieren. Danke für den Beitrag/Source
Mike