main.pas

生成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                           }
{                                                       }
{*******************************************************}

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, VPDFDoc, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series;

type
  TForm1 = class(TForm)
    Button1: TButton;
    VPDF: TVPDF;
    Label1: TLabel;
    FileNameEdit: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
    I, Y: Integer;
begin
    Randomize;
    VPDF.FileName := FileNameEdit.Text;                     // Set 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
end;

end.