SetFormFieldCheckStyle bug

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

   Another strange different behavior (imho another bug) from version 12 to 15: if you put the SetFormFieldCheckStyle instruction before SetFormFieldBound check fields will not be printed (see 1.jpeg). If you invert the instructions you will have the correct print (2.jpeg)
var
  QP: TDebenuPDFLibrary;
  nFieldIndex: integer;
  i,n: integer;
begin
  QP:=TDebenuPDFLibrary.Create;
  try
    QP.UnlockKey('xxx');
    QP.SetOrigin(1);
    QP.SetMeasurementUnits(1); // mm.
    QP.SetPageDimensions(210, 297); // A4
    QP.SelectPage(n);
    QP.AddFormFont(QP.GetFontID(4));
    QP.SetTextSize(10);
    for i:=1 to 3 do begin
      nFieldIndex:=QP.NewFormField('FIELD'+IntToStr(i),3);
      QP.SetFormFieldCheckStyle(nFieldIndex,0,1); // <- if you put this instruction here pdf printed haven't the cross (1.JPEG)
      QP.SetFormFieldBounds(nFieldIndex,40,46+(i-1)*15,5,5);
      // QP.SetFormFieldCheckStyle(nFieldIndex,0,1); // <- if you put this instruction here pdf printed have the cross (2.JPEG)
    end;
    QP.SaveToFile('c:\temp\output.PDF');
    ShellExecute(self.Handle,'open','c:\temp\output.PDF','','',SW_SHOWMAXIMIZED);
  finally
    QP.Free;
  end;
end;

1.JPEG

2.JPEG

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
geonetwork Members Profile Find Members Posts Team Player Joined: 12 Mar 07 Status: Offline Points: 27	Post Options Post Reply Quote geonetwork Report Post Thanks(0) Quote Reply Topic: SetFormFieldCheckStyle bug Posted: 08 Jun 18 at 11:06AM
	Another strange different behavior (imho another bug) from version 12 to 15: if you put the SetFormFieldCheckStyle instruction before SetFormFieldBound check fields will not be printed (see 1.jpeg). If you invert the instructions you will have the correct print (2.jpeg) var QP: TDebenuPDFLibrary; nFieldIndex: integer; i,n: integer; begin QP:=TDebenuPDFLibrary.Create; try QP.UnlockKey('xxx'); QP.SetOrigin(1); QP.SetMeasurementUnits(1); // mm. QP.SetPageDimensions(210, 297); // A4 QP.SelectPage(n); QP.AddFormFont(QP.GetFontID(4)); QP.SetTextSize(10); for i:=1 to 3 do begin nFieldIndex:=QP.NewFormField('FIELD'+IntToStr(i),3); QP.SetFormFieldCheckStyle(nFieldIndex,0,1); // <- if you put this instruction here pdf printed haven't the cross (1.JPEG) QP.SetFormFieldBounds(nFieldIndex,40,46+(i-1)15,5,5); // QP.SetFormFieldCheckStyle(nFieldIndex,0,1); // <- if you put this instruction here pdf printed have the cross (2.JPEG)* end; QP.SaveToFile('c:\temp\output.PDF'); ShellExecute(self.Handle,'open','c:\temp\output.PDF','','',SW_SHOWMAXIMIZED); finally QP.Free; end; end; 1.JPEG 2.JPEG

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3530	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 08 Jun 18 at 8:01PM
	Why you're posting errors here? Here's nobody to change them ;-) BTW: Good for the users here getting you're work around. Thanks for it.
	Cheers, Ingo

geonetwork Members Profile Find Members Posts Team Player Joined: 12 Mar 07 Status: Offline Points: 27	Post Options Post Reply Quote geonetwork Report Post Thanks(0) Quote Reply Posted: 13 Jun 18 at 3:27PM
	WorkAround in version 13 or above: QP.SetNeedAppearances(1)