home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d3456 / POWERPDF.ZIP / PowerPdf / Example / JpegImageExample / Unit1.pas < prev   
Pascal/Delphi Source File  |  2001-09-15  |  2KB  |  91 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   PReport, ExtCtrls, StdCtrls, Buttons, PRJpegImage, ExtDlgs, PdfDoc, ShellApi;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     ScrollBox1: TScrollBox;
  13.     PRPage1: TPRPage;
  14.     PRLayoutPanel1: TPRLayoutPanel;
  15.     PRJpegImage1: TPRJpegImage;
  16.     PRLayoutPanel2: TPRLayoutPanel;
  17.     SpeedButton1: TSpeedButton;
  18.     SpeedButton2: TSpeedButton;
  19.     CheckBox1: TCheckBox;
  20.     OpenPictureDialog1: TOpenPictureDialog;
  21.     PReport1: TPReport;
  22.     PRLabel1: TPRLabel;
  23.     SaveDialog1: TSaveDialog;
  24.     procedure CheckBox1Click(Sender: TObject);
  25.     procedure SpeedButton1Click(Sender: TObject);
  26.     procedure SpeedButton2Click(Sender: TObject);
  27.     procedure PRPage1PrintPage(Sender: TObject; ACanvas: TPRCanvas);
  28.   private
  29.     { Private ÉΘî╛ }
  30.   public
  31.     { Public ÉΘî╛ }
  32.   end;
  33.  
  34. var
  35.   Form1: TForm1;
  36.  
  37. implementation
  38.  
  39. {$R *.DFM}
  40.  
  41. procedure TForm1.CheckBox1Click(Sender: TObject);
  42. begin
  43.   PRJpegImage1.Stretch := CheckBox1.Checked;
  44. end;
  45.  
  46. procedure TForm1.SpeedButton1Click(Sender: TObject);
  47. begin
  48.   SaveDialog1.FileName := ChangeFileExt(ExtractFileName(OpenPictureDialog1.FileName), '.pdf');
  49.   if SaveDialog1.Execute then
  50.     with PReport1 do
  51.     begin
  52.       FileName := SaveDialog1.FileName;
  53.       BeginDoc;
  54.       Print(PRPage1);
  55.       EndDoc;
  56.       ShellExecute(Self.Handle, 'Open', PChar(FileName), '', '', SW_SHOW);
  57.     end;
  58. end;
  59.  
  60. procedure TForm1.SpeedButton2Click(Sender: TObject);
  61. begin
  62.   if OpenPictureDialog1.Execute then
  63.   begin
  64.     PRJpegImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  65.     PRLabel1.Caption := OpenPictureDialog1.FileName;
  66.     PRJpegImage1.Repaint;
  67.   end;
  68. end;
  69.  
  70. procedure TForm1.PRPage1PrintPage(Sender: TObject; ACanvas: TPRCanvas);
  71. var
  72.   Dest: TPRDestination;
  73. begin
  74.   // create a new destination for the current page.
  75.   Dest := PReport1.CreateDestination;
  76.  
  77.   // setting the properties for the destination object.
  78.   with Dest do
  79.   begin
  80.     DestinationType := dtXYZ;
  81.     Left := -10;
  82.     Top := -10;
  83.     Zoom := 1;
  84.   end;
  85.  
  86.   // set the destination object as the open-action.
  87.   PReport1.OpenAction := Dest;
  88. end;
  89.  
  90. end.
  91.