Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/komunik/webedit/data.z/Wewiz32k.wem/0/RCDATA/TFRMSERVER/TFRMSERVER.txt

Text File | 1996-10-14 | 6KB | 272 lines

object frmServer: TfrmServer
  Left = 295
  Top = 115
  BorderStyle = bsDialog
  Caption = 'FTP Server'
  ClientHeight = 364
  ClientWidth = 400
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object btnOK: TButton
    Left = 224
    Top = 315
    Width = 89
    Height = 25
    Caption = '&Upload'
    Default = True
    TabOrder = 0
    OnClick = btnOKClick
  end
  object btnCancel: TButton
    Left = 318
    Top = 315
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 1
    OnClick = btnCancelClick
  end
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 400
    Height = 309
    ActivePage = ServerPage
    Align = alTop
    TabOrder = 2
    object FilesPage: TTabSheet
      Caption = 'Files to Upload'
      object btnBrowse: TButton
        Left = 212
        Top = 256
        Width = 83
        Height = 21
        Caption = '&Add...'
        TabOrder = 0
        OnClick = btnBrowseClick
      end
      object btnDelete: TButton
        Left = 304
        Top = 256
        Width = 83
        Height = 21
        Caption = '&Delete'
        Enabled = False
        TabOrder = 1
        OnClick = btnDeleteClick
      end
    end
    object ServerPage: TTabSheet
      Caption = 'Server'
      object lblName: TLabel
        Left = 7
        Top = 18
        Width = 28
        Height = 13
        Caption = '&Name'
      end
      object lblServer: TLabel
        Left = 7
        Top = 45
        Width = 31
        Height = 13
        Caption = '&Server'
        FocusControl = txtServer
      end
      object lblPort: TLabel
        Left = 7
        Top = 74
        Width = 19
        Height = 13
        Caption = '&Port'
      end
      object lblInitialDirectory: TLabel
        Left = 7
        Top = 99
        Width = 117
        Height = 13
        Caption = 'Directory on &FTP Server:'
        FocusControl = txtInitialDirectory
      end
      object lblUserID: TLabel
        Left = 7
        Top = 151
        Width = 36
        Height = 13
        Caption = '&User ID'
        FocusControl = txtUserID
      end
      object lblPassword: TLabel
        Left = 7
        Top = 177
        Width = 46
        Height = 13
        Caption = 'Password'
        FocusControl = txtPassword
      end
      object lblAccount: TLabel
        Left = 7
        Top = 202
        Width = 40
        Height = 13
        Caption = 'Account'
        FocusControl = txtAccount
      end
      object txtServer: TEdit
        Left = 89
        Top = 39
        Width = 290
        Height = 21
        TabOrder = 1
      end
      object txtInitialDirectory: TEdit
        Left = 6
        Top = 116
        Width = 375
        Height = 21
        TabOrder = 3
      end
      object txtPort: TMaskEdit
        Left = 89
        Top = 68
        Width = 21
        Height = 21
        EditMask = '00'
        MaxLength = 2
        TabOrder = 2
        Text = '21'
      end
      object txtUserID: TEdit
        Left = 89
        Top = 147
        Width = 290
        Height = 21
        TabOrder = 4
      end
      object txtPassword: TEdit
        Left = 89
        Top = 174
        Width = 290
        Height = 21
        PasswordChar = '*'
        TabOrder = 5
      end
      object txtAccount: TEdit
        Left = 89
        Top = 199
        Width = 290
        Height = 21
        TabOrder = 6
      end
      object chkSavePassword: TCheckBox
        Left = 61
        Top = 227
        Width = 97
        Height = 17
        Caption = 'Save Password'
        TabOrder = 7
      end
      object txtName: TComboBox
        Left = 89
        Top = 12
        Width = 290
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Sorted = True
        TabOrder = 0
        OnChange = txtNameChange
      end
      object btnNewServer: TButton
        Left = 128
        Top = 256
        Width = 83
        Height = 21
        Caption = '&New'
        TabOrder = 8
        OnClick = btnNewServerClick
      end
      object btnSaveServer: TButton
        Left = 216
        Top = 256
        Width = 83
        Height = 21
        Caption = '&Save'
        TabOrder = 9
        OnClick = btnSaveServerClick
      end
      object btnDeleteServer: TButton
        Left = 304
        Top = 256
        Width = 83
        Height = 21
        Caption = '&Delete'
        TabOrder = 10
        OnClick = btnDeleteServerClick
      end
    end
  end
  object sbStatus: TStatusBar
    Left = 0
    Top = 345
    Width = 400
    Height = 19
    Panels = <
      item
        Text = ' '
        Width = 50
      end>
    SimplePanel = False
  end
  object pbUpload: TProgressBar
    Left = 8
    Top = 320
    Width = 209
    Height = 17
    Min = 0
    Max = 100
    TabOrder = 4
    Visible = False
  end
  object Ftp1: TFtp
    FtpPort = 21
    TransferMode = BinaryTransfer
    OnFtpInfo = Ftp1FtpInfo
    OnFtpError = Ftp1FtpError
    WinsockStarted = True
    Version = 'TFtp 1.4.2'
    OnLoggedIn = Ftp1LoggedIn
    OnFileStored = Ftp1FileStored
    ServerType = ftpstDefault
    TimeOutConnect = 0
    TimeOutArp = 0
    Left = 8
    Top = 272
  end
  object dlgOpen: TOpenDialog
    DefaultExt = 'html'
    FileEditStyle = fsEdit
    FileName = '*.html'
    Filter =
      'HTML files (*.html)|*.html|HTM files (*.htm, *.ht3)|*.htm;*.ht3|' +
      'Image files (*.bmp, *.gif, *.jpg)|*.bmp;*.gif;*.jpg|Sound files ' +
      '(*.wav, *.au, *.ra)|*.wav;*.au;*.ra|All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist]
    Title = 'Choose Files to Upload'
    Left = 36
    Top = 272
  end
end