From d024caa13a251b651ebb8ff58fb7cafb9ca7c080 Mon Sep 17 00:00:00 2001
From: Dendraspis <dendraspis@gmx.net>
Date: Wed, 20 Apr 2022 22:12:08 +0200
Subject: [PATCH] Show current frame number on Crop window status bar

---
 Changelog.md                      |  5 +++--
 Source/Forms/CropForm.vb          | 16 ++++++++++------
 Source/My Project/AssemblyInfo.vb |  4 ++--
 3 files changed, 15 insertions(+), 10 deletions(-)

diff --git a/Changelog.md b/Changelog.md
index 2dd691cf..875bdaa9 100644
--- a/Changelog.md
+++ b/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)
diff --git a/Source/Forms/CropForm.vb b/Source/Forms/CropForm.vb
index 71432b0b..127f052b 100644
--- a/Source/Forms/CropForm.vb
+++ b/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
diff --git a/Source/My Project/AssemblyInfo.vb b/Source/My Project/AssemblyInfo.vb
index 179d8dd1..a1c66fa9 100644
--- a/Source/My Project/AssemblyInfo.vb	
+++ b/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")>