dropfile.dfm

Drag files and Drop to delphi forms 0402

object FormFile: TFormFile
  Left = 371
  Top = 135
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Drag '#39'n'#39' Drop Demo - Files'
  ClientHeight = 373
  ClientWidth = 372
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = True
  Position = poMainFormCenter
  Scaled = False
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  object DriveComboBox: TDriveComboBox
    Left = 10
    Top = 120
    Width = 181
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnChange = DriveComboBoxChange
  end
  object DirectoryOutline: TDirectoryOutline
    Left = 10
    Top = 147
    Width = 181
    Height = 159
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ItemHeight = 14
    Options = [ooDrawFocusRect]
    ParentFont = False
    PictureClosed.Data = {
      DE000000424DDE0000000000000076000000280000000F0000000D0000000100
      0400000000006800000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFF0F0000000000FFFF088888888880FFFF08F7B7B7B780FFFF08FB7B7B7B80F
      FFF08F7B7B7B780FFFF08FB7B7B7B80FFFF08F7B7B7B780FFFF08FB7B7B7B80F
      FFF08FFFFFFFF80FFFF087B7B78888FFFFF0F87B78FFFFFFFFF0FF888FFFFFFF
      FFF0}
    PictureLeaf.Data = {
      DE000000424DDE0000000000000076000000280000000F0000000D0000000100
      0400000000006800000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFF0F0000000000FFFF088888888880FFFF08F7B7B7B780FFFF08FB7B7B7B80F
      FFF08F7B7B7B780FFFF08FB7B7B7B80FFFF08F7B7B7B780FFFF08FB7B7B7B80F
      FFF08FFFFFFFF80FFFF087B7B78888FFFFF0F87B78FFFFFFFFF0FF888FFFFFFF
      FFF0}
    PictureOpen.Data = {
      DE000000424DDE000000000000007600000028000000100000000D0000000100
      0400000000006800000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFF000000000FFFFFF8888888800FFFFFF8FB7B7B800FFFFF8FB7B7B7080
      FFFFF8F7B7B78080FFFF8F7B7B7B0880FFFF8FFFFFF80780FFFF888888888B80
      FFFFF8F7B7BFFF80FFFFF8FB7BF8888FFFFFFF8FFF8FFFFFFFFFFFF888FFFFFF
      FFFF}
    TabOrder = 2
    OnChange = DirectoryOutlineChange
    Data = {1C}
  end
  object Memo1: TMemo
    Left = 10
    Top = 50
    Width = 181
    Height = 65
    TabStop = False
    Color = clBtnFace
    Lines.Strings = (
      'Drag files between the file listview '
      'and Explorer or Desktop. (Use the '
      'Shift key to move, Ctrl key to copy '
      'files during a drag operation.)')
    ReadOnly = True
    TabOrder = 0
    WantReturns = False
  end
  object ListView1: TListView
    Left = 197
    Top = 49
    Width = 164
    Height = 256
    Hint = 'Right click for clipboard operations'
    Columns = <
      item
        Caption = 'Filename'
        Width = 140
      end>
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    HideSelection = False
    MultiSelect = True
    ReadOnly = True
    ParentFont = False
    PopupMenu = PopupMenu1
    ShowColumnHeaders = False
    SortType = stText
    TabOrder = 3
    ViewStyle = vsReport
    OnCustomDrawItem = ListView1CustomDrawItem
    OnMouseDown = ListView1MouseDown
  end
  object btnClose: TButton
    Left = 12
    Top = 316
    Width = 350
    Height = 30
    Cancel = True
    Caption = '&Close'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = btnCloseClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 354
    Width = 372
    Height = 19
    Panels = <>
    SimplePanel = True
    SizeGrip = False
  end
  object Panel1: TPanel
    Left = 10
    Top = 4
    Width = 350
    Height = 37
    BevelOuter = bvNone
    BorderWidth = 1
    BorderStyle = bsSingle
    Caption = 'TDropFileSource, TDropFileTarget'
    Color = clGray
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
  end
  object DropFileTarget1: TDropFileTarget
    DragTypes = [dtCopy, dtMove, dtLink]
    GetDataOnEnter = True
    OnEnter = DropFileTarget1Enter
    OnDrop = DropFileTarget1Drop
    OnGetDropEffect = DropFileTarget1GetDropEffect
    Target = ListView1
    OptimizedMove = True
    Left = 328
    Top = 200
  end
  object DropSource1: TDropFileSource
    DragTypes = [dtCopy, dtMove, dtLink]
    OnFeedback = DropSource1Feedback
    OnAfterDrop = DropSource1AfterDrop
    OnPaste = DropSource1Paste
    Images = ImageListMultiFile
    ShowImage = True
    Left = 328
    Top = 88
  end
  object ImageListMultiFile: TImageList
    Height = 32
    Width = 32
    Left = 328
    Top = 56
    Bitmap = {
      494C010102000400040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000800000002000000001002000000000000040
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000636331000000000021212100000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000848484008484
      8400848484008484840084848400848484008484840084848400848484008484
      8400848484008484840084848400848484008484840084848400848484008484
      8400848484008484840084848400848484008484840084848400848484008484
      8400848484008484840000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000636331000000000000000000000000006331310000000000737373000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000008484840000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000063633100212121004242
      420000000000633131009C639C00CE6363006331310073737300633131002121
      2100212121000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00000000008484840000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000009C639C009C639C0000000000000000006331
      3100CE636300C6C6C600FF9C9C009C639C00CE63630063313100633131006331
      31009C639C0021212100639CCE00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00000000008484840000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000