mainform.h

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

//---------------------------------------------------------------------------

#ifndef MainFormH
#define MainFormH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ActnList.hpp>
#include <Menus.hpp>
#include "Triangle.h"

//---------------------------------------------------------------------------
class TTMainForm : public TForm
{
__published:	// IDE-managed Components
    TMainMenu *MainMenu1;
    TMenuItem *F1;
    TActionList *ActionList1;
    TAction *ExitAction;
    TAction *SetAction;
    TAction *PtShow;
    TAction *LineShow;
    TAction *Delaunay;
    TMenuItem *N1;
    TMenuItem *S1;
    TMenuItem *N2;
    TMenuItem *W1;
    TMenuItem *N3;
    TMenuItem *N4;
    TMenuItem *N5;
    TAction *Refine;
    TAction *Fit;
    void __fastcall ExitActionExecute(TObject *Sender);
    void __fastcall SetActionExecute(TObject *Sender);
    void __fastcall LineShowExecute(TObject *Sender);
    void __fastcall DelaunayExecute(TObject *Sender);
    void __fastcall FormDestroy(TObject *Sender);
    void __fastcall PtShowExecute(TObject *Sender);
    void __fastcall FormPaint(TObject *Sender);
    void __fastcall RefineExecute(TObject *Sender);
    void __fastcall FitExecute(TObject *Sender);
    void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift,
          int WheelDelta, TPoint &MousePos, bool &Handled);
private:	// User declarations
    double X[8],Y[8],Step;
    int n[8];
    int Mode;
    float Scale;
    TList *EdgeList,*PointList,*TriangleList,*BorderList,*SelectedList;
    void ReDraw();
    Edge * FindEdge(MyPoint * p1, MyPoint * p2, TList *List);
    int GetExternPt(MyPoint * p1, MyPoint * p2, MyPoint * p3, Triangle * t);
    int Direction(MyPoint * p1, MyPoint * p2, MyPoint * p3);
    int Cross(MyPoint * p1, MyPoint * p2, MyPoint * p3, MyPoint * p4);
public:		// User declarations
    __fastcall TTMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TTMainForm *TMainForm;
//---------------------------------------------------------------------------
#endif