[修正] Firemonkey Windows & macOS 平台下 Edit & Memo 中文输入后会取消原选取文字的 BUG

Posted 龟山Aone

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了[修正] Firemonkey Windows & macOS 平台下 Edit & Memo 中文输入后会取消原选取文字的 BUG相关的知识,希望对你有一定的参考价值。

问题:Firemonkey Windows & macOS 平台下 Edit & Memo 中文输入后会取消原选取文字的 BUG

适用版本:Delphi 10.1.2 & 10.2.1

修正后效果:

 

修正代码:

请将 FMX.Edit.Style.pas 复制到自己的工程目录下,再修改如下代码: (10.2.2 已修正此问题)

procedure TStyledEdit.IMEStateUpdated;
var
  CombinedText: string;
begin
  CombinedText := FTextService.CombinedText;
  FTextLayout.Text := CombinedText;
  SetCaretPosition(GetOriginCaretPosition);
  Model.SetTextWithoutValidation(CombinedText);
  if FPrompt <> nil then
    FPrompt.Visible := CombinedText.IsEmpty;
{+++>}{$IF Defined(ios) or Defined(android)} // 加入此行, 修正中文输入后会取消原选取文字的 BUG by Aone (2017.11.17)
  if Model.SelLength > 0 then
  begin
    Model.DisableNotify;
    try
      Model.SelLength := 0;
    finally
      Model.EnableNotify;
    end;
    UpdateSelectionPointPositions;
  end;
{+++>}{$ENDIF} // 加入此行, 修正中文输入后会取消原选取文字的 BUG by Aone (2017.11.17)
  LinkObserversValueModified(Self.Observers);
  DoChangeTracking;
  DoTyping;
end;

请将 FMX.Memo.Style.pas 复制到自己的工程目录下,再修改如下代码:(10.2.2 未已修正此问题)

procedure TStyledMemo.IMEStateUpdated;

...略...

    SelectionChanged := FSelected or (FSelStart <> LCaret) or (FSelEnd <> LCaret);
    CaretPosition := LCaret;
{+++>}{$IF Defined(IOS) or Defined(ANDROID)} // 加入此行, 修正中文输入后会取消原选取文字的 BUG by Aone (2017.11.17)
    FSelStart := LCaret;
    FSelected := False;
    FSelEnd := FSelStart;
    UpdateSelectionInModel;
{+++>}{$ENDIF} // 加入此行, 修正中文输入后会取消原选取文字的 BUG by Aone (2017.11.17)

    if SelectionChanged then
      UpdateSelectionPointPositions;
    if TextChanged then
      LinkObserversValueModified(Self.Observers);
  end;
end;

 

以上是关于[修正] Firemonkey Windows & macOS 平台下 Edit & Memo 中文输入后会取消原选取文字的 BUG的主要内容,如果未能解决你的问题,请参考以下文章

[修正] Firemonkey TSelection 控件等比缩放时,左下角拉动问题

[修正] Firemonkey Android Edit 可输入 Emoji (颜文字)

[修正] Firemonkey 中英文混排折行问题(移动平台)

[修正] Firemonkey Android 文字斜粗体显示不全的问题

[原创] Firemonkey 解决 Canvas 几何绘图质量问题(移动平台)

[函数] Firemonkey 取得 Windows 目前 User 的 Desktop 目录