AFsoft WebSite (AFsoft.JP)

DelphiXE3　[FMX] スクロールボックス（ScrollBox）2014/01/04

　
前回は [Layouts]内の「段落レイアウト改行」（FlowLayoutBreak）について見てみました。今回は同じく[Layouts]内の「スクロールボックス」（ScrollBox）について見ていきます。【DelphiXE3・VCLの記事】【Delphi2010の記事】
　
　
[Layouts]内

FMX

　
ヘルプより。

FireMonkey フォーム内のスクロール領域（スクロールボックス）を表します。
　
TScrollBox を使用すると、FireMonkey フォームにスクロールボックスを作成することができます。
　
スクロールボックスを一度使用すると、複数のグラフィックコントロール（ボタン、リストボックス、編集ボックス、ラジオボタンなど）が同じスクロール可能な親（スクロールボックス自体）の下にまとめられます。このように、比較的小さいフォームでも、まとめてスクロール可能にすることで多数のグラフィックオブジェクトを含むことが可能になり、グラフィックコントロールが豊富に含まれるグラフィカルユーザーインターフェイス（GUI）上で場所を取らないようにすることができます。
　
その他に、スクロールボックスを使って、フォーム内の複数の領域（ビュー）をスクロールさせることができます。ビューは、市販のワードプロセッサや、スプレッドシート、プロジェクト管理アプリケーションなどで一般的に使われています。
　
　メモ：スクロールレイアウト（TScrollBox、TVertScrollBox、など）の子を、右端や下端に固定してはいけません。スクロールレイアウトの Anchors プロパティが、akBottom、akRight、またはその両方に設定された場合、その子は、レイアウトのコンテンツサイズが計算されている間、レイアウトの端までの距離を一定に保つため、伸長し続けてしまいます。スクロールレイアウトの子は、左端または上端にのみ固定してください。

Animated

このスクロールボックスのコンテンツのスクロールを行う際に、スムーズなスクロールアニメーションを使用するかどうかを示します。デフォルトでは、Animated は、True に設定されています。

AutoHide

このスクロールボックスにアタッチされているスクロールバーを、自動的に表示または非表示にするのかを示します。

HScrollBar

このスクロールバーにアタッチされている水平スクロールバーを示します。
　
HScrollBar 読み取り専用プロパティを読み込むと、このスクロールボックスコンポーネントにアタッチされている、水平スクロールバーオブジェクトを取得することができます。

MouseTracking

マウスを、左マウスボタンを押しながら移動させると、スクロールが有効になります。

ShowScrollBars

このスクロールボックスにアタッチされているスクロールバーを可視にするかどうかを示します。

ShowSizeGrip

このスクロールボックスの右下隅にサイズグリップを表示するかどうかを示します。

UseSmallScrollBars

このスクロールボックスにアタッチされているスクロールバーに、オペレーティングシステムが定義する通常サイズではなく、小さいサイズのフットプリントを使うかどうかを示します。

VScrollBar

このスクロールバーにアタッチされている垂直スクロールバーを示します。
　
VScrollBar 読み取り専用プロパティを読み込むと、このスクロールボックスコンポーネントにアタッチされている、垂直スクロールバーオブジェクトを取得することができます。

　
　
VCLでのスクロールボックス（ScrollBox）は、パネルと一体型になった感じでしたが、FireMonkey(FMX)では、そうではなく、レイアウトの１形態という感じですね。
　
フォーム画面上にスクロールボックス（ScrollBox）を配置し、その子となるように画像(Image)を配置します。あと、ボタン(Button)と開くダイアログ(OpenDialog)も配置しておきます。

　
ボタンのクリックイベントハンドラを下記のようにします。

procedure TForm1.Button1Click(Sender: TObject);
begin
　if (OpenDialog1.Execute) then begin
　　try
　　　Image1.Bitmap.LoadFromFile(OpenDialog1.FileName);
　　　Image1.Width := Image1.Bitmap.Width ;
　　　Image1.Height:= Image1.Bitmap.Height;
　　except
　　　;
　　end;
　end;
end;

大した事はしていません。ボタンを押したら画像を開く画面を表示して、画像ファイル名を指定し、それを画面上に表示させるだけです。保存・コンパイル・実行を行います。

ボタンをクリック
↓

画像ファイル（アジサイ.jpg）を開く
↓

スクロールをしてみると・・・
↓

という感じです。
　
画面デザイン時には少し見にくいかもしれませんが、基本的には、VCLでのスクロールボックスとさほどの違和感は無いような感じはします。
　
　

バッチファイル
ＢＡＳＩＣ
C言語のお勉強
拡張子な話
DOSプログラム
Delphi
>Delphi入門編
>Delphi2010
>DelphiXE3
▲2014/01/03
　2014/01/04
▼2014/01/04
　
シェアウェア
Script!World
データベース
　