如何在RichEdit中实现上标下标

近来有好多朋友问如何在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(