Delphi XE2 之 FireMonkey 入门(3) - 关于 TPosition（delphi firedac教程）

25-02-24 12

这篇文章主要围绕DelphiXE2之FireMonkey入门(3)-关于TPosition和delphifiredac教程展开，旨在为您提供一份详细的参考资料。我们将全面介绍DelphiXE2之Fir

这篇文章主要围绕Delphi XE2 之 FireMonkey 入门(3) - 关于 TPosition和delphi firedac教程展开，旨在为您提供一份详细的参考资料。我们将全面介绍Delphi XE2 之 FireMonkey 入门(3) - 关于 TPosition的优缺点，解答delphi firedac教程的相关问题，同时也会为您带来Delphi XE2 Firemonkey iOS应用程序控制兼容性、Delphi XE2 FireMonkey Xcode安装问题、Delphi XE2 FireMonkey报告选项、Delphi XE2 之 FireMonkey 入门 (16) - 滤镜：实例测试的实用方法。

本文目录一览：

Delphi XE2 之 FireMonkey 入门(3) - 关于 TPosition（delphi firedac教程）
Delphi XE2 Firemonkey iOS应用程序控制兼容性
Delphi XE2 FireMonkey Xcode安装问题
Delphi XE2 FireMonkey报告选项
Delphi XE2 之 FireMonkey 入门 (16) - 滤镜：实例测试

Delphi XE2 之 FireMonkey 入门(3) - 关于 TPosition（delphi firedac教程）

总结

以上是小编为你收集整理的Delphi XE2 之 FireMonkey 入门(3) - 关于 TPosition全部内容。

如果觉得小编网站内容还不错，欢迎将小编网站推荐给好友。

Delphi XE2 Firemonkey iOS应用程序控制兼容性

众所周知,Embarcadero刚刚发布了Delphi XE2.我已下载它,我很高兴有一种创建iOS应用程序的方法.

要创建iOS应用程序,我们应该将代码导出到xcode.但问题是：每个控件都适用于iOS / xcode吗？我的意思是,如果我想连接到一个sql lite数据库,我可以使用delphi控件吗？

有没有办法访问iOS中的某些特定的东西,如acelerometer和相机？

是否可以在Delphi中创建有用的iPhone / Ipad应用程序(例如,连接到数据库,加载网格,连接到Web服务)？

解决方法

1-我认为你不能 Components Not Used in iOS Applications

– 我认为你可以使用TDatasource和TClientDataSet

总结

以上是小编为你收集整理的Delphi XE2 Firemonkey iOS应用程序控制兼容性全部内容。

如果觉得小编网站内容还不错，欢迎将小编网站推荐给好友。

Delphi XE2 FireMonkey Xcode安装问题

我在我的Win XP Pro系统上安装了Delphi XE2,并且在我4周大的MacBook上安装了 Xcode(我的总Mac体验= 4周).安装paserver,将一个iOS项目导出到Xcode,将其加载到Xcode中(可以看到项目和Pascal源等)并按下运行..

构建失败的消息.细节是 –

Shell脚本调用错误
/ users / rob / Library ….第4行
/usr/local/lib/fpc/2.5.1/ppcross386：没有这样的文件或目录

Pascal编译器出于某种原因不存在吗？还是缺少其他东西？
paserver是否可以在Mac上设置这些内容？
这个问题可能与paserver在安装时没有完全访问我的win系统有关吗？

我正在努力解决这个问题,而我对Mac(Lion)的不熟悉并没有帮助……

抢

解决方法

我实际上创建了一个截屏视频,显示了配置所有内容所需的步骤.我想你忘了在Mac端安装FreePascal和FireMonkey工具.

随意看看这篇文章：http://bit.ly/pzfrcJ

在那里你应该找到你需要的所有信息,你应该能够按照Screencast来完成你的设置

问候,

斯特凡

Delphi XE2 FireMonkey报告选项

XE2出局了,我注意到FMX似乎没有任何报告选项？

VCL有快速报告,我认为仍然是Rave 10 – 但FMX没什么？

解决方法

一种可能的解决方案(尽管只有 Windows)是让datasnap服务器使用rave / fast报告生成报告,将其导出到html / pdf并将结果发送到客户端进行显示.不完美,但它缩小了差距,直到有完整的FMX解决方案可用.

Delphi XE2 之 FireMonkey 入门 (16) - 滤镜：实例测试

窗体上需要 TImage、TOpenDialog 和六个按钮.

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Objects;

type
  TForm1 = class(TForm)
    Image1: TImage;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

uses FMX.Filter;

var
  bit: TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bit := TBitmap.Create(0, 0);
  if not OpenDialog1.Execute then Exit;
  bit.LoadFromFile(OpenDialog1.FileName);
  Image1.Bitmap.Assign(bit);
  Image1.SetBounds(10, 10, bit.Width, bit.Height);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bit.Free;
end;

{高斯模糊: 一个参数}
procedure TForm1.Button1Click(Sender: TObject);
var
  filter: TFilter;
begin
  filter := FilterByName(''GaussianBlur'');           //GaussianBlur 是高斯模糊滤镜的名称
  filter.Values[''BlurAmount''] := 0.25;              //BlurAmount 是高斯模糊参数的名称, 默认值是 1(0.1..10)
  filter.ValuesAsBitmap[''input''] := bit;            //input  是给输入图片约定的索引名称, 不区分大小写
  Image1.Bitmap := filter.ValuesAsBitmap[''output'']; //output 是给输出图片约定的索引名称
end;

{颜色翻转: 无参数}
procedure TForm1.Button2Click(Sender: TObject);
var
  filter: TFilter;
begin
  filter := FilterByName(''Invert'');       //颜色翻转
  filter.ValuesAsBitmap[''input''] := bit;
  Image1.Bitmap := filter.ValuesAsBitmap[''output''];
end;

{灰度: 无参数}
procedure TForm1.Button3Click(Sender: TObject);
var
  filter: TFilter;
begin
  filter := FilterByName(''Monochrome'');
  filter.ValuesAsBitmap[''input''] := bit;
  Image1.Bitmap := filter.ValuesAsBitmap[''output''];
end;

{马赛克: 一个参数}
procedure TForm1.Button4Click(Sender: TObject);
var
  filter: TFilter;
begin
  filter := FilterByName(''Pixelate'');
  filter.Values[''BlockCount''] := 30; {25 : 1..1000}
  filter.ValuesAsBitmap[''input''] := bit;
  Image1.Bitmap := filter.ValuesAsBitmap[''output''];
end;

{对比度: 两个参数}
procedure TForm1.Button5Click(Sender: TObject);
var
  filter: TFilter;
begin
  filter := FilterByName(''Contrast'');
  filter.Values[''Brightness''] := -0.5; {-1..1}
  filter.Values[''Contrast'']   := 1.5;  {0..2}
  filter.ValuesAsBitmap[''input''] := bit;
  Image1.Bitmap := filter.ValuesAsBitmap[''output''];
end;

{透视: 参数是四个点}
procedure TForm1.Button6Click(Sender: TObject);
var
  filter: TFilter;
begin
  filter := FilterByName(''PerspectiveTransform'');
  filter.Values[''TopLeft''] := VarFromPointXY(0, 0);
  filter.Values[''TopRight''] := VarFromPointXY(bit.Width, 0);
  filter.Values[''BottomRight''] := VarFromPointXY(bit.Width * 2, bit.Height * 2);
  filter.Values[''BottomLeft''] := VarFromPointXY(0, bit.Height);
  filter.ValuesAsBitmap[''input''] := bit;
  Image1.Bitmap := filter.ValuesAsBitmap[''output''];
  Image1.SetBounds(10, 10, bit.Width * 2, bit.Height * 2);
end;

end.

Transition 分类的滤镜需要两张图片:

uses FMX.Filter;

var
  bit1,bit2: TBitmap;

{百叶窗效果}
procedure TForm1.FormCreate(Sender: TObject);
var
  filter: TFilter;
begin
  bit1 := TBitmap.Create(0, 0);
  bit2 := TBitmap.Create(0, 0);
  bit1.LoadFromFile(''C:\Temp\test1.jpg'');
  bit2.LoadFromFile(''C:\Temp\test2.jpg'');

  filter := FilterByName(''BlindTransition'');
  filter.Values[''Progress''] := 50;       //变换进度: 0..100; 当以此进度做动画时, PropertyName := ''Value''
  filter.Values[''NumberOfBlinds''] := 10; //分叶数: 2..15

  filter.ValuesAsBitmap[''input''] := bit1;
  filter.ValuesAsBitmap[''target''] := bit2; //target 也是约定的索引名称
  Image1.Bitmap := filter.ValuesAsBitmap[''output''];
  Image1.SetBounds(10, 10, bit1.Width, bit1.Height);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bit1.Free;
  bit2.Free;
end;

今天关于Delphi XE2 之 FireMonkey 入门(3) - 关于 TPosition和delphi firedac教程的分享就到这里，希望大家有所收获，若想了解更多关于Delphi XE2 Firemonkey iOS应用程序控制兼容性、Delphi XE2 FireMonkey Xcode安装问题、Delphi XE2 FireMonkey报告选项、Delphi XE2 之 FireMonkey 入门 (16) - 滤镜：实例测试等相关知识，可以在本站进行查询。

本文标签：