main.dfm

Drag files and Drop to delphi forms 0402

object FormMain: TFormMain
  Left = 442
  Top = 368
  ActiveControl = ComboAddress
  Caption = 'Async Data Transfer Demo - FTP client'
  ClientHeight = 376
  ClientWidth = 573
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  object ProgressBar1: TProgressBar
    Left = 0
    Top = 342
    Width = 573
    Height = 15
    Align = alBottom
    Max = 1000000
    Smooth = True
    Step = 1024
    TabOrder = 0
    Visible = False
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 357
    Width = 573
    Height = 19
    Panels = <
      item
        Width = 300
      end
      item
        Width = 200
      end>
  end
  object ListViewFiles: TListView
    Left = 0
    Top = 92
    Width = 573
    Height = 250
    Align = alClient
    Columns = <
      item
        AutoSize = True
        Caption = 'Filename'
      end
      item
        Caption = 'Date'
        Width = 110
      end
      item
        Alignment = taRightJustify
        Caption = 'Size'
        Width = 100
      end>
    ColumnClick = False
    FlatScrollBars = True
    FullDrag = True
    MultiSelect = True
    ReadOnly = True
    SmallImages = ImageListExplorer
    SortType = stText
    TabOrder = 2
    ViewStyle = vsReport
    OnDblClick = ListViewFilesDblClick
    OnMouseDown = OnMouseDown
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 573
    Height = 92
    AutoSize = True
    Bands = <
      item
        Break = False
        Control = AnimateThrobber
        FixedSize = True
        ImageIndex = -1
        MinHeight = 32
        Width = 569
      end
      item
        Break = False
        Control = ToolBarMain
        HorizontalOnly = True
        ImageIndex = -1
        MinHeight = 30
        Width = 567
      end
      item
        Control = ComboAddress
        ImageIndex = -1
        MinHeight = 22
        Text = 'Address:'
        Width = 567
      end>
    object ToolBarMain: TToolBar
      Left = 10
      Top = 34
      Width = 555
      Height = 30
      AutoSize = True
      ButtonHeight = 30
      ButtonWidth = 31
      Caption = 'ToolBarMain'
      DisabledImages = ImageListDisabled
      HotImages = ImageListHot
      Images = ImageListNormal
      TabOrder = 0
      object ButtonBack: TToolButton
        Left = 0
        Top = 0
        Action = ActionBack
      end
      object ButtonForward: TToolButton
        Left = 31
        Top = 0
        Action = ActionForward
      end
      object ToolButton2: TToolButton
        Left = 62
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object ButtonReload: TToolButton
        Left = 70
        Top = 0
        Action = ActionRefresh
      end
      object ButtonStop: TToolButton
        Left = 101
        Top = 0
        Action = ActionStop
      end
      object ToolButton3: TToolButton
        Left = 132
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object ButtonUp: TToolButton
        Left = 140
        Top = 0
        Action = ActionUp
      end
      object ButtonHome: TToolButton
        Left = 171
        Top = 0
        Action = ActionHome
      end
      object ToolButton1: TToolButton
        Left = 202
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 5
        Style = tbsSeparator
      end
    end
    object AnimateThrobber: TAnimate
      Left = 0
      Top = 0
      Width = 569
      Height = 32
      StopFrame = 40
      Transparent = False
    end
    object ComboAddress: TComboBox
      Left = 58
      Top = 66
      Width = 507
      Height = 22
      ItemHeight = 14
      TabOrder = 2
      OnCloseUp = ComboAddressCloseUp
      OnKeyDown = ComboAddressKeyDown
    end
  end
  object DropEmptySource1: TDropEmptySource
    DragTypes = [dtCopy, dtMove]
    OnDrop = DropEmptySource1Drop
    OnAfterDrop = DropEmptySource1AfterDrop
    OnGetData = DropEmptySource1GetData
    AllowAsyncTransfer = True
    Left = 40
    Top = 161
  end
  object DataFormatAdapterSource: TDataFormatAdapter
    DragDropComponent = DropEmptySource1
    DataFormatName = 'TVirtualFileStreamDataFormat'
    Left = 40
    Top = 193
  end
  object ImageListNormal: TImageList
    Height = 24
    Width = 24
    Left = 80
    Top = 240