Ergebnis der Suchanfrage

• Forum: Neuen Beitrag zur Code-Library hinzufügen

  Text in Bogenform anzeigen lassen

    Delphi
    by toms, 9. Jun 2009
  Helmi hat hier einen Code veröffentlicht, wie man einen Text in Bogenform anzeigen lassen kann.
  
  procedure MyTextOut(Ca: TCanvas; X, Y, Angle: Integer; Text: string);
  var
  lf: TLogFont;
  begin
  with Ca do
  begin
  GetObject(Font.Handle, SizeOf(lf), @lf);
  lf.lfEscapement := Angle * 10;