46 lines
886 B
Plaintext
46 lines
886 B
Plaintext
object Form1: TForm1
|
|
Left = 298
|
|
Height = 319
|
|
Top = 215
|
|
Width = 404
|
|
Caption = 'Gouraud shading'
|
|
ClientHeight = 319
|
|
ClientWidth = 404
|
|
OnCreate = FormCreate
|
|
OnMouseDown = FormMouseDown
|
|
OnMouseMove = FormMouseMove
|
|
OnMouseUp = FormMouseUp
|
|
OnPaint = FormPaint
|
|
LCLVersion = '0.9.30'
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Height = 42
|
|
Top = 277
|
|
Width = 404
|
|
Align = alBottom
|
|
ClientHeight = 42
|
|
ClientWidth = 404
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Height = 16
|
|
Top = 11
|
|
Width = 42
|
|
Caption = 'Opacity'
|
|
ParentColor = False
|
|
end
|
|
object TrackBar1: TTrackBar
|
|
Left = 64
|
|
Height = 25
|
|
Top = 11
|
|
Width = 328
|
|
Frequency = 16
|
|
Max = 255
|
|
OnChange = TrackBar1Change
|
|
Position = 255
|
|
Anchors = [akTop, akLeft, akRight]
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|