Declaration
property WipeLineColor: TColor;
Description
WipeLineColor and
WipeLineWidth specify the style of the line that is used as the border between the old image and new image during a transition.
It is used only when
AlternativeStyle is enabled, and applies to the following
transition effects:
iettLeftRight, iettRightLeft, iettUpDown, iettDownUp,
iettMoveLeftRight1, iettMoveRightLeft1, iettMoveUpDown1, iettMoveDownUp1,
iettMoveLeftRight2, iettMoveRightLeft2, iettMoveUpDown2, iettMoveDownUp2,
iettExpandInFromSides, iettExpandInFromTopAndBottom, iettExpandOutFromHorizon, iettExpandOutFromVerticalCenter,
iettWipeFromTopLeft, iettWipeFromTopRight, iettWipeFromBottomLeft, iettWipeFromBottomRight, iettWipeInFromTopAndBottom,
iettWipeFromHorizon, iettWipeInFromSides, iettWipeOutFromVerticalCenter,
iettSlideInFromLeft, iettSlideInFromRight, iettSlideInFromTop, iettSlideInFromBottom,
iettWipeDiagonalFromTopLeft, iettWipeDiagonalFromTopRight, iettWipeDiagonalFromBottomLeft, iettWipeDiagonalFromBottomRight,
iettDiagonalSweepClockwise, iettDiagonalSweepCounterClockwise,
iettPushLeftAndSlideOut, iettPushRightAndSlideOut, iettPushUpAndSlideOut, iettPushDownAndSlideOut,
iettPushAndSqueezeLeft, iettPushAndSqueezeRight, iettPushAndSqueezeUp, iettPushAndSqueezeDown
Default: clOrangeRed ($004646FF)
// Display a thin red gray for a wipe transition
ImageEnView1.TransitionParams.WipeLineColor := clGray;
ImageEnView1.TransitionParams.WipeLineWidth := 1;
ImageEnView1.TransitionParams.AlternativeStyle := True;
ImageEnView1.PrepareTransition();
ImageEnView1.IO.LoadFromFile( NextImage );
ImageEnView1.RunTransition( iettLeftRight , 2000 );
// Slide Transition from old.bmp to new.bmp ensuring that both are shown as the same height
procedure TForm1.btnCompareClick(Sender: TObject);
const
Display_Zoom = 100;
Center_Image = True;
var
bh: Integer;
iz: Double;
begin
// Get original image as transition start
ImageEnView1.IO.LoadFromFile( ExtractFilePath( Application.ExeName ) + 'old.bmp' );
ImageEnView1.Zoom := Display_Zoom;
if Center_Image then
ImageEnView1.CenterImage()
else
ImageEnView1.SetViewXY( 0, 0 );
bh := ImageEnView1.IEBitmap.Height;
iz := ImageEnView1.Zoom;
ImageEnView1.PrepareTransition();
// Load second image as transition result (Zoom to match display size of old image)
ImageEnView1.IO.LoadFromFile( ExtractFilePath( Application.ExeName ) + 'new.bmp' );
ImageEnView1.Zoom := iz / ( ImageEnView1.IEBitmap.Height / bh );
if Center_Image then
ImageEnView1.CenterImage()
else
ImageEnView1.SetViewXY( 0, 0 );
// Run the transition
ImageEnView1.TransitionParams.AlternativeStyle := True; // Include transition line
ImageEnView1.TransitionParams.WipeLineColor := clYellow;
ImageEnView1.RunTransition( iettRightLeft, 3000 ); // Wipe Right to Left
end;