I am afraid it is not possible to zoom a specific layer, but you can magnify it:
// Magnify layer
procedure Tfmain.CheckBox1Click(Sender: TObject);
begin
with ImageEnView1 do
begin
CurrentLayer.Magnify.Enabled := CheckBox1.checked;
Update;
end;
end;
// Magnification
procedure Tfmain.TrackBar3Change(Sender: TObject);
begin
with ImageEnView1 do
begin
CurrentLayer.Magnify.Rate := TrackBar3.Position / 10;
Update;
end;
end;
You can see this in action in the Layers demo.
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html
Custom ImageEn Development
Search
