pingmu.dfm

这是一个非常好的教师和学生沟通用的电子教室!

object PingMuf: TPingMuf
  Left = 268
  Top = 101
  BorderStyle = bsNone
  Caption = '屏幕监看'
  ClientHeight = 247
  ClientWidth = 364
  Color = clBlack
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  PopupMenu = LMDPopupMenu1
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 364
    Height = 247
    Align = alClient
    Stretch = True
  end
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 68
    Height = 16
    BiDiMode = bdLeftToRight
    Caption = '屏幕监看'
    Color = clBlack
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = [fsBold]
    ParentBiDiMode = False
    ParentColor = False
    ParentFont = False
    Transparent = True
    OnMouseDown = Label1MouseDown
    OnMouseMove = Label1MouseMove
    OnMouseUp = Label1MouseUp
  end
  object lzrw11: Tlzrw1
    Left = 280
    Top = 84
    Width = 73
    Height = 25
    TabOrder = 0
    Visible = False
  end
  object PopupMenu1: TPopupMenu
    Left = 168
    Top = 64
    object N5: TMenuItem
      Caption = '下一帧(&N)'
      ShortCut = 112
      OnClick = N5Click
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object N8: TMenuItem
      Caption = '下一位学生(&T)'
      ShortCut = 113
      OnClick = N8Click
    end
    object P1: TMenuItem
      Caption = '上一位学生(&R)'
      ShortCut = 114
      OnClick = P1Click
    end
    object N10: TMenuItem
      Caption = '定时循环监看所有学生(&D)'
      OnClick = N10Click
    end
    object D1: TMenuItem
      Caption = '停止循环监看所有学生(&O)'
      OnClick = D1Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N7: TMenuItem
      Caption = '保存图片(&P)'
      OnClick = N7Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object N1: TMenuItem
      Caption = '连续监看此学生(&G)'
      ShortCut = 115
      OnClick = N1Click
    end
    object S1: TMenuItem
      Caption = '停止连续监看(&S)'
      ShortCut = 116
      OnClick = S1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = '关闭窗口(&X)'
      OnClick = N3Click
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 48
    Top = 104
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer2Timer
    Left = 80
    Top = 104
  end
  object Timer3: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer3Timer
    Left = 88
    Top = 72
  end
  object SavePictureDialog1: TSavePictureDialog
    DefaultExt = 'bmp'
    Filter = 'Bitmaps (*.bmp)|*.bmp'
    Left = 200
    Top = 64
  end
  object Timer4: TTimer
    Enabled = False
    OnTimer = Timer4Timer
    Left = 144
    Top = 24
  end
  object LMDPopupMenu1: TLMDPopupMenu
    OwnerDraw = True
    Layout.Alignment = agBottomCenter
    Layout.AlignText2Glyph = taTop
    Layout.OffsetY = -2
    Bevel.Mode = bmCustom
    Caption = '屏幕监看'
    FillObject.Style = sfGradient
    FillObject.Gradient.Color = 33023
    FillObject.Gradient.ColorCount = 64
    FillObject.Gradient.Style = gstBottomLeft
    FillObject.Gradient.EndColor = 11254517
    FillObject.Gradient.PaletteRealize = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -21
    Font.Name = '宋体'
    Font.Style = []
    FontFX.Angle = 90
    Left = 136
    Top = 64
    object N16: TMenuItem
      Caption = '保存屏幕'
      OnClick = N7Click
    end
    object N11: TMenuItem
      Caption = '下一帧'
      OnClick = N5Click
    end
    object N23: TMenuItem
      Caption = '-'
    end
    object N12: TMenuItem
      Caption = '下一位学生'
      OnClick = N8Click
    end
    object N13: TMenuItem
      Caption = '上一位学生'
      OnClick = P1Click
    end
    object N20: TMenuItem
      Caption = '-'
    end
    object N14: TMenuItem
      Caption = '循环监看所有学生'
      OnClick = N10Click
    end
    object N15: TMenuItem
      Caption = '停止循环监看'
      OnClick = D1Click
    end
    object N21: TMenuItem
      Caption = '-'
    end
    object N17: TMenuItem
      Caption = '连续监看此学生'
      OnClick = N1Click
    end
    object N18: TMenuItem
      Caption = '停止连续监看'
      OnClick = S1Click
    end
    object N22: TMenuItem
      Caption = '-'
    end
    object N19: TMenuItem
      Caption = '关闭窗口'
      OnClick = N3Click
    end
  end
end