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

Subversion Repositories plumbers

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