画面切り替え

LANSA

画面切り替え


画面切り替えはパネルを前面に持ってくるちょっと面白い方法であり、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