home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / MDIFRAME.CPP < prev    next >
C/C++ Source or Header  |  1997-02-14  |  2KB  |  53 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1997 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl\vcl.h>
  7. #pragma hdrstop
  8.  
  9. #include "MDIFrame.h"
  10. #include "MDIEdit.h"
  11. //---------------------------------------------------------------------------
  12. #pragma resource "*.dfm"
  13. TFrameForm *FrameForm;
  14. //---------------------------------------------------------------------------
  15. __fastcall TFrameForm::TFrameForm(TComponent* Owner)
  16.     : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  20. void __fastcall TFrameForm::Exit1Click(TObject *Sender)
  21. {
  22.   Close();
  23. }
  24. //---------------------------------------------------------------------
  25. void __fastcall TFrameForm::Tile1Click(TObject *Sender)
  26. {
  27.   Tile();
  28. }
  29. //---------------------------------------------------------------------
  30. void __fastcall TFrameForm::Cascade1Click(TObject *Sender)
  31. {
  32.   Cascade();
  33. }
  34. //---------------------------------------------------------------------
  35. void __fastcall TFrameForm::Arrangeicons1Click(TObject *Sender)
  36. {
  37.   ArrangeIcons();
  38. }
  39. //---------------------------------------------------------------------
  40. void __fastcall TFrameForm::New1Click(TObject *Sender)
  41. {
  42.   EditForm = new TEditForm(this);
  43. }
  44. //---------------------------------------------------------------------
  45. void __fastcall TFrameForm::Open1Click(TObject *Sender)
  46. {
  47.   if(OpenFileDialog->Execute()){
  48.     EditForm=new TEditForm(this);
  49.     EditForm->Open(OpenFileDialog->FileName);
  50.   }
  51. }
  52. //---------------------------------------------------------------------
  53.