HRESULT SetCurrentPDFOutlineNode ( LONG nodeIndex ) |
{ PDF object is supposed to be created } PDF.BeginDoc; lAction := PDF.CreateGoToPageAction(0, 0); ind1 := PDF.PDFOUTLINES_Add(0, 'Outline 1', lAction, charsetANSI_CHARSET); ind2 := PDF.PDFOUTLINES_Add(0, 'Outline 2', lAction, charsetANSI_CHARSET); ind3 := PDF.PDFOUTLINES_Add(0, 'Outline 3', lAction, charsetANSI_CHARSET); PDF.SetCurrentPDFOutlineNode(ind2); PDF.PDFOUTLINENODE_Title := '[Outline 2]'; PDF.EndDoc;
// PDF object is supposed to be created PDF->BeginDoc(); LONG lAction = PDF->CreateGoToPageAction(0, 0); LONG ind1 = PDF->PDFOUTLINES_Add(0, "Outline 1", lAction, charsetANSI_CHARSET); LONG ind2 = PDF->PDFOUTLINES_Add(0, "Outline 2", lAction, charsetANSI_CHARSET); LONG ind3 = PDF->PDFOUTLINES_Add(0, "Outline 3", lAction, charsetANSI_CHARSET); PDF->SetCurrentPDFOutlineNode(ind2); PDF->PDFOUTLINENODE_Title = "[Outline 2]"; PDF->EndDoc();
// PDF object is supposed to be created PDF.BeginDoc(); long lAction = PDF.CreateGoToPageAction(0, 0); long ind1 = PDF.PDFOUTLINES_Add(0, "Outline 1", lAction, TxFontCharset.charsetANSI_CHARSET); long ind2 = PDF.PDFOUTLINES_Add(0, "Outline 2", lAction, TxFontCharset.charsetANSI_CHARSET); long ind3 = PDF.PDFOUTLINES_Add(0, "Outline 3", lAction, TxFontCharset.charsetANSI_CHARSET); PDF.SetCurrentPDFOutlineNode(ind2); PDF.PDFOUTLINENODE_Title = "[Outline 2]"; PDF.EndDoc();
' PDF object is supposed to be created PDF.BeginDoc lAction = PDF.CreateGoToPageAction(0, 0) ind1 = PDF.PDFOUTLINES_Add(0, "Outline 1", lAction, 0) ind2 = PDF.PDFOUTLINES_Add(0, "Outline 2", lAction, 0) ind3 = PDF.PDFOUTLINES_Add(0, "Outline 3", lAction, 0) PDF.SetCurrentPDFOutlineNode ind2 PDF.PDFOUTLINENODE_Title = "[Outline 2]" PDF.EndDoc