Ergebnis der Suchanfrage

• Forum: Multimedia

  Richtiger Weg Text von einem Ausdruck zu vergrößern

    Delphi
    by florpp, 26. Okt 2007
  with Printer do
  begin
  r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
  BeginDoc;
  Canvas.Brush.Style := bsClear;
  Canvas.Font.Height := 200; //<-
  for i := 0 to Form4.Memo1.Lines.Count do
  Canvas.TextOut(200,200 + (i *
  Canvas.TextHeight(Form4.Memo1.Lines.Strings)),
  Form4.Memo1.Lines.Strings);