三维演示系统[吕雪松].docx

program Surface;uses Forms, SysUtils, frmGLMDI in frmGLMDI.pas {frmGL}, Mesh in Mesh.pas, TextureGL in TextureGL.pas, frmMain in frmMain.pas {MainForm}, frmDEMCollection in frmDEMCollection.pas {DEMCollectionForm}, Global in Global.pas;{$R *.RES}begin sSysPath := ExtractFilePath(Application.ExeName); Application.Initialize; Application.CreateForm(TMainForm, MainForm); Application.Run;end.unit frmMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, frmGLMDI, mesh, opengl, frmDEMCollection, StdCtrls;type TMainForm = class(TForm) MainMenu1: TMainMenu; N5: TMenuItem; Grayface1: TMenuItem; N8: TMenuItem; N9: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; N20: TMenuItem; N21: TMenuItem; N23: TMenuItem; N24: TMenuItem; procedure N24Click(Sender: TObject); procedure N26Click(Sender: TObject); procedure N30Click(Sender: TObject); procedure N31Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure N21Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N15Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } GLChild : TfrmGL; end;var MainForm: TMainForm;implementation{$R *.dfm}procedure TMainForm.N24Click(Sender: TObject);beginClose;end;procedure TMainForm.N26Click(Sender: TObject);begin//GLChild := TfrmGL.Create(Application, );end;procedure TMainForm.N30Click(Sender: TObject);beginTileMode := tbVertical;Tile;end;procedure TMainForm.N31Click(Sender: TObject);beginCascade;end;procedure TMainForm.N8Click(Sender: TObject);beginif MDIChildCount 0 then beginGLChild.MyMesh.MeshConfig.mode:= gl_triangles;InvalidateRect(GLChild.Handle, nil, False);