开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
MemoControl.cpp
资源名称：c++builder6编程实例.ZIP　[点击查看]
上传用户：lulishicai
上传日期：2010-03-01
资源大小：13202k
文件大小：2k
源码类别：

Delphi/CppBuilder

开发平台：

C++ Builder

MemoControl.cpp：源码内容
  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. //---------------------------------------------------------------------------