penmode_pas.~dfm

delphi6.0电子寻更源程序,用来计算保安有无查抄

object penmode: Tpenmode
  Left = 285
  Top = 215
  Width = 221
  Height = 146
  BorderIcons = [biSystemMenu]
  Caption = '設置巡更棒類型'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object GroupBox1: TGroupBox
    Left = 8
    Top = 6
    Width = 204
    Height = 74
    BiDiMode = bdRightToLeft
    Caption = '巡更棒類型'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    TabOrder = 0
    object name2: TRadioButton
      Left = 37
      Top = 44
      Width = 132
      Height = 17
      Caption = '感應式巡更棒'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnKeyDown = name2KeyDown
    end
    object name1: TRadioButton
      Left = 37
      Top = 19
      Width = 124
      Height = 17
      Caption = '接觸式巡更棒'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnKeyDown = name1KeyDown
    end
  end
  object BitBtn1: TBitBtn
    Left = 55
    Top = 90
    Width = 68
    Height = 23
    Cursor = crHandPoint
    BiDiMode = bdLeftToRight
    Caption = '確認(&Y)'
    Default = True
    DragCursor = crHandPoint
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ModalResult = 8
    ParentBiDiMode = False
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 143
    Top = 90
    Width = 68
    Height = 23
    Cursor = crHandPoint
    Cancel = True
    Caption = '取消(&X)'
    DragCursor = crHandPoint
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ModalResult = 7
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn2Click
    NumGlyphs = 2
  end
end