Main.dfm 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141
  1. object FormMain: TFormMain
  2. Left = 269
  3. Top = 106
  4. AutoScroll = False
  5. Caption = 'TDataFormatAdapter demo'
  6. ClientHeight = 306
  7. ClientWidth = 518
  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 = False
  15. Position = poDefaultPosOnly
  16. PixelsPerInch = 96
  17. TextHeight = 13
  18. object Panel1: TPanel
  19. Left = 0
  20. Top = 0
  21. Width = 518
  22. Height = 57
  23. Align = alTop
  24. BevelOuter = bvNone
  25. BorderWidth = 2
  26. Caption = ' '
  27. TabOrder = 0
  28. object Label1: TLabel
  29. Left = 2
  30. Top = 2
  31. Width = 514
  32. Height = 53
  33. Align = alClient
  34. AutoSize = False
  35. Caption =
  36. 'This application demonstrates how to use the TDataFormatAdapter ' +
  37. 'component to extend existing drop target (or source) components ' +
  38. 'with support for additional data formats.'
  39. WordWrap = True
  40. end
  41. end
  42. object GroupBox1: TGroupBox
  43. Left = 0
  44. Top = 57
  45. Width = 518
  46. Height = 72
  47. Align = alTop
  48. Caption = ' Text '
  49. TabOrder = 1
  50. object MemoText: TMemo
  51. Left = 2
  52. Top = 15
  53. Width = 514
  54. Height = 55
  55. Align = alClient
  56. BorderStyle = bsNone
  57. ParentColor = True
  58. TabOrder = 0
  59. end
  60. end
  61. object GroupBox2: TGroupBox
  62. Left = 0
  63. Top = 201
  64. Width = 518
  65. Height = 72
  66. Align = alTop
  67. Caption = ' URLs '
  68. TabOrder = 2
  69. object MemoURL: TMemo
  70. Left = 2
  71. Top = 15
  72. Width = 514
  73. Height = 55
  74. Align = alClient
  75. BorderStyle = bsNone
  76. ParentColor = True
  77. TabOrder = 0
  78. end
  79. end
  80. object GroupBox3: TGroupBox
  81. Left = 0
  82. Top = 129
  83. Width = 518
  84. Height = 72
  85. Align = alTop
  86. Caption = ' Files '
  87. TabOrder = 3
  88. object MemoFile: TMemo
  89. Left = 2
  90. Top = 15
  91. Width = 514
  92. Height = 55
  93. Align = alClient
  94. BorderStyle = bsNone
  95. ParentColor = True
  96. TabOrder = 0
  97. end
  98. end
  99. object Panel2: TPanel
  100. Left = 0
  101. Top = 273
  102. Width = 518
  103. Height = 33
  104. Align = alClient
  105. BevelOuter = bvNone
  106. BorderWidth = 4
  107. Caption = 'Drop text, files or URLs anywhere within this window.'
  108. Font.Charset = DEFAULT_CHARSET
  109. Font.Color = clBlue
  110. Font.Height = -11
  111. Font.Name = 'MS Sans Serif'
  112. Font.Style = []
  113. ParentFont = False
  114. TabOrder = 4
  115. end
  116. object DropTextTarget1: TDropTextTarget
  117. Dragtypes = [dtCopy, dtLink]
  118. GetDataOnEnter = False
  119. OnDrop = DropTextTarget1Drop
  120. ShowImage = True
  121. Target = Owner
  122. AllowAsyncTransfer = False
  123. Left = 24
  124. Top = 32
  125. end
  126. object DataFormatAdapterFile: TDataFormatAdapter
  127. DragDropComponent = DropTextTarget1
  128. DataFormatName = 'TFileDataFormat'
  129. Enabled = True
  130. Left = 76
  131. Top = 32
  132. end
  133. object DataFormatAdapterURL: TDataFormatAdapter
  134. DragDropComponent = DropTextTarget1
  135. DataFormatName = 'TURLDataFormat'
  136. Enabled = True
  137. Left = 116
  138. Top = 32
  139. end
  140. end