procedure TForm2.Button1Click(Sender: TObject);
var
r,i: integer;
debenu: TDebenuPDFLibrary1112; // uses DebenuPDFLibrary1112
begin
debenu := TDebenuPDFLibrary1112.Create();
r := debenu.UnlockKey('KoupenyKlic');
if r<>1 then raise Exception.Create('Wrong unlock DEBENU code');
debenu.LoadFromFile('OoPdfFormExample.pdf','');
memo1.Lines.add(Format('Počet:%d',[debenu.FormFieldCount]));
for i := 1 to debenu.FormFieldCount do
begin
memo1.Lines.Add(Format('#%d typ %d = %s',[
i, debenu.GetFormFieldType(i), debenu.GetFormFieldTitle(i)]));
end;
{
#1 typ 1 = Given Name Text Box
#2 typ 1 = Family Name Text Box
#3 typ 1 = House nr Text Box
#4 typ 1 = Address 2 Text Box
#5 typ 1 = Postcode Text Box
#6 typ 5 = Country Combo Box
#7 typ 1 = Height Formatted Field
#8 typ 1 = City Text Box
#9 typ 3 = Driving License Check Box
#10 typ 5 = Favourite Colour List Box
#11 typ 3 = Language 1 Check Box
#12 typ 3 = Language 2 Check Box
#13 typ 3 = Language 3 Check Box
#14 typ 3 = Language 4 Check Box
#15 typ 3 = Language 5 Check Box
#16 typ 5 = Gender List Box
#17 typ 1 = Address 1 Text Box
}
debenu.SetFormFieldValueByTitle('Given Name Text Box', 'Neználek' );
debenu.SetFormFieldValueByTitle('Family Name Text Box', 'Neználkovič' );
debenu.SetFormFieldValueByTitle('Address 1 Text Box', 'Okurková' );
debenu.SetFormFieldValueByTitle('House nr Text Box', '123' );
debenu.SetFormFieldValueByTitle('Address 2 Text Box', 'Poříčí' );
debenu.SetFormFieldValueByTitle('City Text Box', 'Kvítečkov' );
debenu.SetFormFieldValueByTitle('Postcode Text Box', '12345' );
debenu.SetFormFieldValueByTitle('Country Combo Box', 'Portugal' );
debenu.SetFormFieldValueByTitle('Driving License Check Box', 'Off' );
debenu.SetFormFieldValueByTitle('Height Formatted Field', '2' );
debenu.SetFormFieldValueByTitle('Language 1 Check Box', 'Off' );
debenu.SetFormFieldValueByTitle('Language 2 Check Box', 'Off' );
debenu.SetFormFieldValueByTitle('Language 3 Check Box', 'Yes' );
debenu.SetFormFieldValueByTitle('Language 4 Check Box', 'Off' );
debenu.SetFormFieldValueByTitle('Language 5 Check Box', 'Off' );
debenu.SetFormFieldValueByTitle('Gender List Box', 'Man' );
debenu.SetFormFieldValueByTitle('Favourite Colour List Box', 'Red' );
debenu.SaveToFile('OoPdfFormExample-vyplneno.pdf');
debenu.Free();
end;