FMX – QDAC官方网站

[FMX]在你的跨平台应用中使用剪贴板进行复制粘贴

2017-08-10 • Android、C++ Builder、Delphi、iOS、教程 • 暂无评论 • swish •浏览 122 次

VCL 中如何使用剪贴板咱就不说了，FMX 做为一个新的框架，提供了跨平台的剪贴板支持。FMX 对剪贴板的支持来自两个接口： IFMXClipboardService：位于 FMX.Platform.pas 中

  IFMXClipboardService = interface(IInterface)
    ['{CC9F70B3-E5AE-4E01-A6FB-E3FC54F5C54E}']
    /// <summary>
    ///   Gets current clipboard value
    /// </summary>
    function GetClipboard: TValue;
    /// <summary>
    ///   Sets new clipboard value
    /// </summary>
    procedure SetClipboard(Value: TValue);
  end;

IFMXClipboardService = interface(IInterface)

['{CC9F70B3-E5AE-4E01-A6FB-E3FC54F5C54E}']

/// <summary>

/// Gets current clipboard value

/// </summary>

function GetClipboard: TValue;

/// <summary>

/// Sets new clipboard value

/// </summary>

procedure SetClipboard(Value: TValue);

end;

IFMXExtendedClipboard

[FMX] 在 FMX 中手动控制打印机打印内容

2017-04-13 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 534 次

好吧，先说下版本：10.1.2，然后说遇到的两个 Bug：一、字体大小的问题打印机的字体大小错误，比如设置为10.5（五号字的大小，3.7mm），你会发现打印出的字特别小，根本与实际设置不搭别。所以在 10.1.2 时，输出文本时的字体大小需要按以下公式计算下：字体磅数 × DPI/72 然后就没有问题了，比如现

[FMX]增强画布的 DrawBitmap 函数

2017-04-12 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 291 次

不多说话，直接上源码：

type
  TFMXCanvasHelper = class helper for TCanvas
  public
    procedure StretchDraw(R: TRectF; ABitmap: TBitmap;
      ADoFit, AHighSpeed: Boolean);
  end;
{ TFMXCanvasHelper }

procedure TFMXCanvasHelper.StretchDraw(R: TRectF; ABitmap: TBitmap;
  ADoFit, AHighSpeed: Boolean);
var
  SR: TRectF;
begin
  SR := RectF(0, 0, ABitmap.Width, ABitmap.Height);
  if ADoFit then
    R := SR.FitInto(R);
  DrawBitmap(ABitmap, SR, R, 1, AHighSpeed);
end;

type

TFMXCanvasHelper = class helper for TCanvas

public

procedure StretchDraw(R: TRectF; ABitmap: TBitmap;

ADoFit, AHighSpeed: Boolean);

end;

{ TFMXCanvasHelper }

procedure TFMXCanvasHelper.StretchDraw(R: TRectF; ABitmap: TBitmap;

ADoFit, AHighSpeed: Boolean);

var

SR: TRectF;

begin

SR := RectF(0, 0, ABitmap.Width, ABitmap.Height);

if ADoFit then

R := SR.FitInto(R);

DrawBitmap(ABitmap, SR, R, 1, AHighSpeed);

end;

参数说明： R ：绘制目标区域 ABitmap：要绘制的位图内容 ADoFit：是否按比例自适应目标区域大小 AHighSpeed：是否高速绘图，如果你是要绘制边缘清晰的位图，如二维码，那就要设置为 true，否则设置为 fals

[FMX]获取控件样式中的指定项目以便进行调节

2017-03-26 • C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 312 次

FMX 的样式丰富了我们的设计，但我们在运行时想改变特定的Style的属性却没有直接的办法，下面的函数提供了一种途径，让你找到特定的样式，然后进行处理。

function FindStyleByName(AParent:TFMXObject;AName:String):TFMXObject;
  var
    I: Integer;
    AObj:TFMXObject;
  begin
  Result:=nil;
  for I := 0 to AParent.ChildrenCount-1 do
    begin
    AObj:=AParent.Children[I];
    if AObj.StyleName=AName then
      Result:=AObj
    else
      Result:=FindStyleByName(AObj,AName);
    if Assigned(Result) then
      break;
    end;
  end;

function FindStyleByName(AParent:TFMXObject;AName:String):TFMXObject;

var

I: Integer;

AObj:TFMXObject;

begin

Result:=nil;

for I := 0 to AParent.ChildrenCount-1 do

begin

AObj:=AParent.Children[I];

if AObj.StyleName=AName then

Result:=AObj

else

Result:=FindStyleByName(AObj,AName);

if Assigned(Result) then

break;

end;

用法示例：

procedure TForm1.btnLeftApplyStyleLookup(Sender: TObject);
var
  AText:TButtonStyleTextObject;
begin
AText:=FindStyleByName(Sender as TFMXObject,'text') as TButtonStyleTextObject;
AText.NormalColor:=TAlphaColors.White;
end;

procedure TForm1.btnLeftApplyStyleLookup(Sender: TObject);

var

AText:TButtonStyleTextObject;

begin

AText:=FindStyleByName(Sender as TFMXObject,'text') as TButtonStyleTextObject;

AText.NormalColor:=TAlphaColors.White;

end;

在 btnLeft 的

[FMX]开年第二弹：修改 FMX.Forms.pas 避免在控件中滑动被识别为点击

2017-02-04 • Android、C++ Builder、Delphi、iOS、教程 • 暂无评论 • swish •浏览 618 次

通过修改 FMX.Controls 单元，我们在编辑控制上滑动时，输入法自动弹出的问题算是比较完美的解决了（参考：[FMX]开年第一弹：修改 FMX.Controls 避免按住编辑框移动时弹出输入法的问题），但 FMX 依然存在着滑动时触发OnClick事件的问题。现在我们要做的就是解决这一问题： 1、找到 FMX.

[FMX]开年第一弹：修改 FMX.Controls 避免按住编辑框移动时弹出输入法的问题

2017-02-032017-02-03 • Android、C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 669 次

在 FMX 中，当用户在编辑框上按下时，许多场景下，是要拖动位置，但是，FMX.Controls 在 MouseDown 事件中，就调用了控件的 SetFocus ，结果就造成按下时，弹出输入法，影响拖动操作。我们可以将相应的代码那到 MouseUp 中来解决这一问题。同时，我们加一个判断，以避免将拖动识别为点击。所

[FMX]使用 FMX 那些缺失的动画效果

2017-01-06 • Android、C++ Builder、Delphi、iOS、教程 • 暂无评论 • swish •浏览 437 次

FMX 里的动画做起来简单So easy! TFloatAnimation 不能对一些整数类型的属性做动态效果。实际上，我们并不需要太沮丧，毕竟天生我材必有用，今天吃饱了明天还饿，这只是因为官方忘了将TIntAnimation注册到面板上而已，我们只需要动态创建它并设置相关属性。 [crayon-5999abe0b2

[转]AOne:修正Firemonkey 中英文混排折行问题（移动平台）

2016-12-222016-12-22 • iOS、杂谈 • 暂无评论 • swish •浏览 529 次

原文链接：[修正] Firemonkey 中英文混排折行问题（移动平台） – 龟山Aone – 博客园问题：FMX 在移动平台的文字显示并非由该平台的原生 API 来显示，而是由 FMX.TextLayout.GPU 来处理，也许是官方没留意到中文字符的问题，造成在中英文混排折行时，有些问题

[FMX]从摄像头获取照片并转换为特定的格式

2016-09-08 • Android、C++ Builder、Delphi、教程 • 暂无评论 • swish •浏览 587 次

首先，我们要使用 TTakePhotoFromCamera 这个 Action 来获取一幅照片，在其 OnDidFinishTaking 事件中，可以得到一个 TBitmap 的图片。这块我们跳过代码。然后，我们要将这个位图保存为我们希望的格式，如JPEG。默认调用它的 SaveToStream 它会保存为 PNG

[FMX] FMX.Graphics.Android 中对 GIF 判断的问题的修正

2016-09-052016-09-05 • Android、C++ Builder、Delphi、更新 • 1 条评论 • swish •浏览 526 次

关于这个 Bug 的详情，大家可以参考：https://quality.embarcadero.com/browse/RSP-12424 Berlin 中的 FMX.Graphics.Android 实现的原始代码如下：

class function TBitmapCodecAndroid.IsGIFStream(const Stream: TStream): Boolean;
const
  IDCharCount = 3;
var
  PrevPosition: Int64;
  Builder: TStringBuilder;
  I: Integer;
  Value: Char;
begin
  if (Stream = nil) or (Stream.Size < IDCharCount) then
    Exit(False);

  PrevPosition := Stream.Position;
  try
    Builder := TStringBuilder.Create(IDCharCount);
    try
      for I := 0 to 2 do
      begin
        Stream.ReadBuffer(Value, 1);
        Builder.Append(Value);
      end;

      Result := SameText(Builder.ToString, 'GIF');
    finally
      Builder.Free;
    end;
  finally
    Stream.Position := PrevPosition;
  end;
end;

class function TBitmapCodecAndroid.IsGIFStream(const Stream: TStream): Boolean;

const

IDCharCount = 3;

var

PrevPosition: Int64;

Builder: TStringBuilder;

I: Integer;

Value: Char;

begin

if (Stream = nil) or (Stream.Size < IDCharCount) then

Exit(False);

PrevPosition := Stream.Position;

try

Builder := TStringBuilder.Create(IDCharCount);

try

for I := 0 to 2 do

begin

Stream.ReadBuffer(Value, 1);

Builder.Append(Value);

end;

Result := SameText(Builder.ToString, 'GIF');

finally

Builder.Free;

end;

finally

Stream.Position := PrevPosition;

end;

存在的问题：第一个判定不完善，

[转]Tht:Firemonkey使用iOS的第三方静态库（Link Binary With Libraries）

2016-08-08 • Delphi、iOS • 暂无评论 • swish •浏览 408 次

原文地址：http://blog.csdn.net/tht2009/article/details/50183721 最近需要从内存流中直接播放音频，想到了使用第三方音频播放库bass。在windows上可以很方便的使用相应动态库（具体参考万一的博客），但在iOS上却没有相应的使用介绍，准确的说是没有用于Firemon

[教程] 在 FMX 中通过样式实现自定义样式的 TCheckBox

2016-08-06 • C++ Builder、Delphi、教程 • 4 条评论 • swish •浏览 718 次

这个的目的是为了让大家明白如何在 FMX 中自定义样式，结合自己在实践中遇到的问题，做一个简单的教程。首先准备好素材图片，TCheckBox 的素材要求有三组：获得焦点（ Focus ）、鼠标移入（ Hot ）和普通，每组都包含选中和未选中两种状态，对于禁用的情况下，FMX 会自动处理，不需要准备素材。我们从网站上准

[FMX] FMX.MultiResBitmap 的一处改进

2016-08-032016-08-03 • Android、C++ Builder、Delphi、iOS、杂谈 • 2 条评论 • swish •浏览 791 次

红鱼儿在其博客中发表的一篇文章中引述了官方QC中的一处缺陷报告，谈到了 TCustomMultiResBitmap.ItemByScale 的效率问题，并提供了一个优化。不过我觉得它的优化有点太偷懒了，而且一旦不匹配，效率还不如原来的实现。所以我简单审视了下 ItemByScale 的代码，实际上它的效率问题在于过度优

[FMX] 计算文本所占用的显示区域大小

2016-07-202016-07-20 • Android、C++ Builder、Delphi、教程、杂谈 • 暂无评论 • swish •浏览 614 次

我们有时需要手动计算文本内容显示所需要占用的区域大小，在 VCL 中相信大家都很熟悉怎么做了。但在 FMX 中如何去跨平台的实现它，这就需要研究研究了，毕竟连 FMX 自带的 TLabel 的 AutoSize 设置为 true 都没产生任何效果。好吧，首先看看我们要包含的单元： FMX.TextLayout ：我们

[FMX] System.IOUtils.TPath 中的目录都是啥

2016-07-01 • Delphi、杂谈 • 暂无评论 • swish •浏览 616 次

Windows 下：

Temp=C:\Users\[UserName]\AppData\Local\Temp\
Home=C:\Users\[UserName]\AppData\Roaming
Documents=C:\Users\[UserName]\Documents
SharedDocuments=C:\Users\Public\Documents
Library=[App Path]
Cache=C:\Users\[UserName]\AppData\Local
Public=C:\ProgramData
Picture=C:\Users\[UserName]\Pictures
SharedPicture=C:\Users\Public\Pictures
Camera=C:\Users\[UserName]\Pictures
SharedCamera=C:\Users\Public\Pictures
Music=C:\Users\[UserName]\Music
SharedMusic=C:\Users\Public\Music
Movies=C:\Users\[UserName]\Videos
SharedMovies=C:\Users\Public\Videos
Alarms=C:\Users\[UserName]\Music
SharedAlarms=C:\Users\Public\Music
Downloads=C:\Users\[UserName]\AppData\Local
SharedDownloads=C:\ProgramData
Ringtones=C:\Users\[UserName]\Music
SharedRingtones=C:\Users\Public\Music

Temp=C:\Users\[UserName]\AppData\Local\Temp\

Home=C:\Users\[UserName]\AppData\Roaming

Documents=C:\Users\[UserName]\Documents

SharedDocuments=C:\Users\Public\Documents

Library=[App Path]

Cache=C:\Users\[UserName]\AppData\Local

Public=C:\ProgramData

Picture=C:\Users\[UserName]\Pictures

SharedPicture=C:\Users\Public\Pictures

Camera=C:\Users\[UserName]\Pictures

SharedCamera=C:\Users\Public\Pictures

Music=C:\Users\[UserName]\Music

SharedMusic=C:\Users\Public\Music

Movies=C:\Users\[UserName]\Videos

SharedMovies=C:\Users\Public\Videos

Alarms=C:\Users\[UserName]\Music

SharedAlarms=C:\Users\Public\Music

Downloads=C:\Users\[UserName]\AppData\Local

SharedDownloads=C:\ProgramData

Ringtones=C:\Users\[UserName]\Music

SharedRingtones=C:\Users\Public\Music

Android 下：

Temp=/storage/emulated/0/Android/data/[PackageName]/files/tmp
Home=/data/user/0/[PackageName]/files
Documents=/data/user/0/[PackageName]/files
SharedDocuments=/storage/emulated/0/Documents
Library=/data/app/[PackageName]-1/lib/arm
Cache=/data/user/0/[PackageName]/cache
Public=/storage/emulated/0/Android/data/[PackageName]/files
Picture=/storage/emulated/0/Android/data/[PackageName]/files/Pictures
SharedPicture=/storage/emulated/0/Pictures
Camera=/storage/emulated/0/Android/data/[PackageName]/files/DCIM
SharedCamera=/storage/emulated/0/DCIM
Music=/storage/emulated/0/Android/data/[PackageName]/files/Music
SharedMusic=/storage/emulated/0/Music
Movies=/storage/emulated/0/Android/data/[PackageName]/files/Movies
SharedMovies=/storage/emulated/0/Movies
Alarms=/storage/emulated/0/Android/data/[PackageName]/files/Alarms
SharedAlarms=/storage/emulated/0/Alarms
Downloads=/storage/emulated/0/Android/data/[PackageName]/files/Download
SharedDownloads=/storage/emulated/0/Download
Ringtones=/storage/emulated/0/Android/data/[PackageName]/files/Ringtones
SharedRingtones=/storage/emulated/0/Ringtones

Temp=/storage/emulated/0/Android/data/[PackageName]/files/tmp

Home=/data/user/0/[PackageName]/files

Documents=/data/user/0/[PackageName]/files

SharedDocuments=/storage/emulated/0/Documents

Library=/data/app/[PackageName]-1/lib/arm

Cache=/data/user/0/[PackageName]/cache

Public=/storage/emulated/0/Android/data/[PackageName]/files

Picture=/storage/emulated/0/Android/data/[PackageName]/files/Pictures

SharedPicture=/storage/emulated/0/Pictures

Camera=/storage/emulated/0/Android/data/[PackageName]/files/DCIM

SharedCamera=/storage/emulated/0/DCIM

Music=/storage/emulated/0/Android/data/[PackageName]/files/Music

SharedMusic=/storage/emulated/0/Music

Movies=/storage/emulated/0/Android/data/[PackageName]/files/Movies

SharedMovies=/storage/emulated/0/Movies

Alarms=/storage/emulated/0/Android/data/[PackageName]/files/Alarms

SharedAlarms=/storage/emulated/0/Alarms

Downloads=/storage/emulated/0/Android/data/[PackageName]/files/Download

SharedDownloads=/storage/emulated/0/Download

Ringtones=/storage/emulated/0/Android/data/[PackageName]/files/Ringtones

SharedRingtones=/storage/emulated/0/Ringtones

iOS

Temp=/private/var/mobile/Containers/Data/Application/[App GUID]/tmp
Home=/private/var/mobile/Containers/Data/Application/[App GUID]
Documents=/var/mobile/Containers/Data/Application/[App GUID]/Documents
SharedDocuments=
Library=/var/mobile/Containers/Data/Application/[App GUID]/Library
Cache=/var/mobile/Containers/Data/Application/[App GUID]/Library/Caches
Public=
Picture=
SharedPicture=
Camera=
SharedCamera=
Music=
SharedMusic=
Movies=
SharedMovies=
Alarms=
SharedAlarms=
Downloads=
SharedDownloads=
Ringtones=
SharedRingtones=

Temp=/private/var/mobile/Containers/Data/Application/[App GUID]/tmp

Home=/private/var/mobile/Containers/Data/Application/[App GUID]

Documents=/var/mobile/Containers/Data/Application/[App GUID]/Documents

SharedDocuments=

Library=/var/mobile/Containers/Data/Application/[App GUID]/Library

Cache=/var/mobile/Containers/Data/Application/[App GUID]/Library/Caches

Public=

Picture=

SharedPicture=

Camera=

SharedCamera=

Music=

SharedMusic=

Movies=

SharedMovies=

Alarms=

SharedAlarms=

Downloads=

SharedDownloads=

Ringtones=

SharedRingtones=

标签：FMX

[FMX]在你的跨平台应用中使用剪贴板进行复制粘贴

[FMX] 在 FMX 中手动控制打印机打印内容

[FMX]增强画布的 DrawBitmap 函数

[FMX]获取控件样式中的指定项目以便进行调节

[FMX]开年第二弹：修改 FMX.Forms.pas 避免在控件中滑动被识别为点击

[FMX]开年第一弹：修改 FMX.Controls 避免按住编辑框移动时弹出输入法的问题

[FMX]使用 FMX 那些缺失的动画效果

[转]AOne:修正Firemonkey 中英文混排折行问题（移动平台）

[FMX]从摄像头获取照片并转换为特定的格式

[FMX] FMX.Graphics.Android 中对 GIF 判断的问题的修正

[转]Tht:Firemonkey使用iOS的第三方静态库（Link Binary With Libraries）

[教程] 在 FMX 中通过样式实现自定义样式的 TCheckBox

[FMX] FMX.MultiResBitmap 的一处改进

[FMX] 计算文本所占用的显示区域大小

[FMX] System.IOUtils.TPath 中的目录都是啥

[iOS] 在发布你的 iOS 应用时的注意事项

[FMX] 写了一个Helper，为TCustomScrollBox的子类添加ScrollInView方法

[FMX] TListBox 的设置 ItemIndex 不会自动滚动到相应记录的处理

[QPlugins] DLL 中插件提供窗口服务指南

[QPlugins] 第一个 FMX 插件工作了~~~

登录