Chip 2001 September/Chip_2001-09_cd1.bin/sharewar/webftp/webftp30.exe/{app}/WebFtp3.exe/0/RCDATA/TFORMMDI/TFORMMDI.txt

Text File | 2001-07-11 | 12.9 KB | 509 lines

object FormMdi: TFormMdi
  Left = 267
  Top = 323
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Test Caption'
  ClientHeight = 231
  ClientWidth = 602
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SplitBot: TSplitter
    Left = 0
    Top = 197
    Width = 602
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    AutoSnap = False
    ResizeStyle = rsUpdate
    Visible = False
  end
  object PInfoMain: TPanel
    Left = 0
    Top = 200
    Width = 602
    Height = 31
    Align = alBottom
    BevelOuter = bvLowered
    Constraints.MinHeight = 31
    TabOrder = 0
    object MemoInfo: TMemo
      Left = 1
      Top = 1
      Width = 600
      Height = 29
      TabStop = False
      Align = alClient
      BorderStyle = bsNone
      Color = clBtnFace
      PopupMenu = PopupMenu3
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object PProgress: TPanel
    Left = 0
    Top = 0
    Width = 602
    Height = 40
    Align = alTop
    BevelInner = bvLowered
    BevelOuter = bvNone
    Constraints.MaxHeight = 40
    Constraints.MinHeight = 40
    TabOrder = 1
    object TransferFile: TLabel
      Left = 4
      Top = 2
      Width = 213
      Height = 16
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      Transparent = True
    end
    object CloseB: TSpeedButton
      Left = 580
      Top = 1
      Width = 21
      Height = 21
      Cursor = crAppStart
      Hint = 'Close Connection'
      Anchors = [akTop, akRight]
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888808888888888088800088888888888880000888888
        8088888000888888088888880008888008888888800088008888888888000008
        8888888888800088888888888800000888888888800088008888888000088880
        0888880000888888008888000888888888088888888888888888}
      ParentShowHint = False
      ShowHint = True
      Spacing = 0
      OnClick = CloseBClick
    end
    object CancelB: TSpeedButton
      Left = 559
      Top = 1
      Width = 21
      Height = 21
      Cursor = crAppStart
      Hint = 'Cancel'
      Anchors = [akTop, akRight]
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
        993337777F777F3377F3393999707333993337F77737333337FF993399933333
        399377F3777FF333377F993339903333399377F33737FF33377F993333707333
        399377F333377FF3377F993333101933399377F333777FFF377F993333000993
        399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
        99333773FF777F777733339993707339933333773FF7FFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Spacing = 0
      OnClick = CancelBClick
    end
    object AsFile: TLabel
      Left = 4
      Top = 23
      Width = 213
      Height = 16
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      Transparent = True
    end
    object SizeSpeed: TLabel
      Left = 224
      Top = 23
      Width = 249
      Height = 16
      Anchors = [akTop, akRight]
      AutoSize = False
    end
    object Timer: TLabel
      Left = 480
      Top = 23
      Width = 113
      Height = 16
      Anchors = [akTop, akRight]
      AutoSize = False
    end
    object Panel1: TPanel
      Left = 224
      Top = 1
      Width = 329
      Height = 21
      Anchors = [akTop, akRight]
      BevelOuter = bvNone
      TabOrder = 0
      object Percent: TLabel
        Left = 225
        Top = 4
        Width = 28
        Height = 17
        Alignment = taRightJustify
        Anchors = [akTop, akRight]
        AutoSize = False
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Prog1: TProgressBar
        Left = 0
        Top = 1
        Width = 225
        Height = 20
        Anchors = [akLeft, akTop, akRight, akBottom]
        BorderWidth = 1
        Min = 0
        Max = 100
        Smooth = True
        Step = 1
        TabOrder = 0
      end
      object ComboMode: TdxImageComboBox
        Left = 256
        Top = -2
        Width = 73
        Height = 24
        TabStop = False
        Alignment = taLeftJustify
        ImageAlign = dxliLeft
        ItemHeight = 0
        ImageList = FormMain.Imgsmall
        MultiLines = False
        VertAlignment = tvaCenter
        DropDownCount = 2
        Items.Strings = (
          'Binary'
          'ASCII')
        TabOrder = 1
        SaveStrings = (
          '0,'
          '1,'
          ''
          ''
          ''
          ''
          ''
          ''
          ''
          ''
          ''
          ''
          ''
          ''
          ''
          '')
      end
    end
  end
  object PListing: TPanel
    Left = 0
    Top = 40
    Width = 602
    Height = 157
    Align = alClient
    BevelOuter = bvNone
    Constraints.MinHeight = 80
    Constraints.MinWidth = 602
    TabOrder = 2
    object SplitRem: TSplitter
      Left = 160
      Top = 0
      Width = 3
      Height = 157
      Cursor = crHSplit
      AutoSnap = False
      MinSize = 150
      ResizeStyle = rsUpdate
    end
    object PRemTree: TPanel
      Left = 0
      Top = 0
      Width = 160
      Height = 157
      Align = alLeft
      BevelOuter = bvLowered
      Constraints.MinHeight = 80
      TabOrder = 0
      object RemoteDirs: TPTListView
        Left = 1
        Top = 22
        Width = 158
        Height = 134
        Align = alClient
        BorderStyle = bsNone
        Columns = <
          item
            Caption = 'Directories'
            Width = 158
          end
          item
            Caption = 'Size'
            Width = 80
          end
          item
            Caption = 'Date'
            Width = 80
          end
          item
            Caption = 'Permissions'
            Width = 80
          end>
        OnClick = RemoteDirsClick
        OnDblClick = RemoteDirsDblClick
        DragMode = dmAutomatic
        ReadOnly = True
        HideSelection = False
        OnColumnClick = RemoteDirsColumnClick
        OnCompare = RemoteDirsCompare
        PopupMenu = PopupMenu1
        TabOrder = 0
        ViewStyle = vsReport
        SmallImages = FormMain.Imgsmall
      end
      object PDirCombo: TPanel
        Left = 1
        Top = 1
        Width = 158
        Height = 21
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object ReconB: TSpeedButton
          Left = 137
          Top = 0
          Width = 21
          Height = 21
          Hint = 'Reconnect'
          Anchors = [akTop, akRight]
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333FFFFF3333333333000003333333333F777773FF333333008877700
            33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07
            703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F
            77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F
            07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F
            780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08
            8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
            3333333773FFFF77333333333000003333333333377777333333}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          Spacing = 0
          OnClick = ReconBClick
        end
        object DirCombo: TComboBox
          Left = 0
          Top = 0
          Width = 137
          Height = 21
          Anchors = [akLeft, akTop, akRight]
          ItemHeight = 13
          TabOrder = 0
          OnClick = DirComboClick
          OnKeyDown = DirComboKeyDown
        end
      end
    end
    object PRemList: TPanel
      Left = 163
      Top = 0
      Width = 439
      Height = 157
      Align = alClient
      BevelOuter = bvLowered
      Constraints.MinHeight = 80
      TabOrder = 1
      object RemoteFiles: TPTListView
        Left = 1
        Top = 1
        Width = 437
        Height = 155
        Align = alClient
        BorderStyle = bsNone
        Columns = <
          item
            Caption = 'Name'
            Width = 180
          end
          item
            Caption = 'Size'
            Width = 80
          end
          item
            Caption = 'Date'
            Width = 80
          end
          item
            Caption = 'Permissions'
            Width = 80
          end>
        OnClick = RemoteFilesClick
        DragMode = dmAutomatic
        ReadOnly = True
        HideSelection = False
        MultiSelect = True
        OnColumnClick = RemoteFilesColumnClick
        OnCompare = RemoteFilesCompare
        OnDragDrop = RemoteFilesDragDrop
        OnDragOver = RemoteFilesDragOver
        PopupMenu = PopupMenu2
        SortType = stBoth
        TabOrder = 0
        ViewStyle = vsReport
        LargeImages = DirParser.ImageList2
        SmallImages = DirParser.ImageList1
      end
    end
  end
  object Ftp1: TFtpClient
    Timeout = 30
    MultiThreaded = False
    Port = 'ftp'
    DisplayFileFlag = False
    Binary = True
    ShareMode = ftpShareDenyNone
    Options = [ftpAcceptLF]
    ConnectionType = ftpDirect
    OnDisplay = Ftp1Display
    OnCommand = Ftp1Command
    OnResponse = Ftp1Response
    OnProgress = Ftp1Progress
    OnSessionConnected = Ftp1SessionConnected
    OnSessionClosed = Ftp1SessionClosed
    OnRequestDone = Ftp1RequestDone
    OnStateChange = Ftp1StateChange
    OnReadyToTransmit = Ftp1ReadyToTransmit
    OnBgException = Ftp1BgException
    Left = 187
    Top = 59
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 243
    Top = 104
  end
  object TimeOut: TTimer
    Enabled = False
    OnTimer = TimeOutTimer
    Left = 571
    Top = 64
  end
  object PopupMenu1: TPopupMenu
    Images = FormMain.Imagebars
    Left = 40
    Top = 120
    object ChangeRemoteDirectory1: TMenuItem
      Action = FormMain.ActionUpDir
    end
    object UpDirectory1: TMenuItem
      Action = FormMain.ActionChangeDir
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object DeleteRemoteDirectory2: TMenuItem
      Action = FormMain.ActionMkdDir
    end
    object DeleteRemoteDirectory1: TMenuItem
      Action = FormMain.ActionRenameDir
    end
    object BatchDelete1: TMenuItem
      Action = FormMain.ActionRemoveDir
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object RefreshRemoteListing1: TMenuItem
      Action = FormMain.ActionBatchDownload
    end
    object BatchDelete2: TMenuItem
      Action = FormMain.ActionBatchDelete
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object DirectoryPermissionsUnix1: TMenuItem
      Action = FormMain.ActionChmodDir
    end
    object RefreshRemoteListing2: TMenuItem
      Action = FormMain.ActionRefreshRemote
    end
  end
  object PopupMenu2: TPopupMenu
    Images = FormMain.Imagebars
    Left = 299
    Top = 112
    object DeleteRemoteFiles1: TMenuItem
      Action = FormMain.ActionDownloadFile
    end
    object ResumeDownload1: TMenuItem
      Action = FormMain.ActionResumeDown
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object RenameRemoteFile1: TMenuItem
      Action = FormMain.ActionRenameRemoteFile
    end
    object DeleteRemoteFiles2: TMenuItem
      Action = FormMain.ActionDeleteRemote
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object FilesPermissionsUnix1: TMenuItem
      Action = FormMain.ActionChmod
    end
    object RenameRemoteFile2: TMenuItem
      Action = FormMain.ActionDirInfo
    end
  end
  object PopupMenu3: TPopupMenu
    Images = FormMain.Imagebars
    Left = 400
    Top = 200
    object SaveLog1: TMenuItem
      Action = FormMain.ActionSaveLog
    end
  end
end