bb.donnay-software.com

Code: Select all

@  3,  1 DCSAY messlg SAYSIZE 30
@  3, 26 DCGET m_az pict '999999999' ;
         COMBO HEIGHT 6 WIDTH 16 DATA aLastLgNr ELEMENT 1 ;
         RETURN {|n|val(aLastLgNr[n])} ;
         MESSAGE messlge valid { || lgda280( m_az, GetList ) }

DCGETOPTIONS BUTTONALIGN DCGUI_BUTTONALIGN_CENTER ;
             COLORGETS {{GRA_CLR_BLACK,GRA_CLR_YELLOW}} ;
             AUTORESIZE ;
             TABSTOP ;
             ROWOFFSET ("fi")->zeiloff ;
             WINDOWWIDTH  nMaxCol ;
             WINDOWHEIGHT nMaxRow ;
             WINDOWROW aPos[2] ;
             WINDOWCOL aPos[1]

DCHOTKEY xbeK_F1 ACTION { || my_help( dc_getactiveinfo( GetList ) ) }            // F1
DCHOTKEY xbeK_F2 ACTION { || xx_ausk( dc_getactiveinfo( GetList ), GetList ) } // F2

DCREAD GUI ;
       OPTIONS GetOptions ;
       TITLE messlge ;
       MODAL ;
       SETAPPWINDOW ;
       to lOk ;
       ENTEREXIT