Main.dfm 1.6 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182
  1. object Form1: TForm1
  2. Left = 286
  3. Top = 171
  4. AutoScroll = False
  5. Caption = 'Simple Target Demo'
  6. ClientHeight = 254
  7. ClientWidth = 394
  8. Color = clBtnFace
  9. Font.Charset = DEFAULT_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -11
  12. Font.Name = 'MS Sans Serif'
  13. Font.Style = []
  14. OldCreateOrder = True
  15. Position = poScreenCenter
  16. Scaled = False
  17. PixelsPerInch = 96
  18. TextHeight = 13
  19. object Panel1: TPanel
  20. Left = 0
  21. Top = 0
  22. Width = 394
  23. Height = 41
  24. Align = alTop
  25. BevelOuter = bvNone
  26. TabOrder = 0
  27. object Label1: TLabel
  28. Left = 8
  29. Top = 16
  30. Width = 248
  31. Height = 13
  32. Caption = 'Drop files from Windows Explorer onto this Listview...'
  33. end
  34. end
  35. object Panel2: TPanel
  36. Left = 0
  37. Top = 209
  38. Width = 394
  39. Height = 45
  40. Align = alBottom
  41. BevelOuter = bvNone
  42. Caption = 'Panel2'
  43. TabOrder = 1
  44. object ButtonClose: TButton
  45. Left = 159
  46. Top = 12
  47. Width = 75
  48. Height = 25
  49. Cancel = True
  50. Caption = '&Close'
  51. TabOrder = 0
  52. OnClick = ButtonCloseClick
  53. end
  54. end
  55. object ListView1: TListView
  56. Left = 0
  57. Top = 41
  58. Width = 394
  59. Height = 168
  60. Align = alClient
  61. Columns = <
  62. item
  63. Caption = 'Filenames'
  64. Width = 380
  65. end>
  66. ReadOnly = True
  67. TabOrder = 2
  68. ViewStyle = vsReport
  69. end
  70. object DropFileTarget1: TDropFileTarget
  71. Dragtypes = [dtCopy, dtLink]
  72. GetDataOnEnter = False
  73. OnDrop = DropFileTarget1Drop
  74. ShowImage = True
  75. Target = ListView1
  76. OptimizedMove = True
  77. AllowAsyncTransfer = False
  78. Left = 329
  79. Top = 220
  80. end
  81. end