WebSVN – plumbers – Diff – /trunk/SceneEditor/Unit1.dfm


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

Rev 7	Rev 8
1	object Form1: TForm1	1	object Form1: TForm1
2	Left = 0	2	Left = 0
3	Top = 0	3	Top = 0
4	Caption = 'ShowTime Editor'	4	Caption = 'ShowTime Editor'
5	ClientHeight = 619	5	ClientHeight = 619
6	ClientWidth = 1030	6	ClientWidth = 1030
7	Color = clBtnFace	7	Color = clBtnFace
8	Constraints.MinHeight = 677	8	Constraints.MinHeight = 677
9	Constraints.MinWidth = 1046	9	Constraints.MinWidth = 1046
10	Font.Charset = DEFAULT_CHARSET	10	Font.Charset = DEFAULT_CHARSET
11	Font.Color = clWindowText	11	Font.Color = clWindowText
12	Font.Height = -11	12	Font.Height = -11
13	Font.Name = 'Tahoma'	13	Font.Name = 'Tahoma'
14	Font.Style = []	14	Font.Style = []
15	Menu = MainMenu1	15	Menu = MainMenu1
16	OldCreateOrder = False	16	OldCreateOrder = False
17	Position = poScreenCenter	17	Position = poScreenCenter
18	OnCreate = FormCreate	18	OnCreate = FormCreate
19	OnShow = FormShow	19	OnShow = FormShow
20	DesignSize = (	20	DesignSize = (
21	1030	21	1030
22	619)	22	619)
23	PixelsPerInch = 96	23	PixelsPerInch = 96
24	TextHeight = 13	24	TextHeight = 13
25	object ListBox1: TListBox	25	object ListBox1: TListBox
26	Left = 8	26	Left = 8
27	Top = 8	27	Top = 8
28	Width = 209	28	Width = 209
29	Height = 478	29	Height = 478
30	Anchors = [akLeft, akTop, akBottom]	30	Anchors = [akLeft, akTop, akBottom]
31	ItemHeight = 13	31	ItemHeight = 13
32	Items.Strings = (	32	Items.Strings = (
33	'SC99'	33	'SC99'
34	'SC00'	34	'SC00'
35	'SC01'	35	'SC01'
36	'SC02')	36	'SC02')
37	TabOrder = 0	37	TabOrder = 0
38	OnClick = ListBox1Click	38	OnClick = ListBox1Click
39	OnDblClick = ListBox1DblClick	39	OnDblClick = ListBox1DblClick
40	ExplicitHeight = 466	-
41	end	40	end
42	object Button1: TButton	41	object Button1: TButton
43	Left = 145	42	Left = 145
44	Top = 492	43	Top = 492
45	Width = 33	44	Width = 33
46	Height = 25	45	Height = 25
47	Anchors = [akLeft, akBottom]	46	Anchors = [akLeft, akBottom]
48	Caption = '+'	47	Caption = '+'
49	TabOrder = 3	48	TabOrder = 3
50	OnClick = Button1Click	49	OnClick = Button1Click
51	ExplicitTop = 488	-
52	end	50	end
53	object Button2: TButton	51	object Button2: TButton
54	Left = 184	52	Left = 184
55	Top = 492	53	Top = 492
56	Width = 33	54	Width = 33
57	Height = 25	55	Height = 25
58	Anchors = [akLeft, akBottom]	56	Anchors = [akLeft, akBottom]
59	Caption = '-'	57	Caption = '-'
60	TabOrder = 4	58	TabOrder = 4
61	OnClick = Button2Click	59	OnClick = Button2Click
62	ExplicitTop = 488	-
63	end	60	end
64	object Button3: TButton	61	object Button3: TButton
65	Left = 8	62	Left = 8
66	Top = 565	63	Top = 565
67	Width = 105	64	Width = 105
68	Height = 46	65	Height = 46
69	Anchors = [akLeft, akBottom]	66	Anchors = [akLeft, akBottom]
70	Caption = 'Save'	67	Caption = 'Save'
71	TabOrder = 6	68	TabOrder = 6
72	OnClick = Button3Click	69	OnClick = Button3Click
73	ExplicitTop = 534	-
74	end	70	end
75	object Button4: TButton	71	object Button4: TButton
76	Left = 8	72	Left = 8
77	Top = 492	73	Top = 492
78	Width = 33	74	Width = 33
79	Height = 25	75	Height = 25
80	Anchors = [akLeft, akBottom]	76	Anchors = [akLeft, akBottom]
81	Caption = '^'	77	Caption = '^'
82	TabOrder = 1	78	TabOrder = 1
83	OnClick = Button4Click	79	OnClick = Button4Click
84	ExplicitTop = 488	-
85	end	80	end
86	object Button5: TButton	81	object Button5: TButton
87	Left = 47	82	Left = 47
88	Top = 492	83	Top = 492
89	Width = 33	84	Width = 33
90	Height = 25	85	Height = 25
91	Anchors = [akLeft, akBottom]	86	Anchors = [akLeft, akBottom]
92	Caption = 'v'	87	Caption = 'v'
93	TabOrder = 2	88	TabOrder = 2
94	OnClick = Button5Click	89	OnClick = Button5Click
95	ExplicitTop = 488	-
96	end	90	end
97	object Button10: TButton	91	object Button10: TButton
98	Left = 112	92	Left = 112
99	Top = 565	93	Top = 565
100	Width = 105	94	Width = 105
101	Height = 46	95	Height = 46
102	Anchors = [akLeft, akBottom]	96	Anchors = [akLeft, akBottom]
103	Caption = 'Save + Test'	97	Caption = 'Save + Test'
104	TabOrder = 7	98	TabOrder = 7
105	OnClick = Button10Click	99	OnClick = Button10Click
106	ExplicitTop = 534	-
107	end	100	end
108	object PageControl2: TPageControl	101	object PageControl2: TPageControl
109	Left = 223	102	Left = 223
110	Top = 8	103	Top = 8
111	Width = 799	104	Width = 799
112	Height = 603	105	Height = 603
113	ActivePage = TabSheet5	106	ActivePage = TabSheet4
114	Anchors = [akLeft, akTop, akRight, akBottom]	107	Anchors = [akLeft, akTop, akRight, akBottom]
115	TabOrder = 8	108	TabOrder = 8
116	ExplicitWidth = 812	-
117	ExplicitHeight = 572	-
118	object TabSheet4: TTabSheet	109	object TabSheet4: TTabSheet
119	Caption = 'Pictures'	110	Caption = 'Pictures'
120	ExplicitWidth = 804	-
121	ExplicitHeight = 544	-
122	DesignSize = (	111	DesignSize = (
123	791	112	791
124	575)	113	575)
125	object Label1: TLabel	114	object Label1: TLabel
126	Left = 16	115	Left = 16
127	Top = 24	116	Top = 24
128	Width = 77	117	Width = 77
129	Height = 13	118	Height = 13
130	Caption = 'SceneID (0-99):'	119	Caption = 'SceneID (0-99):'
131	end	120	end
132	object Label2: TLabel	121	object Label2: TLabel
133	Left = 15	122	Left = 15
134	Top = 63	123	Top = 63
135	Width = 79	124	Width = 79
136	Height = 13	125	Height = 13
137	Caption = 'Sound playback:'	126	Caption = 'Sound playback:'
138	end	127	end
139	object Label12: TLabel	128	object Label12: TLabel
140	Left = 272	129	Left = 272
141	Top = 127	130	Top = 127
142	Width = 67	131	Width = 67
143	Height = 13	132	Height = 13
144	Caption = 'Duration [ds]:'	133	Caption = 'Duration [ds]:'
145	end	134	end
146	object Label16: TLabel	135	object Label16: TLabel
147	Left = 368	136	Left = 368
148	Top = 124	137	Top = 124
149	Width = 46	138	Width = 46
150	Height = 13	139	Height = 13
151	Caption = 'Filename:'	140	Caption = 'Filename:'
152	end	141	end
153	object Label17: TLabel	142	object Label17: TLabel
154	Left = 162	143	Left = 162
155	Top = 24	144	Top = 24
156	Width = 126	145	Width = 126
157	Height = 13	146	Height = 13
158	Caption = 'Attention: ID exists twice!'	147	Caption = 'Attention: ID exists twice!'
159	Font.Charset = DEFAULT_CHARSET	148	Font.Charset = DEFAULT_CHARSET
160	Font.Color = clRed	149	Font.Color = clRed
161	Font.Height = -11	150	Font.Height = -11
162	Font.Name = 'Tahoma'	151	Font.Name = 'Tahoma'
163	Font.Style = []	152	Font.Style = []
164	ParentFont = False	153	ParentFont = False
165	Visible = False	154	Visible = False
166	end	155	end
167	object Label19: TLabel	156	object Label19: TLabel
168	Left = 272	157	Left = 272
169	Top = 420	158	Top = 420
170	Width = 62	159	Width = 62
171	Height = 13	160	Height = 13
172	Caption = 'Unused files:'	161	Caption = 'Unused files:'
173	end	162	end
174	object Label24: TLabel	163	object Label24: TLabel
175	Left = 247	164	Left = 247
176	Top = 63	165	Top = 63
177	Width = 118	166	Width = 118
178	Height = 13	167	Height = 13
179	Caption = 'Attention: File not found'	168	Caption = 'Attention: File not found'
180	Font.Charset = DEFAULT_CHARSET	169	Font.Charset = DEFAULT_CHARSET
181	Font.Color = clRed	170	Font.Color = clRed
182	Font.Height = -11	171	Font.Height = -11
183	Font.Name = 'Tahoma'	172	Font.Name = 'Tahoma'
184	Font.Style = []	173	Font.Style = []
185	ParentFont = False	174	ParentFont = False
186	Visible = False	175	Visible = False
187	end	176	end
188	object Label25: TLabel	177	object Label25: TLabel
189	Left = 247	178	Left = 247
190	Top = 82	179	Top = 82
191	Width = 222	180	Width = 222
192	Height = 13	181	Height = 13
193	Caption = 'Attention: Low Quality file (E*.wav) not found'	182	Caption = 'Attention: Low Quality file (E*.wav) not found'
194	Font.Charset = DEFAULT_CHARSET	183	Font.Charset = DEFAULT_CHARSET
195	Font.Color = clRed	184	Font.Color = clRed
196	Font.Height = -11	185	Font.Height = -11
197	Font.Name = 'Tahoma'	186	Font.Name = 'Tahoma'
198	Font.Style = []	187	Font.Style = []
199	ParentFont = False	188	ParentFont = False
200	Visible = False	189	Visible = False
201	end	190	end
202	object Label26: TLabel	191	object Label26: TLabel
203	Left = 368	192	Left = 368
204	Top = 170	193	Top = 170
205	Width = 118	194	Width = 118
206	Height = 13	195	Height = 13
207	Caption = 'Attention: File not found'	196	Caption = 'Attention: File not found'
208	Font.Charset = DEFAULT_CHARSET	197	Font.Charset = DEFAULT_CHARSET
209	Font.Color = clRed	198	Font.Color = clRed
210	Font.Height = -11	199	Font.Height = -11
211	Font.Name = 'Tahoma'	200	Font.Name = 'Tahoma'
212	Font.Style = []	201	Font.Style = []
213	ParentFont = False	202	ParentFont = False
214	Visible = False	203	Visible = False
215	end	204	end
216	object SpinEdit1: TSpinEdit	205	object SpinEdit1: TSpinEdit
217	Left = 99	206	Left = 99
218	Top = 21	207	Top = 21
219	Width = 57	208	Width = 57
220	Height = 22	209	Height = 22
221	MaxValue = 99	210	MaxValue = 99
222	MinValue = 0	211	MinValue = 0
223	TabOrder = 0	212	TabOrder = 0
224	Value = 0	213	Value = 0
225	OnChange = SpinEdit1Change	214	OnChange = SpinEdit1Change
226	end	215	end
227	object Edit1: TEdit	216	object Edit1: TEdit
228	Left = 100	217	Left = 100
229	Top = 60	218	Top = 60
230	Width = 104	219	Width = 104
231	Height = 21	220	Height = 21
232	MaxLength = 13	221	MaxLength = 13
233	TabOrder = 1	222	TabOrder = 1
234	OnChange = Edit1Change	223	OnChange = Edit1Change
235	end	224	end
236	object Button6: TButton	225	object Button6: TButton
237	Left = 177	226	Left = 177
238	Top = 533	227	Top = 533
239	Width = 33	228	Width = 33
240	Height = 25	229	Height = 25
241	Anchors = [akLeft, akBottom]	230	Anchors = [akLeft, akBottom]
242	Caption = '+'	231	Caption = '+'
243	TabOrder = 6	232	TabOrder = 6
244	OnClick = Button6Click	233	OnClick = Button6Click
245	ExplicitTop = 517	-
246	end	234	end
247	object Button7: TButton	235	object Button7: TButton
248	Left = 216	236	Left = 216
249	Top = 533	237	Top = 533
250	Width = 33	238	Width = 33
251	Height = 25	239	Height = 25
252	Anchors = [akLeft, akBottom]	240	Anchors = [akLeft, akBottom]
253	Caption = '-'	241	Caption = '-'
254	TabOrder = 7	242	TabOrder = 7
255	OnClick = Button7Click	243	OnClick = Button7Click
256	ExplicitTop = 517	-
257	end	244	end
258	object Button8: TButton	245	object Button8: TButton
259	Left = 11	246	Left = 11
260	Top = 533	247	Top = 533
261	Width = 33	248	Width = 33
262	Height = 25	249	Height = 25
263	Anchors = [akLeft, akBottom]	250	Anchors = [akLeft, akBottom]
264	Caption = '^'	251	Caption = '^'
265	TabOrder = 4	252	TabOrder = 4
266	OnClick = Button8Click	253	OnClick = Button8Click
267	ExplicitTop = 517	-
268	end	254	end
269	object Button9: TButton	255	object Button9: TButton
270	Left = 50	256	Left = 50
271	Top = 533	257	Top = 533
272	Width = 33	258	Width = 33
273	Height = 25	259	Height = 25
274	Anchors = [akLeft, akBottom]	260	Anchors = [akLeft, akBottom]
275	Caption = 'v'	261	Caption = 'v'
276	TabOrder = 5	262	TabOrder = 5
277	OnClick = Button9Click	263	OnClick = Button9Click
278	ExplicitTop = 517	-
279	end	264	end
280	object ListBox2: TListBox	265	object ListBox2: TListBox
281	Left = 10	266	Left = 10
282	Top = 127	267	Top = 127
283	Width = 239	268	Width = 239
284	Height = 400	269	Height = 400
285	Anchors = [akLeft, akTop, akBottom]	270	Anchors = [akLeft, akTop, akBottom]
286	ItemHeight = 13	271	ItemHeight = 13
287	TabOrder = 3	272	TabOrder = 3
288	OnClick = ListBox2Click	273	OnClick = ListBox2Click
289	OnDblClick = ListBox2DblClick	274	OnDblClick = ListBox2DblClick
290	ExplicitHeight = 396	-
291	end	275	end
292	object Edit3: TEdit	276	object Edit3: TEdit
293	Left = 368	277	Left = 368
294	Top = 143	278	Top = 143
295	Width = 137	279	Width = 137
296	Height = 21	280	Height = 21
297	TabOrder = 9	281	TabOrder = 9
298	OnChange = Edit3Change	282	OnChange = Edit3Change
299	end	283	end
300	object SpinEdit13: TSpinEdit	284	object SpinEdit13: TSpinEdit
301	Left = 272	285	Left = 272
302	Top = 143	286	Top = 143
303	Width = 65	287	Width = 65
304	Height = 22	288	Height = 22
305	MaxValue = 0	289	MaxValue = 0
306	MinValue = 0	290	MinValue = 0
307	TabOrder = 8	291	TabOrder = 8
308	Value = 0	292	Value = 0
309	OnChange = SpinEdit13Change	293	OnChange = SpinEdit13Change
310	end	294	end
311	object Button13: TButton	295	object Button13: TButton
312	Left = 656	296	Left = 656
313	Top = 19	297	Top = 19
314	Width = 120	298	Width = 120
315	Height = 25	299	Height = 25
316	Caption = 'Open scene folder'	300	Caption = 'Open scene folder'
317	TabOrder = 12	301	TabOrder = 12
318	OnClick = Button13Click	302	OnClick = Button13Click
319	end	303	end
320	object MediaPlayer1: TMediaPlayer	304	object MediaPlayer1: TMediaPlayer
321	Left = 684	305	Left = 684
322	Top = 371	306	Top = 371
323	Width = 29	307	Width = 29
324	Height = 30	308	Height = 30
325	ColoredButtons = []	309	ColoredButtons = []
326	VisibleButtons = [btPlay]	310	VisibleButtons = [btPlay]
327	DoubleBuffered = True	311	DoubleBuffered = True
328	Visible = False	312	Visible = False
329	ParentDoubleBuffered = False	313	ParentDoubleBuffered = False
330	TabOrder = 14	314	TabOrder = 14
331	end	315	end
332	object GroupBox1: TGroupBox	316	object GroupBox1: TGroupBox
333	Left = 591	317	Left = 591
334	Top = 63	318	Top = 63
335	Width = 185	319	Width = 185
336	Height = 121	320	Height = 121
337	Caption = 'Scene length'	321	Caption = 'Scene length'
338	TabOrder = 15	322	TabOrder = 15
339	object Label20: TLabel	323	object Label20: TLabel
340	Left = 16	324	Left = 16
341	Top = 24	325	Top = 24
342	Width = 119	326	Width = 119
343	Height = 13	327	Height = 13
344	Caption = 'Picture sequence length:'	328	Caption = 'Picture sequence length:'
345	end	329	end
346	object Label21: TLabel	330	object Label21: TLabel
347	Left = 16	331	Left = 16
348	Top = 43	332	Top = 43
349	Width = 37	333	Width = 37
350	Height = 13	334	Height = 13
351	Caption = 'Label21'	335	Caption = 'Label21'
352	end	336	end
353	object Label22: TLabel	337	object Label22: TLabel
354	Left = 16	338	Left = 16
355	Top = 72	339	Top = 72
356	Width = 91	340	Width = 91
357	Height = 13	341	Height = 13
358	Caption = 'Soundtrack length:'	342	Caption = 'Soundtrack length:'
359	end	343	end
360	object Label23: TLabel	344	object Label23: TLabel
361	Left = 16	345	Left = 16
362	Top = 91	346	Top = 91
363	Width = 37	347	Width = 37
364	Height = 13	348	Height = 13
365	Caption = 'Label23'	349	Caption = 'Label23'
366	end	350	end
367	end	351	end
368	object GroupBox2: TGroupBox	352	object GroupBox2: TGroupBox
369	Left = 591	353	Left = 591
370	Top = 190	354	Top = 190
371	Width = 185	355	Width = 185
372	Height = 167	356	Height = 167
373	Caption = 'Playback'	357	Caption = 'Playback'
374	TabOrder = 13	358	TabOrder = 13
375	object Label18: TLabel	359	object Label18: TLabel
376	Left = 14	360	Left = 14
377	Top = 128	361	Top = 128
378	Width = 153	362	Width = 153
379	Height = 24	363	Height = 24
380	Alignment = taCenter	364	Alignment = taCenter
381	AutoSize = False	365	AutoSize = False
382	Caption = 'Label18'	366	Caption = 'Label18'
383	Font.Charset = DEFAULT_CHARSET	367	Font.Charset = DEFAULT_CHARSET
384	Font.Color = clWindowText	368	Font.Color = clWindowText
385	Font.Height = -20	369	Font.Height = -20
386	Font.Name = 'Tahoma'	370	Font.Name = 'Tahoma'
387	Font.Style = []	371	Font.Style = []
388	ParentFont = False	372	ParentFont = False
389	end	373	end
390	object Button15: TButton	374	object Button15: TButton
391	Left = 23	375	Left = 23
392	Top = 27	376	Top = 27
393	Width = 137	377	Width = 137
394	Height = 25	378	Height = 25
395	Caption = 'Start from here'	379	Caption = 'Start from here'
396	TabOrder = 0	380	TabOrder = 0
397	OnClick = Button15Click	381	OnClick = Button15Click
398	end	382	end
399	object Button17: TButton	383	object Button17: TButton
400	Left = 22	384	Left = 22
401	Top = 89	385	Top = 89
402	Width = 137	386	Width = 137
403	Height = 25	387	Height = 25
404	Caption = 'Stop'	388	Caption = 'Stop'
405	TabOrder = 2	389	TabOrder = 2
406	OnClick = Button17Click	390	OnClick = Button17Click
407	end	391	end
408	object Button16: TButton	392	object Button16: TButton
409	Left = 23	393	Left = 23
410	Top = 58	394	Top = 58
411	Width = 137	395	Width = 137
412	Height = 25	396	Height = 25
413	Caption = 'Start from beginning'	397	Caption = 'Start from beginning'
414	TabOrder = 1	398	TabOrder = 1
415	OnClick = Button16Click	399	OnClick = Button16Click
416	end	400	end
417	end	401	end
418	object ListBox3: TListBox	402	object ListBox3: TListBox
419	Left = 272	403	Left = 272
420	Top = 439	404	Top = 439
421	Width = 305	405	Width = 305
422	Height = 125	406	Height = 125
423	Anchors = [akLeft, akTop, akBottom]	407	Anchors = [akLeft, akTop, akBottom]
424	ItemHeight = 13	408	ItemHeight = 13
425	PopupMenu = PopupMenu1	409	PopupMenu = PopupMenu1
426	TabOrder = 11	410	TabOrder = 11
-		411	OnClick = ListBox3Click
427	OnDblClick = ListBox3DblClick	412	OnDblClick = ListBox3DblClick
428	OnMouseDown = ListBox3MouseDown	413	OnMouseDown = ListBox3MouseDown
429	end	414	end
430	object Button12: TButton	415	object Button12: TButton
431	Left = 511	416	Left = 511
432	Top = 143	417	Top = 143
433	Width = 26	418	Width = 26
434	Height = 21	419	Height = 21
435	Caption = '1'	420	Caption = '1'
436	Font.Charset = DEFAULT_CHARSET	421	Font.Charset = DEFAULT_CHARSET
437	Font.Color = clWindowText	422	Font.Color = clWindowText
438	Font.Height = -15	423	Font.Height = -15
439	Font.Name = 'Wingdings'	424	Font.Name = 'Wingdings'
440	Font.Style = []	425	Font.Style = []
441	ParentFont = False	426	ParentFont = False
442	TabOrder = 10	427	TabOrder = 10
443	Visible = False	428	Visible = False
444	OnClick = Button12Click	429	OnClick = Button12Click
445	end	430	end
446	object Button18: TButton	431	object Button18: TButton
447	Left = 210	432	Left = 210
448	Top = 60	433	Top = 60
449	Width = 31	434	Width = 31
450	Height = 21	435	Height = 21
451	Caption = '1'	436	Caption = '1'
452	Font.Charset = DEFAULT_CHARSET	437	Font.Charset = DEFAULT_CHARSET
453	Font.Color = clWindowText	438	Font.Color = clWindowText
454	Font.Height = -15	439	Font.Height = -15
455	Font.Name = 'Wingdings'	440	Font.Name = 'Wingdings'
456	Font.Style = []	441	Font.Style = []
457	ParentFont = False	442	ParentFont = False
458	TabOrder = 2	443	TabOrder = 2
459	Visible = False	444	Visible = False
460	OnClick = Button18Click	445	OnClick = Button18Click
461	end	446	end
462	object Panel2: TPanel	447	object Panel2: TPanel
463	Left = 272	448	Left = 272
464	Top = 189	449	Top = 189
465	Width = 305	450	Width = 305
466	Height = 212	451	Height = 212
467	BevelOuter = bvNone	452	BevelOuter = bvNone
468	TabOrder = 16	453	TabOrder = 16
469	object Image2: TImage	454	object Image2: TImage
470	Left = 0	455	Left = 0
471	Top = 1	456	Top = 1
472	Width = 305	457	Width = 305
473	Height = 211	458	Height = 211
474	Stretch = True	459	Stretch = True
475	OnMouseMove = Image1MouseMove	460	OnDblClick = Button12Click
-		461	end
-		462	end
-		463	object Panel3: TPanel
-		464	Left = 583
-		465	Top = 439
-		466	Width = 194
-		467	Height = 122
-		468	BevelOuter = bvNone
-		469	TabOrder = 17
-		470	object Image3: TImage
-		471	Left = 8
-		472	Top = 0
-		473	Width = 177
-		474	Height = 108
-		475	Stretch = True
-		476	OnDblClick = ListBox3DblClick
476	end	477	end
477	end	478	end
478	end	479	end
479	object TabSheet5: TTabSheet	480	object TabSheet5: TTabSheet
480	Caption = 'Decision'	481	Caption = 'Decision'
481	ImageIndex = 1	482	ImageIndex = 1
482	ExplicitWidth = 804	-
483	ExplicitHeight = 573	-

Subversion Repositories plumbers

plumbers/trunk/SceneEditor/Unit1.dfm – Rev 7 → 8