PageRenderTime 26ms CodeModel.GetById 23ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/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
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