unit1.dfm

上海高架路指示牌

object Form1: TForm1
  Left = 219
  Top = 152
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '交通状况 ( 流量 ) 指示牌    ------    S 板、 M 板'
  ClientHeight = 469
  ClientWidth = 547
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWhite
  Font.Height = -27
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 27
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 176
    Height = 469
    Align = alLeft
    BevelInner = bvLowered
    Color = clBlue
    TabOrder = 0
    object Label1: TLabel
      Left = 64
      Top = 35
      Width = 35
      Height = 16
      Caption = '外滩'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = '黑体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 59
      Width = 35
      Height = 16
      Caption = '彭浦'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = '黑体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 128
      Top = 59
      Width = 35
      Height = 16
      Caption = '卢浦'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = '黑体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Shape1: TShape
      Left = 43
      Top = 88
      Width = 86
      Height = 33
      Shape = stRoundRect
    end
    object Shape2: TShape
      Left = 48
      Top = 92
      Width = 77
      Height = 25
      Brush.Color = clBlue
      Shape = stRoundRect
    end
    object Label4: TLabel
      Left = 52
      Top = 97
      Width = 69
      Height = 16
      Caption = '南北高架'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = '黑体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Image1: TImage
      Left = 8
      Top = 280
      Width = 160
      Height = 48
      Cursor = crHandPoint
      Stretch = True
      OnMouseDown = Image1MouseDown
    end
    object Shape3: TShape
      Left = 72
      Top = 64
      Width = 25
      Height = 25
      Cursor = crHandPoint
      Hint = '外滩方向'
      Brush.Color = clBlack
      ParentShowHint = False
      ShowHint = True
      OnMouseDown = ShapeGetColor
    end
    object Shape4: TShape
      Tag = 1
      Left = 6
      Top = 93
      Width = 38
      Height = 25
      Cursor = crHandPoint
      Hint = '彭浦方向'
      Brush.Color = clBlack
      ParentShowHint = False
      ShowHint = True
      OnMouseDown = ShapeGetColor
    end
    object Shape5: TShape
      Tag = 2
      Left = 129
      Top = 92
      Width = 40
      Height = 25
      Cursor = crHandPoint
      Hint = '卢浦方向'
      Brush.Color = clBlack
      ParentShowHint = False
      ShowHint = True
      OnMouseDown = ShapeGetColor
    end
    object Shape6: TShape
      Tag = 3
      Left = 72
      Top = 121
      Width = 25
      Height = 50
      Cursor = crHandPoint
      Brush.Color = clBlack
      OnMouseDown = ShapeGetColor
    end
    object Shape7: TShape
      Tag = 5
      Left = 72
      Top = 171
      Width = 25
      Height = 50
      Cursor = crHandPoint
      Brush.Color = clBlack
      OnMouseDown = ShapeGetColor
    end
    object Shape8: TShape
      Tag = 6
      Left = 72
      Top = 221
      Width = 25
      Height = 50
      Cursor = crHandPoint
      Brush.Color = clBlack
      OnMouseDown = ShapeGetColor
    end
    object Shape9: TShape
      Tag = 4
      Left = 96
      Top = 162
      Width = 41
      Height = 17
      Cursor = crHandPoint
      Hint = '茂名路出口'
      Brush.Color = clBlack
      ParentShowHint = False
      ShowHint = True
      OnMouseDown = ShapeGetColor
    end
    object Shape10: TShape
      Tag = 7
      Left = 96
      Top = 213
      Width = 41
      Height = 17
      Cursor = crHandPoint
      Hint = '江苏路出口'
      Brush.Color = clBlack
      ParentShowHint = False
      ShowHint = True
      OnMouseDown = ShapeGetColor
    end
    object Label5: TLabel
      Left = 115
      Top = 142
      Width = 52
      Height = 16
      Caption = '茂名路'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = '黑体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 115
      Top = 189
      Width = 52
      Height = 16
      Caption = '江苏路'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = '黑体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Shape11: TShape
      Left = 2
      Top = 415
      Width = 172
      Height = 52
      Align = alBottom
      Brush.Color = clBlue
    end
    object Shape12: TShape
      Left = 2
      Top = 367
      Width = 172
      Height = 48
      Align = alBottom
    end
    object Label7: TLabel
      Left = 43
      Top = 371
      Width = 86
      Height = 16
      Caption = '延安路高架'
      Color = clNone
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = '黑体'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label8: TLabel
      Left = 13
      Top = 393
      Width = 148
      Height = 16
      Caption = '娄 山 关 路 入 口'
      Color = clNone
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = '黑体'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label9: TLabel
      Left = 9
      Top = 427
      Width = 101
      Height = 24
      Caption = '外滩方向'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -24
      Font.Name = '黑体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Image2: TImage
      Tag = 1
      Left = 117
      Top = 424
      Width = 48
      Height = 32
      Cursor = crHandPoint
      Stretch = True
      OnMouseDown = Image2MouseDown
    end
    object source: TImage
      Left = 0
      Top = 368
      Width = 177
      Height = 33
      Visible = False
    end
    object Image3: TImage
      Left = 8
      Top = 408
      Width = 48
      Height = 48
      Visible = False
    end
    object BUGradientCaption1: TBUGradientCaption
      Left = 2
      Top = 336
      Width = 172
      Height = 30
      GradientCursor = crDefault
      GradientStarTColor = 12713983
      LabelLeft = 10
      LabelCursor = crDefault
      LabelCaption = '延安路高架娄山关路入口'
      LabelColor = clBlue
      LabelFont.Charset = GB2312_CHARSET
      LabelFont.Color = clBlue
      LabelFont.Height = -12
      LabelFont.Name = 'MS Sans Serif'
      LabelFont.Style = []
      Gradientstyle = grHorizontal
      LabelAlignment = taLeftJustify
    end
    object BUGradientCaption2: TBUGradientCaption
      Left = 2
      Top = 2
      Width = 172
      Height = 30
      GradientCursor = crDefault
      GradientStarTColor = 12713983
      LabelLeft = 10
      LabelCursor = crDefault
      LabelCaption = '江苏路出口匝情报板'
      LabelColor = clBlue
      LabelFont.Charset = GB2312_CHARSET
      LabelFont.Color = clBlue
      LabelFont.Height = -12
      LabelFont.Name = 'MS Sans Serif'
      LabelFont.Style = []
      Gradientstyle = grHorizontal
      LabelAlignment = taLeftJustify
      Align = alTop
    end
  end
  object Panel2: TPanel
    Left = 176
    Top = 0
    Width = 371
    Height = 469
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 7
      Top = 144
      Width = 159
      Height = 22
      Cursor = crHandPoint
      Caption = '保存设置'
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton2: TSpeedButton
      Left = 2
      Top = 392
      Width = 184
      Height = 22
      Cursor = crHandPoint
      Caption = '流量信息发送'
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 111
      Top = 442
      Width = 129
      Height = 22
      Cursor = crHandPoint
      Caption = '娄山关路入口状态发送'
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []