75 lines
2.0 KiB
Plaintext
75 lines
2.0 KiB
Plaintext
unit Unit1;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, {$IfNDef VER130} Variants, {$EndIf} Classes, Graphics, Controls, Forms,
|
|
Dialogs, ieview, imageenview, ComCtrls, StdCtrls, Buttons, hyieutils, iexBitmaps, hyiedefs, iesettings,
|
|
iexLayers, iexRulers;
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
ImageEnView1: TImageEnView;
|
|
BitBtn_OpenImage: TBitBtn;
|
|
BitBtn_crop: TBitBtn;
|
|
CheckBox_fit: TCheckBox;
|
|
TrackBar_ImageEn_Zoom: TTrackBar;
|
|
Label1: TLabel;
|
|
procedure BitBtn_OpenImageClick(Sender: TObject);
|
|
procedure BitBtn_cropClick(Sender: TObject);
|
|
procedure CheckBox_fitClick(Sender: TObject);
|
|
procedure TrackBar_ImageEn_ZoomChange(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
{$R WindowsTheme.res}
|
|
|
|
procedure TForm1.BitBtn_OpenImageClick(Sender: TObject);
|
|
begin
|
|
imageenview1.IO.LoadFromFile(ImageEnView1.io.ExecuteOpenDialog('', '', false, 1, ''));
|
|
imageenview1.MouseInteract := [miSelect]; //go for rectangular area
|
|
TrackBar_ImageEn_Zoom.Position := Round(ImageEnView1.Zoom); //zet trackbar for zoom in and out
|
|
end;
|
|
|
|
procedure TForm1.BitBtn_cropClick(Sender: TObject);
|
|
begin
|
|
//ImageEnView1.AssignSelTo(ImageEnView1);
|
|
if ( imageenview1.Selected )
|
|
then ImageEnView1.Proc.CropSel
|
|
else ShowMessage ('Please select an area to crop with your mouse first!');
|
|
ImageEnView1.Deselect;
|
|
end;
|
|
|
|
procedure TForm1.CheckBox_fitClick(Sender: TObject);
|
|
begin
|
|
if (sender as TCheckBox).Checked then
|
|
begin
|
|
ImageEnView1.AutoFit := true;
|
|
ImageEnView1.Fit;
|
|
TrackBar_ImageEn_Zoom.Position := Round(ImageEnView1.Zoom);
|
|
TrackBar_ImageEn_Zoom.Enabled := false;
|
|
end
|
|
else
|
|
begin
|
|
ImageEnView1.AutoFit := false;
|
|
TrackBar_ImageEn_Zoom.Enabled := true;
|
|
ImageEnView1.Zoom := TrackBar_ImageEn_Zoom.Position;
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.TrackBar_ImageEn_ZoomChange(Sender: TObject);
|
|
begin
|
|
ImageEnView1.Zoom := TrackBar_ImageEn_Zoom.Position;;
|
|
end;
|
|
|
|
end.
|