program NotEmbeddedFontsExample;

{$APPTYPE CONSOLE}

uses

SysUtils, Graphics, Classes, HPDFDoc;

var

  HPDF: THotPDF;

begin

HPDF:= THotPDF.Create( nil );

try

   HPDF.AutoLaunch := true; // קובץ ה-PDF יוצג באופן אוטומטי

   HPDF.FileName := 'NotEmbeddedFontsExample.pdf';           

   HPDF.FontEmbedding := true; // הטמע גופנים כברירת מחדל

HPDF.NotEmbeddedFonts.Add( 'Arial' ); // הגופן Arial לא יוטמע

   HPDF.BeginDoc; // צור קובץ PDF

   HPDF.CurrentPage.SetFont( 'Arial', [], 12 ); // גופן זה נשאר חיצוני

   HPDF.CurrentPage.TextOut(10, 10, 0, 'Arial is excluded from embedding'); // הדפס טקסט

   HPDF.EndDoc; // סגור קובץ PDF

finally

     HPDF.Free;

end;

end.