Unit1.dfm

object MainForm: TMainForm
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  ClientHeight = 218
  ClientWidth = 433
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object ProgLabel: TLabel
    Left = 392
    Top = 128
    Width = 32
    Height = 13
    Caption = '100 %'
  end
  object SizeLabel: TLabel
    Left = 8
    Top = 150
    Width = 3
    Height = 13
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object AboutBtn: TImage
    Left = 385
    Top = 170
    Width = 40
    Height = 40
    Cursor = crHandPoint
    Center = True
    Picture.Data = {
      0A544A504547496D6167656D050000FFD8FFE000104A46494600010101006000
      600000FFE100664578696600004D4D002A000000080004011A00050000000100
      00003E011B000500000001000000460128000300000001000200000131000200
      0000100000004E00000000000000600000000100000060000000015061696E74
      2E4E45542076332E333600FFDB00430002010102010102020202020202020305
      03030303030604040305070607070706070708090B0908080A0807070A0D0A0A
      0B0C0C0C0C07090E0F0D0C0E0B0C0C0CFFDB004301020202030303060303060C
      0807080C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
      0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0CFFC0001108002800280301
      2200021101031101FFC4001F0000010501010101010100000000000000000102
      030405060708090A0BFFC400B5100002010303020403050504040000017D0102
      0300041105122131410613516107227114328191A1082342B1C11552D1F02433
      627282090A161718191A25262728292A3435363738393A434445464748494A53
      5455565758595A636465666768696A737475767778797A838485868788898A92
      939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7
      C8C9CAD2D3D4D5D6D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FA
      FFC4001F0100030101010101010101010000000000000102030405060708090A
      0BFFC400B5110002010204040304070504040001027700010203110405213106
      1241510761711322328108144291A1B1C109233352F0156272D10A162434E125
      F11718191A262728292A35363738393A434445464748494A535455565758595A
      636465666768696A737475767778797A82838485868788898A92939495969798
      999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4
      D5D6D7D8D9DAE2E3E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002
      110311003F00FE7FE820803DF91EF457F575AFFF00C1103E10FF00C152FF00E0
      8F5F0074AD534DB3F07F8E348F871A33787FC53A659A2DC5849259452BA4C8BB
      44F03C8CCCC8C41DCECCACAC49201FCB4FC5DF83DE2AF807F10F52F09F8D340D
      53C33E24D1E4F2AF34ED4206867809008241EAA548218643020824106B9BAFD6
      CFF8390FE3EFC40F13FC2FF873F0D3F683F859A7F867E3EFC3FD4A4857C6DA4D
      AAB693E3AD0FC96549ED67C065C4BB0BC078476CE10B145FC93A0028A28A002B
      FA72FF0082A27ED19E36FD93FF00E0DB9FD9BFC7BF0EFC45A87857C59A0DAF82
      A6B3BFB37C32FF00C4B08646539578D865591C15604820835FCC6D7EB4FED83F
      F05ABF00FEDC3FF06FAF867E09DD5AC9E17F8A5F0CEFFC3FA77F6748C64B7D72
      C6CE19201796F26382004F3226C3296CAEE5C9001FAC367F157C0BFF000545F0
      E5D7EC93FB6B7C3FD37C15F1A96D45DE962294A58F899429D9ABE8178464498E
      5A024BAFCC8CAEA2455FC13FF82C6FFC10D3E267FC124FE2235C5F24DE2CF859
      AB5C18F44F16DB41B63627916F76809F22E00EC4ED9304A138655FE8DBFE0B0F
      FF00048AD47FE0AD3F063E16697A2FC465F861ACFC3ED506B76BABA690D7F71B
      9A0081632B3C2D110C11F7063CA0E3201AF1FF008D9FF049FF00DBA7E207ECED
      AF782EF3F6D6F0AF8FF4DBCD25AC7FB0FC47F08F4936DAC054C2457170FE7382
      C40CCA55DC37CDC919A00FE52E8AEEBF692FD9ABC75FB22FC64D67C03F11BC37
      A87857C59A1CBE5DD58DDA60E0F2B2230CAC91B0E55D09561C8268A00E168A28
      A00F4D4FDB5BE32468157E2D7C4D555180078A2FB007FDFDA5FF0086D9F8CDFF
      004573E277FE1537DFFC768A280391F887F16BC55F1775182F3C59E26F1078A2
      EED63F2619F56D466BD9214C93B55A466217249C0E3268A28A00FFD9}
    OnClick = AboutBtnClick
  end
  object Label1: TLabel
    Left = 8
    Top = 166
    Width = 207
    Height = 13
    Caption = 'Note: website limits download speed.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LinkEdit: TLabeledEdit
    Left = 8
    Top = 21
    Width = 413
    Height = 21
    EditLabel.Width = 175
    EditLabel.Height = 13
    EditLabel.Caption = 'Pornhub / RedTube Video Page URL:'
    TabOrder = 0
    OnKeyDown = LinkEditKeyDown
  end
  object MainBox: TGroupBox
    Left = 8
    Top = 48
    Width = 413
    Height = 65
    Caption = 'Available Downloads:'
    TabOrder = 1
    Visible = False
    object Btn240: TButton
      Left = 16
      Top = 24
      Width = 75
      Height = 25
      Caption = '240p'
      Enabled = False
      TabOrder = 0
      Visible = False
      OnClick = Btn240Click
    end
    object Btn480: TButton
      Left = 168
      Top = 24
      Width = 75
      Height = 25
      Caption = '480p'
      Enabled = False
      TabOrder = 1
      Visible = False
      OnClick = Btn480Click
    end
    object Btn720: TButton
      Left = 320
      Top = 24
      Width = 75
      Height = 25
      Caption = '720p'
      Enabled = False
      TabOrder = 2
      Visible = False
      OnClick = Btn720Click
    end
  end
  object ProgressBar: TProgressBar
    Left = 8
    Top = 127
    Width = 377
    Height = 17
    TabOrder = 2
  end
  object ExBtn: TButton
    Left = 159
    Top = 185
    Width = 113
    Height = 25
    Caption = 'Cancel Download'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = ExBtnClick
  end
  object Web: TIdHTTP
    IOHandler = IndySSL
    OnWork = WebWork
    OnWorkBegin = WebWorkBegin
    OnWorkEnd = WebWorkEnd
    AllowCookies = True
    HandleRedirects = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = -1
    Request.ContentRangeStart = -1
    Request.ContentRangeInstanceLength = -1
    Request.Accept = 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    Request.Ranges.Units = 'bytes'
    Request.Ranges = <>
    HTTPOptions = [hoForceEncodeParams]
    Left = 280
    Top = 184
  end
  object IndySSL: TIdSSLIOHandlerSocketOpenSSL
    MaxLineAction = maException
    Port = 0
    DefaultPort = 0
    SSLOptions.Mode = sslmUnassigned
    SSLOptions.VerifyMode = []
    SSLOptions.VerifyDepth = 0
    Left = 72
    Top = 184
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'mp4'
    Filter = 'MP4|.mp4'
    Left = 320
    Top = 184
  end
  object AntiFreeze: TIdAntiFreeze
    Left = 16
    Top = 184
  end
end