Debenu Quick PDF Library - PDF SDK Community Forum : Formfield-Font http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 04 Apr 2026 17:39:08 +0000 Wed, 20 Apr 2016 19:41:45 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=3312 <![CDATA[Debenu Quick PDF Library - PDF SDK Community Forum]]> http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ <![CDATA[Formfield-Font : Hi Josef,why you don&#039;t want...]]> http://www.quickpdf.org/forum/formfieldfont_topic3312_post13190.html#13190 Author: Ingo
Subject: 3312
Posted: 20 Apr 16 at 7:41PM

Hi Josef,

why you don't want to read the sample on page 32 of the developer guide?!
http://www.debenu.com/docs/pdf_library_developer_guide/debenu_quick_pdf_library_10_developer_guide.pdf

]]> Wed, 20 Apr 2016 19:41:45 +0000 http://www.quickpdf.org/forum/formfieldfont_topic3312_post13190.html#13190 <![CDATA[Formfield-Font : Hi Josef,standard are the 14 (or...]]> http://www.quickpdf.org/forum/formfieldfont_topic3312_post13189.html#13189 Author: Ingo
Subject: 3312
Posted: 20 Apr 16 at 7:23PM

Hi Josef,

standard are the 14 (or so...) fonts inside the library.

]]> Wed, 20 Apr 2016 19:23:58 +0000 http://www.quickpdf.org/forum/formfieldfont_topic3312_post13189.html#13189 <![CDATA[Formfield-Font : Hi, you write &#034;Arial&#034;...]]> http://www.quickpdf.org/forum/formfieldfont_topic3312_post13188.html#13188 Author: Josef Gschwendtner
Subject: 3312
Posted: 20 Apr 16 at 4:29PM

Hi,

you write "Arial" is not the standard.

So what would be the standard?

Thank you,
Josef
]]> Wed, 20 Apr 2016 16:29:21 +0000 http://www.quickpdf.org/forum/formfieldfont_topic3312_post13188.html#13188 <![CDATA[Formfield-Font : Hi,could anybody please write...]]> http://www.quickpdf.org/forum/formfieldfont_topic3312_post13187.html#13187 Author: Josef Gschwendtner
Subject: 3312
Posted: 20 Apr 16 at 4:21PM

Hi,

could anybody please write down 10 lines of real code how to insert two formfields:
First field with font "Arial", second field with "Arial Bold"

We are only interested on the code needed for setting the font.

Your help is very appreciated.

Josef Gschwendtner
]]> Wed, 20 Apr 2016 16:21:04 +0000 http://www.quickpdf.org/forum/formfieldfont_topic3312_post13187.html#13187 <![CDATA[Formfield-Font : Hi,&#034;... 20, 28, 50, 5.5,...]]> http://www.quickpdf.org/forum/formfieldfont_topic3312_post13183.html#13183 Author: Ingo
Subject: 3312
Posted: 19 Apr 16 at 6:56PM

Hi,

"... 20, 28, 50, 5.5, 'Arial', 10, clBlack, [fsBold]); ..."
if you write code like the line above, you're using the font "Arial" - nothing more.
Arial is not the standard - so you have to add this font.
If you need - for example - the bold Arial font you have to add the font-file "C:\Windows\Fonts\arialbd.ttf".
The real font name is "Arial Bold".
First you should try to add the font with the correct name...
then you should select it to make it active...
and then you can use it.
If you don't know the real font names you should call (in windows):
System control -> All System control elements -> Fonts
On the font file you can choose the properties and the details and there you can see the correct font name.

]]> Tue, 19 Apr 2016 18:56:15 +0000 http://www.quickpdf.org/forum/formfieldfont_topic3312_post13183.html#13183 <![CDATA[Formfield-Font : Hi,below I inserted some code,...]]> http://www.quickpdf.org/forum/formfieldfont_topic3312_post13181.html#13181 Author: Josef Gschwendtner
Subject: 3312
Posted: 19 Apr 16 at 4:01PM

Hi,
below I inserted some code, showing how we create formfields.
Everything works except the font-setting does not work correct.
Some field have the correct font, some have not.

It would be great if somebody would look over the code (the bold sections) and maybe tell us how to make it betterSmile

Thank you very much,
Josef Gschwendtner


procedure TfmMain.GeneratePDFDocument;
var
  PDF: TDebenuPDFLibrary;
begin
  PDF := TDebenuPDFLibrary.Create;
  UnlockResult := PDF.UnlockKey(cDebenuLicenseKey);
  try
    if (UnlockResult = 1) then begin

      PDF.LoadFromFile('C:\Temp\Template.pdf', '');

      // Set the paper size
      PDF.SetPageSize('A4');
      // Set the origin to the top-left corner
      PDF.SetOrigin(1);
      // Set the measurement units to millimetres
      PDF.SetMeasurementUnits(1);

      AddPDFFormField(PDF, 'Field1', 'Field 1', 1, qrffctTextbox,
        20, 28, 50, 5.5, 'Arial', 10, clBlack, [fsBold]);
      AddPDFFormField(PDF, 'Field2', 'Field 2', 1, qrffctTextbox,
        20, 48, 50, 5.5, 'Arial', 10, clBlack, [fsBold]);

      // Compress the contents of the file
      PDF.CompressContent;

      PDF.SaveToFile('C:\Temp\Test.pdf');
    end;

  finally
    PDF.Free;
  end;
end;

procedure TfmMain.AddPDFFormField(APDF: TDebenuPDFLibrary;
  AName, AValue: String; APageNumber: Integer; AControlType: TQrffControlType;
  ALeft, ATop, AWidth, AHeight: Double; AFontName: String; AFontSize: Integer;
  AFontColor: TColor; AFontStyle: TFontStyles; AAlign: TQrsAlign;
  AFlatten, AReadOnly, AMultiLine, ATransparent, AShowBorder: Boolean;
  ABackgroundColor, ABorderColor: TColor; InTestMode: Boolean);
var
  vFieldIndex, vFontID, vFormFontID, vAlign: Integer;
  vColor: TRGBTriple;
begin
  if (Trim(AFontName) = '') then
    AFontName := 'Arial';

  if (fsBold in AFontStyle) and (fsItalic in AFontStyle) then
    AFontName := AFontName + ' [BoldItalic]'
  else if (fsBold in AFontStyle) then
    AFontName := AFontName + ' [Bold]'             
  else if (fsItalic in AFontStyle) then
    AFontName := AFontName + ' [Italic]';

  vFontID := APDF.AddTrueTypeFont(AFontName, 0);
  vFormFontID := APDF.AddFormFont(vFontID);

  if (AControlType = qrffctCheckbox) then
    vFieldIndex := APDF.NewFormField(AName, 3)
  else
    vFieldIndex := APDF.NewFormField(AName, 1);

  // Position
  APDF.SetFormFieldBounds(vFieldIndex, ALeft, ATop, AWidth, AHeight);

  APDF.SetFormFieldPage(vFieldIndex, APageNumber); // Pagenumber

  APDF.SetFormFieldFont(vFieldIndex, vFormFontID); // Font

  APDF.SetFormFieldTextSize(vFieldIndex, AFontSize);  // FontSize

  vColor := RGBValue(AFontColor);
  APDF.SetFormFieldColor(vFieldIndex, (vColor.rgbtRed/255), (vColor.rgbtGreen/255), (vColor.rgbtBlue/255)); // FontColor

  // Alignment ( 0 = Left, 1 = Center, 2 = Right)
  vAlign := 0;
  case AAlign of
    qaLeftJustify  : vAlign := 0;
    qaCentered     : vAlign := 1;
    qaRightJustify : vAlign := 2;
  end;
  APDF.SetFormFieldAlignment(vFieldIndex, vAlign);


  if InTestMode then begin
    vColor := RGBValue(clSilver);
    APDF.SetFormFieldBackgroundColor(vFieldIndex, (vColor.rgbtRed/255), (vColor.rgbtGreen/255), (vColor.rgbtBlue/255));
    APDF.SetFormFieldBorderColor(vFieldIndex, (vColor.rgbtRed/255), (vColor.rgbtGreen/255), (vColor.rgbtBlue/255));
    APDF.SetFormFieldBorderStyle(vFieldIndex, 1, 0, 0, 0);
  end
  else begin
    vColor := RGBValue(ABackgroundColor);
    APDF.SetFormFieldBackgroundColor(vFieldIndex, (vColor.rgbtRed/255), (vColor.rgbtGreen/255), (vColor.rgbtBlue/255));

    if AShowBorder then begin
      vColor := RGBValue(ABorderColor);
      APDF.SetFormFieldBorderColor(vFieldIndex, (vColor.rgbtRed/255), (vColor.rgbtGreen/255), (vColor.rgbtBlue/255));
      APDF.SetFormFieldBorderStyle(vFieldIndex, 1, 0, 0, 0);
    end;
  end;

  if (AControlType = qrffctTextbox) and AMultiLine then
    APDF.SetFormFieldTextFlags(vFieldIndex, 1, 0, 0, 0, 0);

  if (AControlType = qrffctCheckbox) then begin
    APDF.SetFormFieldCheckStyle(vFieldIndex, 1, 1); // Style = Check, Centred
    if AnsiSameText(AValue, 'T') then
      APDF.SetFormFieldValue(vFieldIndex, 'Yes')
    else
      APDF.SetFormFieldValue(vFieldIndex, 'No');
  end
  else
    APDF.SetFormFieldValue(vFieldIndex, AValue);

  if AReadOnly then
    APDF.SetFormFieldReadOnly(vFieldIndex, 1);

  if AFlatten then
    APDF.UpdateAndFlattenFormField(vFieldIndex);
end;

]]> Tue, 19 Apr 2016 16:01:07 +0000 http://www.quickpdf.org/forum/formfieldfont_topic3312_post13181.html#13181