mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-31 14:32:30 +02:00
38 lines
655 B
Plaintext
38 lines
655 B
Plaintext
object Form1: TForm1
|
|
Left = 323
|
|
Height = 240
|
|
Top = 171
|
|
Width = 320
|
|
Caption = 'Motion Graphics Test'
|
|
ClientHeight = 240
|
|
ClientWidth = 320
|
|
OnPaint = FormPaint
|
|
LCLVersion = '0.9.31'
|
|
object Label1: TLabel
|
|
Left = 6
|
|
Height = 18
|
|
Top = 6
|
|
Width = 46
|
|
Caption = 'Speed:'
|
|
ParentColor = False
|
|
end
|
|
object trackSpeed: TTrackBar
|
|
Left = 56
|
|
Height = 31
|
|
Top = 8
|
|
Width = 256
|
|
Frequency = 10
|
|
Max = 100
|
|
Min = 10
|
|
OnChange = trackSpeedChange
|
|
Position = 30
|
|
TabOrder = 0
|
|
end
|
|
object timerRedraw: TTimer
|
|
Interval = 100
|
|
OnTimer = timerRedrawTimer
|
|
left = 99
|
|
top = 133
|
|
end
|
|
end
|