home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / unity / d3456 / JBSTR.ZIP / TESTSTR1.dfm / TESTSTR1.txt < prev   
Text File  |  2000-07-09  |  21KB  |  855 lines
  1. object Form1: TForm1
  2.   Left = 223
  3.   Top = 106
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsDialog
  6.   Caption = 'Test string library "jbStr" (Demonstration 9.VII.2000)'
  7.   ClientHeight = 329
  8.   ClientWidth = 448
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -13
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   Icon.Data = {<image000.ico>}
  16.   OldCreateOrder = True
  17.   Position = poScreenCenter
  18.   Visible = True
  19.   PixelsPerInch = 96
  20.   TextHeight = 16
  21.   object Bevel1: TBevel
  22.     Left = 16
  23.     Top = 184
  24.     Width = 417
  25.     Height = 25
  26.   end
  27.   object Label2: TLabel
  28.     Left = 16
  29.     Top = 216
  30.     Width = 209
  31.     Height = 16
  32.     Hint = 
  33.       'Here is stored string after any operation under any button. '#13#10'It' +
  34.       ' is generated string from function.'
  35.     Caption = 'Test string after possible operation:'
  36.     ParentShowHint = False
  37.     ShowHint = True
  38.   end
  39.   object Label1: TLabel
  40.     Left = 16
  41.     Top = 168
  42.     Width = 210
  43.     Height = 16
  44.     Hint = 
  45.       'Here is stored string before any operation. '#13#10'It is constant or ' +
  46.       'generated string for demonstration'#13#10'of function.'
  47.     Caption = 'Original testing string is stored here:'
  48.     ParentShowHint = False
  49.     ShowHint = True
  50.   end
  51.   object Label3: TLabel
  52.     Left = 21
  53.     Top = 189
  54.     Width = 5
  55.     Height = 13
  56.     Font.Charset = DEFAULT_CHARSET
  57.     Font.Color = clTeal
  58.     Font.Height = -11
  59.     Font.Name = 'MS Sans Serif'
  60.     Font.Style = [fsBold]
  61.     ParentFont = False
  62.   end
  63.   object Bevel2: TBevel
  64.     Left = 16
  65.     Top = 232
  66.     Width = 417
  67.     Height = 25
  68.   end
  69.   object Label4: TLabel
  70.     Left = 21
  71.     Top = 236
  72.     Width = 411
  73.     Height = 16
  74.     AutoSize = False
  75.     Font.Charset = DEFAULT_CHARSET
  76.     Font.Color = clRed
  77.     Font.Height = -11
  78.     Font.Name = 'MS Sans Serif'
  79.     Font.Style = [fsBold]
  80.     ParentFont = False
  81.   end
  82.   object Label5: TLabel
  83.     Left = 16
  84.     Top = 272
  85.     Width = 3
  86.     Height = 13
  87.     Font.Charset = DEFAULT_CHARSET
  88.     Font.Color = clWindowText
  89.     Font.Height = -11
  90.     Font.Name = 'MS Sans Serif'
  91.     Font.Style = []
  92.     ParentFont = False
  93.   end
  94.   object Panel1: TPanel
  95.     Left = 0
  96.     Top = 0
  97.     Width = 448
  98.     Height = 162
  99.     Align = alTop
  100.     BevelOuter = bvLowered
  101.     TabOrder = 0
  102.     object _ShortFileName: TButton
  103.       Left = 179
  104.       Top = 41
  105.       Width = 89
  106.       Height = 20
  107.       Hint = 'Function ShortFileName'
  108.       Caption = 'Short File Name'
  109.       Font.Charset = DEFAULT_CHARSET
  110.       Font.Color = clBlack
  111.       Font.Height = -11
  112.       Font.Name = 'MS Sans Serif'
  113.       Font.Style = []
  114.       ParentFont = False
  115.       ParentShowHint = False
  116.       ShowHint = True
  117.       TabOrder = 12
  118.       OnClick = _ShortFileNameClick
  119.     end
  120.     object _TrimRight: TButton
  121.       Left = 268
  122.       Top = 41
  123.       Width = 89
  124.       Height = 20
  125.       Hint = 'Function TrimTrail'
  126.       Caption = 'Trim Right'
  127.       Font.Charset = DEFAULT_CHARSET
  128.       Font.Color = clBlack
  129.       Font.Height = -11
  130.       Font.Name = 'MS Sans Serif'
  131.       Font.Style = []
  132.       ParentFont = False
  133.       ParentShowHint = False
  134.       ShowHint = True
  135.       TabOrder = 13
  136.       OnClick = _TrimRightClick
  137.     end
  138.     object _TrimBoth: TButton
  139.       Left = 268
  140.       Top = 21
  141.       Width = 89
  142.       Height = 20
  143.       Hint = 'Function Trim'
  144.       Caption = 'Trim Both'
  145.       Font.Charset = DEFAULT_CHARSET
  146.       Font.Color = clBlack
  147.       Font.Height = -11
  148.       Font.Name = 'MS Sans Serif'
  149.       Font.Style = []
  150.       ParentFont = False
  151.       ParentShowHint = False
  152.       ShowHint = True
  153.       TabOrder = 8
  154.       OnClick = _TrimBothClick
  155.     end
  156.     object _TrimLeft: TButton
  157.       Left = 268
  158.       Top = 1
  159.       Width = 89
  160.       Height = 20
  161.       Hint = 'Function TrimLead'
  162.       Caption = 'Trim Left'
  163.       Font.Charset = DEFAULT_CHARSET
  164.       Font.Color = clBlack
  165.       Font.Height = -11
  166.       Font.Name = 'MS Sans Serif'
  167.       Font.Style = []
  168.       ParentFont = False
  169.       ParentShowHint = False
  170.       ShowHint = True
  171.       TabOrder = 3
  172.       OnClick = _TrimLeftClick
  173.     end
  174.     object _PadRight: TButton
  175.       Left = 357
  176.       Top = 41
  177.       Width = 89
  178.       Height = 20
  179.       Hint = 'Function PadCh'
  180.       Caption = 'Pad Right'
  181.       Font.Charset = DEFAULT_CHARSET
  182.       Font.Color = clGreen
  183.       Font.Height = -11
  184.       Font.Name = 'MS Sans Serif'
  185.       Font.Style = []
  186.       ParentFont = False
  187.       ParentShowHint = False
  188.       ShowHint = True
  189.       TabOrder = 14
  190.       OnClick = _PadRightClick
  191.     end
  192.     object _Center: TButton
  193.       Left = 357
  194.       Top = 21
  195.       Width = 89
  196.       Height = 20
  197.       Hint = 'Function CenterCh'
  198.       Caption = 'Center'
  199.       Font.Charset = DEFAULT_CHARSET
  200.       Font.Color = clGreen
  201.       Font.Height = -11
  202.       Font.Name = 'MS Sans Serif'
  203.       Font.Style = []
  204.       ParentFont = False
  205.       ParentShowHint = False
  206.       ShowHint = True
  207.       TabOrder = 9
  208.       OnClick = _CenterClick
  209.     end
  210.     object _PadLeft: TButton
  211.       Left = 357
  212.       Top = 1
  213.       Width = 89
  214.       Height = 20
  215.       Hint = 'Function LeftPadCh'
  216.       Caption = 'Pad Left'
  217.       Font.Charset = DEFAULT_CHARSET
  218.       Font.Color = clGreen
  219.       Font.Height = -11
  220.       Font.Name = 'MS Sans Serif'
  221.       Font.Style = []
  222.       ParentFont = False
  223.       ParentShowHint = False
  224.       ShowHint = True
  225.       TabOrder = 4
  226.       OnClick = _PadLeftClick
  227.     end
  228.     object _ExtensionOnly: TButton
  229.       Left = 90
  230.       Top = 41
  231.       Width = 89
  232.       Height = 20
  233.       Hint = 'Function JustExtension'
  234.       Caption = 'ExtensionOnly'
  235.       Font.Charset = DEFAULT_CHARSET
  236.       Font.Color = clBlack
  237.       Font.Height = -11
  238.       Font.Name = 'MS Sans Serif'
  239.       Font.Style = []
  240.       ParentFont = False
  241.       ParentShowHint = False
  242.       ShowHint = True
  243.       TabOrder = 11
  244.       OnClick = _ExtensionOnlyClick
  245.     end
  246.     object _Capitalize: TButton
  247.       Left = 1
  248.       Top = 41
  249.       Width = 89
  250.       Height = 20
  251.       Hint = 'Function CapitalizeWord'
  252.       Caption = 'Capitalize'
  253.       Font.Charset = DEFAULT_CHARSET
  254.       Font.Color = clBlack
  255.       Font.Height = -11
  256.       Font.Name = 'MS Sans Serif'
  257.       Font.Style = []
  258.       ParentFont = False
  259.       ParentShowHint = False
  260.       ShowHint = True
  261.       TabOrder = 10
  262.       OnClick = _CapitalizeClick
  263.     end
  264.     object _StrLoCase: TButton
  265.       Left = 1
  266.       Top = 21
  267.       Width = 89
  268.       Height = 20
  269.       Hint = 'Function StrLoCase'
  270.       Caption = 'String Low Case'
  271.       Font.Charset = DEFAULT_CHARSET
  272.       Font.Color = clBlack
  273.       Font.Height = -11
  274.       Font.Name = 'MS Sans Serif'
  275.       Font.Style = []
  276.       ParentFont = False
  277.       ParentShowHint = False
  278.       ShowHint = True
  279.       TabOrder = 5
  280.       OnClick = _StrLoCaseClick
  281.     end
  282.     object _ShortPath: TButton
  283.       Left = 179
  284.       Top = 21
  285.       Width = 89
  286.       Height = 20
  287.       Hint = 'Function ShortDirName'
  288.       Caption = 'Short Path'
  289.       Font.Charset = DEFAULT_CHARSET
  290.       Font.Color = clBlack
  291.       Font.Height = -11
  292.       Font.Name = 'MS Sans Serif'
  293.       Font.Style = []
  294.       ParentFont = False
  295.       ParentShowHint = False
  296.       ShowHint = True
  297.       TabOrder = 7
  298.       OnClick = _ShortPathClick
  299.     end
  300.     object _FileNameOnly: TButton
  301.       Left = 179
  302.       Top = 1
  303.       Width = 89
  304.       Height = 20
  305.       Hint = 'Function JustFileName'
  306.       Caption = 'File Name Only'
  307.       Font.Charset = DEFAULT_CHARSET
  308.       Font.Color = clBlack
  309.       Font.Height = -11
  310.       Font.Name = 'MS Sans Serif'
  311.       Font.Style = []
  312.       ParentFont = False
  313.       ParentShowHint = False
  314.       ShowHint = True
  315.       TabOrder = 2
  316.       OnClick = _FileNameOnlyClick
  317.     end
  318.     object _PathOnly: TButton
  319.       Left = 90
  320.       Top = 1
  321.       Width = 89
  322.       Height = 20
  323.       Hint = 'Function JustPathName'
  324.       Caption = 'Path Only'
  325.       Font.Charset = DEFAULT_CHARSET
  326.       Font.Color = clBlack
  327.       Font.Height = -11
  328.       Font.Name = 'MS Sans Serif'
  329.       Font.Style = []
  330.       ParentFont = False
  331.       ParentShowHint = False
  332.       ShowHint = True
  333.       TabOrder = 1
  334.       OnClick = _PathOnlyClick
  335.     end
  336.     object _StrUpCase: TButton
  337.       Left = 1
  338.       Top = 1
  339.       Width = 89
  340.       Height = 20
  341.       Hint = 'Function StrUpCase'
  342.       Caption = 'String Up Case'
  343.       Font.Charset = DEFAULT_CHARSET
  344.       Font.Color = clBlack
  345.       Font.Height = -11
  346.       Font.Name = 'MS Sans Serif'
  347.       Font.Style = []
  348.       ParentFont = False
  349.       ParentShowHint = False
  350.       ShowHint = True
  351.       TabOrder = 0
  352.       OnClick = _StrUpCaseClick
  353.     end
  354.     object _NameOnly: TButton
  355.       Left = 90
  356.       Top = 21
  357.       Width = 89
  358.       Height = 20
  359.       Hint = 'Function JustName'
  360.       Caption = 'Name Only'
  361.       Font.Charset = DEFAULT_CHARSET
  362.       Font.Color = clBlack
  363.       Font.Height = -11
  364.       Font.Name = 'MS Sans Serif'
  365.       Font.Style = []
  366.       ParentFont = False
  367.       ParentShowHint = False
  368.       ShowHint = True
  369.       TabOrder = 6
  370.       OnClick = _NameOnlyClick
  371.     end
  372.     object _Zip: TButton
  373.       Left = 1
  374.       Top = 61
  375.       Width = 89
  376.       Height = 20
  377.       Hint = 'Function Zip'
  378.       Caption = 'Zip'
  379.       Font.Charset = DEFAULT_CHARSET
  380.       Font.Color = clBlack
  381.       Font.Height = -11
  382.       Font.Name = 'MS Sans Serif'
  383.       Font.Style = []
  384.       ParentFont = False
  385.       ParentShowHint = False
  386.       ShowHint = True
  387.       TabOrder = 15
  388.       OnClick = _ZipClick
  389.     end
  390.     object _Smash: TButton
  391.       Left = 90
  392.       Top = 61
  393.       Width = 89
  394.       Height = 20
  395.       Hint = 'Function Smash'
  396.       Caption = 'Smash'
  397.       Font.Charset = DEFAULT_CHARSET
  398.       Font.Color = clBlack
  399.       Font.Height = -11
  400.       Font.Name = 'MS Sans Serif'
  401.       Font.Style = []
  402.       ParentFont = False
  403.       ParentShowHint = False
  404.       ShowHint = True
  405.       TabOrder = 16
  406.       OnClick = _SmashClick
  407.     end
  408.     object _Change: TButton
  409.       Left = 179
  410.       Top = 61
  411.       Width = 89
  412.       Height = 20
  413.       Hint = 'Function Change'
  414.       Caption = 'Change'
  415.       Font.Charset = DEFAULT_CHARSET
  416.       Font.Color = clBlack
  417.       Font.Height = -11
  418.       Font.Name = 'MS Sans Serif'
  419.       Font.Style = []
  420.       ParentFont = False
  421.       ParentShowHint = False
  422.       ShowHint = True
  423.       TabOrder = 17
  424.       OnClick = _ChangeClick
  425.     end
  426.     object _Form: TButton
  427.       Left = 268
  428.       Top = 61
  429.       Width = 89
  430.       Height = 20
  431.       Hint = 'Function Form'
  432.       Caption = 'Form'
  433.       Font.Charset = DEFAULT_CHARSET
  434.       Font.Color = clBlack
  435.       Font.Height = -11
  436.       Font.Name = 'MS Sans Serif'
  437.       Font.Style = []
  438.       ParentFont = False
  439.       ParentShowHint = False
  440.       ShowHint = True
  441.       TabOrder = 18
  442.       OnClick = _FormClick
  443.     end
  444.     object _Strip: TButton
  445.       Left = 357
  446.       Top = 61
  447.       Width = 89
  448.       Height = 20
  449.       Hint = 'Function Strip'
  450.       Caption = 'Strip'
  451.       Font.Charset = DEFAULT_CHARSET
  452.       Font.Color = clBlack
  453.       Font.Height = -11
  454.       Font.Name = 'MS Sans Serif'
  455.       Font.Style = []
  456.       ParentFont = False
  457.       ParentShowHint = False
  458.       ShowHint = True
  459.       TabOrder = 19
  460.       OnClick = _StripClick
  461.     end
  462.     object _InsertWord: TButton
  463.       Left = 1
  464.       Top = 81
  465.       Width = 89
  466.       Height = 20
  467.       Hint = 'Function InsWord'
  468.       Caption = 'Insert Word'
  469.       Font.Charset = DEFAULT_CHARSET
  470.       Font.Color = clBlack
  471.       Font.Height = -11
  472.       Font.Name = 'MS Sans Serif'
  473.       Font.Style = []
  474.       ParentFont = False
  475.       ParentShowHint = False
  476.       ShowHint = True
  477.       TabOrder = 20
  478.       OnClick = _InsertWordClick
  479.     end
  480.     object _Push: TButton
  481.       Left = 90
  482.       Top = 81
  483.       Width = 89
  484.       Height = 20
  485.       Hint = 'Function Push'
  486.       Caption = 'Push'
  487.       Font.Charset = DEFAULT_CHARSET
  488.       Font.Color = clBlack
  489.       Font.Height = -11
  490.       Font.Name = 'MS Sans Serif'
  491.       Font.Style = []
  492.       ParentFont = False
  493.       ParentShowHint = False
  494.       ShowHint = True
  495.       TabOrder = 21
  496.       OnClick = _PushClick
  497.     end
  498.     object _Hash: TButton
  499.       Left = 179
  500.       Top = 81
  501.       Width = 89
  502.       Height = 20
  503.       Hint = 'Function Hash'
  504.       Caption = 'Hash'
  505.       Font.Charset = DEFAULT_CHARSET
  506.       Font.Color = clBlack
  507.       Font.Height = -11
  508.       Font.Name = 'MS Sans Serif'
  509.       Font.Style = []
  510.       ParentFont = False
  511.       ParentShowHint = False
  512.       ShowHint = True
  513.       TabOrder = 22
  514.       OnClick = _HashClick
  515.     end
  516.     object _MaskAndZeroClip: TButton
  517.       Left = 268
  518.       Top = 81
  519.       Width = 89
  520.       Height = 20
  521.       Hint = 'Function Mask'#13#10'Function ZeroClip'
  522.       Caption = 'Mask+Zero Clip'
  523.       Font.Charset = DEFAULT_CHARSET
  524.       Font.Color = clBlack
  525.       Font.Height = -11
  526.       Font.Name = 'MS Sans Serif'
  527.       Font.Style = []
  528.       ParentFont = False
  529.       ParentShowHint = False
  530.       ShowHint = True
  531.       TabOrder = 23
  532.       OnClick = _MaskAndZeroClipClick
  533.     end
  534.     object _Count: TButton
  535.       Left = 357
  536.       Top = 81
  537.       Width = 89
  538.       Height = 20
  539.       Hint = 'Function Count'
  540.       Caption = 'Count'
  541.       Font.Charset = DEFAULT_CHARSET
  542.       Font.Color = clBlack
  543.       Font.Height = -11
  544.       Font.Name = 'MS Sans Serif'
  545.       Font.Style = []
  546.       ParentFont = False
  547.       ParentShowHint = False
  548.       ShowHint = True
  549.       TabOrder = 24
  550.       OnClick = _CountClick
  551.     end
  552.     object _PopWord: TButton
  553.       Left = 1
  554.       Top = 101
  555.       Width = 89
  556.       Height = 20
  557.       Hint = 'Function PopWord'
  558.       Caption = 'Pop Word'
  559.       Font.Charset = DEFAULT_CHARSET
  560.       Font.Color = clBlack
  561.       Font.Height = -11
  562.       Font.Name = 'MS Sans Serif'
  563.       Font.Style = []
  564.       ParentFont = False
  565.       ParentShowHint = False
  566.       ShowHint = True
  567.       TabOrder = 25
  568.       OnClick = _PopWordClick
  569.     end
  570.     object _ExtractWord: TButton
  571.       Left = 90
  572.       Top = 101
  573.       Width = 89
  574.       Height = 20
  575.       Hint = 'Function ExtractWord'
  576.       Caption = 'Extract Word'
  577.       Font.Charset = DEFAULT_CHARSET
  578.       Font.Color = clBlack
  579.       Font.Height = -11
  580.       Font.Name = 'MS Sans Serif'
  581.       Font.Style = []
  582.       ParentFont = False
  583.       ParentShowHint = False
  584.       ShowHint = True
  585.       TabOrder = 26
  586.       OnClick = _ExtractWordClick
  587.     end
  588.     object _GetPosition: TButton
  589.       Left = 179
  590.       Top = 101
  591.       Width = 89
  592.       Height = 20
  593.       Hint = 'Function GetPos'
  594.       Caption = 'Get Position'
  595.       Font.Charset = DEFAULT_CHARSET
  596.       Font.Color = clBlack
  597.       Font.Height = -11
  598.       Font.Name = 'MS Sans Serif'
  599.       Font.Style = []
  600.       ParentFont = False
  601.       ParentShowHint = False
  602.       ShowHint = True
  603.       TabOrder = 27
  604.       OnClick = _GetPositionClick
  605.     end
  606.     object _GetEnd: TButton
  607.       Left = 268
  608.       Top = 101
  609.       Width = 89
  610.       Height = 20
  611.       Hint = 'Function GetEnd'
  612.       Caption = 'Get End'
  613.       Font.Charset = DEFAULT_CHARSET
  614.       Font.Color = clBlack
  615.       Font.Height = -11
  616.       Font.Name = 'MS Sans Serif'
  617.       Font.Style = []
  618.       ParentFont = False
  619.       ParentShowHint = False
  620.       ShowHint = True
  621.       TabOrder = 28
  622.       OnClick = _GetEndClick
  623.     end
  624.     object _WordCount: TButton
  625.       Left = 357
  626.       Top = 101
  627.       Width = 89
  628.       Height = 20
  629.       Hint = 'Function WordCount'
  630.       Caption = 'Word Count'
  631.       Font.Charset = DEFAULT_CHARSET
  632.       Font.Color = clBlack
  633.       Font.Height = -11
  634.       Font.Name = 'MS Sans Serif'
  635.       Font.Style = []
  636.       ParentFont = False
  637.       ParentShowHint = False
  638.       ShowHint = True
  639.       TabOrder = 29
  640.       OnClick = _WordCountClick
  641.     end
  642.     object _ChangeWord: TButton
  643.       Left = 1
  644.       Top = 121
  645.       Width = 89
  646.       Height = 20
  647.       Hint = 'Function ChangeWord'
  648.       Caption = 'ChangeWord'
  649.       Font.Charset = DEFAULT_CHARSET
  650.       Font.Color = clBlack
  651.       Font.Height = -11
  652.       Font.Name = 'MS Sans Serif'
  653.       Font.Style = []
  654.       ParentFont = False
  655.       ParentShowHint = False
  656.       ShowHint = True
  657.       TabOrder = 30
  658.       OnClick = _ChangeWordClick
  659.     end
  660.     object _GetLastWord: TButton
  661.       Left = 90
  662.       Top = 121
  663.       Width = 89
  664.       Height = 20
  665.       Hint = 'Function GetLastWord'
  666.       Caption = 'GetLastWord'
  667.       Font.Charset = DEFAULT_CHARSET
  668.       Font.Color = clBlack
  669.       Font.Height = -11
  670.       Font.Name = 'MS Sans Serif'
  671.       Font.Style = []
  672.       ParentFont = False
  673.       ParentShowHint = False
  674.       ShowHint = True
  675.       TabOrder = 31
  676.       OnClick = _GetLastWordClick
  677.     end
  678.     object _GetFirstWord: TButton
  679.       Left = 179
  680.       Top = 121
  681.       Width = 89
  682.       Height = 20
  683.       Hint = 'Function GetFirstWord'
  684.       Caption = 'GetFirstWord'
  685.       Font.Charset = DEFAULT_CHARSET
  686.       Font.Color = clBlack
  687.       Font.Height = -11
  688.       Font.Name = 'MS Sans Serif'
  689.       Font.Style = []
  690.       ParentFont = False
  691.       ParentShowHint = False
  692.       ShowHint = True
  693.       TabOrder = 32
  694.       OnClick = _GetFirstWordClick
  695.     end
  696.     object _Romanum: TButton
  697.       Left = 268
  698.       Top = 121
  699.       Width = 89
  700.       Height = 20
  701.       Hint = 'Function Int2Roman'#13#10'Function Roman2Int'
  702.       Caption = 'Romanum'
  703.       Font.Charset = DEFAULT_CHARSET
  704.       Font.Color = clBlack
  705.       Font.Height = -11
  706.       Font.Name = 'MS Sans Serif'
  707.       Font.Style = []
  708.       ParentFont = False
  709.       ParentShowHint = False
  710.       ShowHint = True
  711.       TabOrder = 33
  712.       OnClick = _RomanumClick
  713.     end
  714.     object _ExtractEmail: TButton
  715.       Left = 357
  716.       Top = 121
  717.       Width = 89
  718.       Height = 20
  719.       Hint = 'Function htmlSrcEmail'
  720.       Caption = 'ExtractEmail'
  721.       Font.Charset = DEFAULT_CHARSET
  722.       Font.Color = clBlack
  723.       Font.Height = -11
  724.       Font.Name = 'MS Sans Serif'
  725.       Font.Style = []
  726.       ParentFont = False
  727.       ParentShowHint = False
  728.       ShowHint = True
  729.       TabOrder = 34
  730.       OnClick = _ExtractEmailClick
  731.     end
  732.     object _Alter: TButton
  733.       Left = 1
  734.       Top = 141
  735.       Width = 89
  736.       Height = 20
  737.       Hint = 'Function Alter'
  738.       Caption = 'Alter'
  739.       Font.Charset = DEFAULT_CHARSET
  740.       Font.Color = clBlack
  741.       Font.Height = -11
  742.       Font.Name = 'MS Sans Serif'
  743.       Font.Style = []
  744.       ParentFont = False
  745.       ParentShowHint = False
  746.       ShowHint = True
  747.       TabOrder = 35
  748.       OnClick = _AlterClick
  749.     end
  750.     object _Reduce: TButton
  751.       Left = 90
  752.       Top = 141
  753.       Width = 89
  754.       Height = 20
  755.       Hint = 'Function Reduce'
  756.       Caption = 'Reduce'
  757.       Font.Charset = DEFAULT_CHARSET
  758.       Font.Color = clBlack
  759.       Font.Height = -11
  760.       Font.Name = 'MS Sans Serif'
  761.       Font.Style = []
  762.       ParentFont = False
  763.       ParentShowHint = False
  764.       ShowHint = True
  765.       TabOrder = 36
  766.       OnClick = _ReduceClick
  767.     end
  768.     object _ExtractNumber: TButton
  769.       Left = 179
  770.       Top = 141
  771.       Width = 89
  772.       Height = 20
  773.       Hint = 'Function EctractNumber'
  774.       Caption = 'ExtractNumber'
  775.       Font.Charset = DEFAULT_CHARSET
  776.       Font.Color = clBlack
  777.       Font.Height = -11
  778.       Font.Name = 'MS Sans Serif'
  779.       Font.Style = []
  780.       ParentFont = False
  781.       ParentShowHint = False
  782.       ShowHint = True
  783.       TabOrder = 37
  784.       OnClick = _ExtractNumberClick
  785.     end
  786.     object _FindWord: TButton
  787.       Left = 268
  788.       Top = 141
  789.       Width = 89
  790.       Height = 20
  791.       Hint = 'Function FindWord'
  792.       Caption = 'FindWord'
  793.       Font.Charset = DEFAULT_CHARSET
  794.       Font.Color = clBlack
  795.       Font.Height = -11
  796.       Font.Name = 'MS Sans Serif'
  797.       Font.Style = []
  798.       ParentFont = False
  799.       ParentShowHint = False
  800.       ShowHint = True
  801.       TabOrder = 38
  802.       OnClick = _FindWordClick
  803.     end
  804.     object _JoinTo: TButton
  805.       Left = 357
  806.       Top = 141
  807.       Width = 89
  808.       Height = 20
  809.       Hint = 'Function JoinTo'
  810.       Caption = 'JoinTo'
  811.       Font.Charset = DEFAULT_CHARSET
  812.       Font.Color = clBlack
  813.       Font.Height = -11
  814.       Font.Name = 'MS Sans Serif'
  815.       Font.Style = []
  816.       ParentFont = False
  817.       ParentShowHint = False
  818.       ShowHint = True
  819.       TabOrder = 39
  820.       OnClick = _JoinToClick
  821.     end
  822.   end
  823.   object Button3: TButton
  824.     Left = 344
  825.     Top = 264
  826.     Width = 89
  827.     Height = 33
  828.     Hint = 'Close this form.'
  829.     Caption = 'Close'
  830.     ParentShowHint = False
  831.     ShowHint = True
  832.     TabOrder = 1
  833.     OnClick = Button3Click
  834.   end
  835.   object Panel2: TPanel
  836.     Left = 0
  837.     Top = 304
  838.     Width = 448
  839.     Height = 25
  840.     Hint = 'Send me your comments'
  841.     Align = alBottom
  842.     BevelOuter = bvLowered
  843.     Caption = '(c) 2000 Jaro Benes, E-mail: JBenes@micrel.cz'
  844.     Font.Charset = DEFAULT_CHARSET
  845.     Font.Color = clRed
  846.     Font.Height = -12
  847.     Font.Name = 'MS Sans Serif'
  848.     Font.Style = [fsBold]
  849.     ParentFont = False
  850.     ParentShowHint = False
  851.     ShowHint = True
  852.     TabOrder = 2
  853.   end
  854. end
  855.