; Form Designer for PureBasic - 6.20
; Warning: this file uses a strict syntax, if you edit it, make sure to respect the Form Designer limitation or it won't be opened again.

;
; This code is automatically generated by the Form Designer.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures need to be put in another source file.
;

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, 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_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 = 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_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")
  in_open = ButtonGadget(#PB_Any, 480, 30, 110, 25, "Open...")
  Text_0_Copy1 = TextGadget(#PB_Any, 10, 70, 100, 25, "Output File")
  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, 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, 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)")
  Frame_0 = FrameGadget(#PB_Any, 220, 130, 370, 130, "Encoding Speed")
  ultrafast = OptionGadget(#PB_Any, 240, 150, 100, 25, "Ultra Fast")
  superfast = OptionGadget(#PB_Any, 240, 170, 100, 25, "Super Fast")
  veryfast = OptionGadget(#PB_Any, 240, 190, 100, 25, "Very Fast")
  faster = OptionGadget(#PB_Any, 350, 150, 100, 25, "Faster")
  fast = OptionGadget(#PB_Any, 350, 170, 100, 25, "Fast")
  medium = OptionGadget(#PB_Any, 350, 190, 100, 25, "Medium")
  SetGadgetState(medium, 1)
  slow = OptionGadget(#PB_Any, 450, 150, 100, 25, "Slow")
  slower = OptionGadget(#PB_Any, 450, 170, 100, 25, "Slower")
  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)
  Select event
    Case #PB_Event_CloseWindow
      ProcedureReturn #False

    Case #PB_Event_Menu
      Select EventMenu()
        Case #MenuItem_8
          EnsureFFmpeg(EventMenu())
        Case #MenuItem_6
          RemoveFFmpeg(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
      Select EventGadget()
        Case in_open
          SelectInput(EventType())          
        Case out_open
          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
EndProcedure