gamerecordunit.dfm

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

object GameRecordForm: TGameRecordForm
  Left = 181
  Top = 158
  Width = 809
  Height = 464
  ActiveControl = Editor
  Caption = 'Rich Edit Control'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000088
    88888888888888888888888888000444444444444444444444444444480004FF
    FFFFFFFFFFFFFFFFFFFFFFFF480004F000000FFFFFFFFFFFFFFFFFFF480004F0
    CCCC08000000FFFFFFFFFFFF480004F0CCCC0F09990FFFFFFFFFFFFF480004F0
    CCC00009990FFF00000000FF480004F0CC0BBB0890FFFFFFFFFFFFFF480004F0
    08BBBBB090FFF000000000FF480004FFF0BBBBB80FFFFFFFFFFFFFFF480004FF
    F0BBBBB0FFF00000000000FF480004FFFF0BBB0FFFFFFFFFFFFFFFFF480004FF
    FFF000FFF00000F0000000FF480004FFFFFFFFFFFFFFFFFFFFFFFFFF480004F0
    0000F000000000000F0000FF480004FFFFFFFFFFFFFFFFFFFFFFFFFF480004F0
    000000000F000000000000FF480004FFFFFFFFFFFFFFFFFFFFFFFFFF480004FF
    FFFFFFFFFFFFFFFFFFFFFFFF480004F007FF700F000000FFF000007F480004F7
    00FF700F0087700F0008700F480004FF0000000F008F700F008FFFFF480004FF
    700F007F7087700F007FFFFF480004FFF00700FFF00000FF008FFFFF480004FF
    FF0000FFF007700F7007FFFF480004FFFF0000FFF007700FF000880F480004FF
    FFF007FFF700000FFF00000F480004FFFFFFFFFFFFFFFFFFFFFFFFFF40000444
    444444444444444444444444400000000000000000000000000000000000FFFF
    FFFFFFFFFFFFC000000380000003800000038000000380000003800000038000
    0003800000038000000380000003800000038000000380000003800000038000
    0003800000038000000380000003800000038000000380000003800000038000
    0003800000038000000380000003800000038000000780000007FFFFFFFF}
  OldCreateOrder = True
  Position = poMainFormCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnPaint = FormPaint
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Ruler: TPanel
    Left = 0
    Top = 26
    Width = 801
    Height = 26
    Align = alTop
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Caption = 'asdf'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnResize = RulerResize
    object FirstInd: TLabel
      Left = 2
      Top = 2
      Width = 10
      Height = 9
      AutoSize = False
      DragCursor = crArrow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Wingdings'
      Font.Style = []
      ParentFont = False
      OnMouseDown = RulerItemMouseDown
      OnMouseMove = RulerItemMouseMove
      OnMouseUp = FirstIndMouseUp
    end
    object LeftInd: TLabel
      Left = 2
      Top = 12
      Width = 10
      Height = 11
      AutoSize = False
      DragCursor = crArrow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Wingdings'
      Font.Style = []
      ParentFont = False
      OnMouseDown = RulerItemMouseDown
      OnMouseMove = RulerItemMouseMove
      OnMouseUp = LeftIndMouseUp
    end
    object RulerLine: TBevel
      Left = 4
      Top = 12
      Width = 579
      Height = 2
      Shape = bsTopLine
    end
    object RightInd: TLabel
      Left = 575
      Top = 14
      Width = 11
      Height = 12
      DragCursor = crArrow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Wingdings'
      Font.Style = []
      ParentFont = False
      OnMouseDown = RulerItemMouseDown
      OnMouseMove = RulerItemMouseMove
      OnMouseUp = RightIndMouseUp
    end
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 801
      Height = 2
      Align = alTop
      Shape = bsTopLine
    end
  end
  object Editor: TRichEdit
    Left = 0
    Top = 52
    Width = 801
    Height = 366
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 1
    OnChange = RichEditChange
    OnSelectionChange = SelectionChange
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 418
    Width = 801
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Alignment = taCenter
        Width = 100
      end
      item
        Width = 100
      end>
  end
  object StandardToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 801
    Height = 26
    AutoSize = True
    ButtonHeight = 24
    ButtonWidth = 27
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Images = ToolbarImages
    Indent = 4
    List = True
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    Wrapable = False
    object ToolButton1: TToolButton
      Left = 4
      Top = 0
      Hint = #26032#24314#25991#20214
      Action = FileNewCmd
      AutoSize = True
    end
    object OpenButton: TToolButton
      Left = 31
      Top = 0
      Hint = #25171#24320#19968#20010#25991#20214
      Action = FileOpenCmd
      AutoSize = True
    end
    object SaveButton: TToolButton
      Left = 58
      Top = 0
      Hint = #20445#23384#24403#21069#25991#20214
      Action = FileSaveCmd
      AutoSize = True
    end
    object SaveAsButton: TToolButton
      Left = 85
      Top = 0
      Hint = #24403#21069#25991#20214#21478#23384#20026'...'
      AutoSize = True
      Caption = 'SaveAsButton'
      ImageIndex = 15
      OnClick = FileSaveAs
    end
    object PrintButton: TToolButton
      Left = 112
      Top = 0
      Hint = #25171#21360#24403#21069#25991#20214
      Action = FilePrintCmd
      AutoSize = True
    end
    object ToolButton5: TToolButton
      Left = 139
      Top = 0
      Width = 6
      ImageIndex = 3
      Style = tbsDivider
    end
    object CutButton: TToolButton
      Left = 145
      Top = 0
      Hint = #21024#38500#36873#25321#30340#20869#23481
      Action = EditCutCmd
      AutoSize = True
    end
    object CopyButton: TToolButton
      Left = 172
      Top = 0
      Hint = #22797#21046
      Action = EditCopyCmd
      AutoSize = True
    end
    object PasteButton: TToolButton
      Left = 199
      Top = 0
      Hint = #31896#36148
      Action = EditPasteCmd
      AutoSize = True
    end