RealStudio(REALbasic)でアニメーション

rb

最近のMacアプリはヌルヌル動くのがデフォなのに、RealStudioにはそういう機能が全然ない。。

そんな訳で作りました。


最短1行でアニメーションできます。

  NekoTweenContainer.Default.TweenFor(Self,"Top").StartTween(300)


アニメーションの種類や速度を変えたり、コールバックを設定する事も可能

  //ImgViewは画像表示を行うクラスのインスタンス
  Dim Tw as NekoTween = NekoTweenContainer.Default.TweenFor(ImgView,"Scale")
  
  //アニメーションの種類と速度を指定（オプション）
  Tw.TweenType = NekoTween.kTypeEaseOut
  Tw.DurationMiliSec = 1500
  
  //値が変わるたびに呼ぶメソッドを指定。
  //ここでは再描画を行うRedrawメソッドをコール
  Tw.OnUpdate = New NekoCallback(ImgView,"Redraw")
  
  //Scaleの値を2.0までアニメーション
  Tw.StartTween(2.0)

サンプル作ったよ！

サンプルとソース


中身的にはIntrospectionとWeakRefとTimerです。
興味がある方は覗いてみて下さい。