dllform.dfm

千年2的脱机源代码

object DllForm1: TDllForm1
  Left = 436
  Top = 168
  BorderIcons = [biSystemMenu]
  BorderStyle = bsToolWindow
  Caption = #25105#30340#37326#34542#22899#21451' 2.b'
  ClientHeight = 180
  ClientWidth = 185
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 185
    Height = 180
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #22522#26412
      object Memo1: TMemo
        Left = 0
        Top = 0
        Width = 177
        Height = 153
        Lines.Strings = (
          'http://kissyll.126.com'
          'http://xiaotutu.go.nease.net')
        TabOrder = 0
      end
    end
    object TabSheetGain: TTabSheet
      Caption = #25342#21462
      ImageIndex = 1
      object LabelDrop: TLabel
        Left = 0
        Top = 16
        Width = 81
        Height = 16
        Caption = #25481#33853#29289#21697'           '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelGain: TLabel
        Left = 88
        Top = 16
        Width = 84
        Height = 16
        Caption = #25342#21462#29289#21697'            '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object MemoDrop: TMemo
        Left = 0
        Top = 32
        Width = 89
        Height = 121
        Ctl3D = False
        Lines.Strings = (
          #25481#33853#29289#21697)
        ParentCtl3D = False
        TabOrder = 0
      end
      object MemoGain: TMemo
        Left = 88
        Top = 32
        Width = 89
        Height = 121
        Ctl3D = False
        Lines.Strings = (
          #25342#21462#29289#21697)
        ParentCtl3D = False
        TabOrder = 1
      end
      object CheckBoxCollectGoods: TCheckBox
        Left = 0
        Top = 0
        Width = 73
        Height = 17
        Caption = #33258#21160#25342#21462
        Checked = True
        State = cbChecked
        TabOrder = 2
      end
    end
    object TabSheetEat: TTabSheet
      Caption = #21507#33647
      ImageIndex = 2
      object LabelYuan: TLabel
        Left = 0
        Top = 32
        Width = 33
        Height = 16
        Caption = #20803#27668'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelNei: TLabel
        Left = 0
        Top = 56
        Width = 30
        Height = 16
        Caption = #20869#21151'  '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelWai: TLabel
        Left = 0
        Top = 80
        Width = 30
        Height = 16
        Caption = #22806#21151'  '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelWu: TLabel
        Left = 0
        Top = 104
        Width = 30
        Height = 16
        Caption = #27494#21151'  '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelHuo: TLabel
        Left = 0
        Top = 128
        Width = 33
        Height = 16
        Caption = #27963#21147'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelTime: TLabel
        Left = 80
        Top = 8
        Width = 39
        Height = 16
        Caption = #38388#38548':    '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object ComboBoxYQ: TComboBox
        Left = 88
        Top = 32
        Width = 89
        Height = 21
        ItemHeight = 13
        TabOrder = 7
        OnChange = ComboBoxYQChange
        OnEnter = ComboBoxYQEnter
      end
      object EditYuan: TEdit
        Left = 40
        Top = 32
        Width = 41
        Height = 21
        TabOrder = 1
        Text = '1000'
      end
      object EditNei: TEdit
        Left = 40
        Top = 56
        Width = 41
        Height = 21
        TabOrder = 2
        Text = '1500'
      end
      object EditWai: TEdit
        Left = 40
        Top = 80
        Width = 41
        Height = 21
        TabOrder = 3
        Text = '1500'
      end
      object EditWu: TEdit
        Left = 40
        Top = 104
        Width = 41
        Height = 21
        TabOrder = 4
        Text = '1500'
      end
      object EditHuo: TEdit
        Left = 40
        Top = 128
        Width = 41
        Height = 21
        TabOrder = 5
        Text = '3000'
      end
      object EditTime: TEdit
        Left = 128
        Top = 8
        Width = 41
        Height = 21
        TabOrder = 6
        Text = '1000'
      end
      object CheckBoxEat: TCheckBox
        Left = 0
        Top = 8
        Width = 73
        Height = 17
        Caption = #33258#21160#21507#33647
        TabOrder = 0
        OnClick = CheckBoxEatClick
      end
      object ComboBoxNeiG: TComboBox
        Left = 88
        Top = 56
        Width = 89
        Height = 21
        ItemHeight = 13
        TabOrder = 8
        OnChange = ComboBoxNeiGChange
        OnEnter = ComboBoxNeiGEnter
      end
      object ComboBoxWaiG: TComboBox
        Left = 88
        Top = 80
        Width = 89
        Height = 21
        ItemHeight = 13
        TabOrder = 9
        OnChange = ComboBoxWaiGChange
        OnEnter = ComboBoxWaiGEnter
      end
      object ComboBoxWuG: TComboBox
        Left = 88
        Top = 104
        Width = 89
        Height = 21
        ItemHeight = 13
        TabOrder = 10
        OnChange = ComboBoxWuGChange
        OnEnter = ComboBoxWuGEnter
      end
      object ComboBoxHL: TComboBox
        Left = 88
        Top = 128
        Width = 89
        Height = 21
        ItemHeight = 13
        TabOrder = 11
        OnChange = ComboBoxHLChange
        OnEnter = ComboBoxHLEnter
      end
    end
  end
end