home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / LOGO.CPP < prev    next >
C/C++ Source or Header  |  1997-02-28  |  4KB  |  116 lines
  1. //---------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "About.h"
  6. #include "Logo.h"
  7. #include "LogoStrs.h"
  8. #include "MAPI.hpp"
  9. //---------------------------------------------------------------------
  10. #pragma resource "*.dfm"
  11. TLogoAppForm *LogoAppForm;
  12. //---------------------------------------------------------------------
  13. template class TOpenOptions;
  14. //---------------------------------------------------------------------
  15. __fastcall TLogoAppForm::TLogoAppForm(TComponent *Owner)
  16.     : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------
  20. void __fastcall TLogoAppForm::FormCreate(TObject *Sender)
  21. {
  22.     Application->OnHint = ShowHint;
  23. }
  24. //---------------------------------------------------------------------
  25. void __fastcall TLogoAppForm::FileNew(TObject *Sender)
  26. {
  27.     FFileName = LoadStr(sUntitled);
  28.     RichEdit1->Lines->Clear();
  29.     RichEdit1->Modified = false;
  30. }
  31. //---------------------------------------------------------------------
  32. void __fastcall TLogoAppForm::FileOpen(TObject *Sender)
  33. {
  34.     if (OpenDialog->Execute())
  35.     {
  36.         RichEdit1->Lines->LoadFromFile(OpenDialog->FileName);
  37.         FFileName = OpenDialog->FileName;
  38.         RichEdit1->SetFocus();
  39.         RichEdit1->Modified = false;
  40.         RichEdit1->ReadOnly = OpenDialog->Options.Contains(ofReadOnly);
  41.     }
  42. }
  43. //---------------------------------------------------------------------
  44. void __fastcall TLogoAppForm::FileSave(TObject *Sender)
  45. {
  46.     if (FFileName == LoadStr(sUntitled))
  47.         FileSaveAs(Sender);
  48.     else
  49.     {
  50.         RichEdit1->Lines->SaveToFile(FFileName);
  51.         RichEdit1->Modified = false;
  52.     }
  53. }
  54. //---------------------------------------------------------------------
  55. void __fastcall TLogoAppForm::FileSaveAs(TObject *Sender)
  56. {
  57.     String str;
  58.     TVarRec vrs[1];
  59.  
  60.     if (SaveDialog->Execute())
  61.     {
  62.         if (FileExists(SaveDialog->FileName))
  63.         {
  64.             str = FmtLoadStr(sOverwrite, OPENARRAY(TVarRec, (SaveDialog->FileName)));
  65.             if (MessageDlg(str, mtConfirmation, TMsgDlgButtons() << mbYes << mbNo <<
  66.                 mbCancel, 0) != IDYES)
  67.                 return;
  68.         }
  69.         RichEdit1->Lines->SaveToFile(SaveDialog->FileName);
  70.         FFileName = SaveDialog->FileName;
  71.         RichEdit1->Modified = false;
  72.     }
  73. }
  74. //---------------------------------------------------------------------
  75. void __fastcall TLogoAppForm::FileSend(TObject *Sender)
  76. {
  77.     TMapiMessage MapiMessage;
  78.     Cardinal MError;
  79.  
  80.     MapiMessage.ulReserved = 0;
  81.     MapiMessage.lpszSubject = NULL;
  82.     MapiMessage.lpszNoteText = RichEdit1->Lines->Text.c_str();
  83.     MapiMessage.lpszMessageType = NULL;
  84.     MapiMessage.lpszDateReceived = NULL;
  85.     MapiMessage.lpszConversationID = NULL;
  86.     MapiMessage.flFlags = 0;
  87.     MapiMessage.lpOriginator = NULL;
  88.     MapiMessage.nRecipCount = 0;
  89.     MapiMessage.lpRecips = NULL;
  90.     MapiMessage.nFileCount = 0;
  91.     MapiMessage.lpFiles = NULL;
  92.  
  93.     MError = MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG | MAPI_LOGON_UI |
  94.         MAPI_NEW_SESSION, 0);
  95.  
  96.     if (MError)
  97.         MessageDlg(LoadStr(sSendError), mtError, TMsgDlgButtons() << mbOK, 0);
  98. }
  99. //---------------------------------------------------------------------
  100. void __fastcall TLogoAppForm::FileExit(TObject *Sender)
  101. {
  102.     Close();
  103. }
  104. //---------------------------------------------------------------------
  105. void __fastcall TLogoAppForm::About(TObject *Sender)
  106. {
  107.     AboutBox->ShowModal();
  108. }
  109. //---------------------------------------------------------------------
  110. void __fastcall TLogoAppForm::ShowHint(TObject *Sender)
  111. {
  112.     StatusBar->SimpleText = Application->Hint;
  113. }
  114. //---------------------------------------------------------------------
  115.  
  116.