引用 | 編輯
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
|