Show current frame number on Crop window status bar

Changelog.md

@@ -1,5 +1,5 @@
 <!--
-v2.13.0 (not published yet)
+v2.14.0 (not published yet)
 ====================
 
 - 
@@ -9,7 +9,8 @@ v2.13.0 (not published yet)
 ====================
 
 - x265: Add "--aq-bias-strength" param for AQ Modes 3 and 5
-- svt-av1: Add and update multiple params
+- svt-av1: Add and update multiple params ([#863](/../../issues/863))
+- Show current frame number on Crop window on status bar
 
 
 v2.12.0 (2022-04-19)

Source/Forms/CropForm.vb

@@ -338,6 +338,7 @@ Public Class CropForm
     Sub TrackLength_Scroll() Handles tbPosition.Scroll
         Renderer.Position = tbPosition.Value
         Renderer.Draw()
+        UpdateAll()
     End Sub
 
     Protected Overrides Sub OnSizeChanged(args As EventArgs)
@@ -497,12 +498,13 @@ Public Class CropForm
         Dim err = If(isResized AndAlso Not isValidAnamorphicSize, Calc.GetAspectRatioError.ToString("f2") + "%", "n/a")
 
         laStatus.Text =
-            "  Size: " & cropw & "/" & croph &
-            "  X: " & p.CropLeft & "/" & p.CropRight &
-            "  Y: " & p.CropTop & "/" & p.CropBottom &
-            "  Mod: " + Calc.GetMod(cropw, croph, False) +
-            "  Error: " + err +
-            "  DAR: " + Calc.GetTargetDAR().ToString("f6")
+            "  Frame: " & Renderer.Position.ToString().PadLeft(5) &
+            "  |  Size: " & cropw & "/" & croph &
+            "  |  X: " & p.CropLeft & "/" & p.CropRight &
+            "  |  Y: " & p.CropTop & "/" & p.CropBottom &
+            "  |  Mod: " + Calc.GetMod(cropw, croph, False) +
+            "  |  Error: " + err +
+            "  |  DAR: " + Calc.GetTargetDAR().ToString("f6")
     End Sub
 
     Sub pVideo_MouseMove(sender As Object, e As MouseEventArgs) Handles pnVideo.MouseMove
@@ -673,6 +675,7 @@ Public Class CropForm
         Renderer.Position += offset
         tbPosition.Value = Renderer.Position
         Renderer.Draw()
+        UpdateAll()
     End Sub
 
     <Command("Opens the help of the crop dialog.")>
@@ -702,4 +705,5 @@ Public Class CropForm
     Sub tsbMenu_Click(sender As Object, e As EventArgs) Handles tsbMenu.Click
         ContextMenuStrip.Show(MousePosition)
     End Sub
+
 End Class

Source/My Project/AssemblyInfo.vb

@@ -7,6 +7,6 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCopyright("Copyright (C) 2002-2022 StaxRip Authors")>
 <Assembly: ComVisible(False)> 
 <Assembly: Guid("54d5dc0f-6ba7-42f0-a82f-9c71d561cb8b")>
-<Assembly: AssemblyVersion("2.12.2")>
-<Assembly: AssemblyFileVersion("2.12.2")>
+<Assembly: AssemblyVersion("2.12.3")>
+<Assembly: AssemblyFileVersion("2.12.3")>
 <Assembly: AssemblyDescription("Video encoding app")>