Subversion Repositories plumbers

Rev

Rev 8 | Rev 11 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8 Rev 10
Line 13... Line 13...
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 
  OnCloseQuery = FormCloseQuery
18 
  OnCreate = FormCreate
 19 
  OnCreate = FormCreate
19 
  OnShow = FormShow
 20 
  OnShow = FormShow
20 
  DesignSize = (
 21 
  DesignSize = (
21 
    1030
 22 
    1030
22 
    619)
 23 
    619)
Line 63... Line 64...
63 
    Top = 565
 64 
    Top = 565
64 
    Width = 105
 65 
    Width = 105
65 
    Height = 46
 66 
    Height = 46
66 
    Anchors = [akLeft, akBottom]
 67 
    Anchors = [akLeft, akBottom]
67 
    Caption = 'Save'
 68 
    Caption = 'Save'
68 
    TabOrder = 6
 69 
    TabOrder = 7
69 
    OnClick = Button3Click
 70 
    OnClick = Button3Click
70 
  end
 71 
  end
71 
  object Button4: TButton
 72 
  object Button4: TButton
72 
    Left = 8
 73 
    Left = 8
73 
    Top = 492
 74 
    Top = 492
Line 93... Line 94...
93 
    Top = 565
 94 
    Top = 565
94 
    Width = 105
 95 
    Width = 105
95 
    Height = 46
 96 
    Height = 46
96 
    Anchors = [akLeft, akBottom]
 97 
    Anchors = [akLeft, akBottom]
97 
    Caption = 'Save + Test'
 98 
    Caption = 'Save + Test'
98 
    TabOrder = 7
 99 
    TabOrder = 8
99 
    OnClick = Button10Click
 100 
    OnClick = Button10Click
100 
  end
 101 
  end
101 
  object PageControl2: TPageControl
 102 
  object PageControl2: TPageControl
102 
    Left = 223
 103 
    Left = 223
103 
    Top = 8
 104 
    Top = 8
104 
    Width = 799
 105 
    Width = 799
105 
    Height = 603
 106 
    Height = 603
106 
    ActivePage = TabSheet4
 107 
    ActivePage = TabSheet4
107 
    Anchors = [akLeft, akTop, akRight, akBottom]
 108 
    Anchors = [akLeft, akTop, akRight, akBottom]
108 
    TabOrder = 8
 109 
    TabOrder = 9
109 
    object TabSheet4: TTabSheet
 110 
    object TabSheet4: TTabSheet
110 
      Caption = 'Pictures'
 111 
      Caption = 'Pictures'
111 
      DesignSize = (
 112 
      DesignSize = (
112 
        791
 113 
        791
113 
        575)
 114 
        575)
Line 300... Line 301...
300 
        Caption = 'Open scene folder'
 301 
        Caption = 'Open scene folder'
301 
        TabOrder = 12
 302 
        TabOrder = 12
302 
        OnClick = Button13Click
 303 
        OnClick = Button13Click
303 
      end
 304 
      end
304 
      object MediaPlayer1: TMediaPlayer
 305 
      object MediaPlayer1: TMediaPlayer
305 
        Left = 684
 306 
        Left = 604
306 
        Top = 371
 307 
        Top = 21
307 
        Width = 29
 308 
        Width = 29
308 
        Height = 30
 309 
        Height = 25
309 
        ColoredButtons = []
 310 
        ColoredButtons = []
310 
        VisibleButtons = [btPlay]
 311 
        VisibleButtons = [btPlay]
311 
        DoubleBuffered = True
 - 
 
312 
        Visible = False
 312 
        Visible = False
313 
        ParentDoubleBuffered = False
 - 
 
314 
        TabOrder = 14
 313 
        TabOrder = 14
315 
      end
 314 
      end
316 
      object GroupBox1: TGroupBox
 - 
 
317 
        Left = 591
 - 
 
318 
        Top = 63
 - 
 
319 
        Width = 185
 - 
 
320 
        Height = 121
 - 
 
321 
        Caption = 'Scene length'
 - 
 
322 
        TabOrder = 15
 - 
 
323 
        object Label20: TLabel
 - 
 
324 
          Left = 16
 - 
 
325 
          Top = 24
 - 
 
326 
          Width = 119
 - 
 
327 
          Height = 13
 - 
 
328 
          Caption = 'Picture sequence length:'
 - 
 
329 
        end
 - 
 
330 
        object Label21: TLabel
 - 
 
331 
          Left = 16
 - 
 
332 
          Top = 43
 - 
 
333 
          Width = 37
 - 
 
334 
          Height = 13
 - 
 
335 
          Caption = 'Label21'
 - 
 
336 
        end
 - 
 
337 
        object Label22: TLabel
 - 
 
338 
          Left = 16
 - 
 
339 
          Top = 72
 - 
 
340 
          Width = 91
 - 
 
341 
          Height = 13
 - 
 
342 
          Caption = 'Soundtrack length:'
 - 
 
343 
        end
 - 
 
344 
        object Label23: TLabel
 - 
 
345 
          Left = 16
 - 
 
346 
          Top = 91
 - 
 
347 
          Width = 37
 - 
 
348 
          Height = 13
 - 
 
349 
          Caption = 'Label23'
 - 
 
350 
        end
 - 
 
351 
      end
 - 
 
352 
      object GroupBox2: TGroupBox
 315 
      object GroupBox2: TGroupBox
353 
        Left = 591
 316 
        Left = 591
354 
        Top = 190
 317 
        Top = 234
355 
        Width = 185
 318 
        Width = 185
356 
        Height = 167
 319 
        Height = 167
357 
        Caption = 'Playback'
 320 
        Caption = 'Playback'
358 
        TabOrder = 13
 321 
        TabOrder = 13
359 
        object Label18: TLabel
 322 
        object Label18: TLabel
Line 401... Line 364...
401 
      end
 364 
      end
402 
      object ListBox3: TListBox
 365 
      object ListBox3: TListBox
403 
        Left = 272
 366 
        Left = 272
404 
        Top = 439
 367 
        Top = 439
405 
        Width = 305
 368 
        Width = 305
406 
        Height = 125
 369 
        Height = 122
407 
        Anchors = [akLeft, akTop, akBottom]
 370 
        Anchors = [akLeft, akTop, akBottom]
408 
        ItemHeight = 13
 371 
        ItemHeight = 13
409 
        PopupMenu = PopupMenu1
 372 
        PopupMenu = PopupMenu1
410 
        TabOrder = 11
 373 
        TabOrder = 11
411 
        OnClick = ListBox3Click
 374 
        OnClick = ListBox3Click
Line 415... Line 378...
415 
      object Button12: TButton
 378 
      object Button12: TButton
416 
        Left = 511
 379 
        Left = 511
417 
        Top = 143
 380 
        Top = 143
418 
        Width = 26
 381 
        Width = 26
419 
        Height = 21
 382 
        Height = 21
- 
 
 383 
        Hint = 'Open file'
420 
        Caption = '1'
 384 
        Caption = '1'
421 
        Font.Charset = DEFAULT_CHARSET
 385 
        Font.Charset = DEFAULT_CHARSET
422 
        Font.Color = clWindowText
 386 
        Font.Color = clWindowText
423 
        Font.Height = -15
 387 
        Font.Height = -15
424 
        Font.Name = 'Wingdings'
 388 
        Font.Name = 'Wingdings'
425 
        Font.Style = []
 389 
        Font.Style = []
426 
        ParentFont = False
 390 
        ParentFont = False
- 
 
 391 
        ParentShowHint = False
- 
 
 392 
        ShowHint = True
427 
        TabOrder = 10
 393 
        TabOrder = 10
428 
        Visible = False
 394 
        Visible = False
429 
        OnClick = Button12Click
 395 
        OnClick = Button12Click
430 
      end
 396 
      end
431 
      object Button18: TButton
 397 
      object Button18: TButton
432 
        Left = 210
 398 
        Left = 210
433 
        Top = 60
 399 
        Top = 60
434 
        Width = 31
 400 
        Width = 31
435 
        Height = 21
 401 
        Height = 21
- 
 
 402 
        Hint = 'Open file'
436 
        Caption = '1'
 403 
        Caption = '1'
437 
        Font.Charset = DEFAULT_CHARSET
 404 
        Font.Charset = DEFAULT_CHARSET
438 
        Font.Color = clWindowText
 405 
        Font.Color = clWindowText
439 
        Font.Height = -15
 406 
        Font.Height = -15
440 
        Font.Name = 'Wingdings'
 407 
        Font.Name = 'Wingdings'
441 
        Font.Style = []
 408 
        Font.Style = []
442 
        ParentFont = False
 409 
        ParentFont = False
- 
 
 410 
        ParentShowHint = False
- 
 
 411 
        ShowHint = True
443 
        TabOrder = 2
 412 
        TabOrder = 2
444 
        Visible = False
 413 
        Visible = False
445 
        OnClick = Button18Click
 414 
        OnClick = Button18Click
446 
      end
 415 
      end
447 
      object Panel2: TPanel
 416 
      object Panel2: TPanel
448 
        Left = 272
 417 
        Left = 272
449 
        Top = 189
 418 
        Top = 189
450 
        Width = 305
 419 
        Width = 305
451 
        Height = 212
 420 
        Height = 212
452 
        BevelOuter = bvNone
 421 
        BevelOuter = bvNone
453 
        TabOrder = 16
 422 
        TabOrder = 15
454 
        object Image2: TImage
 423 
        object Image2: TImage
455 
          Left = 0
 424 
          Left = 0
456 
          Top = 1
 425 
          Top = 1
457 
          Width = 305
 426 
          Width = 305
458 
          Height = 211
 427 
          Height = 211
459 
          Stretch = True
 428 
          Stretch = True
460 
          OnDblClick = Button12Click
 429 
          OnDblClick = Button12Click
461 
        end
 430 
        end
462 
      end
 431 
      end
463 
      object Panel3: TPanel
 432 
      object Panel3: TPanel
464 
        Left = 583
 433 
        Left = 592
465 
        Top = 439
 434 
        Top = 439
466 
        Width = 194
 435 
        Width = 185
467 
        Height = 122
 436 
        Height = 122
468 
        BevelOuter = bvNone
 437 
        BevelOuter = bvNone
469 
        TabOrder = 17
 438 
        TabOrder = 16
470 
        object Image3: TImage
 439 
        object Image3: TImage
471 
          Left = 8
 440 
          Left = 0
472 
          Top = 0
 441 
          Top = 0
473 
          Width = 177
 442 
          Width = 185
474 
          Height = 108
 443 
          Height = 122
475 
          Stretch = True
 444 
          Stretch = True
476 
          OnDblClick = ListBox3DblClick
 445 
          OnDblClick = ListBox3DblClick
477 
        end
 446 
        end
478 
      end
 447 
      end
- 
 
 448 
      object PageControl3: TPageControl
- 
 
 449 
        Left = 592
- 
 
 450 
        Top = 68
- 
 
 451 
        Width = 185
- 
 
 452 
        Height = 141
- 
 
 453 
        ActivePage = TabSheet6
- 
 
 454 
        TabOrder = 17
- 
 
 455 
        object TabSheet6: TTabSheet
- 
 
 456 
          Caption = 'Scene length'
- 
 
 457 
          ExplicitWidth = 281
- 
 
 458 
          ExplicitHeight = 165
- 
 
 459 
          object Label20: TLabel
- 
 
 460 
            Left = 16
- 
 
 461 
            Top = 15
- 
 
 462 
            Width = 119
- 
 
 463 
            Height = 13
- 
 
 464 
            Caption = 'Picture sequence length:'
- 
 
 465 
          end
- 
 
 466 
          object Label21: TLabel
- 
 
 467 
            Left = 16
- 
 
 468 
            Top = 34
- 
 
 469 
            Width = 37
- 
 
 470 
            Height = 13
- 
 
 471 
            Caption = 'Label21'
- 
 
 472 
          end
- 
 
 473 
          object Label22: TLabel
- 
 
 474 
            Left = 16
- 
 
 475 
            Top = 63
- 
 
 476 
            Width = 91
- 
 
 477 
            Height = 13
- 
 
 478 
            Caption = 'Soundtrack length:'
- 
 
 479 
          end
- 
 
 480 
          object Label23: TLabel
- 
 
 481 
            Left = 16
- 
 
 482 
            Top = 82
- 
 
 483 
            Width = 37
- 
 
 484 
            Height = 13
- 
 
 485 
            Caption = 'Label23'
- 
 
 486 
          end
- 
 
 487 
        end
- 
 
 488 
        object TabSheet7: TTabSheet
- 
 
 489 
          Caption = 'Stats'
- 
 
 490 
          ImageIndex = 1
- 
 
 491 
          ExplicitWidth = 281
- 
 
 492 
          ExplicitHeight = 165
- 
 
 493 
          object Label34: TLabel
- 
 
 494 
            Left = 16
- 
 
 495 
            Top = 16
- 
 
 496 
            Width = 61
- 
 
 497 
            Height = 13
- 
 
 498 
            Caption = 'SceneIndex:'
- 
 
 499 
          end
- 
 
 500 
          object Label35: TLabel
- 
 
 501 
            Left = 98
- 
 
 502 
            Top = 16
- 
 
 503 
            Width = 12
- 
 
 504 
            Height = 13
- 
 
 505 
            Caption = '---'
- 
 
 506 
          end
- 
 
 507 
          object Label32: TLabel
- 
 
 508 
            Left = 16
- 
 
 509 
            Top = 35
- 
 
 510 
            Width = 66
- 
 
 511 
            Height = 13
- 
 
 512 
            Caption = 'PictureCount:'
- 
 
 513 
          end
- 
 
 514 
          object Label33: TLabel
- 
 
 515 
            Left = 98
- 
 
 516 
            Top = 35
- 
 
 517 
            Width = 12
- 
 
 518 
            Height = 13
- 
 
 519 
            Caption = '---'
- 
 
 520 
          end
- 
 
 521 
          object Label30: TLabel
- 
 
 522 
            Left = 16
- 
 
 523 
            Top = 54
- 
 
 524 
            Width = 65
- 
 
 525 
            Height = 13
- 
 
 526 
            Caption = 'PictureIndex:'
- 
 
 527 
          end
- 
 
 528 
          object Label31: TLabel
- 
 
 529 
            Left = 98
- 
 
 530 
            Top = 54
- 
 
 531 
            Width = 12
- 
 
 532 
            Height = 13
- 
 
 533 
            Caption = '---'
- 
 
 534 
          end
- 
 
 535 
          object Label36: TLabel
- 
 
 536 
            Left = 16
- 
 
 537 
            Top = 73
- 
 
 538 
            Width = 63
- 
 
 539 
            Height = 13
- 
 
 540 
            Caption = 'ActionCount:'
- 
 
 541 
          end
- 
 
 542 
          object Label37: TLabel
- 
 
 543 
            Left = 98
- 
 
 544 
            Top = 73
- 
 
 545 
            Width = 12
- 
 
 546 
            Height = 13
- 
 
 547 
            Caption = '---'
- 
 
 548 
          end
- 
 
 549 
        end
- 
 
 550 
      end
479 
    end
 551 
    end
480 
    object TabSheet5: TTabSheet
 552 
    object TabSheet5: TTabSheet
481 
      Caption = 'Decision'
 553 
      Caption = 'Decision'
482 
      ImageIndex = 1
 554 
      ImageIndex = 1
483 
      object Label3: TLabel
 555 
      object Label3: TLabel
Line 629... Line 701...
629 
            Left = 16
 701 
            Left = 16
630 
            Top = 35
 702 
            Top = 35
631 
            Width = 145
 703 
            Width = 145
632 
            Height = 21
 704 
            Height = 21
633 
            Style = csDropDownList
 705 
            Style = csDropDownList
- 
 
 706 
            ItemHeight = 13
634 
            TabOrder = 0
 707 
            TabOrder = 0
635 
            OnChange = ActionTargetChange
 708 
            OnChange = ActionTargetChange
636 
          end
 709 
          end
637 
        end
 710 
        end
638 
        object TabSheet2: TTabSheet
 711 
        object TabSheet2: TTabSheet
Line 663... Line 736...
663 
            Left = 16
 736 
            Left = 16
664 
            Top = 35
 737 
            Top = 35
665 
            Width = 145
 738 
            Width = 145
666 
            Height = 21
 739 
            Height = 21
667 
            Style = csDropDownList
 740 
            Style = csDropDownList
- 
 
 741 
            ItemHeight = 13
668 
            TabOrder = 0
 742 
            TabOrder = 0
669 
            OnChange = ActionTargetChange
 743 
            OnChange = ActionTargetChange
670 
          end
 744 
          end
671 
          object SpinEdit17: TSpinEdit
 745 
          object SpinEdit17: TSpinEdit
672 
            Left = 16
 746 
            Left = 16
Line 752... Line 826...
752 
            Left = 16
 826 
            Left = 16
753 
            Top = 35
 827 
            Top = 35
754 
            Width = 145
 828 
            Width = 145
755 
            Height = 21
 829 
            Height = 21
756 
            Style = csDropDownList
 830 
            Style = csDropDownList
- 
 
 831 
            ItemHeight = 13
757 
            TabOrder = 0
 832 
            TabOrder = 0
758 
            OnChange = ActionTargetChange
 833 
            OnChange = ActionTargetChange
759 
          end
 834 
          end
760 
          object SpinEdit7: TSpinEdit
 835 
          object SpinEdit7: TSpinEdit
761 
            Left = 16
 836 
            Left = 16
Line 828... Line 903...
828 
      object Button11: TButton
 903 
      object Button11: TButton
829 
        Left = 147
 904 
        Left = 147
830 
        Top = 35
 905 
        Top = 35
831 
        Width = 30
 906 
        Width = 30
832 
        Height = 21
 907 
        Height = 21
- 
 
 908 
        Hint = 'Open file'
833 
        Caption = '1'
 909 
        Caption = '1'
834 
        Font.Charset = DEFAULT_CHARSET
 910 
        Font.Charset = DEFAULT_CHARSET
835 
        Font.Color = clWindowText
 911 
        Font.Color = clWindowText
836 
        Font.Height = -15
 912 
        Font.Height = -15
837 
        Font.Name = 'Wingdings'
 913 
        Font.Name = 'Wingdings'
838 
        Font.Style = []
 914 
        Font.Style = []
839 
        ParentFont = False
 915 
        ParentFont = False
- 
 
 916 
        ParentShowHint = False
- 
 
 917 
        ShowHint = True
840 
        TabOrder = 1
 918 
        TabOrder = 1
841 
        Visible = False
 919 
        Visible = False
842 
        OnClick = Button11Click
 920 
        OnClick = Button11Click
843 
      end
 921 
      end
844 
      object Panel1: TPanel
 922 
      object Panel1: TPanel
Line 871... Line 949...
871 
    Anchors = [akLeft, akBottom]
 949 
    Anchors = [akLeft, akBottom]
872 
    Caption = 'New'
 950 
    Caption = 'New'
873 
    TabOrder = 5
 951 
    TabOrder = 5
874 
    OnClick = Button14Click
 952 
    OnClick = Button14Click
875 
  end
 953 
  end
- 
 
 954 
  object Button19: TButton
- 
 
 955 
    Left = 136
- 
 
 956 
    Top = 534
- 
 
 957 
    Width = 81
- 
 
 958 
    Height = 25
- 
 
 959 
    Caption = 'Undo all'
- 
 
 960 
    TabOrder = 6
- 
 
 961 
    OnClick = Button19Click
- 
 
 962 
  end
876 
  object Timer1: TTimer
 963 
  object Timer1: TTimer
877 
    Enabled = False
 964 
    Enabled = False
878 
    Interval = 100
 965 
    Interval = 100
879 
    OnTimer = Timer1Timer
 966 
    OnTimer = Timer1Timer
880 
    Left = 955
 967 
    Left = 955