Hi Julian,
I have to generate a PDF-Form with Input fields.
A Tried to do it like it is described in the documentation, but
i cannot see input fields (or check boxes) that can be edited.
Anything to look for or did i get the whole thing wrong?
Chuck
Hi Julian,
I have to generate a PDF-Form with Input fields.
A Tried to do it like it is described in the documentation, but
i cannot see input fields (or check boxes) that can be edited.
Anything to look for or did i get the whole thing wrong?
Chuck
Which code do you use?
with WPEdit.InputTextFieldName('FORMCHECKBOX') do
begin
Source := 'Test1';
Params := 'true'; //'false'
end;
and
with WPedit.InputTextFieldName('FORMEDITFIELD') do
begin
Source := 'XXX';
Params := 'testtext' + '@@HINT@@' + 'testhint hint hint';
end;
end;
I see the entries in PDF, but they are not editable
pdf := TWPPDFExport.Create(nil);
if EmbeddedFonts
then pdf.FontMode := wpEmbedTrueTypeFonts;
rtf := TWPRichText.CreateDynamic;
try
rtf.InsertPointAttr.Hidden := true;
rtf.AsString := ASource;
rtf.ReformatAll(true);
pdf.Source := rtf;
pdf.AutoLaunch := LaunchReader;
pdf.FileName := AFileName;
try
pdf.Print;
Result := true;
except
Result := false;
end;
......
Please first try with a visible text to check if the field is displayed by wptools.
I tested with
// uses WPObj_Controls
procedure TForm1.Button3Click(Sender: TObject);
var obj : TWPTextObj;
begin
if Multiline.Checked then
obj := WPRichText1.TextObjects.InsertClass('TWPOEditControl', 360*5, 260*5 )
else obj := WPRichText1.TextObjects.InsertClass('TWPOEditControl', 360*5, 260 );
end;
and that creates a field.
Thank you, it works….
Checkboxes i try shortly
var
obj: TWPTextObj;
multiline : boolean;
autosize : boolean;
fontindex : integer;
begin
fontindex := 0;
multiline := false;
autosize := false;
if multiline
then obj := wpedit.TextObjects.InsertClass('TWPOEditControl', 360*5, 260*5 )
else obj := wpedit.TextObjects.InsertClass('TWPOEditControl', 360*5, 260 );
if obj.IsImage then begin
obj.ObjRef.ObjName := 'AFieldName';
// (obj.ObjRef as TWPOEditControl)._AllowFrame := true;
(obj.ObjRef as TWPOEditControl).Text.Text := 'extEdit.Text';
(obj.ObjRef as TWPOEditControl).Hint := 'intEdit.Text';
(obj.ObjRef as TWPOEditControl).PDFFont := TWPOEditControlPDFFont(fontindex);
if not autosize
then (obj.ObjRef as TWPOEditControl).PDFOptions :=
(obj.ObjRef as TWPOEditControl).PDFOptions - [wpecAutosizeFont];
(obj.ObjRef as TWPOEditControl).Multiline := multiline;
if multiline
then (obj.ObjRef as TWPOEditControl).FontSize := 10;
end;
end;
Hi Julian,
i got quite far now, though i did not solve some Problems with check-boxes in supermerge (edit fields working).
But now :
Is there a product from wpcubed to read the field-contents out of filled PDF forms?
WPViewPDF PLUS can do it.
OK, i will buy it shortly..