gamerecordunit.dfm

游戏克星江湖行游戏修改工具全部源码,功能很强的。

    object UndoButton: TToolButton
      Left = 226
      Top = 0
      Hint = #25764#38144#26368#21518#19968#27425#25805#20316
      Action = EditUndoCmd
      AutoSize = True
    end
    object ToolButton10: TToolButton
      Left = 253
      Top = 0
      Width = 12
      ImageIndex = 7
      Style = tbsSeparator
    end
    object FontName: TComboBox
      Left = 265
      Top = 0
      Width = 80
      Height = 24
      Hint = #36873#25321#23383#20307#21517#31216
      Ctl3D = False
      DropDownCount = 10
      ItemHeight = 16
      ParentCtl3D = False
      TabOrder = 0
      OnChange = FontNameChange
    end
    object ToolButton11: TToolButton
      Left = 345
      Top = 0
      Width = 8
      ImageIndex = 8
      Style = tbsSeparator
    end
    object FontSize: TEdit
      Left = 353
      Top = 0
      Width = 26
      Height = 24
      Hint = #36873#25321#23383#20307#22823#23567
      TabOrder = 1
      Text = '0'
      OnChange = FontSizeChange
    end
    object UpDown1: TUpDown
      Left = 379
      Top = 0
      Width = 15
      Height = 24
      Associate = FontSize
      TabOrder = 2
    end
    object ToolButton2: TToolButton
      Left = 394
      Top = 0
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 15
      Style = tbsSeparator
    end
    object FontButton: TToolButton
      Left = 402
      Top = 0
      Hint = #36873#25321#23383#20307
      AutoSize = True
      ImageIndex = 16
      OnClick = SelectFont
    end
    object BoldButton: TToolButton
      Left = 429
      Top = 0
      Hint = #31895#20307
      AutoSize = True
      ImageIndex = 8
      Style = tbsCheck
      OnClick = BoldButtonClick
    end
    object ItalicButton: TToolButton
      Left = 456
      Top = 0
      Hint = #26012#20307
      AutoSize = True
      ImageIndex = 9
      Style = tbsCheck
      OnClick = ItalicButtonClick
    end
    object UnderlineButton: TToolButton
      Left = 483
      Top = 0
      Hint = #19979#21010#32447
      AutoSize = True
      ImageIndex = 10
      Style = tbsCheck
      OnClick = UnderlineButtonClick
    end
    object ToolButton16: TToolButton
      Left = 510
      Top = 0
      Width = 8
      ImageIndex = 12
      Style = tbsDivider
    end
    object ColorBox1: TColorBox
      Left = 518
      Top = 1
      Width = 87
      Height = 22
      Hint = #36873#25321#39068#33394
      Style = [cbStandardColors, cbExtendedColors, cbIncludeNone, cbIncludeDefault, cbCustomColor, cbPrettyNames]
      ItemHeight = 16
      TabOrder = 3
      OnChange = ColorBox1Change
    end
    object ToolButton3: TToolButton
      Left = 605
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 15
      Style = tbsSeparator
    end
    object LeftAlign: TToolButton
      Left = 613
      Top = 0
      Hint = #24038#23545#40784
      AutoSize = True
      Grouped = True
      ImageIndex = 11
      Style = tbsCheck
      OnClick = AlignButtonClick
    end
    object CenterAlign: TToolButton
      Tag = 2
      Left = 640
      Top = 0
      Hint = #23621#20013
      AutoSize = True
      Grouped = True
      ImageIndex = 12
      Style = tbsCheck
      OnClick = AlignButtonClick
    end
    object RightAlign: TToolButton
      Tag = 1
      Left = 667
      Top = 0
      Hint = #21491#23545#40784
      AutoSize = True
      Grouped = True
      ImageIndex = 13
      Style = tbsCheck
      OnClick = AlignButtonClick
    end
    object ToolButton20: TToolButton
      Left = 694
      Top = 0
      Width = 8
      ImageIndex = 15
      Style = tbsDivider
    end
    object BulletsButton: TToolButton
      Left = 702
      Top = 0
      Hint = #39033#30446#31526#21495
      AutoSize = True
      ImageIndex = 14
      Style = tbsCheck
      OnClick = BulletsButtonClick
    end
  end
  object MainMenu: TMainMenu
    Images = ToolbarImages
    Left = 120
    Top = 68
    object FileMenu: TMenuItem
      Caption = '&File'
      object FileNewItem: TMenuItem
        Action = FileNewCmd
      end
      object FileOpenItem: TMenuItem
        Action = FileOpenCmd
      end
      object FileSaveItem: TMenuItem
        Action = FileSaveCmd
      end
      object FileSaveAsItem: TMenuItem
        Action = FileSaveAsCmd
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FilePrintItem: TMenuItem
        Action = FilePrintCmd
      end
    end
    object EditMenu: TMenuItem
      Caption = '&Edit'
      object EditUndoItem: TMenuItem
        Action = EditUndoCmd
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object EditCutItem: TMenuItem
        Action = EditCutCmd
      end
      object EditCopyItem: TMenuItem
        Action = EditCopyCmd
      end
      object EditPasteItem: TMenuItem
        Action = EditPasteCmd
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object miEditFont: TMenuItem
        Caption = '&Font...'
        OnClick = SelectFont
      end
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 'Rich Text Files (*.RTF)|*.RTF|Text Files (*.TXT)|*.TXT'
    Left = 56
    Top = 104
  end
  object SaveDialog: TSaveDialog
    Filter = 'Rich Text Files (*.RTF)|*.RTF|Text Files (*.TXT)|*.TXT'
    Left = 88
    Top = 104
  end
  object PrintDialog: TPrintDialog
    Left = 120
    Top = 104
  end
  object FontDialog1: TFontDialog
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    Left = 24
    Top = 104
  end
  object ToolbarImages: TImageList
    Left = 88
    Top = 68
    Bitmap = {
      494C010111001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000005000000001002000000000000050
      0000000000000000000000000000000000000000000000000000000000000000