Text genau in der mitte vom Bild ausgeben.

[turboPASCAL]

Delphi-Quellcode:

procedure DrawCenterText(anyCanvas: TCanvas; sText: string);
var
  r: TRect;
  tx, ty: Integer;
begin
  r := anyCanvas.ClipRect;
  tx := ((r.Right - r.Left) div 2) - (anyCanvas.TextWidth(sText) div 2);
  ty := ((r.Bottom - r.Top) div 2) - (anyCanvas.TextHeight(sText) div 2);
  anyCanvas.TextOut(tx, ty, sText);
end;

// Beispielaufruf:
procedure TForm1.FormPaint(Sender: TObject);
begin
  DrawCenterText(Canvas, 'Hello from www.delphipraxis.net');
end;

// oder:
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  DrwaCenterText(PaintBox1.Canvas, 'Hello from www.delphipraxis.net');
end;