BytePusheD/fmMain.dfm at master · wladasm/BytePusheD · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
object MainForm: TMainForm
  Left = 0
  Top = 0
  Caption = 'MainForm'
  ClientHeight = 275
  ClientWidth = 500
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object stbStatus: TStatusBar
    Left = 0
    Top = 256
    Width = 500
    Height = 19
    Panels = <
      item
        Width = 115
      end
      item
        Width = 50
      end
      item
        Width = 95
      end
      item
        Width = 95
      end
      item
        Width = 95
      end
      item
        Width = 95
      end>
  end
  object pnlKeyboard: TPanel
    Left = 256
    Top = 0
    Width = 244
    Height = 256
    Align = alRight
    BevelInner = bvLowered
    BevelWidth = 2
    ShowCaption = False
    TabOrder = 1
  end
  object pnlScreen: TPanel
    Left = 0
    Top = 0
    Width = 256
    Height = 256
    Align = alClient
    BevelOuter = bvNone
    Constraints.MinHeight = 256
    Constraints.MinWidth = 256
    ShowCaption = False
    TabOrder = 0
    OnResize = pnlScreenResize
    object pbScreen: TPaintBox
      Left = 0
      Top = 0
      Width = 256
      Height = 256
      OnPaint = pbScreenPaint
    end
  end
  object odSnapshot: TOpenDialog
    DefaultExt = 'BytePusher'
    Filter =
      'BytePusher snapshot files (*.BytePusher;*.bp)|*.BytePusher;*.bp|' +
      'All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 16
    Top = 80
  end
  object tmrBenchmarks: TTimer
    Enabled = False
    OnTimer = tmrBenchmarksTimer
    Left = 144
    Top = 80
  end
  object AppEvents: TApplicationEvents
    OnIdle = AppEventsIdle
    Left = 80
    Top = 80
  end
  object MainMenu: TMainMenu
    Left = 16
    Top = 16
    object miFile: TMenuItem
      Caption = '&File'
      object miOpen: TMenuItem
        Action = acOpen
      end
      object miSeparator1: TMenuItem
        Caption = '-'
      end
      object miExit: TMenuItem
        Action = acExit
      end
    end
    object miRun: TMenuItem
      Caption = '&Run'
      object miDoRun: TMenuItem
        Action = acRun
      end
      object miNextFrame: TMenuItem
        Action = acNextFrame
      end
      object miPause: TMenuItem
        Action = acPause
      end
      object miReset: TMenuItem
        Action = acReset
      end
    end
    object miOptions: TMenuItem
      Caption = '&Options'
      object miVolume: TMenuItem
        Caption = 'Sound volume'
      end
      object miBenchmarks: TMenuItem
        Action = acBenchmarks
        AutoCheck = True
      end
    end
    object miHelp: TMenuItem
      Caption = '&Help'
      object miAbout: TMenuItem
        Action = acAbout
      end
    end
  end
  object ActionList: TActionList
    Left = 80
    Top = 16
    object acOpen: TAction
      Caption = '&Open...'
      OnExecute = acOpenExecute
    end
    object acExit: TAction
      Caption = 'E&xit'
      OnExecute = acExitExecute
    end
    object acRun: TAction
      Caption = '&Run'
      OnExecute = acRunExecute
    end
    object acNextFrame: TAction
      Caption = '&Next frame'
      OnExecute = acNextFrameExecute
    end
    object acPause: TAction
      Caption = '&Pause'
      OnExecute = acPauseExecute
    end
    object acReset: TAction
      Caption = 'Re&set'
      OnExecute = acResetExecute
    end
    object acBenchmarks: TAction
      AutoCheck = True
      Caption = 'Show &benchmarks'
      OnExecute = acBenchmarksExecute
    end
    object acAbout: TAction
      Caption = '&About...'
      OnExecute = acAboutExecute
    end
  end
end