Formfield-Font

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 better

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;

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

Hi Josef,