MathgeomGLS

1
object FormVor2dPick: TFormVor2dPick
2
  Left = 214
3
  Top = 148
4
  Margins.Left = 5
5
  Margins.Top = 5
6
  Margins.Right = 5
7
  Margins.Bottom = 5
8
  Align = alLeft
9
  Caption = 'Voronoi demo'
10
  ClientHeight = 1404
11
  ClientWidth = 2659
12
  Color = clSilver
13
  Font.Charset = DEFAULT_CHARSET
14
  Font.Color = clWindowText
15
  Font.Height = -19
16
  Font.Name = 'MS Sans Serif'
17
  Font.Style = []
18
  Position = poScreenCenter
19
  WindowState = wsMaximized
20
  OnCreate = FormCreate
21
  PixelsPerInch = 168
22
  TextHeight = 24
23
  object GroupBox1: TGroupBox
24
    Left = 0
25
    Top = 0
26
    Width = 2659
27
    Height = 93
28
    Margins.Left = 5
29
    Margins.Top = 5
30
    Margins.Right = 5
31
    Margins.Bottom = 5
32
    Align = alTop
33
    Caption = 'Options'
34
    Color = clBtnFace
35
    Font.Charset = DEFAULT_CHARSET
36
    Font.Color = clMenu
37
    Font.Height = -19
38
    Font.Name = 'Verdana'
39
    Font.Style = []
40
    ParentColor = False
41
    ParentFont = False
42
    TabOrder = 0
43
    object Label1: TLabel
44
      Left = 1015
45
      Top = 42
46
      Width = 144
47
      Height = 23
48
      Margins.Left = 5
49
      Margins.Top = 5
50
      Margins.Right = 5
51
      Margins.Bottom = 5
52
      Caption = '! Wrong Cut !'
53
      Font.Charset = DEFAULT_CHARSET
54
      Font.Color = clRed
55
      Font.Height = -19
56
      Font.Name = 'Verdana'
57
      Font.Style = [fsBold]
58
      ParentFont = False
59
      Visible = False
60
    end
61
    object CheckBox2: TCheckBox
62
      Left = 322
63
      Top = 35
64
      Width = 254
65
      Height = 30
66
      Margins.Left = 5
67
      Margins.Top = 5
68
      Margins.Right = 5
69
      Margins.Bottom = 5
70
      Caption = 'Show Triangulation'
71
      Checked = True
72
      State = cbChecked
73
      TabOrder = 1
74
      OnClick = CheckBox1Click
75
    end
76
    object CheckBox3: TCheckBox
77
      Left = 588
78
      Top = 35
79
      Width = 247
80
      Height = 30
81
      Margins.Left = 5
82
      Margins.Top = 5
83
      Margins.Right = 5
84
      Margins.Bottom = 5
85
      Caption = 'Show Point Indices'
86
      Checked = True
87
      State = cbChecked
88
      TabOrder = 2
89
      OnClick = CheckBox1Click
90
    end
91
    object Button1: TButton
92
      Left = 854
93
      Top = 28
94
      Width = 131
95
      Height = 44
96
      Margins.Left = 5
97
      Margins.Top = 5
98
      Margins.Right = 5
99
      Margins.Bottom = 5
100
      Caption = 'Clear'
101
      TabOrder = 3
102
      OnClick = Button1Click
103
    end
104
    object CheckBox1: TCheckBox
105
      Left = 42
106
      Top = 35
107
      Width = 254
108
      Height = 30
109
      Margins.Left = 5
110
      Margins.Top = 5
111
      Margins.Right = 5
112
      Margins.Bottom = 5
113
      Caption = 'Show Convex Hull'
114
      Checked = True
115
      State = cbChecked
116
      TabOrder = 0
117
      OnClick = CheckBox1Click
118
    end
119
  end
120
  object PanelPB: TPanel
121
    Left = 0
122
    Top = 93
123
    Width = 2659
124
    Height = 1311
125
    Margins.Left = 5
126
    Margins.Top = 5
127
    Margins.Right = 5
128
    Margins.Bottom = 5
129
    Align = alClient
130
    TabOrder = 1
131
    object PaintBox: TPaintBox
132
      Left = 1
133
      Top = 1
134
      Width = 2165
135
      Height = 1309
136
      Cursor = crCross
137
      Margins.Left = 5
138
      Margins.Top = 5
139
      Margins.Right = 5
140
      Margins.Bottom = 5
141
      Align = alClient
142
      Color = clNavy
143
      DragCursor = crSizeAll
144
      ParentColor = False
145
      OnMouseDown = PaintBoxMouseDown
146
      OnMouseMove = PaintBoxMouseMove
147
      OnMouseUp = PaintBoxMouseUp
148
      OnPaint = PaintBoxPaint
149
      ExplicitLeft = 2
150
      ExplicitTop = 2
151
      ExplicitWidth = 1013
152
      ExplicitHeight = 775
153
    end
154
    object GLSceneViewer: TGLSceneViewer
155
      Left = 2166
156
      Top = 1
157
      Width = 492
158
      Height = 1309
159
      Margins.Left = 5
160
      Margins.Top = 5
161
      Margins.Right = 5
162
      Margins.Bottom = 5
163
      PenAsTouch = False
164
      Align = alRight
165
      TabOrder = 0
166
    end
167
  end
168
  object GLScene1: TGLScene
169
    Left = 56
170
    Top = 88
171
    object GLDirectOpenGL: TGLDirectOpenGL
172
      UseBuildList = False
173
      OnRender = GLDirectOpenGLRender
174
      Blend = False
175
    end
176
    object GLCamera: TGLCamera
177
      DepthOfView = 100.000000000000000000
178
      FocalLength = 50.000000000000000000
179
    end
180
    object GLLightSource: TGLLightSource
181
      ConstAttenuation = 1.000000000000000000
182
      SpotCutOff = 180.000000000000000000
183
    end
184
  end
185
  object GLCadencer1: TGLCadencer
186
    Left = 144
187
    Top = 88
188
  end
189
  object GLMaterialLibrary1: TGLMaterialLibrary
190
    Left = 248
191
    Top = 88
192
  end
193
end
194