Chip 1998 January/CHIPCD1_98.iso/software/nowosci/crystalf/crftp1.exe/0/RCDATA/TQUICK/TQUICK.txt

Text File | 1997-11-20 | 6KB | 255 lines

object Quick: TQuick
  Left = 587
  Top = 102
  BorderStyle = bsDialog
  Caption = 'Crystal FTP - Quick Connect'
  ClientHeight = 212
  ClientWidth = 305
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 228
    Top = 184
    Width = 75
    Height = 25
    Cancel = True
    Caption = '&Cancel'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 1
  end
  object Connect: TButton
    Left = 144
    Top = 184
    Width = 75
    Height = 25
    Caption = '&Connect'
    Default = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = ConnectClick
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 305
    Height = 181
    ActivePage = TabSheet1
    Align = alTop
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = 'General'
      object Label2: TLabel
        Left = 10
        Top = 13
        Width = 63
        Height = 13
        Caption = 'Host Address'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label16: TLabel
        Left = 154
        Top = 13
        Width = 89
        Height = 13
        Caption = 'Initial Remote Path'
      end
      object UsernameLabel: TLabel
        Left = 10
        Top = 61
        Width = 48
        Height = 13
        Caption = 'Username'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object PasswordLabel: TLabel
        Left = 154
        Top = 61
        Width = 46
        Height = 13
        Caption = 'Password'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Host: TEdit97
        Left = 10
        Top = 29
        Width = 125
        Height = 19
        TabOrder = 0
        OnChange = CheckIfValid
        OnExit = HostExit
      end
      object InitPath: TEdit97
        Left = 154
        Top = 29
        Width = 129
        Height = 19
        TabOrder = 1
        OnExit = initpathExit
      end
      object Password: TEdit97
        Left = 154
        Top = 77
        Width = 129
        Height = 19
        PasswordChar = '*'
        TabOrder = 3
        OnKeyPress = MakeNoAnon
      end
      object Username: TEdit97
        Left = 10
        Top = 77
        Width = 125
        Height = 19
        TabOrder = 2
        OnKeyPress = MakeNoAnon
      end
      object anonymous: TCheckBox
        Left = 12
        Top = 110
        Width = 117
        Height = 17
        Caption = 'Anonymous Session'
        State = cbChecked
        TabOrder = 4
        OnClick = anonymousClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Advanced'
      object Label3: TLabel
        Left = 75
        Top = 7
        Width = 29
        Height = 13
        Caption = 'Tasks'
      end
      object Label4: TLabel
        Left = 153
        Top = 6
        Width = 19
        Height = 13
        Caption = 'Port'
      end
      object tasks: TEdit97
        Left = 77
        Top = 22
        Width = 44
        Height = 19
        TabOrder = 0
        Text = '1'
      end
      object TaskPos: TUpDown
        Left = 121
        Top = 22
        Width = 15
        Height = 19
        Associate = tasks
        Min = 1
        Max = 25
        Position = 1
        TabOrder = 1
        Thousands = False
        Wrap = False
      end
      object port: TEdit97
        Left = 153
        Top = 22
        Width = 44
        Height = 19
        TabOrder = 2
        Text = '21'
      end
      object port_UpDown: TUpDown
        Left = 197
        Top = 22
        Width = 15
        Height = 19
        Associate = port
        Min = 21
        Max = 9999
        Position = 21
        TabOrder = 3
        Thousands = False
        Wrap = False
      end
      object passive: TCheckBox
        Left = 161
        Top = 48
        Width = 128
        Height = 17
        Caption = 'Passive Transfer Mode'
        TabOrder = 5
      end
      object firewall: TCheckBox
        Left = 9
        Top = 48
        Width = 141
        Height = 17
        Caption = 'Connect through Firewall'
        TabOrder = 4
      end
      object convertUpload: TRadioGroup
        Left = 8
        Top = 71
        Width = 281
        Height = 33
        Caption = 'Convert names of uploaded files to ...'
        Columns = 3
        ItemIndex = 0
        Items.Strings = (
          'As Is'
          'Uppercase'
          'Lowercase')
        TabOrder = 6
      end
      object convertDownload: TRadioGroup
        Left = 8
        Top = 112
        Width = 281
        Height = 33
        Caption = 'Convert names of downloaded files to ...'
        Columns = 3
        ItemIndex = 0
        Items.Strings = (
          'As Is'
          'Uppercase'
          'Lowercase')
        TabOrder = 7
      end
    end
  end
end