' ------------------------------------------------------------------------------------
'					CopyRcCrop.vbs
' Advance to the next picture and copy the cropping rectangle from previous picture
' ------------------------------------------------------------------------------------

Option Explicit
'app.ClearTrace

  dim alb, j, pic, pic2, rcCrop
  set alb = app.GetCurrentAlbum

  j = alb.nCurrentPicture
  Set pic = alb.GetVisiblePicture(j)
'app.trace j & " : " & pic.sShortFileName
  j = j+1
  ' Move to the next picture
  alb.nCurrentPicture = j
  Set pic2 = alb.GetVisiblePicture(j)
'app.trace j & " : " & pic2.sShortFileName

  ' Copy the rcCrop
  set rcCrop = pic.rcCrop
  set pic2.rcCrop = rcCrop
  app.StatusBarText = "Crop rectangles is = (" & rcCrop.x & "," & rcCrop.y & ")  [" & rcCrop.w & "x" & rcCrop.h & "]"
  set rcCrop = Nothing

  alb.Redraw