随笔分类 -  Delphi

摘要:在 Firemonkey 的 TForm 并没有提供 OnMouseLeave 的事件,不过可以透过 OnMouseMove 来达到相同效果,请见代码: 阅读全文
posted @ 2016-04-11 21:36 龟山Aone 阅读(566) 评论(0) 推荐(1) 编辑
摘要:目前 Firemonkey 有一个问题,就是在 Edit 按下会立即弹出键盘,在红鱼儿的博客也提交了 QC: http://blog.sina.com.cn/s/blog_44fa172f0102vy2q.html 被此问题所累的朋友,去投个票吧! 下面想出暂时解决的方法(最终还是希望官方能修正这个 阅读全文
posted @ 2016-04-08 14:03 龟山Aone 阅读(1421) 评论(0) 推荐(1) 编辑
摘要:StringGrid Header 高度设定方法: ps. 所有的 Style 都能用这个方法,找到后,再修改它。 StringGrid Header 文字颜色设定方法(不改变底色): 效果: StringGrid Header 文字颜色设定方法(改变底色): 效果: 阅读全文
posted @ 2016-03-28 09:00 龟山Aone 阅读(2474) 评论(0) 推荐(3) 编辑
摘要:问题:使用 Canvas.DrawPath 绘制时,最后一点无法画到终点位置。(这个问题要在粗线才能察觉) 适用:Delphi 10 Seattle (或更早的版本) for Android & iOS 修复方法: 请将源码 FMX.StrokeBuilder.pas 复制到自己的工程目录里,再进行 阅读全文
posted @ 2016-03-25 15:20 龟山Aone 阅读(1139) 评论(0) 推荐(2) 编辑
摘要:目前的 Delphi 10 Seattle 的 TLang 尚不支持取得简体及繁体的语系字符,在能取得正确的语系字符后(整理中),才能使用下列函数判断: 阅读全文
posted @ 2016-03-24 18:36 龟山Aone 阅读(992) 评论(0) 推荐(1) 编辑
摘要:Apple 在 iOS 提供了文件共享(FileSharing)功能,让 App 有一个对外窗口的目录,透过 iTunes 可以任意管理这个目录的文档内容(可拖入文档,也能将文档拖出备份)。 如果 App 需要文件共享,只需要在 Delphi 的 Project Option 需要加入 UIFile 阅读全文
posted @ 2016-03-18 09:02 龟山Aone 阅读(1463) 评论(0) 推荐(0) 编辑
摘要:要使 StringGrid 只能上下滚动,不要左右滚动,只要加入下面代码即可: StringGrid1.AniCalculations.TouchTracking := [ttVertical]; ps. 此方法只适用在有触控屏幕的装置。 阅读全文
posted @ 2016-03-09 10:20 龟山Aone 阅读(829) 评论(0) 推荐(0) 编辑
摘要:参考: http://developer.apple.com/library/ios/#qa/qa1719 阅读全文
posted @ 2016-03-07 19:15 龟山Aone 阅读(603) 评论(0) 推荐(0) 编辑
摘要:// 字串含中文 by Aone function IsIncludeChinese(Str: String): Boolean; var i: Integer; UCS4Str: UCS4String; begin Result := False; UCS4Str := UnicodeString 阅读全文
posted @ 2016-03-02 17:11 龟山Aone 阅读(1202) 评论(0) 推荐(0) 编辑
摘要:修改 Windows 下的 Style,找到下面二个 Style ,修改其中的 text 内的 font 大小: 将 FMX.Menus.pas 复制到自己的工程目录内,再修改如下内容: constructor TMenuBar.Create(AOwner: TComponent); begin / 阅读全文
posted @ 2016-02-01 20:29 龟山Aone 阅读(758) 评论(0) 推荐(0) 编辑
摘要:参考官网:http://docwiki.embarcadero.com/Libraries/Seattle/en/FMX.Ani.TBitmapListAnimation 延伸阅读:[工具] GIF 动画每帧合并到一张 PNG 阅读全文
posted @ 2016-01-21 22:42 龟山Aone 阅读(2030) 评论(1) 推荐(3) 编辑
摘要:使用 Firmonkey 在显示 emoji 字符时,有些 emoji 并无法显示彩色,见下图:经查 FMX 源码,是因为判断 emoji 的字符区段不足造成的,经过修改后,便可显示,见下图:修改方法:将 FMX.FontGlyphs.iOS.pas 复制到自己的工程目录下。找到 function ... 阅读全文
posted @ 2016-01-14 14:29 龟山Aone 阅读(1232) 评论(0) 推荐(0) 编辑
摘要:在 FMX 下的 TComboBox 下拉菜单字型修改有二种方法: 效果示例: 阅读全文
posted @ 2016-01-07 05:38 龟山Aone 阅读(2514) 评论(0) 推荐(1) 编辑
摘要:各网友提交的 QC: 阅读全文
posted @ 2015-12-23 14:11 龟山Aone 阅读(1227) 评论(0) 推荐(0) 编辑
摘要:说明:在 iOS 里有一个人性化的辅助设定,可以将字体放大,但这个设定对 Delphi 是不起作用的,还好 Delphi 提供了这个 iOS API 可以取得。 开发环境:Delphi 10 Seattle 运行系统:iOS 7.0 以上 参考资料:Apple 官网 源码: Android 请参考: 阅读全文
posted @ 2015-11-20 05:19 龟山Aone 阅读(908) 评论(0) 推荐(1) 编辑
摘要:在 iOS 9 Apple 加入了 HTTP 协议,还好有 TMS 提供快速修复工具,得以能顺利上架到 App Store。现在 Delphi 10 Seattle Update 1 提供了这个设定功能,无需再使用 TMS 修复工具了,见下图: 阅读全文
posted @ 2015-11-19 17:49 龟山Aone 阅读(1123) 评论(0) 推荐(1) 编辑
摘要:最新更新:(2015.10.02)开发环境:Delphi 10 SeattleOS X El Capitan v10.11需使用下列 HotfixID: 30398, PAServer Hotfix for Delphi, C++Builder and RAD Studio 10 SeattleXc... 阅读全文
posted @ 2015-09-19 12:25 龟山Aone 阅读(2251) 评论(7) 推荐(2) 编辑
摘要:Firemonkey ListView 的点击事件一直让人摸不着头绪(各平台触发规则不太相同),因为它提供了点击相关的事件就有如下:OnChange:改变项目触发。OnClick:点击触发。OnItemClick:点击项目触发Windows 平台:按下立即触发,放开后接着触发 OnItemClick... 阅读全文
posted @ 2015-09-08 07:27 龟山Aone 阅读(3324) 评论(0) 推荐(2) 编辑
摘要:FireMonkey 能将目前使用的 Style 导出成文件,它提供二种文件格式,请看下列代码: *.style *.fsf XE8 格式支持: TStyleFormat = (Indexed, Binary, Text); 阅读全文
posted @ 2015-07-14 22:18 龟山Aone 阅读(1063) 评论(0) 推荐(1) 编辑
摘要:Firemonkey 实现简单的图片拉伸不变形,是利用原始图片的 "固定区" 及 "位伸区" 来达到此目的,因此必需要有此结构的图片才适合。下面以聊天气泡为例,下图四个角为固定区,就是拉伸时,这四个区是不变的,而拉伸区,会自动依位伸的大小自动位伸:实作效果:代码,直接扩展 Canvas 功能://-... 阅读全文
posted @ 2015-07-02 17:34 龟山Aone 阅读(2174) 评论(1) 推荐(2) 编辑