I trid again and succeeded in displaying textbox, but encounter 2 two problems,
1. if the size of textbox is not large enough, horizontal and vertical scrollbar
appears and overlap textbox, how to hide scrollbars?
2. when mouse click or double click on textboxs, it does not get focus, and can
not edit cell content?
NB. =========================================================
18!:55 <'t1'
coclass 't1'
UNI=: 0 : 0
pc uni;
xywh 8 12 69 28;cc text1 isigraph rightmove bottommove;
xywh 76 54 46 12;cc text2 isigraph rightmove bottommove;
pas 6 6;pcenter;
rem form end;
)
create=: 3 : 0
wd UNI
otext1=: '' conew 'jzgrid'
show__otext1 ('CELLFONTS' ; 'CELLDATA' ; 'GRIDID' ; 'HDRCOL' ; 'HDRROW' ;
'COLWIDTH' ; 'CELLALIGN' ; 'CELLEDIT') ,. (,<'"lucida console" 12') ; (1
1$<'abcd') ; 'text1' ; ('') ; ('') ; (100) ; (0) ; 1
otext2=: '' conew 'jzgrid'
show__otext2 ('CELLFONTS' ; 'CELLDATA' ; 'GRIDID' ; 'HDRCOL' ; 'HDRROW' ;
'COLWIDTH' ; 'CELLALIGN' ; 'CELLEDIT') ,. (,<'"lucida console" 12') ; (1
1$<'abcd') ; 'text2' ; ('') ; ('') ; (100) ; (0) ; 1
wd 'pshow;'
)
destroy=: 3 : 0
destroy__otext1 ''
destroy__otext2 ''
wd'pclose'
)
uni_close=: destroy
uni_run=: 3 : 0
''conew 't1'
)
uni_run''
NB. =========================================================
--
regards,
bill
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
