home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / SDIMAIN.CPP < prev    next >
C/C++ Source or Header  |  1997-02-28  |  2KB  |  46 lines
  1. //---------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "SDIMain.h"
  6. #include "About.h"
  7. //--------------------------------------------------------------------- 
  8. #pragma resource "*.dfm"
  9. TSDIAppForm *SDIAppForm;
  10. //--------------------------------------------------------------------- 
  11. __fastcall TSDIAppForm::TSDIAppForm(TComponent *AOwner)
  12.     : TForm(AOwner)
  13. {
  14. }
  15. //--------------------------------------------------------------------- 
  16. void __fastcall TSDIAppForm::ShowHint(TObject *Sender)
  17. {
  18.     StatusBar->SimpleText = Application->Hint;
  19. }
  20. //--------------------------------------------------------------------- 
  21. void __fastcall TSDIAppForm::ExitItemClick(TObject *Sender)
  22. {
  23.     Close();
  24. }
  25. //--------------------------------------------------------------------- 
  26. void __fastcall TSDIAppForm::OpenItemClick(TObject *Sender)
  27. {
  28.     OpenDialog->Execute();
  29. }
  30. //--------------------------------------------------------------------- 
  31. void __fastcall TSDIAppForm::SaveItemClick(TObject *Sender)
  32. {
  33.     SaveDialog->Execute();
  34. }
  35. //--------------------------------------------------------------------- 
  36. void __fastcall TSDIAppForm::About1Click(TObject *Sender)
  37. {
  38.     AboutBox->ShowModal();
  39. }
  40. //--------------------------------------------------------------------- 
  41. void __fastcall TSDIAppForm::FormCreate(TObject *Sender)
  42. {
  43.     Application->OnHint = ShowHint;
  44. }
  45. //--------------------------------------------------------------------- 
  46.