LONG AddBuiltInFont ( BuiltInFont font, VARIANT_BOOL underline, VARIANT_BOOL strikeout ) |
{ PDF object is supposed to be created } fnt1 := PDF.AddBuiltInFont(bfHelveticaOblique, false, false); fnt2 := PDF.AddBuiltInFont(bfCourierBold, false, false); PDF.UseFont(fnt1, 14); PDF.ShowTextAt(20, 20, 'Helvetica oblique.'); PDF.UseFont(fnt2, 14); PDF.ShowTextAt(20, 40, 'Courier bold.'); PDF.SaveToFile('test.pdf', true);
// PDF object is supposed to be created long fnt1 = PDF->AddBuiltInFont(BuiltInFont.bfHelveticaOblique, false, false); long fnt2 = PDF->AddBuiltInFont(BuiltInFont.bfCourierBold, false, false); PDF->UseFont(fnt1, 14); PDF->ShowTextAt(20, 20, "Helvetica oblique."); PDF->UseFont(fnt2, 14); PDF->ShowTextAt(20, 40, "Courier bold."); PDF->SaveToFile("test.pdf", true);
// PDF object is supposed to be created long fnt1 = PDF.AddBuiltInFont(BuiltInFont.bfHelveticaOblique, false, false); long fnt2 = PDF.AddBuiltInFont(BuiltInFont.bfCourierBold, false, false); PDF.UseFont(fnt1, 14); PDF.ShowTextAt(20, 20, "Helvetica oblique."); PDF.UseFont(fnt2, 14); PDF.ShowTextAt(20, 40, "Courier bold."); PDF.SaveToFile("test.pdf", true);
' PDF object is supposed to be created fnt1 = PDF.AddBuiltInFont(9, false, false) 'BuiltInFont.bfHelveticaOblique fnt2 = PDF.AddBuiltInFont(6, false, false) 'BuiltInFont.bfCourierBold PDF.UseFont fnt1, 14 PDF.ShowTextAt 20, 20, "Helvetica oblique." PDF.UseFont fnt2, 14 PDF.ShowTextAt 20, 40, "Courier bold." PDF.SaveToFile "test.pdf", true