home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Internet / Addweb / ADDWEB.EXE / %MAINDIR% / addweb.exe / 0 / RCDATA / TFTPFORM / TFTPFORM.txt
Encoding:
Text File  |  1998-01-12  |  10.6 KB  |  479 lines
  1. object ftpform: Tftpform
  2.   Left = 264
  3.   Top = 150
  4.   HelpContext = 1053
  5.   HorzScrollBar.Visible = False
  6.   BorderIcons = [biSystemMenu]
  7.   BorderStyle = bsDialog
  8.   Caption = 'AddWeb Data Update'
  9.   ClientHeight = 102
  10.   ClientWidth = 330
  11.   Font.Charset = DEFAULT_CHARSET
  12.   Font.Color = clWindowText
  13.   Font.Height = -14
  14.   Font.Name = 'System'
  15.   Font.Style = []
  16.   Position = poScreenCenter
  17.   OnCreate = FormCreate
  18.   OnShow = FormShow
  19.   PixelsPerInch = 96
  20.   TextHeight = 16
  21.   object updatinglabel: TLabel
  22.     Left = 8
  23.     Top = 8
  24.     Width = 151
  25.     Height = 16
  26.     Caption = 'AddWeb Datafile Update'
  27.     Font.Charset = DEFAULT_CHARSET
  28.     Font.Color = clBlack
  29.     Font.Height = -13
  30.     Font.Name = 'MS Sans Serif'
  31.     Font.Style = []
  32.     ParentFont = False
  33.   end
  34.   object enginelabel: TLabel
  35.     Left = 120
  36.     Top = 8
  37.     Width = 3
  38.     Height = 16
  39.     Font.Charset = DEFAULT_CHARSET
  40.     Font.Color = clBlack
  41.     Font.Height = -13
  42.     Font.Name = 'MS Sans Serif'
  43.     Font.Style = []
  44.     ParentFont = False
  45.   end
  46.   object Bevel1: TBevel
  47.     Left = 2
  48.     Top = 2
  49.     Width = 327
  50.     Height = 95
  51.     Style = bsRaised
  52.   end
  53.   object Bevel2: TBevel
  54.     Left = 8
  55.     Top = 29
  56.     Width = 217
  57.     Height = 27
  58.     Style = bsRaised
  59.   end
  60.   object Label9: TLabel
  61.     Left = 269
  62.     Top = 35
  63.     Width = 12
  64.     Height = 16
  65.     Caption = 'of'
  66.   end
  67.   object ftpbar: TProgressBar
  68.     Left = 13
  69.     Top = 34
  70.     Width = 206
  71.     Height = 17
  72.     Min = 0
  73.     Max = 100
  74.     TabOrder = 0
  75.   end
  76.   object Panel1: TPanel
  77.     Left = 2
  78.     Top = 113
  79.     Width = 561
  80.     Height = 440
  81.     TabOrder = 1
  82.     Visible = False
  83.     object Label1: TLabel
  84.       Left = 8
  85.       Top = 8
  86.       Width = 47
  87.       Height = 16
  88.       Caption = 'Server:'
  89.     end
  90.     object Label2: TLabel
  91.       Left = 288
  92.       Top = 8
  93.       Width = 35
  94.       Height = 16
  95.       Caption = 'User:'
  96.     end
  97.     object Label3: TLabel
  98.       Left = 400
  99.       Top = 8
  100.       Width = 68
  101.       Height = 16
  102.       Caption = 'Password:'
  103.     end
  104.     object Label4: TLabel
  105.       Left = 8
  106.       Top = 32
  107.       Width = 82
  108.       Height = 16
  109.       Caption = 'Remote File:'
  110.     end
  111.     object Label5: TLabel
  112.       Left = 8
  113.       Top = 56
  114.       Width = 87
  115.       Height = 16
  116.       Caption = 'Remote Path:'
  117.     end
  118.     object Label6: TLabel
  119.       Left = 8
  120.       Top = 80
  121.       Width = 67
  122.       Height = 16
  123.       Caption = 'Local File:'
  124.     end
  125.     object Label7: TLabel
  126.       Left = 8
  127.       Top = 104
  128.       Width = 56
  129.       Height = 16
  130.       Caption = 'File List:'
  131.     end
  132.     object Label8: TLabel
  133.       Left = 8
  134.       Top = 306
  135.       Width = 45
  136.       Height = 16
  137.       Caption = 'Status:'
  138.     end
  139.     object eRemoteFile: TEdit
  140.       Left = 104
  141.       Top = 28
  142.       Width = 449
  143.       Height = 21
  144.       Font.Charset = DEFAULT_CHARSET
  145.       Font.Color = clBlack
  146.       Font.Height = -11
  147.       Font.Name = 'MS Sans Serif'
  148.       Font.Style = []
  149.       ParentFont = False
  150.       TabOrder = 0
  151.       OnChange = eRemoteFileChange
  152.     end
  153.     object eRemotePath: TEdit
  154.       Left = 104
  155.       Top = 52
  156.       Width = 449
  157.       Height = 21
  158.       Font.Charset = DEFAULT_CHARSET
  159.       Font.Color = clBlack
  160.       Font.Height = -11
  161.       Font.Name = 'MS Sans Serif'
  162.       Font.Style = []
  163.       ParentFont = False
  164.       TabOrder = 1
  165.       OnKeyPress = eRemotePathKeyPress
  166.     end
  167.     object eLocalFile: TEdit
  168.       Left = 104
  169.       Top = 76
  170.       Width = 449
  171.       Height = 21
  172.       Font.Charset = DEFAULT_CHARSET
  173.       Font.Color = clBlack
  174.       Font.Height = -11
  175.       Font.Name = 'MS Sans Serif'
  176.       Font.Style = []
  177.       ParentFont = False
  178.       TabOrder = 2
  179.     end
  180.     object Button6: TButton
  181.       Left = 387
  182.       Top = 205
  183.       Width = 166
  184.       Height = 20
  185.       Caption = 'Abor&t'
  186.       Font.Charset = DEFAULT_CHARSET
  187.       Font.Color = clBlack
  188.       Font.Height = -11
  189.       Font.Name = 'MS Sans Serif'
  190.       Font.Style = []
  191.       ParentFont = False
  192.       TabOrder = 3
  193.       OnClick = Button6Click
  194.     end
  195.     object lFiles: TListBox
  196.       Left = 8
  197.       Top = 120
  198.       Width = 369
  199.       Height = 185
  200.       Font.Charset = DEFAULT_CHARSET
  201.       Font.Color = clWindowText
  202.       Font.Height = -13
  203.       Font.Name = 'MS Sans Serif'
  204.       Font.Style = []
  205.       ItemHeight = 16
  206.       ParentFont = False
  207.       TabOrder = 4
  208.       OnClick = lFilesClick
  209.       OnMouseDown = lFilesMouseDown
  210.     end
  211.     object Button1: TButton
  212.       Left = 387
  213.       Top = 182
  214.       Width = 166
  215.       Height = 19
  216.       Caption = '&Change Directory'
  217.       Font.Charset = DEFAULT_CHARSET
  218.       Font.Color = clBlack
  219.       Font.Height = -11
  220.       Font.Name = 'MS Sans Serif'
  221.       Font.Style = []
  222.       ParentFont = False
  223.       TabOrder = 5
  224.       TabStop = False
  225.       OnClick = Button1Click
  226.     end
  227.     object Button4: TButton
  228.       Left = 387
  229.       Top = 158
  230.       Width = 166
  231.       Height = 19
  232.       Caption = '&Download file'
  233.       Font.Charset = DEFAULT_CHARSET
  234.       Font.Color = clBlack
  235.       Font.Height = -11
  236.       Font.Name = 'MS Sans Serif'
  237.       Font.Style = []
  238.       ParentFont = False
  239.       TabOrder = 6
  240.       OnClick = Button4Click
  241.     end
  242.     object rgTransfMode: TRadioGroup
  243.       Left = 382
  244.       Top = 230
  245.       Width = 171
  246.       Height = 75
  247.       Caption = 'Transfer mode'
  248.       Font.Charset = DEFAULT_CHARSET
  249.       Font.Color = clBlack
  250.       Font.Height = -11
  251.       Font.Name = 'MS Sans Serif'
  252.       Font.Style = []
  253.       ItemIndex = 0
  254.       Items.Strings = (
  255.         'Default'
  256.         '&ASCII'
  257.         '&Binary')
  258.       ParentFont = False
  259.       TabOrder = 7
  260.       OnClick = rgTransfModeClick
  261.     end
  262.     object tUser: TEdit
  263.       Left = 326
  264.       Top = 5
  265.       Width = 67
  266.       Height = 21
  267.       Font.Charset = DEFAULT_CHARSET
  268.       Font.Color = clBlack
  269.       Font.Height = -11
  270.       Font.Name = 'MS Sans Serif'
  271.       Font.Style = []
  272.       ParentFont = False
  273.       TabOrder = 8
  274.       Text = 'addweb'
  275.     end
  276.     object tPasswd: TEdit
  277.       Left = 472
  278.       Top = 5
  279.       Width = 81
  280.       Height = 21
  281.       Font.Charset = DEFAULT_CHARSET
  282.       Font.Color = clBlack
  283.       Font.Height = -11
  284.       Font.Name = 'MS Sans Serif'
  285.       Font.Style = []
  286.       ParentFont = False
  287.       PasswordChar = '*'
  288.       TabOrder = 9
  289.       Text = 'alyssa1989'
  290.       OnKeyPress = tHostKeyPress
  291.     end
  292.     object tHost: TEdit
  293.       Left = 104
  294.       Top = 5
  295.       Width = 179
  296.       Height = 21
  297.       HelpContext = 42
  298.       Font.Charset = DEFAULT_CHARSET
  299.       Font.Color = clBlack
  300.       Font.Height = -11
  301.       Font.Name = 'MS Sans Serif'
  302.       Font.Style = []
  303.       ParentFont = False
  304.       TabOrder = 10
  305.       Text = 'addweb.cyberspacehq.com'
  306.       OnKeyPress = tHostKeyPress
  307.     end
  308.     object Button2: TButton
  309.       Left = 387
  310.       Top = 109
  311.       Width = 166
  312.       Height = 20
  313.       Caption = '&Logon'
  314.       Font.Charset = DEFAULT_CHARSET
  315.       Font.Color = clBlack
  316.       Font.Height = -11
  317.       Font.Name = 'MS Sans Serif'
  318.       Font.Style = []
  319.       ParentFont = False
  320.       TabOrder = 11
  321.       OnClick = Button2Click
  322.     end
  323.     object Button3: TButton
  324.       Left = 387
  325.       Top = 133
  326.       Width = 166
  327.       Height = 20
  328.       Caption = 'L&ogoff'
  329.       Font.Charset = DEFAULT_CHARSET
  330.       Font.Color = clBlack
  331.       Font.Height = -11
  332.       Font.Name = 'MS Sans Serif'
  333.       Font.Style = []
  334.       ParentFont = False
  335.       TabOrder = 12
  336.       OnClick = Button3Click
  337.     end
  338.     object ltrace: TListBox
  339.       Left = 8
  340.       Top = 322
  341.       Width = 545
  342.       Height = 113
  343.       ItemHeight = 16
  344.       TabOrder = 13
  345.     end
  346.   end
  347.   object BitBtn1: TBitBtn
  348.     Left = 6
  349.     Top = 64
  350.     Width = 156
  351.     Height = 25
  352.     HelpContext = 1053
  353.     Font.Charset = DEFAULT_CHARSET
  354.     Font.Color = clBlack
  355.     Font.Height = -15
  356.     Font.Name = 'MS Sans Serif'
  357.     Font.Style = []
  358.     ParentFont = False
  359.     TabOrder = 2
  360.     OnClick = BitBtn1Click
  361.     Kind = bkCancel
  362.   end
  363.   object BitBtn2: TBitBtn
  364.     Left = 168
  365.     Top = 64
  366.     Width = 156
  367.     Height = 25
  368.     HelpContext = 1053
  369.     Caption = 'Start Update'
  370.     Font.Charset = DEFAULT_CHARSET
  371.     Font.Color = clBlack
  372.     Font.Height = -15
  373.     Font.Name = 'MS Sans Serif'
  374.     Font.Style = []
  375.     ParentFont = False
  376.     TabOrder = 3
  377.     OnClick = BitBtn2Click
  378.     Kind = bkOK
  379.   end
  380.   object Button7: TButton
  381.     Left = 464
  382.     Top = 72
  383.     Width = 75
  384.     Height = 25
  385.     Caption = '&Debug'
  386.     TabOrder = 4
  387.     OnClick = Button7Click
  388.   end
  389.   object ftpled: TMMLEDPanel
  390.     Left = 228
  391.     Top = 29
  392.     Width = 41
  393.     Height = 27
  394.     Bevel.BevelInner = bvNone
  395.     Bevel.BevelOuter = bvLowered
  396.     Bevel.BevelInnerWidth = 1
  397.     Bevel.BevelOuterWidth = 1
  398.     Bevel.BorderStyle = bsNone
  399.     Bevel.BorderWidth = 0
  400.     Bevel.BorderSpace = 2
  401.     Bevel.BorderColor = clBtnFace
  402.     Bevel.BorderSpaceColor = clBlack
  403.     Bevel.InnerLightColor = clBtnHighlight
  404.     Bevel.InnerShadowColor = clBtnShadow
  405.     Bevel.OuterLightColor = clBtnHighlight
  406.     Bevel.OuterShadowColor = clBtnShadow
  407.     LEDColor = clAqua
  408.     InactiveColor = 7302912
  409.     NumDigits = 3
  410.     MaxValue = 999
  411.     MinValue = 0
  412.     TabOrder = 5
  413.     ZeroBlank = True
  414.   end
  415.   object ftptotalled: TMMLEDPanel
  416.     Left = 282
  417.     Top = 29
  418.     Width = 41
  419.     Height = 27
  420.     Bevel.BevelInner = bvNone
  421.     Bevel.BevelOuter = bvLowered
  422.     Bevel.BevelInnerWidth = 1
  423.     Bevel.BevelOuterWidth = 1
  424.     Bevel.BorderStyle = bsNone
  425.     Bevel.BorderWidth = 0
  426.     Bevel.BorderSpace = 2
  427.     Bevel.BorderColor = clBtnFace
  428.     Bevel.BorderSpaceColor = clBlack
  429.     Bevel.InnerLightColor = clBtnHighlight
  430.     Bevel.InnerShadowColor = clBtnShadow
  431.     Bevel.OuterLightColor = clBtnHighlight
  432.     Bevel.OuterShadowColor = clBtnShadow
  433.     LEDColor = clAqua
  434.     InactiveColor = 7302912
  435.     NumDigits = 3
  436.     MaxValue = 999
  437.     MinValue = 0
  438.     TabOrder = 6
  439.     ZeroBlank = True
  440.   end
  441.   object FTP1: TFTP
  442.     OnError = FTP1Error
  443.     WinsockLoaded = False
  444.     OnFirePITrail = FTP1FirePITrail
  445.     OnDirList = FTP1DirList
  446.     OnTransfer = FTP1Transfer
  447.     OnStartTransfer = FTP1StartTransfer
  448.     OnEndTransfer = FTP1EndTransfer
  449.     Left = 16
  450.     Top = 8
  451.     RegHnd = {
  452.       82F56FD833C396DB333C1A86824BC4F8792D161733DF0551EBB8D75627A2903F
  453.       1037D84959D84FD563566FB5A3E316D22CB788DEA443B8C8DA17FB319B6A09E2
  454.       82F56FD833C396DBB1239B07DD0E4390ADD0314F5926C7F085938D7726F49E97
  455.       5E1D5327E76E04073240B431516330935BF6C462B65ADB53EA65EF832862A633}
  456.   end
  457.   object MarsCaption1: TMarsCaption
  458.     ActiveBeginColor = clBlack
  459.     ActiveEndColor = clNavy
  460.     ActiveFontColor = clWhite
  461.     InactiveBeginColor = clBlack
  462.     InactiveEndColor = clRed
  463.     InactiveFontColor = clSilver
  464.     ApplicationNameFont.Charset = DEFAULT_CHARSET
  465.     ApplicationNameFont.Color = clWindowText
  466.     ApplicationNameFont.Height = -11
  467.     ApplicationNameFont.Name = 'MS Sans Serif'
  468.     ApplicationNameFont.Style = [fsBold]
  469.     CaptionFont.Charset = DEFAULT_CHARSET
  470.     CaptionFont.Color = clWindowText
  471.     CaptionFont.Height = -11
  472.     CaptionFont.Name = 'MS Sans Serif'
  473.     CaptionFont.Style = []
  474.     NumColors = 64
  475.     AutoSize = False
  476.     Left = 400
  477.   end
  478. end
  479.