home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Info / TeachU14 / SAMS / Code / Day06 / viewmain.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-08  |  2.0 KB  |  58 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "ViewMain.h"
  6. #include "MDIChild.h"
  7. #include "PVAbout.h"
  8. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. #pragma resource "*.dfm"
  11. TMainForm *MainForm;
  12. //---------------------------------------------------------------------------
  13. __fastcall TMainForm::TMainForm(TComponent* Owner)
  14.     : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18. void __fastcall TMainForm::Open1Click(TObject *Sender)
  19. {
  20.   if (OpenDialog->Execute()) {
  21.     TChild* child = new TChild(this);
  22.     child->Image->Picture->LoadFromFile(OpenDialog->FileName);
  23.     child->ClientWidth = child->Image->Picture->Width;
  24.     child->ClientHeight = child->Image->Picture->Height;
  25.     child->Caption = ExtractFileName(OpenDialog->FileName);    child->Show();
  26.   }
  27. }
  28. //---------------------------------------------------------------------------
  29. void __fastcall TMainForm::SaveAs1Click(TObject *Sender)
  30. {
  31.   TChild* child = dynamic_cast<TChild*>(ActiveMDIChild);
  32.   if (!child) return;
  33.   if (SaveDialog->Execute()) {
  34.     child->Image->Picture->SaveToFile(SaveDialog->FileName);
  35.   }
  36. }
  37. //---------------------------------------------------------------------------
  38. void __fastcall TMainForm::Tile1Click(TObject *Sender)
  39. {
  40.   Tile();    
  41. }
  42. //---------------------------------------------------------------------------
  43. void __fastcall TMainForm::Cascade1Click(TObject *Sender)
  44. {
  45.   Cascade();    
  46. }
  47. //---------------------------------------------------------------------------
  48. void __fastcall TMainForm::ArrangeAll1Click(TObject *Sender)
  49. {
  50.   ArrangeIcons();    
  51. }
  52. //---------------------------------------------------------------------------
  53. void __fastcall TMainForm::About1Click(TObject *Sender)
  54. {
  55.   AboutBox->ShowModal();
  56. }
  57. //---------------------------------------------------------------------------
  58.