//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)

#pragma link "hyiedefs"
#pragma link "hyieutils"
#pragma link "iesettings"
#pragma link "iexLayers"
#pragma link "iexRulers"
#pragma link "ieopensavedlg"
#pragma link "iexBitmaps"
#pragma link "ieview"
#pragma link "imageenio"
#pragma link "imageenview"
#pragma resource "*.dfm"

TForm1 *Form1;
TPrinter *PRN;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
//---------------------------------------------------------------------------
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button0Click(TObject *Sender)
//---------------------------------------------------------------------------
{
   TIETIFFHandler *tiffs=new TIETIFFHandler();
   TMemoryStream  *tmp  =new TMemoryStream();
   TIEBitmap      *iebmp=new TIEBitmap();
   TImageEnIO     *IO   =new TImageEnIO(iebmp);
   TBitmap        *bmp  =new TBitmap;

   bmp->Width  = 2479;
   bmp->Height = 3508;

   PRN=Printer();

   OpenFileDlg->Execute();

   if(OpenFileDlg->FileNameW!="")
   {
	 PRN->BeginDoc();
	 PRN->Canvas->CopyMode=cmSrcCopy;

	 tiffs->ReadFile(OpenFileDlg->FileNameW);
	 int pages=tiffs->GetPagesCount();

	 Button0->Caption=IntToStr(pages)+" Pages";

	 for(int i=0; i<pages; i++) // print all pages of the tif-file
	 {
	   tmp->Position=0; tiffs->WriteStream(tmp,i);
	   tmp->Position=0; IO->LoadFromStreamTIFF(tmp);

	   // render to intermediate bitmap (this step is not really necessary)
	    iebmp->RenderToCanvas(bmp->Canvas,0,0,2479,3508,rfFastLinear,0,clWhite);

	   PRN->Canvas->StretchDraw(PRN->Canvas->ClipRect,bmp);
	   if(i<pages-1)PRN->NewPage();

	   //  IM->Picture->Bitmap->Assign(bmp); // TImage control on Form1
	   Button0->Caption=IntToStr(pages)+" Pages printed";
	 }

	 PRN->EndDoc();
   }

   delete bmp;
   delete IO;
   delete iebmp;
   delete tmp;
   delete tiffs;
}
//---------------------------------------------------------------------------