4D Japan Knowledge Base

ウインドウを左右に振って拒絶を表現する

4D v11 SQLのユーザ認証ダイアログは、ウインドウを左右に振って拒絶を表現するエフェクトを使用しています。無効なユーザ名またはパスワードを入力して接続を試みると、ウインドウが左右に揺れて間違いを指摘するのです。

似たようなことを表現するには、次のようなコードを記述すると良いでしょう。

C_LONGINT($lLeft;$lTop;$lRight;$lBottom;$lCurrentProcess)
C_LONGINT($lLeft_Left;$lRight_Left;$lLeft_Right;$lRight_Right)

GET WINDOW RECT($lLeft;$lTop;$lRight;$lBottom)

$lLeft_Left:=$lLeft-10
$lRight_Left:=$lRight-10

$lLeft_Right:=$lLeft+10
$lRight_Right:=$lRight+10

$lCurrentProcess:=Current process

For ($i;1;5)
  SET WINDOW RECT($lLeft_Left;$lTop;$lRight_Left;$lBottom)
  DELAY PROCESS($lCurrentProcess;1)
  SET WINDOW RECT($lLeft_Right;$lTop;$lRight_Right;$lBottom)
  DELAY PROCESS($lCurrentProcess;1)
End for 

SET WINDOW RECT($lLeft;$lTop;$lRight;$lBottom)