AutoCursors did not work with my copy of Version 5.0 either, so I investigated my version and found two lines of code were remarked. When I removed the remarks autocursors preformed as expected.
For Autocursors to work as you describe you must do the following:
1. The AutoCursors property must be true:
ImageEnView.AutoCursors := True;
2. MouseInteract must be miScroll
ImageEnView1.MouseInteract := [miScroll];
Then change this if your versions code is the same:
ImageEnView.pas:
procedure TImageEnView.SetCursor(Value: TCursor);
begin
if assigned(fOnSetCursor) then
fOnSetCursor(self, Value);
fLCursor := Value;
inherited Cursor := Value;
fCursor := Value;
Windows.SetCursor(Screen.Cursors[Value]); {was remarked so AutoCursors fail}
end;
procedure TImageEnView.SetTempCursor(Value: TCursor);
begin
if assigned(fOnSetCursor) then
fOnSetCursor(self, Value);
if fAutoCursors then
begin
inherited Cursor := Value;
fCursor := Value;
Windows.SetCursor(Screen.Cursors[Value]); {[b]was remarked so AutoCursors fail}[\b]
[b]end;
end;
ImageEnVect is a descendent of ImageEnView so this should fix ImageEnVect as well.
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html
Search
