// Output all field values to a memo
Memo1.Clear();
Memo1.Lines.Add( Format( 'Form Fields: %d', [ ImageEnView1.PdfViewer.FormFields.Count ]));
for i := 0 to ImageEnView1.PdfViewer.FormFields.Count -1 do
Memo1.Lines.Add( Format( '%s (%s): %s', [ ImageEnView1.PdfViewer.FormFields[i].Name, PdfFormFieldTypeToStr( ImageEnView1.PdfViewer.FormFields[i].FieldType ), ImageEnView1.PdfViewer.FormFields[i].Value ]));
// Clear all form field values
for i := 0 to ImageEnView1.PdfViewer.FormFields.Count -1 do
case ImageEnView1.PdfViewer.FormFields[i].FieldType of
fftCheckBox : ImageEnView1.PdfViewer.FormFields[i].Checked := False;
fftTextField : ImageEnView1.PdfViewer.FormFields[i].Value := '';
else
// Default handling
ImageEnView1.PdfViewer.FormFields[i].Value := '';
end;
ImageEnView1.Update();
// Set all text and checkbox values
for i := 0 to ImageEnView1.PdfViewer.FormFields.Count -1 do
case ImageEnView1.PdfViewer.FormFields[i].FieldType of
fftTextField : ImageEnView1.PdfViewer.FormFields[i].Value := 'ImageEn';
fftCheckBox : ImageEnView1.PdfViewer.FormFields[i].Checked := TRUE;
end;
ImageEnView1.Update();
// Toggle all checkboxes in the current page
for i := 0 to ImageEnView1.PdfViewer.FormFields.Count -1 do
if ImageEnView1.PdfViewer.FormFields[i].FieldType = fftCheckBox then
ImageEnView1.PdfViewer.FormFields[i].Checked := NOT ImageEnView1.PdfViewer.FormFields[i].Checked;
ImageEnView1.Update();
// Delete the first form field from the page
ImageEnView1.PdfViewer.FormFields.Remove( 0 );
ImageEnView1.PdfViewer.ReloadPage();
// Remove the highlighted form field from the PDF page
ImageEnView1.PdfViewer.FormFields.Remove( ImageEnView1.PdfViewer.FormFields.HighlightedIndex );
ImageEnView1.PdfViewer.ReloadPage();