DrawText mit 2 Schriftgrößen?

[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