annotations.dpr

生成PDF文档的控件

{*******************************************************}
{                                                       }
{       This unit is part of the VISPDF VCL library.    }
{       Written by R.Husske - ALL RIGHTS RESERVED.      }
{                                                       }
{       Copyright (C) 2000-2008, www.vispdf.com         }
{                                                       }
{       e-mail: [e-mail]                      }
{       http://www.vispdf.com                           }
{                                                       }
{*******************************************************}

program Annotations;
{$APPTYPE CONSOLE}
uses
  SysUtils, Classes, Graphics, VPDFDoc;
var
    VPDF: TVPDF;
    BeginPoint: TVPDFCurrPoint;
    EndPoint: TVPDFCurrPoint;
begin
    VPDF := TVPDF.Create(nil);
    try
        VPDF.FileName := 'Annot.pdf';  // Set output filename

        VPDF.BeginDoc;                 // Create PDF document

        VPDF.CurrentPage.AddTextAnnotation( 'Text annotations example', Rect(10, 10, 20, 20), true, taComment, clBlue ); // Draw text annotation

        VPDF.CurrentPage.AddFreeTextAnnotation( 'Free text annotations example', Rect(10, 160, 200, 220), ftLeftJust, clRed ); // Draw free text annotation

        BeginPoint.X := 10;
        BeginPoint.Y := 230;
        EndPoint.X := 100;
        EndPoint.Y := 290;

        VPDF.CurrentPage.AddLineAnnotation( 'Line annotation example', BeginPoint, EndPoint, clYellow ); // Draw line annotation

        VPDF.CurrentPage.AddCircleSquareAnnotation( 'Circle annotation example', Rect(10, 300, 200, 330), csCircle, clGreen ); // Draw circle and square annotation

        VPDF.CurrentPage.AddStampAnnotation( 'Stamp annotation example', Rect(313, 20, 475, 120), satDraft, clPurple ); // Draw stamp annotation

        VPDF.CurrentPage.AddFileAttachmentAnnotation( 'File attach annotation example', '..\License.txt', Rect(300, 160, 450, 200), clLime ); // Draw file attachment annotation

        VPDF.CurrentPage.AddSoundAnnotation( 'Sound Annotation demo', '..\Music.wav', Rect(300, 230, 450, 250), $550000 ); // Draw sound annotation

        VPDF.CurrentPage.AddMovieAnnotation( 'Movie annotation demo', '..\Clock.mov', Rect(300, 290, 450, 370), clGreen ); // Draw movie annotation

        VPDF.EndDoc;                   // Close PDF document
    finally
        VPDF.Free;
    end;
end.