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