main.dfm

jssm的原代码

object MainForm: TMainForm
  Left = 191
  Top = 105
  Width = 400
  Height = 520
  ActiveControl = pnlImage
  Caption = 'Jssm - '#30707#22120'/'#39764#21147#22270#29255#21160#30011#25552#21462#22120
  Color = clBtnFace
  Constraints.MaxHeight = 520
  Constraints.MaxWidth = 400
  Constraints.MinHeight = 520
  Constraints.MinWidth = 400
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object pnlImage: TPanel
    Left = 0
    Top = 170
    Width = 392
    Height = 301
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Color = clBlack
    FullRepaint = False
    TabOrder = 1
    object SAImage: TImage
      Left = 0
      Top = 0
      Width = 388
      Height = 297
      Align = alClient
    end
  end
  object ScrollBox: TScrollBox
    Left = 0
    Top = 30
    Width = 392
    Height = 110
    HorzScrollBar.Tracking = True
    VertScrollBar.Visible = False
    Align = alTop
    TabOrder = 2
    object FrameImage: TImage
      Left = 3
      Top = 3
      Width = 10
      Height = 84
      Cursor = crHandPoint
      OnMouseDown = FrameImageMouseDown
    end
  end
  object pnlCtrl: TPanel
    Left = 0
    Top = 140
    Width = 392
    Height = 30
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    BorderWidth = 2
    TabOrder = 0
    object ToolBar: TToolBar
      Left = 2
      Top = 2
      Width = 388
      Height = 26
      Caption = 'ToolBar'
      EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
      Flat = True
      Images = ImageList
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Wrapable = False
      object lblChar: TLabel
        Left = 0
        Top = 0
        Width = 36
        Height = 22
        Caption = ' '#35282#33394' '
        Layout = tlCenter
      end
      object spnID: TSpinEdit
        Left = 36
        Top = 0
        Width = 60
        Height = 22
        MaxLength = 5
        MaxValue = 0
        MinValue = 0
        TabOrder = 0
        Value = 0
        OnChange = OnSelectEvent
      end
      object lblAction: TLabel
        Left = 96
        Top = 0
        Width = 36
        Height = 22
        Caption = ' '#21160#20316' '
        Layout = tlCenter
      end
      object spnDirect: TSpinEdit
        Left = 132
        Top = 0
        Width = 50
        Height = 22
        MaxLength = 3
        MaxValue = 0
        MinValue = 1
        TabOrder = 1
        Value = 0
        OnChange = OnSelectEvent
      end
      object ToolButton3: TToolButton
        Left = 182
        Top = 0
        Action = ActPrior
      end
      object ToolButton4: TToolButton
        Left = 205
        Top = 0
        Action = ActNext
      end
      object ToolButton5: TToolButton
        Left = 228
        Top = 0
        Width = 8
        Caption = 'ToolButton5'
        ImageIndex = 3
        Style = tbsDivider
      end
      object lblTimer: TLabel
        Left = 236
        Top = 0
        Width = 36
        Height = 22
        Caption = ' '#26102#38388' '
        Layout = tlCenter
      end
      object spnTimer: TSpinEdit
        Left = 272
        Top = 0
        Width = 50
        Height = 22
        Increment = 5
        MaxLength = 3
        MaxValue = 99
        MinValue = 1
        TabOrder = 2
        Value = 15
        OnChange = spnTimerChange
      end
      object ToolButton6: TToolButton
        Left = 322
        Top = 0
        Action = ActPlay
      end
      object ToolButton7: TToolButton
        Left = 345
        Top = 0
        Action = ActStop
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 471
    Width = 392
    Height = 22
    Panels = <
      item
        Width = 238
      end
      item
        Width = 50
      end>
  end
  object pnlMenu: TPanel
    Left = 0
    Top = 0
    Width = 392
    Height = 30
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    BorderWidth = 2
    TabOrder = 3
    object MainToolBar: TToolBar
      Left = 2
      Top = 2
      Width = 388
      Height = 26
      ButtonHeight = 20
      ButtonWidth = 55
      EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
      Flat = True
      ShowCaptions = True
      TabOrder = 0
      object tbnFile: TToolButton
        Left = 0
        Top = 0
        Caption = #25991#20214'(&F)'
        DropdownMenu = FileMenu
        ImageIndex = 0
      end
      object ToolButton2: TToolButton
        Left = 55
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object cboGameSelector: TComboBox
        Left = 63
        Top = 0
        Width = 150
        Height = 20
        Style = csDropDownList
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 12
        ItemIndex = 0
        TabOrder = 0
        Text = '-- '#35831#36873#25321#28216#25103' --'
        OnChange = cboGameSelectorChange
        Items.Strings = (
          '-- '#35831#36873#25321#28216#25103' --'
          #30707#22120#26102#20195
          #39764#21147#23453#36125)
      end
    end
  end
  object ImageList: TImageList
    Left = 256
    Top = 48
    Bitmap = {
      494C010107000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000