home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / Runimage / Cbuilder4 / ObjRepos / MDIApp / MAIN.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-26  |  1.6 KB  |  55 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Main.h"
  6. #include "About.h"
  7. //---------------------------------------------------------------------------
  8. #pragma resource "*.dfm"
  9. TMainForm *MainForm;
  10. //---------------------------------------------------------------------------
  11.  
  12. __fastcall TMainForm::TMainForm(TComponent *Owner)
  13.     : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17.  
  18. void __fastcall TMainForm::CreateMDIChild(String Name)
  19. {
  20.     TMDIChild *Child;
  21.  
  22.     //--- create a new MDI child window ----
  23.     Child = new TMDIChild(Application);
  24.     Child->Caption = Name;
  25.     if (FileExists (Name))
  26.         Child->Memo1->Lines->LoadFromFile(Name);
  27. }
  28. //---------------------------------------------------------------------------
  29.  
  30. void __fastcall TMainForm::FileNew1Execute(TObject *Sender)
  31. {
  32.     CreateMDIChild("NONAME" + IntToStr(MDIChildCount + 1));
  33. }
  34. //---------------------------------------------------------------------------
  35.  
  36. void __fastcall TMainForm::FileOpen1Execute(TObject *Sender)
  37. {
  38.     if (OpenDialog->Execute())
  39.         CreateMDIChild(OpenDialog->FileName);
  40. }
  41. //---------------------------------------------------------------------------
  42.  
  43. void __fastcall TMainForm::HelpAbout1Execute(TObject *Sender)
  44. {
  45.     AboutBox->ShowModal();
  46. }
  47. //---------------------------------------------------------------------------
  48.  
  49. void __fastcall TMainForm::FileExit1Execute(TObject *Sender)
  50. {
  51.     Close();
  52. }
  53. //---------------------------------------------------------------------------
  54.  
  55.