umakedoc.pas

作者:Takeshi Kanno. PowerPdf是一款制作PDF文档的VCL控件。使用上和QuickReport类似。

    PRRect52: TPRRect;
    PRText269: TPRText;
    PRText270: TPRText;
    ScrollBox10: TScrollBox;
    PRPage11: TPRPage;
    PRLayoutPanel11: TPRLayoutPanel;
    PRText188: TPRText;
    PRRect35: TPRRect;
    PRRect36: TPRRect;
    PRRect37: TPRRect;
    PRText189: TPRText;
    PRRect38: TPRRect;
    PRText2_6: TPRText;
    PRText191: TPRText;
    PRText192: TPRText;
    PRText193: TPRText;
    PRText194: TPRText;
    PRText195: TPRText;
    PRText2_6_1: TPRText;
    PRText206: TPRText;
    PRText207: TPRText;
    PRText208: TPRText;
    PRText209: TPRText;
    PRText210: TPRText;
    PRText211: TPRText;
    PRText212: TPRText;
    PRText213: TPRText;
    PRText214: TPRText;
    PRText215: TPRText;
    PRText216: TPRText;
    PRText217: TPRText;
    ScrollBox9: TScrollBox;
    PRPage9: TPRPage;
    PRLayoutPanel10: TPRLayoutPanel;
    PRText176: TPRText;
    PRRect31: TPRRect;
    PRRect32: TPRRect;
    PRRect33: TPRRect;
    PRText177: TPRText;
    PRRect34: TPRRect;
    PRText2_5: TPRText;
    PRText179: TPRText;
    PRText180: TPRText;
    PRText181: TPRText;
    PRText182: TPRText;
    PRText183: TPRText;
    PRText2_5_1: TPRText;
    PRText185: TPRText;
    PRText186: TPRText;
    PRText187: TPRText;
    PRText196: TPRText;
    PRText197: TPRText;
    PRText198: TPRText;
    PRText199: TPRText;
    PRText200: TPRText;
    PRText201: TPRText;
    PRText202: TPRText;
    PRText203: TPRText;
    PRText204: TPRText;
    PRText239: TPRText;
    ScrollBox13: TScrollBox;
    PRPage10: TPRPage;
    PRLayoutPanel14: TPRLayoutPanel;
    PRText271: TPRText;
    PRRect53: TPRRect;
    PRRect54: TPRRect;
    PRRect55: TPRRect;
    PRText272: TPRText;
    PRRect56: TPRRect;
    PRText301: TPRText;
    PRText302: TPRText;
    PRText303: TPRText;
    PRText304: TPRText;
    PRText305: TPRText;
    PRText306: TPRText;
    PRText307: TPRText;
    PRText308: TPRText;
    PRText309: TPRText;
    PRText310: TPRText;
    PRText311: TPRText;
    PRText312: TPRText;
    PRText240: TPRText;
    PRText241: TPRText;
    PRText242: TPRText;
    PRText243: TPRText;
    PRText244: TPRText;
    PRText245: TPRText;
    PRRect57: TPRRect;
    PRRect58: TPRRect;
    PRText295: TPRText;
    PRText296: TPRText;
    PRText297: TPRText;
    PRText298: TPRText;
    PRText299: TPRText;
    PRText300: TPRText;
    PRText7: TPRText;
    PRText8: TPRText;
    PRText13: TPRText;
    PRText22: TPRText;
    PRText23: TPRText;
    PRText25: TPRText;
    PRText57: TPRText;
    PRText89: TPRText;
    PRText95: TPRText;
    PRText98: TPRText;
    PRText99: TPRText;
    PRText132: TPRText;
    PRText138: TPRText;
    PRText142: TPRText;
    PRText151: TPRText;
    PRText163: TPRText;
    PRText178: TPRText;
    procedure CreatePDF1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure PRPage1PrintPage(Sender: TObject; ACanvas: TPRCanvas);
    procedure PRPage2PrintPage(Sender: TObject; ACanvas: TPRCanvas);
    procedure PRPage3PrintPage(Sender: TObject; ACanvas: TPRCanvas);
    procedure PRPage4PrintPage(Sender: TObject; ACanvas: TPRCanvas);
    procedure PRPage5PrintPage(Sender: TObject; ACanvas: TPRCanvas);
    procedure PRPage6PrintPage(Sender: TObject; ACanvas: TPRCanvas);
    procedure PRPage7PrintPage(Sender: TObject; ACanvas: TPRCanvas);
    procedure PRPage8PrintPage(Sender: TObject; ACanvas: TPRCanvas);
    procedure PRPage9PrintPage(Sender: TObject; ACanvas: TPRCanvas);
    procedure PRPage11PrintPage(Sender: TObject; ACanvas: TPRCanvas);
    procedure PRPage13PrintPage(Sender: TObject; ACanvas: TPRCanvas);
    procedure PRPage12PrintPage(Sender: TObject; ACanvas: TPRCanvas);
    procedure PRLayoutPanel2AfterPrint(Sender: TObject; ACanvas: TPRCanvas;
      Rect: TRect);
    procedure PRLayoutPanel2BeforePrint(Sender: TObject;
      ACanvas: TPRCanvas; Rect: TRect);
  private
    FOutlineRoot: TPdfOutLineEntry;
    FOutline, FOutlineSubRoot: TPdfOutLineEntry;
  public
    { Public 愰尵 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CreatePDF1Click(Sender: TObject);
var
  APage: TPRPage;
  i: integer;
begin
  if not SaveDialog1.Execute then Exit;
  with PReport1 do
  begin
    FileName := SaveDialog1.FileName;
    BeginDoc;
    for i := 0 to PageControl1.PageCount do
    begin
      APage := TPRPage(Self.FindComponent('PRPage' + IntToStr(i)));
      if APage <> nil then
        Print(APage);
    end;
    EndDoc;
  end;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
  ShowMessage(POWER_PDF_VERSION_STR + #13#10 + POWER_PDF_COPYRIGHT);
end;

procedure TForm1.PRPage1PrintPage(Sender: TObject; ACanvas: TPRCanvas);
begin
  FOutlineRoot := PReport1.GetPdfDoc.AddOutlineEntry(nil,
     'PowerPdf Reference', 0, TPRPage(Sender).Height, true);
end;

procedure TForm1.PRPage2PrintPage(Sender: TObject; ACanvas: TPRCanvas);
begin
  with PRText1Contents do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutlineRoot,
                  Text, 0, TPRPage(Sender).Height - Top, false);
end;

procedure TForm1.PRPage3PrintPage(Sender: TObject; ACanvas: TPRCanvas);
begin
  with PRTextIntro do
    FOutlineSubRoot := PReport1.GetPdfDoc.AddOutlineEntry(FOutlineRoot,
                  '1.' + Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText1_1 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutlineSubRoot,
                      Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText1_2 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutlineSubRoot,
                      Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText1_3 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutlineSubRoot,
                      Text, 0, TPRPage(Sender).Height - Top, false);
end;

procedure TForm1.PRPage4PrintPage(Sender: TObject; ACanvas: TPRCanvas);
begin
  with PRTextCompRef do
    FOutlineSubRoot := PReport1.GetPdfDoc.AddOutlineEntry(FOutlineRoot,
                  '2.' + Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText2_1 do
    FOutline := PReport1.GetPdfDoc.AddOutlineEntry(FOutlineSubRoot,
                      Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText2_1_1 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutline,
                             Text, 0, TPRPage(Sender).Height - Top, false);
end;

procedure TForm1.PRPage5PrintPage(Sender: TObject; ACanvas: TPRCanvas);
begin
  with PRText2_1_2 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutline,
                             Text, 0, TPRPage(Sender).Height - Top, false);
end;

procedure TForm1.PRPage6PrintPage(Sender: TObject; ACanvas: TPRCanvas);
begin
  with PRText2_2 do
    FOutline := PReport1.GetPdfDoc.AddOutlineEntry(FOutlineSubRoot,
                      Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText2_2_1 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutline,
                             Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText2_2_2 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutline,
                             Text, 0, TPRPage(Sender).Height - Top, false);
end;

procedure TForm1.PRPage7PrintPage(Sender: TObject; ACanvas: TPRCanvas);
begin
  with PRText2_3 do
    FOutline := PReport1.GetPdfDoc.AddOutlineEntry(FOutlineSubRoot,
                      Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText2_3_1 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutline,
                             Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText2_3_2 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutline,
                             Text, 0, TPRPage(Sender).Height - Top, false);
end;

procedure TForm1.PRPage8PrintPage(Sender: TObject; ACanvas: TPRCanvas);
begin
  with PRText2_4 do
    FOutline := PReport1.GetPdfDoc.AddOutlineEntry(FOutlineSubRoot,
                             Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText2_4_1 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutline,
                             Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText2_4_2 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutline,
                             Text, 0, TPRPage(Sender).Height - Top, false);
end;

procedure TForm1.PRPage9PrintPage(Sender: TObject; ACanvas: TPRCanvas);
begin
  with PRText2_5 do
    FOutline := PReport1.GetPdfDoc.AddOutlineEntry(FOutlineSubRoot,
                             Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText2_5_1 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutline,
                             Text, 0, TPRPage(Sender).Height - Top, false);
end;

procedure TForm1.PRPage11PrintPage(Sender: TObject; ACanvas: TPRCanvas);
begin
  with PRText2_6 do
    FOutline := PReport1.GetPdfDoc.AddOutlineEntry(FOutlineSubRoot,
                             Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText2_6_1 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutline,
                             Text, 0, TPRPage(Sender).Height - Top, false);
end;

procedure TForm1.PRPage13PrintPage(Sender: TObject; ACanvas: TPRCanvas);
begin
  with PRTextCopyright do
    FOutline := PReport1.GetPdfDoc.AddOutlineEntry(FOutlineRoot,
                      Text, 0, TPRPage(Sender).Height - Top, false);
end;

procedure TForm1.PRPage12PrintPage(Sender: TObject; ACanvas: TPRCanvas);
begin
  with PRText2_7 do
    FOutline := PReport1.GetPdfDoc.AddOutlineEntry(FOutlineSubRoot,
                      Text, 0, TPRPage(Sender).Height - Top, false);
  with PRText2_7_1 do
    PReport1.GetPdfDoc.AddOutlineEntry(FOutline,
                             Text, 0, TPRPage(Sender).Height - Top, false);
end;

procedure TForm1.PRLayoutPanel2AfterPrint(Sender: TObject;
  ACanvas: TPRCanvas; Rect: TRect);
begin
  // restore the horizontal scaling of th font.
  ACanvas.SetHorizontalScaling(100);
end;

procedure TForm1.PRLayoutPanel2BeforePrint(Sender: TObject;
  ACanvas: TPRCanvas; Rect: TRect);
begin
  // change the horizontal scaling of th font.
  ACanvas.SetHorizontalScaling(80);
end;

end.