[资源分享]在GP T100头上加上 全选和取消全选按钮。

as is known to all ，在T100的查询时候会在toorbar上面出现全选和取消全选的按钮。而在其他类型的作业想加上去如何操作，且听我道来。因为我是GP环境，所以就用GP来演示，它们原理都是一样的。如T作业就加载设置T类型的toorbar,Q作业就加载Q类型的toorbar（这些都是鼎捷产中提前布置好的）。如果想自定义需要自己设置toorbar文件，首先直接按照图片红色框路径下载toorbar文件，重命名。然后加上两个ToolBarItem

<ToolBar>
  <ToolBarItem name="locale" />
  <ToolBarSeparator/>  <--这个是分割线 '|' -->
  <ToolBarItem name="sel_all" image="sel_all" text="全选"/>
  <ToolBarItem name="sel_none" image="sel_none" text="取消全选"/>
  <ToolBarSeparator/>   <--这个是分割线 '|' -->
  <ToolBarItem name="insert"/>
  <ToolBarItem name="modify"/>
  <ToolBarItem name="delete"/>
  <ToolBarItem name="reproduce"/>
  <ToolBarItem name="invalid"/>
  <ToolBarSeparator/>
  <ToolBarItem name="detail"/>
  <ToolBarSeparator/>
  <ToolBarItem name="output"/>
  <ToolBarItem name="exporttoexcel" />
  <ToolBarSeparator/>
  <ToolBarItem name="query"/>
  <ToolBarItem name="qbe_select" />
  <ToolBarItem name="qbe_save" />
  <ToolBarSeparator/>
  <ToolBarItem name="first"/>
  <ToolBarItem name="previous" />
  <ToolBarItem name="jump" />
  <ToolBarItem name="next"/>
  <ToolBarItem name="last"/>
  <ToolBarSeparator/>
  <ToolBarItem name="controlz"/>
  <ToolBarSeparator/>
  <ToolBarItem name="help"/>
  <ToolBarItem name="exit" image="quit" />
</ToolBar>

T100可以直接引用查询作业toorbar里面的图片名就行了。GP 如果想上传自己的图片 ，cd $FGLIMAGEPATH 然后上传图片，注意图片名称须与 image对应。
将4tb文件上传到服务器。如下面，其中括号为你自定义的  toorbar路径+文件名。注意这个函数放在 cl_ui_init() 下面。

CALL ui.Interface.loadToolBar("/u1/topprod/topcust/cim/4gl/cimt155_custom.4tb")

最后在bp函数里面将按钮点亮吧。

ON ACTION sel_all
     
ON ACTION sel_none

谢谢了