ImageEn, unit iexTransitions

TIETransitionParams.WipeLineColor

TIETransitionParams.WipeLineColor


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)


Examples

// 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;