Properties.dfm 11 KB

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