RecordGrid の NavigationPanel について

3 件の投稿

umemura質問08-22-2011, 09:23 PM

RecordGrid の下部に表示される NavigationPanel に手を加えたいときはどうすればよいのでしょうか。

Curl Corporation\Surge\8\ide\gui\controls を利用すればいろんなことができることは承知していますが、
諸事情により、できるだけ open-controls は使いたくありません。

RecordForm には create-navigation-panel というメソッドがありますが、
ReocrdGrid にはそれらしきものがなく、
上記のソースをみても、RecordGridUI で作成していることは分かりましたが、
_navigation-panel フィールドは private になっており、外部から参照できません。

何かよい方法はありますでしょうか。

umemura回答 #108-22-2011, 09:28 PM

かなり無理やりですが、下記の方法でNavigationPanel を取得できました。
フィールドで持っていてくれればもっと楽なのに・・・。

Code:
def ui:CustomizedRecordGridUI = {CustomizedRecordGridUI}

def display-frame:BaseFrame =　

　　(ui.child.graphic asa Grid).child-array[1].graphic asa BaseFrame

def navigation-panel:RecordSetDisplayNavigationPanel =　

　　display-frame.child.graphic asa RecordSetDisplayNavigationPanel

c-s回答 #208-23-2011, 08:52 AM

(08-22-2011, 09:28 PM)umemura Wrote: かなり無理やりですが、下記の方法でNavigationPanel を取得できました。
フィールドで持っていてくれればもっと楽なのに・・・。

Code:
def ui:CustomizedRecordGridUI = {CustomizedRecordGridUI} def display-frame:BaseFrame =　　　(ui.child.graphic asa Grid).child-array[1].graphic asa BaseFrame def navigation-panel:RecordSetDisplayNavigationPanel =　　　display-frame.child.graphic asa RecordSetDisplayNavigationPanel

RecordFormにはcreate-navigation-panelがありますが、RecordGridにはありませんね。