Hi Bruce,
Do you want to move layer 0 around when using objects or layers?
ImageEnVect also allows you to remove the scrollbars and move the background layer around with the mouse as well.
Here with objects all you have to do to move the background layer around when zoomed is to:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Down then
begin
// turn off the scrollbars
ImageEnVect1.ScrollBars := ssNone;
// user can navigate the image with a left click and mouse movement.
ImageEnVect1.MouseInteract := [miScroll];
// set the cursor to crHand
ImageEnVect1.Cursor := 1782;
end
else
begin
// turn on the scrollbars
ImageEnVect1.ScrollBars := ssBoth;
ImageEnVect1.MouseInteract := [];
// allow selecting objects
ImageEnVect1.MouseInteractVt := [miObjectSelect];
ImageEnVect1.Cursor := 1785;
end;
end;William Miller
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html
Search
