Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Text mittig drucken

    Delphi
    by DelphiKlaus, 15. Mär 2007
  Der Text müsste jetzt genau in der Mitte enden. Du berechnest erst die Mitte der Seite, PageWidth div 2, und ziehst dann die gesamte Textlänge davon ab. Du Darfst nur die halbe Textlänge abziehen.
• Forum: Object-Pascal / Delphi-Language

  Re: Text mittig drucken

    Delphi
    by DelphiKlaus, 15. Mär 2007
  Ich mach beim Drucken immer einen ganz anderen Ansatz.
  
  Printer.PageWidth liefert die Anzahl der Pixel in horizontaler Richtung und damit kann man damit linksbündig, mittig oder rechtsbündig positionieren:
  
  
  
  Printer.Canvas.TextOut (Printer.PageWidth * 5 div 100,
  YPosition,
  'Linksbündiger Text 5% vom Rand');