home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1999 September / Dpcb0999.iso / Internet / opc_v3 / _SETUP.1 / OPC.exe / 0 / RCDATA / TFORM1 / TFORM1.txt < prev   
Text File  |  1999-04-21  |  19KB  |  853 lines
  1. object Form1: TForm1
  2.   Left = 648
  3.   Top = 132
  4.   HorzScrollBar.Visible = False
  5.   VertScrollBar.Visible = False
  6.   BorderIcons = [biSystemMenu, biMinimize, biHelp]
  7.   BorderStyle = bsSingle
  8.   Caption = 'OPC v3.0 ∩┐╜ SM Programming 1999'
  9.   ClientHeight = 163
  10.   ClientWidth = 338
  11.   Color = clSilver
  12.   Font.Charset = DEFAULT_CHARSET
  13.   Font.Color = clBlack
  14.   Font.Height = -16
  15.   Font.Name = 'System'
  16.   Font.Style = [fsBold]
  17.   HelpFile = 'opc.hlp'
  18.   Menu = MainMenu1
  19.   PopupMenu = PopupMenu1
  20.   Position = poScreenCenter
  21.   OnCloseQuery = FormCloseQuery
  22.   OnCreate = FormCreate
  23.   OnDestroy = BitBtn7Click
  24.   OnMouseMove = FormMouseMove
  25.   PixelsPerInch = 96
  26.   TextHeight = 16
  27.   object Image1: TImage
  28.     Left = 0
  29.     Top = 0
  30.     Width = 338
  31.     Height = 163
  32.     Align = alClient
  33.     Picture.Data = {<image000.bmp>}
  34.     Stretch = True
  35.     OnMouseMove = FormMouseMove
  36.   end
  37.   object Gauge1: TGauge
  38.     Left = 274
  39.     Top = 16
  40.     Width = 17
  41.     Height = 79
  42.     Kind = gkVerticalBar
  43.     ShowText = False
  44.     Font.Charset = DEFAULT_CHARSET
  45.     Font.Color = clLime
  46.     Font.Height = -19
  47.     Font.Name = 'System'
  48.     Font.Style = [fsBold]
  49.     ForeColor = clLime
  50.     BackColor = clBlack
  51.     ParentFont = False
  52.     Progress = 100
  53.   end
  54.   object Bevel5: TBevel
  55.     Left = 274
  56.     Top = 16
  57.     Width = 17
  58.     Height = 79
  59.   end
  60.   object Bevel1: TBevel
  61.     Left = 8
  62.     Top = 8
  63.     Width = 321
  64.     Height = 1
  65.     Shape = bsTopLine
  66.   end
  67.   object Label10: TLabel
  68.     Left = 21
  69.     Top = 18
  70.     Width = 62
  71.     Height = 15
  72.     Caption = 'No. of Calls'
  73.     Color = clBlack
  74.     Font.Charset = ANSI_CHARSET
  75.     Font.Color = clAqua
  76.     Font.Height = -12
  77.     Font.Name = 'Times New Roman'
  78.     Font.Style = [fsBold]
  79.     ParentColor = False
  80.     ParentFont = False
  81.     Transparent = True
  82.   end
  83.   object Label11: TLabel
  84.     Left = 21
  85.     Top = 38
  86.     Width = 105
  87.     Height = 15
  88.     Caption = 'Total exc. VAT/TAX'
  89.     Color = clBlack
  90.     Font.Charset = ANSI_CHARSET
  91.     Font.Color = clAqua
  92.     Font.Height = -12
  93.     Font.Name = 'Times New Roman'
  94.     Font.Style = [fsBold]
  95.     ParentColor = False
  96.     ParentFont = False
  97.     Transparent = True
  98.   end
  99.   object Label14: TLabel
  100.     Left = 21
  101.     Top = 58
  102.     Width = 104
  103.     Height = 15
  104.     Caption = 'Total inc. VAT/TAX'
  105.     Color = clBlack
  106.     Font.Charset = ANSI_CHARSET
  107.     Font.Color = clAqua
  108.     Font.Height = -12
  109.     Font.Name = 'Times New Roman'
  110.     Font.Style = [fsBold]
  111.     ParentColor = False
  112.     ParentFont = False
  113.     Transparent = True
  114.   end
  115.   object Label15: TLabel
  116.     Left = 21
  117.     Top = 78
  118.     Width = 100
  119.     Height = 15
  120.     Caption = 'Total Online Time'
  121.     Color = clBlack
  122.     Font.Charset = ANSI_CHARSET
  123.     Font.Color = clAqua
  124.     Font.Height = -12
  125.     Font.Name = 'Times New Roman'
  126.     Font.Style = [fsBold]
  127.     ParentColor = False
  128.     ParentFont = False
  129.     Transparent = True
  130.   end
  131.   object Label29: TLabel
  132.     Left = 136
  133.     Top = 38
  134.     Width = 6
  135.     Height = 15
  136.     Caption = '∩┐╜'
  137.     Color = clBlack
  138.     Font.Charset = ANSI_CHARSET
  139.     Font.Color = clAqua
  140.     Font.Height = -12
  141.     Font.Name = 'Times New Roman'
  142.     Font.Style = [fsBold]
  143.     ParentColor = False
  144.     ParentFont = False
  145.     Transparent = True
  146.   end
  147.   object Label30: TLabel
  148.     Left = 136
  149.     Top = 58
  150.     Width = 6
  151.     Height = 15
  152.     Caption = '∩┐╜'
  153.     Color = clBlack
  154.     Font.Charset = ANSI_CHARSET
  155.     Font.Color = clAqua
  156.     Font.Height = -12
  157.     Font.Name = 'Times New Roman'
  158.     Font.Style = [fsBold]
  159.     ParentColor = False
  160.     ParentFont = False
  161.     Transparent = True
  162.   end
  163.   object Label2: TLabel
  164.     Left = 294
  165.     Top = 18
  166.     Width = 25
  167.     Height = 78
  168.     Alignment = taCenter
  169.     Caption = 'O P C'
  170.     Font.Charset = ANSI_CHARSET
  171.     Font.Color = clNavy
  172.     Font.Height = -24
  173.     Font.Name = 'Times New Roman'
  174.     Font.Style = [fsBold]
  175.     ParentFont = False
  176.     Transparent = True
  177.     WordWrap = True
  178.     OnMouseMove = FormMouseMove
  179.   end
  180.   object Bevel2: TBevel
  181.     Left = 8
  182.     Top = 103
  183.     Width = 321
  184.     Height = 1
  185.     Shape = bsBottomLine
  186.   end
  187.   object Bevel3: TBevel
  188.     Left = 8
  189.     Top = 8
  190.     Width = 1
  191.     Height = 96
  192.     Shape = bsLeftLine
  193.   end
  194.   object Bevel4: TBevel
  195.     Left = 328
  196.     Top = 8
  197.     Width = 1
  198.     Height = 96
  199.     Shape = bsRightLine
  200.   end
  201.   object Label3: TLabel
  202.     Left = 278
  203.     Top = 24
  204.     Width = 10
  205.     Height = 64
  206.     Caption = 'N o n e'
  207.     Font.Charset = DEFAULT_CHARSET
  208.     Font.Color = clRed
  209.     Font.Height = -19
  210.     Font.Name = 'System'
  211.     Font.Style = [fsBold]
  212.     ParentFont = False
  213.     Transparent = True
  214.     Visible = False
  215.     WordWrap = True
  216.   end
  217.   object BitBtn1: TBitBtn
  218.     Left = 8
  219.     Top = 134
  220.     Width = 80
  221.     Height = 22
  222.     HelpContext = 1003
  223.     Caption = '&Start Timer'
  224.     Default = True
  225.     Font.Charset = ANSI_CHARSET
  226.     Font.Color = clBlack
  227.     Font.Height = -13
  228.     Font.Name = 'Times New Roman'
  229.     Font.Style = []
  230.     ParentFont = False
  231.     TabOrder = 0
  232.     OnClick = BitBtn1Click
  233.     NumGlyphs = 2
  234.   end
  235.   object BitBtn2: TBitBtn
  236.     Left = 184
  237.     Top = 134
  238.     Width = 80
  239.     Height = 22
  240.     Caption = 'S&top Timer'
  241.     Font.Charset = ANSI_CHARSET
  242.     Font.Color = clBlack
  243.     Font.Height = -13
  244.     Font.Name = 'Times New Roman'
  245.     Font.Style = []
  246.     ParentFont = False
  247.     TabOrder = 2
  248.     OnClick = BitBtn2Click
  249.   end
  250.   object BitBtn7: TBitBtn
  251.     Left = 272
  252.     Top = 134
  253.     Width = 57
  254.     Height = 22
  255.     Caption = '&Quit'
  256.     Font.Charset = ANSI_CHARSET
  257.     Font.Color = clBlack
  258.     Font.Height = -13
  259.     Font.Name = 'Times New Roman'
  260.     Font.Style = []
  261.     ParentFont = False
  262.     TabOrder = 3
  263.     OnClick = BitBtn7Click
  264.   end
  265.   object BitBtn8: TBitBtn
  266.     Left = 96
  267.     Top = 134
  268.     Width = 80
  269.     Height = 22
  270.     Caption = '&Cancel Timer'
  271.     Font.Charset = ANSI_CHARSET
  272.     Font.Color = clBlack
  273.     Font.Height = -13
  274.     Font.Name = 'Times New Roman'
  275.     Font.Style = []
  276.     ParentFont = False
  277.     ParentShowHint = False
  278.     ShowHint = False
  279.     TabOrder = 1
  280.     OnClick = BitBtn8Click
  281.   end
  282.   object Edit4: TEdit
  283.     Left = 144
  284.     Top = 36
  285.     Width = 121
  286.     Height = 19
  287.     Cursor = crArrow
  288.     AutoSize = False
  289.     Color = clBlack
  290.     Font.Charset = ANSI_CHARSET
  291.     Font.Color = clRed
  292.     Font.Height = -12
  293.     Font.Name = 'Times New Roman'
  294.     Font.Style = []
  295.     ParentFont = False
  296.     ReadOnly = True
  297.     TabOrder = 5
  298.   end
  299.   object Edit5: TEdit
  300.     Left = 144
  301.     Top = 16
  302.     Width = 121
  303.     Height = 19
  304.     Cursor = crArrow
  305.     AutoSize = False
  306.     Color = clBlack
  307.     Font.Charset = ANSI_CHARSET
  308.     Font.Color = clRed
  309.     Font.Height = -12
  310.     Font.Name = 'Times New Roman'
  311.     Font.Style = []
  312.     ParentFont = False
  313.     ReadOnly = True
  314.     TabOrder = 4
  315.   end
  316.   object Edit6: TEdit
  317.     Left = 144
  318.     Top = 56
  319.     Width = 121
  320.     Height = 19
  321.     Cursor = crArrow
  322.     AutoSize = False
  323.     Color = clBlack
  324.     Font.Charset = ANSI_CHARSET
  325.     Font.Color = clRed
  326.     Font.Height = -12
  327.     Font.Name = 'Times New Roman'
  328.     Font.Style = []
  329.     ParentFont = False
  330.     ReadOnly = True
  331.     TabOrder = 6
  332.   end
  333.   object Edit11: TEdit
  334.     Left = 144
  335.     Top = 76
  336.     Width = 121
  337.     Height = 19
  338.     Cursor = crArrow
  339.     AutoSize = False
  340.     Color = clBlack
  341.     Font.Charset = ANSI_CHARSET
  342.     Font.Color = clRed
  343.     Font.Height = -12
  344.     Font.Name = 'Times New Roman'
  345.     Font.Style = []
  346.     ParentFont = False
  347.     ReadOnly = True
  348.     TabOrder = 7
  349.   end
  350.   object MediaPlayer1: TMediaPlayer
  351.     Left = 96
  352.     Top = 360
  353.     Width = 253
  354.     Height = 30
  355.     AutoOpen = True
  356.     DeviceType = dtWaveAudio
  357.     Visible = False
  358.     TabOrder = 8
  359.   end
  360.   object A: TPanel
  361.     Left = 8
  362.     Top = 110
  363.     Width = 321
  364.     Height = 17
  365.     BevelOuter = bvLowered
  366.     Color = clBlack
  367.     TabOrder = 9
  368.     OnClick = showsmall
  369.     object Label1: TLabel
  370.       Left = 226
  371.       Top = 0
  372.       Width = 3
  373.       Height = 15
  374.       Font.Charset = ANSI_CHARSET
  375.       Font.Color = clLime
  376.       Font.Height = -13
  377.       Font.Name = 'Times New Roman'
  378.       Font.Style = []
  379.       ParentFont = False
  380.       Transparent = True
  381.     end
  382.     object Label6: TLabel
  383.       Left = 8
  384.       Top = 32
  385.       Width = 72
  386.       Height = 15
  387.       Caption = 'Time online: '
  388.       Font.Charset = ANSI_CHARSET
  389.       Font.Color = clYellow
  390.       Font.Height = -13
  391.       Font.Name = 'Times New Roman'
  392.       Font.Style = [fsBold]
  393.       ParentFont = False
  394.       Transparent = True
  395.     end
  396.     object Label8: TLabel
  397.       Left = 153
  398.       Top = 32
  399.       Width = 70
  400.       Height = 15
  401.       Caption = 'Online cost :'
  402.       Font.Charset = ANSI_CHARSET
  403.       Font.Color = clYellow
  404.       Font.Height = -13
  405.       Font.Name = 'Times New Roman'
  406.       Font.Style = [fsBold]
  407.       ParentFont = False
  408.       Transparent = True
  409.     end
  410.     object Label12: TLabel
  411.       Left = 17
  412.       Top = 0
  413.       Width = 59
  414.       Height = 15
  415.       Caption = 'Time now :'
  416.       Font.Charset = ANSI_CHARSET
  417.       Font.Color = clYellow
  418.       Font.Height = -13
  419.       Font.Name = 'Times New Roman'
  420.       Font.Style = [fsBold]
  421.       ParentFont = False
  422.       Transparent = True
  423.     end
  424.     object Label13: TLabel
  425.       Left = 144
  426.       Top = 0
  427.       Width = 77
  428.       Height = 15
  429.       Caption = 'Cost per min :'
  430.       Font.Charset = ANSI_CHARSET
  431.       Font.Color = clYellow
  432.       Font.Height = -13
  433.       Font.Name = 'Times New Roman'
  434.       Font.Style = [fsBold]
  435.       ParentFont = False
  436.       Transparent = True
  437.     end
  438.     object Label17: TLabel
  439.       Left = 166
  440.       Top = 16
  441.       Width = 56
  442.       Height = 15
  443.       Caption = 'Discount :'
  444.       Font.Charset = ANSI_CHARSET
  445.       Font.Color = clYellow
  446.       Font.Height = -13
  447.       Font.Name = 'Times New Roman'
  448.       Font.Style = [fsBold]
  449.       ParentFont = False
  450.       Transparent = True
  451.     end
  452.     object Label7: TLabel
  453.       Left = 80
  454.       Top = 0
  455.       Width = 3
  456.       Height = 15
  457.       Font.Charset = ANSI_CHARSET
  458.       Font.Color = clLime
  459.       Font.Height = -13
  460.       Font.Name = 'Times New Roman'
  461.       Font.Style = []
  462.       ParentFont = False
  463.       Transparent = True
  464.     end
  465.     object Label9: TLabel
  466.       Left = 80
  467.       Top = 16
  468.       Width = 3
  469.       Height = 15
  470.       Font.Charset = ANSI_CHARSET
  471.       Font.Color = clLime
  472.       Font.Height = -13
  473.       Font.Name = 'Times New Roman'
  474.       Font.Style = []
  475.       ParentFont = False
  476.       Transparent = True
  477.     end
  478.     object Label19: TLabel
  479.       Left = 80
  480.       Top = 32
  481.       Width = 3
  482.       Height = 15
  483.       Font.Charset = ANSI_CHARSET
  484.       Font.Color = clLime
  485.       Font.Height = -13
  486.       Font.Name = 'Times New Roman'
  487.       Font.Style = []
  488.       ParentFont = False
  489.       Transparent = True
  490.     end
  491.     object Label20: TLabel
  492.       Left = 236
  493.       Top = 0
  494.       Width = 3
  495.       Height = 15
  496.       Font.Charset = ANSI_CHARSET
  497.       Font.Color = clLime
  498.       Font.Height = -13
  499.       Font.Name = 'Times New Roman'
  500.       Font.Style = []
  501.       ParentFont = False
  502.       Transparent = True
  503.     end
  504.     object Label21: TLabel
  505.       Left = 226
  506.       Top = 16
  507.       Width = 3
  508.       Height = 15
  509.       Font.Charset = ANSI_CHARSET
  510.       Font.Color = clLime
  511.       Font.Height = -13
  512.       Font.Name = 'Times New Roman'
  513.       Font.Style = []
  514.       ParentFont = False
  515.       Transparent = True
  516.     end
  517.     object Label22: TLabel
  518.       Left = 236
  519.       Top = 32
  520.       Width = 3
  521.       Height = 15
  522.       Font.Charset = ANSI_CHARSET
  523.       Font.Color = clLime
  524.       Font.Height = -13
  525.       Font.Name = 'Times New Roman'
  526.       Font.Style = []
  527.       ParentFont = False
  528.       Transparent = True
  529.     end
  530.     object Label18: TLabel
  531.       Left = 14
  532.       Top = 16
  533.       Width = 62
  534.       Height = 15
  535.       Caption = 'Start time :'
  536.       Font.Charset = ANSI_CHARSET
  537.       Font.Color = clYellow
  538.       Font.Height = -13
  539.       Font.Name = 'Times New Roman'
  540.       Font.Style = [fsBold]
  541.       ParentFont = False
  542.       Transparent = True
  543.     end
  544.     object Label23: TLabel
  545.       Left = 226
  546.       Top = 32
  547.       Width = 3
  548.       Height = 15
  549.       Font.Charset = ANSI_CHARSET
  550.       Font.Color = clLime
  551.       Font.Height = -13
  552.       Font.Name = 'Times New Roman'
  553.       Font.Style = []
  554.       ParentFont = False
  555.       Transparent = True
  556.     end
  557.     object Label24: TLabel
  558.       Left = 263
  559.       Top = 16
  560.       Width = 3
  561.       Height = 15
  562.       Font.Charset = ANSI_CHARSET
  563.       Font.Color = clLime
  564.       Font.Height = -13
  565.       Font.Name = 'Times New Roman'
  566.       Font.Style = []
  567.       ParentFont = False
  568.       Transparent = True
  569.     end
  570.   end
  571.   object Timer7: TTimer
  572.     Enabled = False
  573.     Interval = 1
  574.     OnTimer = Timer7Timer
  575.     Left = 48
  576.     Top = 368
  577.   end
  578.   object MainMenu1: TMainMenu
  579.     Left = 96
  580.     Top = 296
  581.     object MenuBar: TMenuItem
  582.       Caption = '&Program'
  583.       Checked = True
  584.       object Options1: TMenuItem
  585.         Caption = '&Options'
  586.         ShortCut = 16463
  587.         OnClick = Options1Click
  588.       end
  589.       object N2: TMenuItem
  590.         Caption = '-'
  591.       end
  592.       object DefineDailyCallRates1: TMenuItem
  593.         Caption = '&Define Daily Call Rates  '
  594.         ShortCut = 16452
  595.         OnClick = BitBtn3Click
  596.       end
  597.       object BillingOptions2: TMenuItem
  598.         Caption = '&Billing Details'
  599.         ShortCut = 16450
  600.         OnClick = BillingOptions2Click
  601.       end
  602.       object N11: TMenuItem
  603.         Caption = '-'
  604.       end
  605.       object Close1: TMenuItem
  606.         Caption = '&Quit'
  607.         ShortCut = 16465
  608.         OnClick = BitBtn7Click
  609.       end
  610.     end
  611.     object Logs1: TMenuItem
  612.       Caption = '&Logs/Reports'
  613.       object ViewLogFile3: TMenuItem
  614.         Caption = 'View &Log File'
  615.         ShortCut = 16460
  616.         OnClick = ViewLogfile1Click
  617.       end
  618.       object ViewReportFile3: TMenuItem
  619.         Caption = 'View &Report File'
  620.         ShortCut = 16466
  621.         OnClick = ViewReportFile1Click
  622.       end
  623.       object N4: TMenuItem
  624.         Caption = '-'
  625.       end
  626.       object Report1: TMenuItem
  627.         Caption = '&General Report Charts'
  628.         ShortCut = 16455
  629.         OnClick = Report1Click
  630.       end
  631.       object SummaryReport1: TMenuItem
  632.         Caption = '&Summary Report'
  633.         ShortCut = 16467
  634.         OnClick = SummaryReport1Click
  635.       end
  636.     end
  637.     object About3: TMenuItem
  638.       Caption = '&Help'
  639.       object Help3: TMenuItem
  640.         Caption = '&Help'
  641.         ShortCut = 16456
  642.         OnClick = Help1Click
  643.       end
  644.       object N1: TMenuItem
  645.         Caption = '-'
  646.       end
  647.       object Regsiter1: TMenuItem
  648.         Caption = 'R&egister'
  649.         ShortCut = 16453
  650.         OnClick = Regsiter1Click
  651.       end
  652.       object N6: TMenuItem
  653.         Caption = '-'
  654.       end
  655.       object About4: TMenuItem
  656.         Caption = '&About'
  657.         ShortCut = 16449
  658.         OnClick = menuloadedaboutbox
  659.       end
  660.     end
  661.     object RateFile1: TMenuItem
  662.       Caption = 'Rate &File'
  663.       ShortCut = 16454
  664.       OnClick = RateFile1Click
  665.       object RateFiles1: TMenuItem
  666.         Caption = 'Ra&te Files'
  667.         ShortCut = 16468
  668.         Visible = False
  669.         OnClick = RateFiles1Click
  670.       end
  671.       object N7: TMenuItem
  672.         Caption = '-'
  673.         Visible = False
  674.       end
  675.       object rate1: TMenuItem
  676.         Visible = False
  677.         OnClick = find_rate
  678.       end
  679.       object rate2: TMenuItem
  680.         Visible = False
  681.         OnClick = find_rate
  682.       end
  683.       object rate3: TMenuItem
  684.         Visible = False
  685.         OnClick = find_rate
  686.       end
  687.       object rate4: TMenuItem
  688.         Visible = False
  689.         OnClick = find_rate
  690.       end
  691.       object rate5: TMenuItem
  692.         Visible = False
  693.         OnClick = find_rate
  694.       end
  695.       object rate6: TMenuItem
  696.         Visible = False
  697.         OnClick = find_rate
  698.       end
  699.       object rate7: TMenuItem
  700.         Visible = False
  701.         OnClick = find_rate
  702.       end
  703.       object rate8: TMenuItem
  704.         Visible = False
  705.         OnClick = find_rate
  706.       end
  707.       object rate9: TMenuItem
  708.         Visible = False
  709.         OnClick = find_rate
  710.       end
  711.       object rate10: TMenuItem
  712.         Visible = False
  713.         OnClick = find_rate
  714.       end
  715.     end
  716.     object Size1: TMenuItem
  717.       Caption = 'Small &Mode'
  718.       ShortCut = 16461
  719.       OnClick = showsmall
  720.     end
  721.   end
  722.   object PopupMenu1: TPopupMenu
  723.     AutoPopup = False
  724.     Left = 128
  725.     Top = 328
  726.     object popupmenu: TMenuItem
  727.       Caption = '&Options'
  728.       ShortCut = 16463
  729.       OnClick = Options1Click
  730.     end
  731.     object bye1: TMenuItem
  732.       Caption = '-'
  733.     end
  734.     object DefineDailyCallRates2: TMenuItem
  735.       Caption = '&Define Daily Call Rates'
  736.       ShortCut = 16452
  737.       OnClick = BitBtn3Click
  738.     end
  739.     object BillingOptions1: TMenuItem
  740.       Caption = '&Billing Details'
  741.       ShortCut = 16450
  742.       OnClick = BillingOptions2Click
  743.     end
  744.     object N10: TMenuItem
  745.       Caption = '-'
  746.     end
  747.     object ViewLogFile2: TMenuItem
  748.       Caption = 'View &Log File'
  749.       ShortCut = 16460
  750.       OnClick = ViewLogfile1Click
  751.     end
  752.     object ViewReportFile2: TMenuItem
  753.       Caption = 'View &Report File'
  754.       ShortCut = 16466
  755.       OnClick = ViewReportFile1Click
  756.     end
  757.     object N5: TMenuItem
  758.       Caption = '-'
  759.     end
  760.     object About2: TMenuItem
  761.       Caption = '&About'
  762.       ShortCut = 16449
  763.       OnClick = menuloadedaboutbox
  764.     end
  765.     object Help2: TMenuItem
  766.       Caption = '&Help'
  767.       ShortCut = 16456
  768.       OnClick = Help1Click
  769.     end
  770.     object N3: TMenuItem
  771.       Caption = '-'
  772.     end
  773.     object Close2: TMenuItem
  774.       Caption = '&Quit'
  775.       ShortCut = 16465
  776.       OnClick = BitBtn7Click
  777.     end
  778.   end
  779.   object TrayIcon2: TTrayIcon
  780.     Active = False
  781.     ShowDesigning = False
  782.     Icon.Data = {<image001.ico>}
  783.     ToolTip = 'DblClick to start timer, Right Click to show/hide OPC'
  784.     OnDblClick = Start_Stop
  785.     OnRightClick = TrayIcon2RightClick
  786.     Left = 72
  787.     Top = 320
  788.   end
  789.   object Timer1: TTimer
  790.     Interval = 2000
  791.     OnTimer = Timer1Timer
  792.     Left = 16
  793.     Top = 320
  794.   end
  795.   object Timer2: TTimer
  796.     OnTimer = Timer2Timer
  797.     Left = 96
  798.     Top = 344
  799.   end
  800.   object Timer3: TTimer
  801.     OnTimer = Timer3Timer
  802.     Left = 16
  803.     Top = 344
  804.   end
  805.   object Timer4: TTimer
  806.     Enabled = False
  807.     OnTimer = Timer4Timer
  808.     Left = 16
  809.     Top = 368
  810.   end
  811.   object FnugryCloneControl1: TFnugryCloneControl
  812.     Action = clcMessage
  813.     TerminationStyle = tsAppTerminate
  814.     MaxInstance = 1
  815.     Left = 48
  816.     Top = 328
  817.   end
  818.   object Timer10: TTimer
  819.     Enabled = False
  820.     OnTimer = Timer10Timer
  821.     Left = 80
  822.     Top = 344
  823.   end
  824.   object Timer9: TTimer
  825.     Enabled = False
  826.     Interval = 2000
  827.     OnTimer = cli_start
  828.     Left = 208
  829.     Top = 312
  830.   end
  831.   object scroller_time: TTimer
  832.     Enabled = False
  833.     Interval = 200
  834.     OnTimer = scroll
  835.     Left = 256
  836.     Top = 312
  837.   end
  838.   object autosave_timer: TTimer
  839.     Enabled = False
  840.     Interval = 0
  841.     OnTimer = autosave
  842.     Left = 32
  843.     Top = 288
  844.   end
  845.   object carrier_timer: TTimer
  846.     Enabled = False
  847.     Interval = 3000
  848.     OnTimer = carrier_timerTimer
  849.     Left = 176
  850.     Top = 312
  851.   end
  852. end
  853.