Demo3Frm.cpp
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:3k
源码类别:

RichEdit

开发平台:

Delphi

  1. //---------------------------------------------------------------------------
  2. #include <vclvcl.h>
  3. #pragma hdrstop
  4. #include "Demo3Frm.h"
  5. #include "MainFrm.h"
  6. //---------------------------------------------------------------------------
  7. #pragma link "RichView"
  8. #pragma link "RVScroll"
  9. #pragma resource "*.dfm"
  10. TfrmDemo3 *frmDemo3;
  11. //---------------------------------------------------------------------------
  12. __fastcall TfrmDemo3::TfrmDemo3(TComponent* Owner)
  13.     : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17. void TfrmDemo3::BuildSummary()
  18. {
  19.   const AnsiString OffOn[2] = {"Off", "On"};
  20.   const int       Checks[2] = {1, 2};
  21.   rv->Clear();
  22.   rv->AddNL("Query", sncomHeading,1);
  23.   rv->AddBulletEx("", 0, il, 0);
  24.   rv->Add("Edit1: ", sncomKeyword);
  25.   rv->Add(Edit1->Text, sncomNormal);
  26.   rv->AddBulletEx("", 0, il, 0);
  27.   rv->Add("Edit2: ", sncomKeyword);
  28.   rv->Add(Edit2->Text, sncomNormal);
  29.   rv->AddBreakEx(1, rvbsLine, clRed);
  30.   if (RadioGroup1->ItemIndex!=-1)
  31.   {
  32.     rv->AddBulletEx("", 3, il, 0);
  33.     rv->Add("Menu: ", sncomKeyword);
  34.     rv->Add(RadioGroup1->Items->Strings[RadioGroup1->ItemIndex], sncomNormal);
  35.   }
  36.   rv->AddBreakEx(1, rvbsLine, clRed);
  37.   rv->AddNL("Check1: ", sncomKeyword, 0);
  38.   rv->AddBulletEx("", Checks[CheckBox1->Checked], il, -1);
  39.   rv->Add(OffOn[CheckBox1->Checked], sncomNormal);
  40.   rv->AddNL("Check2: ", sncomKeyword, 0);
  41.   rv->AddBulletEx("", Checks[CheckBox2->Checked], il, -1);
  42.   rv->Add(OffOn[CheckBox2->Checked], sncomNormal);
  43.   rv->AddNL("Check3: ", sncomKeyword, 0);
  44.   rv->AddBulletEx("", Checks[CheckBox3->Checked], il, -1);
  45.   rv->Add(OffOn[CheckBox3->Checked], sncomNormal);
  46.   rv->AddBreakEx(1, rvbsLine, clRed);
  47.   rv->AddBulletEx("", 0, il, 0);
  48.   rv->Add("Memo1: ",sncomKeyword);
  49.   rv->AddTextNL(Memo1->Lines->Text,sncomNormal, -1, 0);
  50.   rv->Format();
  51. }
  52. //---------------------------------------------------------------------------
  53. void __fastcall TfrmDemo3::Change(TObject *Sender)
  54. {
  55.   BuildSummary();
  56. }
  57. //---------------------------------------------------------------------------
  58. void __fastcall TfrmDemo3::FormKeyDown(TObject *Sender, WORD &Key,
  59.     TShiftState Shift)
  60. {
  61.   if (Key==VK_ESCAPE)
  62.     Close();  
  63. }
  64. //---------------------------------------------------------------------------
  65. void __fastcall TfrmDemo3::rvClick(TObject *Sender)
  66. {
  67.   if (! rv->SelectionExists())
  68.     Application->MessageBox("This RichView is only for view, do not click it", "Info",
  69.                          MB_OK | MB_ICONEXCLAMATION);
  70. }
  71. //---------------------------------------------------------------------------