1
0

Properties.dfm 8.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345
  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. end
  73. object LocationLabel: TPathLabel
  74. Left = 85
  75. Top = 58
  76. Width = 243
  77. Height = 13
  78. UnixPath = True
  79. IndentHorizontal = 0
  80. IndentVertical = 0
  81. Align = alNone
  82. Anchors = [akLeft, akTop, akRight]
  83. AutoSize = False
  84. end
  85. object FileLabel: TLabel
  86. Left = 85
  87. Top = 18
  88. Width = 241
  89. Height = 13
  90. AutoSize = False
  91. Caption = 'FileLabel'
  92. end
  93. object Label2: TLabel
  94. Left = 8
  95. Top = 80
  96. Width = 23
  97. Height = 13
  98. Caption = 'Size:'
  99. end
  100. object SizeLabel: TLabel
  101. Left = 85
  102. Top = 80
  103. Width = 160
  104. Height = 13
  105. Anchors = [akLeft, akTop, akRight]
  106. AutoSize = False
  107. Caption = 'SizeLabel'
  108. end
  109. object LinksToLabelLabel: TLabel
  110. Left = 8
  111. Top = 102
  112. Width = 40
  113. Height = 13
  114. Caption = 'Links to:'
  115. end
  116. object LinksToLabel: TPathLabel
  117. Left = 85
  118. Top = 102
  119. Width = 240
  120. Height = 13
  121. UnixPath = True
  122. IndentHorizontal = 0
  123. IndentVertical = 0
  124. Align = alNone
  125. Anchors = [akLeft, akTop, akRight]
  126. AutoSize = False
  127. end
  128. object Bevel2: TBevel
  129. Left = 8
  130. Top = 125
  131. Width = 320
  132. Height = 9
  133. Anchors = [akLeft, akTop, akRight]
  134. Shape = bsTopLine
  135. end
  136. object Label3: TLabel
  137. Left = 8
  138. Top = 203
  139. Width = 59
  140. Height = 13
  141. Caption = 'Permissions:'
  142. FocusControl = RightsFrame
  143. end
  144. object Bevel3: TBevel
  145. Left = 8
  146. Top = 193
  147. Width = 320
  148. Height = 9
  149. Anchors = [akLeft, akTop, akRight]
  150. Shape = bsTopLine
  151. end
  152. object Label4: TLabel
  153. Left = 8
  154. Top = 138
  155. Width = 33
  156. Height = 13
  157. Caption = 'Group:'
  158. FocusControl = GroupComboBox
  159. end
  160. object Label5: TLabel
  161. Left = 8
  162. Top = 166
  163. Width = 36
  164. Height = 13
  165. Caption = 'Owner:'
  166. FocusControl = OwnerComboBox
  167. end
  168. object FileIconImage: TImage
  169. Left = 11
  170. Top = 8
  171. Width = 32
  172. Height = 32
  173. AutoSize = True
  174. end
  175. object RecursiveBevel: TBevel
  176. Left = 8
  177. Top = 312
  178. Width = 320
  179. Height = 9
  180. Anchors = [akLeft, akTop, akRight]
  181. Shape = bsTopLine
  182. end
  183. inline RightsFrame: TRightsExtFrame
  184. Left = 84
  185. Top = 200
  186. Width = 244
  187. Height = 109
  188. TabOrder = 3
  189. end
  190. object GroupComboBox: TComboBox
  191. Left = 85
  192. Top = 135
  193. Width = 161
  194. Height = 21
  195. DropDownCount = 16
  196. MaxLength = 50
  197. TabOrder = 1
  198. Text = 'GroupComboBox'
  199. OnChange = ControlChange
  200. OnExit = GroupComboBoxExit
  201. end
  202. object OwnerComboBox: TComboBox
  203. Left = 85
  204. Top = 163
  205. Width = 161
  206. Height = 21
  207. DropDownCount = 16
  208. MaxLength = 50
  209. TabOrder = 2
  210. Text = 'OwnerComboBox'
  211. OnChange = ControlChange
  212. OnExit = OwnerComboBoxExit
  213. end
  214. object RecursiveCheck: TCheckBox
  215. Left = 12
  216. Top = 322
  217. Width = 317
  218. Height = 17
  219. Anchors = [akLeft, akTop, akRight]
  220. Caption = 'Set group, owner and permissions &recursively'
  221. TabOrder = 4
  222. OnClick = ControlChange
  223. end
  224. object CalculateSizeButton: TButton
  225. Left = 248
  226. Top = 72
  227. Width = 80
  228. Height = 25
  229. Anchors = [akTop, akRight]
  230. Caption = 'C&alculate'
  231. TabOrder = 0
  232. OnClick = CalculateSizeButtonClick
  233. end
  234. end
  235. object ChecksumSheet: TTabSheet
  236. Caption = 'Checksum'
  237. ImageIndex = 1
  238. DesignSize = (
  239. 338
  240. 346)
  241. object Label6: TLabel
  242. Left = 13
  243. Top = 13
  244. Width = 49
  245. Height = 13
  246. Caption = '&Algorithm:'
  247. FocusControl = ChecksumAlgEdit
  248. end
  249. object ChecksumView: TListView
  250. Left = 6
  251. Top = 40
  252. Width = 326
  253. Height = 297
  254. Anchors = [akLeft, akTop, akRight, akBottom]
  255. Columns = <
  256. item
  257. Caption = 'File'
  258. Width = 100
  259. end
  260. item
  261. Caption = 'Checksum'
  262. Width = 100
  263. end>
  264. ColumnClick = False
  265. DoubleBuffered = True
  266. MultiSelect = True
  267. ReadOnly = True
  268. RowSelect = True
  269. ParentDoubleBuffered = False
  270. PopupMenu = ListViewMenu
  271. TabOrder = 2
  272. ViewStyle = vsReport
  273. OnContextPopup = ChecksumViewContextPopup
  274. end
  275. object ChecksumAlgEdit: TComboBox
  276. Left = 80
  277. Top = 9
  278. Width = 121
  279. Height = 21
  280. AutoComplete = False
  281. Anchors = [akLeft, akTop, akRight]
  282. MaxLength = 250
  283. TabOrder = 0
  284. OnChange = ChecksumAlgEditChange
  285. OnEnter = ControlChange
  286. OnExit = ControlChange
  287. Items.Strings = (
  288. 'Xmd5')
  289. end
  290. object ChecksumButton: TButton
  291. Left = 208
  292. Top = 7
  293. Width = 122
  294. Height = 25
  295. Anchors = [akTop, akRight]
  296. Caption = '&Calculate checksum'
  297. TabOrder = 1
  298. OnClick = ChecksumButtonClick
  299. end
  300. object ChecksumGroup: TGroupBox
  301. Left = 6
  302. Top = 40
  303. Width = 326
  304. Height = 41
  305. Anchors = [akLeft, akRight, akBottom]
  306. Caption = 'Checksum'
  307. TabOrder = 3
  308. DesignSize = (
  309. 326
  310. 41)
  311. object ChecksumEdit: TEdit
  312. Left = 10
  313. Top = 18
  314. Width = 306
  315. Height = 19
  316. TabStop = False
  317. Anchors = [akLeft, akTop, akRight]
  318. BorderStyle = bsNone
  319. Color = clBtnFace
  320. ReadOnly = True
  321. TabOrder = 0
  322. Text = 'ChecksumEdit'
  323. end
  324. end
  325. end
  326. end
  327. object HelpButton: TButton
  328. Left = 275
  329. Top = 386
  330. Width = 75
  331. Height = 25
  332. Anchors = [akRight, akBottom]
  333. Caption = '&Help'
  334. TabOrder = 3
  335. OnClick = HelpButtonClick
  336. end
  337. object ListViewMenu: TPopupMenu
  338. Left = 16
  339. Top = 384
  340. object Copy: TMenuItem
  341. Caption = '&Copy'
  342. OnClick = CopyClick
  343. end
  344. end
  345. end