mainform.~dfm

该程序实现了Delaunay三角剖分的过程

object TMainForm: TTMainForm
  Left = 212
  Top = 207
  Width = 696
  Height = 480
  Caption = #19977#35282#21078#20998
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefault
  WindowState = wsMaximized
  OnDestroy = FormDestroy
  OnMouseWheel = FormMouseWheel
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu1: TMainMenu
    Left = 144
    Top = 64
    object F1: TMenuItem
      Caption = #25991#20214'(&F)'
      object N1: TMenuItem
        Action = ExitAction
      end
    end
    object S1: TMenuItem
      Caption = #35774#32622'(&S)'
      object N2: TMenuItem
        Action = SetAction
      end
    end
    object W1: TMenuItem
      Caption = #26174#31034'(&W)'
      object N3: TMenuItem
        Action = PtShow
      end
      object N4: TMenuItem
        Action = LineShow
      end
      object N5: TMenuItem
        Action = Delaunay
      end
    end
  end
  object ActionList1: TActionList
    Left = 216
    Top = 48
    object ExitAction: TAction
      Category = 'File'
      Caption = #36864#20986
      OnExecute = ExitActionExecute
    end
    object SetAction: TAction
      Category = 'Set'
      Caption = #35774#32622#21442#25968
      OnExecute = SetActionExecute
    end
    object PtShow: TAction
      Category = 'Set'
      Caption = #26174#31034#22810#36793#24418#39030#28857
      OnExecute = PtShowExecute
    end
    object LineShow: TAction
      Category = 'Set'
      Caption = #26174#31034#22810#36793#24418#21508#36793
      OnExecute = LineShowExecute
    end
    object Delaunay: TAction
      Category = 'Set'
      Caption = #19977#35282#21270
      OnExecute = DelaunayExecute
    end
    object Refine: TAction
      Category = 'Set'
      Caption = #32454#21270#32593#26684
      OnExecute = RefineExecute
    end
    object Fit: TAction
      Category = 'Set'
      Caption = #39034#21270#32593#26684
      OnExecute = FitExecute
    end
  end
end