ご質問

[sakuma]

こんばんは。sakumaです。

また質問させてください。

Ｅｎｔｅｒキーで縦方向にカーソル移動させる事は、実装できますでしょうか？

ご回答頂ければ幸いです。よろしくお願いいたします。

[nmyzk]

単純なコントロール間の移動なら、Enterキーでフォーカス移動するイベントと
フォーカスの移動順序を設定するだけなので
そんなに難しくなく実現できると思います。

ただ、RecordGrid上でそのような動きをするのは
少し難しいかと思います。

[Yuhki]

すこし強引ですが、以下でどうでしょうか。
不具合がでる可能性がありましたらどなたかご指摘願います。

以下で問題なければ実現できます。

Code:

{define-class public open CustomCell {inherits StandardStringCell}
  
  {constructor public {default}}

  {method public {create-editor}:TextField
    def tf = {super.create-editor}
    {tf.add-event-handler
        {on ev:KeyPress at tf:TextField do
            {if ev.value == KeyPressValue.enter then
                def kp = {KeyPress}
                set kp.value =
                    {if ev.shift? then
                        KeyPressValue.up
                     else
                        KeyPressValue.down
                    }
                {self.handle-event kp}
            }
        }
    }
    {return tf}
  }
}

[onyo]

質問の意図とは外れるかもしれませんが・・・

RecordGrid では、レコードセレクタ上の
Enter キー押下のイベントが KeyPress ではなく
Action に置き換わってしまいますが、

GuiManager クラスを使うことで回避は可能です。

意図したイベントが置き換わってしまい、ハンドリングできないときの
手段として、自分は使っていました。

以下はグリットのレコードセレクタ上でのダブルクリックと
エンターを区別させたい場合のサンプルです。

Code:

{define-enum public event-type
    KeyPress,
    PointerPress
}
{let press-type:event-type = event-type.KeyPress}
{let gm:GuiManager = {get-gui-manager}}
{gm.add-event-handler
    {on e:Event at an:any do
        {type-switch e
         case rkp:RawKeyPress do
            set press-type = event-type.KeyPress
         case pp:PointerPress do
            set press-type = event-type.PointerPress
        }}}

{define-class public GridDoubleClick {inherits Event}
  {constructor public {default}}
}
{define-class public GridEnter {inherits Event}
  {constructor public {default}}
}

{define-class public CustomRecordGrid {inherits RecordGrid}
  let public ge:GridDoubleClick = {GridDoubleClick.default}
  let public ge2:GridEnter = {GridEnter.default}
  field private _my-event:EventHandler = {on e:Action at grid:RecordGrid do
                                   {if grid.current-index >= 0 then
                                       {if event-type.PointerPress == press-type then
                                           {grid.enqueue-event CustomRecordGrid.ge}
                                        elseif event-type.KeyPress == press-type then
                                           {grid.enqueue-event CustomRecordGrid.ge2}
                                       }
                                   }
                                 }

  {constructor public {default ...}
    {construct-super ...}
    {self.add-event-handler
        self._my-event}
  }
}
{let people:RecordSet =
    {RecordSet
        {RecordFields
            {RecordField
                "First", caption = "First Name", domain = String
            },
            {RecordField
                "Last", caption = "Last Name", domain = String
            },
            {RecordField "Age", domain = int}
        },
        {RecordData First = "John", Last = "Smith", Age = 25},
        {RecordData First = "Jane", Last = "Smith", Age = 29},
        {RecordData First = "Jane", Last = "Jones", Age = 28}
    }
}
{CustomRecordGrid
    record-source = people,
    height = 3cm,
    {on GridEnter do
        {popup-message "GridEnter!"}
    },
    {on GridDoubleClick do
        {popup-message "GridDoubleClick!"}
    }
}