标签: firemonkey

procedure TForm1.Form3DCreate(Sender: TObject);

// create a new semi-transparent timage3d
// object with color and Z position.
procedure NewImage ( const nColor : tColor;
                     const nZ     : integer );
begin
  // create the image
  with tImage3D . Create ( self ) do
    begin
      // put it on the screen
      Parent := self;
      // set the size
      Width := 10;
      Height := 10;
      // set the image to a single pixel.
      Bitmap . Width := 1;
      Bitmap . Height := 1; …

Run Code Online (Sandbox Code Playgroud)

delphi firemonkey

Dav*_*ois

lucky-day

7
推荐指数

1
解决办法

1784
查看次数

如何确定拖动操作是否已在FireMonkey中结束？

我想知道是否已在任何目标之外释放拖动的控件.

有人会认为应该使用OnDragEnd,但该事件不起作用(他们忘记调用FMX.Types单元中的DragEnd过程).

作为替代方案,我尝试使用OnMouseUp进行拖动控制.不行.DragMode = dmAutomatic时不会触发.

作为最后的手段,我试图覆盖表单本身的MouseUp过程(因为所有鼠标事件在传递给相应的控件之前都会通过表单).惊喜:当控件的DragMode = dmAutomatic时,不会调用MouseUp过程.

令人惊讶的是,这非常简单,这是非常难以实现的,但我希望有人可能找到了一个有效的解决方案.

delphi drag delphi-xe2 firemonkey

Dom*_*mus

2012 01-11

7
推荐指数

1
解决办法

718
查看次数

Firemonkey网格控件 - 根据值设置单元格样式(通过OnGetValue函数调用)

我正在寻找建议的解决方案来设置由OnGetValue调用绘制的TGrid单元格(称为在视图中绘制单元格).对于背景,Mike的出色反应展示了如何在创建单元格时简单地应用tAlign属性; 但我的下一个挑战是着色细胞内容.

以前的帖子/答案

目标是更改我将要返回的值的单元格属性(字体,样式,颜色等...)作为单元格"值".在下面的例子中; 它将一个样式应用于正在返回的OnGetValue"值".很可能我们必须通过FM样式表来做到这一点; 或者我们可以直接获得TText属性吗？理想情况下,两种情况都很棒 - 但在这个阶段我会采取任何解决方案......(; - >

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Grid1: TGrid;
    Button1: TButton;
    StyleBook1: TStyleBook;
    procedure Grid1GetValue(Sender: TObject; const Col, Row: Integer;
      var Value: Variant);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TStringColNum = class(TStringColumn)
  private
    function CreateCellControl: TStyledControl; override;
  published
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

function TStringColNum.CreateCellControl: TStyledControl; …

Run Code Online (Sandbox Code Playgroud)

delphi grid delphi-xe2 firemonkey

Ian*_*Ian

2017 05-23

7
推荐指数

1
解决办法

1万
查看次数

Delphi FireMonkey在应用程序中存储数据

我需要在我的Delphi XE5 FireMonkey(Android)移动应用程序中存储一些自定义的静态数据.我在网上看过'RC_DATA'解决方案,但它是特定于Windows的.我需要一个跨平台的解决方案.

这是我发现的RC_DATA解决方案:http://delphidabbler.com/articles？article = 2

代码示例中的注释读取://资源类型 - RT_RCDATA(来自Windows单元)

我从这篇评论中得出结论,Windows单元中的代码是特定于Windows的.如果不是这样,我道歉.

既然Chris说它实际上是跨平台的,我会尝试一下.谢谢克里斯.

关于要求组件或库,我已阅读并重新阅读我的问题,我只是没有看到它.我猜一个'解决方案'可能会包含一个组件或库,但这在我看来并不存在.如果我做错了,我再次道歉.

delphi firemonkey

use*_*814

2018 07-31

7
推荐指数

1
解决办法

1896
查看次数

在备忘录中列出原始传感器数据

我想在Memo for Android中列出所有可用的原始传感器数据.

以下代码在过去几年中起作用,但它不适用于XE8.可能存在内部编译器错误.我有什么办法可以让它再次运作,还是有替代解决方案？

uses
  TypInfo;

type
  TOrientationSensorAccessor = class(TCustomOrientationSensor);
  TLocationSensorAccessor = class(TCustomLocationSensor);

procedure TForm2.Button1Click(Sender: TObject);
var
  p_location: TCustomLocationSensor.TProperty;
  p_orientation: TCustomOrientationSensor.TProperty;
  n, v: string;
begin
  Memo1.Lines.Clear;

  if Assigned(OrientationSensor1.Sensor) then
  begin
    if not OrientationSensor1.Sensor.Started then OrientationSensor1.Sensor.Start;

    // Error (only in XE8): Incompatible types 'TCustomLocationSensor.TProperty' and 'TCustomOrientationSensor.TProperty'
    // In XE7 it works.
    for p_orientation in OrientationSensor1.Sensor.AvailableProperties do
    begin
      n := 'OrientationSensor.'+GetEnumName(TypeInfo(TCustomOrientationSensor.TProperty), integer(p_orientation)) ;
      v := FloatToStr(TOrientationSensorAccessor(OrientationSensor1.Sensor).GetDoubleProperty(p_orientation));
      Memo1.Lines.Values[n] := v;
    end;
  end;

  if Assigned(LocationSensor1.Sensor) then
  begin
    if not LocationSensor1.Sensor.Started then LocationSensor1.Sensor.Start;
    for p_location …

Run Code Online (Sandbox Code Playgroud)

delphi android firemonkey delphi-xe8

Dan*_*all

2015 04-22

7
推荐指数

1
解决办法

392
查看次数