SnackBarクロスプラットフォームアプリデモ

エンバカデロ

2年前

SnackBarデモは、、画面の下部からスクロールインするメッセージ通知を開くFloatAnimation を起動するボタンを備えたクロスプラットフォームアプリケーションです。単一コードベースと単一UIで、Android、iOS、macOS、Windows、Linux 向けにDelphiによって構築されています。

With the SnackBar demo, you’ll be able to quickly and easily create engaging, persuasive, and creative marketing materials that will grab attention and drive results. From simple one-off notifications to complex multi-step campaigns, SnackBar has you covered. And because it’s built on the cross-platform Delphi framework, you can be sure that your campaigns will look great and work flawlessly on any device.

フルクロスプラットフォームのSnackBarデモのソースコードをGithubからダウンロード

このデモは、カメラデモ、絵文字デモ、ペイントデモなど、100以上のクロスプラットフォームデモの一部です。

ソフトウェア開発におけるSnackBarとは

A snackbar is a small, temporary message that appears at the bottom of the screen. It’s used to give feedback about an operation or to display a simple message. Snackbars can contain an action. Snackbars provide brief messages about app processes, such as “saved” or “contact added.” They appear at the bottom of the screen and only stay visible for a short time before disappearing. If you need to provide more information than what a snackbar can hold, use a toast instead. Snackbars can be swiped away. Snackbars appear above the bottom navigation and take over the drawer’s space while they are visible. They’re light-weight and unobtrusive. Snackbars automatically disappear after a timeout unless they have an action associated with them. When using an action, make sure that it doesn’t require input from the user because snackbars are transient and users might not see the snackbar before it disappears. Consider using a persistent bottom sheet if you need more control over when and how your users interact with your content.

画面ショット

SnackBarデモのソースコード

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Effects, FMX.Controls.Presentation, FMX.Ani, FMX.Objects, FMX.Layouts;

type
  TForm1 = class(TForm)
    MaterialOxfordBlueSB: TStyleBook;
    ToolBar1: TToolBar;
    ShadowEffect4: TShadowEffect;
    Label1: TLabel;
    Layout1: TLayout;
<strong>    Rectangle1: TRectangle;</strong>
    Button1: TButton;
    Label2: TLabel;
<strong>    FloatAnimation1: TFloatAnimation;
    SnackButton: TButton;
    procedure SnackButtonClick(Sender: TObject);
    procedure FloatAnimation1Finish(Sender: TObject);
    procedure Button1Click(Sender: TObject);</strong>
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

<strong>procedure TForm1.Button1Click(Sender: TObject);
begin
  Layout1.Visible := False;
end;

procedure TForm1.FloatAnimation1Finish(Sender: TObject);
begin
  FloatAnimation1.Enabled := False;
end;

procedure TForm1.SnackButtonClick(Sender: TObject);
begin
  Rectangle1.Height := 0;
  Layout1.Visible := True;
  FloatAnimation1.Enabled := True;
end;</strong>

end.

unit Unit1;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.クラス, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,

FMX.Effects, FMX.Controls.Presentation, FMX.Ani, FMX.Objects, FMX.Layouts;

type

TForm1 = class(TForm)

MaterialOxfordBlueSB: TStyleBook;

ToolBar1: TToolBar;

ShadowEffect4: TShadowEffect;

Label1: TLabel;

Layout1: TLayout;

Rectangle1: TRectangle;

Button1: TButton;

Label2: TLabel;

FloatAnimation1: TFloatAnimation;

SnackButton: TButton;

procedure SnackButtonClick(Sender: TObject);

procedure FloatAnimation1Finish(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);

begin

Layout1.Visible := False;

end;

procedure TForm1.FloatAnimation1Finish(Sender: TObject);

begin

FloatAnimation1.Enabled := False;

end;

procedure TForm1.SnackButtonClick(Sender: TObject);

begin

Rectangle1.Height := 0;

Layout1.Visible := True;

FloatAnimation1.Enabled := True;

end;

end.

クロスプラットフォームアプリのプログラミング手法を学ぶには

今すぐ Coding Boot Camp 2022に登録してください。ゲーム、JavaScript、Web、Python、SQL、データベース、iOS、MacOS、Android、モバイル、Linux、Windows、デスクトップ、サーバー、Arduinoなど、プログラミングに関するさまざまなトピックを学ぶことができます。