unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,
  imageenview, ieview, ievect;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ImageEnVect1: TImageEnVect;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    CheckBox1: TCheckBox;
    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}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ImageEnVect1.ObjKind[IEV_NEXT_INSERTED_OBJECT] := iekBOX;
  ImageEnVect1.SetObjRect(IEV_NEXT_INSERTED_OBJECT, Rect(10, 10, 100, 100));
  ImageEnVect1.ObjPenColor[IEV_NEXT_INSERTED_OBJECT] := clRed;
  ImageEnVect1.ObjBrushColor[IEV_NEXT_INSERTED_OBJECT] := clRed;
  ImageEnVect1.ObjBrushStyle[IEV_NEXT_INSERTED_OBJECT] := bsSolid;
  ImageEnVect1.AddNewObject;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ImageEnVect1.ObjCopyToClipboard;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if CheckBox1.Checked then
     ImageEnVect1.UnSelAllObjects;
  ImageEnVect1.ObjPasteFromClipboard(0,0);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ImageEnVect1.MouseInteractVt := [miObjectSelect];
end;

end.

procedure TForm1.ObjPaste1Click(Sender: TObject);
{ Paste1Click. }
begin
  ImageEnVect1.UnSelAllObjects;
  ImageEnVect1.ObjPasteFromClipboard(5, 5); 
end;

procedure TForm1.MergeSelectedObjects1Click(Sender: TObject);
{ MergeSelectedObjects. }
var
  i: Integer;
  ihObj: Integer;
begin
  ImageEnVect1.ObjSaveUndo;
  { Remove the selected object }
  for i := ImageEnVect1.ObjectsCount - 1 downto 0 do
  begin
    ihObj := ImageEnVect1.GetObjFromIndex(i);
    if ImageEnVect1.IsSelObject(ihObj) then
    begin
      { Merge vectorial objects with the background image }
      ImageEnVect1.CopyObjectToBack(ihObj, True, True);
      ImageEnVect1.UnSelObject(ihObj);
      { Remove the object }
      ImageEnVect1.RemoveObject(ihObj);
      { Deselect hobj object }
      ImageEnVect1.UnSelObject(ihObj);
      { Remove the object from the ListView }
      ListViewObjects1.Items[i].Delete;
    end;
    Break;
  end;
end;

procedure TForm1.MergeAllObjects1Click(Sender: TObject);
{ MergeAllObjects. }
begin
  if ImageEnVect1.ObjectsCount > 0 then
  begin
    ImageEnVect1.Proc.SaveUndo;
    { Merge vectorial objects with the background image }
    ImageEnVect1.CopyObjectsToBack(Antialias1.Checked,
      AdaptBitmapPixelFormat1.Checked);
    ImageEnVect1.RemoveAllObjects;
    ImageEnVect1.Update;
  end;
end;