Main.dfm 1.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283
  1. object Form1: TForm1
  2. Left = 236
  3. Top = 162
  4. AutoScroll = False
  5. Caption = 'Simple Source Demo'
  6. ClientHeight = 258
  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. OnCreate = FormCreate
  18. PixelsPerInch = 96
  19. TextHeight = 13
  20. object Panel1: TPanel
  21. Left = 0
  22. Top = 0
  23. Width = 394
  24. Height = 38
  25. Align = alTop
  26. BevelOuter = bvNone
  27. TabOrder = 0
  28. object Label1: TLabel
  29. Left = 3
  30. Top = 13
  31. Width = 246
  32. Height = 13
  33. Caption = 'Drag files from this Listbox onto Windows Explorer ...'
  34. end
  35. end
  36. object Panel2: TPanel
  37. Left = 0
  38. Top = 217
  39. Width = 394
  40. Height = 41
  41. Align = alBottom
  42. BevelOuter = bvNone
  43. Caption = 'Panel2'
  44. TabOrder = 1
  45. object ButtonClose: TButton
  46. Left = 160
  47. Top = 8
  48. Width = 75
  49. Height = 25
  50. Cancel = True
  51. Caption = '&Close'
  52. TabOrder = 0
  53. OnClick = ButtonCloseClick
  54. end
  55. end
  56. object ListView1: TListView
  57. Left = 0
  58. Top = 38
  59. Width = 394
  60. Height = 179
  61. Align = alClient
  62. Columns = <
  63. item
  64. Caption = 'Filenames'
  65. Width = 380
  66. end>
  67. MultiSelect = True
  68. TabOrder = 2
  69. ViewStyle = vsReport
  70. OnMouseDown = ListView1MouseDown
  71. end
  72. object DropFileSource1: TDropFileSource
  73. DragTypes = [dtCopy, dtLink]
  74. ImageIndex = 0
  75. ShowImage = False
  76. ImageHotSpotX = 16
  77. ImageHotSpotY = 16
  78. AllowAsyncTransfer = False
  79. Left = 355
  80. Top = 224
  81. end
  82. end