Debenu Quick PDF Library - PDF SDK Community Forum : SetFormFieldAlignment for Button

procedure CreatePrintButton(Menox:string);

var BTWidth,BTLocation:double;

ix,strana:integer;

begin

strana:=1;

PDFDok.SetOrigin(1);

BTWidth:=45;

BTLocation:=91;

ix:=PDFDok.NewFormField(Menox,2);

if ix>0 then begin

PDFDok.SetFormFieldCaption(ix,Menox);

PDFDok.SetFormFieldAlignment(ix,1);

PDFDok.SetFormFieldPrintable(ix,0);

PDFDok.SetFormFieldBounds(ix,BTLocation,5,BTWidth,15);

PDFDok.SetFormFieldFont(ix,PDFDok.GetFormFontCount);

PDFDok.SetFormFieldTextSize(ix, 8);

PDFDok.SetFormFieldBorderColor(ix, 0.9, 0, 0);

PDFDok.SetFormFieldBorderStyle(ix, 0.2, 0, 0, 0);

PDFDok.SetFormFieldColor(ix, 0, 0, 0);

PDFDok.SetFormFieldBackgroundColor(ix,0.85,0.90,0.70);

PDFDok.SetFormFieldValue(ix,'');

PDFDok.SetFormFieldHighlightMode(ix,3);

PDFDok.FormFieldJavaScriptAction(ix, 'U', 'this.print({' +

'bUI: true,' +

'bSilent: true,' +

'bShrinkToFit: true,' +

'nStart: ' + IntToStr(strana-1) + ',' +

'nEnd: ' + IntToStr(strana-1) + '});');

end;