Debenu Quick PDF Library - PDF SDK Community Forum : FlattenFormField & EasEurope char http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 22 Jun 2026 11:54:29 +0000 Mon, 07 Dec 2020 20:19:23 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=3867 <![CDATA[Debenu Quick PDF Library - PDF SDK Community Forum]]> http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ <![CDATA[FlattenFormField & EasEurope char : Hi Peter :)Thanks a lot - this...]]> http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15498.html#15498 Author: Ingo
Subject: 3867
Posted: 07 Dec 20 at 8:19PM

Hi Peter :)

Thanks a lot - this will help other guys coming around here...

Cheers,
Ingo
]]> Mon, 07 Dec 2020 20:19:23 +0000 http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15498.html#15498 <![CDATA[FlattenFormField & EasEurope char : Yes, it&#039;s not complicated...]]> http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15497.html#15497 Author: PeterAnderko
Subject: 3867
Posted: 07 Dec 20 at 9:11AM

Yes, it's not complicated anymore.
If anyone later reads this thread, let them learn.

For example:


Function IsInstaledFont(MenoFontx:String):boolean;
begin
Result:=Screen.Fonts.IndexOf(MenoFontx)>= 0;
end;


Procedure InstalTTF(CestaMenox:PWideChar);
begin
AddFontResource(CestaMenox);
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

Procedure UnInstalTTF(CestaMenox:PWideChar);
begin
RemoveFontResource(CestaMenox);
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

thank you Ingo for moving me forwardThumbs Up
]]> Mon, 07 Dec 2020 09:11:57 +0000 http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15497.html#15497 <![CDATA[FlattenFormField & EasEurope char : &#034;...However, this has the...]]> http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15496.html#15496 Author: Ingo
Subject: 3867
Posted: 06 Dec 20 at 11:10PM

"...However, this has the disadvantage that I have to ensure that the appropriate font is installed in the program...." which you can check before by an individual routine. To check which fonts are installed on a system isn't a big prob...

]]> Sun, 06 Dec 2020 23:10:54 +0000 http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15496.html#15496 <![CDATA[FlattenFormField & EasEurope char : This is a really inspiring questionThe...]]> http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15495.html#15495 Author: PeterAnderko
Subject: 3867
Posted: 06 Dec 20 at 4:18PM

This is a really inspiring question

The font name is OK.
But I thought about why you were asking me that.
I read the description of the AddTrueTypeSubsettedFont command again.
I found that this font is not installed in Windows \ fonts.

I did a procedure where I selected this font from my form using the "SaveFontToFile" command. I installed that font file in Windows and then I ran my original test program,
but it didn't help.Confused

Then I modified the "AddTrueTypeSubsettedFont" command as follows:
 
fid: = PDFDok.AddTrueTypeSubsettedFont ('Aral77', text, 2);

It worked.Smile

My formfield has preserved the letters č ľ ť ň ... and also maintains the spacing between the letters.

However, this has the disadvantage that I have to ensure that the appropriate font is installed in the program.


Peter.




]]> Sun, 06 Dec 2020 16:18:38 +0000 http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15495.html#15495 <![CDATA[FlattenFormField & EasEurope char : the font is really named &#034;Aral77&#034;?...]]> http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15494.html#15494 Author: Ingo
Subject: 3867
Posted: 05 Dec 20 at 3:53PM

the font is really named "Aral77"? ;-)

]]> Sat, 05 Dec 2020 15:53:01 +0000 http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15494.html#15494 <![CDATA[FlattenFormField & EasEurope char : Hi Ingo,tahnks for your response.I...]]> http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15493.html#15493 Author: PeterAnderko
Subject: 3867
Posted: 04 Dec 20 at 7:44AM

Hi Ingo,

tahnks for your response.

I upgrade my testing program with AddTrueTypeSubsettedFon:


procedure TForm1.Button3Click(Sender: TObject);
var Okw,px,fid,ffid:Integer;
begin
PDFDok:=TDebenuPDFLibrary1613.Create;
OKw:=PDFDok.UnlockKey(':-');
if OKw<>1 then begin
   Showmessage('ERROR');
   Exit;
   end;
 PDFDok.SetPageSize('A4');
 PDFDok.SetOrigin(1);
 PDFDok.SetMeasurementUnits(0);
 PDFDok.NormalizePage(1);
 PDFDok.SetLineWidth(0.3);

PDFDok.LoadFromFile(AdresarExe+'POZ_2019.pdf','');   // this file contains form fields
PDFDok.CombineContentStreams;

text:='ABCČDĎEÉFGHIÍJKLĽĹMNŇOÓÔPQRSŠTŤUÚVXYÝZŽabcčdďeéfghiíjklľĺmnňoóôpqrsštťuúvxyýyž1234567890-+.,;()" /\$&*@';
fid:=PDFDok.AddTrueTypeSubsettedFont('Aral77', text, 0);
PDFDok.SelectFont(fid);
ffid:=PDFDok.AddFormFont(fid);

// I select formfield with index=8,  realy existing in POZ_2019.pdf
px:=8;
PDFDok.SetFormFieldFont(px,ffid);
PDFDok.SetFormFieldValue(px,'Pľuščeňko');

PDFDok.SetNeedAppearances(1);
okw:=PDFDok.FlattenFormField(px);
if OKw<>1 then begin
   Showmessage('ERROR');
   PDFDok.Free;
   Exit;
   end;

PDFDok.SaveToFile(ExtractFilePath(Application.exeName)+'OutPutForm.PDF');
PDFDok.Free;
end;



This upgrade is one of the tricks I tried before I wrote here.
For the form field, they will keep the characters I need, but the "SetFormFieldFont" command will change the original font for the formfield.

In the original font, a special character spacing is set, which I need to fill in the form correctly.
Is it possible to achieve in some way that I set the character spacing for this formfield?
As the command does "DrawSpacedText"

thank you for answer. Thumbs Up





]]> Fri, 04 Dec 2020 07:44:30 +0000 http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15493.html#15493 <![CDATA[FlattenFormField & EasEurope char : Hi Peter,you&#039;re using FindFonts...]]> http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15492.html#15492 Author: Ingo
Subject: 3867
Posted: 03 Dec 20 at 7:33PM

Hi Peter,

you're using FindFonts and do nothing with the result?
Seems the standard font which QuickPDF is used doesn't support unicode...
Not all fonts are able to show all characters - so you have to select the right one ;-)
Here's a link to a thread from a user who had the same prob with greek characters:
http://www.quickpdf.org/forum/filling-form-fields-with-greek-letters_topic2207.html

Cheers and welcome here,
Ingo

]]> Thu, 03 Dec 2020 19:33:59 +0000 http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15492.html#15492 <![CDATA[FlattenFormField & EasEurope char : Hi, help me pleasei tried in Delphi...]]> http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15491.html#15491 Author: PeterAnderko
Subject: 3867
Posted: 03 Dec 20 at 12:10PM

Hi, help me please

i tried in Delphi 2010 this simply code to testing flattenformfield function


procedure TForm1.Button3Click(Sender: TObject);
var Okw,px:Integer;
begin
PDFDok:=TDebenuPDFLibrary1613.Create;
OKw:=PDFDok.UnlockKey(':-)');
if OKw<>1 then begin
   Showmessage('ERROR');
   Exit;
   end;
 PDFDok.SetPageSize('A4');
 PDFDok.SetOrigin(1);
 PDFDok.SetMeasurementUnits(0);
 PDFDok.NormalizePage(1);
 PDFDok.SetLineWidth(0.3);

PDFDok.LoadFromFile(AdresarExe+'POZ_2019.pdf','');   // this file contain formfield
PDFDok.CombineContentStreams;
PDFDok.FindFonts;

// I select formfield with index=8,  realy existing in POZ_2019.pdf
px:=8;
PDFDok.SetFormFieldValue(px,'Pľuščeňko');

PDFDok.SetNeedAppearances(1);
okw:=PDFDok.FlattenFormField(px);
if OKw<>1 then begin
   Showmessage('ERROR');
   Exit;
   end;

PDFDok.SaveToFile(ExtractFilePath(Application.exeName)+'OutPutForm.PDF');
end;


formfield is succesfully flattened 
the problem is that char ľ č ň  is replaced to space.
I tried a lot tricks and function from quickPDF - zerro effect
see picture:


Please help me someone Cry


]]> Thu, 03 Dec 2020 12:10:24 +0000 http://www.quickpdf.org/forum/flattenformfield-easeurope-char_topic3867_post15491.html#15491