RxRichEdit中文支持BUG修正(1)

D_Q

于 2004-09-08 00:00:00 发布

阅读量1.7k

点赞数

分类专栏： RichEdit类文章标签： function string

本文链接：https://blog.csdn.net/D_Q/article/details/97636

版权

RichEdit类专栏收录该内容

1 篇文章 0 订阅

订阅专栏

function TRxCustomRichEdit.GetTextRange(StartPos, EndPos: Longint): string;
var
  TextRange: TTextRange;
begin
  // SetLength(Result, EndPos - StartPos + 1);
  SetLength(Result, (EndPos - StartPos) * 2 + 1);
  TextRange.chrg.cpMin := StartPos;
  TextRange.chrg.cpMax := EndPos;
  TextRange.lpstrText := PAnsiChar(Result);
  SetLength(Result, SendMessage(Handle, EM_GETTEXTRANGE, 0, Longint(@TextRange)));
end;


SelAttributes.Link:=True 2个汉字不会出错了 比如 确定,取消!