In a structure view you cannot insert additional fields

Idea: we create an own Tool tip if the user clicks on a row

 

 

How to do this:

Create a text field and change the border.

This is a list form and we must create the text field overlapped of the list. This is possible with band=foreground

 

dw_1.create=text=name=info_t<tab>text=Hello<tab>band=foreground<tab>width=600<tab>height=300

 

Now we must change the background. BeasScript properties are not available. We use direct data window syntax.

 

dw_1.modify=info_t.background.color='<rgb:190:190:190>' info_t.background.mode=0 info_t.border=2 info_t.visible='0'

 

We catch the Click event and related to the line type <zeilentyp> we display the informations
For more information see item structure window

 

Complete source code for the customization:

global function dw_1_load
dw_1.create=text=name=info_t<tab>text=Hello<tab>band=foreground<tab>width=600<tab>height=300
dw_1.modify=info_t.background.color='<rgb:190:190:190>' info_t.background.mode=0 info_t.border=2 info_t.visible='0'
end global
 

// Catch click event from the structure list
global function dw_1_click
dec x,y
x=<form.click.x> + 90
y=<form.click.y> + 60
dw_1.item.info_t.x=<x>
dw_1.item.info_t.y=<y>
 
// Click on normal item
if <dw_1.item.zeilentyp.value> = 0 then
  dw_1.item.info_t.visible=1
  sqlca.select "SuppCatNum" from "OITM" where "ItemCode" = <dw_1.item.itemcode.value,dbstring>
  dw_1.item.info_t.text=<itemcode><cr_lf><itemname><cr_lf><sqlca.result.1>
  return 1
end if
 
// all other: make unvisible
dw_1.item.info_t.visible=0
end global

 

 

 

Example Notes