16 lines
319 B
ObjectPascal
16 lines
319 B
ObjectPascal
object fmNoise: TfmNoise
|
|
Left = 0
|
|
Top = 0
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsSingle
|
|
Caption = 'fmNoise'
|
|
ClientHeight = 240
|
|
ClientWidth = 320
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnPaint = FormPaint
|
|
object tmr1sec: TTimer
|
|
Interval = 2000
|
|
OnTimer = tmr1secTimer
|
|
end
|
|
end
|