Rev 12 | Blame | Compare with Previous | Last modification | View Log | RSS feed
object Form1: TForm1
Left = 0
Top = 0
Caption = 'ShowTime Editor'
ClientHeight = 619
ClientWidth = 1030
Color = clBtnFace
Constraints.MinHeight = 677
Constraints.MinWidth = 1046
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
DesignSize = (
1030
619)
PixelsPerInch = 96
TextHeight = 13
object ListBox1: TListBox
Left = 8
Top = 8
Width = 209
Height = 478
Anchors = [akLeft, akTop, akBottom]
ItemHeight = 13
Items.Strings = (
'SC99'
'SC00'
'SC01'
'SC02')
TabOrder = 0
OnClick = ListBox1Click
OnDblClick = ListBox1DblClick
end
object Button1: TButton
Left = 145
Top = 492
Width = 33
Height = 25
Hint = 'Add new scene'
Anchors = [akLeft, akBottom]
Caption = '+'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = Button1Click
end
object Button2: TButton
Left = 184
Top = 492
Width = 33
Height = 25
Hint = 'Remove scene'
Anchors = [akLeft, akBottom]
Caption = '-'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = Button2Click
end
object Button3: TButton
Left = 8
Top = 565
Width = 105
Height = 46
Hint = 'Save GAME.bin'
Anchors = [akLeft, akBottom]
Caption = 'Save'
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = Button3Click
end
object Button4: TButton
Left = 8
Top = 492
Width = 33
Height = 25
Hint = 'Move scene up'
Anchors = [akLeft, akBottom]
Caption = '^'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = Button4Click
end
object Button5: TButton
Left = 47
Top = 492
Width = 33
Height = 25
Hint = 'Move scene down'
Anchors = [akLeft, akBottom]
Caption = 'v'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = Button5Click
end
object Button10: TButton
Left = 112
Top = 565
Width = 105
Height = 46
Hint = 'Save GAME.BIN and run game'
Anchors = [akLeft, akBottom]
Caption = 'Save + Test'
ParentShowHint = False
ShowHint = True
TabOrder = 8
OnClick = Button10Click
end
object PageControl2: TPageControl
Left = 223
Top = 8
Width = 799
Height = 603
ActivePage = TabSheet4
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 9
object TabSheet4: TTabSheet
Caption = 'Pictures'
DesignSize = (
791
575)
object Label1: TLabel
Left = 16
Top = 24
Width = 77
Height = 13
Caption = 'SceneID (0-99):'
end
object Label2: TLabel
Left = 15
Top = 63
Width = 79
Height = 13
Caption = 'Sound playback:'
end
object Label12: TLabel
Left = 272
Top = 127
Width = 67
Height = 13
Caption = 'Duration [ds]:'
end
object Label16: TLabel
Left = 368
Top = 124
Width = 46
Height = 13
Caption = 'Filename:'
end
object Label17: TLabel
Left = 162
Top = 24
Width = 126
Height = 13
Caption = 'Attention: ID exists twice!'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Visible = False
end
object Label19: TLabel
Left = 272
Top = 420
Width = 62
Height = 13
Caption = 'Unused files:'
end
object Label24: TLabel
Left = 247
Top = 63
Width = 118
Height = 13
Caption = 'Attention: File not found'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Visible = False
end
object Label25: TLabel
Left = 247
Top = 82
Width = 222
Height = 13
Caption = 'Attention: Low Quality file (E*.wav) not found'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Visible = False
end
object Label26: TLabel
Left = 368
Top = 170
Width = 118
Height = 13
Caption = 'Attention: File not found'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Visible = False
end
object SpinEdit1: TSpinEdit
Left = 99
Top = 21
Width = 57
Height = 22
MaxValue = 99
MinValue = 0
TabOrder = 0
Value = 0
OnChange = SpinEdit1Change
end
object Edit1: TEdit
Left = 100
Top = 60
Width = 104
Height = 21
MaxLength = 13
TabOrder = 1
OnChange = Edit1Change
end
object Button6: TButton
Left = 177
Top = 533
Width = 33
Height = 25
Anchors = [akLeft, akBottom]
Caption = '+'
TabOrder = 6
OnClick = Button6Click
end
object Button7: TButton
Left = 216
Top = 533
Width = 33
Height = 25
Anchors = [akLeft, akBottom]
Caption = '-'
TabOrder = 7
OnClick = Button7Click
end
object Button8: TButton
Left = 11
Top = 533
Width = 33
Height = 25
Anchors = [akLeft, akBottom]
Caption = '^'
TabOrder = 4
OnClick = Button8Click
end
object Button9: TButton
Left = 50
Top = 533
Width = 33
Height = 25
Anchors = [akLeft, akBottom]
Caption = 'v'
TabOrder = 5
OnClick = Button9Click
end
object ListBox2: TListBox
Left = 10
Top = 127
Width = 239
Height = 400
Anchors = [akLeft, akTop, akBottom]
ItemHeight = 13
TabOrder = 3
OnClick = ListBox2Click
OnDblClick = ListBox2DblClick
end
object Edit3: TEdit
Left = 368
Top = 143
Width = 137
Height = 21
TabOrder = 9
OnChange = Edit3Change
end
object SpinEdit13: TSpinEdit
Left = 272
Top = 143
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 8
Value = 0
OnChange = SpinEdit13Change
end
object Button13: TButton
Left = 656
Top = 19
Width = 120
Height = 25
Caption = 'Open scene folder'
TabOrder = 12
OnClick = Button13Click
end
object MediaPlayer1: TMediaPlayer
Left = 604
Top = 21
Width = 29
Height = 25
ColoredButtons = []
VisibleButtons = [btPlay]
Visible = False
TabOrder = 14
end
object GroupBox2: TGroupBox
Left = 591
Top = 234
Width = 185
Height = 167
Caption = 'Playback'
TabOrder = 13
object Label18: TLabel
Left = 14
Top = 128
Width = 153
Height = 24
Alignment = taCenter
AutoSize = False
Caption = 'Label18'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Button15: TButton
Left = 23
Top = 27
Width = 137
Height = 25
Caption = 'Start from here'
TabOrder = 0
OnClick = Button15Click
end
object Button17: TButton
Left = 22
Top = 89
Width = 137
Height = 25
Caption = 'Stop'
TabOrder = 2
OnClick = Button17Click
end
object Button16: TButton
Left = 23
Top = 58
Width = 137
Height = 25
Caption = 'Start from beginning'
TabOrder = 1
OnClick = Button16Click
end
end
object ListBox3: TListBox
Left = 272
Top = 439
Width = 305
Height = 122
Anchors = [akLeft, akTop, akBottom]
ItemHeight = 13
PopupMenu = PopupMenu1
TabOrder = 11
OnClick = ListBox3Click
OnDblClick = ListBox3DblClick
OnMouseDown = ListBox3MouseDown
end
object Button12: TButton
Left = 511
Top = 143
Width = 26
Height = 21
Hint = 'Open file'
Caption = '1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Wingdings'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 10
Visible = False
OnClick = Button12Click
end
object Button18: TButton
Left = 210
Top = 60
Width = 31
Height = 21
Hint = 'Open file'
Caption = '1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Wingdings'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
Visible = False
OnClick = Button18Click
end
object Panel2: TPanel
Left = 272
Top = 189
Width = 305
Height = 212
BevelOuter = bvNone
TabOrder = 15
object Image2: TImage
Left = 0
Top = 1
Width = 305
Height = 211
Stretch = True
OnDblClick = Button12Click
end
end
object Panel3: TPanel
Left = 592
Top = 439
Width = 185
Height = 122
BevelOuter = bvNone
TabOrder = 16
object Image3: TImage
Left = 0
Top = 0
Width = 185
Height = 122
Stretch = True
OnDblClick = ListBox3DblClick
end
end
object PageControl3: TPageControl
Left = 592
Top = 68
Width = 185
Height = 141
ActivePage = TabSheet7
TabOrder = 17
object TabSheet6: TTabSheet
Caption = 'Scene length'
object Label20: TLabel
Left = 16
Top = 15
Width = 119
Height = 13
Caption = 'Picture sequence length:'
end
object Label21: TLabel
Left = 16
Top = 34
Width = 37
Height = 13
Caption = 'Label21'
end
object Label22: TLabel
Left = 16
Top = 63
Width = 91
Height = 13
Caption = 'Soundtrack length:'
end
object Label23: TLabel
Left = 16
Top = 82
Width = 37
Height = 13
Caption = 'Label23'
end
end
object TabSheet7: TTabSheet
Caption = 'Stats'
ImageIndex = 1
object Label34: TLabel
Left = 16
Top = 16
Width = 61
Height = 13
Caption = 'SceneIndex:'
end
object Label35: TLabel
Left = 90
Top = 16
Width = 12
Height = 13
Caption = '---'
end
object Label32: TLabel
Left = 16
Top = 35
Width = 66
Height = 13
Caption = 'PictureCount:'
end
object Label33: TLabel
Left = 90
Top = 35
Width = 12
Height = 13
Caption = '---'
end
object Label30: TLabel
Left = 16
Top = 54
Width = 65
Height = 13
Caption = 'PictureIndex:'
end
object Label31: TLabel
Left = 90
Top = 54
Width = 12
Height = 13
Caption = '---'
end
object Label36: TLabel
Left = 16
Top = 73
Width = 63
Height = 13
Caption = 'ActionCount:'
end
object Label37: TLabel
Left = 90
Top = 73
Width = 12
Height = 13
Caption = '---'
end
end
object TabSheet8: TTabSheet
Caption = 'Misc'
ImageIndex = 2
object Button20: TButton
Left = 11
Top = 19
Width = 75
Height = 25
Caption = 'Defrag'
TabOrder = 0
OnClick = Button20Click
end
end
end
end
object TabSheet5: TTabSheet
Caption = 'Decision'
ImageIndex = 1
DesignSize = (
791
575)
object Label3: TLabel
Left = 16
Top = 16
Width = 80
Height = 13
Caption = 'Decision-Picture:'
end
object Label10: TLabel
Left = 12
Top = 552
Width = 37
Height = 13
Caption = 'Label10'
end
object Label11: TLabel
Left = 320
Top = 17
Width = 39
Height = 13
Caption = 'Actions:'
end
object Label27: TLabel
Left = 183
Top = 38
Width = 118
Height = 13
Caption = 'Attention: File not found'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Visible = False
end
object Label28: TLabel
Left = 427
Top = 509
Width = 180
Height = 13
Caption = 'Left mouse button: Set top-left coord'
Visible = False
end
object Label29: TLabel
Left = 427
Top = 528
Width = 210
Height = 13
Caption = 'Right mouse button: Set bottom-right coord'
Visible = False
end
object Edit2: TEdit
Left = 12
Top = 35
Width = 134
Height = 21
MaxLength = 13
TabOrder = 0
OnChange = Edit2Change
end
object PageControl1: TPageControl
Left = 12
Top = 64
Width = 365
Height = 185
ActivePage = TabSheet1
TabOrder = 3
object TabSheet1: TTabSheet
Caption = 'Action 1 (Red)'
object Label5: TLabel
Left = 171
Top = 72
Width = 29
Height = 13
Caption = 'Points'
end
object Label4: TLabel
Left = 16
Top = 72
Width = 116
Height = 13
Caption = 'Grid corner coordinates:'
end
object Label6: TLabel
Left = 16
Top = 16
Width = 36
Height = 13
Caption = 'Target:'
end
object SpinEdit6: TSpinEdit
Left = 171
Top = 94
Width = 126
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 5
Value = 0
OnChange = ActionSpinEditsChange
end
object SpinEdit2: TSpinEdit
Left = 79
Top = 91
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 2
Value = 0
OnChange = ActionSpinEditsChange
end
object SpinEdit3: TSpinEdit
Left = 16
Top = 91
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 1
Value = 0
OnChange = ActionSpinEditsChange
end
object SpinEdit4: TSpinEdit
Left = 16
Top = 119
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 3
Value = 0
OnChange = ActionSpinEditsChange
end
object SpinEdit5: TSpinEdit
Left = 79
Top = 119
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 4
Value = 0
OnChange = ActionSpinEditsChange
end
object ComboBox1: TComboBox
Left = 16
Top = 35
Width = 145
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
OnChange = ActionTargetChange
end
end
object TabSheet2: TTabSheet
Caption = 'Action 2 (Green)'
ImageIndex = 1
object Label13: TLabel
Left = 16
Top = 16
Width = 36
Height = 13
Caption = 'Target:'
end
object Label14: TLabel
Left = 16
Top = 72
Width = 116
Height = 13
Caption = 'Grid corner coordinates:'
end
object Label15: TLabel
Left = 171
Top = 72
Width = 29
Height = 13
Caption = 'Points'
end
object ComboBox2: TComboBox
Left = 16
Top = 35
Width = 145
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
OnChange = ActionTargetChange
end
object SpinEdit17: TSpinEdit
Left = 16
Top = 91
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 1
Value = 0
OnChange = ActionSpinEditsChange
end
object SpinEdit18: TSpinEdit
Left = 79
Top = 91
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 2
Value = 0
OnChange = ActionSpinEditsChange
end
object SpinEdit19: TSpinEdit
Left = 16
Top = 119
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 3
Value = 0
OnChange = ActionSpinEditsChange
end
object SpinEdit20: TSpinEdit
Left = 79
Top = 119
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 4
Value = 0
OnChange = ActionSpinEditsChange
end
object SpinEdit21: TSpinEdit
Left = 171
Top = 94
Width = 126
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 5
Value = 0
OnChange = ActionSpinEditsChange
end
end
object TabSheet3: TTabSheet
Caption = 'Action 3 (Blue)'
ImageIndex = 2
object Label7: TLabel
Left = 16
Top = 16
Width = 36
Height = 13
Caption = 'Target:'
end
object Label8: TLabel
Left = 16
Top = 72
Width = 116
Height = 13
Caption = 'Grid corner coordinates:'
end
object Label9: TLabel
Left = 171
Top = 72
Width = 29
Height = 13
Caption = 'Points'
end
object ComboBox3: TComboBox
Left = 16
Top = 35
Width = 145
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
OnChange = ActionTargetChange
end
object SpinEdit7: TSpinEdit
Left = 16
Top = 91
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 1
Value = 0
OnChange = ActionSpinEditsChange
end
object SpinEdit8: TSpinEdit
Left = 79
Top = 91
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 2
Value = 0
OnChange = ActionSpinEditsChange
end
object SpinEdit9: TSpinEdit
Left = 79
Top = 119
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 4
Value = 0
OnChange = ActionSpinEditsChange
end
object SpinEdit10: TSpinEdit
Left = 16
Top = 119
Width = 57
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 3
Value = 0
OnChange = ActionSpinEditsChange
end
object SpinEdit11: TSpinEdit
Left = 171
Top = 94
Width = 126
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 5
Value = 0
OnChange = ActionSpinEditsChange
end
end
end
object SpinEdit12: TSpinEdit
Left = 320
Top = 36
Width = 57
Height = 22
MaxValue = 3
MinValue = 1
TabOrder = 2
Value = 1
OnChange = SpinEdit12Change
end
object Button11: TButton
Left = 147
Top = 35
Width = 30
Height = 21
Hint = 'Open file'
Caption = '1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Wingdings'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
Visible = False
OnClick = Button11Click
end
object Panel1: TPanel
Left = 12
Top = 255
Width = 409
Height = 291
BevelOuter = bvNone
TabOrder = 5
object Image1: TImage
Left = 0
Top = 1
Width = 409
Height = 290
Cursor = crCross
Stretch = True
OnMouseDown = Image1MouseDown
OnMouseEnter = Image1MouseEnter
OnMouseLeave = Image1MouseLeave
OnMouseMove = Image1MouseMove
end
end
object CheckBox1: TCheckBox
Left = 651
Top = 547
Width = 137
Height = 17
Anchors = [akRight, akBottom]
Caption = 'Show disabled hotspots'
TabOrder = 4
OnClick = CheckBox1Click
end
end
end
object Button14: TButton
Left = 8
Top = 534
Width = 75
Height = 25
Hint = 'Create a new GAME.BIN'
Anchors = [akLeft, akBottom]
Caption = 'New'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = Button14Click
end
object Button19: TButton
Left = 119
Top = 534
Width = 98
Height = 25
Anchors = [akLeft, akBottom]
Caption = 'Discard changes'
TabOrder = 6
OnClick = Button19Click
end
object Timer1: TTimer
Enabled = False
Interval = 100
OnTimer = Timer1Timer
Left = 955
Top = 408
end
object MainMenu1: TMainMenu
Left = 19
Top = 8
object File1: TMenuItem
Caption = 'File'
object Newfile1: TMenuItem
Caption = 'New file'
OnClick = Button14Click
end
object N2: TMenuItem
Caption = '-'
end
object Savetogamebin1: TMenuItem
Caption = 'Save to GAME.BIN'
OnClick = Button3Click
end
object Saveandtest1: TMenuItem
Caption = 'Save to GAME.BIN and Test'
OnClick = Button10Click
end
object N1: TMenuItem
Caption = '-'
end
object Close1: TMenuItem
Caption = 'Close program'
OnClick = Close1Click
end
end
object Help1: TMenuItem
Caption = 'Help'
object About1: TMenuItem
Caption = 'About'
OnClick = About1Click
end
end
end
object PopupMenu1: TPopupMenu
Left = 739
Top = 496
object Addtoscene1: TMenuItem
Caption = 'Add to scene'
OnClick = Addtoscene1Click
end
end
end