Properties.dfm 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451
  1. object PropertiesDialog: TPropertiesDialog
  2. Left = 416
  3. Top = 133
  4. HelpType = htKeyword
  5. HelpKeyword = 'ui_properties'
  6. BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  7. BorderStyle = bsDialog
  8. Caption = 'Properties'
  9. ClientHeight = 424
  10. ClientWidth = 398
  11. Color = clBtnFace
  12. ParentFont = True
  13. Position = poOwnerFormCenter
  14. OnCloseQuery = FormCloseQuery
  15. OnShow = FormShow
  16. DesignSize = (
  17. 398
  18. 424)
  19. TextHeight = 15
  20. object OkButton: TButton
  21. Left = 138
  22. Top = 391
  23. Width = 80
  24. Height = 25
  25. Anchors = [akRight, akBottom]
  26. Caption = 'OK'
  27. Default = True
  28. ModalResult = 1
  29. TabOrder = 1
  30. end
  31. object CancelButton: TButton
  32. Left = 224
  33. Top = 391
  34. Width = 80
  35. Height = 25
  36. Anchors = [akRight, akBottom]
  37. Cancel = True
  38. Caption = 'Cancel'
  39. ModalResult = 2
  40. TabOrder = 2
  41. end
  42. object PageControl: TPageControl
  43. Left = 0
  44. Top = 0
  45. Width = 398
  46. Height = 385
  47. ActivePage = CommonSheet
  48. Anchors = [akLeft, akTop, akRight, akBottom]
  49. TabOrder = 0
  50. OnChange = PageControlChange
  51. object CommonSheet: TTabSheet
  52. Caption = 'Common'
  53. DesignSize = (
  54. 390
  55. 355)
  56. object Bevel1: TBevel
  57. Left = 5
  58. Top = 44
  59. Width = 378
  60. Height = 9
  61. Anchors = [akLeft, akTop, akRight]
  62. Shape = bsTopLine
  63. end
  64. object Label1: TLabel
  65. Left = 5
  66. Top = 55
  67. Width = 49
  68. Height = 15
  69. Caption = 'Location:'
  70. ShowAccelChar = False
  71. end
  72. object Label2: TLabel
  73. Left = 5
  74. Top = 78
  75. Width = 23
  76. Height = 15
  77. Caption = 'Size:'
  78. ShowAccelChar = False
  79. end
  80. object LinksToLabelLabel: TLabel
  81. Left = 5
  82. Top = 101
  83. Width = 44
  84. Height = 15
  85. Caption = 'Links to:'
  86. ShowAccelChar = False
  87. end
  88. object Bevel2: TBevel
  89. Left = 5
  90. Top = 124
  91. Width = 378
  92. Height = 9
  93. Anchors = [akLeft, akTop, akRight]
  94. Shape = bsTopLine
  95. end
  96. object RightsLabel: TLabel
  97. Left = 5
  98. Top = 201
  99. Width = 66
  100. Height = 15
  101. Caption = 'Permissions:'
  102. FocusControl = RightsFrame
  103. end
  104. object GroupOwnerRightsBevel: TBevel
  105. Left = 5
  106. Top = 190
  107. Width = 378
  108. Height = 9
  109. Anchors = [akLeft, akTop, akRight]
  110. Shape = bsTopLine
  111. end
  112. object GroupLabel: TLabel
  113. Left = 5
  114. Top = 162
  115. Width = 36
  116. Height = 15
  117. Caption = 'Group:'
  118. FocusControl = GroupComboBox
  119. end
  120. object OwnerLabel: TLabel
  121. Left = 5
  122. Top = 136
  123. Width = 38
  124. Height = 15
  125. Caption = 'Owner:'
  126. FocusControl = OwnerComboBox
  127. end
  128. object FileIconImage: TImage
  129. Left = 8
  130. Top = 5
  131. Width = 32
  132. Height = 32
  133. AutoSize = True
  134. end
  135. object RecursiveBevel: TBevel
  136. Left = 5
  137. Top = 322
  138. Width = 378
  139. Height = 9
  140. Anchors = [akLeft, akTop, akRight]
  141. Shape = bsTopLine
  142. end
  143. object LocationLabel: TEdit
  144. Left = 90
  145. Top = 55
  146. Width = 293
  147. Height = 17
  148. TabStop = False
  149. Anchors = [akLeft, akTop, akRight]
  150. AutoSize = False
  151. BorderStyle = bsNone
  152. TabOrder = 7
  153. Text = 'LocationLabel'
  154. end
  155. object FileLabel: TEdit
  156. Left = 90
  157. Top = 13
  158. Width = 293
  159. Height = 17
  160. TabStop = False
  161. Anchors = [akLeft, akTop, akRight]
  162. AutoSize = False
  163. BorderStyle = bsNone
  164. TabOrder = 8
  165. Text = 'FileLabel'
  166. end
  167. object SizeLabel: TEdit
  168. Left = 90
  169. Top = 78
  170. Width = 215
  171. Height = 17
  172. TabStop = False
  173. Anchors = [akLeft, akTop, akRight]
  174. AutoSize = False
  175. BorderStyle = bsNone
  176. TabOrder = 9
  177. Text = 'SizeLabel'
  178. end
  179. object LinksToLabel: TEdit
  180. Left = 90
  181. Top = 101
  182. Width = 293
  183. Height = 17
  184. TabStop = False
  185. Anchors = [akLeft, akTop, akRight]
  186. AutoSize = False
  187. BorderStyle = bsNone
  188. TabOrder = 10
  189. Text = 'LinksToLabel'
  190. end
  191. object GroupView: TEdit
  192. Left = 90
  193. Top = 162
  194. Width = 293
  195. Height = 17
  196. TabStop = False
  197. Anchors = [akLeft, akTop, akRight]
  198. BorderStyle = bsNone
  199. MaxLength = 50
  200. TabOrder = 4
  201. Text = 'GroupView'
  202. end
  203. object OwnerView: TEdit
  204. Left = 90
  205. Top = 136
  206. Width = 293
  207. Height = 17
  208. TabStop = False
  209. Anchors = [akLeft, akTop, akRight]
  210. BorderStyle = bsNone
  211. MaxLength = 50
  212. TabOrder = 2
  213. Text = 'OwnerView'
  214. end
  215. inline RightsFrame: TRightsFrame
  216. Left = 89
  217. Top = 194
  218. Width = 258
  219. Height = 128
  220. TabOrder = 5
  221. end
  222. object GroupComboBox: TComboBox
  223. Left = 90
  224. Top = 159
  225. Width = 179
  226. Height = 23
  227. DropDownCount = 16
  228. MaxLength = 50
  229. TabOrder = 3
  230. Text = 'GroupComboBox'
  231. OnChange = ControlChange
  232. OnExit = GroupComboBoxExit
  233. end
  234. object OwnerComboBox: TComboBox
  235. Left = 90
  236. Top = 133
  237. Width = 179
  238. Height = 23
  239. DropDownCount = 16
  240. MaxLength = 50
  241. TabOrder = 1
  242. Text = 'OwnerComboBox'
  243. OnChange = ControlChange
  244. OnExit = OwnerComboBoxExit
  245. end
  246. object RecursiveCheck2: TCheckBox
  247. Left = 8
  248. Top = 332
  249. Width = 375
  250. Height = 17
  251. Anchors = [akLeft, akTop, akRight]
  252. Caption = 'Set owner, group and permissions &recursively'
  253. TabOrder = 6
  254. OnClick = ControlChange
  255. end
  256. object CalculateSizeButton: TButton
  257. Left = 303
  258. Top = 72
  259. Width = 80
  260. Height = 25
  261. Anchors = [akTop, akRight]
  262. Caption = 'C&alculate'
  263. TabOrder = 0
  264. OnClick = CalculateSizeButtonClick
  265. end
  266. end
  267. object ChecksumSheet: TTabSheet
  268. Caption = 'Checksum'
  269. ImageIndex = 1
  270. DesignSize = (
  271. 390
  272. 355)
  273. object Label6: TLabel
  274. Left = 5
  275. Top = 8
  276. Width = 57
  277. Height = 15
  278. Caption = '&Algorithm:'
  279. FocusControl = ChecksumAlgEdit
  280. end
  281. object ChecksumView: TListView
  282. Left = 5
  283. Top = 34
  284. Width = 378
  285. Height = 315
  286. Anchors = [akLeft, akTop, akRight, akBottom]
  287. Columns = <
  288. item
  289. Caption = 'File'
  290. Width = 100
  291. end
  292. item
  293. Caption = 'Checksum'
  294. Width = 100
  295. end>
  296. ColumnClick = False
  297. DoubleBuffered = True
  298. MultiSelect = True
  299. ReadOnly = True
  300. RowSelect = True
  301. ParentDoubleBuffered = False
  302. PopupMenu = ListViewMenu
  303. TabOrder = 2
  304. ViewStyle = vsReport
  305. OnContextPopup = ListViewContextPopup
  306. end
  307. object ChecksumAlgEdit: TComboBox
  308. Left = 90
  309. Top = 5
  310. Width = 152
  311. Height = 23
  312. AutoComplete = False
  313. Anchors = [akLeft, akTop, akRight]
  314. MaxLength = 250
  315. TabOrder = 0
  316. OnChange = ChecksumAlgEditChange
  317. OnEnter = ControlChange
  318. OnExit = ControlChange
  319. Items.Strings = (
  320. 'Xmd5')
  321. end
  322. object ChecksumButton: TButton
  323. Left = 248
  324. Top = 4
  325. Width = 135
  326. Height = 25
  327. Anchors = [akTop, akRight]
  328. Caption = '&Calculate checksum'
  329. TabOrder = 1
  330. OnClick = ChecksumButtonClick
  331. end
  332. object ChecksumGroup: TGroupBox
  333. Left = 5
  334. Top = 34
  335. Width = 378
  336. Height = 51
  337. Anchors = [akLeft, akRight, akBottom]
  338. Caption = 'Checksum'
  339. TabOrder = 3
  340. DesignSize = (
  341. 378
  342. 51)
  343. object ChecksumUnknownLabel: TLabel
  344. Left = 10
  345. Top = 18
  346. Width = 135
  347. Height = 15
  348. Caption = 'ChecksumUnknownLabel'
  349. ShowAccelChar = False
  350. end
  351. object ChecksumEdit: TEdit
  352. Left = 9
  353. Top = 22
  354. Width = 358
  355. Height = 19
  356. TabStop = False
  357. Anchors = [akLeft, akTop, akRight]
  358. BorderStyle = bsNone
  359. Color = clBtnFace
  360. ReadOnly = True
  361. TabOrder = 0
  362. Text = 'ChecksumEdit'
  363. end
  364. end
  365. end
  366. object TagsSheet: TTabSheet
  367. Caption = 'Tags'
  368. ImageIndex = 2
  369. DesignSize = (
  370. 390
  371. 355)
  372. object TagsView: TListView
  373. Left = 3
  374. Top = 5
  375. Width = 382
  376. Height = 227
  377. Anchors = [akLeft, akTop, akRight, akBottom]
  378. Columns = <
  379. item
  380. Caption = 'Key'
  381. Width = 100
  382. end
  383. item
  384. Caption = 'Value'
  385. Width = 100
  386. end>
  387. ColumnClick = False
  388. DoubleBuffered = True
  389. HideSelection = False
  390. ReadOnly = True
  391. RowSelect = True
  392. ParentDoubleBuffered = False
  393. PopupMenu = ListViewMenu
  394. TabOrder = 0
  395. ViewStyle = vsReport
  396. OnContextPopup = ListViewContextPopup
  397. OnDblClick = TagsViewDblClick
  398. OnKeyDown = TagsViewKeyDown
  399. OnSelectItem = TagsViewSelectItem
  400. end
  401. object AddTagButton: TButton
  402. Left = 133
  403. Top = 238
  404. Width = 80
  405. Height = 25
  406. Anchors = [akRight, akBottom]
  407. Caption = '&Add...'
  408. TabOrder = 1
  409. OnClick = AddTagButtonClick
  410. end
  411. object RemoveTagButton: TButton
  412. Left = 305
  413. Top = 238
  414. Width = 80
  415. Height = 25
  416. Anchors = [akRight, akBottom]
  417. Caption = '&Remove'
  418. TabOrder = 3
  419. OnClick = RemoveTagButtonClick
  420. end
  421. object EditTagButton: TButton
  422. Left = 219
  423. Top = 238
  424. Width = 80
  425. Height = 25
  426. Anchors = [akRight, akBottom]
  427. Caption = '&Edit...'
  428. TabOrder = 2
  429. OnClick = EditTagButtonClick
  430. end
  431. end
  432. end
  433. object HelpButton: TButton
  434. Left = 310
  435. Top = 391
  436. Width = 80
  437. Height = 25
  438. Anchors = [akRight, akBottom]
  439. Caption = '&Help'
  440. TabOrder = 3
  441. OnClick = HelpButtonClick
  442. end
  443. object ListViewMenu: TPopupMenu
  444. Left = 16
  445. Top = 400
  446. object Copy: TMenuItem
  447. Caption = '&Copy'
  448. OnClick = CopyClick
  449. end
  450. end
  451. end