canvasdraw.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 CanvasDraw;
{$APPTYPE CONSOLE}
uses
  SysUtils, Graphics, Classes, VPDFDoc;

var
   I, Y: Integer;
   VPDF: TVPDF;

begin
    VPDF:= TVPDF.Create(nil);
    try
        Randomize;
        VPDF.AutoLaunch := true;                                // PDF file will shown automatically
        VPDF.FileName := '.\Canvas Drawing.pdf';                // Set PDF filename
        VPDF.BeginDoc;                                          // Create PDF file
        VPDF.Canvas.Font.Size := 15;                            // Set canvas font size
        I :=20;
        Y := 40;
        VPDF.Canvas.TextOut(10, 10, 'Canvas Ellipses');         //  Print text
        while I <= 690 do                                       //  Draw colour
        begin                                                   //    ellipses
            VPDF.Canvas.Brush.Color := random($FFFFFF);         //
            VPDF.Canvas.Ellipse(I, Y, I+90, Y + 160);
            Inc(I, 30);
            Inc( Y, 3 );
        end;
        I :=20;
        Y := 340;
        VPDF.Canvas.TextOut(10, 310, 'Canvas Rectangles');      //  Print text
        while I <= 690 do
        begin                                                   //  Draw colour
            VPDF.Canvas.Brush.Color := random($FFFFFF);         //   rectangles
            VPDF.Canvas.Rectangle(I, Y, I+90, Y + 160);         //
            Inc(I, 30);
            Inc( Y, 3 );
        end;
        I :=20;
        Y := 680;
        VPDF.Canvas.TextOut(10, 650, 'Canvas RoundRects');      // Print text
        while I <= 690 do
        begin
            VPDF.Canvas.Brush.Color := random($FFFFFF);         //  Draw colour
            VPDF.Canvas.RoundRect(I, Y, I+90, Y + 160, 20, 20); //   roundrects
            Inc(I, 30);                                         //
            Inc( Y, 3 );
        end;
        VPDF.EndDoc;                                            // Close PDF file
    finally
        VPDF.Free;
    end;
end.