[Image] Text in der mitte eines Rechtecks

[3_of_8]

Zu 2.: Image1.Transparent:=True;

Zu 1.:

Delphi-Quellcode:

Image1.Canvas.TextOut(
    (Image1.Width-Image1.Canvas.TextWidth(Text))div 2,
    (Image1.Height-Image1.Canvas.TextHeight(Text))div 2,
    Text);