unit1.dfm

铁路道口管理系统 开发源码 大家随便看看 呵呵

object Form1: TForm1
  Left = 1
  Top = 1
  BorderStyle = bsNone
  Caption = 'Form1'
  ClientHeight = 534
  ClientWidth = 790
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  DesignSize = (
    790
    534)
  PixelsPerInch = 96
  TextHeight = 13
  object SSTab1: TSSTab
    Left = 0
    Top = 0
    Width = 816
    Height = 750
    Anchors = [akLeft, akTop, akRight, akBottom]
    ParentColor = False
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 0
    OnMouseUp = SSTab1MouseUp
    OnMouseMove = SSTab1MouseMove
    ControlData = {
      214334120800000056540000844D0000E2ACE1AC000006002C00000000000100
      000000000100000001000000844D00005A670000FFFFFFFFFFFF000000000000
      0F000080000000000000010000000452E30B918FCE119DE300AA004BB8516C74
      0000AC020000010000006C0000000000000000000000FFFFFFFFFFFFFFFF0000
      000000000000007D0000C05D000020454D4600000100AC020000100000000400
      0000000000000000000000000000000400000003000040010000F00000000000
      0000000000000000000000E2040080A903001B00000010000000000000000000
      0000520000007001000001000000F5FFFFFF0000000000000000000000009001
      000000000001000000004D0053002000530061006E0073002000530065007200
      6900660000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000007AD3F57748B21600000000000000
      0000000000004D0053002000530061006E007300200053006500720069006600
      000004FD01000000010000001400E060EB77000014004CCAF57768CAF5770806
      1400080030018D16F5778D16F5778CFD12009B38E577A338E5770000000060D2
      160000200000002000000000300160D216000800300158FD1200182F1400182F
      140001000000198D4000C8AD0240B6C70040000400000100000050C1B8010A00
      0000CB6A729C540B00000000523324148479D8FD1200032AF577CB6A729C950B
      00000EB967FAEB50D7C6C066D200C066D2001C0000000823B8012843D20010FE
      12000D000000A814B8016476000800000000250000000C000000010000001800
      00000C00000000000000260000001C0000000200000000000000010000000000
      000000000000250000000C00000002000000140000000C0000000D0000002700
      0000180000000300000000000000FFFFFF0000000000250000000C0000000300
      0000190000000C000000FFFFFF00120000000C00000002000000250000000C00
      000007000080250000000C00000005000080250000000C0000000D0000800E00
      000014000000000000001000000014000000000001000000}
    object SpeedButton1: TSpeedButton
      Left = 3
      Top = 377
      Width = 22
      Height = 83
      Cursor = crHandPoint
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF3333333333333744333333333333F773333333333337
        44473333333333F777F3333333333744444333333333F7733733333333374444
        4433333333F77333733333333744444447333333F7733337F333333744444444
        433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
        9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
        C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
        CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
        CCC333333333333777FF33333333333333CC3333333333333773}
      NumGlyphs = 2
      OnClick = SpeedButton2Click
    end
    object SpeedButton4: TSpeedButton
      Left = 526
      Top = 736
      Width = 83
      Height = 22
      Cursor = crHandPoint
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
        333333333337F3333333333333397333333333333337FF333333333333C94333
        3333333333737F333333333333C9473333333333337373F3333333333CC94433
        3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
        333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
        33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
        4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
        443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
        444377733337F333777FC3333339333337437333333733333373}
      NumGlyphs = 2
      OnClick = SpeedButton3Click
    end
    object SpeedButton2: TSpeedButton
      Left = 999
      Top = 377
      Width = 22
      Height = 83
      Cursor = crHandPoint
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FF3333333333333447333333333333377FFF33333333333744473333333
        333337773FF3333333333444447333333333373F773FF3333333334444447333
        33333373F3773FF3333333744444447333333337F333773FF333333444444444
        733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
        999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
        33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
        333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
        33333777333333333333CC333333333333337733333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object SpeedButton6: TSpeedButton
      Left = 128
      Top = 3
      Width = 83
      Height = 22
      Cursor = crHandPoint
      Caption = #36820#22238
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
        993337777F777F3377F3393999707333993337F77737333337FF993399933333
        399377F3777FF333377F993339903333399377F33737FF33377F993333707333
        399377F333377FF3377F993333101933399377F333777FFF377F993333000993
        399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
        99333773FF777F777733339993707339933333773FF7FFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
      OnClick = SpeedButton6Click
    end
    object Label1: TLabel
      Left = 8
      Top = 3
      Width = 49
      Height = 13
      Caption = 'MoveStep'
    end
    object SpeedButton5: TSpeedButton
      Left = 227
      Top = 8
      Width = 118
      Height = 23
      Cursor = crHandPoint
      Caption = #24674#22797#21407#22987#20301#32622
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
        305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
        005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
        B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
        B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
        B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
        B0557777FF577777F7F500000E055550805577777F7555575755500000555555
        05555777775555557F5555000555555505555577755555557555}
      NumGlyphs = 2
      Visible = False
      OnClick = SpeedButton5Click
    end
    object Label3: TLabel
      Left = 195
      Top = 40
      Width = 38
      Height = 13
      AutoSize = False
      Caption = #19978#31227
    end
    object Label2: TLabel
      Left = 11
      Top = 40
      Width = 46
      Height = 13
      AutoSize = False
      Caption = #24038#31227
    end
    object Label4: TLabel
      Left = 43
      Top = 64
      Width = 38
      Height = 13
      AutoSize = False
      Caption = #25511#20214'X'
    end
    object Label5: TLabel
      Left = 219
      Top = 63
      Width = 38
      Height = 13
      AutoSize = False
      Caption = #25511#20214'Y'
    end
    object SpeedButton3: TSpeedButton
      Left = 462
      Top = 3
      Width = 83
      Height = 22
      Cursor = crHandPoint
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
        337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
        4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
        44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
        473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
        7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
        33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
        33333333333737F333333333333C943333333333333737333333333333339733
        3333333333337F33333333333333933333333333333373333333}
      NumGlyphs = 2
      OnClick = SpeedButton4Click
    end
    object Edit1: TEdit
      Left = 64
      Top = 3
      Width = 42
      Height = 21
      TabOrder = 0
      Text = '0'
      OnKeyUp = Edit1KeyUp
    end
    object UpDown1: TUpDown
      Left = 106
      Top = 3
      Width = 16
      Height = 21
      Associate = Edit1
      Max = 300
      TabOrder = 1
      OnClick = UpDown1Click
    end
    object Button1: TButton
      Left = 360
      Top = 8
      Width = 75
      Height = 25
      Caption = #21021#22987#21270
      TabOrder = 2
      Visible = False
      OnClick = Button1Click
    end
    object Edit3: TEdit
      Left = 235
      Top = 40
      Width = 121
      Height = 21
      TabOrder = 3
      Text = 'Edit3'
      Visible = False
    end
    object Edit2: TEdit
      Left = 63
      Top = 40
      Width = 121
      Height = 21
      TabOrder = 4
      Text = 'Edit2'
      Visible = False
    end
    object Edit4: TEdit
      Left = 83
      Top = 64
      Width = 121
      Height = 21
      TabOrder = 5
      Text = 'Edit3'
      Visible = False
    end
    object Edit5: TEdit
      Left = 267
      Top = 63
      Width = 121
      Height = 21
      TabOrder = 6
      Text = 'Edit3'
      Visible = False
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 656
    Top = 24
  end
  object PopupMenu1: TPopupMenu
    Left = 144
    Top = 120
    object N1: TMenuItem
      Caption = #28155#21152#26032#36947#21475
      OnClick = N1Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object N6: TMenuItem
      Caption = #26174#31034#23436#25972#22320#22270
      OnClick = N6Click
    end
    object N7: TMenuItem
      Caption = #20165#26174#31034#38081#36335#22270
      OnClick = N7Click
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 104
    Top = 176
    object N2: TMenuItem
      Caption = #31227#21160#20301#32622
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Caption = #21024#38500#36947#21475
      OnClick = N4Click
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object N9: TMenuItem
      Caption = #37325#21629#21517#36947#21475
      OnClick = N9Click
    end
    object N10: TMenuItem
      Caption = #25913#21464#36947#21475#33050#26631#20301#32622
      OnClick = N10Click
    end
  end
end