标签：formatrange Richedit TForm1 BCB LogY RichEdit1 richdc rc 总行

BCB 中测量Richedit 的文本总行高

1，需要使用EM_FORMATRANGE 消息

2，实现的代码如下：

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    RichEdit1->Text = RichEdit1->Text.TrimRight();
    int LogX,LogY;
    HDC richdc = GetDC(RichEdit1->Handle);
    LogX = GetDeviceCaps(richdc, LOGPIXELSX);
    LogY = GetDeviceCaps(richdc, LOGPIXELSY);

    FORMATRANGE formatrange = {0};
    formatrange.hdc = richdc;
    formatrange.hdcTarget = richdc;
    formatrange.rc.left = 0;
    formatrange.rc.top  = 0;
    formatrange.rc.right = RichEdit1->ClientWidth * 1440 / LogX;
    formatrange.rc.bottom= Screen->Height* 1440 / LogY;
    formatrange.rcPage = formatrange.rc;
    formatrange.chrg.cpMin = 0;
    formatrange.chrg.cpMax = -1;
    RichEdit1->Perform(EM_FORMATRANGE,0,(long)&formatrange);
    int totalHeight = formatrange.rc.bottom * LogY / 1440;
    ShowMessage("文本总高度"+IntToStr(formatrange.rc.bottom * LogY / 1440));
    RichEdit1->Perform(EM_FORMATRANGE,0,NULL);//free the cache

    if (totalHeight > (RichEdit1->ClientHeight+3))
    {
        ShowMessage("文字超出范围！");
    }

    ReleaseDC(RichEdit1->Handle,richdc);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    RichEdit1->Font->Size++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    RichEdit1->Font->Size--;
}
//---------------------------------------------------------------------------

标签：formatrange,Richedit,TForm1,BCB,LogY,RichEdit1,richdc,rc,总行
来源： https://blog.csdn.net/huang714/article/details/88785936

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。