Unit1.dfm 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121
  1. object Form1: TForm1
  2. Left = 193
  3. Top = 169
  4. AutoScroll = False
  5. Caption = 'TDropPidlSource & TDropPidlTarget demo'
  6. ClientHeight = 261
  7. ClientWidth = 437
  8. Color = clBtnFace
  9. Font.Charset = ANSI_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -12
  12. Font.Name = 'Arial'
  13. Font.Style = []
  14. OldCreateOrder = True
  15. Position = poScreenCenter
  16. Scaled = False
  17. OnCreate = FormCreate
  18. OnDestroy = FormDestroy
  19. PixelsPerInch = 96
  20. TextHeight = 15
  21. object ListView1: TListView
  22. Left = 0
  23. Top = 60
  24. Width = 437
  25. Height = 182
  26. Align = alClient
  27. Columns = <
  28. item
  29. Caption = 'Name'
  30. Width = 400
  31. end>
  32. MultiSelect = True
  33. TabOrder = 0
  34. ViewStyle = vsReport
  35. OnDblClick = ListView1DblClick
  36. OnKeyPress = ListView1KeyPress
  37. OnMouseDown = ListView1MouseDown
  38. end
  39. object Panel1: TPanel
  40. Left = 0
  41. Top = 0
  42. Width = 437
  43. Height = 60
  44. Align = alTop
  45. BevelOuter = bvNone
  46. TabOrder = 1
  47. object Label1: TLabel
  48. Left = 43
  49. Top = 10
  50. Width = 149
  51. Height = 14
  52. Caption = '©1997-99 Johnson && Melander'
  53. Font.Charset = ANSI_CHARSET
  54. Font.Color = clWindowText
  55. Font.Height = -11
  56. Font.Name = 'Arial'
  57. Font.Style = []
  58. ParentFont = False
  59. end
  60. object sbUpLevel: TSpeedButton
  61. Left = 4
  62. Top = 4
  63. Width = 25
  64. Height = 25
  65. Enabled = False
  66. Glyph.Data = {
  67. 5A010000424D5A01000000000000760000002800000014000000130000000100
  68. 040000000000E400000000000000000000001000000010000000000000000000
  69. 80000080000000808000800000008000800080800000C0C0C000808080000000
  70. FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  71. 7777777700007777777777777777777700007777777777777777777700007700
  72. 00000000000007770000770FBFBFBFBFBFBF07770000770BFBFBFBFBFBFB0777
  73. 0000770FBFB000000FBF07770000770BFBF0FBFBFBFB07770000770FBFB0BFBF
  74. BFBF07770000770BF00000FBFBFB07770000770FBF000FBFBFBF07770000770B
  75. FBF0FBFBFBFB07770000770FBFBFBFBFBFBF0777000077000000000000007777
  76. 00007770BFBFB077777777770000777700000777777777770000777777777777
  77. 777777770000777777777777777777770000777777777777777777770000}
  78. OnClick = sbUpLevelClick
  79. end
  80. object Button1: TButton
  81. Left = 373
  82. Top = 5
  83. Width = 62
  84. Height = 25
  85. Cancel = True
  86. Caption = 'E&xit'
  87. TabOrder = 0
  88. OnClick = Button1Click
  89. end
  90. end
  91. object StatusBar1: TStatusBar
  92. Left = 0
  93. Top = 242
  94. Width = 437
  95. Height = 19
  96. Panels = <>
  97. SimplePanel = True
  98. SimpleText = ' Copy files and/or folders by dragging them to and from Explorer'
  99. end
  100. object DropPIDLSource1: TDropPIDLSource
  101. DragTypes = [dtCopy, dtMove, dtLink]
  102. ImageIndex = 0
  103. ShowImage = False
  104. ImageHotSpotX = 40
  105. ImageHotSpotY = 8
  106. AllowAsyncTransfer = False
  107. Left = 403
  108. Top = 98
  109. end
  110. object DropPIDLTarget1: TDropPIDLTarget
  111. Dragtypes = [dtCopy, dtMove]
  112. GetDataOnEnter = False
  113. OnDragOver = DropPIDLTarget1DragOver
  114. OnDrop = DropPIDLTarget1Drop
  115. ShowImage = True
  116. AllowAsyncTransfer = False
  117. Left = 403
  118. Top = 129
  119. end
  120. end