home *** CD-ROM | disk | FTP | other *** search
/ BUG 6 / BUGCD1997_09.BIN / UTIL / ADDZIP / ADDZIP.EXE / DELPHI / QUICKZIP / MAIN.DFM / MAIN.txt < prev   
Encoding:
Text File  |  1997-06-01  |  9.5 KB  |  305 lines
  1. object QuikZip: TQuikZip
  2.   Left = 154
  3.   Top = 204
  4.   Width = 555
  5.   Height = 327
  6.   HorzScrollBar.Visible = False
  7.   VertScrollBar.Visible = False
  8.   Caption = 'QuickZip'
  9.   Font.Color = clWindowText
  10.   Font.Height = -12
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Icon.Data = {<image000.ico>}
  14.   Menu = mnuMain
  15.   PixelsPerInch = 96
  16.   Position = poScreenCenter
  17.   ShowHint = True
  18.   OnClose = FormClose
  19.   OnCreate = FormCreate
  20.   OnResize = FormResize
  21.   OnShow = FormShow
  22.   TextHeight = 13
  23.   object btnNew: TSpeedButton
  24.     Left = 1
  25.     Top = 3
  26.     Width = 40
  27.     Height = 40
  28.     Hint = 'Create New Archive'
  29.     AllowAllUp = True
  30.     Caption = 'New'
  31.     Glyph.Data = {
  32.       20010000424D0601000000000000760000002800000010000000100000000100
  33.       0400000000008000000000000000000000001000000000000000000000000000
  34.       80000080000000808000800000008000800080800000C0C0C000808080000000
  35.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  36.       777777700000000000777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFF
  37.       F0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFF
  38.       F0777770FFFFFFFFF0777770FFFFFF0000777770FFFFFF0F07777770FFFFFF00
  39.       7777777000000007777777777777777777777777777777777777000000000000
  40.       000000000000000000005D0100A03C006D002C006D0000000000000000000000
  41.       00000000}
  42.     Layout = blGlyphTop
  43.     OnClick = btnNewClick
  44.   end
  45.   object btnOpen: TSpeedButton
  46.     Left = 42
  47.     Top = 3
  48.     Width = 40
  49.     Height = 40
  50.     Hint = 'Open Archive'
  51.     AllowAllUp = True
  52.     Caption = 'Open'
  53.     Glyph.Data = {
  54.       60010000424D4601000000000000760000002800000015000000100000000100
  55.       040000000000C000000000000000000000001000000000000000000000000000
  56.       80000080000000808000800000008000800080800000C0C0C000808080000000
  57.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  58.       777777777D00777777777777777777777077777000000000007777777FFF7770
  59.       03B3B3B3B307777770777770B03B3B3B3B3077777FFF7770FB03B3B3B3B30777
  60.       70777770BFB03B3B3B3B30777FFF7770FBFB00000000000777777770BFBFBFBF
  61.       B077777770007770FBFBFBFBF077777777777770BFB000000077777770007777
  62.       00077777777000777000777777777777777700777D0077777777777077707077
  63.       7000777777777777000777777000777777777777777777777000000000000000
  64.       000000000000000000001D0100A03C006D002C006D0000000000000000000000
  65.       00000000}
  66.     Layout = blGlyphTop
  67.     OnClick = btnOpenClick
  68.   end
  69.   object btnDelete: TSpeedButton
  70.     Left = 168
  71.     Top = 3
  72.     Width = 40
  73.     Height = 40
  74.     Hint = 'Delete File(s) From Archive'
  75.     AllowAllUp = True
  76.     Caption = 'Delete'
  77.     Glyph.Data = {
  78.       60010000424D4601000000000000760000002800000014000000100000000100
  79.       040000000000C000000000000000000000001000000000000000000000000000
  80.       80000080000000808000800000008000800080800000C0C0C000808080000000
  81.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  82.       777777776D0077777777777777770F7770777777770F7777777777777FFF7777
  83.       7000F7777770F777707777777000F777770F77777FFF777777000F77700F7777
  84.       70777777777000F700F777777FFF7777777700000F7777777777777777777000
  85.       F777777770007777777700000F77777777777777777000F70F77777770007777
  86.       70000F77700F7777700077770000F7777700F7777D00777700F7777777700F77
  87.       7000777777777777777777777000777777777777777777777000777777000000
  88.       000007770000777777771D0100A03C006D002C006D007777777777776D002C00
  89.       6D000000}
  90.     Layout = blGlyphTop
  91.     OnClick = btnDeleteClick
  92.   end
  93.   object btnExtract: TSpeedButton
  94.     Left = 86
  95.     Top = 3
  96.     Width = 40
  97.     Height = 40
  98.     Hint = 'Extract File(s) From Archive'
  99.     AllowAllUp = True
  100.     Caption = 'Extract'
  101.     Glyph.Data = {
  102.       6C010000424D5201000000000000760000002800000014000000110000000100
  103.       040000000000CC00000000000000000000001000000000000000000000000000
  104.       80000080000000808000800000008000800080800000C0C0C000808080000000
  105.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  106.       777777776D00777777777777777777777077777000000777777777777FFF7770
  107.       FFFF07777777777770777770FFFF0777777777777FFF77700000077777777777
  108.       70777770FFFF0777777777777FFF7770FFFF0777777777777777777000000000
  109.       077077777000777777709E9E07700777777777777770E9E90000007770007770
  110.       000000000770077770007770FFFF0777777077777D007770FFFF077777777777
  111.       7000777000000777777777777000777777777777777777777000777777777777
  112.       777777770000000000001D0100A03C006D002C006D00110100A03C006D002C00
  113.       6D000000000000000000000000000000}
  114.     Layout = blGlyphTop
  115.     OnClick = btnExtractClick
  116.   end
  117.   object btnView: TSpeedButton
  118.     Left = 127
  119.     Top = 3
  120.     Width = 40
  121.     Height = 40
  122.     Hint = 'View File'
  123.     AllowAllUp = True
  124.     Caption = 'View'
  125.     Glyph.Data = {
  126.       84010000424D6A01000000000000760000002800000014000000130000000100
  127.       040000000000E400000000000000000000001000000000000000000000000000
  128.       80000080000000808000800000008000800080800000C0C0C000808080000000
  129.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  130.       777777776D00777777777700777777777077777777777000777777777FFF7777
  131.       77770007777777777077777778800077777777777FFF77770000077777777777
  132.       7077777077708777777777777FFF77070000088888888877777777070FFF0000
  133.       00000877700077070FFF0FFFFFFF0877777777700FF0FFFFFFFF087770007777
  134.       000FFFFFFFFF087770007777770FFFFFFFFF08777D007777770FFFFFFFFF0877
  135.       70007777770FFFFFFFFF087770007777770CCCCCCCCC08777000777777000000
  136.       000007770000777777777777777777776D00777777777777777777776D002C00
  137.       6D00000000000000000000000000F90000A03C006D002C006D00000000000000
  138.       0000000000000000}
  139.     Layout = blGlyphTop
  140.     OnClick = btnViewClick
  141.   end
  142.   object txtZip: TEdit
  143.     Left = 25
  144.     Top = 210
  145.     Width = 251
  146.     Height = 21
  147.     TabOrder = 0
  148.     Visible = False
  149.     OnChange = txtZipChange
  150.   end
  151.   object lstArchive: TListBox
  152.     Left = 0
  153.     Top = 65
  154.     Width = 546
  155.     Height = 191
  156.     ItemHeight = 16
  157.     MultiSelect = True
  158.     PopupMenu = mnuPopup
  159.     Sorted = True
  160.     Style = lbOwnerDrawFixed
  161.     TabOrder = 1
  162.     OnDrawItem = lstArchiveDrawItem
  163.   end
  164.   object hdrArchive: THeader
  165.     Left = 0
  166.     Top = 45
  167.     Width = 546
  168.     Height = 19
  169.     AllowResize = False
  170.     BorderStyle = bsNone
  171.     Sections.Sections = (
  172.       #0'99'#0'Name                     '
  173.       #0'73'#0'Date            '
  174.       #0'51'#0'Time    '
  175.       #0'52'#0'Size        '
  176.       #0'43'#0'Ratio '
  177.       #0'54'#0'Packed   '
  178.       #0'37'#0'Path')
  179.     TabOrder = 2
  180.     OnSizing = hdrArchiveSized
  181.     OnSized = hdrArchiveSized
  182.   end
  183.   object pnlStatusBar: TPanel
  184.     Left = 0
  185.     Top = 260
  186.     Width = 546
  187.     Height = 19
  188.     Alignment = taLeftJustify
  189.     BevelOuter = bvLowered
  190.     TabOrder = 3
  191.   end
  192.   object mnuMain: TMainMenu
  193.     Left = 220
  194.     Top = 5
  195.     object mnuArchive: TMenuItem
  196.       Caption = '&Archive'
  197.       object mnuArchiveNew: TMenuItem
  198.         Caption = '&New'
  199.         OnClick = mnuArchiveNewClick
  200.       end
  201.       object mnuArchiveOpen: TMenuItem
  202.         Caption = '&Open'
  203.         OnClick = mnuArchiveOpenClick
  204.       end
  205.       object mnuArchiveSep1: TMenuItem
  206.         Caption = '-'
  207.       end
  208.       object mnuArchiveExit: TMenuItem
  209.         Caption = 'E&xit'
  210.       end
  211.     end
  212.     object mnuOptions: TMenuItem
  213.       Caption = '&Options'
  214.       object mnuOptionsCompression: TMenuItem
  215.         Caption = 'Compression'
  216.         object mnuOptionsCompressionNone: TMenuItem
  217.           Caption = 'N&one'
  218.           OnClick = mnuOptionsCompressionNoneClick
  219.         end
  220.         object mnuOptionsCompressionMinimum: TMenuItem
  221.           Caption = '&Minimum'
  222.           GroupIndex = 1
  223.           OnClick = mnuOptionsCompressionMinimumClick
  224.         end
  225.         object mnuOptionsCompressionNormal: TMenuItem
  226.           Caption = '&Normal'
  227.           Checked = True
  228.           GroupIndex = 2
  229.           OnClick = mnuOptionsCompressionNormalClick
  230.         end
  231.         object mnuOptionsCompressionMaximum: TMenuItem
  232.           Caption = 'Ma&ximum'
  233.           GroupIndex = 3
  234.           OnClick = mnuOptionsCompressionMaximumClick
  235.         end
  236.       end
  237.       object mnuOptionsStoreFull: TMenuItem
  238.         Caption = '&Store full filename'
  239.         Checked = True
  240.         OnClick = mnuOptionsStoreFullClick
  241.       end
  242.       object mnuOptionsSep1: TMenuItem
  243.         Caption = '-'
  244.       end
  245.       object mnuOptionsExtractTo: TMenuItem
  246.         Caption = '&Extract to'
  247.         OnClick = mnuOptionsExtractToClick
  248.       end
  249.       object mnuOptionsSep2: TMenuItem
  250.         Caption = '-'
  251.       end
  252.       object mnuOptionsOnTop: TMenuItem
  253.         Caption = '&Always On Top'
  254.         Checked = True
  255.         OnClick = mnuOptionsOnTopClick
  256.       end
  257.     end
  258.     object mnuHelp: TMenuItem
  259.       Caption = '&Help'
  260.       object mnuHelpAbout: TMenuItem
  261.         Caption = '&About'
  262.         OnClick = mnuHelpAboutClick
  263.       end
  264.     end
  265.   end
  266.   object mnuPopup: TPopupMenu
  267.     OnPopup = mnuPopupPopup
  268.     Left = 255
  269.     Top = 5
  270.     object mnuPopupSelectAll: TMenuItem
  271.       Caption = '&Select All'
  272.       Enabled = False
  273.       OnClick = mnuPopupSelectAllClick
  274.     end
  275.     object mnuPopupDeselectAll: TMenuItem
  276.       Caption = '&Deselect All'
  277.       Enabled = False
  278.       OnClick = mnuPopupDeselectAllClick
  279.     end
  280.     object mnuPopupInvert: TMenuItem
  281.       Caption = '&Invert Selection'
  282.       Enabled = False
  283.       OnClick = mnuPopupInvertClick
  284.     end
  285.     object mnuPopupSep: TMenuItem
  286.       Caption = '-'
  287.     end
  288.     object mnuPopupExtract: TMenuItem
  289.       Caption = '&Extract'
  290.       Enabled = False
  291.       OnClick = mnuPopupExtractClick
  292.     end
  293.     object mnuPopupView: TMenuItem
  294.       Caption = '&View'
  295.       Enabled = False
  296.       OnClick = mnuPopupViewClick
  297.     end
  298.     object mnuPopupDelete: TMenuItem
  299.       Caption = '&Delete'
  300.       Enabled = False
  301.       OnClick = mnuPopupDeleteClick
  302.     end
  303.   end
  304. end
  305.