PDF view

I updated the code. I also made the image look more like a page.

For me it works fine. If you have any suggestions, commands or additions please let me know

unit pdfview;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,uiSEDQuickPDF, ExtCtrls,Jpeg,printers;

type
 Tborder = record
  height: integer;
  width: integer;
 end;

 Tpage =record
  height:integer;
  width:integer;
  first :integer;
  last  :integer;
  Number: integer;
 end;

 TQuickPDFViewer = class(Tscrollbox)
  private
   Image  :Timage;
   QP     : TiSEDQuickPDF;
   FFileName: string;
   Border: Tborder;
   Page:Tpage;
   FLastPage: integer;
   FFirstPage: integer;

   procedure set_LoadFile(const FileName: string);
   procedure makePages;
   procedure setFirstPage(const Value: integer);
   procedure setLastPage(const Value: integer);
  protected
   defaultprinter: string;
   procedure HandleMessage(var Msg: TMsg; var Handled: Boolean);
  public
   constructor create(Aowner:Tcomponent); override;
   destructor destroy; override;
   procedure show;
   procedure Print;  
  published
   property LoadFile: string read FFileName write set_LoadFile;
   property FirstPage: integer read FFirstPage write setFirstPage;
   property LastPage: integer read FLastPage write setLastPage;

 end;
implementation

{ TQuickPDFViewer }

constructor TQuickPDFViewer.create(Aowner: Tcomponent);
begin
inherited create(Aowner);
parent:=Twincontrol(Aowner);
visible:=false;
Left:=0;
Top:=0;
height:=Twincontrol(Aowner).Height -40;
width:=Twincontrol(Aowner).width -100;
border.height:=40;
border.width:=30;
image:= TImage.create(self);
image.Parent:=self;
QP := TiSEDQuickPDF.Create;
QP.UnlockKey('...'); //fill in you key I'm not gonna make a mistake twice ;-)
invalidate;
application.OnMessage :=handleMessage;
defaultprinter:='odprn005';  //This is the printername wich I used plaese fill in a valid one fot your case
end;

destructor TQuickPDFViewer.destroy;
begin
  image.Free;
  QP.free;
  inherited;
end;

//I need this because I have some trouble with scrolling

procedure TQuickPDFViewer.HandleMessage(var Msg: TMsg;
  var Handled: Boolean);
begin
if Msg.Message = WM_MOUSEWHEEL then
begin
 Msg.lParam    := 0;
 if Msg.wParam > 0 then
  self.VertScrollBar.Position:=self.VertScrollBar.Position-75
 else
  self.VertScrollBar.Position:=self.VertScrollBar.Position+75;
 Handled := true;
end;

end;

procedure TQuickPDFViewer.makePages;
var i: integer;
begin

 image.Top :=0;
 image.Left:=0;
 image.Height :=page.Height*page.Number  +(page.Number+1)*border.height;
 image.Width :=page.Width +2*border.width ;
 image.Canvas.Brush.Color :=clgray;
 image.Canvas.Brush.style :=bsSolid;
 image.Canvas.Pen.Style :=Psclear;
 image.Canvas.Rectangle(0,0,border.width ,image.height);
 image.Canvas.Rectangle(image.Width-border.width,0,image.Width ,image.height);

 for i:=0 to page.Number  do
 begin
  image.Canvas.Rectangle(0,(i* (border.height+page.height)),image.Width ,(i* (border.height+page.height))+border.height);
 end;

 image.Canvas.Brush.Color :=clgray;
 image.Canvas.Brush.style :=bsClear;
 image.Canvas.Pen.Style :=psSolid;
 image.Canvas.Pen.color :=clblack;

 for i:=0 to page.Number-1  do
 begin
  image.Canvas.Rectangle(border.width-1,((i+1)*border.height)-1+(i*page.height) ,image.Width - border.width+1,(page.Height+border.height)*(i+1)+1);
 end;

end;

procedure TQuickPDFViewer.Print;
begin

QP.PrintDocument(defaultprinter,firstpage,lastpage,0);
end;

procedure TQuickPDFViewer.setFirstPage(const Value: integer);
begin
  FFirstPage := Value;
  page.first:=value;
  page.number:=page.last-page.first+1;
end;

procedure TQuickPDFViewer.setLastPage(const Value: integer);
begin
  FLastPage := Value;
  page.last:=value;
  page.number:=page.last-page.first+1;

end;

procedure TQuickPDFViewer.set_LoadFile(const FileName: string);
var
 JpegStream:Tmemorystream;
 JPEG      : TJpegImage;
begin
FFileName := FileName;
JPEG:=TJpegImage.create;
JpegStream:=Tmemorystream.Create;
try
//
 QP.LoadFromFile(filename);
 FirstPage:=1;
 LastPage:=QP.PageCount;
 QP.RenderPageToStream(75,1,1,jpegstream);
 jpegstream.Seek(0,0);
 JPEG.LoadFromStream(jpegstream);
 page.height :=jpeg.Height ;
 page.width :=jpeg.width ;
finally
 jpegstream.Free ;
 JPEG.Free ;
end;
end;

procedure TQuickPDFViewer.show;
var i,j: integer;
 JpegStream:Tmemorystream;
 JPEG      : TJpegImage;
 JpegImage: Timage;
begin
MakePages;
JPEG:=TJpegImage.create;
JpegStream:=Tmemorystream.Create;
JpegImage:=Timage.Create(self);
try
 j:=0;
 for i:=FirstPage to LastPage do
 begin
  if i > qp.PageCount then
  begin
   visible:=true;
   exit;
  end;
  jpegstream.Clear;
  QP.RenderPageToStream(75,i,1,jpegstream);
  jpegstream.Seek(0,0);
  JPEG.LoadFromStream(jpegstream);
  jpegimage.Picture.Assign(JPEG);
  image.Canvas.Draw(border.width,(j+1)*border.height+ j*page.height,jpegimage.Picture.Graphic);
  inc(j);
 end;
 visible:=true;
finally
 jpegstream.Free ;
 JPEG.Free ;
 jpegimage.free;
end;

end;

end.