Properties.dfm 9.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387
  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 LocationLabel: TEdit
  146. Left = 85
  147. Top = 58
  148. Width = 241
  149. Height = 17
  150. TabStop = False
  151. Anchors = [akLeft, akTop, akRight]
  152. AutoSize = False
  153. BorderStyle = bsNone
  154. TabOrder = 7
  155. Text = 'LocationLabel'
  156. end
  157. object FileLabel: TEdit
  158. Left = 85
  159. Top = 18
  160. Width = 241
  161. Height = 17
  162. TabStop = False
  163. Anchors = [akLeft, akTop, akRight]
  164. AutoSize = False
  165. BorderStyle = bsNone
  166. TabOrder = 8
  167. Text = 'FileLabel'
  168. end
  169. object SizeLabel: TEdit
  170. Left = 85
  171. Top = 80
  172. Width = 160
  173. Height = 17
  174. TabStop = False
  175. Anchors = [akLeft, akTop, akRight]
  176. AutoSize = False
  177. BorderStyle = bsNone
  178. TabOrder = 9
  179. Text = 'SizeLabel'
  180. end
  181. object LinksToLabel: TEdit
  182. Left = 85
  183. Top = 102
  184. Width = 241
  185. Height = 17
  186. TabStop = False
  187. Anchors = [akLeft, akTop, akRight]
  188. AutoSize = False
  189. BorderStyle = bsNone
  190. TabOrder = 10
  191. Text = 'LinksToLabel'
  192. end
  193. object GroupView: TEdit
  194. Left = 85
  195. Top = 166
  196. Width = 241
  197. Height = 17
  198. TabStop = False
  199. Anchors = [akLeft, akTop, akRight]
  200. BorderStyle = bsNone
  201. MaxLength = 50
  202. TabOrder = 4
  203. Text = 'GroupView'
  204. end
  205. object OwnerView: TEdit
  206. Left = 85
  207. Top = 138
  208. Width = 241
  209. Height = 17
  210. TabStop = False
  211. Anchors = [akLeft, akTop, akRight]
  212. BorderStyle = bsNone
  213. MaxLength = 50
  214. TabOrder = 2
  215. Text = 'OwnerView'
  216. end
  217. inline RightsFrame: TRightsFrame
  218. Left = 81
  219. Top = 199
  220. Width = 247
  221. Height = 109
  222. TabOrder = 5
  223. end
  224. object GroupComboBox: TComboBox
  225. Left = 85
  226. Top = 163
  227. Width = 161
  228. Height = 21
  229. DropDownCount = 16
  230. MaxLength = 50
  231. TabOrder = 3
  232. Text = 'GroupComboBox'
  233. OnChange = ControlChange
  234. OnExit = GroupComboBoxExit
  235. end
  236. object OwnerComboBox: TComboBox
  237. Left = 85
  238. Top = 135
  239. Width = 161
  240. Height = 21
  241. DropDownCount = 16
  242. MaxLength = 50
  243. TabOrder = 1
  244. Text = 'OwnerComboBox'
  245. OnChange = ControlChange
  246. OnExit = OwnerComboBoxExit
  247. end
  248. object RecursiveCheck2: TCheckBox
  249. Left = 12
  250. Top = 322
  251. Width = 317
  252. Height = 17
  253. Anchors = [akLeft, akTop, akRight]
  254. Caption = 'Set owner, group and permissions &recursively'
  255. TabOrder = 6
  256. OnClick = ControlChange
  257. end
  258. object CalculateSizeButton: TButton
  259. Left = 248
  260. Top = 72
  261. Width = 80
  262. Height = 25
  263. Anchors = [akTop, akRight]
  264. Caption = 'C&alculate'
  265. TabOrder = 0
  266. OnClick = CalculateSizeButtonClick
  267. end
  268. end
  269. object ChecksumSheet: TTabSheet
  270. Caption = 'Checksum'
  271. ImageIndex = 1
  272. DesignSize = (
  273. 338
  274. 346)
  275. object Label6: TLabel
  276. Left = 13
  277. Top = 13
  278. Width = 49
  279. Height = 13
  280. Caption = '&Algorithm:'
  281. FocusControl = ChecksumAlgEdit
  282. end
  283. object ChecksumView: TListView
  284. Left = 6
  285. Top = 40
  286. Width = 326
  287. Height = 297
  288. Anchors = [akLeft, akTop, akRight, akBottom]
  289. Columns = <
  290. item
  291. Caption = 'File'
  292. Width = 100
  293. end
  294. item
  295. Caption = 'Checksum'
  296. Width = 100
  297. end>
  298. ColumnClick = False
  299. DoubleBuffered = True
  300. MultiSelect = True
  301. ReadOnly = True
  302. RowSelect = True
  303. ParentDoubleBuffered = False
  304. PopupMenu = ListViewMenu
  305. TabOrder = 2
  306. ViewStyle = vsReport
  307. OnContextPopup = ChecksumViewContextPopup
  308. end
  309. object ChecksumAlgEdit: TComboBox
  310. Left = 80
  311. Top = 9
  312. Width = 121
  313. Height = 21
  314. AutoComplete = False
  315. Anchors = [akLeft, akTop, akRight]
  316. MaxLength = 250
  317. TabOrder = 0
  318. OnChange = ChecksumAlgEditChange
  319. OnEnter = ControlChange
  320. OnExit = ControlChange
  321. Items.Strings = (
  322. 'Xmd5')
  323. end
  324. object ChecksumButton: TButton
  325. Left = 208
  326. Top = 7
  327. Width = 122
  328. Height = 25
  329. Anchors = [akTop, akRight]
  330. Caption = '&Calculate checksum'
  331. TabOrder = 1
  332. OnClick = ChecksumButtonClick
  333. end
  334. object ChecksumGroup: TGroupBox
  335. Left = 6
  336. Top = 40
  337. Width = 326
  338. Height = 41
  339. Anchors = [akLeft, akRight, akBottom]
  340. Caption = 'Checksum'
  341. TabOrder = 3
  342. DesignSize = (
  343. 326
  344. 41)
  345. object ChecksumUnknownLabel: TLabel
  346. Left = 10
  347. Top = 18
  348. Width = 117
  349. Height = 13
  350. Caption = 'ChecksumUnknownLabel'
  351. ShowAccelChar = False
  352. end
  353. object ChecksumEdit: TEdit
  354. Left = 10
  355. Top = 18
  356. Width = 306
  357. Height = 19
  358. TabStop = False
  359. Anchors = [akLeft, akTop, akRight]
  360. BorderStyle = bsNone
  361. Color = clBtnFace
  362. ReadOnly = True
  363. TabOrder = 0
  364. Text = 'ChecksumEdit'
  365. end
  366. end
  367. end
  368. end
  369. object HelpButton: TButton
  370. Left = 275
  371. Top = 386
  372. Width = 75
  373. Height = 25
  374. Anchors = [akRight, akBottom]
  375. Caption = '&Help'
  376. TabOrder = 3
  377. OnClick = HelpButtonClick
  378. end
  379. object ListViewMenu: TPopupMenu
  380. Left = 16
  381. Top = 384
  382. object Copy: TMenuItem
  383. Caption = '&Copy'
  384. OnClick = CopyClick
  385. end
  386. end
  387. end