引用 | 编辑
mainchen
2002-10-22 09:38 |
楼主
|
||
x0
The following is a slightly modified version of aJan. 7, 99 post by Joe Hecht: procedure TForm1.Button2Click(Sender: TObject); var lf : TLogFont; OldFont : hFont; NewFont : hFont; begin Printer.BeginDoc; Printer.Canvas.Font.Name := 'Arial' Printer.Canvas.Font.Size := 24; Printer.Canvas.Font.PixelsPerI .. 访客只能看到部份内容,免费 加入会员 x0
|