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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 界面编程 > RichEdit > 查看源码
Unit2.cpp
资源名称：TRichView.v1.9.10.2.rar　[点击查看]
上传用户：daoqigc
上传日期：2021-04-20
资源大小：2795k
文件大小：4k
源码类别：

RichEdit

开发平台：

Delphi

Unit2.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vclvcl.h>
  3. #pragma hdrstop
  5. #include "Unit2.h"
  6. //---------------------------------------------------------------------------
  7. #pragma link "RVEdit"
  8. #pragma link "RichView"
  9. #pragma link "RVScroll"
  10. #pragma resource "*.dfm"
  11. TForm2 *Form2;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm2::TForm2(TComponent* Owner)
  14.     : TForm(Owner)
  15. {
  16. }
  18. #if __BORLANDC__>0x520
  19. // Simple, but useful functions.
  20. // Earlier version of C++Builder do not support TTable.CreateBlobStream...
  21. bool SaveRVFToField(TCustomRichView*rv, TTable* tbl,
  22.                         const AnsiString FieldName)
  23. {
  24.   TStream* Stream = tbl->CreateBlobStream(tbl->FieldByName(FieldName), bmWrite);
  25.   bool r = rv->SaveRVFToStream(Stream, false);
  26.   delete Stream;
  27.   return r;
  28. }
  30. bool LoadRVFFromField(TCustomRichView* rv, TTable* tbl,
  31.                           const AnsiString FieldName)
  32. {
  33.   TStream * Stream = tbl->CreateBlobStream(tbl->FieldByName(FieldName), bmRead);
  34.   bool r = rv->LoadRVFFromStream(Stream);
  35.   delete Stream;
  36.   rv->Format();
  37.   return r;
  38. }
  40. #else
  42. bool SaveRVFToField(TCustomRichView*rv, TTable* tbl,
  43.                         const AnsiString FieldName)
  44. {
  45.   TStream* Stream = new TMemoryStream;
  46.   bool r = rv->SaveRVFToStream(Stream, false);
  47.   Stream->Position = 0;
  48.   ((TBlobField*)(tbl->FieldByName(FieldName)))->LoadFromStream(Stream);
  49.   delete Stream;
  50.   return r;
  51. }
  53. bool LoadRVFFromField(TCustomRichView* rv, TTable* tbl,
  54.                           const AnsiString FieldName)
  55. {
  56.   TStream* Stream = new TMemoryStream;
  57.   ((TBlobField*)(tbl->FieldByName(FieldName)))->SaveToStream(Stream);
  58.   Stream->Position = 0;
  59.   bool r = rv->LoadRVFFromStream(Stream);
  60.   delete Stream;
  61.   rv->Format();
  62.   return r;
  63. }
  65. #endif
  66. //---------------------------------------------------------------------------
  67. void TForm2::SetField(const AnsiString AFieldName, TTable * ATable)
  68. {
  69.   FTable     = ATable;
  70.   FFieldName = AFieldName;
  71.   Load();
  72.   Caption = FTable->FieldByName("Caption")->AsString;
  73. }
  74. //---------------------------------------------------------------------------
  75. void TForm2::Load()
  76. {
  77.   LoadRVFFromField(RichViewEdit1, FTable, FFieldName);
  78.   Modified = false;
  79. }
  80. //---------------------------------------------------------------------------
  81. void TForm2::Save()
  82. {
  83.   FTable->Edit();
  84.   SaveRVFToField(RichViewEdit1, FTable, FFieldName);
  85.   FTable->Post();
  86.   Modified = false;
  87. }
  88. //---------------------------------------------------------------------------
  89. void __fastcall TForm2::RichViewEdit1Change(TObject *Sender)
  90. {
  91.   Modified = true;
  92. }
  93. //---------------------------------------------------------------------------
  94. void __fastcall TForm2::SetModified(const bool Value)
  95. {
  96.   if (FModified!=Value)
  97.   {
  98.     FModified = Value;
  99.     if (FModified)
  100.       Panel1->Caption = "Modified";
  101.     else
  102.       Panel1->Caption = "";
  103.   }
  104. }
  105. //---------------------------------------------------------------------------
  106. void __fastcall TForm2::btnPostClick(TObject *Sender)
  107. {
  108.   Save();    
  109. }
  110. //---------------------------------------------------------------------------
  111. void __fastcall TForm2::btnCancelClick(TObject *Sender)
  112. {
  113.   Load();    
  114. }
  115. //---------------------------------------------------------------------------
  116. void __fastcall TForm2::FormCloseQuery(TObject *Sender, bool &CanClose)
  117. {
  118.   if (Modified)
  119.     switch (Application->MessageBox("Save changes?", "Text was modified",
  120.          MB_YESNOCANCEL | MB_ICONQUESTION))
  121.     {
  122.       case IDYES:
  123.         Save();
  124.         CanClose = true;
  125.         break;
  126.       case IDNO:
  127.         CanClose = true;
  128.         break;
  129.       case IDCANCEL:
  130.         CanClose = false;
  131.     }
  132. }
  133. //---------------------------------------------------------------------------
  134. void __fastcall TForm2::btnCloseClick(TObject *Sender)
  135. {
  136.   Close();    
  137. }
  138. //---------------------------------------------------------------------------
  139. void __fastcall TForm2::RichViewEdit1CurTextStyleChanged(TObject *Sender)
  140. {
  141.   btnBold->Down = RichViewEdit1->CurTextStyleNo!=0;    
  142. }
  143. //---------------------------------------------------------------------------
  144. void __fastcall TForm2::btnBoldClick(TObject *Sender)
  145. {
  146.   // switching 1-st and 0-th styles
  147.   if (btnBold->Down)
  148.     RichViewEdit1->ApplyTextStyle(1);
  149.   else
  150.     RichViewEdit1->ApplyTextStyle(0);
  151. }
  152. //---------------------------------------------------------------------------