106 lines
2.3 KiB
Plaintext
106 lines
2.3 KiB
Plaintext
unit Unit1;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, ieview, ImageEnView, IEVect, ComCtrls, ExtCtrls, hyieutils, iexBitmaps,
|
|
hyiedefs, iesettings, iexLayers, iexRulers;
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
ImageEnView1: TImageEnView;
|
|
Panel1: TPanel;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
Label5: TLabel;
|
|
Button1: TButton;
|
|
Button2: TButton;
|
|
Button3: TButton;
|
|
Button4: TButton;
|
|
Button5: TButton;
|
|
Button7: TButton;
|
|
TrackBar1: TTrackBar;
|
|
procedure Button2Click(Sender: TObject);
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure Button3Click(Sender: TObject);
|
|
procedure Button4Click(Sender: TObject);
|
|
procedure Button5Click(Sender: TObject);
|
|
procedure Button7Click(Sender: TObject);
|
|
procedure TrackBar1Change(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
{$R WindowsTheme.res}
|
|
|
|
// Open...
|
|
procedure TForm1.Button2Click(Sender: TObject);
|
|
begin
|
|
with ImageEnView1.IO do
|
|
LoadFromFile(ExecuteOpenDialog('', '', false, 1, ''));
|
|
end;
|
|
|
|
// select polygon
|
|
procedure TForm1.Button3Click(Sender: TObject);
|
|
begin
|
|
ImageEnView1.LayersCurrent := 0;
|
|
ImageEnView1.MouseInteract := [miSelectPolygon];
|
|
end;
|
|
|
|
// Select ellipse
|
|
procedure TForm1.Button4Click(Sender: TObject);
|
|
begin
|
|
ImageEnView1.LayersCurrent := 0;
|
|
ImageEnView1.MouseInteract := [miSelectCircle];
|
|
end;
|
|
|
|
// select rectangle
|
|
procedure TForm1.Button7Click(Sender: TObject);
|
|
begin
|
|
ImageEnView1.LayersCurrent := 0;
|
|
ImageEnView1.MouseInteract := [miSelect];
|
|
end;
|
|
|
|
// Copy and paste
|
|
procedure TForm1.Button1Click(Sender: TObject);
|
|
begin
|
|
ImageEnView1.LayersCreateFromSelection();
|
|
ImageEnView1.MouseInteract := [ miMoveLayers, miResizeLayers ];
|
|
ImageEnView1.Update();
|
|
|
|
{
|
|
Or if you are using a TImageEnVect:
|
|
hobj := ImageEnVect1.CreateImageFromSelectedArea(0, false);
|
|
//
|
|
ImageEnVect1.DeSelect;
|
|
ImageEnVect1.UnSelAllObjects;
|
|
ImageEnVect1.AddSelObject(hobj);
|
|
ImageEnVect1.Update;
|
|
}
|
|
end;
|
|
|
|
// select/move objects
|
|
procedure TForm1.Button5Click(Sender: TObject);
|
|
begin
|
|
ImageEnView1.MouseInteract := [ miMoveLayers, miResizeLayers ];
|
|
end;
|
|
|
|
// zoom
|
|
procedure TForm1.TrackBar1Change(Sender: TObject);
|
|
begin
|
|
ImageEnView1.Zoom := TrackBar1.Position;
|
|
end;
|
|
|
|
end.
|