procedure TForm1.FormCreate(Sender: TObject);
begin
ImageEnView1.Gestures.Pan.Enabled := True;
ImageEnView1.Gestures.Zoom.Enabled := True;
ImageEnView2.Gestures.Pan.Enabled := True;
ImageEnView2.Gestures.Zoom.Enabled := True;
ImageEnView1.IO.LoadFromFile('G:\Images\Microsoft\Monarch.jpg');
ImageEnView2.IO.LoadFromFile('G:\Images\Microsoft\Monarch.jpg');
end;
procedure TForm1.ImageEnView1ViewChange(Sender: TObject; Change: Integer);
begin
ImageEnView2.ViewX := ImageEnView1.ViewX;
ImageEnView2.ViewY := ImageEnView1.ViewY;
end;
procedure TForm1.ImageEnView2ViewChange(Sender: TObject; Change: Integer);
begin
ImageEnView1.ViewX := ImageEnView2.ViewX;
ImageEnView1.ViewY := ImageEnView2.ViewY;
end;
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development