Guide To Cracking 2002/Guide_to_Cracking_2002.iso/Programming/yPP-B-SRC.ZIP/Unit1.dfm

Text File | 2000-08-31 | 6.4 KB | 271 lines

object Form1: TForm1
  Left = 206
  Top = 229
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '[ yoda'#39's Process Patcher - BETA ]'
  ClientHeight = 262
  ClientWidth = 581
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 449
    Height = 249
    Caption = 'ACTIONS:'
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 218
      Top = 216
      Width = 23
      Height = 22
      Caption = '...'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object Label1: TLabel
      Left = 8
      Top = 219
      Width = 45
      Height = 13
      Caption = 'Filename:'
    end
    object Edit1: TEdit
      Left = 64
      Top = 216
      Width = 153
      Height = 21
      MaxLength = 150
      TabOrder = 0
    end
  end
  object ListView1: TListView
    Left = 16
    Top = 24
    Width = 433
    Height = 185
    Hint = 'Do a right click for more options...'
    Columns = <
      item
        Caption = 'Kind Of Action'
        Width = 112
      end
      item
        Caption = 'Virtual Address'
        Width = 100
      end
      item
        Caption = 'Original Bytes'
        Width = 100
      end
      item
        Caption = 'Patch Bytes'
        Width = 100
      end>
    ReadOnly = True
    RowSelect = True
    PopupMenu = PopupMenu1
    TabOrder = 0
    ViewStyle = vsReport
    OnChange = ListView1Change
    OnDblClick = ListView1DblClick
  end
  object Panel3: TPanel
    Left = 464
    Top = 14
    Width = 113
    Height = 243
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object SpeedButton2: TSpeedButton
      Left = 8
      Top = 32
      Width = 97
      Height = 22
      Caption = 'add Patch'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 8
      Top = 216
      Width = 97
      Height = 22
      Hint = ':'#39'('
      Caption = 'eXit'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 8
      Top = 192
      Width = 97
      Height = 22
      Caption = 'about'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton4Click
    end
    object SpeedButton5: TSpeedButton
      Left = 8
      Top = 80
      Width = 97
      Height = 22
      Caption = 'add Wait'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton5Click
    end
    object SpeedButton7: TSpeedButton
      Left = 8
      Top = 104
      Width = 97
      Height = 22
      Caption = 'add Resume'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton7Click
    end
    object SpeedButton8: TSpeedButton
      Left = 8
      Top = 8
      Width = 97
      Height = 22
      Caption = 'compare files'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton8Click
    end
    object SpeedButton9: TSpeedButton
      Left = 8
      Top = 160
      Width = 97
      Height = 22
      Caption = 'make Loader'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton9Click
    end
    object SpeedButton10: TSpeedButton
      Left = 8
      Top = 136
      Width = 97
      Height = 22
      Caption = 'options'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton10Click
    end
    object SpeedButton12: TSpeedButton
      Left = 8
      Top = 56
      Width = 97
      Height = 22
      Caption = 'add S'#39'n'#39'R'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton12Click
    end
  end
  object OpenDialog1: TOpenDialog
    InitialDir = '.'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Choose the target file...'
    Left = 24
    Top = 48
  end
  object SaveDialog1: TSaveDialog
    FileName = 'Loader.exe'
    Filter = 'Executable Files|*.exe|all files|*.*'
    InitialDir = '.'
    Options = [ofHideReadOnly, ofPathMustExist]
    Left = 56
    Top = 48
  end
  object PopupMenu1: TPopupMenu
    Left = 88
    Top = 48
    object edit2: TMenuItem
      Caption = 'edit'
      OnClick = edit2Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object deleteselected1: TMenuItem
      Caption = 'delete'
      OnClick = deleteselected1Click
    end
    object clearall1: TMenuItem
      Caption = 'delete all'
      OnClick = clearall1Click
    end
  end
end