The current version no longer has:
AnImageEnView.TransitionRectMaintainAspectRatio,
AnImageEnView.TransitionStartRect,or
AnImageEnView.TransitionEndRect variables,
but
AnImageEnView.RunTransition has an overloaded method that handles these variables:
If you modify the demos source as shown below the application functions the same as it did in older versions.
// Perform a Pan Zoom transition effect
procedure TfrmMain.RunPanZoomTransition(AnImageEnView:TImageEnView;
sFilename:string;
StartRect:TRect;
EndRect:TRect;
iMilliseconds:Integer;
Timing:TIETransitionTiming=iettLinear);
begin
AnImageEnView.PrepareTransition;
AnImageEnView.io.loadfromfile(sFilename);
AnImageEnView.TransitionTiming:= Timing;
Memo1.clear;
Memo1.lines.add(format('Adjusted Start Rect: (%d,%d,%d,%d) W: %d, H: %d',
[StartRect.left,
StartRect.top,
StartRect.right,
StartRect.bottom,
rectwidth(StartRect),
rectheight(StartRect)]));
Memo1.lines.add(format('Adjusted End Rect: (%d,%d,%d,%d) W: %d, H: %d',
[EndRect.left,
EndRect.top,
EndRect.right,
EndRect.bottom,
rectwidth(EndRect),
rectheight(EndRect)]));
AnImageEnView.RunTransition(iettPanZoom, iMilliseconds, StartRect, EndRect, chkTransitionRectMaintainAspectRatio.checked);
AnImageEnView.update;
Memo1.lines.add(format('End Position: (%d,%d) %d%%',
[AnImageEnView.ViewX,AnImageEnView.ViewY,round(AnImageEnView.Zoom)]));
end;
William Miller
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html
Search
PanZoom Demo
Posted - Nov 16 2012 : 06:00:01
