unit1.dfm

来自「code for d bezier curve」· DFM 代码 · 共 616 行 · 第 1/2 页

          Height = 13
          Caption = 'Y:'
        end
        object Label12: TLabel
          Left = 16
          Top = 67
          Width = 10
          Height = 13
          Caption = 'Z:'
        end
        object txtPoint4Z: TEdit
          Left = 35
          Top = 64
          Width = 41
          Height = 21
          TabOrder = 0
          OnEnter = txtPoint4ZEnter
          OnExit = txtPoint4ZExit
        end
        object txtPoint4Y: TEdit
          Left = 35
          Top = 40
          Width = 41
          Height = 21
          TabOrder = 1
          OnEnter = txtPoint4YEnter
          OnExit = txtPoint4YExit
        end
        object txtPoint4X: TEdit
          Left = 35
          Top = 16
          Width = 41
          Height = 21
          TabOrder = 2
          OnEnter = txtPoint4XEnter
          OnExit = txtPoint4XExit
        end
        object UpDown10: TUpDown
          Left = 75
          Top = 14
          Width = 16
          Height = 24
          Min = -10000
          Max = 10000
          Position = 0
          TabOrder = 3
          Wrap = False
          OnClick = UpDown10Click
        end
        object UpDown11: TUpDown
          Left = 75
          Top = 38
          Width = 16
          Height = 24
          Min = -10000
          Max = 10000
          Position = 0
          TabOrder = 4
          Wrap = False
          OnClick = UpDown11Click
        end
        object UpDown12: TUpDown
          Left = 75
          Top = 62
          Width = 16
          Height = 24
          Min = -10000
          Max = 10000
          Position = 0
          TabOrder = 5
          Wrap = False
          OnClick = UpDown12Click
        end
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 32
        Width = 193
        Height = 97
        Caption = 'Control point One (Start Point)'
        TabOrder = 3
        object Label1: TLabel
          Left = 16
          Top = 18
          Width = 10
          Height = 13
          Caption = 'X:'
        end
        object Label2: TLabel
          Left = 16
          Top = 42
          Width = 10
          Height = 13
          Caption = 'Y:'
        end
        object Label3: TLabel
          Left = 16
          Top = 66
          Width = 10
          Height = 13
          Caption = 'Z:'
        end
        object txtPoint1X: TEdit
          Left = 35
          Top = 16
          Width = 41
          Height = 21
          TabOrder = 0
          OnEnter = txtPoint1XEnter
          OnExit = txtPoint1XExit
        end
        object txtPoint1Y: TEdit
          Left = 35
          Top = 40
          Width = 41
          Height = 21
          TabOrder = 1
          OnEnter = txtPoint1YEnter
          OnExit = txtPoint1YExit
        end
        object txtPoint1Z: TEdit
          Left = 35
          Top = 64
          Width = 41
          Height = 21
          TabOrder = 2
          OnEnter = txtPoint1ZEnter
          OnExit = txtPoint1ZExit
        end
        object UpDown1: TUpDown
          Left = 75
          Top = 14
          Width = 16
          Height = 24
          Min = -10000
          Max = 10000
          Position = 0
          TabOrder = 3
          Wrap = False
          OnClick = UpDown1Click
        end
        object UpDown2: TUpDown
          Left = 75
          Top = 38
          Width = 16
          Height = 24
          Min = -10000
          Max = 10000
          Position = 0
          TabOrder = 4
          Wrap = False
          OnClick = UpDown2Click
        end
        object UpDown3: TUpDown
          Left = 75
          Top = 62
          Width = 16
          Height = 24
          Min = -10000
          Max = 10000
          Position = 0
          TabOrder = 5
          Wrap = False
          OnClick = UpDown3Click
        end
      end
      object Button2: TButton
        Left = 128
        Top = 480
        Width = 75
        Height = 25
        Caption = 'Apply'
        TabOrder = 4
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 145
        Top = 451
        Width = 57
        Height = 25
        Caption = 'Next Curve'
        TabOrder = 5
        OnClick = Button3Click
      end
      object chkAllBeziers: TCheckBox
        Left = 16
        Top = 488
        Width = 97
        Height = 17
        Caption = 'Show All Curves'
        TabOrder = 7
      end
      object chkRotate: TCheckBox
        Left = 16
        Top = 464
        Width = 97
        Height = 17
        Caption = 'Rotate'
        Checked = True
        State = cbChecked
        TabOrder = 8
      end
      object Button4: TButton
        Left = 83
        Top = 451
        Width = 59
        Height = 25
        Caption = 'Prev Curve'
        TabOrder = 6
        OnClick = Button4Click
      end
    end
    object Button5: TButton
      Left = 80
      Top = 536
      Width = 51
      Height = 25
      Caption = 'Zoom -'
      TabOrder = 2
      OnMouseDown = Button5MouseDown
      OnMouseUp = Button5MouseUp
    end
    object Button6: TButton
      Left = 24
      Top = 536
      Width = 51
      Height = 25
      Caption = 'Zoom +'
      TabOrder = 3
      OnMouseDown = Button6MouseDown
      OnMouseUp = Button6MouseUp
    end
  end
  object MainMenu1: TMainMenu
    Left = 760
    Top = 24
    object File1: TMenuItem
      Caption = 'File'
      object New1: TMenuItem
        Caption = '&New'
        OnClick = New1Click
      end
      object OpenControlPointFile1: TMenuItem
        Caption = 'Open Control Point File'
        OnClick = OpenControlPointFile1Click
      end
      object Save1: TMenuItem
        Caption = 'Save To Array '
        OnClick = Save1Click
      end
      object SaveControlPoints1: TMenuItem
        Caption = 'Save Control Points'
        OnClick = SaveControlPoints1Click
      end
    end
    object View1: TMenuItem
      Caption = 'View'
      object ShowStart1: TMenuItem
        Caption = 'Show Start'
        Checked = True
        OnClick = ShowStart1Click
      end
      object Rotate1: TMenuItem
        Caption = 'Rotate'
        Checked = True
        OnClick = Rotate1Click
      end
      object ShowAllCurves1: TMenuItem
        Caption = 'Show All Curves'
        OnClick = ShowAllCurves1Click
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object About1: TMenuItem
        Caption = 'About'
        OnClick = About1Click
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 10
    OnTimer = Timer1Timer
    Left = 32
    Top = 552
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 10
    OnTimer = Timer2Timer
    Left = 72
    Top = 552
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'pas'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 8
    Top = 16
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'txt'
    Filter = 'Control Point File|*.TXT'
    Left = 48
    Top = 16
  end
end