说明:TSelection 控件,当在属性 Proportional = True 为等比缩放时,拉动左下角,右上角会跟着移动. 适用:Berlin 10.1.1 (或之前版本) Firemonkey 修正方法: 请将源码 FMX.Objects.pas 复制到自己的工程目录里,再进行修改. procedure TSelection.GetTransformLeftBottom(AX, AY: Single; var NewSize: TPointF; var Pivot: TPointF);

问题:在 Android 平台下,显示 Emoji 文字,无法显示彩色(皆为黑色),例如 Edit 控件,即使将 Edit.ControlType = Platform 设为平台原生控件,还是没用(真机测试 Edit.ControlType 设定为 Style 与 Platform 是一样的,而 iOS 平台则不同). 修正方法: 请将源码 FMX.TextLayout.GPU.pas 复制到自己的工程目录里,再进行修改. procedure TTextLayoutNG.DoDrawLayout

Firemonkey 实现简单的图片拉伸不变形,是利用原始图片的 "固定区" 及 "位伸区" 来达到此目的,因此必需要有此结构的图片才适合. 下面以聊天气泡为例,下图四个角为固定区,就是拉伸时,这四个区是不变的,而拉伸区,会自动依位伸的大小自动位伸: 实作效果: 代码,直接扩展 Canvas 功能: //------------------------------------------------------------------------------ //

说明:调整 Firemonkey Android 显示文字有「锯齿」效果 适用:Firemonkey Android 平台 修改方法: 请将源码 FMX.FontGlyphs.Android.pas 复制到自己的工程目录里,再进行修改. // 找到这行 FPaint.setAntiAlias(True); // 抗锯齿 // 改成如下 FPaint.setAntiAlias(False); // 锯齿 效果: 上(抗锯齿)FPaint.setAntiAlias(True); 下(锯齿)FPain

说明:在 Wndows 显示时,有时控件左方会显示一条虚线 适用:Berlin Firemonkey 修正方法: 请将源码 FMX.Platform.Win.pas 复制到自己的工程目录里,再进行修改. procedure TPlatformWin.InvalidateWindowRect(const AForm: TCommonCustomForm; R: TRectF); ...略... {---> WR := TRect.Create(Trunc(R.Left), Trunc(R.Top)

提示:Delphi 10 Seattle 透过 TImageList 来指定图标,就能显示原来图标的颜色. 下列方法只适用于 XE6 XE6 Firemonkey 里的 TabControl 可以将切页按钮设置一个图示,但显示的图示皆为灰色,如下图所示: 如果想要显示彩色的图示,则需要修改 Style 才能达到,以下以用「AndroidDiamond.style」示范: 先放一个 StyleBook1 在 Form 里. 将 Form.StyleBook 指定为 StyleBook1. 在 St

问题:Firemonkey Android 平台显示斜粗体文字时,文字右方会有显示不全的问题. 修正代码: 请将 FMX.FontGlyphs.Android.pas 复制到自己的工程目录下,再修改如下代码: function TAndroidFontGlyphManager.DoGetGlyph ... 略 ... then Width := Width - Bounds.left; {+++>} // 加入修正代码: 文字斜粗显示 by Aone 2017.05.26 if FPaint.g

提问:如下安装后的 TMyPanel 能在设计期时正常显示,但 TMyPanel2 在设计期时是白板,不能正常看到,为什么? TMyPanel = class(TPanel) end; TMyCustomPanel = class(TPanel) TMyPanel2 = class(TMyCustomPanel) end; RegisterComponent('Test', [TMyPanel, TMyPanel2]); 可能:是隔代无法继承 Style 造成的,改成如下就可以了: TMyPan

使用 Firmonkey 在显示 emoji 字符时,有些 emoji 并无法显示彩色,见下图: 经查 FMX 源码,是因为判断 emoji 的字符区段不足造成的,经过修改后,便可显示,见下图: 修改方法: 将 FMX.FontGlyphs.iOS.pas 复制到自己的工程目录下. 找到 function TIOSFontGlyphManager.DoGetGlyph 修改下面代码: LImageChar := ((Char >= $1F0A0) and (Char <= $1F0FF)) o

StringGrid Header 高度设定方法: uses FMX.Header; procedure TForm1.StringGrid1ApplyStyleLookup(Sender: TObject); var Obj: TFmxObject; begin // by Aone Obj := StringGrid1.FindStyleResource('header'); if (Obj <> nil) and (Obj is THeader) then THeader(Obj).Si

参考官网:http://docwiki.embarcadero.com/Libraries/Seattle/en/FMX.Ani.TBitmapListAnimation 延伸阅读:[工具] GIF 动画每帧合并到一张 PNG

procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Self); Form2.ShowModal(procedure(ModalResult : TModalResult) begin if ModalResult = mrOK then // do something here end); end;

计算字型 Baseline 是一个不常用的函数,但如果想要显示不同大小文字下方对齐,就得用它来计算字型的 Baseline 才行,如果计算不准,显示的文字就会高高低低不整齐. 在 Firemonkey 的 Windows 平台下(其它平台没有问题),取得字型文字的 Baseline 总有些不对劲(因为并不是所有的字型都有问题,约 5% 的字型取得的 Baseline 位置会不对). 其实官方提供的计算函数 TFontGlyphManager.Current.GetBaseline 没什么问题,主

注意:XE7 已修正这个问题. Delphi Firemonkey TListView 提供了搜寻的功能,但在 XE6 以前的版本,可以显示右边的清除按钮,在 XE6 确消失了,这里提供一个修正的方案,供大家参考. 1.放一个 TListView 后,将 SearchVisible 设为 True ,就能看到上方的搜寻功能. 2.运行后,在没有输入任何文字的情况下,不会有右边的清除按钮. 3.输入一些文字后,就能看到右边的清除按钮,在还没有修正前,是看不到这个清除按钮的. 修正方法: 请将源码

中午,有个货随手买的2块钱的彩票,尼玛中了540块,这是啥子狗屎气运.稍微吐槽一下,现在开始正规的笔记录入.经常有朋友说为毛我的博客不更新了或者说更新的少了,为啥呢!一来自己懒了,没学习什么新的东西,二来平常琐事多,于是这个博客更新就少了.FMX目前已经更新了好几个版本,甚至连属性方法都改过了,从以前刚出来时候的拼音输入法支持都有Bug,到现在基本上比较流畅运行,说明了进步还是挺大的,那么学习这个东西也应该可以是提上日程了,或许不久的将来会用到. FMX是一套UI类库,就相当于以前的VCL,但是

FMX(FireMonkey)可以轻松实现很多VCL无法或难以实现的特效,所以将FMX程序作为界面,打包入DLL由VCL程序调用,是一个不错的方案.为了程序的完整性,你不想看见FMX程序在任务栏上显示图标.可是普通的Windows函数似乎没有作用,比如你取得FMX窗体的句柄后,使用ShowWindow函数隐藏任务栏图标,结果是毫无作用.其实原因很简单,只是你使用的句柄不正确而已. 正确的源代码我贴出来,具体我就不解释了,相信有基础的人都能看懂. unit Unit1; interface use

本文介绍一下ListView下如何加载数据.及使用进度条反馈当前进度给用户. 注意: 原创作品,请尊重作者劳动成果,转载请注明出处!!!原文永久固定地址:http://www.cnblogs.com/weii/p/4190719.html 我们先来看看效果图: 工程Demo下载 FMX异常强大,我们可以发挥想像,自定义进度样式,以下为本文参考代码: TPie 和 TRoundRect 请注意引用 FMX.Objects procedure TForm1.Button3Click(Sender:

一.服务端 New TSoapDataModule 添加控件 TDataSetProvider,TClientDataSet,TADOQuery,TADOConnection 添加方法 function TsoapTest.Getdata(const sql: UTF8String): Variant;begin  dm.ADOQuery1.Close;  dm.ADOQuery1.sql.Text := 'select top 50 * from mz';  dm.ADOQuery1.Open

Delphi for iOS开发指南(8):在iOS应用程序中使用Tab组件来显示分页 在FireMonkey iOS应用程序中的Tab Tab由FMX.TabControl.TTabControl定义,它是一个容器,用来包含一些Tab页: 每个Tab页可以包含任意UI元素. 你可以隐藏这些页,不用显示点按来切换Tab页. 对于每个Tab,你可以指定预先定义好的图片,也可以自定义图标,以及Text标签. 当然你也可以在控件的顶部或底部放置Tab. 使用Form Designer设计Tab页 要在

http://cache.baiducontent.com/c?m=9d78d513d9d431a94f9d92697d60c015134381132ba1d0020fa48449e3732b4b5012e7ac2652445f93926b6671f01400b3a77d6537727beadadf893acacd933f5c8c3042710bf74005d269b8bb4732b051872cebb86de7aeb772cda18895991644cb201867d0aed60f1714bd

delphi Firemonkey ListView 使用参考 Tokyo版本 http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Customizing_FireMonkey_ListView_Appearance http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Mobile_Tutorial:_Using_LiveBindings_to_Populate_a_ListView_(iOS_and