Exporting FormField Fonts

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi, i am using Debenu QuickPDF Library v9.16, but have testet this with v11.12 and i still have same issue.
I have a PDF with text form fields and needs to fill text with string for a certain codepage e.g. codepage 1250 and insert letter Ł. I finally got it to render correct, but when saving it to a file all standard ascii letters are shown as dots when opened in adobe reader and only the speciel letters like Ł can be read.

If i use GetInstalledFontsByCodePage function and just render with the first suggested font it actually works, but it is "arabic typesettings" font which is not very readable, when trying to use another more common font like "Helvetica" or "Arial" it does not work.

Also if i omit SetFormFieldFont and only use SetFormFieldStandardFont(4) // Helvetica on the form field, then it seems to write the file correct but then i can not display the speciel letters when rendering in QuickPDF.

      FQPDF.FindFonts; // Neccessary?

      slFontNames := TStringList.Create;
      slFontNames.CommaText := FQPDF.GetInstalledFontsByCodePage(FCodePage, 0);
      if slFontNames.Count > 0 then
      begin
        iPreferredFontIndex := -1;
        for i := 0 to slFontNames.Count - 1 do
        begin
          if (slFontNames = 'Helvetica') or
             (slFontNames = 'MS Sans Serif') or
             (slFontNames = 'Arial')
          then
          begin
            iPreferredFontIndex := i;
            break;
          end;
        end;

        if iPreferredFontIndex > -1 then
          sFontName := slFontNames[iPreferredFontIndex] + ' {' + IntToStr(FCodePage) + '}'
        else
          sFontName := slFontNames[0] + ' {' + IntToStr(FCodePage) + '}';
        iFontID := FQPDF.AddTrueTypeFont(sFontName ,1);
        FQPDF.SelectFont(iFontId);
      end
      else
      begin
        iFontID := FQPDF.AddStandardFont(integer(SF_Helvetica));
        FQPDF.SelectFont(iFontID);
        sFontName := FQPDF.FontName;
      end;
      slFontNames.Free;

      bFound := false;
      for i := 1 to FQPDF.GetFormFontCount do
      begin
        if sFontName = FQPDF.GetFormFontName(i) then
        begin
          FFormFieldFontID := i;
          bFound := true;
          break;
        end;
      end;

      if not bFound then
        FFormFieldFontID := FQPDF.AddFormFont(iFontID);

  // Following is done for every field
     FQPDF.SetFormFieldStandardFont(oFormField.Fields.Id, integer(SF_Helvetica)); 
     FQPDF.SetFormFieldFont(oFormField.Fields.Id, FFormFieldFontID);

Best regards
Rune