MemoControl.cpp
上传用户:lulishicai
上传日期:2010-03-01
资源大小:13202k
文件大小:2k
源码类别:

Delphi/CppBuilder

开发平台:

C++ Builder

  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #include "MemoControl.h"
  5. //---------------------------------------------------------------------------
  6. #pragma package(smart_init)
  7. #pragma resource "*.dfm"
  8. TForm1 *Form1;
  9. //---------------------------------------------------------------------------
  10. __fastcall TForm1::TForm1(TComponent* Owner)
  11.         : TForm(Owner)
  12. {
  13. }
  14. //---------------------------------------------------------------------------
  15. void __fastcall TForm1::FormCreate(TObject *Sender)
  16. {
  17. Form1->Memo1->Clear();
  18. //清空文本框
  19. Form1->OpenDialog1->Title="请选择一个文本文件:";
  20. //设置对话框标题
  21. Form1->OpenDialog1->Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt";
  22. //设置文件过滤条件
  23. Form1->OpenDialog1->DefaultExt=String("TXT");
  24. //设置缺省扩展名
  25. Form1->SaveDialog1->Title="请选择一个文本文件:";
  26. //设置对话框标题
  27. Form1->SaveDialog1->Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt";
  28. //设置文件过滤条件
  29. Form1->SaveDialog1->DefaultExt=String("TXT");
  30. //设置缺省扩展名
  31. Form1->Button2->Enabled=false;
  32. //设置按钮有效状态
  33. Form1->FontDialog1->Font=Form1->Memo1->Font;
  34. Form1->ColorDialog1->Color=Form1->Memo1->Color;
  35. //对话框的初始化
  36. }
  37. //---------------------------------------------------------------------------
  38. void __fastcall TForm1::Button1Click(TObject *Sender)
  39. {
  40. if (Form1->OpenDialog1->Execute())
  41.    //打开一个对话框
  42.    {
  43.    Form1->Memo1->Lines->LoadFromFile(Form1->OpenDialog1->FileName);
  44.    //打开一个文件
  45.    Form1->Button2->Enabled=true;
  46.    //设置按钮有效状态
  47.    }
  48. }
  49. //---------------------------------------------------------------------------
  50. void __fastcall TForm1::Button2Click(TObject *Sender)
  51. {
  52. if (Form1->SaveDialog1->Execute())
  53.    //显示一个对话框
  54.    {
  55.    Form1->Memo1->Lines->SaveToFile(Form1->SaveDialog1->FileName);
  56.    //保存文件
  57.    }
  58. }
  59. //---------------------------------------------------------------------------
  60. void __fastcall TForm1::Button3Click(TObject *Sender)
  61. {
  62. if (Form1->FontDialog1->Execute())
  63.     //打开一个对话框
  64.     {
  65.     Form1->Memo1->Font=Form1->FontDialog1->Font;
  66.     //设置控件中文本显示字体
  67.     }
  68. }
  69. //---------------------------------------------------------------------------
  70. void __fastcall TForm1::Button4Click(TObject *Sender)
  71. {
  72. if (Form1->ColorDialog1->Execute())
  73.    //打开一个对话框
  74.    {
  75.    Form1->Memo1->Color=Form1->ColorDialog1->Color;
  76.    //设置控件背景色
  77.    }
  78. }
  79. //---------------------------------------------------------------------------