PowerPDF Check In

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@585 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/powerpdf/LazarusExamples/JpegImageExample/Unit1.pas

@@ -0,0 +1,98 @@
+unit Unit1;
+
+{.$MODE Delphi}
+
+interface
+
+uses
+  LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  PReport, ExtCtrls, StdCtrls, Buttons, PRJpegImage, ExtDlgs, PdfDoc, {ShellApi,}
+  LResources;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    Panel1: TPanel;
+    ScrollBox1: TScrollBox;
+    PRPage1: TPRPage;
+    PRLayoutPanel1: TPRLayoutPanel;
+    PRJpegImage1: TPRJpegImage;
+    PRLayoutPanel2: TPRLayoutPanel;
+    SpeedButton1: TSpeedButton;
+    SpeedButton2: TSpeedButton;
+    CheckBox1: TCheckBox;
+    OpenPictureDialog1: TOpenPictureDialog;
+    PReport1: TPReport;
+    PRLabel1: TPRLabel;
+    SaveDialog1: TSaveDialog;
+    procedure CheckBox1Click(Sender: TObject);
+    procedure SpeedButton1Click(Sender: TObject);
+    procedure SpeedButton2Click(Sender: TObject);
+    procedure PRPage1PrintPage(Sender: TObject; ACanvas: TPRCanvas);
+  private
+    { Private }
+  public
+    { Public }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+
+procedure TForm1.CheckBox1Click(Sender: TObject);
+begin
+  PRJpegImage1.Stretch := CheckBox1.Checked;
+end;
+
+procedure TForm1.SpeedButton1Click(Sender: TObject);
+begin
+  SaveDialog1.FileName := ChangeFileExt(ExtractFileName(OpenPictureDialog1.FileName), '.pdf');
+  if SaveDialog1.Execute then
+    with PReport1 do
+    begin
+      FileName := SaveDialog1.FileName;
+      BeginDoc;
+      Print(PRPage1);
+      EndDoc;
+      //ShellExecute(Self.Handle, 'Open', PChar(FileName), '', '', SW_SHOW);
+    end;
+end;
+
+procedure TForm1.SpeedButton2Click(Sender: TObject);
+begin
+  if OpenPictureDialog1.Execute then
+  begin
+    PRJpegImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
+    PRLabel1.Caption := OpenPictureDialog1.FileName;
+    PRJpegImage1.Repaint;
+  end;
+end;
+
+procedure TForm1.PRPage1PrintPage(Sender: TObject; ACanvas: TPRCanvas);
+var
+  Dest: TPRDestination;
+begin
+  // create a new destination for the current page.
+  Dest := PReport1.CreateDestination;
+
+  // setting the properties for the destination object.
+  with Dest do
+  begin
+    DestinationType := dtXYZ;
+    Left := -10;
+    Top := -10;
+    Zoom := 1;
+  end;
+
+  // set the destination object as the open-action.
+  PReport1.OpenAction := Dest;
+end;
+
+initialization
+  {$i Unit1.lrs}
+
+end.