Update ScrollBar Demoは、Live Binding がEditコントロールとScrollBarコントロールの同期を維持するのに、どのように役立つかを確認することができるよい例です。このクロスプラットフォーム アプリケーションは、単一コードベースとUI を使用して構築されており、任意のOSで簡単に使用できます。Delphi ベースのアプリは、Android、iOS、macOS、Windows、Linuxをサポートしており、幅広く利用できます。このデモは、どのOSでも、どのデバイスでも、Live Bindingによって情報を簡単かつ正確に、最新に保つことができることが分かります。ぜひ、ご確認ください。
フルクロスプラットフォームのScrolllBarデータバインディングデモのソースコードをGithubからダウンロード
このデモは、カメラデモ、絵文字デモ、ペイントデモなど、100以上のクロスプラットフォームデモの一部です。
目次
ソフトウェア開発におけるScrollBar
ScrollBarは、ユーザーがドキュメントまたは Webページをスクロールできるようにするグラフィカル ユーザー インターフェイス要素です。ScrollBarは水平または垂直に設置することができ、通常はウィンドウまたはフレームの右側にあります。ほとんどの場合、ScrollBarは垂直方向のスクロールに使用されますが、場合によっては水平方向のスクロールにも使用できます。ScrollBarを使用して水平方向にスクロールさせることもあります。ソフトウェア開発では、長いドキュメントや Web ページをスクロールするためにScrollBarがよく使用されます。また、ユーザー インターフェイスの画像やその他の要素をスクロールするためにも使用できます。
画面ショット
ScrollBarデモのソースコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 |
unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.クラス, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.StorageBin, Data.Bind.EngExt, Fmx.Bind.DBEngExt, System.Rtti, System.Bindings.Outputs, Fmx.Bind.Editors, FireDAC.Stan.StorageJSON, Data.Bind.Components, Data.Bind.DBScope, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, FMX.StdCtrls, FMX.Effects, FMX.Controls.Presentation, FMX.Edit; type TForm1 = class(TForm) MaterialOxfordBlueSB: TStyleBook; ToolBar1: TToolBar; ShadowEffect4: TShadowEffect; Label1: TLabel; Label2: TLabel; <strong> ScrollBar1: TScrollBar; FDMemTable1: TFDMemTable; BindSourceDB1: TBindSourceDB; BindingsList1: TBindingsList; FDStanStorageJSONLink1: TFDStanStorageJSONLink; Edit1: TEdit; LinkControlToField1: TLinkControlToField; LinkPropertyToFieldText: TLinkPropertyToField; procedure ScrollBar1Change(Sender: TObject); procedure Edit1Validate(Sender: TObject; var Text: string);</strong> private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} <strong>procedure TForm1.Edit1Validate(Sender: TObject; var Text: string); var LValue: Single; begin LValue := Text.ToSingle; if LValue<>ScrollBar1.Value then ScrollBar1.Value := Text.ToSingle; end; procedure TForm1.ScrollBar1Change(Sender: TObject); begin Edit1.Text := ScrollBar1.Value.ToString; TLinkObservers.ControlChanged(Edit1); end;</strong> end. |
デモのデータバインディング設定
Formのプロパティ設定
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
object BindSourceDB1: TBindSourceDB DataSet = FDMemTable1 ScopeMappings = <> Left = 144 Top = 224 end object BindingsList1: TBindingsList Methods = <> OutputConverters = <> Left = 20 Top = 5 object LinkControlToField1: TLinkControlToField Category = 'Quick Bindings' DataSource = BindSourceDB1 FieldName = 'Value' Control = Edit1 Track = False end object LinkPropertyToFieldText: TLinkPropertyToField Category = 'Quick Bindings' DataSource = BindSourceDB1 FieldName = 'Value' Component = Label2 ComponentProperty = 'Text' end end object FDStanStorageJSONLink1: TFDStanStorageJSONLink Left = 168 Top = 368 end |
クロスプラットフォームアプリのプログラミング手法を学ぶには
今すぐ Coding Boot Camp 2022に登録してください。ゲーム、JavaScript、Web、Python、SQL、データベース、iOS、MacOS、Android、モバイル、Linux、Windows、デスクトップ、サーバー、Arduinoなど、プログラミングに関するさまざまなトピックを学ぶことができます。
Design. Code. Compile. Deploy.
トライアル版をダウンロードいますぐアップグレード！
Delphi Community Edition（無料）C++Builder Community Edition（無料）
Japanese 
English 
French 
Portuguese 
German