Quick PDF-Library: Wie die Position des Annotationfensters ermitteln?

[ULIK]

Ich hab hier die offizielle PDF 1.7 und 2.0 Spezifikation rumliegen. Die gibt's aber glaub ich nur zu kaufen (hat mein Arbeitgeber besorgt, darum weis ich grad nichts genaueres über Bezugsquellen).

Das mit den Objektlisten schau ich mir mal an. Wie genau erstellst Du eine neue Annotation? Mit AddTextMarkupAnnotation?

Edit: Hab das schnell getestet: wenn ich mit

Code:

qp.AddNoteAnnotation(100, 100, 0, 100, 100, 100, 100, 'Murks', 'Content', 1.0, 0,0,0);

eine neue Annotation angelege, dann seh ich die sofort in der Objektliste.

Hier mein Testcode:

Code:

        qp := TDebenuPDFLibrary.Create;
        try
          for i := 1 to qp.GetObjectCount do
          begin
            strObject := qp.GetObjectToString(i);

            memo1.Lines.Add('Obj ' + IntToStr(i) + ' ' + Copy(strObject,1, 60) + #13#10);
          end;

          qp.AddNoteAnnotation(100, 100, 0, 100, 100, 100, 100, 'Murks', 'Content', 1.0, 0,0,0);

          for i := 1 to qp.GetObjectCount do
          begin
            strObject := qp.GetObjectToString(i);

            memo1.Lines.Add('Obj ' + IntToStr(i) + ' ' + Copy(strObject,1, 60) + #13#10);
          end;
        finally
          qp.Free;
        end;