unit3.dfm

实现网络流量的生成,为cs结构,可以控制流量大小

object total: Ttotal
  Left = 163
  Top = 107
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #32467#26524#32479#35745
  ClientHeight = 542
  ClientWidth = 853
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object bsSkinPanel1: TbsSkinPanel
    Left = 8
    Top = 8
    Width = 833
    Height = 521
    TabOrder = 0
    SkinData = main.bsSkinData1
    SkinDataName = 'panel'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 12
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    AutoEnabledControls = True
    CheckedMode = False
    Checked = False
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvFrame
    CaptionMode = False
    RollUpMode = False
    RollUpState = False
    NumGlyphs = 1
    Spacing = 2
    Caption = 'bsSkinPanel1'
    object bsSkinPanel3: TbsSkinPanel
      Left = 312
      Top = 8
      Width = 513
      Height = 505
      TabOrder = 0
      SkinData = main.bsSkinData1
      SkinDataName = 'panel'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 12
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      AutoEnabledControls = True
      CheckedMode = False
      Checked = False
      DefaultAlignment = taLeftJustify
      DefaultCaptionHeight = 22
      BorderStyle = bvFrame
      CaptionMode = False
      RollUpMode = False
      RollUpState = False
      NumGlyphs = 1
      Spacing = 2
      Caption = 'bsSkinPanel3'
      object bsSkinStdLabel7: TbsSkinStdLabel
        Left = 24
        Top = 16
        Width = 42
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = main.bsSkinData1
        SkinDataName = 'stdlabel'
        Caption = #22270#31034#65306'  '
      end
      object bsSkinStdLabel8: TbsSkinStdLabel
        Left = 120
        Top = 12
        Width = 123
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = main.bsSkinData1
        SkinDataName = 'stdlabel'
        Caption = #23454#26102#32593#32476#20002#21253#29575#65306'         '
      end
      object bsSkinStdLabel4: TbsSkinStdLabel
        Left = 24
        Top = 264
        Width = 42
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = main.bsSkinData1
        SkinDataName = 'stdlabel'
        Caption = #22270#31034#65306'  '
      end
      object bsSkinStdLabel9: TbsSkinStdLabel
        Left = 104
        Top = 260
        Width = 117
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = main.bsSkinData1
        SkinDataName = 'stdlabel'
        Caption = #24179#22343#32593#32476#26102#24310#65306'           '
      end
      object bsSkinStdLabel16: TbsSkinStdLabel
        Left = 296
        Top = 260
        Width = 28
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinDataName = 'stdlabel'
        Caption = 'ms     '
      end
      object bsSkinStdLabel21: TbsSkinStdLabel
        Left = 296
        Top = 12
        Width = 17
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinDataName = 'stdlabel'
        Caption = '%   '
      end
      object bsSkinStdLabel26: TbsSkinStdLabel
        Left = 320
        Top = 12
        Width = 104
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinDataName = 'stdlabel'
        Caption = #27178#22352#26631#21333#20301#65306'1s       '
      end
      object bsSkinStdLabel27: TbsSkinStdLabel
        Left = 320
        Top = 260
        Width = 107
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinDataName = 'stdlabel'
        Caption = #27178#22352#26631#21333#20301#65306'1s        '
      end
      object bsSkinPanel2: TbsSkinPanel
        Left = 8
        Top = 32
        Width = 497
        Height = 217
        TabOrder = 0
        SkinData = main.bsSkinData1
        SkinDataName = 'panel'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 12
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        AutoEnabledControls = True
        CheckedMode = False
        Checked = False
        DefaultAlignment = taLeftJustify
        DefaultCaptionHeight = 22
        BorderStyle = bvFrame
        CaptionMode = False
        RollUpMode = False
        RollUpState = False
        NumGlyphs = 1
        Spacing = 2
        Caption = 'bsSkinPanel1'
        object Chart1: TChart
          Left = 8
          Top = 8
          Width = 481
          Height = 201
          BackWall.Brush.Color = clWhite
          BackWall.Brush.Style = bsClear
          MarginBottom = 0
          MarginLeft = 0
          MarginRight = 0
          MarginTop = 5
          Title.Text.Strings = (
            #23454#26102#32593#32476#20002#21253#29575#32479#35745#26354#32447)
          Legend.Visible = False
          TabOrder = 0
          object bsSkinStdLabel24: TbsSkinStdLabel
            Left = 8
            Top = 8
            Width = 14
            Height = 13
            UseSkinFont = True
            DefaultFont.Charset = DEFAULT_CHARSET
            DefaultFont.Color = clWindowText
            DefaultFont.Height = -11
            DefaultFont.Name = 'MS Sans Serif'
            DefaultFont.Style = []
            SkinDataName = 'stdlabel'
            Caption = '%  '
          end
          object Series1: TFastLineSeries
            Marks.ArrowLength = 8
            Marks.Visible = False
            SeriesColor = clBlue
            LinePen.Color = clRed
            XValues.DateTime = False
            XValues.Name = 'X'
            XValues.Multiplier = 1
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Y'
            YValues.Multiplier = 1
            YValues.Order = loNone
          end
        end
      end
      object bsSkinEdit6: TbsSkinEdit
        Left = 200
        Top = 8
        Width = 89
        Height = 20
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 12
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        UseSkinFont = True
        DefaultWidth = 0
        DefaultHeight = 20
        ButtonMode = False
        SkinData = main.bsSkinData1
        SkinDataName = 'edit'
        ReadOnly = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = 12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Text = '0'
      end
      object bsSkinEdit3: TbsSkinEdit
        Left = 200
        Top = 256
        Width = 89
        Height = 20
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 12
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        UseSkinFont = True
        DefaultWidth = 0
        DefaultHeight = 20
        ButtonMode = False
        SkinData = main.bsSkinData1
        SkinDataName = 'edit'
        ReadOnly = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = 12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Text = '0.681688'
      end
      object bsSkinPanel4: TbsSkinPanel
        Left = 8
        Top = 280
        Width = 497
        Height = 217
        TabOrder = 3
        SkinData = main.bsSkinData1
        SkinDataName = 'panel'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 12
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        AutoEnabledControls = True
        CheckedMode = False
        Checked = False
        DefaultAlignment = taLeftJustify
        DefaultCaptionHeight = 22
        BorderStyle = bvFrame
        CaptionMode = False
        RollUpMode = False
        RollUpState = False
        NumGlyphs = 1
        Spacing = 2
        Caption = 'bsSkinPanel1'
        object Chart2: TChart
          Left = 8
          Top = 8
          Width = 481
          Height = 201
          BackWall.Brush.Color = clWhite
          BackWall.Brush.Style = bsClear
          MarginBottom = 0
          MarginLeft = 0
          MarginRight = 0
          MarginTop = 5
          Title.Text.Strings = (
            #24179#22343#32593#32476#26102#24310#32479#35745#26354#32447)
          Legend.Visible = False
          TabOrder = 0
          object bsSkinStdLabel25: TbsSkinStdLabel
            Left = 8
            Top = 8
            Width = 16
            Height = 13
            UseSkinFont = True
            DefaultFont.Charset = DEFAULT_CHARSET
            DefaultFont.Color = clWindowText
            DefaultFont.Height = -11
            DefaultFont.Name = 'MS Sans Serif'
            DefaultFont.Style = []
            SkinDataName = 'stdlabel'
            Caption = 'ms '
          end