极个别机器 EDIT MEMO 发生 APP 无响应的问题。

红鱼儿

wang_80919 发表于 2015-7-9 10:03
问题是 同一个型号的 CPU，也有正常的机器。
大概是 CPU + 系统固件 一起影响的。
如果 固件换一种，就没 ...

同感，我觉得就是固件的问题，定制的太严重才产生的不兼容的结果。

wang_80919

红鱼儿 发表于 2015-7-9 20:56
是这个效果

这机器，支持 DEBUG 吗？
我的 台电G17 ，在 DEBUG 还没开始的时候，IDE 就自动退出 DEBUG 模式了。

wang_80919

经过 红鱼儿的调试。虽然当天没找出问题。但是出现一些规律。
我今天修改了一些地方。我的机器 正常了。

wang_80919

15.XE8 修复 个别机器 输入框 EDIT MEMO 无响应 问题

(****************************************************)
(*　　　　　　　　　　　　　　　　　　　　　　　　　*)
(*　　　　　编写：爱吃猪头肉 & Flying Wang　　　　　*)
(*　　　　　　上面的版权声明请不要移除。　　　　　　*)
(*　　　　　　　　　　2015-07-11　　　　　　　　　　*)
(*　　　　　　　　　　　　　　　　　　　　　　　　　*)
(*　　　    　　　禁止发布到城通网盘。　　　  　　　*)
(*　　　　　　　　　　　　　　　　　　　　　　　　　*)
(****************************************************)

首先 感谢 [沈阳]红鱼儿(391879); 的参与测试，找出了问题的可能位置。




找到安装目录下的
FMX.Platform.Android
将他们另存到（复制到）其他目录，例如您的工程目录。

将新复制出的文件加入到您的工程中。

【第一步】
打开 FMX.Platform.Android
添加如下信息
(* ************************************************ *)
(*　　　　　　　　　　　　　　　　　　　　　　　　　*)
(*　　修改：爱吃猪头肉 & Flying Wang 2015-07-11　　 *)
(*　　　　　　上面的版权声明请不要移除。　　　　　　*)
(*　　　　　　　　　　　　　　　　　　　　　　　　　*)
(*　　　    　　　禁止发布到城通网盘。　　　  　　　*)
(*　　　　　　　　　　　　　　　　　　　　　　　　　*)
(* ************************************************ *)
这是我的版权，请您尊重下。


【第二步】
找到
procedure TPlatformAndroid.RunOnUIThread(Proc: TThreadProcedure);

将上面的函数修改为
//fix by Flying Wang & 爱吃猪头肉
procedure TPlatformAndroid.RunOnUIThread(Proc: TThreadProcedure);
begin
  //MainActivity.runOnUiThread(TSimpleProcedureRunner.Create(Proc));
  CallInUIThread(
  procedure()
  begin
    Proc;
  end);
end;


找到
procedure TPlatformAndroid.SynchronizeOnUIThread(Proc: TThreadProcedure);

将上面的函数修改为
//fix by Flying Wang & 爱吃猪头肉
procedure TPlatformAndroid.SynchronizeOnUIThread(Proc: TThreadProcedure);
var
  Runner: TSimpleProcedureRunner;
begin
//  CallInUIThread(
//  procedure()
//  begin
//  Runner := TSimpleProcedureRunner.Create(Proc);
//  MainActivity.runOnUiThread(Runner);
//  Runner.Event.WaitFor;
//  end);
  CallInUIThreadAndWaitFinishing(
  procedure()
  begin
    Proc;
  end);
end;



找到
procedure TPlatformAndroid.SetClipboard(Value: TValue);

将上面的函数修改为
//fix by Flying Wang & 爱吃猪头肉
procedure TPlatformAndroid.SetClipboard(Value: TValue);
var
  Setter: TClipboardSetter;
begin
  Setter := TClipboardSetter.Create(Value.ToString);
  CallInUIThread(
  procedure()
  begin
  SharedActivity.runOnUiThread(Setter);
  end);
  Setter.Done.WaitFor(INFINITE);
end;



找到
function TPlatformAndroid.GetClipboard: TValue;

将上面的函数修改为
//fix by Flying Wang & 爱吃猪头肉
function TPlatformAndroid.GetClipboard: TValue;
var
  Getter: TClipboardGetter;
begin
  Getter := TClipboardGetter.Create;
  CallInUIThread(
  procedure()
  begin
  SharedActivity.runOnUiThread(Getter);
  end);
  Getter.Done.WaitFor(INFINITE);
  Result := Getter.Value;
end;

红鱼儿

我测试也通过！
老猫，你太强了！

红鱼儿

wang_80919 发表于 2015-7-11 20:52
15.XE8 修复 个别机器 输入框 EDIT MEMO 无响应 问题

(************************************************ ...

没提交到QC，让官方也改一下。

1583896709

已经采用，感谢老猫！
向Delpher大侠致敬！

红鱼儿

不知官方何时能修正。