home *** CD-ROM | disk | FTP | other *** search
/ Freelog 34 / Freelog034.iso / Progr / Demo / Main.~cp < prev    next >
Text File  |  2002-04-24  |  5KB  |  136 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. }
  46. //----------------------------------------------------------------------------
  47. void __fastcall TMainForm::FileSaveAs(TObject *Sender)
  48. {
  49.     if (SaveDialog->Execute())
  50.     {
  51.         //--- Ajouter le code pour enregistrer le fichier en cours sous SaveDialog->FileName ---
  52.         Memo1->Lines->SaveToFile(SaveDialog->FileName);
  53.     }
  54. }
  55. //----------------------------------------------------------------------------
  56. void __fastcall TMainForm::FilePrint(TObject *Sender)
  57. {
  58.     if (PrintDialog->Execute())
  59.     {
  60.         //---- Ajoute le code pour imprimer le fichier en cours ----
  61.         Printer()->EndDoc();
  62.  
  63.     }
  64. }
  65. //----------------------------------------------------------------------------
  66. void __fastcall TMainForm::FilePrintSetup(TObject *Sender)
  67. {
  68.     PrintSetupDialog->Execute();
  69. }
  70. //----------------------------------------------------------------------------
  71. void __fastcall TMainForm::FileExit(TObject *Sender)
  72. {
  73.     Close();
  74. }
  75. //----------------------------------------------------------------------------
  76. void __fastcall TMainForm::EditUndo(TObject *Sender)
  77. {
  78.     //---- Ajoute le code pour effectuer Edition DΘfaire ----
  79.     SendMessage(Memo1->Handle,WM_UNDO,0,0);
  80. }
  81. //----------------------------------------------------------------------------
  82. void __fastcall TMainForm::EditCut(TObject *Sender)
  83. {
  84.     //---- Ajoute le code pour effectuer Edition Couper ----
  85.     Memo1->CutToClipboard();
  86. }
  87. //----------------------------------------------------------------------------
  88. void __fastcall TMainForm::EditCopy(TObject *Sender)
  89. {
  90.     //--- Ajoute le code pour effectuer Edition Copier ----
  91.     Memo1->CopyToClipboard();
  92. }
  93. //----------------------------------------------------------------------------
  94. void __fastcall TMainForm::EditPaste(TObject *Sender)
  95. {
  96.     //---- Ajoute le code pour effectuer Edition Coller ----
  97.     Memo1->PasteFromClipboard();
  98. }
  99. //----------------------------------------------------------------------------
  100. void __fastcall TMainForm::WindowTile(TObject *Sender)
  101. {
  102.     Tile();
  103. }
  104. //----------------------------------------------------------------------------
  105. void __fastcall TMainForm::WindowCascade(TObject *Sender)
  106. {
  107.     Cascade();
  108. }
  109. //----------------------------------------------------------------------------
  110. void __fastcall TMainForm::WindowArrange(TObject *Sender)
  111. {
  112.     ArrangeIcons();
  113. }
  114. //----------------------------------------------------------------------------
  115. void __fastcall TMainForm::HelpContents(TObject *Sender)
  116. {
  117.     Application->HelpCommand(HELP_CONTENTS, 0);
  118. }
  119. //----------------------------------------------------------------------------
  120. void __fastcall TMainForm::HelpSearch(TObject *Sender)
  121. {
  122.     Application->HelpCommand(HELP_PARTIALKEY, Longint(""));
  123. }
  124. //----------------------------------------------------------------------------
  125. void __fastcall TMainForm::HelpHowToUse(TObject *Sender)
  126. {
  127.     Application->HelpCommand(HELP_HELPONHELP, 0);
  128. }
  129. //----------------------------------------------------------------------------
  130. void __fastcall TMainForm::HelpAbout(TObject *Sender)
  131. {
  132.     //---- Ajoute le code pour montrer la boεte A propos ----
  133.     Application->MessageBox("C'est moi qui l'ai fait...","About",MB_OK);
  134. }
  135. //----------------------------------------------------------------------------
  136.