2Pascal-新时代的Pascal

 找回密码
 立即注册
搜索
热搜: fastreport
查看: 3769|回复: 17
打印 上一主题 下一主题

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

[复制链接]

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
82018
跳转到指定楼层
楼主
发表于 2015-6-8 14:50:53 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式
京东数码购物支持本站

注意:第二页  第14楼 ,问题已经解决。

https://quality.embarcadero.com/browse/RSP-9720
台电 G17 B5DV 型号的产品。
只要界面有输入框 EDIT MEMO,点上去, APP 很快就无响应了。
具体型号
http://www.teclast.com/zhuanti/G17c4/


大家有没有遇到类似的机器呢。

请写出 机器的具体型号名称。
例如 XXX 品牌 YYY型号 S 版。
最好给出官方产品介绍页。


已经有两个群友,提到此问题,但是他们拒绝透露具体型号。





(C)(P)Flying Wang
回复

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
82018
沙发
 楼主| 发表于 2015-6-8 14:58:31 | 显示全部楼层
京东数码购物支持本站
Value 发表于 2015-6-8 14:52
或许是动画问题Memo1.AniCalculations.BoundsAnimation := False;试试看

TEdit 没有这个属性。
(C)(P)Flying Wang
回复 支持 反对

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
82018
板凳
 楼主| 发表于 2015-6-16 09:17:26 | 显示全部楼层
京东购书支持本站
目前已知有该问题的机型如下
台电G17、runbo x5、konka康佳BK929
(C)(P)Flying Wang
回复 支持 反对

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
82018
地板
 楼主| 发表于 2015-7-7 16:44:57 | 显示全部楼层
京东数码购物支持本站
红鱼儿 发表于 2015-7-7 14:55
我遇到一款 中兴 ZTE B880,android 5.0.2

这里

仅仅是点 EDIT MEMO 类的发生无响应。
如果点 按钮,还是没问题的。

您这个机器,是这个效果吗?
(C)(P)Flying Wang
回复 支持 反对

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
82018
5#
 楼主| 发表于 2015-7-9 10:03:11 | 显示全部楼层
京东数码购物支持本站
admin 发表于 2015-7-9 08:31
都是联发科的cpu吧

问题是 同一个型号的 CPU,也有正常的机器。
大概是 CPU + 系统固件 一起影响的。
如果 固件换一种,就没有问题了。

由于没有别的 CPU 参照,无法证明是固件的区别。

但是,我还是怀疑 固件。

固件一般是由 第三方 团队开发的。

出问题的这几种机器,可能是同一个开发者。

他们的 固件,EMB 可能存在兼容问题。
只是他们的产品比较少,所以 EMB 没有测试到。
(C)(P)Flying Wang
回复 支持 反对

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
82018
6#
 楼主| 发表于 2015-7-10 15:03:36 | 显示全部楼层
京东数码购物支持本站

这机器,支持 DEBUG 吗?
我的 台电G17 ,在 DEBUG 还没开始的时候,IDE 就自动退出 DEBUG 模式了。
(C)(P)Flying Wang
回复 支持 反对

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
82018
7#
 楼主| 发表于 2015-7-11 20:52:23 | 显示全部楼层
京东数码购物支持本站
经过 红鱼儿的调试。虽然当天没找出问题。但是出现一些规律。
我今天修改了一些地方。我的机器 正常了。
(C)(P)Flying Wang
回复 支持 反对

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
82018
8#
 楼主| 发表于 2015-7-11 20:52:49 | 显示全部楼层
京东数码购物支持本站
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;
(C)(P)Flying Wang
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|新时代Pascal论坛

GMT+8, 2024-5-18 14:47 , Processed in 0.073414 second(s), 23 queries .

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表