Sumatra o Acrobat hacer un Indice

[shoulder]

Hola me estan pidiendo un indice de una carpeta scaneada o sea un historial de compras, en una tabla armo el indice un campo descripcion y numero de pagina, pero se puede hacer mediante sumatra o acrobat que al elegir el tema del indice vaya directamente a la pagina dentro del PDF?.

Gracias.

[Casimiro Notevi]

No se entiende

[shoulder]

Hola seria asi, tengo una tabla llamada indice por ejemplo Hoja 1 - Introduccion , Hoja 2 Ventas, Hoja 59 Gastos. A su vez tengo una carpeta pdf, un archivo de 100 hojas. Al hacer click mediante un dblookupcombobox en el tema que me interesa vaya directamente a la hoja elegida en el PDF.
Gracias

[ecfisa]

Hola shoulder.

Para que no tengas dificultad en reproducir el ejemplo usé el documento La cara oculta de Delphi 4 que podes descargar desde el FTP de Club Delphi.

Para el ejemplo usé el componente TACroPdf pero no tiene relevancia cuál sea, ya que la idea es mostrarte como usar el TComboBox para obtener el número de página a partir del ítem seleccionado.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  AcroPDF1.LoadFile('La_Cara_Oculta_De_Delphi_4.pdf');
  // Confeccionar Titulos/páginas
  with ComboBox1 do
  begin
    Clear;
    AddItem('PRÓLOGO DEL AUTOR', TObject(19));
    AddItem('PRÓLOGO A LA SEGUNDA EDICIÓN', TObject(23));
    AddItem('ENTORNO Y HERRAMIENTAS', TObject(27));
    AddItem('HERRAMIENTAS Y UTILIDADES', TObject(41));
    AddItem('UNIDADES, PROYECTOS Y PAQUETES', TObject(57));
    AddItem('SISTEMAS DE BASES DE DATOS', TObject(77));
    AddItem('EL MOTOR DE DATOS DE BORLAND', TObject(103));
    //...
    ItemIndex := 0;
  end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  pag: Integer;
begin
  // (*)
  if ComboBox1.ItemIndex <> -1 then
  begin
    // Nro de página
    pag := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
    // Ir a la página
    AcroPDF1.setCurrentPage(pag);
  end;
end;

(*) A efecto explicativo, se podría haber escrito:

Código Delphi [-]
   if ComboBox1.ItemIndex <> -1 then
     AcroPDF1.setCurrentPage(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]));

Muestra:


Saludos

[shoulder]

Muchisimas Gracias!.