基于FireMonkey的程序开发与VCL确实有些不同,很多属性发生了变化,尤其是外观方面. 1.Margins.Padding.Position Margins:指定了当前控件在父控件(Parent)上的边界范围 Padding:指定了当前控件容纳的子控件(children)的位置范围 Position:指定了当前控件在父控件上的位置 如下图: 2.Position Position除了定义位置以外,还可以定义控件在父控件上的移动方式,如针对纵坐标(Y)创建一个新的动画: TFlatAnima

问题:Firemonkey TFrame 存档后,下次载入某些事件连结会消失(但源码还在) 解决:(暂时方法) type TTestFrame = class(TFrame) public constructor Create(AOwner: TComponent); override; end; implementation {$R *.fmx} constructor TTestFrame.Create(AOwner: TComponent); begin inherited; OnResi

说明:Firemonkey OnTouch 多点触控应用,可同时多指移动多个不同控件 原码下载:[原创]TestMultitouchMove_多点触控应用_by_Aone.zip 运行展示:

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

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

说明:iOS 原生 Edit 透明框 适用:Berlin Firemonkey 方法:在 StyleLookup 输入 transparentedit 效果: 如果有图片 Image 在这二个 Edit 的上方,效果如下: 说明:iOS 原生 Edit 设定框色 适用:Berlin Firemonkey 代码修改说明: 请将源码 FMX.Edit.iOS.pas 复制到自己的工程目录里,再进行修改. 代码内 {+++> 代表我增加的代码 代码内 {---> 代表我删除的代码 未来新版 Delp

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

说明:Firemonkey 图片按钮(支持三种状态:MouseOver, MouseDown, MouseUp,可各别指定图片) 原码下载:[示例]TestImageButton_圖片按鈕(3态).zip 运行展示:

利用 Firemonkey 控件的组合及可塑性,可以做出千变万化的效果及功能,下面展示一个不规则按钮的实做: 效果图: 实做方法: 开一个新工程 Multi-Device Application 放一个 Layout1 (TLayout) 再放四个 TRectangle 到 Layout1 里面 将 Layout1.RotationAngle 设定为 45 度 再放一个 RoundRect1 (TRoundRect) 到 Layout1 里面,并将 Align = Center 接着在 Rect

习惯VCL的做法了,到了FireMonkey里面,好像查不到单独的JPEG单元了,不少朋友就郁闷如何处理JPG了,这么大件事,不可能没有处理方法的,具体就请看代码: uses FMX.Surfaces; procedure TForm1.Button1Click(Sender: TObject);var  Surf: TBitmapSurface;  Stream: TMemoryStream;begin  Surf := TBitmapSurface.Create;  Surf.Assign(

下面示范 Firemonkey TImageList 加入一张原始尺寸图片的方法: 使用代码加图 if Assigned(List) then begin MyList.Items.Clear; do begin // Create list view item Item:= MyList.Items.Add; Item.Text:= List[i]; // Load image src:='http://www.w3schools.com/html/pic_mountain.jpg'; ms:

问题:官方 QC 的一个 Firemonkey 移动平台画线问题: RSP-14309: [iOS & Android] Delphi 10.1 Berlin - drawing problemshttps://quality.embarcadero.com/browse/RSP-14309 适用:所有 Firemonkey 版本 for Android & iOS 修复方法: 请将源码 FMX.StrokeBuilder.pas 复制到自己的工程目录里,再进行修改. Step1: 找到下

在 Firemonkey 的 TForm 并没有提供 OnMouseLeave 的事件,不过可以透过 OnMouseMove 来达到相同效果,请见代码: uses FMX.Consts; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); begin if (Shift = []) and (X = FormUseDefaultPosition) and (Y = FormUseDe

目前 Firemonkey 有一个问题,就是在 Edit 按下会立即弹出键盘,在红鱼儿的博客也提交了 QC: http://blog.sina.com.cn/s/blog_44fa172f0102vy2q.html 被此问题所累的朋友,去投个票吧! 下面想出暂时解决的方法(最终还是希望官方能修正这个问题): // 先将 Edit1.ReadOnly 设定为 False procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseBut

Firemonkey ListView 的点击事件一直让人摸不着头绪(各平台触发规则不太相同),因为它提供了点击相关的事件就有如下: OnChange:改变项目触发. OnClick:点击触发. OnItemClick:点击项目触发 Windows 平台:按下立即触发,放开后接着触发 OnItemClickEx. Android 平台:按下立即触发,不用放开接着 OnItemClickEx(按钮 Button 触发顺序与 Widnows 相同,要放开才会触发 OnItemClickEx). 下列

FireMonkey 能将目前使用的 Style 导出成文件,它提供二种文件格式,请看下列代码: *.style procedure TForm1.Button1Click(Sender: TObject); var Stream1: TFileStream; begin if TStyleManager.ActiveStyle(Self) <> nil then begin Stream1 := TFileStream.Create('d:\test.style', fmCreate); /

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

说明:Firemonkey 可以换肤是一大亮点,但使用它必须要付出一点代价,就是需要一点载入的时间,下面以 *.fsf 二进制文件来做载入测试,有兴趣可以参考看看. 开发:XE8 for iOS 皮肤:Test.fsf (886,594 Bytes) 实机:iPhone 4 (iOS v7.1.2) 制表:龟山阿卍 开启 不载入 Test.fsf 启动时间 载入 Test.fsf 启动时间 不载入快几秒 第1次 7.60 秒 11.71 秒 4.11 秒 第2次 6.62 秒 9.73 秒 3.

问题:XE8 Firemonkey 在 Windows 平台 Memo 卷动时,在第 1 , 2 行会产生重叠现象. 更新:XE8 update 1 已经修复这个问题,无需再使用下面方法. 修改前: 修改后: 适用:XE8 for Windows 平台 修复方法: 请将源码 FMX.Memo.Style.pas 复制到自己的工程目录里,再进行修改. 找到 TStyledMemo.TLines.RenderLayouts; 函数,修改如下: procedure TStyledMemo.TLines

VCL 和 Firemonkey 的 Bitmap 处理像素的方式不相同,下例为将图片内不是「白色」的像素全部改成「黑色」: procedure TForm1.Button1Click(Sender: TObject); var x, y: Integer; vBitMapData: TBitmapData; begin if Image1.Bitmap.Map(TMapAccess.maWrite, vBitMapData) then begin do do if vBitMapData.Ge

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