随笔分类 -  Delphi Android

摘要:问题:打开 XE8 的 ShareSheet 示例,发布到 Android 实机,按 Share 选 Gmail 结果显示:没有权限添加附件。适用:XE8 for Android修复方法:请将源码 FMX.MediaLibrary.Android.pas复制到自己的工程目录里,再进行修改。找到下面代... 阅读全文
posted @ 2015-05-08 07:50 龟山Aone 阅读(724) 评论(0) 推荐(0) 编辑
摘要:说明:调整 Firemonkey Android 显示文字有「锯齿」效果适用:Firemonkey Android 平台修改方法:请将源码 FMX.FontGlyphs.Android.pas复制到自己的工程目录里,再进行修改。// 找到这行FPaint.setAntiAlias(True); //... 阅读全文
posted @ 2015-04-21 06:17 龟山Aone 阅读(1468) 评论(1) 推荐(0) 编辑
摘要:说明:ListView 调色盘,用来快速调整 ListView Style 的颜色,能导出 Style 本文,及另存 *.style 或 *.fsf 文件。 适用:Android, iOS, Windows, OSX(由主选单选取) 下载 (2016/05/25) :[原创]Delphi_Berli 阅读全文
posted @ 2015-04-20 16:16 龟山Aone 阅读(1848) 评论(3) 推荐(3) 编辑
摘要:需求:改变 ListView 颜色 适用:Firemonkey 任何平台 操作:Style 是改变控件外观最便捷的途径,ListView 也不例外,下面示范使用 StyleBook 来设定 ListView 的外观颜色,以 Android 平台为例: 如果有需要一个 App 里拥有多种 ListVi 阅读全文
posted @ 2015-04-18 17:10 龟山Aone 阅读(3202) 评论(1) 推荐(2) 编辑
摘要:适用:XE8 Android 平台问题:安装 XE8 RTM 时,如果勾选了 Android SDK 5.0.1 (API 21) 及 Android NDK (android-ndk-r9c) ,安装后记得更新 Android SDK。▼步骤一:打开 Option 可看到许多对应不到的路径。▼步骤... 阅读全文
posted @ 2015-03-31 09:01 龟山Aone 阅读(1390) 评论(0) 推荐(0) 编辑
摘要:说明:展示 ListView 视其每一行 Item 的 Detail 字串长度自动调整高度(可每行高度不同)。 适用:Delphi XE7 / XE8 源码下载:[原创]ListView_自动计算行高(by龟山阿卍).zip 补充:计算最后一项区域并卷到最后一项 阅读全文
posted @ 2015-03-20 14:27 龟山Aone 阅读(2567) 评论(0) 推荐(1) 编辑
摘要:用代码切换 Edit 不同的键盘样式:procedure TForm1.Button1Click(Sender: TObject);begin Edit1.KeyboardType := TVirtualkeyboardType.Default; Edit1.SetFocus;end... 阅读全文
posted @ 2015-01-07 10:04 龟山Aone 阅读(1269) 评论(0) 推荐(3) 编辑
摘要:将控件 StyledSettings 的勾取消(如此才能自定样式及字型,如果勾选则依 Style 而定)。设定 TextSettings 里的 Font 属性。使用代码寫法:CheckBox1.StyledSettings := [];CheckBox1.Font.Style := [TFontSt... 阅读全文
posted @ 2014-12-11 09:57 龟山Aone 阅读(1620) 评论(0) 推荐(0) 编辑
摘要:ListView 使用LiveBindings 预设加载 200 条记录,这也许是速度的考量,但当需要全部加载的的情况时,该如何做呢?只需加入下面二行代码即可:FDQuery1.OptionsIntf.FetchOptions.RecsMax := -1;FDQuery1.OptionsIntf.F... 阅读全文
posted @ 2014-12-09 08:54 龟山Aone 阅读(1403) 评论(1) 推荐(2) 编辑
摘要:适用:XE6 或更高版本说明:ListView 在基本的项目里提供了 Accessory(项目右方「>」符号),但要如何分辨是否按下>或者项目本身呢?在 XE6 提供了OnItemClickEx 事件可以辨识,如下例:procedure TForm1.ListView1ItemClickEx(con... 阅读全文
posted @ 2014-11-24 09:11 龟山Aone 阅读(1924) 评论(2) 推荐(1) 编辑
摘要:VCL 和 Firemonkey 的 Bitmap 处理像素的方式不相同,下例为将图片内不是「白色」的像素全部改成「黑色」:procedure TForm1.Button1Click(Sender: TObject);var x, y: Integer; vBitMapData: TBitma... 阅读全文
posted @ 2014-11-03 13:34 龟山Aone 阅读(1411) 评论(0) 推荐(0) 编辑
摘要:procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Self); Form2.ShowModal(procedure(ModalResult : TModalResult) begin ... 阅读全文
posted @ 2014-09-24 12:09 龟山Aone 阅读(2126) 评论(0) 推荐(1) 编辑
摘要:更新: 下面代码 Android 实机没问题,但在 iOS 实机没有动作。 阅读全文
posted @ 2014-09-05 11:47 龟山Aone 阅读(3967) 评论(5) 推荐(1) 编辑
摘要:如果想要修改 Android Style 可以将它导出成 *.style 后再加入 TStyleBook 内来修改(iOS 的方法亦同): 阅读全文
posted @ 2014-08-25 09:38 龟山Aone 阅读(831) 评论(0) 推荐(0) 编辑
摘要:问题:当 Memo設定為 ReadOnly = True 後, 选取一段文字后,無法有複製的功能。适用:XE6 Android 系统(目前 iOS 还找不到方法)修正方法:请将源码 FMX.Platform.Android.pas复制到自己的工程目录里,再进行修改。找到TWindowManager.... 阅读全文
posted @ 2014-06-19 11:50 龟山Aone 阅读(816) 评论(0) 推荐(0) 编辑
摘要:注意:XE7 已修正这个问题。Delphi Firemonkey TListView 提供了搜寻的功能,但在 XE6 以前的版本,可以显示右边的清除按钮,在 XE6 确消失了,这里提供一个修正的方案,供大家参考。1、放一个 TListView 后,将 SearchVisible 设为 True ,就... 阅读全文
posted @ 2014-06-10 15:46 龟山Aone 阅读(1895) 评论(0) 推荐(0) 编辑
摘要:提示:Delphi 10 Seattle 透过 TImageList 来指定图标,就能显示原来图标的颜色。 下列方法只适用于 XE6 XE6 Firemonkey 里的 TabControl 可以将切页按钮设置一个图示,但显示的图示皆为灰色,如下图所示: 如果想要显示彩色的图示,则需要修改 Styl 阅读全文
posted @ 2014-05-21 15:44 龟山Aone 阅读(3028) 评论(0) 推荐(1) 编辑
摘要:说明:XE6 的 TSwitch 做了很多改进,包含多语显示处理,但 XE6 似乎只认定一种中文语系「zh」,它无法处理「zh_TW」、「zh_CN」、「zh_HK」、「zh_SG」等语系,不过可以透过修改 XE6 源码来修正此问题,如下:注意:请先将「FMX.Platform.Android.pa... 阅读全文
posted @ 2014-05-16 09:43 龟山Aone 阅读(1657) 评论(0) 推荐(0) 编辑
摘要:说明:展示使用程序码改变 Firemonkey TMemo 的背景颜色。 适用:XE6 源码下载:[原創]Memo改背景色_XE6.zip 阅读全文
posted @ 2014-04-25 10:53 龟山Aone 阅读(3586) 评论(1) 推荐(1) 编辑
摘要:说明:XE5 在 Android 平台上存在这一些键盘操作的问题,目前发现有下列几种:按键盘上的隐藏键后,无法按上一页(需要修改 XE5 源码「FMX.VirtualKeyboard.Android.pas」)。按键盘上的隐藏键后,无法触发 OnVirtualKeyboardHidden事件。关闭键... 阅读全文
posted @ 2014-04-02 05:48 龟山Aone 阅读(3716) 评论(4) 推荐(0) 编辑