📄 mainform.dfm
字号:
Flat = True
OnClick = butOldRemoveClick
end
object butNewEdit: TSpeedButton
Left = 368
Top = 40
Width = 49
Height = 25
Caption = '&Edit'
Flat = True
OnClick = butNewEditClick
end
object Label4: TLabel
Left = 16
Top = 200
Width = 176
Height = 13
Caption = 'Patch generation configuration'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 32
Top = 224
Width = 48
Height = 13
Hint = 'Smaller gives smaller patch files, but decreased speed'
Caption = 'Block size'
end
object Label7: TLabel
Left = 232
Top = 224
Width = 61
Height = 13
Caption = 'Block divider'
Visible = False
end
object txtStartBlockSize: TLabel
Left = 136
Top = 224
Width = 65
Height = 17
Alignment = taCenter
AutoSize = False
end
object txtNew: TEdit
Left = 32
Top = 42
Width = 321
Height = 21
ReadOnly = True
TabOrder = 0
end
object lstOld: TListBox
Left = 32
Top = 96
Width = 321
Height = 89
ItemHeight = 13
TabOrder = 1
end
object tbBlockSize: TTrackBar
Left = 200
Top = 224
Width = 161
Height = 25
Max = 12
Min = 4
Position = 6
TabOrder = 2
OnChange = tbBlockSizeChange
end
end
object lstNew: TVirtualStringTree
Left = 24
Top = 56
Width = 193
Height = 265
Header.AutoSizeIndex = 0
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'MS Sans Serif'
Header.Font.Style = []
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag]
HintAnimation = hatNone
Indent = 0
TabOrder = 1
TreeOptions.PaintOptions = [toHotTrack, toShowBackground, toShowButtons, toShowDropmark, toShowRoot, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect]
OnChange = lstNewChange
OnGetText = lstNewGetText
Columns = <>
end
object barCool: TCoolBar
Left = 0
Top = 0
Width = 689
Height = 44
AutoSize = True
Bands = <
item
BorderStyle = bsSingle
Control = barTool
ImageIndex = -1
MinHeight = 36
Width = 689
end>
EdgeBorders = [ebTop, ebBottom]
object barTool: TToolBar
Left = 9
Top = 2
Width = 676
Height = 36
AutoSize = True
ButtonHeight = 36
ButtonWidth = 90
Caption = 'barTool'
EdgeBorders = []
Flat = True
Images = IL
ShowCaptions = True
TabOrder = 0
object toolNew: TToolButton
Left = 0
Top = 0
Caption = '&New'
ImageIndex = 0
MenuItem = mnuNew
end
object toolOpen: TToolButton
Left = 90
Top = 0
Caption = '&Open'
ImageIndex = 1
MenuItem = mnuOpen
end
object toolSave: TToolButton
Left = 180
Top = 0
Caption = '&Save'
ImageIndex = 2
MenuItem = mnuSave
end
object ToolButton1: TToolButton
Left = 270
Top = 0
Width = 8
Caption = 'ToolButton1'
ImageIndex = 7
Style = tbsSeparator
end
object toolGenGo: TToolButton
Left = 278
Top = 0
Caption = '&Generate'
ImageIndex = 3
MenuItem = mnuGenGo
end
object toolCreateEXE: TToolButton
Left = 368
Top = 0
Caption = 'Create &EXE'
ImageIndex = 5
MenuItem = mnuCreateEXE
end
object toolCreateDLL: TToolButton
Left = 458
Top = 0
Caption = 'Create &DLL'
ImageIndex = 6
MenuItem = mnuCreateDLL
end
object toolCreatePAT: TToolButton
Left = 548
Top = 0
Caption = 'Create &patch file'
ImageIndex = 7
MenuItem = mnuCreatePAT
end
end
end
object chkOutputWait: TCheckBox
Left = 232
Top = 336
Width = 305
Height = 17
Caption = 'Leave console window open after generating patches'
TabOrder = 3
OnClick = chkOutputWaitClick
end
object chkOptimal: TCheckBox
Left = 232
Top = 360
Width = 441
Height = 17
Caption =
'"Optimal" patch generation (can be very slow when generating pat' +
'ches for big files)'
TabOrder = 4
OnClick = chkOptimalClick
end
object MainMenu: TMainMenu
Images = IL
Left = 160
Top = 328
object mnuFile: TMenuItem
Caption = '&File'
object mnuNew: TMenuItem
Caption = '&New'
ImageIndex = 0
ShortCut = 16462
OnClick = mnuNewClick
end
object mnuOpen: TMenuItem
Caption = '&Open'
ImageIndex = 1
ShortCut = 16463
OnClick = mnuOpenClick
end
object mnuSave: TMenuItem
Caption = '&Save'
ImageIndex = 2
ShortCut = 16467
OnClick = mnuSaveClick
end
object mnuSaveas: TMenuItem
Caption = 'Save &as...'
OnClick = mnuSaveasClick
end
object N1: TMenuItem
Caption = '-'
end
object mnuExit: TMenuItem
Caption = 'E&xit'
OnClick = mnuExitClick
end
end
object mnuAction: TMenuItem
Caption = '&Action'
object mnuClearcachedpatches: TMenuItem
Caption = 'Empty &cache'
ImageIndex = 4
OnClick = mnuClearcachedpatchesClick
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -