28 lines
520 B
Plaintext
28 lines
520 B
Plaintext
inherited frmLightlevel: TfrmLightlevel
|
|
Left = 598
|
|
Height = 171
|
|
Top = 733
|
|
Width = 53
|
|
Caption = 'Свет'
|
|
ClientHeight = 171
|
|
ClientWidth = 53
|
|
Constraints.MaxWidth = 40
|
|
Constraints.MinWidth = 36
|
|
OnCreate = FormCreate
|
|
object tbLightlevel: TTrackBar[0]
|
|
Left = 0
|
|
Height = 171
|
|
Top = 0
|
|
Width = 53
|
|
Max = 32
|
|
OnChange = tbLightlevelChange
|
|
Orientation = trVertical
|
|
Position = 0
|
|
Align = alClient
|
|
TabOrder = 0
|
|
end
|
|
inherited tmClose: TTimer[1]
|
|
top = 88
|
|
end
|
|
end
|