Embedded Fonts List

So it goes:

var
  QP: TQuickPDF;
  i, n: integer;
  fid: integer;
begin
  QP := TQuickPDF.Create;
  if QP.UnlockKey('put your key here') = 1
  then begin
    QP.LoadFromFile('the file of your interest');
    n := QP.FindFonts;         // number of available fonts
    i := 1;                    // font-index starts with 1
    while (i<=n)              
    do begin
      fid := QP.GetFontID(i);  // get the Font-ID
      QP.SelectFont(fid);      // tell QP which font we want to deal with
// do what you want to do with it
      ShowMessage(QP.FontName+'('+QP.FontFamily+')');
      inc(i);                  // next font please
    end;
  end;
  QP.Free;

On many places of QuickPDF you'll find the same idea. There in first step to get special identifiers (somethig like windows-handles). After getting this identifier you may select a object and deal with it.

Werner


Edited by edvoigt - 27 Mar 11 at 1:55PM