home *** CD-ROM | disk | FTP | other *** search
/ .net 1999 December / netCD65.iso / pc / Software / HTMLimag / htmimg32 / HTML-IMG.EXE / 0 / RCDATA / TFRMMAIN / TFRMMAIN.txt
Encoding:
Text File  |  1997-09-26  |  14.1 KB  |  485 lines
  1. object frmMain: TfrmMain
  2.   Left = 286
  3.   Top = 206
  4.   Width = 494
  5.   Height = 351
  6.   Hint = '|HTML Imager v1.2a - Copyright ÔøΩ 1996-97 Eric G.V. Fookes'
  7.   ActiveControl = cmbSpecs
  8.   BorderIcons = [biSystemMenu, biMinimize]
  9.   Caption = 'HTML Imager - Copyright ÔøΩ 1996-97 Eric G.V. Fookes'
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   Position = poScreenCenter
  16.   Scaled = False
  17.   ShowHint = True
  18.   OnCloseQuery = FormCloseQuery
  19.   PixelsPerInch = 96
  20.   TextHeight = 13
  21.   object Bevel1: TBevel
  22.     Left = 8
  23.     Top = 8
  24.     Width = 473
  25.     Height = 241
  26.   end
  27.   object lblcmbSpecs: TEnhLabel
  28.     Left = 16
  29.     Top = 15
  30.     Width = 66
  31.     Height = 13
  32.     Caption = 'Files to &Show:'
  33.     FocusControl = cmbSpecs
  34.   end
  35.   object lbledtOutputName: TEnhLabel
  36.     Left = 256
  37.     Top = 15
  38.     Width = 99
  39.     Height = 13
  40.     Caption = 'HTML &Output Name:'
  41.     FocusControl = edtOutputName
  42.   end
  43.   object lbledtBackground: TEnhLabel
  44.     Left = 256
  45.     Top = 65
  46.     Width = 98
  47.     Height = 13
  48.     Caption = '&Background Pattern:'
  49.     FocusControl = edtBackground
  50.   end
  51.   object lbllbxBackColor: TEnhLabel
  52.     Left = 256
  53.     Top = 113
  54.     Width = 88
  55.     Height = 13
  56.     Caption = 'Background &Color:'
  57.     FocusControl = lbxBackColor
  58.   end
  59.   object lblDirectory: TEnhLabel
  60.     Left = 16
  61.     Top = 64
  62.     Width = 82
  63.     Height = 13
  64.     Caption = '&Directory to Filter:'
  65.     FocusControl = lbxDirectory
  66.   end
  67.   object lbledtCount: TEnhLabel
  68.     Left = 256
  69.     Top = 169
  70.     Width = 39
  71.     Height = 13
  72.     Caption = 'Found...'
  73.     FocusControl = edtCount
  74.   end
  75.   object btnOutputName: TSpeedButton
  76.     Left = 448
  77.     Top = 29
  78.     Width = 25
  79.     Height = 25
  80.     Hint = '|Select output name'
  81.     Glyph.Data = {
  82.       76010000424D7601000000000000760000002800000020000000100000000100
  83.       04000000000000010000120B0000120B00001000000000000000000000000000
  84.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  85.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  86.       5555555555555555555555555555555555555555555555555555555555555555
  87.       555555555555555555555555555555555555555FFFFFFFFFF555550000000000
  88.       55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
  89.       B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
  90.       000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
  91.       555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
  92.       55555575FFF75555555555700007555555555557777555555555555555555555
  93.       5555555555555555555555555555555555555555555555555555}
  94.     NumGlyphs = 2
  95.     OnClick = btnOutputNameClick
  96.   end
  97.   object btnBackground: TSpeedButton
  98.     Left = 448
  99.     Top = 79
  100.     Width = 25
  101.     Height = 25
  102.     Hint = '|Select background pattern'
  103.     Glyph.Data = {
  104.       76010000424D7601000000000000760000002800000020000000100000000100
  105.       04000000000000010000120B0000120B00001000000000000000000000000000
  106.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  107.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  108.       5555555555555555555555555555555555555555555555555555555555555555
  109.       555555555555555555555555555555555555555FFFFFFFFFF555550000000000
  110.       55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
  111.       B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
  112.       000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
  113.       555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
  114.       55555575FFF75555555555700007555555555557777555555555555555555555
  115.       5555555555555555555555555555555555555555555555555555}
  116.     NumGlyphs = 2
  117.     OnClick = btnBackgroundClick
  118.   end
  119.   object Bevel2: TBevel
  120.     Left = 8
  121.     Top = 256
  122.     Width = 473
  123.     Height = 41
  124.   end
  125.   object btnClose: TBitBtn
  126.     Left = 376
  127.     Top = 264
  128.     Width = 97
  129.     Height = 25
  130.     Hint = '|Close application'
  131.     Caption = 'E&xit'
  132.     ParentShowHint = False
  133.     ShowHint = True
  134.     TabOrder = 10
  135.     Kind = bkClose
  136.     Margin = 8
  137.     Spacing = 12
  138.   end
  139.   object lbxDirectory: TDirectoryListBox
  140.     Left = 16
  141.     Top = 80
  142.     Width = 217
  143.     Height = 129
  144.     Hint = '|Select directory with image files'
  145.     ItemHeight = 16
  146.     ParentShowHint = False
  147.     ShowHint = True
  148.     TabOrder = 1
  149.     OnChange = ResetCounter
  150.   end
  151.   object cmbDrives: TDriveComboBox
  152.     Left = 16
  153.     Top = 222
  154.     Width = 217
  155.     Height = 19
  156.     Hint = '|Change drive'
  157.     DirList = lbxDirectory
  158.     ParentShowHint = False
  159.     ShowHint = True
  160.     TabOrder = 2
  161.     OnChange = ResetCounter
  162.   end
  163.   object cmbSpecs: TLblComboBox
  164.     Left = 16
  165.     Top = 30
  166.     Width = 217
  167.     Height = 21
  168.     Hint = '|Type of file(s) to display in HTML document'
  169.     DropDownCount = 4
  170.     ItemHeight = 13
  171.     Items.Strings = (
  172.       '*.gif;*.jpg'
  173.       '*.gif'
  174.       '*.jpg')
  175.     ParentShowHint = False
  176.     PopupMenu = ef_InputBoxMenu
  177.     ShowHint = True
  178.     TabOrder = 0
  179.     Text = '*.gif;*.jpg'
  180.     OnChange = ResetCounter
  181.     AddNewToStart = True
  182.     AddNewToList = True
  183.     AllowNull = False
  184.     CaseSensitive = False
  185.     DestroyObjects = False
  186.     LimitToList = False
  187.     OverwriteMode = False
  188.     ReadOnly = False
  189.     UndoWhenEsc = True
  190.     LabelPos = lpTop
  191.     LabelMargin = 2
  192.     LabelComponent = lblcmbSpecs
  193.     LabelRelLeft = 0
  194.     LabelRelTop = -15
  195.   end
  196.   object edtOutputName: TLblComboBox
  197.     Left = 256
  198.     Top = 30
  199.     Width = 185
  200.     Height = 21
  201.     Hint = '|Name of HTML document produced by filter action'
  202.     ItemHeight = 13
  203.     ParentShowHint = False
  204.     PopupMenu = ef_InputBoxMenu
  205.     ShowHint = True
  206.     TabOrder = 3
  207.     Text = 'images.htm'
  208.     OnChange = ResetCounter
  209.     AddNewToStart = True
  210.     AddNewToList = True
  211.     CaseSensitive = False
  212.     DestroyObjects = False
  213.     LimitToList = False
  214.     OverwriteMode = False
  215.     ReadOnly = False
  216.     UndoWhenEsc = True
  217.     LabelPos = lpTop
  218.     LabelMargin = 2
  219.     LabelComponent = lbledtOutputName
  220.     LabelRelLeft = 0
  221.     LabelRelTop = -15
  222.   end
  223.   object edtBackground: TLblComboBox
  224.     Left = 256
  225.     Top = 80
  226.     Width = 185
  227.     Height = 21
  228.     Hint = '|Background pattern name'
  229.     ItemHeight = 13
  230.     ParentShowHint = False
  231.     PopupMenu = ef_InputBoxMenu
  232.     ShowHint = True
  233.     TabOrder = 4
  234.     AddNewToStart = True
  235.     AddNewToList = True
  236.     CaseSensitive = False
  237.     DestroyObjects = False
  238.     LimitToList = False
  239.     OverwriteMode = False
  240.     ReadOnly = False
  241.     UndoWhenEsc = True
  242.     LabelPos = lpTop
  243.     LabelMargin = 2
  244.     LabelComponent = lbledtBackground
  245.     LabelRelLeft = 0
  246.     LabelRelTop = -15
  247.   end
  248.   object lbxBackColor: TLblComboBox
  249.     Left = 256
  250.     Top = 128
  251.     Width = 185
  252.     Height = 21
  253.     Hint = '|Color used for HTML background'
  254.     ItemHeight = 13
  255.     ParentShowHint = False
  256.     PopupMenu = ef_InputBoxMenu
  257.     ShowHint = True
  258.     TabOrder = 5
  259.     AddNewToStart = False
  260.     AddNewToList = False
  261.     CaseSensitive = False
  262.     DestroyObjects = False
  263.     LimitToList = True
  264.     OverwriteMode = False
  265.     ReadOnly = False
  266.     UndoWhenEsc = True
  267.     OnListPick = lbxBackColorListPick
  268.     LabelPos = lpTop
  269.     LabelMargin = 2
  270.     LabelComponent = lbllbxBackColor
  271.     LabelRelLeft = 0
  272.     LabelRelTop = -15
  273.   end
  274.   object btnFilter: TBitBtn
  275.     Left = 376
  276.     Top = 184
  277.     Width = 97
  278.     Height = 25
  279.     Hint = '|Make HTML document based on current settings'
  280.     Caption = '&Filter'
  281.     Default = True
  282.     ParentShowHint = False
  283.     ShowHint = True
  284.     TabOrder = 6
  285.     OnClick = btnFilterClick
  286.     Glyph.Data = {
  287.       76010000424D7601000000000000760000002800000020000000100000000100
  288.       04000000000000010000130B0000130B00001000000000000000000000000000
  289.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  290.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300033300000
  291.       00003777FF377777777707070330FFFFFFF077777F37F3FF3FF707370330F00F
  292.       00F077F77F37F773773707370330FFFFFFF077F77F37F3FFFF3707070330F000
  293.       0FF077777337F777733730003330FFFFFFF037773337F3FF3FF733033330F00F
  294.       0000337FFF37F773777733000330FFFF0FF033777FF7F3FF7F3733007030F08F
  295.       0F03337777F7F7737F7330703700FFFF003337773777FFFF7733307333700000
  296.       0333377FF37777777FFF33073070333000033377F777FF37777F333077000307
  297.       7770333777777F7777773333003300003300333377337777FF77333333333307
  298.       7770333333333377777733333333333000033333333333377773}
  299.     Margin = 8
  300.     NumGlyphs = 2
  301.     Spacing = 12
  302.   end
  303.   object pnlHint: TPanel
  304.     Left = 0
  305.     Top = 304
  306.     Width = 486
  307.     Height = 20
  308.     Align = alBottom
  309.     Alignment = taLeftJustify
  310.     BevelOuter = bvLowered
  311.     BorderWidth = 4
  312.     Caption = 'Ready'
  313.     TabOrder = 12
  314.   end
  315.   object edtCount: TLblEdit
  316.     Left = 256
  317.     Top = 184
  318.     Width = 89
  319.     Height = 21
  320.     Hint = '|Number of items found during filter operation'
  321.     Color = clBtnFace
  322.     PopupMenu = ef_InputBoxMenu
  323.     TabOrder = 11
  324.     Text = '0'
  325.     OverwriteMode = False
  326.     UndoWhenEsc = False
  327.     WordWrap = False
  328.     LabelPos = lpTop
  329.     LabelMargin = 2
  330.     LabelColon = False
  331.     LabelComponent = lbledtCount
  332.     LabelRelLeft = 0
  333.     LabelRelTop = -15
  334.   end
  335.   object btnView: TBitBtn
  336.     Left = 376
  337.     Top = 216
  338.     Width = 97
  339.     Height = 25
  340.     Hint = '|View HTML file in web browser'
  341.     Caption = '&View'
  342.     ParentShowHint = False
  343.     ShowHint = True
  344.     TabOrder = 7
  345.     OnClick = btnViewClick
  346.     Glyph.Data = {
  347.       76010000424D7601000000000000760000002800000020000000100000000100
  348.       04000000000000010000120B0000120B00001000000000000000000000000000
  349.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  350.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
  351.       033333777777777773333330777777703333333773F333773333333330888033
  352.       33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9
  353.       FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000
  354.       8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0
  355.       8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0
  356.       8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000
  357.       8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF
  358.       FF037FFFFFFFFFFFFF7F00000000000000037777777777777773}
  359.     Margin = 8
  360.     NumGlyphs = 2
  361.     Spacing = 12
  362.   end
  363.   object btnOptions: TBitBtn
  364.     Left = 16
  365.     Top = 264
  366.     Width = 97
  367.     Height = 25
  368.     Hint = 
  369.       '|Set program options such as browser name, default settings, etc' +
  370.       '.'
  371.     Caption = '&Options'
  372.     ParentShowHint = False
  373.     ShowHint = True
  374.     TabOrder = 8
  375.     OnClick = btnOptionsClick
  376.     Glyph.Data = {
  377.       76010000424D7601000000000000760000002800000020000000100000000100
  378.       04000000000000010000120B0000120B00001000000000000000000000000000
  379.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  380.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00370777033333
  381.       3330337F3F7F33333F3787070003333707303F737773333373F7007703333330
  382.       700077337F3333373777887007333337007733F773F333337733700070333333
  383.       077037773733333F7F37703707333300080737F373333377737F003333333307
  384.       78087733FFF3337FFF7F33300033330008073F3777F33F777F73073070370733
  385.       078073F7F7FF73F37FF7700070007037007837773777F73377FF007777700730
  386.       70007733FFF77F37377707700077033707307F37773F7FFF7337080777070003
  387.       3330737F3F7F777F333778080707770333333F7F737F3F7F3333080787070003
  388.       33337F73FF737773333307800077033333337337773373333333}
  389.     Margin = 8
  390.     NumGlyphs = 2
  391.     Spacing = 12
  392.   end
  393.   object btnAbout: TBitBtn
  394.     Left = 120
  395.     Top = 264
  396.     Width = 97
  397.     Height = 25
  398.     Hint = '|Information about this program'
  399.     Caption = '&About'
  400.     ParentShowHint = False
  401.     ShowHint = True
  402.     TabOrder = 9
  403.     OnClick = btnAboutClick
  404.     Glyph.Data = {
  405.       06020000424D0602000000000000760000002800000028000000140000000100
  406.       0400000000009001000000000000000000001000000000000000000000000000
  407.       8000008000000080800080000000800080008080000080808000C0C0C0000000
  408.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  409.       3333333333333333333333333333333333333333333333333333333333333333
  410.       3333333333330033333333333333333377F33333333333333330FF0333333333
  411.       33333337F37F333333333333330FFFF0333333333333337F3337F33333333333
  412.       330FF078033333333333337F37F87F33333333333337FF003333333333333337
  413.       F377F333333333333330FF733333333333333337F37F33333333333333337FF0
  414.       33333333333333337F37F3333333333333300FF733333333333333377F37F333
  415.       33333333330870FF033333333333337F87F37F33333333333330FFFF03333333
  416.       33333337F3337F333333333333330FF033333333333333337F37F33333333333
  417.       333330033333333333333333377F333333333333333333003333333333333333
  418.       3377F33333333333333330FF033333333333333337F37F3333333333333330FF
  419.       033333333333333337F37F33333333333333330033333333333333333377F333
  420.       3333333333333333333333333333333333333333333333333333333333333333
  421.       33333333333333333333}
  422.     Margin = 8
  423.     NumGlyphs = 2
  424.     Spacing = 12
  425.   end
  426.   object InputBoxMaster1: TInputBoxMaster
  427.     InputBoxMenu = ef_InputBoxMenu
  428.     OverwriteMode = False
  429.     UseContextMenu = True
  430.     Left = 256
  431.     Top = 264
  432.   end
  433.   object ef_InputBoxMenu: TInputBoxMenu
  434.     Left = 288
  435.     Top = 264
  436.     object ef_InputBoxMenu_Undo: TMenuItem
  437.       Caption = '&Undo'
  438.       Hint = 'Undo changes to input text'
  439.     end
  440.     object ef_InputBoxMenu_Overwrite: TMenuItem
  441.       Tag = 1
  442.       Caption = '&Overwrite Mode'
  443.       Hint = 'Toggle Insert/Overwrite mode'
  444.     end
  445.     object ef_InputBoxMenu_Break1: TMenuItem
  446.       Tag = 2
  447.       Caption = '-'
  448.     end
  449.     object ef_InputBoxMenu_Cut: TMenuItem
  450.       Tag = 3
  451.       Caption = 'Cu&t'
  452.       Hint = 'Cut selected text to clipboard'
  453.     end
  454.     object ef_InputBoxMenu_Copy: TMenuItem
  455.       Tag = 4
  456.       Caption = '&Copy'
  457.       Hint = 'Copy selected text to clipboard'
  458.     end
  459.     object ef_InputBoxMenu_Paste: TMenuItem
  460.       Tag = 5
  461.       Caption = '&Paste'
  462.       Hint = 'Paste text from clipboard to input box'
  463.     end
  464.     object ef_InputBoxMenu_Delete: TMenuItem
  465.       Tag = 6
  466.       Caption = '&Delete'
  467.       Hint = 'Delete selected text'
  468.     end
  469.     object ef_InputBoxMenu_Clear: TMenuItem
  470.       Tag = 7
  471.       Caption = 'C&lear All'
  472.       Hint = 'Clear all text from input box'
  473.     end
  474.     object ef_InputBoxMenu_Break2: TMenuItem
  475.       Tag = 8
  476.       Caption = '-'
  477.     end
  478.     object ef_InputBoxMenu_SelectAll: TMenuItem
  479.       Tag = 9
  480.       Caption = 'Select &All'
  481.       Hint = 'Select all text in input box'
  482.     end
  483.   end
  484. end
  485.