网页功能: 加入收藏 设为首页 网站搜索  
如何在RichEdit中实现上标下标
发表日期:2004-06-27作者:[转贴] 出处:CSDN  

近来有好多朋友在csdn问如何在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);
}

 

如果您有其他的想法和建议,欢迎来信探讨:info@ccrun.com

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 如何在RichEdit中实现上标下标
本类热点文章
  BDE错误码对照表
  BDE错误码对照表
  编写断点续传和多线程下载模
  编写断点续传和多线程下载模
  在Win9x/NT下获取硬盘物理序列号
  在Win9x/NT下获取硬盘物理序列号
  数据库设计指南
  数据库设计指南
  如何在BCB中调试Active Form
  如何在BCB中调试Active Form
  实现和IE浏览器交互的几种方法的介绍
  实现和IE浏览器交互的几种方法的介绍
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2021 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00334