Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Text genau in der mitte vom Bild ausgeben.

    Delphi
    by turboPASCAL, 27. Okt 2009
  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;