/jcl/examples/windows/compression/archive/UMain.dfm

https://github.com/the-Arioch/jcl · Unknown · 387 lines · 387 code · 0 blank · 0 comment · 0 complexity · cfa0dc7a5c4b51aaca6df838cd2e5384 MD5 · raw file

  1. object FormMain: TFormMain
  2. Left = 0
  3. Top = 0
  4. Caption = 'FormMain'
  5. ClientHeight = 301
  6. ClientWidth = 771
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'Tahoma'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. OnCreate = FormCreate
  15. OnDestroy = FormDestroy
  16. PixelsPerInch = 96
  17. TextHeight = 13
  18. object ListView1: TListView
  19. Left = 0
  20. Top = 81
  21. Width = 771
  22. Height = 204
  23. Align = alClient
  24. Columns = <
  25. item
  26. Caption = 'Local name'
  27. Width = 150
  28. end
  29. item
  30. Caption = 'Archive name'
  31. Width = 150
  32. end
  33. item
  34. Caption = 'Size'
  35. Width = 30
  36. end
  37. item
  38. Caption = 'Compressed'
  39. Width = 30
  40. end
  41. item
  42. Caption = 'Creation'
  43. end
  44. item
  45. Caption = 'Last access'
  46. end
  47. item
  48. Caption = 'Last write'
  49. end
  50. item
  51. Caption = 'Comment'
  52. Width = 30
  53. end
  54. item
  55. Caption = 'OS'
  56. Width = 20
  57. end
  58. item
  59. Caption = 'FS'
  60. Width = 20
  61. end
  62. item
  63. Caption = 'User'
  64. Width = 20
  65. end
  66. item
  67. Caption = 'Group'
  68. Width = 20
  69. end
  70. item
  71. Caption = 'CRC'
  72. end>
  73. MultiSelect = True
  74. OwnerData = True
  75. RowSelect = True
  76. TabOrder = 0
  77. ViewStyle = vsReport
  78. OnData = ListView1Data
  79. end
  80. object ProgressBar1: TProgressBar
  81. Left = 0
  82. Top = 285
  83. Width = 771
  84. Height = 16
  85. Align = alBottom
  86. TabOrder = 1
  87. end
  88. object PageControl1: TPageControl
  89. Left = 0
  90. Top = 0
  91. Width = 771
  92. Height = 81
  93. ActivePage = TabSheetReadOnly
  94. Align = alTop
  95. TabOrder = 2
  96. object TabSheetReadOnly: TTabSheet
  97. Caption = 'Read-only'
  98. object ButtonOpen: TButton
  99. Left = 16
  100. Top = 16
  101. Width = 75
  102. Height = 25
  103. Action = ActionOpenRO
  104. TabOrder = 0
  105. end
  106. object ButtonExtractSelected: TButton
  107. Left = 97
  108. Top = 16
  109. Width = 96
  110. Height = 25
  111. Action = ActionExtractSelectedRO
  112. TabOrder = 1
  113. end
  114. object ButtonExtractAll: TButton
  115. Left = 199
  116. Top = 16
  117. Width = 75
  118. Height = 25
  119. Action = ActionExtractAllRO
  120. TabOrder = 2
  121. end
  122. object ButtonROProperties: TButton
  123. Left = 280
  124. Top = 16
  125. Width = 75
  126. Height = 25
  127. Action = ActionProperties
  128. TabOrder = 3
  129. end
  130. object ButtonDescend: TButton
  131. Left = 361
  132. Top = 16
  133. Width = 75
  134. Height = 25
  135. Action = ActionDescendRO
  136. TabOrder = 4
  137. end
  138. object ButtonLevelUp: TButton
  139. Left = 442
  140. Top = 16
  141. Width = 75
  142. Height = 25
  143. Action = ActionLevelUpRO
  144. TabOrder = 5
  145. end
  146. end
  147. object TabSheetWriteOnly: TTabSheet
  148. Caption = 'Write-only'
  149. ImageIndex = 1
  150. object ButtonNew: TButton
  151. Left = 16
  152. Top = 16
  153. Width = 75
  154. Height = 25
  155. Action = ActionNewWO
  156. TabOrder = 0
  157. end
  158. object ButtonAddFile: TButton
  159. Left = 97
  160. Top = 16
  161. Width = 75
  162. Height = 25
  163. Action = ActionAddFile
  164. TabOrder = 1
  165. end
  166. object ButtonAddDirectory: TButton
  167. Left = 178
  168. Top = 16
  169. Width = 75
  170. Height = 25
  171. Action = ActionAddDirectory
  172. TabOrder = 2
  173. end
  174. object ButtonSave: TButton
  175. Left = 259
  176. Top = 16
  177. Width = 75
  178. Height = 25
  179. Action = ActionSave
  180. TabOrder = 3
  181. end
  182. object ButtonPropertiesWO: TButton
  183. Left = 340
  184. Top = 16
  185. Width = 75
  186. Height = 25
  187. Action = ActionProperties
  188. TabOrder = 4
  189. end
  190. end
  191. object TabSheetReadWrite: TTabSheet
  192. Caption = 'Read and write'
  193. ImageIndex = 2
  194. object ButtonNewRW: TButton
  195. Left = 16
  196. Top = 16
  197. Width = 75
  198. Height = 25
  199. Action = ActionNewRW
  200. TabOrder = 0
  201. end
  202. object ButtonOpenRW: TButton
  203. Left = 97
  204. Top = 16
  205. Width = 75
  206. Height = 25
  207. Action = ActionOpenRW
  208. TabOrder = 1
  209. end
  210. object ButtonDeleteRW: TButton
  211. Left = 178
  212. Top = 16
  213. Width = 75
  214. Height = 25
  215. Action = ActionDeleteRW
  216. TabOrder = 2
  217. end
  218. object ButtonAddFileRW: TButton
  219. Left = 259
  220. Top = 16
  221. Width = 75
  222. Height = 25
  223. Action = ActionAddFile
  224. TabOrder = 3
  225. end
  226. object ButtonAddDirectoryRW: TButton
  227. Left = 340
  228. Top = 16
  229. Width = 75
  230. Height = 25
  231. Action = ActionAddDirectory
  232. TabOrder = 4
  233. end
  234. object ButtonExtractSelectedRW: TButton
  235. Left = 421
  236. Top = 16
  237. Width = 92
  238. Height = 25
  239. Action = ActionExtractSelectedRO
  240. TabOrder = 5
  241. end
  242. object ButtonExtractAllRW: TButton
  243. Left = 519
  244. Top = 16
  245. Width = 75
  246. Height = 25
  247. Action = ActionExtractAllRO
  248. TabOrder = 6
  249. end
  250. object ButtonSaveRW: TButton
  251. Left = 600
  252. Top = 16
  253. Width = 75
  254. Height = 25
  255. Action = ActionSave
  256. TabOrder = 7
  257. end
  258. object ButtonPropertiesRW: TButton
  259. Left = 681
  260. Top = 16
  261. Width = 75
  262. Height = 25
  263. Action = ActionProperties
  264. TabOrder = 8
  265. end
  266. end
  267. end
  268. object ActionList1: TActionList
  269. Left = 64
  270. Top = 152
  271. object ActionOpenRO: TAction
  272. Category = 'ReadOnly'
  273. Caption = '&Open'
  274. OnExecute = ActionOpenROExecute
  275. OnUpdate = ActionAlwaysEnabled
  276. end
  277. object ActionExtractSelectedRO: TAction
  278. Category = 'ReadOnly'
  279. Caption = '&Extract selected'
  280. OnExecute = ActionExtractSelectedROExecute
  281. OnUpdate = ActionExtractSelectedROUpdate
  282. end
  283. object ActionExtractAllRO: TAction
  284. Category = 'ReadOnly'
  285. Caption = 'Extract &all'
  286. OnExecute = ActionExtractAllROExecute
  287. OnUpdate = ActionExtractAllROUpdate
  288. end
  289. object ActionNewWO: TAction
  290. Category = 'WriteOnly'
  291. Caption = '&New'
  292. OnExecute = ActionNewWOExecute
  293. OnUpdate = ActionAlwaysEnabled
  294. end
  295. object ActionAddFile: TAction
  296. Category = 'Write'
  297. Caption = 'Add &file'
  298. OnExecute = ActionAddFileExecute
  299. OnUpdate = ActionAddFileUpdate
  300. end
  301. object ActionAddDirectory: TAction
  302. Category = 'Write'
  303. Caption = 'Add &directory'
  304. OnExecute = ActionAddDirectoryExecute
  305. OnUpdate = ActionAddDirectoryUpdate
  306. end
  307. object ActionSave: TAction
  308. Category = 'Write'
  309. Caption = '&Save'
  310. OnExecute = ActionSaveExecute
  311. OnUpdate = ActionSaveUpdate
  312. end
  313. object ActionDeleteRW: TAction
  314. Category = 'ReadWrite'
  315. Caption = '&Delete'
  316. OnExecute = ActionDeleteRWExecute
  317. OnUpdate = ActionDeleteRWUpdate
  318. end
  319. object ActionNewRW: TAction
  320. Category = 'ReadWrite'
  321. Caption = '&New'
  322. OnExecute = ActionNewRWExecute
  323. OnUpdate = ActionAlwaysEnabled
  324. end
  325. object ActionOpenRW: TAction
  326. Category = 'ReadWrite'
  327. Caption = '&Open'
  328. OnExecute = ActionOpenRWExecute
  329. OnUpdate = ActionAlwaysEnabled
  330. end
  331. object ActionProperties: TAction
  332. Category = 'ReadWrite'
  333. Caption = '&Properties'
  334. OnExecute = ActionPropertiesExecute
  335. OnUpdate = ActionPropertiesUpdate
  336. end
  337. object ActionDescendRO: TAction
  338. Category = 'ReadOnly'
  339. Caption = 'Descend'
  340. OnExecute = ActionDescendROExecute
  341. OnUpdate = ActionDescendROUpdate
  342. end
  343. object ActionLevelUpRO: TAction
  344. Category = 'ReadOnly'
  345. Caption = 'Level up'
  346. OnExecute = ActionLevelUpROExecute
  347. OnUpdate = ActionLevelUpROUpdate
  348. end
  349. end
  350. object OpenDialogArchiveRO: TOpenDialog
  351. FilterIndex = 0
  352. Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
  353. Title = 'Open an archive for extraction'
  354. Left = 104
  355. Top = 152
  356. end
  357. object SaveDialogArchiveWO: TSaveDialog
  358. DefaultExt = '*.zip'
  359. FilterIndex = 0
  360. Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofCreatePrompt, ofNoReadOnlyReturn, ofEnableSizing]
  361. Title = 'Create a new archive'
  362. Left = 144
  363. Top = 152
  364. end
  365. object OpenDialogFile: TOpenDialog
  366. Filter = 'All files (*.*)|*.*'
  367. FilterIndex = 0
  368. Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
  369. Left = 184
  370. Top = 152
  371. end
  372. object OpenDialogArchiveRW: TOpenDialog
  373. FilterIndex = 0
  374. Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
  375. Title = 'Open an archive for modification'
  376. Left = 104
  377. Top = 184
  378. end
  379. object SaveDialogArchiveRW: TSaveDialog
  380. DefaultExt = '*.zip'
  381. FilterIndex = 0
  382. Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofCreatePrompt, ofNoReadOnlyReturn, ofEnableSizing]
  383. Title = 'Create a new archive'
  384. Left = 144
  385. Top = 184
  386. end
  387. end