unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ImageEnView, IEMView, StdCtrls, FileCtrl, ImageEnIO, ComCtrls, ieview, hyiedefs,
  ExtCtrls, hyieutils, iexBitmaps, iesettings, iexLayers, iexRulers;

type
  TForm1 = class(TForm)
    GroupBox1: TPanel;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    ImageEnMView1: TImageEnMView;
    StatusBar1: TStatusBar;
    ImageEnView1: TImageEnView;
    CheckBox2: TCheckBox;
    CheckBox4: TCheckBox;
    Splitter1: TSplitter;
    CheckBox7: TCheckBox;
    Label1: TLabel;
    Edit1: TEdit;
    UpDown1: TUpDown;
    Label2: TLabel;
    Button1: TButton;
    ColorDialog1: TColorDialog;
    Button2: TButton;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    Button3: TButton;
    procedure DirectoryListBox1Change(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    selcolor: TColor;
    unselcolor: TColor;
  end;

var
  Form1: TForm1;

implementation

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

//

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
  ImageEnMView1.Clear;
  ImageEnMView1.FillFromDirectory(DirectoryListBox1.Directory);
  //
  ImageEnMView1.SelectedImage := 0;
  ImageEnView1.io.LoadFromFile(ImageEnMView1.ImageFileName[0]);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  ImageEnView1.GradientEndColor := clGray;
  ImageenMView1.SoftShadow.Enabled := false;
  imageenmview1.SoftShadow.Enabled:=false;

  //ImageEnMView1.MIO.AutoAdjustDPI:=true;

  unselcolor := clWhite;
  selcolor := clLime;

  UpDown1Click(self, btNext);
  DirectoryListBox1Change(self);

end;

procedure TForm1.ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
begin
  if checkbox1.checked then
    ImageEnView1.io.LoadFromFile(ImageEnMView1.ImageFileName[idx]);
end;

// softshadow

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  ImageEnMView1.SoftShadow.Enabled := CheckBox2.Checked;
  ImageEnMView1.Update;
end;

// wall paper

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
  if CheckBox4.Checked then
    ImageEnMView1.WallPaper.LoadFromFile(extractfilepath(paramstr(0)) + 'wallpaper.bmp')
  else
    ImageEnMView1.WallPaper := nil;
  ImageEnMView1.Update;
end;

// Thumbnails rounded

procedure TForm1.CheckBox7Click(Sender: TObject);
begin
  if CheckBox7.Checked then
    ImageEnMView1.ThumbsRounded := 5
  else
    ImageEnMView1.ThumbsRounded := 0;
  ImageEnMView1.Update;
end;

// changes style

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  ImageEnMView1.SetPresetThumbnailFrame(UpDown1.Position, unselcolor, selcolor);
  ImageEnMView1.ShowText := CheckBox3.Checked;
end;

// select selected color

procedure TForm1.Button1Click(Sender: TObject);
begin
  ColorDialog1.Color := selcolor;
  if ColorDialog1.Execute then
  begin
    selcolor := ColorDialog1.Color;
    UpDown1Click(self, btNext);
  end;
end;

// select unselected color

procedure TForm1.Button2Click(Sender: TObject);
begin
  ColorDialog1.Color := unselcolor;
  if ColorDialog1.Execute then
  begin
    unselcolor := ColorDialog1.Color;
    UpDown1Click(self, btNext);
  end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  ImageEnView1.Visible:=CheckBox1.Checked;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
  ImageEnMView1.ShowText := CheckBox3.Checked;
end;

// reload the image
procedure TForm1.Button3Click(Sender: TObject);
begin
  ImageEnMView1.ReloadImage( ImageEnMView1.SelectedImage );
end;

end.