v5

2025-06-29 23:17:33 +02:00
parent 79f0c997a2
commit 678f350406
3 changed files with 942 additions and 150 deletions
--- a/ReencodeFfmpeg.pb
+++ b/ReencodeFfmpeg.pb
--- a/ReencodeFfmpeg.pbf
+++ b/ReencodeFfmpeg.pbf
@@ -9,31 +9,46 @@

 Global Window_0

-Global Text_0, inputFile, in_open, Text_0_Copy1, outputFile, out_open, wait_text, start, normalize, Text_1, Text_1_Copy1, Frame_0, ultrafast, superfast, veryfast, faster, fast, medium, slow, slower, veryslow, download_text
+Global Text_0, inputFile, in_open, Text_0_Copy1, outputFile, out_open, wait_text, start, normalize, Text_1, Text_1_Copy1, Frame_0, ultrafast, superfast, veryfast, faster, fast, medium, slow, slower, veryslow, download_text, Frame_1, Frame_3, height_spin, width_spin, Text_2, Text_2_Copy1, getResolution, res_help, Frame_3_Copy1, Text_2_Copy1, fps_spin, getFps, fps_help, use_advanced, advanced_cmd, advanced_help, Frame_3_Copy1_Copy1, cut_help, Text_2_Copy2, start_spin, duration_spin, cancel_download, getDuration, select_duration, select_end

 Enumeration FormMenu
-  #MenuItem_2
-  #MenuItem_3
+  #MenuItem_8
+  #MenuItem_6
  #MenuItem_4
+  #MenuItem_3
  #MenuItem_5
+  #MenuItem_10
 EndEnumeration

+Declare EnsureFFmpeg(Event)
 Declare CheckUpdate(Event)
 Declare About(Event)
 Declare PCRELicense(Event)
 Declare RemoveFFmpeg(Event)
+Declare RemoveConfig(Event)
 Declare StartReencode(EventType)
+Declare HelpCut(EventType)
 Declare SelectOutput(EventType)
+Declare HelpFps(EventType)
+Declare GetDuration(EventType)
+Declare HelpResolution(EventType)
+Declare GetFps(EventType)
+Declare GetResolution(EventType)
 Declare SelectInput(EventType)
+Declare HelpAdvanced(EventType)
+Declare ToggleAdvanced(EventType)

-Procedure OpenWindow_0(x = 100, y = 100, width = 600, height = 390)
+Procedure OpenWindow_0(x = 100, y = 100, width = 970, height = 390)
  Window_0 = OpenWindow(#PB_Any, x, y, width, height, "FFmpeg Reencode", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar)
  CreateMenu(0, WindowID(Window_0))
+  MenuTitle("FFmpeg")
+  MenuItem(#MenuItem_8, "Check for FFmpeg")
+  MenuItem(#MenuItem_6, "Delete FFmpeg")
  MenuTitle("About")
-  MenuItem(#MenuItem_2, "Delete FFmpeg")
-  MenuItem(#MenuItem_3, "About")
  MenuItem(#MenuItem_4, "PCRE license (RegEx library)")
+  MenuItem(#MenuItem_3, "About")
  MenuItem(#MenuItem_5, "Check For Updates")
+  MenuItem(#MenuItem_10, "Delete Config File")
  Text_0 = TextGadget(#PB_Any, 10, 10, 100, 25, "Input File")
  inputFile = StringGadget(#PB_Any, 10, 30, 460, 25, "")
  GadgetToolTip(inputFile, "Input File")
@@ -42,9 +57,9 @@ Procedure OpenWindow_0(x = 100, y = 100, width = 600, height = 390)
  outputFile = StringGadget(#PB_Any, 10, 90, 460, 25, "")
  GadgetToolTip(outputFile, "Output File")
  out_open = ButtonGadget(#PB_Any, 480, 90, 110, 25, "Open...")
-  wait_text = TextGadget(#PB_Any, 220, 300, 170, 20, "Please wait for FFmpeg to finish")
+  wait_text = TextGadget(#PB_Any, 10, 280, 590, 50, "Please wait for FFmpeg to finish", #PB_Text_Center)
  SetGadgetColor(wait_text, #PB_Gadget_FrontColor,RGB(255,0,0))
-  start = ButtonGadget(#PB_Any, 250, 320, 100, 25, "Reencode")
+  start = ButtonGadget(#PB_Any, 50, 330, 100, 25, "Reencode")
  normalize = CheckBoxGadget(#PB_Any, 10, 130, 190, 25, "Normalize Audio (Experimental!)")
  Text_1 = TextGadget(#PB_Any, 230, 220, 360, 25, "Note: Higher encoding speeds result in less compression efficiency")
  Text_1_Copy1 = TextGadget(#PB_Any, 230, 240, 360, 25, "(Very Slow is about 80% smaller than Ultra Fast)")
@@ -61,6 +76,34 @@ Procedure OpenWindow_0(x = 100, y = 100, width = 600, height = 390)
  veryslow = OptionGadget(#PB_Any, 450, 190, 100, 25, "Very Slow")
  download_text = TextGadget(#PB_Any, 130, 280, 350, 20, "Downloading FFmpeg...", #PB_Text_Center)
  SetGadgetColor(download_text, #PB_Gadget_FrontColor,RGB(255,0,0))
+  Frame_1 = FrameGadget(#PB_Any, 610, 10, 350, 270, "Editing")
+  Frame_3 = FrameGadget(#PB_Any, 620, 40, 330, 70, "Video Resolution")
+  height_spin = SpinGadget(#PB_Any, 740, 80, 100, 25, -1, 0, #PB_Spin_Numeric)
+  GadgetToolTip(height_spin, "Height")
+  width_spin = SpinGadget(#PB_Any, 630, 80, 100, 25, -1, 0, #PB_Spin_Numeric)
+  GadgetToolTip(width_spin, "Width")
+  Text_2 = TextGadget(#PB_Any, 630, 60, 50, 20, "Width")
+  Text_2_Copy1 = TextGadget(#PB_Any, 740, 60, 50, 20, "Height")
+  getResolution = ButtonGadget(#PB_Any, 850, 80, 90, 25, "Get Resolution")
+  res_help = ButtonGadget(#PB_Any, 920, 60, 20, 20, "?")
+  Frame_3_Copy1 = FrameGadget(#PB_Any, 620, 120, 330, 70, "Video Framerate")
+  Text_2_Copy1 = TextGadget(#PB_Any, 630, 140, 50, 20, "FPS")
+  fps_spin = SpinGadget(#PB_Any, 630, 160, 100, 25, -1, 0, #PB_Spin_Numeric)
+  getFps = ButtonGadget(#PB_Any, 850, 160, 90, 25, "Get FPS")
+  fps_help = ButtonGadget(#PB_Any, 920, 140, 20, 20, "?")
+  use_advanced = CheckBoxGadget(#PB_Any, 790, 310, 140, 20, "Use Advanced Options")
+  advanced_cmd = StringGadget(#PB_Any, 200, 330, 750, 25, "")
+  advanced_help = ButtonGadget(#PB_Any, 930, 310, 20, 20, "?")
+  Frame_3_Copy1_Copy1 = FrameGadget(#PB_Any, 620, 200, 330, 70, "Cut Video")
+  cut_help = ButtonGadget(#PB_Any, 920, 220, 20, 20, "?")
+  Text_2_Copy2 = TextGadget(#PB_Any, 630, 220, 60, 20, "Start Time")
+  start_spin = SpinGadget(#PB_Any, 630, 240, 100, 25, -1, 0, #PB_Spin_Numeric)
+  duration_spin = SpinGadget(#PB_Any, 740, 240, 100, 25, -1, 0, #PB_Spin_Numeric)
+  cancel_download = ButtonGadget(#PB_Any, 250, 300, 110, 25, "Cancel Download")
+  getDuration = ButtonGadget(#PB_Any, 850, 240, 90, 25, "Get Duration")
+  select_duration = OptionGadget(#PB_Any, 740, 220, 70, 20, "Duration")
+  SetGadgetState(select_duration, 1)
+  select_end = OptionGadget(#PB_Any, 810, 220, 70, 20, "End Time")
 EndProcedure

 Procedure Window_0_Events(event)
@@ -70,14 +113,18 @@ Procedure Window_0_Events(event)

    Case #PB_Event_Menu
      Select EventMenu()
-        Case #MenuItem_2
+        Case #MenuItem_8
+          EnsureFFmpeg(EventMenu())
+        Case #MenuItem_6
          RemoveFFmpeg(EventMenu())
-        Case #MenuItem_3
-          About(EventMenu())
        Case #MenuItem_4
          PCRELicense(EventMenu())
+        Case #MenuItem_3
+          About(EventMenu())
        Case #MenuItem_5
          CheckUpdate(EventMenu())
+        Case #MenuItem_10
+          RemoveConfig(EventMenu())
      EndSelect

    Case #PB_Event_Gadget
@@ -88,6 +135,22 @@ Procedure Window_0_Events(event)
          SelectOutput(EventType())          
        Case start
          StartReencode(EventType())          
+        Case getResolution
+          GetResolution(EventType())          
+        Case res_help
+          HelpResolution(EventType())          
+        Case getFps
+          GetFps(EventType())          
+        Case fps_help
+          HelpFps(EventType())          
+        Case use_advanced
+          ToggleAdvanced(EventType())          
+        Case advanced_help
+          HelpAdvanced(EventType())          
+        Case cut_help
+          HelpCut(EventType())          
+        Case getDuration
+          GetDuration(EventType())          
      EndSelect
  EndSelect
  ProcedureReturn #True
--- a/ReencodeFfmpeg.pbp
+++ b/ReencodeFfmpeg.pbp
@@ -7,16 +7,16 @@
  <section name="data">
    <explorer view="C:\ProgramData\PureBasic\Examples\" pattern="0"/>
    <log show="1"/>
-    <lastopen date="2025-06-12 01:11" user="Ditin2" host="DESKTOP-SVLCQ1M"/>
+    <lastopen date="2025-06-26 19:29" user="Ditin2" host="DESKTOP-0BJ68TL"/>
  </section>
  <section name="files">
    <file name="ReencodeFfmpeg.pb">
      <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="1" panelstate="+"/>
-      <fingerprint md5="2d162bbd32a4c7a6dba6c22e0fdec2e3"/>
+      <fingerprint md5="6f505add65ce527c6514e03c7ddb853b"/>
    </file>
    <file name="ReencodeFfmpeg.pbf">
      <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="2" panelstate="+"/>
-      <fingerprint md5="e82656bbf02ec6bf76a97c826689cbed"/>
+      <fingerprint md5="855c9e40eb4e6be0ee105280d866cd1d"/>
    </file>
  </section>
  <section name="targets">