object AboutBox8: TAboutBox8 Left = 266 Top = 396 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'OPC v3.0 � SM Programming 1999' ClientHeight = 100 ClientWidth = 336 Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -6 Font.Name = 'System' Font.Style = [] Menu = MainMenu1 Position = poScreenCenter OnCloseQuery = FormCloseQuery OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Image1: TImage Left = 0 Top = 0 Width = 336 Height = 100 Align = alClient Stretch = True end object BitBtn1: TBitBtn Left = 8 Top = 71 Width = 80 Height = 22 Caption = '&Start Timer' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = BitBtn1Click end object BitBtn8: TBitBtn Left = 96 Top = 71 Width = 80 Height = 22 Caption = '&Cancel Timer' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = False TabOrder = 1 OnClick = BitBtn8Click end object BitBtn2: TBitBtn Left = 184 Top = 71 Width = 80 Height = 22 Caption = 'S&top Timer' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = BitBtn2Click end object BitBtn7: TBitBtn Left = 272 Top = 71 Width = 57 Height = 22 Caption = '&Quit' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = BitBtn7Click end object Panel1: TPanel Left = 8 Top = 8 Width = 321 Height = 57 Color = clBlack TabOrder = 4 OnClick = SpeedButton1Click object Label12: TLabel Left = 17 Top = 8 Width = 59 Height = 15 Caption = 'Time now :' Font.Charset = ANSI_CHARSET Font.Color = clYellow Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label13: TLabel Left = 144 Top = 8 Width = 77 Height = 15 Caption = 'Cost per min :' Font.Charset = ANSI_CHARSET Font.Color = clYellow Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label18: TLabel Left = 14 Top = 21 Width = 62 Height = 15 Caption = 'Start time :' Font.Charset = ANSI_CHARSET Font.Color = clYellow Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label6: TLabel Left = 8 Top = 34 Width = 72 Height = 15 Caption = 'Time online: ' Font.Charset = ANSI_CHARSET Font.Color = clYellow Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label7: TLabel Left = 80 Top = 8 Width = 3 Height = 15 Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label9: TLabel Left = 80 Top = 21 Width = 3 Height = 15 Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label19: TLabel Left = 80 Top = 34 Width = 3 Height = 15 Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label17: TLabel Left = 166 Top = 21 Width = 56 Height = 15 Caption = 'Discount :' Font.Charset = ANSI_CHARSET Font.Color = clYellow Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label8: TLabel Left = 153 Top = 34 Width = 70 Height = 15 Caption = 'Online cost :' Font.Charset = ANSI_CHARSET Font.Color = clYellow Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label23: TLabel Left = 226 Top = 34 Width = 3 Height = 15 Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label1: TLabel Left = 226 Top = 8 Width = 3 Height = 15 Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label20: TLabel Left = 236 Top = 8 Width = 3 Height = 15 Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label22: TLabel Left = 236 Top = 34 Width = 3 Height = 15 Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label21: TLabel Left = 226 Top = 21 Width = 3 Height = 15 Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end object Label24: TLabel Left = 255 Top = 21 Width = 3 Height = 15 Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True end end object Timer1: TTimer Interval = 500 OnTimer = update Left = 128 Top = 144 end object MainMenu1: TMainMenu Left = 56 Top = 144 object Size1: TMenuItem Caption = 'Standard &Mode' ShortCut = 16461 OnClick = SpeedButton1Click end end end