demo.dfm 7.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243
  1. object FormDemo: TFormDemo
  2. Left = 298
  3. Top = 109
  4. ActiveControl = ButtonText
  5. BorderIcons = [biSystemMenu]
  6. BorderStyle = bsDialog
  7. Caption = 'Drag '#39'n'#39' Drop Demo'
  8. ClientHeight = 380
  9. ClientWidth = 292
  10. Color = clBtnFace
  11. Font.Charset = DEFAULT_CHARSET
  12. Font.Color = clWindowText
  13. Font.Height = -16
  14. Font.Name = 'Arial'
  15. Font.Style = [fsBold]
  16. OldCreateOrder = True
  17. Position = poScreenCenter
  18. Scaled = False
  19. PixelsPerInch = 96
  20. TextHeight = 19
  21. object Panel1: TPanel
  22. Left = 0
  23. Top = 0
  24. Width = 292
  25. Height = 380
  26. Align = alClient
  27. BevelOuter = bvNone
  28. BorderWidth = 8
  29. Caption = ' '
  30. TabOrder = 0
  31. object Label3: TLabel
  32. Left = 8
  33. Top = 47
  34. Width = 272
  35. Height = 18
  36. Alignment = taCenter
  37. AutoSize = False
  38. Caption = 'Version 4.0'
  39. Color = clBtnFace
  40. Font.Charset = DEFAULT_CHARSET
  41. Font.Color = clWindowText
  42. Font.Height = -13
  43. Font.Name = 'Arial'
  44. Font.Style = [fsBold]
  45. ParentColor = False
  46. ParentFont = False
  47. ShowAccelChar = False
  48. end
  49. object ButtonText: TBitBtn
  50. Left = 63
  51. Top = 73
  52. Width = 161
  53. Height = 57
  54. Caption = 'Drag && Drop &Text'
  55. TabOrder = 0
  56. OnClick = ButtonTextClick
  57. Glyph.Data = {
  58. 96010000424D9601000000000000760000002800000018000000180000000100
  59. 0400000000002001000000000000000000001000000000000000000000000000
  60. 80000080000000808000800000008000800080800000C0C0C000808080000000
  61. FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  62. 7777777777777777777777777777007777777777777777777770F70777777777
  63. 788888807770F80777777777777777700F0F70777777777788888870F00F8077
  64. 7777777777777770FFF707777777777888888880FFFF00007787780000000080
  65. FFF77807778778FFFFFFFFF0FF778087878778FFFFFFFFF0F7780887878778FF
  66. 88888870F780F887878778FFFFFFFFF0780FF087878778FF8888887080FFF087
  67. 878778FFFFFFFFF00FFFF087878778FF88888870788FF087877778FFFFFFFFFF
  68. FFFFF087877778FF8888888888FFF087777778FFFFFFFFFFFFFFF087777778FF
  69. FFFFFFFFFFFFF087777778FFFFFFFFFFFFFFF077777778888888888888888877
  70. 7777777777777777777777777777777777777777777777777777}
  71. Layout = blGlyphTop
  72. end
  73. object ButtonExit: TBitBtn
  74. Left = 63
  75. Top = 258
  76. Width = 161
  77. Height = 26
  78. Cancel = True
  79. Caption = 'E&xit'
  80. TabOrder = 3
  81. OnClick = ButtonExitClick
  82. end
  83. object ButtonFile: TBitBtn
  84. Left = 63
  85. Top = 133
  86. Width = 161
  87. Height = 57
  88. Caption = 'Drag && Drop &Files'
  89. TabOrder = 1
  90. OnClick = ButtonFileClick
  91. Glyph.Data = {
  92. 96010000424D9601000000000000760000002800000018000000180000000100
  93. 0400000000002001000000000000000000001000000000000000000000000000
  94. 80000080000000808000800000008000800080800000C0C0C000808080000000
  95. FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  96. 7777777777777777777777777777007777777777777777777770F70777777777
  97. 788888807770F80777777777777777700F0F70777777777788888870F00F8077
  98. 7777777777777770FFF707777777777000000080FFFF00007787788888888880
  99. FFF77807778778FB7B7B7B70FF778087878778F7B7B7B7B0F7780887878778FB
  100. 7B7B7B70F7807807878778F7B7B7B7B07807B807878778FB7B7B7B70807B7807
  101. 878778F7B7B7B7B007B7B807878778FB7B7B7B707B7B7807877778F7B7B7B7B7
  102. B7B7B807877778FB7B7B7B7B7B7B7807777778FFFFFFFFFFFFFFF877777778B7
  103. B7B7B888888888777777778B7B7B877777777777777777788888777777777777
  104. 7777777777777777777777777777777777777777777777777777}
  105. Layout = blGlyphTop
  106. end
  107. object Panel2: TPanel
  108. Left = 8
  109. Top = 307
  110. Width = 276
  111. Height = 65
  112. Align = alBottom
  113. BevelOuter = bvNone
  114. BorderStyle = bsSingle
  115. Color = clGray
  116. TabOrder = 4
  117. object Label2: TLabel
  118. Left = 79
  119. Top = 5
  120. Width = 121
  121. Height = 14
  122. Alignment = taCenter
  123. Caption = 'Copyright (c) 1997-2001.'
  124. Color = clGray
  125. Font.Charset = DEFAULT_CHARSET
  126. Font.Color = clWhite
  127. Font.Height = -11
  128. Font.Name = 'Arial'
  129. Font.Style = []
  130. ParentColor = False
  131. ParentFont = False
  132. end
  133. object Label4: TLabel
  134. Left = 28
  135. Top = 20
  136. Width = 79
  137. Height = 14
  138. Caption = 'Angus Johnson:'
  139. Color = clGray
  140. Font.Charset = DEFAULT_CHARSET
  141. Font.Color = clWhite
  142. Font.Height = -11
  143. Font.Name = 'Arial'
  144. Font.Style = []
  145. ParentColor = False
  146. ParentFont = False
  147. end
  148. object Label5: TLabel
  149. Left = 28
  150. Top = 35
  151. Width = 86
  152. Height = 14
  153. Caption = 'Anders Melander:'
  154. Color = clGray
  155. Font.Charset = DEFAULT_CHARSET
  156. Font.Color = clWhite
  157. Font.Height = -11
  158. Font.Name = 'Arial'
  159. Font.Style = []
  160. ParentColor = False
  161. ParentFont = False
  162. end
  163. object Label6: TLabel
  164. Left = 127
  165. Top = 20
  166. Width = 100
  167. Height = 14
  168. Cursor = crHandPoint
  169. Caption = 'ajohnson@rpi.net.au'
  170. Color = clGray
  171. Font.Charset = DEFAULT_CHARSET
  172. Font.Color = clBlue
  173. Font.Height = -11
  174. Font.Name = 'Arial'
  175. Font.Style = [fsUnderline]
  176. ParentColor = False
  177. ParentFont = False
  178. OnClick = Label6Click
  179. end
  180. object Label7: TLabel
  181. Left = 127
  182. Top = 35
  183. Width = 118
  184. Height = 14
  185. Cursor = crHandPoint
  186. Caption = 'http://www.melander.dk'
  187. Color = clGray
  188. Font.Charset = DEFAULT_CHARSET
  189. Font.Color = clBlue
  190. Font.Height = -11
  191. Font.Name = 'Arial'
  192. Font.Style = [fsUnderline]
  193. ParentColor = False
  194. ParentFont = False
  195. OnClick = Label1Click
  196. end
  197. end
  198. object Panel3: TPanel
  199. Left = 8
  200. Top = 8
  201. Width = 276
  202. Height = 29
  203. Align = alTop
  204. BevelOuter = bvNone
  205. BorderWidth = 1
  206. BorderStyle = bsSingle
  207. Caption = 'Drag '#39'n'#39' Drop Demo'
  208. Color = clGray
  209. Font.Charset = DEFAULT_CHARSET
  210. Font.Color = clWhite
  211. Font.Height = -16
  212. Font.Name = 'Arial'
  213. Font.Style = [fsBold]
  214. ParentFont = False
  215. TabOrder = 5
  216. end
  217. object ButtonURL: TBitBtn
  218. Left = 63
  219. Top = 193
  220. Width = 161
  221. Height = 57
  222. Caption = '&URLs && Bitmaps'
  223. TabOrder = 2
  224. OnClick = ButtonURLClick
  225. Glyph.Data = {
  226. 96010000424D9601000000000000760000002800000018000000180000000100
  227. 0400000000002001000000000000000000001000000010000000000000000000
  228. 80000080000000808000800000008000800080800000C0C0C000808080000000
  229. FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  230. 777777777777777777777777777007777777777788888877770F707777777777
  231. 77777707770F8077777777788888870070F70777777777777777770F00F80777
  232. 777778000000080FFF7088880777784F4B4E4E0FFFF0000B077778C4E4E4CE0F
  233. FF7780A80787784C4F4B4E0FF7780A22078778C4B4E4CE0F7780A222078778EF
  234. EFEFEE0F780E2A22078778EEEEEEEE0780EEA222078778EEEEEEEE080EEEEEA2
  235. 078778EEEEEEEE00EEEEEEEA078778EEEBBEEE0EEEEEEEEE078778EEBFFBEEEE
  236. EEEEEEEE078778EEBFFBEEEEEEEEEEEE078778EEEBBEEEEEEEEEEEEE078778EE
  237. EEEEEEEEEEEEEEEE077778EEEEEEEEEEEEEEEEEE077778888888888888888888
  238. 8777777777777777777777777777777777777777777777777777}
  239. Layout = blGlyphTop
  240. end
  241. end
  242. end