注意点
・ A から B にリンクした場合、Bの初期値がAに渡される。（Aの初期値がBに渡されるわけではない。）？
・ LiveBinding デザイナでドラッグでリンクできない場合はウィザードを使えばリンクできる。
TBindSourceDB データベースへのバインディングを作成するために使用されます。
TPrototypeBindSource 着手するデータがまだない場合に手始めに使用できるサンプル データを生成するためのデータ ソースを提供します。 後で、このデータ ソースを何らかの実データに置き換えることができます。
TBindingsList バインディング リストを保持するために使用されます。
TDataGeneratorAdapter データ ジェネレータのアダプタです。
TBindNavigator (FMX) FMX アプリケーションの開発時にデータセット内のレコードを順次参照するために使用されます。
TBindNavigator (VCL) VCL アプリケーションの開発時にデータセット内のレコードを順次参照するために使用されます。
unit untMoveLabel10;
interface
uses
System.UIConsts,
System.UITypes,
System.Types,
FMX.StdCtrls,
FMX.Objects,
FMX.Filter.Effects,
FMX.Ani,
FMX.Controls,
SysUtils,
FMX.Types;
type
TCaptionEffect = class
private
FParentImage: TImage;
FLabel: TLabel;
FPathAnimation: TPathAnimation;
FDuration: Single;
FDelay: Single;
function getText: String;
procedure setColor(const Value: TAlphaColor);
procedure setFontSize(const Value: Integer);
procedure setText(const Value: String);
function getScreenHeight: Single;
function getScreenWidth: Single;
function getHeight: Single;
function getWidth: Single;
procedure setDuration(const Value: Single);
procedure setDelay(const Value: Single);
property ScreenWidth: Single read getScreenWidth;
property ScreenHeight: Single read getScreenHeight;
property Width: Single read getWidth;
property Height: Single read getHeight;
public
constructor Create(aParenImaget: TImage);
destructor Destroy; override;
procedure MoveIn();
procedure Erase();
property Text: String read getText write setText;
property FontSize: Integer write setFontSize;
property Color: TAlphaColor write setColor;
property Duration: Single write setDuration;
property Delay: Single write setDelay;
end;
const
LABEL_HEIGHT = 200;
DEFAULT_FontSize = 24;
DEFAULT_Color = 0;
DEFAULT_DURATION = 1;
DEFAULT_DELAY = 0;
DEFAULT_TEXT = '';
implementation
{ TCaptionEffect }
constructor TCaptionEffect.Create(aParenImaget: TImage);
begin
FParentImage := aParenImaget;
FLabel := TLabel.Create(FParentImage);
FLabel.Parent := TFmxObject(FParentImage);
FLabel.AutoSize := False;
FLabel.Visible := False;
FLabel.TextAlign := TTextAlign.taCenter;
FLabel.Height := LABEL_HEIGHT;
FLabel.Width := ScreenWidth;
FLabel.StyledSettings := [];
FLabel.ClipChildren := True;
FPathAnimation := TPathAnimation.Create(FLabel);
FPathAnimation.Parent := TFmxObject(FLabel);
Self.FontSize := DEFAULT_FontSize;
Self.Color := DEFAULT_Color;
Self.Duration := DEFAULT_DURATION;
Self.Delay := DEFAULT_DELAY;
Self.Text := DEFAULT_TEXT;
end;
destructor TCaptionEffect.Destroy;
begin
FLabel.Free;
inherited;
end;
procedure TCaptionEffect.Erase;
begin
FLabel.Visible := False;
end;
function TCaptionEffect.getHeight: Single;
begin
Result := FLabel.Height;
end;
function TCaptionEffect.getScreenHeight: Single;
begin
Result := FParentImage.Height;
end;
function TCaptionEffect.getScreenWidth: Single;
begin
Result := FParentImage.Width;
end;
function TCaptionEffect.getText: String;
begin
Result := FLabel.Text;
end;
function TCaptionEffect.getWidth: Single;
begin
Result := FLabel.Width;
end;
procedure TCaptionEffect.MoveIn;
var
tmpVCenter: Single;
begin
FLabel.Font.Size := FLabel.Font.Size;
Self.Text := Self.Text;
FLabel.Position.X := (ScreenWidth - Width) / 2;
FLabel.Position.Y := -1 * Height;
tmpVCenter := (ScreenHeight - Height) / 2;
FPathAnimation.Path.Clear;
FPathAnimation.Path.MoveTo(PointF(0, 0));
FPathAnimation.Path.LineTo(PointF(0, tmpVCenter + Height + 40));
FPathAnimation.Path.LineTo(PointF(0, tmpVCenter + Height - 40));
FPathAnimation.Path.LineTo(PointF(0, tmpVCenter + Height + 20));
FPathAnimation.Path.LineTo(PointF(0, tmpVCenter + Height - 20));
FPathAnimation.Path.LineTo(PointF(0, tmpVCenter + Height + 5));
FPathAnimation.Path.LineTo(PointF(0, tmpVCenter + Height - 5));
FPathAnimation.Path.LineTo(PointF(0, tmpVCenter + Height));
FPathAnimation.Loop := False;
FPathAnimation.Duration := FDuration;
FPathAnimation.Delay := 0;
FPathAnimation.Interpolation := TInterpolationType.itQuadratic;
FLabel.Visible := true;
FPathAnimation.Start;
end;
procedure TCaptionEffect.setColor(const Value: TAlphaColor);
begin
FLabel.FontColor := Value;
end;
procedure TCaptionEffect.setDelay(const Value: Single);
begin
FDelay := Value;
end;
procedure TCaptionEffect.setDuration(const Value: Single);
begin
FDuration := Value;
end;
procedure TCaptionEffect.setFontSize(const Value: Integer);
begin
FLabel.Font.Size := Value;
end;
procedure TCaptionEffect.setText(const Value: String);
begin
FLabel.Text := Value;
end;
end.
unit untMessageBoard;
interface
uses
System.SysUtils,
System.Classes,
System.Types,
System.UIConsts,
FMX.Filter.Effects,
FMX.StdCtrls,
FMX.Types,
FMX.Ani,
FMX.Controls,
FMX.Objects;
type
TMessageBoard = class
private
FOwnerImage: TImage;
FBGImage: TImage;
FTitleLabel: TLabel;
FContentsText: TText;
FFloatAnimation: TFloatAnimation;
procedure setBGBitmap(const Value: TBitmap);
procedure ReSize();
property BGBitmap: TBitmap write setBGBitmap;
public
constructor Create(AOwner: TImage);
destructor Destroy; override;
procedure Hide();
procedure Show(aBGBitmap: TBitmap; aTitle: String; aContents: String);
procedure RePosition();
end;
implementation
{ TMessageBoard }
constructor TMessageBoard.Create(AOwner: TImage);
begin
FOwnerImage := AOwner;
//
Self.FBGImage := TImage.Create(AOwner);
Self.FBGImage.Parent := TFmxObject(AOwner);
Self.FBGImage.HitTest := False;
//
Self.FTitleLabel := TLabel.Create(AOwner);
Self.FTitleLabel.Parent := FBGImage;
Self.FTitleLabel.HitTest := False;
//
Self.FContentsText := TText.Create(AOwner);
Self.FContentsText.Parent := FBGImage;
Self.FContentsText.HitTest := False;
//
Self.FFloatAnimation := TFloatAnimation.Create(AOwner);
end;
destructor TMessageBoard.Destroy;
begin
Self.FTitleLabel.Free;
Self.FContentsText.Free;
Self.FBGImage.Free;
// Self.FFloatAnimation.Free;
inherited;
end;
procedure TMessageBoard.Hide;
begin
Self.FBGImage.Visible := false;
end;
procedure TMessageBoard.RePosition;
begin
Self.FBGImage.Position.X := (FOwnerImage.Width - Self.FBGImage.Width) / 2;
Self.FBGImage.Position.Y := (FOwnerImage.Height - Self.FBGImage.Height) / 2;
end;
procedure TMessageBoard.ReSize;
begin
Self.FBGImage.Width := Self.FBGImage.Bitmap.Width;
Self.FBGImage.Height := Self.FBGImage.Bitmap.Height;
Self.FBGImage.Padding.Left := Self.FBGImage.Width * 0.1;
Self.FBGImage.Padding.Right := Self.FBGImage.Width * 0.1;
Self.FBGImage.Padding.Top := Self.FBGImage.Height * 0.1;
Self.FBGImage.Padding.Bottom := Self.FBGImage.Height * 0.1;
self.FTitleLabel.StyledSettings := [];
self.FTitleLabel.Font.Size := Self.FBGImage.Height * 0.08;
self.FTitleLabel.FontColor := claWhite;
self.FTitleLabel.TextAlign := TTextAlign.taCenter;
self.FTitleLabel.Height := Self.FBGImage.Height * 0.2;
self.FTitleLabel.Align := TAlignLayout.alTop;
self.FContentsText.Align := TAlignLayout.alClient;
self.FContentsText.Font.Size := Self.FBGImage.Height * 0.05;
end;
procedure TMessageBoard.setBGBitmap(const Value: TBitmap);
begin
Self.FBGImage.Bitmap.Assign(Value);
Self.ReSize();
Self.RePosition();
end;
procedure TMessageBoard.Show(aBGBitmap: TBitmap; aTitle: String; aContents: String);
begin
self.BGBitmap := aBGBitmap;
Self.FTitleLabel.Text := aTitle;
Self.FContentsText.Text := aContents;
Self.FFloatAnimation.Delay := 0;
Self.FFloatAnimation.Duration := 1;
Self.FFloatAnimation.StartValue := 0;
Self.FFloatAnimation.StopValue := 1;
Self.FFloatAnimation.Parent := FBGImage;
Self.FFloatAnimation.PropertyName := 'Opacity';
Self.FBGImage.Opacity := Self.FFloatAnimation.StartValue;
Self.FBGImage.Visible := True;
Self.FFloatAnimation.Start();
end;
end.