Subversion Repositories plumbers

Rev

Rev 12 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12 Rev 18
Line 42... Line 42...
42
  object Button1: TButton
42
  object Button1: TButton
43
    Left = 145
43
    Left = 145
44
    Top = 492
44
    Top = 492
45
    Width = 33
45
    Width = 33
46
    Height = 25
46
    Height = 25
-
 
47
    Hint = 'Add new scene'
47
    Anchors = [akLeft, akBottom]
48
    Anchors = [akLeft, akBottom]
48
    Caption = '+'
49
    Caption = '+'
-
 
50
    ParentShowHint = False
-
 
51
    ShowHint = True
49
    TabOrder = 3
52
    TabOrder = 3
50
    OnClick = Button1Click
53
    OnClick = Button1Click
51
  end
54
  end
52
  object Button2: TButton
55
  object Button2: TButton
53
    Left = 184
56
    Left = 184
54
    Top = 492
57
    Top = 492
55
    Width = 33
58
    Width = 33
56
    Height = 25
59
    Height = 25
-
 
60
    Hint = 'Remove scene'
57
    Anchors = [akLeft, akBottom]
61
    Anchors = [akLeft, akBottom]
58
    Caption = '-'
62
    Caption = '-'
-
 
63
    ParentShowHint = False
-
 
64
    ShowHint = True
59
    TabOrder = 4
65
    TabOrder = 4
60
    OnClick = Button2Click
66
    OnClick = Button2Click
61
  end
67
  end
62
  object Button3: TButton
68
  object Button3: TButton
63
    Left = 8
69
    Left = 8
64
    Top = 565
70
    Top = 565
65
    Width = 105
71
    Width = 105
66
    Height = 46
72
    Height = 46
-
 
73
    Hint = 'Save GAME.bin'
67
    Anchors = [akLeft, akBottom]
74
    Anchors = [akLeft, akBottom]
68
    Caption = 'Save'
75
    Caption = 'Save'
-
 
76
    ParentShowHint = False
-
 
77
    ShowHint = True
69
    TabOrder = 7
78
    TabOrder = 7
70
    OnClick = Button3Click
79
    OnClick = Button3Click
71
  end
80
  end
72
  object Button4: TButton
81
  object Button4: TButton
73
    Left = 8
82
    Left = 8
74
    Top = 492
83
    Top = 492
75
    Width = 33
84
    Width = 33
76
    Height = 25
85
    Height = 25
-
 
86
    Hint = 'Move scene up'
77
    Anchors = [akLeft, akBottom]
87
    Anchors = [akLeft, akBottom]
78
    Caption = '^'
88
    Caption = '^'
-
 
89
    ParentShowHint = False
-
 
90
    ShowHint = True
79
    TabOrder = 1
91
    TabOrder = 1
80
    OnClick = Button4Click
92
    OnClick = Button4Click
81
  end
93
  end
82
  object Button5: TButton
94
  object Button5: TButton
83
    Left = 47
95
    Left = 47
84
    Top = 492
96
    Top = 492
85
    Width = 33
97
    Width = 33
86
    Height = 25
98
    Height = 25
-
 
99
    Hint = 'Move scene down'
87
    Anchors = [akLeft, akBottom]
100
    Anchors = [akLeft, akBottom]
88
    Caption = 'v'
101
    Caption = 'v'
-
 
102
    ParentShowHint = False
-
 
103
    ShowHint = True
89
    TabOrder = 2
104
    TabOrder = 2
90
    OnClick = Button5Click
105
    OnClick = Button5Click
91
  end
106
  end
92
  object Button10: TButton
107
  object Button10: TButton
93
    Left = 112
108
    Left = 112
94
    Top = 565
109
    Top = 565
95
    Width = 105
110
    Width = 105
96
    Height = 46
111
    Height = 46
-
 
112
    Hint = 'Save GAME.BIN and run game'
97
    Anchors = [akLeft, akBottom]
113
    Anchors = [akLeft, akBottom]
98
    Caption = 'Save + Test'
114
    Caption = 'Save + Test'
-
 
115
    ParentShowHint = False
-
 
116
    ShowHint = True
99
    TabOrder = 8
117
    TabOrder = 8
100
    OnClick = Button10Click
118
    OnClick = Button10Click
101
  end
119
  end
102
  object PageControl2: TPageControl
120
  object PageControl2: TPageControl
103
    Left = 223
121
    Left = 223
Line 307... Line 325...
307
        Top = 21
325
        Top = 21
308
        Width = 29
326
        Width = 29
309
        Height = 25
327
        Height = 25
310
        ColoredButtons = []
328
        ColoredButtons = []
311
        VisibleButtons = [btPlay]
329
        VisibleButtons = [btPlay]
312
        DoubleBuffered = True
-
 
313
        Visible = False
330
        Visible = False
314
        ParentDoubleBuffered = False
-
 
315
        TabOrder = 14
331
        TabOrder = 14
316
      end
332
      end
317
      object GroupBox2: TGroupBox
333
      object GroupBox2: TGroupBox
318
        Left = 591
334
        Left = 591
319
        Top = 234
335
        Top = 234
Line 715... Line 731...
715
            Left = 16
731
            Left = 16
716
            Top = 35
732
            Top = 35
717
            Width = 145
733
            Width = 145
718
            Height = 21
734
            Height = 21
719
            Style = csDropDownList
735
            Style = csDropDownList
-
 
736
            ItemHeight = 13
720
            TabOrder = 0
737
            TabOrder = 0
721
            OnChange = ActionTargetChange
738
            OnChange = ActionTargetChange
722
          end
739
          end
723
        end
740
        end
724
        object TabSheet2: TTabSheet
741
        object TabSheet2: TTabSheet
Line 749... Line 766...
749
            Left = 16
766
            Left = 16
750
            Top = 35
767
            Top = 35
751
            Width = 145
768
            Width = 145
752
            Height = 21
769
            Height = 21
753
            Style = csDropDownList
770
            Style = csDropDownList
-
 
771
            ItemHeight = 13
754
            TabOrder = 0
772
            TabOrder = 0
755
            OnChange = ActionTargetChange
773
            OnChange = ActionTargetChange
756
          end
774
          end
757
          object SpinEdit17: TSpinEdit
775
          object SpinEdit17: TSpinEdit
758
            Left = 16
776
            Left = 16
Line 838... Line 856...
838
            Left = 16
856
            Left = 16
839
            Top = 35
857
            Top = 35
840
            Width = 145
858
            Width = 145
841
            Height = 21
859
            Height = 21
842
            Style = csDropDownList
860
            Style = csDropDownList
-
 
861
            ItemHeight = 13
843
            TabOrder = 0
862
            TabOrder = 0
844
            OnChange = ActionTargetChange
863
            OnChange = ActionTargetChange
845
          end
864
          end
846
          object SpinEdit7: TSpinEdit
865
          object SpinEdit7: TSpinEdit
847
            Left = 16
866
            Left = 16
Line 965... Line 984...
965
  object Button14: TButton
984
  object Button14: TButton
966
    Left = 8
985
    Left = 8
967
    Top = 534
986
    Top = 534
968
    Width = 75
987
    Width = 75
969
    Height = 25
988
    Height = 25
-
 
989
    Hint = 'Create a new GAME.BIN'
970
    Anchors = [akLeft, akBottom]
990
    Anchors = [akLeft, akBottom]
971
    Caption = 'New'
991
    Caption = 'New'
-
 
992
    ParentShowHint = False
-
 
993
    ShowHint = True
972
    TabOrder = 5
994
    TabOrder = 5
973
    OnClick = Button14Click
995
    OnClick = Button14Click
974
  end
996
  end
975
  object Button19: TButton
997
  object Button19: TButton
976
    Left = 119
998
    Left = 119
977
    Top = 534
999
    Top = 534
978
    Width = 98
1000
    Width = 98
979
    Height = 25
1001
    Height = 25
-
 
1002
    Anchors = [akLeft, akBottom]
980
    Caption = 'Discard changes'
1003
    Caption = 'Discard changes'
981
    TabOrder = 6
1004
    TabOrder = 6
982
    OnClick = Button19Click
1005
    OnClick = Button19Click
983
  end
1006
  end
984
  object Timer1: TTimer
1007
  object Timer1: TTimer
Line 987... Line 1010...
987
    OnTimer = Timer1Timer
1010
    OnTimer = Timer1Timer
988
    Left = 955
1011
    Left = 955
989
    Top = 408
1012
    Top = 408
990
  end
1013
  end
991
  object MainMenu1: TMainMenu
1014
  object MainMenu1: TMainMenu
992
    Left = 963
1015
    Left = 19
993
    Top = 496
1016
    Top = 8
994
    object File1: TMenuItem
1017
    object File1: TMenuItem
995
      Caption = 'File'
1018
      Caption = 'File'
996
      object Newfile1: TMenuItem
1019
      object Newfile1: TMenuItem
997
        Caption = 'New file'
1020
        Caption = 'New file'
998
        OnClick = Button14Click
1021
        OnClick = Button14Click
Line 1010... Line 1033...
1010
      end
1033
      end
1011
      object N1: TMenuItem
1034
      object N1: TMenuItem
1012
        Caption = '-'
1035
        Caption = '-'
1013
      end
1036
      end
1014
      object Close1: TMenuItem
1037
      object Close1: TMenuItem
1015
        Caption = 'Terminate program'
1038
        Caption = 'Close program'
1016
        OnClick = Close1Click
1039
        OnClick = Close1Click
1017
      end
1040
      end
1018
    end
1041
    end
1019
    object Help1: TMenuItem
1042
    object Help1: TMenuItem
1020
      Caption = 'Help'
1043
      Caption = 'Help'