RxRichEdit中文支持BUG修正(1)

原创于 2004-09-08 00:00:00 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function #string

RichEdit类专栏收录该内容

1 篇文章

订阅专栏

博客提到设置SelAttributes.Link为True后，两个汉字如“确定”“取消”不会出错，涉及信息技术中相关属性设置的内容。

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个汉字不会出错了比如确定,取消!