home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
GameStar Special 2004 January
/
GSSH0104TT.iso
/
Programme
/
Seck
/
_SETUP.1
/
Seck.exe
/
0
/
RCDATA
/
TMAIN
/
TMAIN.txt
Wrap
Text File
|
1998-03-15
|
41KB
|
1,658 lines
object main: Tmain
Left = 0
Top = 0
HelpContext = 100
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Savegame Editor Construction Kit (SECK) V 4.00'
ClientHeight = 413
ClientWidth = 639
Font.Color = clBlack
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
Position = poDefaultSizeOnly
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 29
object Label8: TLabel
Left = 56
Top = 144
Width = 77
Height = 16
Caption = 'Savegame 1'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 168
Top = 144
Width = 77
Height = 16
Caption = 'Savegame 2'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 280
Top = 144
Width = 77
Height = 16
Caption = 'Savegame 3'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 384
Top = 144
Width = 77
Height = 16
Caption = 'Savegame 4'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 496
Top = 144
Width = 77
Height = 16
Caption = 'Savegame 5'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 3
Top = 1
Width = 638
Height = 24
Caption =
' Savegame Editor Construction Kit' +
' V 4.00'
Color = clLime
Font.Color = clBlue
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object editoren: TPageControl
Left = -1
Top = 27
Width = 639
Height = 386
HelpContext = 100
ActivePage = TabSheet2
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnChanging = editorenChanging
object TabSheet2: TTabSheet
Caption = 'Savegames vergleichen'
object Label18: TLabel
Left = 349
Top = 215
Width = 77
Height = 16
Caption = 'Savegame 3'
end
object Label1: TLabel
Left = 148
Top = 5
Width = 7
Height = 24
Font.Color = clBlack
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label4: TLabel
Left = 276
Top = 10
Width = 77
Height = 16
Caption = 'Savegame 3'
end
object Label5: TLabel
Left = 387
Top = 10
Width = 77
Height = 16
Caption = 'Savegame 4'
end
object Label6: TLabel
Left = 165
Top = 9
Width = 77
Height = 16
Caption = 'Savegame 2'
end
object Label7: TLabel
Left = 500
Top = 10
Width = 77
Height = 16
Caption = 'Savegame 5'
end
object Adresse: TLabel
Left = 69
Top = 216
Width = 51
Height = 16
Caption = 'Adresse'
end
object Label16: TLabel
Left = 165
Top = 215
Width = 77
Height = 16
Caption = 'Savegame 1'
end
object Label17: TLabel
Left = 257
Top = 215
Width = 77
Height = 16
Caption = 'Savegame 2'
end
object Label19: TLabel
Left = 443
Top = 215
Width = 77
Height = 16
Caption = 'Savegame 4'
end
object Label15: TLabel
Left = 535
Top = 215
Width = 77
Height = 16
Caption = 'Savegame 5'
end
object Label3: TLabel
Left = 46
Top = 10
Width = 77
Height = 16
Caption = 'Savegame 1'
end
object Label2: TLabel
Left = 317
Top = 170
Width = 284
Height = 13
Caption = 'Um Positionen in die Liste zu �bernehmen, mit der Maus auf '
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 318
Top = 183
Width = 259
Height = 13
Caption = 'die Adresse zeigen und die rechte Maustaste bet�tigen'
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Gauge1: TGauge
Left = 40
Top = 335
Width = 100
Height = 14
ForeColor = clBlue
MaxValue = 20
Progress = 0
end
object Label25: TLabel
Left = 167
Top = 344
Width = 56
Height = 13
Caption = 'Gefunden : '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object Label26: TLabel
Left = 13
Top = 338
Width = 17
Height = 13
Alignment = taCenter
AutoSize = False
Caption = '0'
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 316
Top = 192
Width = 3
Height = 13
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object GroupBox4: TGroupBox
Left = 4
Top = 234
Width = 33
Height = 100
TabOrder = 41
end
object Panel4: TPanel
Left = 158
Top = 233
Width = 467
Height = 109
BevelInner = bvLowered
TabOrder = 36
end
object Panel2: TPanel
Left = 6
Top = 208
Width = 59
Height = 30
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 35
end
object Panel1: TPanel
Left = 26
Top = 165
Width = 281
Height = 36
TabOrder = 34
end
object GroupBox1: TGroupBox
Left = 26
Top = 57
Width = 583
Height = 102
TabOrder = 8
end
object b_hinzu: TButton
Left = 34
Top = 173
Width = 86
Height = 21
Hint = 'Savegames zum Vergleich ausw�hlen'
Caption = 'Hinzuf�gen'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = b_hinzuClick
end
object b_entf: TButton
Left = 121
Top = 173
Width = 86
Height = 21
Hint = 'Savegames vom Vergleich wieder ausschlie�en'
Caption = 'Entfernen'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = b_entfClick
end
object Edit1: TEdit
Left = 35
Top = 29
Width = 105
Height = 21
Cursor = crArrow
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 3
OnEnter = Edit1Enter
end
object Edit2: TEdit
Left = 150
Top = 30
Width = 105
Height = 21
Cursor = crArrow
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 4
OnEnter = Edit2Enter
end
object Edit3: TEdit
Left = 262
Top = 30
Width = 105
Height = 21
Cursor = crArrow
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 5
OnEnter = Edit3Enter
end
object Edit4: TEdit
Left = 374
Top = 30
Width = 105
Height = 21
Cursor = crArrow
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 6
OnEnter = Edit4Enter
end
object Edit5: TEdit
Left = 487
Top = 30
Width = 105
Height = 21
Cursor = crArrow
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 7
OnEnter = Edit5Enter
end
object RadioButton1: TRadioButton
Left = 35
Top = 71
Width = 129
Height = 17
Caption = 'Allgemeine �nderung'
Checked = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
TabStop = True
end
object RadioButton2: TRadioButton
Left = 35
Top = 88
Width = 129
Height = 17
Caption = 'Kleinere Werte suchen'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
end
object RadioButton3: TRadioButton
Left = 35
Top = 104
Width = 129
Height = 17
Caption = 'Gr��ere Werte suchen'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
end
object RadioButton4: TRadioButton
Left = 35
Top = 120
Width = 129
Height = 17
Caption = 'Schalter 0/1'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 12
end
object RadioButton5: TRadioButton
Left = 35
Top = 136
Width = 129
Height = 17
Caption = 'Andere Schalter'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 13
end
object RadioButton6: TRadioButton
Left = 211
Top = 72
Width = 129
Height = 13
Caption = 'Differenz - 1'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 14
end
object RadioButton8: TRadioButton
Left = 211
Top = 103
Width = 161
Height = 17
Caption = 'Automatische Werte - Suche'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 16
end
object RadioButton9: TRadioButton
Left = 211
Top = 120
Width = 161
Height = 17
Caption = 'Automatische Balken - Suche'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 17
end
object RadioButton10: TRadioButton
Left = 211
Top = 136
Width = 177
Height = 17
Caption = 'Werte bis 2.000.000.000 suchen'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 18
end
object RadioButton11: TRadioButton
Left = 411
Top = 72
Width = 161
Height = 17
Caption = 'Halbierte Werte suchen'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 19
end
object RadioButton12: TRadioButton
Left = 411
Top = 88
Width = 161
Height = 17
Caption = 'Alternierende Werte suchen'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 20
end
object RadioButton13: TRadioButton
Left = 411
Top = 104
Width = 161
Height = 17
Caption = 'Werte im Intervall suchen'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 21
end
object RadioButton14: TRadioButton
Left = 411
Top = 120
Width = 161
Height = 17
Caption = 'Gegenst�nde als Bits suchen'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 22
end
object RadioButton15: TRadioButton
Left = 411
Top = 136
Width = 193
Height = 17
Caption = 'Master - Search ! (12 Savegames !)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 23
end
object Button3: TButton
Left = 209
Top = 173
Width = 92
Height = 21
Hint = 'Ausgew�hlte Suche beginnen'
Caption = 'Suche starten'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = Button3Click
end
object Memo3: TMemo
Left = 40
Top = 243
Width = 104
Height = 90
Cursor = crArrow
Color = clBlack
Ctl3D = True
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'')
ParentCtl3D = False
ParentFont = False
PopupMenu = Adressenpopup
ReadOnly = True
TabOrder = 24
OnDblClick = Memo3DblClick
OnEnter = Memo3Enter
OnMouseDown = Memo3MouseDown
OnMouseUp = Memo3MouseUp
end
object Memo4: TMemo
Left = 166
Top = 242
Width = 82
Height = 92
Cursor = crArrow
Color = clWhite
Ctl3D = True
Lines.Strings = (
''
'')
ParentCtl3D = False
ReadOnly = True
TabOrder = 25
OnEnter = Memo4Enter
end
object Memo5: TMemo
Left = 259
Top = 242
Width = 82
Height = 92
Cursor = crArrow
Color = clWhite
Ctl3D = True
Lines.Strings = (
'')
ParentCtl3D = False
ReadOnly = True
TabOrder = 26
OnEnter = Memo5Enter
end
object Memo6: TMemo
Left = 350
Top = 242
Width = 82
Height = 92
Cursor = crArrow
Color = clWhite
Ctl3D = True
Lines.Strings = (
''
'')
ParentCtl3D = False
ReadOnly = True
TabOrder = 27
OnEnter = Memo6Enter
end
object Memo7: TMemo
Left = 441
Top = 242
Width = 82
Height = 92
Cursor = crArrow
Color = clWhite
Ctl3D = True
Lines.Strings = (
'')
ParentCtl3D = False
ReadOnly = True
TabOrder = 28
OnEnter = Memo7Enter
end
object Memo8: TMemo
Left = 533
Top = 242
Width = 82
Height = 92
Cursor = crArrow
Color = clWhite
Ctl3D = True
Lines.Strings = (
'')
ParentCtl3D = False
ReadOnly = True
TabOrder = 29
OnEnter = Memo8Enter
end
object Button5: TButton
Left = 2
Top = -5
Width = 24
Height = 18
Caption = '<'
Enabled = False
TabOrder = 30
Visible = False
OnClick = Button5Click
end
object Button6: TButton
Left = 26
Top = -5
Width = 23
Height = 18
Caption = '>'
Enabled = False
TabOrder = 31
Visible = False
OnClick = Button6Click
end
object Button7: TButton
Left = 11
Top = 215
Width = 23
Height = 18
Hint = 'Zur ersten Position wechseln'
Caption = '<<'
ParentShowHint = False
ShowHint = True
TabOrder = 32
OnClick = Button7Click
end
object Button8: TButton
Left = 34
Top = 215
Width = 23
Height = 18
Hint = 'Zur letzten Position wechseln'
Caption = '>>'
ParentShowHint = False
ShowHint = True
TabOrder = 33
OnClick = Button8Click
end
object RadioButton7: TRadioButton
Left = 211
Top = 87
Width = 129
Height = 16
Caption = 'Andere Differenz'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 15
end
object Button22: TButton
Left = 9
Top = 247
Width = 23
Height = 21
Hint = '5 Positionen r�ckw�rts'
Caption = '-5'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 37
OnClick = Button22Click
end
object Button23: TButton
Left = 9
Top = 267
Width = 23
Height = 21
Hint = '1 Position r�ckw�rts'
Caption = '-1'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 38
OnClick = Button23Click
end
object Button24: TButton
Left = 9
Top = 287
Width = 23
Height = 21
Hint = '1 Position vorw�rts'
Caption = '+1'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 39
OnClick = Button24Click
end
object Button25: TButton
Left = 9
Top = 307
Width = 23
Height = 21
Hint = '5 Positionen vorw�rts'
Caption = '+5'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 40
OnClick = Button25Click
end
object ScrollBar1: TScrollBar
Left = 146
Top = 243
Width = 10
Height = 90
Kind = sbVertical
Max = 0
TabOrder = 42
OnChange = ScrollBar1Change
end
end
object TabSheet1: TTabSheet
Caption = 'Patchen, Liste der Werte'
object Label13: TLabel
Left = 195
Top = 13
Width = 197
Height = 16
Caption = 'Kommentar, Wirkung der Position'
end
object Label14: TLabel
Left = 115
Top = 13
Width = 57
Height = 16
Caption = 'Adresse'
end
object Label21: TLabel
Left = 2
Top = 225
Width = 110
Height = 80
Caption =
'Weitere Optionen : Adresse mit Maus ausw�hlen und rechte Maustas' +
'te bet�tigen'
Font.Color = clGreen
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label29: TLabel
Left = 8
Top = 13
Width = 91
Height = 16
Caption = 'Aktuelle Seite : '
end
object Label30: TLabel
Left = 36
Top = 37
Width = 10
Height = 24
Caption = '1'
Font.Color = clBlack
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Panel3: TPanel
Left = 3
Top = 308
Width = 620
Height = 41
TabOrder = 11
end
object Memo1: TMemo
Left = 193
Top = 39
Width = 409
Height = 267
Enabled = False
Lines.Strings = (
''
''
''
''
''
''
''
''
''
''
''
''
''
'')
ReadOnly = True
TabOrder = 0
Visible = False
OnChange = Memo1Change
OnDblClick = Memo1DblClick
OnEnter = Memo1Enter
OnMouseUp = Memo1MouseUp
end
object Memo2: TMemo
Left = 112
Top = 41
Width = 76
Height = 266
Cursor = crArrow
Enabled = False
Lines.Strings = (
''
''
''
''
''
''
''
''
''
''
''
''
''
'')
PopupMenu = Listenpopup
ReadOnly = True
TabOrder = 1
Visible = False
OnEnter = Memo2Enter
OnMouseDown = Memo2MouseDown
end
object Button10: TButton
Left = 418
Top = 7
Width = 23
Height = 24
Hint = 'Seite 1 der Liste'
Caption = '1'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = Button10Click
end
object Button11: TButton
Left = 451
Top = 7
Width = 25
Height = 24
Hint = 'Seite 2 der Liste'
Caption = '2'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = Button11Click
end
object Button12: TButton
Left = 487
Top = 7
Width = 25
Height = 24
Hint = 'Seite 3 der Liste'
Caption = '3'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = Button12Click
end
object Button13: TButton
Left = 522
Top = 6
Width = 24
Height = 24
Hint = 'Seite 4 der Liste'
Caption = '4'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = Button13Click
end
object Button14: TButton
Left = 556
Top = 7
Width = 25
Height = 24
Hint = 'Seite 5 der Liste'
Caption = '5'
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = Button14Click
end
object Button4: TButton
Left = 88
Top = 317
Width = 75
Height = 25
Hint = 'Liste speichern'
Caption = 'Speichern'
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = Button4Click
end
object Button15: TButton
Left = 164
Top = 317
Width = 75
Height = 25
Hint = 'Liste laden'
Caption = 'Laden'
ParentShowHint = False
ShowHint = True
TabOrder = 8
OnClick = Button15Click
end
object Button2: TButton
Left = 239
Top = 317
Width = 75
Height = 25
Hint = 'Aktuelle Liste drucken'
Caption = 'Drucken'
ParentShowHint = False
ShowHint = True
TabOrder = 9
OnClick = Button2Click
end
object Button1: TButton
Left = 12
Top = 317
Width = 75
Height = 25
Hint = 'Eine Adresse manuell in die Liste einf�gen'
Caption = 'Hinzuf�gen'
ParentShowHint = False
ShowHint = True
TabOrder = 10
OnClick = Button1Click
end
object Button16: TButton
Left = 391
Top = 317
Width = 75
Height = 25
Hint = 'Aktuelle Liste leeren'
Caption = 'L�schen'
ParentShowHint = False
ShowHint = True
TabOrder = 12
OnClick = Button16Click
end
object Button9: TButton
Left = 315
Top = 317
Width = 75
Height = 25
Hint = 'Vorherige Patchaktionen r�ckg�ngig machen'
Caption = '"Undo"'
ParentShowHint = False
ShowHint = True
TabOrder = 13
OnClick = Button9Click
end
object ListBox2: TListBox
Left = 114
Top = 42
Width = 74
Height = 247
ItemHeight = 16
Items.Strings = (
''
''
''
''
''
''
''
''
''
''
''
''
''
''
'')
PopupMenu = Listenpopup
TabOrder = 14
OnEnter = ListBox2Enter
OnKeyDown = ListBox2KeyDown
OnMouseDown = ListBox2MouseDown
OnMouseMove = ListBox2MouseMove
end
object ListBox3: TListBox
Left = 196
Top = 42
Width = 409
Height = 247
ItemHeight = 16
Items.Strings = (
' ' +
' '
' ' +
' '
' ' +
' '
' ' +
' '
' ' +
' '
' ' +
' '
' ' +
' '
' ' +
' '
' ' +
' '
' ' +
' '
' ' +
' '
' ' +
' '
' ' +
' '
' ' +
' '
'')
PopupMenu = Listenpopup
TabOrder = 15
OnDblClick = ListBox3DblClick
OnEnter = ListBox3Enter
OnKeyDown = ListBox3KeyDown
OnMouseDown = ListBox3MouseDown
OnMouseMove = ListBox3MouseMove
OnMouseUp = ListBox3MouseUp
end
object Button26: TButton
Left = 466
Top = 317
Width = 75
Height = 25
Caption = 'Patchen'
TabOrder = 16
OnClick = Button26Click
end
object Button27: TButton
Left = 542
Top = 317
Width = 75
Height = 25
Caption = 'Bearbeiten'
TabOrder = 17
OnClick = Button27Click
end
end
object TabSheet3: TTabSheet
Caption = 'Savegame Editoren'
object GroupBox3: TGroupBox
Left = 36
Top = 28
Width = 253
Height = 187
Caption = 'Savegame Editor ausf�hren '
Font.Color = clBlack
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object Button20: TButton
Left = 25
Top = 106
Width = 201
Height = 25
Hint = 'Savegame Editor ausf�hren'
Caption = 'Ausf�hren'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = Button20Click
end
object Button18: TButton
Left = 25
Top = 146
Width = 201
Height = 25
Hint = 'Screen-Editor zum Bearbeiten von Savegame Editoren starten'
Caption = 'Savegame Screen-Editor'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = Button18Click
end
object Edit6: TEdit
Left = 25
Top = 30
Width = 202
Height = 28
MaxLength = 80
TabOrder = 2
OnEnter = Edit6Enter
end
object Button21: TButton
Left = 25
Top = 69
Width = 201
Height = 25
Hint = 'Savegame Editor zum Ausf�hren ausw�hlen'
Caption = 'Auswahl'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = Button21Click
end
end
object GroupBox2: TGroupBox
Left = 315
Top = 29
Width = 267
Height = 186
Caption = '.exe Savegame Editor erstellen'
Font.Color = clBlack
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
object Label24: TLabel
Left = 18
Top = 29
Width = 78
Height = 20
Caption = 'Dateiname'
end
object Label28: TLabel
Left = 22
Top = 142
Width = 237
Height = 20
Caption = 'Nur in der "Professional" Version !'
Font.Color = clRed
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object Button19: TButton
Left = 20
Top = 107
Width = 230
Height = 25
Hint = 'Lauff�hige .exe Savegame Editoren erstellen'
Caption = '.exe Savegame-Editor erstellen'
Font.Color = clBlack
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = Button19Click
end
object Edit7: TEdit
Left = 19
Top = 65
Width = 211
Height = 28
TabOrder = 1
end
end
object Memo9: TMemo
Left = 58
Top = 226
Width = 206
Height = 89
Cursor = crArrow
BorderStyle = bsNone
Color = clBtnFace
Font.Color = clGreen
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Mit dieser Option k�nnen Sie sich '
'ihre eigenen und individuellen '
'Savegame-Editoren (Trainer) f�r '
'Ihre Spiele erstellen und aufrufen.')
ParentFont = False
ReadOnly = True
TabOrder = 2
OnEnter = Memo9Enter
end
object Memo10: TMemo
Left = 322
Top = 227
Width = 218
Height = 57
Cursor = crArrow
BorderStyle = bsNone
Color = clBtnFace
Font.Color = clGreen
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'In der Professional Version entsteht'
'durch Knopfdruck ein ausf�hrbarer'
'Windows .exe Savegame - Editor.')
ParentFont = False
ReadOnly = True
TabOrder = 3
OnEnter = Memo9Enter
end
object Button28: TButton
Left = 64
Top = 302
Width = 75
Height = 25
Caption = 'EDE 2'
Enabled = False
TabOrder = 4
Visible = False
OnClick = Button28Click
end
end
object TabSheet4: TTabSheet
Caption = 'Theorie'
object Label23: TLabel
Left = 213
Top = 8
Width = 174
Height = 20
Caption = 'Bitte Thema ausw�hlen !'
Font.Color = clBlack
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ListBox1: TListBox
Left = 31
Top = 42
Width = 560
Height = 152
ItemHeight = 16
Items.Strings = (
'Was sind Savegames ? '
'Wie ver�ndert man Savegames ? '
'Welche Rolle spielt SECK dabei ?'
'Wie findet man Werte aus einem Spiel in Savegames ? '
'Wie findet man "Energiebalken" in Savegames ? '
'Spiel erkennt modifizierte Savegames - Was nun ? '
''
''
'')
TabOrder = 0
OnDblClick = ListBox1DblClick
end
object Button17: TButton
Left = 32
Top = 202
Width = 75
Height = 25
Hint = 'Gew�hltes Thema anzeigen'
Caption = 'Anzeigen'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = Button17Click
end
object Memo11: TMemo
Left = 34
Top = 240
Width = 505
Height = 54
Cursor = crArrow
BorderStyle = bsNone
Color = clBtnFace
Font.Color = clGreen
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Dieser Bereich soll vor allem Einsteigern einen �berblick �ber d' +
'ie Savegame-'
'Analyse im Allgemeinen und mit Hilfe von SECK 4.00 im Speziellen' +
' bieten.')
ParentFont = False
ReadOnly = True
TabOrder = 2
OnEnter = Memo11Enter
end
end
end
object RichEdit2: TRichEdit
Left = 7
Top = 72
Width = 19
Height = 35
Lines.Strings = (
'')
TabOrder = 1
Visible = False
end
object MainMenu1: TMainMenu
Left = 38
Top = 65535
object Savegames1: TMenuItem
Caption = '&Savegames'
ShortCut = 16449
object Hinzufgen1: TMenuItem
Caption = '&Hinzuf�gen'
ShortCut = 16456
OnClick = Hinzufgen1Click
end
object Entfernen1: TMenuItem
Caption = '&Entfernen'
ShortCut = 16453
OnClick = Entfernen1Click
end
object SucheStarten1: TMenuItem
Caption = 'Suche &Starten...'
ShortCut = 16467
OnClick = SucheStarten1Click
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object SECK400beenden1: TMenuItem
Caption = 'SECK 4.00 beenden'
ShortCut = 0
OnClick = SECK400beenden1Click
end
end
object Patchen1: TMenuItem
Caption = '&Patchen'
ShortCut = 0
object Hinzufgen2: TMenuItem
Caption = '&Hinzuf�gen'
ShortCut = 0
OnClick = Hinzufgen2Click
end
object Speichern1: TMenuItem
Caption = 'S&peichern'
ShortCut = 0
OnClick = Speichern1Click
end
object Laden1: TMenuItem
Caption = '&Laden'
ShortCut = 0
OnClick = Laden1Click
end
object Drucken1: TMenuItem
Caption = '&Drucken'
ShortCut = 0
OnClick = Drucken1Click
end
object Rckgngig1: TMenuItem
Caption = '&R�ckg�ngig'
ShortCut = 0
OnClick = Rckgngig1Click
end
object Lschen1: TMenuItem
Caption = 'L&�schen'
ShortCut = 0
OnClick = Lschen1Click
end
end
object Tools: TMenuItem
Caption = '&Tools'
ShortCut = 16452
object HexEditor1: TMenuItem
Caption = 'Hex-Editor'
ShortCut = 16472
OnClick = HexEditor1Click
end
object HexDecUmwandler1: TMenuItem
Caption = 'Hex-Dec-Umwandler'
ShortCut = 16469
OnClick = HexDecUmwandler1Click
end
object ScreenEditor1: TMenuItem
Caption = 'Screen-Editor'
ShortCut = 16451
OnClick = ScreenEditor1Click
end
end
object Hilfe1: TMenuItem
Caption = '&Hilfe'
ShortCut = 0
object Inhalt1: TMenuItem
Caption = '&Inhalt'
ShortCut = 0
OnClick = Inhalt1Click
end
object Suchen1: TMenuItem
Caption = '&Suchen'
ShortCut = 0
OnClick = Suchen1Click
end
object Hilfebenutzen1: TMenuItem
Caption = '&Hilfe benutzen'
ShortCut = 0
OnClick = Hilfebenutzen1Click
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object SECK400Tutor1: TMenuItem
Caption = 'SECK 4.00 Tutor'
ShortCut = 0
OnClick = SECK400Tutor1Click
end
object LittleQuickTutor1: TMenuItem
Caption = 'Little Quick Tutor'
ShortCut = 0
OnClick = LittleQuickTutor1Click
end
end
object Info2: TMenuItem
Caption = 'Info'
ShortCut = 0
object berSECK4001: TMenuItem
Caption = '�ber SECK 4.00'
ShortCut = 0
OnClick = berSECK4001Click
end
object N3: TMenuItem
Caption = '-'
ShortCut = 0
end
object Internet1: TMenuItem
Caption = 'Internet'
ShortCut = 0
OnClick = Internet1Click
end
end
object Beenden: TMenuItem
Caption = '&Beenden'
ShortCut = 0
Visible = False
OnClick = BeendenClick
end
object SECKbestellen1: TMenuItem
Caption = 'SECK BESTELLEN'
Enabled = False
ShortCut = 0
Visible = False
OnClick = SECKbestellen1Click
end
end
object Listenpopup: TPopupMenu
Left = 6
Top = 1
object Popitem1: TMenuItem
Caption = 'Text an aktueller Adresse bearbeiten'
ShortCut = 0
OnClick = Popitem1Click
end
object PopItem3: TMenuItem
Caption = 'Savegame an Adresse patchen'
ShortCut = 0
OnClick = PopItem3Click
end
object Popitem2: TMenuItem
Caption = 'Aktuelle Adresse l�schen'
ShortCut = 0
OnClick = Popitem2Click
end
end
object SaveDialog1: TSaveDialog
DefaultExt = 'lst'
FileEditStyle = fsEdit
Filter = 'Listendateien|.lst'
Options = [ofOverwritePrompt, ofHideReadOnly]
Title = 'Liste speichern'
Left = 69
end
object OpenDialog1: TOpenDialog
DefaultExt = 'lst'
FileEditStyle = fsEdit
Filter = 'SECK 400 Listendateien|.lst'
Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofNoReadOnlyReturn]
Title = 'SECK 4.00 Liste laden'
Left = 101
end
object Adressenpopup: TPopupMenu
Left = 133
Top = 65535
object AdresseindieListebernehmen1: TMenuItem
Caption = 'Adresse in die Liste �bernehmen'
ShortCut = 0
OnClick = AdresseindieListebernehmen1Click
end
object SavegameandieserAdressepatchen1: TMenuItem
Caption = 'Savegame an dieser Adresse patchen'
ShortCut = 0
OnClick = SavegameandieserAdressepatchen1Click
end
end
object Openeditor: TOpenDialog
DefaultExt = 'id2'
FileEditStyle = fsEdit
Filter = 'SECK4.00 individuelle Editoren|*.id2'
Options = [ofHideReadOnly]
Title = 'Individuellen Savegame Editor �ffnen'
Left = 515
end
end