frommain.dfm

这是从不同语言来实现操作系统交通灯的调度问题

object frmmain: Tfrmmain
  Left = 210
  Top = 137
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #20132#36890#28783#31649#21046
  ClientHeight = 446
  ClientWidth = 632
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object imgMain: TImage
    Left = 12
    Top = 14
    Width = 400
    Height = 400
  end
  object GroupBox1: TGroupBox
    Left = 430
    Top = 8
    Width = 185
    Height = 73
    Caption = #32418#32511#28783#26102#38388#35774#32622'  '#65288#21333#20301#65306#31186#65289
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 60
      Height = 12
      Caption = #32511#28783#26102#38388#65306
    end
    object Label3: TLabel
      Left = 16
      Top = 50
      Width = 60
      Height = 12
      Caption = #40644#28783#26102#38388#65306
    end
    object edtGreen: TEdit
      Left = 84
      Top = 20
      Width = 51
      Height = 20
      TabOrder = 0
      Text = '5'
    end
    object edtYellow: TEdit
      Left = 84
      Top = 46
      Width = 51
      Height = 20
      TabOrder = 1
      Text = '1'
    end
  end
  object GroupBox2: TGroupBox
    Left = 430
    Top = 88
    Width = 185
    Height = 137
    Caption = #21021#22987#36710#36742#25968'  '#65288#21333#20301#65306#36742#65289
    TabOrder = 1
    object Label2: TLabel
      Left = 16
      Top = 20
      Width = 60
      Height = 12
      Caption = #20174#35199#21521#19996#65306
    end
    object Label4: TLabel
      Left = 16
      Top = 50
      Width = 60
      Height = 12
      Caption = #20174#21271#21521#21335#65306
    end
    object Label5: TLabel
      Left = 16
      Top = 80
      Width = 60
      Height = 12
      Caption = #20174#19996#21521#35199#65306
    end
    object Label6: TLabel
      Left = 16
      Top = 110
      Width = 60
      Height = 12
      Caption = #20174#21335#21521#21271#65306
    end
    object edtD1: TEdit
      Left = 84
      Top = 20
      Width = 51
      Height = 20
      TabOrder = 0
      Text = '3'
    end
    object edtD2: TEdit
      Left = 84
      Top = 50
      Width = 51
      Height = 20
      TabOrder = 1
      Text = '3'
    end
    object edtD3: TEdit
      Left = 84
      Top = 80
      Width = 51
      Height = 20
      TabOrder = 2
      Text = '3'
    end
    object edtD4: TEdit
      Left = 84
      Top = 110
      Width = 51
      Height = 20
      TabOrder = 3
      Text = '3'
    end
  end
  object GroupBox3: TGroupBox
    Left = 430
    Top = 350
    Width = 185
    Height = 95
    Caption = #27169#25311#24320#20851
    TabOrder = 2
    object btnStart: TButton
      Left = 10
      Top = 14
      Width = 45
      Height = 75
      Caption = #24320#22987
      TabOrder = 0
      OnClick = btnStartClick
    end
    object btnPause: TButton
      Left = 70
      Top = 14
      Width = 45
      Height = 75
      Caption = #26242#20572
      Enabled = False
      TabOrder = 1
      Visible = False
    end
    object btnFinish: TButton
      Left = 130
      Top = 14
      Width = 45
      Height = 75
      Caption = #20572#27490
      Enabled = False
      TabOrder = 2
      OnClick = btnFinishClick
    end
  end
  object GroupBox4: TGroupBox
    Left = 430
    Top = 230
    Width = 185
    Height = 117
    Caption = #36710#36742#23646#24615
    TabOrder = 3
    object Label7: TLabel
      Left = 16
      Top = 22
      Width = 84
      Height = 12
      Caption = #21333#39033#26368#22823#36710#25968#65306
    end
    object Label8: TLabel
      Left = 16
      Top = 60
      Width = 60
      Height = 12
      Caption = #36710#36742#36895#24230#65306
    end
    object lblMax: TLabel
      Left = 24
      Top = 38
      Width = 50
      Height = 10
      Caption = '('#19981#22810#20110#20010')'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -10
      Font.Name = #23435#20307
      Font.Style = [fsItalic]
      ParentFont = False
    end
    object Label9: TLabel
      Left = 16
      Top = 90
      Width = 96
      Height = 12
      Caption = #27599#31186#36710#36742#29983#25104#29575#65306
    end
    object Label10: TLabel
      Left = 168
      Top = 94
      Width = 12
      Height = 12
      Caption = '% '
    end
    object edtMax: TEdit
      Left = 114
      Top = 24
      Width = 51
      Height = 20
      TabOrder = 0
      Text = '10'
    end
    object edtSpeed: TEdit
      Left = 114
      Top = 60
      Width = 51
      Height = 20
      TabOrder = 1
      Text = '30'
    end
    object edtProp: TEdit
      Left = 114
      Top = 90
      Width = 51
      Height = 20
      TabOrder = 2
      Text = '50'
    end
  end
  object timerMain: TTimer
    OnTimer = timerMainTimer
    Left = 2
    Top = 2
  end
end