画面切り替え
画面切り替えはパネルを前面に持ってくるちょっと面白い方法であり、Microsoft PowerPoint のスライド画面切り替え方法に似ています。
従来では、前面にパネルを持ってきたい時には、以下のようなコードを記述していました。
#Panel2.Visible := True
#Panel1.Visible := False
これは、2つ目のパネルを表示して現在表示されているものを隠します。処理はすぐに終わり、効果はシンプルです。
ただ、画面切り替えを使うと、他のパネルを表示させる間にパネルをフェードさせることができたり、画面の一番上から取り下げて他のを一番上に乗せたりすることができます。
Define_Com Class(#prim_anim) Name(#Animation)
Define_Com Class(#prim_anim.Transition) Name(#Flip) Source(#Panel1) Target(#Panel2) Transitiontype(Flip) Parent(#Animation)
Evtroutine Handling(#Button.Click)
#Animation.Start
Endroutine
上のコードでは、フリップの画面切り替えを使った簡単なアニメーションを定義しています。これは、全てのコントロールの機能として使用可能であり、これにより、プログラムコードがより簡潔になります。
Evtroutine Handling(#Button.Click)
#Panel1.TransitionTo(#Panel2 Flip)
Endroutine