如何在RichEdit中实现上标下标

时间:2010-04-27 16:14:12  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读://--------------------------------------------------------------------------- typedef enum{   CFM_Superscript, // 上标   CFM_Subscript,  // 下标   CFM_No...
  正文:

近来有好多朋友问如何在RichEdit中实现上标下标,查了好多资料都没找到。今天无意间在Delphi区闲逛,看到一份实现上下标的文章,于是整理成CB语言的贴出来。

以下代码已测试通过。在Form中放置一个RichEdit,两个Button,完整代码如下:

 

//---------------------------------------------------------------------------

typedef enum
{
   CFM_Superscript, // 上标
   CFM_Subscript,  // 下标
   CFM_Normal    // 普通文本
}TCharacterFormat;

void MySetCharFormat(TRichEdit *RichEdit, TCharacterFormat CharacterFormat)
{
   // ccrun(老妖)根据Delphi超级猛料中的资料修改而成

   // 欢迎光临 C++ Builder 研究 http://www.ccrun.com
   TCharFormat Format;
   Format.cbSize = sizeof(Format);
   Format.dwMask = CFM_OFFSET;
   // Character offset, in twips, from the baseline.
   // If the value of this member is positive,
   // the character is a superscript;
   // if it is negative, the character is a subscript.
   switch(CharacterFormat)
   {
     case CFM_Superscript:
       Format.yOffset = 60;
       break;
     case CFM_Subscript:
       Format.yOffset = -60;
       break;
     case CFM_Normal:
       Format.yOffset = 0;
       break;
     default:
       break;
   }
   // The EM_SETCHARFORMAT message sets character formatting in a rich edit control.
   // SCF_SELECTION: Applies the formatting to the current selection
   RichEdit->Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(&Format));
}
//---------------------------------------------------------------------------
// 先选中Richedit中的部分文本,然后点击此按钮,选中文本将变成上标
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   // 上标
   MySetCharFormat(RichEdit1, CFM_Superscript);
}
//---------------------------------------------------------------------------
// 先选中Richedit中的部分文本,然后点击此按钮,选中文本将变成下标
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   // 下标
   MySetCharFormat(RichEdit1, CFM_Subscript);
}


"如何在RichEdit中实现上标下标"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/VC/2010-04-27/13782.html


关键字:

关于《如何在RichEdit中实现上标下标》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td