home *** CD-ROM | disk | FTP | other *** search
- object Hexedit: THexedit
- Left = 26
- Top = 13
- HelpContext = 200
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'SECK 4.00 "Little" Hex - Editor'
- ClientHeight = 383
- ClientWidth = 586
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- Position = poDefaultSizeOnly
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 22
- Top = 12
- Width = 57
- Height = 13
- Caption = 'Dateiname :'
- end
- object Label2: TLabel
- Left = 22
- Top = 41
- Width = 57
- Height = 13
- Caption = 'Dateil�nge :'
- end
- object Label4: TLabel
- Left = 195
- Top = 12
- Width = 25
- Height = 13
- Caption = 'Hex :'
- end
- object Label5: TLabel
- Left = 195
- Top = 41
- Width = 26
- Height = 13
- Caption = 'Dec :'
- end
- object Label6: TLabel
- Left = 292
- Top = 12
- Width = 80
- Height = 13
- Caption = 'Aktueller Block : '
- end
- object Label7: TLabel
- Left = 292
- Top = 41
- Width = 83
- Height = 13
- Caption = 'Maximaler Block :'
- end
- object Label3: TLabel
- Left = 454
- Top = 10
- Width = 67
- Height = 13
- Caption = 'Dateiposition :'
- end
- object Panel1: TPanel
- Left = 18
- Top = 334
- Width = 561
- Height = 39
- TabOrder = 17
- end
- object Button1: TButton
- Left = 28
- Top = 342
- Width = 55
- Height = 25
- Hint = 'Eine Datei in den Hex-Editor einlesen'
- Caption = 'Laden'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 206
- Top = 342
- Width = 56
- Height = 25
- Hint = 'Block speichern'
- Caption = 'Speichern'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 145
- Top = 342
- Width = 56
- Height = 25
- Hint = 'Originalzustand des Blocks wieder herstellen'
- Caption = 'Undo'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 265
- Top = 342
- Width = 55
- Height = 25
- Hint = 'Bytefolge oder Text suchen'
- Caption = 'Suchen'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = Button4Click
- end
- object Button5: TButton
- Left = 384
- Top = 342
- Width = 53
- Height = 25
- Hint = 'Zu einem bestimmten Block wechseln'
- Caption = 'Gehe zu'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = Button5Click
- end
- object MaskEdit1: TMaskEdit
- Left = 105
- Top = 302
- Width = 339
- Height = 22
- EditMask = '>AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA;1; '
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- MaxLength = 47
- ParentFont = False
- TabOrder = 5
- Text = ' '
- OnChange = MaskEdit1Change
- OnEnter = MaskEdit1Enter
- OnKeyUp = MaskEdit1KeyUp
- end
- object ListBox1: TListBox
- Left = 23
- Top = 64
- Width = 73
- Height = 230
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- ItemHeight = 14
- Items.Strings = (
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- '')
- ParentFont = False
- TabOrder = 6
- OnEnter = ListBox1Enter
- end
- object ListBox2: TListBox
- Left = 107
- Top = 64
- Width = 338
- Height = 230
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- ItemHeight = 14
- Items.Strings = (
- ' '
- ' '
- ' '
- ' '
- ' SECK 4.00 '
- ''
- ' Savegame Editor Construction Kit '
- ''
- ' (C) 1997 Advanced Digital Technologies'
- ' '
- ' "LITTLE" HEX-EDITOR '
- ''
- ''
- ''
- ''
- '')
- ParentFont = False
- TabOrder = 7
- OnDblClick = ListBox2DblClick
- OnKeyDown = ListBox2KeyDown
- OnKeyUp = ListBox2KeyUp
- OnMouseDown = ListBox2MouseDown
- OnMouseMove = ListBox2MouseMove
- OnMouseUp = ListBox2MouseUp
- end
- object ListBox3: TListBox
- Left = 453
- Top = 64
- Width = 120
- Height = 230
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- ItemHeight = 14
- Items.Strings = (
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- '')
- ParentFont = False
- TabOrder = 8
- OnEnter = ListBox3Enter
- end
- object MaskEdit2: TMaskEdit
- Left = 453
- Top = 302
- Width = 120
- Height = 22
- EditMask = 'AAAAAAAAAAAAAAAA;1; '
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- MaxLength = 16
- ParentFont = False
- TabOrder = 9
- Text = ' '
- OnEnter = MaskEdit2Enter
- end
- object Edit1: TEdit
- Left = 86
- Top = 4
- Width = 90
- Height = 21
- TabOrder = 10
- OnEnter = Edit1Enter
- end
- object Edit2: TEdit
- Left = 86
- Top = 33
- Width = 90
- Height = 21
- TabOrder = 11
- OnEnter = Edit2Enter
- end
- object Edit3: TEdit
- Left = 230
- Top = 4
- Width = 35
- Height = 21
- TabOrder = 12
- OnEnter = Edit3Enter
- end
- object Edit4: TEdit
- Left = 230
- Top = 33
- Width = 35
- Height = 21
- TabOrder = 13
- Text = ' '
- OnEnter = Edit4Enter
- end
- object Edit6: TEdit
- Left = 383
- Top = 4
- Width = 55
- Height = 21
- TabOrder = 14
- Text = ' '
- OnEnter = Edit6Enter
- end
- object Edit7: TEdit
- Left = 383
- Top = 33
- Width = 55
- Height = 21
- TabOrder = 15
- Text = ' '
- OnEnter = Edit7Enter
- end
- object MaskEdit3: TMaskEdit
- Left = 22
- Top = 302
- Width = 74
- Height = 22
- EditMask = 'AAAAAAAAAAAAAAAA;1; '
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- MaxLength = 16
- ParentFont = False
- TabOrder = 16
- Text = ' '
- OnEnter = MaskEdit3Enter
- end
- object Button7: TButton
- Left = 324
- Top = 342
- Width = 54
- Height = 25
- Hint = 'Text in den aktuellen Block schreiben'
- Caption = 'Text'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 18
- OnClick = Button7Click
- end
- object Edit5: TEdit
- Left = 453
- Top = 34
- Width = 115
- Height = 21
- TabOrder = 19
- OnEnter = Edit5Enter
- end
- object Button9: TButton
- Left = 507
- Top = 342
- Width = 61
- Height = 25
- Hint = 'Zum n�chsten Block wechseln'
- Caption = 'N�chster'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 20
- OnClick = Button9Click
- end
- object Button8: TButton
- Left = 441
- Top = 342
- Width = 61
- Height = 25
- Hint = 'Zum vorherigen Block wechseln'
- Caption = 'Vorheriger'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 21
- OnClick = Button8Click
- end
- object Button6: TButton
- Left = 86
- Top = 342
- Width = 55
- Height = 25
- Hint = 'Ge�ffnete Datei wieder schlie�en'
- Caption = 'Schlie�en'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 22
- OnClick = Button6Click
- end
- object OpenDialog1: TOpenDialog
- FileEditStyle = fsEdit
- Options = [ofHideReadOnly]
- Title = 'Datei �ffnen'
- Left = 535
- Top = 2
- end
- object MainMenu1: TMainMenu
- Left = 65534
- Top = 65535
- object Datei1: TMenuItem
- Caption = '&Datei'
- ShortCut = 0
- object Laden1: TMenuItem
- Caption = '&Laden'
- ShortCut = 0
- OnClick = Laden1Click
- end
- object Speichern1: TMenuItem
- Caption = '&Speichern'
- Enabled = False
- ShortCut = 0
- OnClick = Speichern1Click
- end
- object Schlieen1: TMenuItem
- Caption = 'S&chlie�en'
- Enabled = False
- ShortCut = 0
- OnClick = Schlieen1Click
- end
- object Rckgngig1: TMenuItem
- Caption = '&R�ckg�ngig'
- Enabled = False
- ShortCut = 0
- OnClick = Rckgngig1Click
- end
- end
- object Bearbeiten1: TMenuItem
- Caption = '&Bearbeiten'
- Enabled = False
- ShortCut = 0
- object Suchen1: TMenuItem
- Caption = '&Suchen'
- ShortCut = 0
- OnClick = Suchen1Click
- end
- object Texteinfgen1: TMenuItem
- Caption = '&Text einf�gen'
- ShortCut = 0
- OnClick = Texteinfgen1Click
- end
- end
- object Blcke1: TMenuItem
- Caption = '&Bl�cke'
- Enabled = False
- ShortCut = 0
- object Erster1: TMenuItem
- Caption = '&Erster'
- ShortCut = 0
- OnClick = Erster1Click
- end
- object Letzter1: TMenuItem
- Caption = '&Letzter'
- ShortCut = 0
- OnClick = Letzter1Click
- end
- object Gehezu1: TMenuItem
- Caption = '&Gehe zu...'
- ShortCut = 0
- OnClick = Gehezu1Click
- end
- end
- object Hilfe1: TMenuItem
- Caption = '&Hilfe'
- ShortCut = 0
- object Inhalt1: TMenuItem
- Caption = '&Inhalt'
- ShortCut = 0
- OnClick = Inhalt1Click
- end
- object Info1: TMenuItem
- Caption = 'In&fo...'
- ShortCut = 0
- OnClick = Info1Click
- end
- end
- object Beenden1: TMenuItem
- Caption = 'B&eenden'
- ShortCut = 0
- OnClick = Beenden1Click
- end
- end
- end
-