main.dfm 2.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117
  1. object Form1: TForm1
  2. Left = 639
  3. Top = 369
  4. AutoScroll = False
  5. Caption = 'Multi Target demo'
  6. ClientHeight = 305
  7. ClientWidth = 475
  8. Color = clBtnFace
  9. Font.Charset = DEFAULT_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -11
  12. Font.Name = 'Arial'
  13. Font.Style = []
  14. OldCreateOrder = False
  15. Position = poScreenCenter
  16. OnDestroy = FormDestroy
  17. OnMouseMove = FormMouseMove
  18. PixelsPerInch = 96
  19. TextHeight = 14
  20. object Label1: TLabel
  21. Left = 0
  22. Top = 0
  23. Width = 475
  24. Height = 48
  25. Align = alTop
  26. Alignment = taCenter
  27. Caption =
  28. 'Demo of multiple controls registrered to a single drop target co' +
  29. 'mponent'
  30. Font.Charset = DEFAULT_CHARSET
  31. Font.Color = clWindowText
  32. Font.Height = -21
  33. Font.Name = 'Arial'
  34. Font.Style = []
  35. ParentFont = False
  36. WordWrap = True
  37. end
  38. object MemoLeft: TMemo
  39. Left = 40
  40. Top = 80
  41. Width = 185
  42. Height = 105
  43. TabOrder = 0
  44. OnMouseMove = FormMouseMove
  45. end
  46. object MemoRight: TMemo
  47. Left = 248
  48. Top = 80
  49. Width = 193
  50. Height = 105
  51. TabOrder = 1
  52. OnMouseMove = FormMouseMove
  53. end
  54. object CheckBoxLeft: TCheckBox
  55. Left = 88
  56. Top = 56
  57. Width = 97
  58. Height = 17
  59. Caption = 'Drop target'
  60. TabOrder = 2
  61. OnClick = CheckBoxLeftClick
  62. end
  63. object CheckBoxRight: TCheckBox
  64. Left = 296
  65. Top = 56
  66. Width = 97
  67. Height = 17
  68. Caption = 'Drop target'
  69. TabOrder = 3
  70. OnClick = CheckBoxRightClick
  71. end
  72. object MemoSource: TMemo
  73. Left = 40
  74. Top = 192
  75. Width = 401
  76. Height = 97
  77. Alignment = taCenter
  78. Lines.Strings = (
  79. 'Drag this text to one of the controls above...')
  80. TabOrder = 4
  81. WantReturns = False
  82. WordWrap = False
  83. OnMouseDown = MemoSourceMouseDown
  84. end
  85. object DropTextTarget1: TDropTextTarget
  86. Dragtypes = [dtCopy]
  87. GetDataOnEnter = False
  88. OnEnter = DropTextTarget1Enter
  89. OnLeave = DropTextTarget1Leave
  90. OnDrop = DropTextTarget1Drop
  91. ShowImage = True
  92. MultiTarget = True
  93. AllowAsyncTransfer = False
  94. Left = 224
  95. Top = 104
  96. end
  97. object DropTextSource1: TDropTextSource
  98. DragTypes = [dtCopy]
  99. ImageIndex = 0
  100. ShowImage = False
  101. ImageHotSpotX = 16
  102. ImageHotSpotY = 16
  103. AllowAsyncTransfer = False
  104. Left = 224
  105. Top = 232
  106. end
  107. object DropDummy1: TDropDummy
  108. Dragtypes = [dtCopy, dtMove, dtLink]
  109. GetDataOnEnter = False
  110. ShowImage = True
  111. Target = Owner
  112. AllowAsyncTransfer = False
  113. Left = 224
  114. Top = 48
  115. end
  116. end