uscreencatch.dfm

delphi课程设计的内容,包括源代码,文本的设计,菜单的设计等.

object ScreenCatchFrm: TScreenCatchFrm
  Left = 292
  Top = 128
  Width = 598
  Height = 494
  Caption = #23631#24149#25235#22270#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object TopPanel: TPanel
    Left = 0
    Top = 0
    Width = 590
    Height = 41
    Align = alTop
    TabOrder = 0
    object AllSreenPanel: TPanel
      Left = 15
      Top = 6
      Width = 80
      Height = 27
      BevelOuter = bvLowered
      TabOrder = 0
      object AllScreenSpeedBtn: TSpeedButton
        Left = 1
        Top = 2
        Width = 79
        Height = 23
        Caption = #20840#23631#25235#22270
        OnClick = AllScreenSpeedBtnClick
      end
    end
    object QuYueSreenPanel: TPanel
      Left = 110
      Top = 6
      Width = 80
      Height = 27
      BevelOuter = bvLowered
      TabOrder = 1
      object QuYueSreenSpeedBtn: TSpeedButton
        Left = 2
        Top = 2
        Width = 76
        Height = 23
        Caption = #21306#22495#25235#22270
        OnClick = QuYueSreenSpeedBtnClick
      end
    end
    object SavePanel: TPanel
      Left = 204
      Top = 6
      Width = 80
      Height = 27
      BevelOuter = bvLowered
      TabOrder = 2
      object SaveSpeedBtn: TSpeedButton
        Left = 2
        Top = 2
        Width = 76
        Height = 23
        Caption = #20445#23384#22270#24418
        OnClick = SaveSpeedBtnClick
      end
    end
    object ExitPanel: TPanel
      Left = 488
      Top = 6
      Width = 80
      Height = 27
      BevelOuter = bvLowered
      TabOrder = 3
      object ExitSpeedBtn: TSpeedButton
        Left = 2
        Top = 2
        Width = 76
        Height = 23
        Caption = #36864#20986
        OnClick = ExitSpeedBtnClick
      end
    end
    object OpenDlgPanel: TPanel
      Left = 300
      Top = 6
      Width = 80
      Height = 27
      BevelOuter = bvLowered
      TabOrder = 4
      object OpenDlgSpeedBtn: TSpeedButton
        Left = 2
        Top = 2
        Width = 76
        Height = 23
        Caption = 'XP  '#31383#20307
      end
    end
    object AutoScreenPanel: TPanel
      Left = 394
      Top = 6
      Width = 80
      Height = 27
      BevelOuter = bvLowered
      TabOrder = 5
      object AutoScreenSpeedBtn: TSpeedButton
        Left = 2
        Top = 2
        Width = 76
        Height = 23
        Caption = #33258#21160#25235#22270
        OnClick = AutoScreenSpeedBtnClick
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 441
    Width = 590
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Text = #20992#21073#22914#26790#36719#20214#21019#20316#23460'[Delphi'#32534#31243#39551#31449']http://www.delphidak.com'
        Width = 420
      end
      item
        Alignment = taCenter
        Text = '2003-04-30 12:00:00'
        Width = 90
      end>
  end
  object ScrollBox: TScrollBox
    Left = 0
    Top = 41
    Width = 590
    Height = 400
    Align = alClient
    TabOrder = 2
    object ShowImage: TImage
      Left = 13
      Top = 30
      Width = 562
      Height = 342
      PopupMenu = PopupMenu
      Transparent = True
    end
  end
  object MainTimer: TTimer
    Enabled = False
    Interval = 500
    OnTimer = MainTimerTimer
    Left = 144
    Top = 80
  end
  object SaveDialog: TSavePictureDialog
    Left = 176
    Top = 80
  end
  object OpenDialog: TOpenDialog
    FilterIndex = 0
    InitialDir = 'Skin'
    Left = 208
    Top = 80
  end
  object SystemTimer: TTimer
    OnTimer = SystemTimerTimer
    Left = 112
    Top = 80
  end
  object PopupMenu: TPopupMenu
    AutoHotkeys = maManual
    Left = 240
    Top = 80
    object N1: TMenuItem
      Caption = #20840#23631#25130#22270
      OnClick = AllScreenSpeedBtnClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object N2: TMenuItem
      Caption = #21306#22495#25130#22270
      OnClick = QuYueSreenSpeedBtnClick
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = #20445#23384#22270#29255
      OnClick = SaveSpeedBtnClick
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object pm_AutoScreen: TMenuItem
      AutoCheck = True
      Caption = #24320#26426#33258#21160#36816#34892
      OnClick = pm_AutoScreenClick
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Caption = #36864#20986#31243#24207
      OnClick = ExitSpeedBtnClick
    end
  end
end