Target.dfm 1.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162
  1. object FormTarget: TFormTarget
  2. Left = 281
  3. Top = 400
  4. BorderIcons = [biMinimize, biMaximize]
  5. BorderStyle = bsDialog
  6. Caption = 'Custom Drop Target'
  7. ClientHeight = 229
  8. ClientWidth = 400
  9. Color = clBtnFace
  10. Font.Charset = DEFAULT_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -11
  13. Font.Name = 'MS Sans Serif'
  14. Font.Style = []
  15. OldCreateOrder = False
  16. Position = poDefaultPosOnly
  17. Visible = True
  18. OnCreate = FormCreate
  19. PixelsPerInch = 96
  20. TextHeight = 13
  21. object Panel2: TPanel
  22. Left = 0
  23. Top = 0
  24. Width = 400
  25. Height = 229
  26. Align = alClient
  27. BevelInner = bvLowered
  28. BevelOuter = bvNone
  29. BorderWidth = 4
  30. Caption = ' '
  31. TabOrder = 0
  32. object PanelDest: TPanel
  33. Left = 5
  34. Top = 24
  35. Width = 390
  36. Height = 200
  37. Align = alClient
  38. Caption = 'Drop here'
  39. TabOrder = 0
  40. end
  41. object Panel5: TPanel
  42. Left = 5
  43. Top = 5
  44. Width = 390
  45. Height = 19
  46. Align = alTop
  47. Caption = 'Drop target'
  48. TabOrder = 1
  49. end
  50. end
  51. object DropTextTarget1: TDropTextTarget
  52. Dragtypes = [dtCopy, dtLink]
  53. GetDataOnEnter = False
  54. OnDrop = DropTextTarget1Drop
  55. ShowImage = True
  56. Target = PanelDest
  57. AllowAsyncTransfer = False
  58. Left = 16
  59. Top = 32
  60. end
  61. end