Properties.dfm 9.4 KB

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