Category

Development Platform
Home > E-Books > Delphi-C++Builder > View Code
MemoControl.cpp
Package: c++builder6编程实例.ZIP　[view]
Upload User: lulishicai
Upload Date: 2010-03-01
Package Size: 13202k
Code Size: 2k
Category:

Delphi-C++Builder

Development Platform:

C++ Builder

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