1object Form1: TForm1
2  Left = 298
3  Height = 319
4  Top = 215
5  Width = 404
6  Caption = 'Gouraud shading'
7  ClientHeight = 319
8  ClientWidth = 404
9  OnCreate = FormCreate
10  OnMouseDown = FormMouseDown
11  OnMouseMove = FormMouseMove
12  OnMouseUp = FormMouseUp
13  OnPaint = FormPaint
14  LCLVersion = '0.9.30'
15  object Panel1: TPanel
16    Left = 0
17    Height = 42
18    Top = 277
19    Width = 404
20    Align = alBottom
21    ClientHeight = 42
22    ClientWidth = 404
23    TabOrder = 0
24    object Label1: TLabel
25      Left = 8
26      Height = 16
27      Top = 11
28      Width = 42
29      Caption = 'Opacity'
30      ParentColor = False
31    end
32    object TrackBar1: TTrackBar
33      Left = 64
34      Height = 25
35      Top = 11
36      Width = 328
37      Frequency = 16
38      Max = 255
39      OnChange = TrackBar1Change
40      Position = 255
41      Anchors = [akTop, akLeft, akRight]
42      TabOrder = 0
43    end
44  end
45end
46