home *** CD-ROM | disk | FTP | other *** search
/ Freelog 34 / Freelog034.iso / Progr / Demo / Main.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  2002-04-25  |  4.8 KB  |  137 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Main.h"
  6. #include "Printers.hpp"
  7. //---------------------------------------------------------------------------
  8. #pragma resource "*.dfm"
  9. TMainForm *MainForm;
  10. //---------------------------------------------------------------------------
  11. __fastcall TMainForm::TMainForm(TComponent* Owner)
  12.     : TForm(Owner)
  13. {
  14. }
  15. //----------------------------------------------------------------------------
  16. void __fastcall TMainForm::FormCreate(TObject *Sender)
  17. {
  18.     Application->OnHint = ShowHint;
  19.     Memo1->Clear();
  20. }
  21. //----------------------------------------------------------------------------
  22. void __fastcall TMainForm::ShowHint(TObject *Sender)
  23. {
  24.     StatusLine->SimpleText = Application->Hint;
  25. }
  26. //----------------------------------------------------------------------------
  27. void __fastcall TMainForm::FileNew(TObject *Sender)
  28. {
  29.     //--- Ajoute le code pour crΘer un nouveau fichier ---
  30.     Memo1->Clear();
  31. }
  32. //----------------------------------------------------------------------------
  33. void __fastcall TMainForm::FileOpen(TObject *Sender)
  34. {
  35.     if (OpenDialog->Execute())
  36.     {
  37.         //---- Ajouter le code pour ouvrir OpenDialog->FileName ----
  38.         Memo1->Lines->LoadFromFile(OpenDialog->FileName);
  39.     }
  40. }
  41. //----------------------------------------------------------------------------
  42. void __fastcall TMainForm::FileSave(TObject *Sender)
  43. {
  44.     //---- Ajoute le code pour enregistrer le fichier avec le nom en cours ----
  45.     Memo1->Lines->SaveToFile(SaveDialog->FileName);
  46. }
  47. //----------------------------------------------------------------------------
  48. void __fastcall TMainForm::FileSaveAs(TObject *Sender)
  49. {
  50.     if (SaveDialog->Execute())
  51.     {
  52.         //--- Ajouter le code pour enregistrer le fichier en cours sous SaveDialog->FileName ---
  53.         Memo1->Lines->SaveToFile(SaveDialog->FileName);
  54.     }
  55. }
  56. //----------------------------------------------------------------------------
  57. void __fastcall TMainForm::FilePrint(TObject *Sender)
  58. {
  59.     if (PrintDialog->Execute())
  60.     {
  61.         //---- Ajoute le code pour imprimer le fichier en cours ----
  62.         Printer()->EndDoc();
  63.  
  64.     }
  65. }
  66. //----------------------------------------------------------------------------
  67. void __fastcall TMainForm::FilePrintSetup(TObject *Sender)
  68. {
  69.     PrintSetupDialog->Execute();
  70. }
  71. //----------------------------------------------------------------------------
  72. void __fastcall TMainForm::FileExit(TObject *Sender)
  73. {
  74.     Close();
  75. }
  76. //----------------------------------------------------------------------------
  77. void __fastcall TMainForm::EditUndo(TObject *Sender)
  78. {
  79.     //---- Ajoute le code pour effectuer Edition DΘfaire ----
  80.     SendMessage(Memo1->Handle,WM_UNDO,0,0);
  81. }
  82. //----------------------------------------------------------------------------
  83. void __fastcall TMainForm::EditCut(TObject *Sender)
  84. {
  85.     //---- Ajoute le code pour effectuer Edition Couper ----
  86.     Memo1->CutToClipboard();
  87. }
  88. //----------------------------------------------------------------------------
  89. void __fastcall TMainForm::EditCopy(TObject *Sender)
  90. {
  91.     //--- Ajoute le code pour effectuer Edition Copier ----
  92.     Memo1->CopyToClipboard();
  93. }
  94. //----------------------------------------------------------------------------
  95. void __fastcall TMainForm::EditPaste(TObject *Sender)
  96. {
  97.     //---- Ajoute le code pour effectuer Edition Coller ----
  98.     Memo1->PasteFromClipboard();
  99. }
  100. //----------------------------------------------------------------------------
  101. void __fastcall TMainForm::WindowTile(TObject *Sender)
  102. {
  103.     Tile();
  104. }
  105. //----------------------------------------------------------------------------
  106. void __fastcall TMainForm::WindowCascade(TObject *Sender)
  107. {
  108.     Cascade();
  109. }
  110. //----------------------------------------------------------------------------
  111. void __fastcall TMainForm::WindowArrange(TObject *Sender)
  112. {
  113.     ArrangeIcons();
  114. }
  115. //----------------------------------------------------------------------------
  116. void __fastcall TMainForm::HelpContents(TObject *Sender)
  117. {
  118.     Application->HelpCommand(HELP_CONTENTS, 0);
  119. }
  120. //----------------------------------------------------------------------------
  121. void __fastcall TMainForm::HelpSearch(TObject *Sender)
  122. {
  123.     Application->HelpCommand(HELP_PARTIALKEY, Longint(""));
  124. }
  125. //----------------------------------------------------------------------------
  126. void __fastcall TMainForm::HelpHowToUse(TObject *Sender)
  127. {
  128.     Application->HelpCommand(HELP_HELPONHELP, 0);
  129. }
  130. //----------------------------------------------------------------------------
  131. void __fastcall TMainForm::HelpAbout(TObject *Sender)
  132. {
  133.     //---- Ajoute le code pour montrer la boεte A propos ----
  134.     Application->MessageBox("C'est moi qui l'ai fait...","About",MB_OK);
  135. }
  136. //----------------------------------------------------------------------------
  137.