unit1.dfm

code for d bezier curve

object Form1: TForm1
  Left = 64
  Top = 55
  Width = 808
  Height = 646
  Caption = 'Bezier Curve Path Generator (OpenGL)'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010000000000000680500001600000028000000100000002000
    0000010008000000000040010000000000000000000000010000000000000000
    0000333333006666660099999900CCCCCC0033FFFF0066FFFF0099FFFF00CCFF
    FF00FFFFFF000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0202020202020202020200000000000009090909090909040904040100000000
    0909040909040909090909040000000001010101010101010104090900000000
    0001010201020102020309090000000002090909090909090909090400000000
    0409090909090909090903010000000009090201010101010101000000000000
    0909020101010101010101010000000009090909090409090904090900000000
    0204090909090909090909090000000000010202020202020202020200000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 584
    Height = 600
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    OnMouseDown = Panel1MouseDown
    OnMouseUp = Panel1MouseUp
    OnResize = Panel1Resize
  end
  object Panel2: TPanel
    Left = 584
    Top = 0
    Width = 216
    Height = 600
    Align = alRight
    Caption = 'Panel2'
    TabOrder = 1
    object Button1: TButton
      Left = 134
      Top = 536
      Width = 75
      Height = 25
      Caption = 'Close'
      TabOrder = 0
      OnClick = Button1Click
    end
    object TTabControl1: TTabControl
      Left = 7
      Top = 0
      Width = 209
      Height = 521
      TabOrder = 1
      Tabs.Strings = (
        'Control Points')
      TabIndex = 0
      object GroupBox3: TGroupBox
        Left = 8
        Top = 240
        Width = 193
        Height = 97
        Caption = 'Control Point Three'
        TabOrder = 0
        OnClick = GroupBox3Click
        object Label7: TLabel
          Left = 16
          Top = 17
          Width = 10
          Height = 13
          Caption = 'X:'
        end
        object Label8: TLabel
          Left = 16
          Top = 41
          Width = 10
          Height = 13
          Caption = 'Y:'
        end
        object Label9: TLabel
          Left = 16
          Top = 65
          Width = 10
          Height = 13
          Caption = 'Z:'
        end
        object txtPoint3Z: TEdit
          Left = 35
          Top = 64
          Width = 41
          Height = 21
          TabOrder = 0
          OnEnter = txtPoint3ZEnter
          OnExit = txtPoint3ZExit
        end
        object txtPoint3Y: TEdit
          Left = 35
          Top = 40
          Width = 41
          Height = 21
          TabOrder = 1
          OnEnter = txtPoint3YEnter
          OnExit = txtPoint3YExit
        end
        object txtPoint3X: TEdit
          Left = 35
          Top = 16
          Width = 41
          Height = 21
          TabOrder = 2
          OnEnter = txtPoint3XEnter
          OnExit = txtPoint3XExit
        end
        object UpDown7: TUpDown
          Left = 75
          Top = 14
          Width = 16
          Height = 24
          Min = -10000
          Max = 10000
          Position = 0
          TabOrder = 3
          Wrap = False
          OnClick = UpDown7Click
        end
        object UpDown8: TUpDown
          Left = 75
          Top = 38
          Width = 16
          Height = 24
          Min = -10000
          Max = 10000
          Position = 0
          TabOrder = 4
          Wrap = False
          OnClick = UpDown8Click
        end
        object UpDown9: TUpDown
          Left = 75
          Top = 62
          Width = 16
          Height = 24
          Min = -10000
          Max = 10000
          Position = 0
          TabOrder = 5
          Wrap = False
          OnClick = UpDown9Click
        end
      end
      object GroupBox4: TGroupBox
        Left = 8
        Top = 136
        Width = 193
        Height = 97
        Caption = 'Control Point Two'
        TabOrder = 1
        OnClick = GroupBox4Click
        object Label4: TLabel
          Left = 16
          Top = 19
          Width = 10
          Height = 13
          Caption = 'X:'
        end
        object Label5: TLabel
          Left = 16
          Top = 43
          Width = 10
          Height = 13
          Caption = 'Y:'
        end
        object Label6: TLabel
          Left = 16
          Top = 67
          Width = 10
          Height = 13
          Caption = 'Z:'
        end
        object txtPoint2Z: TEdit
          Left = 35
          Top = 64
          Width = 41
          Height = 21
          TabOrder = 0
          OnEnter = txtPoint2ZEnter
          OnExit = txtPoint2ZExit
        end
        object txtPoint2Y: TEdit
          Left = 35
          Top = 40
          Width = 41
          Height = 21
          TabOrder = 1
          OnEnter = txtPoint2YEnter
          OnExit = txtPoint2YExit
        end
        object txtPoint2X: TEdit
          Left = 35
          Top = 16
          Width = 41
          Height = 21
          TabOrder = 2
          OnEnter = txtPoint2XEnter
          OnExit = txtPoint2XExit
        end
        object UpDown4: TUpDown
          Left = 75
          Top = 14
          Width = 16
          Height = 24
          Min = -10000
          Max = 10000
          Position = 0
          TabOrder = 3
          Wrap = False
          OnClick = UpDown4Click
        end
        object UpDown5: TUpDown
          Left = 75
          Top = 38
          Width = 16
          Height = 24
          Min = -10000
          Max = 10000
          Position = 0
          TabOrder = 4
          Wrap = False
          OnClick = UpDown5Click
        end
        object UpDown6: TUpDown
          Left = 75
          Top = 62
          Width = 16
          Height = 24
          Min = -10000
          Max = 10000
          Position = 0
          TabOrder = 5
          Wrap = False
          OnClick = UpDown6Click
        end
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 344
        Width = 193
        Height = 97
        Caption = 'Control Point Four (End Point)'
        TabOrder = 2
        object Label10: TLabel
          Left = 16
          Top = 18
          Width = 10
          Height = 13
          Caption = 'X:'
        end
        object Label11: TLabel
          Left = 16
          Top = 43
          Width = 10