+- Curl Global Community (https://communities.curl.com)
+-- Forum: Discussions (https://communities.curl.com/forumdisplay.php?fid=1)
+--- Forum: General Curl questions (https://communities.curl.com/forumdisplay.php?fid=2)
+--- Thread: ご質問 (/showthread.php?tid=233)
ご質問 - sakuma - 08-24-2011
こんばんは。sakumaです。
また質問させてください。
Ｅｎｔｅｒキーで縦方向にカーソル移動させる事は、実装できますでしょうか？
ご回答頂ければ幸いです。よろしくお願いいたします。
RE: ご質問 - nmyzk - 08-25-2011
単純なコントロール間の移動なら、Enterキーでフォーカス移動するイベントと
フォーカスの移動順序を設定するだけなので
そんなに難しくなく実現できると思います。
ただ、RecordGrid上でそのような動きをするのは
少し難しいかと思います。
RE: ご質問 - Yuhki - 08-25-2011
すこし強引ですが、以下でどうでしょうか。
不具合がでる可能性がありましたらどなたかご指摘願います。
以下で問題なければ実現できます。
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}
}
}RE: ご質問 - onyo - 08-25-2011
質問の意図とは外れるかもしれませんが・・・
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!"}
}
}