unit umain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ieview, iemview, ieopensavedlg, Menus, ExtCtrls, imageenview, 
  imageenio, hyieutils, iexBitmaps, hyiedefs, iesettings, iexLayers, iexRulers;

type
  TForm1 = class(TForm)
    ImageEnMView1: TImageEnMView;
    OpenImageEnDialog1: TOpenImageEnDialog;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormResize(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
{$R WindowsTheme.res}



// resize

procedure TForm1.FormResize(Sender: TObject);
begin
  ImageEnMView1.ScrollBars := ssNone;
  ImageEnMView1.ThumbWidth := ImageEnMView1.Width;
  ImageEnMView1.ThumbHeight := ImageEnMView1.Height;
end;

// prev page

procedure TForm1.Button1Click(Sender: TObject);
begin
  ImageEnMView1.VisibleFrame := ImageEnMView1.VisibleFrame - 1;
end;

// next page

procedure TForm1.Button2Click(Sender: TObject);
begin
  ImageEnMView1.VisibleFrame := ImageEnMView1.VisibleFrame + 1;
end;

// File Open
procedure TForm1.Button3Click(Sender: TObject);
begin 
  if OpenImageEnDialog1.Execute then
  begin
    ImageEnMView1.MIO.LoadFromFile(OpenImageEnDialog1.FileName);
    ImageEnMView1.VisibleFrame := 0;
    ImageEnMView1.EnableResamplingOnMinor := false;
  end;
end;
       
// print page

procedure TForm1.Button4Click(Sender: TObject);
var
  ie: TImageEnView;
begin
  ie := TImageEnView.Create(nil);
  ie.Assign(ImageEnMView1.GetBitmap(ImageEnMView1.VisibleFrame));
  ImageEnMView1.ReleaseBitmap(ImageEnMView1.VisibleFrame);
  ie.IO.DialogsMeasureUnit := ieduCm;
  ie.DpiX := ImageEnMView1.MIO.Params[ImageEnMView1.VisibleFrame].DpiX;
  ie.DpiY := ImageEnMView1.MIO.Params[ImageEnMView1.VisibleFrame].DpiY;
  ie.IO.DoPrintPreviewDialog(iedtDialog, 'Print Thumbnail');
  ie.free;             
end;


end.