Firemonkey 自定义组件答案

【问题标题】：Firemonkey custom componentFiremonkey 自定义组件
【发布时间】：2015-09-12 07:33:24
【问题描述】：

我正在尝试在 Delphi XE8 上为 FireMonkey 创建一个跨平台组件...

但我面临一些问题。尽管对象检查器中的属性“宽度”和“高度”显然要编译，但大小设置被忽略了。当我重新打开项目时，我的组件也很小。（我注意到宽度和高度设置没有保存到 DFM 文件中）。

注意：FireMonkey 的所有其他原生组件都可以正常工作，只是我的自定义没有。

有什么问题？

unit FMX.Card;

interface

uses
  System.SysUtils, System.Classes, FMX.Types, FMX.Controls, FMX.Graphics, System.Types;

type

TCardNum = (Ace, Deuce, Three, Four, Five, Six, Seven, Eight, Nine, Ten, Jack, Queen, King);

TCardSuit = (Clubs, Diamonds, Hearts, Spades);

TCard = class(TControl)
private
  { Private declarations }
  FCardBack: TBitmap;
  FCardDown: Boolean;
  FCardSet: TBitmap;
  FCardNum: TCardNum;
  FCardSuit: TCardSuit;
  procedure SetCardDown(AValue: Boolean);
  procedure SetCardNum(AValue: TCardNum);
  procedure SetCardSuit(AValue: TCardSuit);
protected
  { Protected declarations }
  procedure Paint; override;
public
  { Public declarations }
  constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
  { Published declarations }
  property Position;
  property RotationAngle;
  property Width;
  property Height;
  property CardDown: Boolean read FCardDown write FCardDown;
  property CardNum: TCardNum read FCardNum write FCardNum;
  property CardSuit: TCardSuit read FCardSuit write FCardSuit;
end;

implementation

{$R 'CardResource.res'}

const
  DEFAULT_CARD_WIDTH  = 71;
  DEFAULT_CARD_HEIGHT = 96;

{ TCard }

constructor TCard.Create(AOwner: TComponent);
var
  LRStream: TResourceStream;
begin
  inherited;
  LRStream := TResourceStream.Create(HInstance, 'CardBack', RT_RCDATA);
  try
    FCardBack := TBitmap.CreateFromStream(LRStream);
  finally
    LRStream.Free;
  end;
  LRStream := TResourceStream.Create(HInstance, 'CardSet', RT_RCDATA);
  try
    FCardSet := TBitmap.CreateFromStream(LRStream);
  finally
    LRStream.Free;
  end;
end;

destructor TCard.Destroy;
begin
  FCardBack.Free;
  FCardSet.Free;
  inherited;
end;

procedure TCard.Paint;
var
  LLeft: Single;
  LTop: Single;
begin
  inherited;
  Canvas.BeginScene;
  try
    if FCardDown then
      Canvas.DrawBitmap(FCardBack, TRectF.Create(0, 0, FCardBack.Width, FCardBack.Height), TRectF.Create(0, 0, Width, Height), 1.0)
    else
    begin
      LLeft := Ord(FCardNum) * DEFAULT_CARD_WIDTH;
      LTop := Ord(FCardSuit) * DEFAULT_CARD_HEIGHT;
      Canvas.DrawBitmap(FCardSet, TRectF.Create(LLeft, LTop, LLeft + DEFAULT_CARD_WIDTH, LTop + DEFAULT_CARD_HEIGHT), TRectF.Create(0, 0, Width, Height), 1.0);
    end;
  finally
    Canvas.EndScene;
  end;
end;

【问题讨论】：

请编辑问题以包含您的代码
David 我的代码真的很大，所以我发布了：pastebin.com/s49hiBs4
请将代码减少到可以证明问题的最小数量并发布。是的，这会花费你一些时间，但这样你会得到更好的帮助。
和你的问题delphihaven.wordpress.com/2013/12/30/…有关吗？
大卫这是问题所在，我不知道问题出在哪里。不是很大，是一个简单的自定义组件。但是，似乎这是Firemonkey的错误。它是 TControl 的 TCard 后代，带有“属性宽度”；和“已发布”上的“属性高度”。

标签： delphi firemonkey custom-component delphi-xe8

【解决方案1】：

解决方案是添加“属性大小；”也发布了。

published
  { Published declarations }
  property Size;
  property Width;
  property Height;

如果您只添加“高度”和“宽度”，则只能在设计时使用。

感谢所有试图帮助我的人。

【讨论】：