/jcl/examples/windows/compression/archive/UMain.dfm
Unknown | 387 lines | 387 code | 0 blank | 0 comment | 0 complexity | cfa0dc7a5c4b51aaca6df838cd2e5384 MD5 | raw file
Possible License(s): BSD-3-Clause
1object 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 387end