Subversion Repositories plumbers

Rev

Rev 7 | Rev 10 | Go to most recent revision | 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
  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
    Anchors = [akLeft, akBottom]
    Caption = '+'
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 184
    Top = 492
    Width = 33
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = '-'
    TabOrder = 4
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 8
    Top = 565
    Width = 105
    Height = 46
    Anchors = [akLeft, akBottom]
    Caption = 'Save'
    TabOrder = 6
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 8
    Top = 492
    Width = 33
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = '^'
    TabOrder = 1
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 47
    Top = 492
    Width = 33
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'v'
    TabOrder = 2
    OnClick = Button5Click
  end
  object Button10: TButton
    Left = 112
    Top = 565
    Width = 105
    Height = 46
    Anchors = [akLeft, akBottom]
    Caption = 'Save + Test'
    TabOrder = 7
    OnClick = Button10Click
  end
  object PageControl2: TPageControl
    Left = 223
    Top = 8
    Width = 799
    Height = 603
    ActivePage = TabSheet4
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 8
    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 = 684
        Top = 371
        Width = 29
        Height = 30
        ColoredButtons = []
        VisibleButtons = [btPlay]
        DoubleBuffered = True
        Visible = False
        ParentDoubleBuffered = False
        TabOrder = 14
      end
      object GroupBox1: TGroupBox
        Left = 591
        Top = 63
        Width = 185
        Height = 121
        Caption = 'Scene length'
        TabOrder = 15
        object Label20: TLabel
          Left = 16
          Top = 24
          Width = 119
          Height = 13
          Caption = 'Picture sequence length:'
        end
        object Label21: TLabel
          Left = 16
          Top = 43
          Width = 37
          Height = 13
          Caption = 'Label21'
        end
        object Label22: TLabel
          Left = 16
          Top = 72
          Width = 91
          Height = 13
          Caption = 'Soundtrack length:'
        end
        object Label23: TLabel
          Left = 16
          Top = 91
          Width = 37
          Height = 13
          Caption = 'Label23'
        end
      end
      object GroupBox2: TGroupBox
        Left = 591
        Top = 190
        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 = 125
        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
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Wingdings'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        Visible = False
        OnClick = Button12Click
      end
      object Button18: TButton
        Left = 210
        Top = 60
        Width = 31
        Height = 21
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Wingdings'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Visible = False
        OnClick = Button18Click
      end
      object Panel2: TPanel
        Left = 272
        Top = 189
        Width = 305
        Height = 212
        BevelOuter = bvNone
        TabOrder = 16
        object Image2: TImage
          Left = 0
          Top = 1
          Width = 305
          Height = 211
          Stretch = True
          OnDblClick = Button12Click
        end
      end
      object Panel3: TPanel
        Left = 583
        Top = 439
        Width = 194
        Height = 122
        BevelOuter = bvNone
        TabOrder = 17
        object Image3: TImage
          Left = 8
          Top = 0
          Width = 177
          Height = 108
          Stretch = True
          OnDblClick = ListBox3DblClick
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Decision'
      ImageIndex = 1
      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 = TabSheet3
        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
            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
            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
            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
        Caption = '1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Wingdings'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Visible = False
        OnClick = Button11Click
      end
      object Panel1: TPanel
        Left = 12
        Top = 255
        Width = 409
        Height = 291
        BevelOuter = bvNone
        TabOrder = 4
        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
    end
  end
  object Button14: TButton
    Left = 8
    Top = 534
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'New'
    TabOrder = 5
    OnClick = Button14Click
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 955
    Top = 408
  end
  object MainMenu1: TMainMenu
    Left = 963
    Top = 496
    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 = 'Terminate 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