Page 1 of 1

DCREAD FIT and CJCommandbars

Posted: Mon Feb 22, 2010 3:50 am
by Wolfgang Ciriack
Hello Roger,
if i have a dialog with a CJCommandbar and a Browse, the FIT clause of the dcread displays the Browse over the Commandbar and its statusbar. As a workaround i put a DCSAY to the top and the bottom. Is there a better solution ?

Code: Select all

...
CJCOMMANDBARS oCommandbar ;
  EVAL {|o|_BuildMenu(o,aButt,Getlist, AnzDatSaetze), ;
         o:execute := {|o|PostAppEvent(xbeP_User+111,o)} }
DCUSEREVENT xbeP_User+111 ACTION {|a,b,o| StartAction(a:Id,aButt) }

@1, 80 DCSAY "" 
@3.5,1 DCBROWSE oBrowse ;
     DATA cAlias ;
     SIZE 90, 20 ;
     FIT ;
     CURSORMODE XBPBRW_CURSOR_ROW ;
     PRESENTATION aPresPar1 ;
     ITEMSELECTED {|| StartAction(CJ_A_BEA,aButt)} ;
     NOHSCROLL
@24.5,80 DCSAY ""

DCREAD GUI ;
   TITLE 'Mandanten' ;
   OPTIONS GetOptions ;
   MODAL ;
   SETAPPWINDOW ;
   SETFOCUS @oBrowse ;
   FIT

Re: DCREAD FIT and CJCommandbars

Posted: Mon Feb 22, 2010 8:41 am
by rdonnay
Here is my latest sample of a TabbedToolBar with a browse.

You will need to rebuild XCODEJOCK.DLL.
copy x*.prg to \exp19\source\xcodejock and run build19_sl1.bat

copy xcodejock.ch to \exp19\include
copy tabbedtoolbar.* to \exp19\xcodejock\samples\commandbars