-
Notifications
You must be signed in to change notification settings - Fork 2
/
main.dfm
166 lines (166 loc) · 3.04 KB
/
main.dfm
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
object mainform: Tmainform
Left = 344
Height = 277
Top = 302
Width = 366
Caption = 'smallpt'
ClientHeight = 277
ClientWidth = 366
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClose = FormClose
OnCreate = FormCreate
LCLVersion = '3.6.0.0'
object imgRender: TImage
Left = 160
Height = 188
Top = 4
Width = 184
end
object lblTime: TLabel
Left = 8
Height = 13
Top = 130
Width = 3
Caption = ' '
Color = clBtnFace
ParentColor = False
Transparent = False
end
object Label1: TLabel
Left = 8
Height = 13
Top = 11
Width = 31
Caption = 'Width:'
Color = clBtnFace
ParentColor = False
Transparent = False
end
object Label2: TLabel
Left = 8
Height = 13
Top = 32
Width = 34
Caption = 'Height:'
Color = clBtnFace
ParentColor = False
Transparent = False
end
object Label3: TLabel
Left = 8
Height = 13
Top = 56
Width = 69
Caption = 'Sample Count:'
Color = clBtnFace
ParentColor = False
Transparent = False
end
object Label4: TLabel
Left = 8
Height = 13
Top = 82
Width = 68
Caption = 'Thread Count:'
Color = clBtnFace
ParentColor = False
Transparent = False
end
object cmdRender: TButton
Left = 8
Height = 25
Top = 148
Width = 56
Caption = '&Render'
TabOrder = 0
OnClick = cmdRenderClick
end
object cmdSave: TButton
Left = 80
Height = 25
Top = 148
Width = 75
Caption = '&Save Image'
Enabled = False
TabOrder = 1
OnClick = cmdSaveClick
end
object strThreadCount: TEdit
Left = 104
Height = 21
Top = 80
Width = 48
TabOrder = 2
Text = '8'
end
object strSampleCount: TEdit
Left = 104
Height = 21
Top = 56
Width = 48
TabOrder = 3
Text = '16'
end
object strWidth: TEdit
Left = 104
Height = 21
Top = 8
Width = 48
TabOrder = 4
Text = '1024'
end
object strHeight: TEdit
Left = 104
Height = 21
Top = 32
Width = 48
TabOrder = 5
Text = '768'
end
object Label5: TLabel
Left = 8
Height = 13
Top = 106
Width = 31
Caption = 'Scene'
end
object SceneSelector1: TComboBox
Left = 72
Height = 21
Top = 104
Width = 80
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'Big light'
'Small light'
)
ReadOnly = True
TabOrder = 6
Text = 'Big light'
end
object StopRenderBtn: TButton
Left = 8
Height = 25
Top = 176
Width = 144
Caption = 'Stop render'
Enabled = False
TabOrder = 7
OnClick = StopRenderBtnClick
end
object sd: TSaveDialog
Filter = 'Bitmap files (*.BMP)|*.bmp'
Left = 168
Top = 16
end
object tmr_update: TTimer
Enabled = False
Interval = 200
Left = 200
Top = 16
end
end